vGames Gathers Alert - By interSys

;;;;;;; vGames Gathers Alert - By interSys ;;;;;;;;;

dialog GAlert {
  title "Gathers Alert - By interSys"
  size -1 -1 113 93
  option dbu
  text "- vGames Gather Alert - By interSys -", 17, 4 1 104 8, center
  text "Start-in:", 2, 2 16 25 8
  text "Map:", 3, 2 25 25 8
  text "Admin:", 4, 2 34 25 8
  button "Push to join the gather (Add)", 6, 15 53 85 10
  text "", 7, 29 16 72 8
  text "", 8, 29 25 72 8
  text "", 9, 29 34 72 8
  text "Gather-Num:", 12, 2 43 34 8
  text "", 13, 38 43 12 8
  button "Reset All", 14, 36 65 41 10
  check "Gathers-Alert", 5, 2 76 42 10, left
  check "Enable Beep Sound", 10, 49 76 57 10, left
  text "Sign:", 11, 66 43 17 8
  text "", 15, 86 43 12 8
  text $chr(149) $chr(149) , 16, 52 43 8 8, center
  text "_______________________________________", 1, 0 8 112 7, center
}

on *:dialog:GAlert:*:*: {
  if ($devent == init) {
    $iif(%GA.Map,did -a $dname 7 $time,did -a $dname 7 Gather not adding right now)
    $iif(%GA.Map,did -a $dname 8 %GA.Map,did -a $dname 8 Gather not adding right now)
    $iif(%GA.Admin,did -a $dname 9 %GA.Admin,did -a $dname 9 Gather not adding right now)
    $iif(%GA.Num,did -a $dname 13 $gettok(%GA.Num,1,32),did -a $dname 13 OFF)
    $iif(%GA.Num,did -a $dname 15 $gettok(%GA.Num,2,32),did -a $dname 15 OFF)
    if (%Ga.Turn) { did -c $dname 5 }
    if (%Ga.STurn) { did -c $dname 10 }
  }
  if ($devent == sclick) {
    $iif($did(5).state,set %GA.Turn ON,unset %GA.Turn)
    $iif($did(10).state,set %GA.STurn ON,unset %GA.STurn)
    if ($did == 6) && (%GA.Map) { msg #vGames.Gathers $gettok(%GA.Num,2,32) $+ Add }
    elseif ($did == 14) { unset %GA.* | did -u $dname 5,10 | did -a $dname 7-9 Gather not adding right now | did -a $dname 13,15 OFF }
  }
}
on *:text:*:#vGames.Gathers: {
  if (*!*@vGames-GTR.users.quakenet.org == $address($nick,2)) && (%GA.Turn) {
    if (Starting the isin $1-) {
      flash -wb4 Gather-Alert
      set %GA.Admin $10
    }
    elseif (are: isin $6)  {
      if (%GA.STurn) { beep 4 }
      set %GA.Map $4
      if ($remove($gettok($1-,1,44),$chr(2),$chr(3)) == 7) { set %GA.Num 1 $chr(33) }
      elseif ($remove($gettok($1-,1,44),$chr(2),$chr(3)) == 11) { set %GA.Num 2 $chr(64) }
      elseif ($remove($gettok($1-,1,44),$chr(2),$chr(3)) == 4) { set %GA.Num 3 $chr(43) }
      elseif ($remove($gettok($1-,1,44),$chr(2),$chr(3)) == 9) { set %GA.Num 4 $chr(42) }
      elseif ($remove($gettok($1-,1,44),$chr(2),$chr(3)) == 8) { set %GA.Num 5 $chr(45) }
      elseif ($remove($gettok($1-,1,44),$chr(2),$chr(3)) == 10) { set %GA.Num 6 $chr(94) }
      ga
    }
    elseif (Mixing teams isin $1-) || (Has been stopped isin $1-) {
      if  ($dialog(GAlert)) {
        did -a GAlert 7-9 Gather not adding right now | did -a GAlert 13,15 OFF
      }
      unset %GA.Map %GA.Admin %GA.Map %GA.Num
    }
  }
}
alias ga { $iif($dialog(GAlert),sga,dialog -m GAlert GAlert) }
alias sga {
  $iif(%GA.Map,did -a GAlert 7 $time,did -a GAlert 7 Gather not adding right now)
  $iif(%GA.Map,did -a GAlert 8 %GA.Map,did -a GAlert 8 Gather not adding right now)
  $iif(%GA.Admin,did -a GAlert 9 %GA.Admin,did -a GAlert 9 Gather not adding right now)
  $iif(%GA.Num,did -a GAlert 13 $gettok(%GA.Num,1,32),did -a $dname 13 OFF)
  $iif(%GA.Num,did -a GAlert 15 $gettok(%GA.Num,2,32),did -a $dname 15 OFF)
}

menu * {
  Gather-Alert:GA
}