Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;;;;;; 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.Adv $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.Adv: {
- if (*!*@VgamesADV.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
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement