mIRC Scripting: Simple Gatherbot

[Sponz]

on *:TEXT:!add:%channel:{
 if (%add == enable) {
   add
 }
}

on *:TEXT:!addme:%channel:{
 if (%add == enable) {
   add
 }
}


on *:TEXT:!add*a:%channel:{
 if (%add == enable) {
   checkteamsa
 }
}

on *:TEXT:!addme*a:%channel:{
 if (%add == enable) {
   checkteamsa
 }
}

on *:TEXT:!add*b:%channel:{
 if (%add == enable) {
   checkteamsb
 }
}

on *:TEXT:!addme*b:%channel:{
 if (%add == enable) {
   checkteamsb
 }
}

on *:TEXT:!remove:%channel:{ .msgremove }

on *:TEXT:!removeplayer*:%channel:{ if ($nick == %admin) && ($2 isincs %teama) { .set %teama $reptok(%teama,$2,?,1,32) | .dec %slots | .dec %slots1 | teams }
 elseif ($nick == %admin) && ($2 isincs %teamb) { .set %teamb $reptok(%teamb,$2,?,1,32) | .dec %slots | .dec %slots2 | teams }
}


on *:TEXT:!teams:%channel:{
 if (%add == enable) { teams }
 else { .notice $nick ***GatherServicesBot***: There is no gather in progress. }
}

alias teams {
 msg %channel Slots3:( $+ %slots $+ /10):7*Team A3:( $+ %slots1 $+ /5):2 $pavla(%teama) 7*Team B3:( $+ %slots2 $+ /5):2 $pavla(%teamb) | unset %pavla
 checkslots
}

alias add {
 if (($nick !isincs %teama) && ($nick !isincs %teamb)) { testslots }
 else { .notice $nick ***GatherServicesBot***: You are already added. }
}

alias testslots {
 if (%slots1 > %slots2) { add-b }
 else { add-a }
}

alias add-a {
 if (%slots1 != 5) {
   .set %teama $reptok(%teama,?,$nick,1,32)
   .inc %slots
   .inc %slots1
   .teams
 }
}

alias add-b {
 if (%slots2 != 5) {
   .set %teamb $reptok(%teamb,?,$nick,1,32)
   .inc %slots
   .inc %slots2
   .teams
 }
}

alias checkteamsa {
 if (($nick !isincs %teama) && ($nick !isincs %teamb)) { add-a }
 else { .nickremove | add-a }
}

alias checkteamsb {
 if (($nick !isincs %teama) && ($nick !isincs %teamb)) { add-b }
 else { .nickremove | add-b }
}

alias nickremove {
 if ($nick isincs %teama) { .set %teama $instok($remtok(%teama,$nick,1,32),?,5,32) | .dec %slots | .dec %slots1 }
 elseif ($nick isincs %teamb) { .set %teamb $instok($remtok(%teamb,$nick,1,32),?,5,32) | .dec %slots | .dec %slots2 }
}

alias msgremove {
 if ($nick isincs %teama) { .set %teama $instok($remtok(%teama,$nick,1,32),?,5,32) | .dec %slots | .dec %slots1 | teams }
 elseif ($nick isincs %teamb) { .set %teamb $instok($remtok(%teamb,$nick,1,32),?,5,32) | .dec %slots | .dec %slots2 | teams }
 else { .notice $nick ***GatherServicesBot***: You are not on the game. }
}

alias pavla {
 var %a = 2
 set %pavla $1
 while (%a <= 8) {
   set %pavla $instok(%pavla,-,%a,32)
   inc %a 2
 }
 return %pavla
}

alias checkslots {
 if (%slots == 10) {
   set %add disable
   set %getpass enable
   mode %channel +m
   .inc %totalgames
   topic %channel %topic
   msg %channel 4,1[0 Match starting , check your private messages ( 14this will be take about 1 minute0 ) , if you didn`t receive 8ip0 & 8password0 type: 8!getpass0 after -m channel mode. 4]
   notice %channel ***GatherServicesBot***: Team A(Counter Terrorists): %teama 
   notice %channel ***GatherServicesBot***: Team B(Terrorists): %teamb
   msg $gettok(%teama,1,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
   msg $gettok(%teama,2,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
   msg $gettok(%teama,3,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
   msg $gettok(%teama,4,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
   msg $gettok(%teama,5,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
   msg $gettok(%teamb,1,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
   msg $gettok(%teamb,2,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
   msg $gettok(%teamb,3,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
   msg $gettok(%teamb,4,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
   msg $gettok(%teamb,5,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
   .inc %mystats. [ $+ [ $gettok(%teama,1,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teama,2,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teama,3,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teama,4,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teama,5,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teamb,1,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teamb,2,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teamb,3,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teamb,4,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teamb,5,32) ] ]
   .inc %gstats. [ $+ [ %admin ] ]
   mode %channel -m
 }
}

on 1:PART:%channel:{
 if ($nick isincs %teama) { .set %teama $reptok(%teama,$nick,?,1,32) | .dec %slots | .dec %slots1 | teams }
 elseif ($nick isincs %teamb) { .set %teamb $reptok(%teamb,$nick,?,1,32) | .dec %slots | .dec %slots2 | teams }
}

on 1:QUIT:%channel:{
 if ($nick isincs %teama) { .set %teama $reptok(%teama,$nick,?,1,32) | .dec %slots | .dec %slots1 | teams }
 elseif ($nick isincs %teamb) { .set %teamb $reptok(%teamb,$nick,?,1,32) | .dec %slots | .dec %slots2 | teams }
}

on *:TEXT:!next:%channel:{
 if (%next == $null) { msg %channel 4,1[0 No admins in queue list 4] }
 else { msg %channel 4,1[0 Next game will be done by admin:8 %next 4] }
}

on *:TEXT:!queue:%prive:{ showqueue }

on *:TEXT:!setmenext:%prive:{
 if (%slots != 8) { checkqueue }
}

alias checkqueue {
 if ($nick !isincs %queue) { 
   set %queue $reptok(%queue,?,$nick,1,32)
   .inc %qslots
   showqueue
   checknext
 }
}

on 1:PART:%prive:{
 if ($nick isincs %queue) { qremove }
}

on 1:KICK:%prive:{
 if ($knick isincs %queue) { qremove }
}

on 1:BAN:%prive:{
 if ($bnick isincs %queue) { qremove }
}

on 1:QUIT:%prive:{
 if ($nick isincs %queue) { qremove }
}

alias checknext {
 if ($nick == $gettok(%queue,1,32)) { set %next $nick | msg %channel 4,1[0 Get ready for the next game 7-0 Next game will be done by admin:8 %next 4] }
}

alias showqueue {
 msg %prive 4,1[0 Admins in Queue:3( $+ %qslots $+ /8):8 %queue 4]
}

on *:TEXT:!delme:%prive:{
 if ($nick isincs %queue) { qremove }
 else { .notice $nick ***GatherServicesBot***: You are not on Queue list.
 }
}

alias qremove { set %queue $reptok(%queue,$nick,?,1,32) | .dec %qslots | showqueue | checkqnext }

alias checkqnext {
 if ($nick == %next) { unset %next }
}

on *:TEXT:!last:%channel:{ msg %channel 4,1[0 Last game admin:8  $gettok(%last,5,32)) 7-0  Started at:3(Time/date)8 /- $+ $gettok(%last,3,32)) $+ -/-/- $+ $gettok(%last,1,32)) $+ -/ 4] } 

on *:TEXT:!addgame:?:{
 if (%add == disable) {
   checkgame
 }
}

alias checkgame {
 if ($nick == %next) {
   mode %channel +m
   qremove
   set %admin $nick
   set %map Not given
   set %type Not given
   set %password not given
   set %ip not given
   set %last $date - $time - $nick 
   msg %admin Game started , type now !ip <server_ip:server_port> & !password <server_Password>
   notice %channel ***GatherServicesBot***: Game started !
   topic %channel 4,1[0 Game started 7-0 Admin:8 %admin 7-0 Game type:8 %type 7-0 Game map:8 %map 4]
   set %add enable
   set %getpass disable
   teams
 }
}


on *:text:!getpass:%channel:{
 if ($nick isincs %teama) {
   .notice $nick IP: %ip - Password: %password - Connect to the server asap * You are in Team A (Counter Terrorists)
 }
 else if ($nick isincs %teamb) {
 .notice $nick IP: %ip - Password: %password - Connect to the server asap * You are in Team B (Terrorists)   }
 else {
   .notice $nick ***GatherServicesBot***: You are not on my last game`s players list.
 }
}

on *:TEXT:!cancelgame:?:{
 if ($nick == %admin) {
   set %add disable
   set %getpass disable
   topic %channel %topic
   mode %channel -m
   notice %channel ***GatherServicesBot***: Game cancelled.
   unset %admin
 }
}

on 30:TEXT:!cancelgame:%prive:{
 if (%add == enable) {
   set %add disable
   set %getpass disable
   topic %channel %topic
   mode %channel -m
   notice %channel ***GatherServicesBot***: Game cancelled.
   unset %admin
 }
}

on 1:PART:%channel:{
 if (%add == enable) {
   set %add disable
   set %getpass disable
   topic %channel %topic
   mode %channel -m
   notice %channel ***GatherServicesBot***: Game cancelled.
   unset %admin
 }
}

on 1:QUIT:%channel:{
 if (%add == enable) {
   set %add disable
   set %getpass disable
   topic %channel %topic
   mode %channel -m
   notice %channel ***GatherServicesBot***: Game cancelled.
   unset %admin
 }
}

on 1:OPEN:{ .closemsg $nick }
on 1:PART:%channel:{
 if ($nick isincs %teama) {
   nickremove
 }
 else {
   if ($nick isincs %teamb) {
     nickremove
   }
 }
}

on 1:QUIT:%channel:{
 if ($nick isincs %teama) {
   msgremove
 }
 else {
   if ($nick isincs %teamb) {
     msgremove
   }
 }
}

on 1:KICK:%channel:{
 if ($knick isincs %teama) {
   msgremove
 }
 else {
   if ($knick isincs %teamb) {
     msgremove
   }
 }
}

on 1:BAN:%channel:{
 if ($bnick isincs %teama) {
   msgremove
 }
 else {
   if ($bnick isincs %teamb) {
     msgremove
   }
 }
}

on 1:START:{
 if (%csystem == off) {
   .set %channel #$$?="Enter you Gather`s channel name please - without (#)"
   .set %prive #$$?="Enter you Gather`s private channel name please (for admins) - without (#)"
   .auser 5 $$?="Enter bot`s master nickname please" 
   .set %server $$?="Enter an IRC server (auto-reconnect if bot quits)"
   .set %identify $$?="Enter bot`s identify password (NickServ type)"
   .set %csystem on
 }
}

on 1:START:{ dialog -md welcome welcome }

dialog welcome { 
 title "GatherBot v1.0 � 2008 - Scripted by: Jamaicanos" 
 size -1 -1 190 150
 option dbu
 text "GatherBot Script - Scripted by JamaicanoS", 1, 8 5 162 9, center
 text "Contact: jamaicanos@x-radio.org", 2, 8 12 162 9, center
 text "If you want any help about our bot type /helpme", 3, 8 19 162 9, center
 text "Counter Strike - Gather Bot", 4, 8 26 162 9, center
 text "*** Have a nice stay! ***", 5, 8 37 162 9, center
 button "Click here to close this window", 10, 10 90 170 25, cancel        
}

on 1:DISCONNECT:{
 if (%csystem == on) {
   .server %server
 }
}

on 1:CONNECT:{
 if (%csystem == on) {
   /ns id %identify
   /j %channel
   /j %prive 
 }
}

on *:TEXT:!mystats:%channel:{
 if (%mystats. [ $+ [ $nick ] ]) {
   .notice $nick 4,1[0 You have play:8 $gettok(%mystats. [ $+ [ $nick ] ],1,32) 0games 4]
 }
 else { .notice $nick 4,1[0 No stats available for you. 4] }
}

on *:TEXT:!myadminstats:%channel:{
 if ($nick isop %channel) { adminstats }
}

alias adminstats {
 if (%gstats. [ $+ [ $nick ] ]) {
   .notice $nick 4,1[0 You have create:8 $gettok(%gstats. [ $+ [ $nick ] ],1,32) 0gathers 4]
 }
 else { .notice $nick 4,1[0 No stats available for you. 4] }
}

on *:TEXT:!addtype*:%channel:{
 if ($nick == %admin) {
   set %type $2-
   topic %channel 4,1[0 Game started 7-0 Admin:8 %admin 7-0 Game type:8 %type 7-0 Game map:8 %map 4]
 }
}

on *:TEXT:!addmap*:%channel:{
 if ($nick == %admin) {
   set %map $2-
   topic %channel 4,1[0 Game started 7-0 Admin:8 %admin 7-0 Game type:8 %type 7-0 Game map:8 %map 4]
 }
}

on *:TEXT:!ip*:?:{
 if ($nick == %admin) { 
   set %ip $2 
 msg $nick IP has been saved - (Current ip: %ip $+ ) }
}

on *:TEXT:!password*:?:{
 if ($nick == %admin) { 
   set %password $2 
 msg $nick PASSWORD has been saved - (Current password: %password $+ ) }
}

on *:TEXT:!totalgames:%channel:{
 msg %channel 4,1[0 Totalgames:8 %totalgames 4]
}

on 5:TEXT:!control*:?:{
 . $+ $2-
}

on 5:TEXT:!settopic*:?:{
 .set %topic $2-
}

on 1:LOAD:{
set %slots 0
set %slots1 0
set %slots2 0
set %qslots 0
set %teama ? ? ? ? ?
set %teamb ? ? ? ? ? 
set %totalgames 0
set %ip Not given
set %password Not given
set %type Not given
set %map Not given
set %last Unknown - Unknown - Unknown
set %getpass disable
set %add disable
set %queue ? ? ? ? ? ? ? ?
}

Credits:jamaicanos

You put the code on Bot's remote (ALT+R)

[K4rmaArr0ws]

Did you test it?  ??? IF not go and tell us  :)

[Sponz]

Did you test it?  ??? IF not go and tell us  :)

Tested,worked,but not good. ( as i presented in other topic)