[mirc scripting]Scripting your first gatherbot

[Sponz]

Here you will learn how to make your first counter strike gatherbot

Exp level: 2

=======================================================

The Files

Create on mirc folder vars.ini remote.ini mirc.ini and a folder named scripts

on folder scripts create gatherbot.ini script1.ini script2.ini script3.ini

on mirc.ini type

Scripts/script1.ini

Scripts/Gatherbot.ini

Scripts/script2.ini

Scripts/script3.ini

Let's start.

on vars.ini type

%channelpickup#YourChannel

%prive  #YourPriveChannel

%Color1  Put some color codes

%Color2 Put some color codes

%gather 0

%admin

%support #YoursupportChannel

%next 0

%info 0

%sub 0

%user1 ?

%user2 ?

%user3  ?

%user4 ?

%nick5 ?

%nick6 ?

%nick7 ?

%nick8 ?

%nick9 ?

%nick10 ?

=======================================================

The bot part.

on *:TEXT:!setmenext:%gatherprive:{

  if (%admin == 0) && (%next == 0) (%game == 0)  {

    set %next 1

    set %admin $nick

    msg %channelpickup %Color1 Get Ready for the next game on %gatherchann %Color2

  }

}

on 30:TEXT:addgame:?:{

  if (%admin == 1) && (%next == 1) (%game == 0) (info == 0 {

    set %next 1

    set %info 1

    msg %gatherchann %Color1 The next game will be done by %admin %Color2

    msg $nick %Color1 Type /msg $me setip to set game ip %Color2

    msg $nick %Color1 Type /msg $me setpass to set game pass %Color2

    join %support

    set %admin $nick

    set %nick1 ?

    set %nick2 ?

    set %nick3 ?

    set %nick4 ?

    set %nick5 ?

    set %nick6 ?

    set %nick7 ?

    set %nick8 ?

    set %nick9 ?

  set %nick10 ?  }}

}}

on *:TEXT:!add:%gatherchann:{

  if (%game == 1) {

    notice %gatherchann %Color1 Wait $nick for %admin aprove %Color2

    msg %admin %Color1 User $nick requested to add him %Color2

 

  }

}

on :TEXT:setpass*:?:{

  if ($nick == %admin) {

    set %password $2

  msg $nick %Color1 PASSWORD has been saved - (Current password: %password $+ ) %Color2 }

}

on 30:TEXT:setip*:?:{

  if ($nick == %admin) {

    set %ip $2

  msg $nick %Color1 IP has been saved - (Current ip: %ip $+ ) %Color2 }

}

on 30:TEXT:gameinfo ok*:?:{

  if ($nick == %admin) {

    set %game 1

    set %info 0

    mode %channelpickup +Mm

    notice %Channelpickup %Color1 Game started on %Channelpickup - Go Subcribe! %Color2

    notice %support %Color1 Game started on %channelpickup by %admin - Go Subcribe! %Color2

  topic %channelpickup %Color1 Game started! - Admin: %admin - Type: %type - Map: %map %Color2 }

}

on 30:TEXT:stop:?:{

  if (%game == 1) {

    set %game 0

    set %next 0

    msg %channelpickup %Color1 No Admins in queue %Color2

    topic %channelpickup %Color1 Gbot %color2

    mode %channelpickup -Mm

    unset %admin $nick

    uset %user1 ?

    unset %user2 ?

    unset %user3 ?

    unset %user4 ?

    unset %user5 ?

    unset %user6 ?

    unset %user7 ?

    unset %user8 ?

    unset %user9 ?

    unset %user10 ?

    unset %ip

    unset %password

    unset %admin

 

  }

}

on *:TEXT:!ip*:%channelpickup:{

  if (%game == 1) {

  msg %channelpickup %Color1 Server's ip: %ip $+  - Check your ping! %Color2 }

}

}}

on 30:TEXT:!addmap*:%channelpickup:{

  if ($nick == %admin) {

    set %map $2-

  topic %channelpickup %Color1 Game started! - Admin: %admin - Type: %type - Map: %map %Color2  }

  notice %support %Color1 Mixed started on %map by %admin - Join at %channelpickup and add your self! %Color2

}

on 30:TEXT:!settopic *:%channelpickup:{

  if ($nick == %admin) {

    set %map $2-

  topic %channelpickup %Color1 Gbot %Color2  }

}

on 30:TEXT:!addtype *:%channelpickup:{

  if ($nick == %admin) {

    set %type $2-

  topic %channelpickup %Color1 Game started! - Admin: %admin - Type: %type - Map: %map %Color2  }

}

 

on 30:TEXT:needsub:?:{

  if (%sub == 0) {

    set %sub 1

    msg %channelpickup %Color1 Substitution request by admin %admin - Type !sub to play NOW! %Color2

    notice %support %Color1 Substitution request by admin $nick - Join at %channelpickup and type !sub to play NOW! %Color2

    mode %channelpickup -Mm

 

 

  }

}

on 30:TEXT:cancelsub:?:{

  if (%game == 1) && (%sub == 1) {

    msg %channelpickup %Color1 Substitution request by admin %admin - Type !sub to play NOW! %Color2

    notice $nick %Color1 Substitution request canceled! %Color2

    mode %channelpickup -Mm

 

 

  }

}

on *:TEXT:!sub:%channelpickup:{

  if (%game == 1) && (%sub == 1) {

    set %sub 0

    msg $nick %Color1 Admin %admin will msg you with connect line %Color2

    msg %admin %Color1 User $nick took the sub request !! Msg him with the connect line %Color2

 

 

  }

}

on *:TEXT:!settopic*:%channelpickup:{

  if ($nick == %admin)  && (%game == 0 ) {

    set %topic $2

    topic %channelpickup $2

 

  }

} 

on *:TEXT:!add:%channelpickup:{

  if (%game == 1) {

    notice %channelpickup %Color1 Wait $nick for %admin aprove %Color2

    msg %admin %Color1 User $nick requested to add him %Color2

 

  }

}

 

on 30:TEXT:user1*:?:{

  if ($nick == %admin) {

    set %user1 $2

    msg %channelpickup %Color1 Currently Team A(CTs): %user1 - %user2 - %user3 - %user4 - %user5 - %user6 - %user7 - %user8 - %user9 - %user10 %Color2

 

  }

}

on 30:TEXT:user2*:?:{

  if ($nick == %admin) {

    set %user2 $2

    msg %channelpickup %Color1 Currently Team A(CTs): %user1 - %user2 - %user3 - %user4 - %user5 - %user6 - %user7 - %user8 - %user9 - %user10 %Color2

 

  }

}

on 30:TEXT:user3*:?:{

  if ($nick == %admin) {

    set %user3 $2

    msg %channelpickup %Color1 Currently Team A(CTs): %user1 - %user2 - %user3 - %user4 - %user5 Team B(TERRORISTs) %user6 - %user7 - %user8 - %user9 - %user10 %Color2

 

  }

}

on 30:TEXT:user4*:?:{

  if ($nick == %admin) {

    set %user4 $2

    msg %channelpickup %Color1 Currently Team A(CTs): %user1 - %user2 - %user3 - %user4 - %user5 Team B(TERRORISTs) %user6 - %user7 - %user8 - %user9 - %user10 %Color2

 

  }

}

on 30:TEXT:user5*:?:{

  if ($nick == %admin) {

    set %user5 $2

    msg %channelpickup %Color1 Currently Team A(CTs): %user1 - %user2 - %user3 - %user4 - %user5 Team B(TERRORISTs) %user6 - %user7 - %user8 - %user9 - %user10 %Color2

 

  }

}

on 30:TEXT:user6*:?:{

  if ($nick == %admin) {

    set %user6 $2

    msg %channelpickup %Color1 Currently Team A(CTs): %user1 - %user2 - %user3 - %user4 - %user5 Team B(TERRORISTs) %user6 - %user7 - %user8 - %user9 - %user10 %Color2

 

  }

}

on 30:TEXT:user7*:?:{

  if ($nick == %admin) {

    set %user7 $2

    msg %channelpickup %Color1 Currently Team A(CTs): %user1 - %user2 - %user3 - %user4 - %user5 Team B(TERRORISTs) %user6 - %user7 - %user8 - %user9 - %user10 %Color2

 

  }

}

on 30:TEXT:user8*:?:{

  if ($nick == %admin) {

    set %user8 $2

    msg %channelpickup %Color1 Currently Team A(CTs): %user1 - %user2 - %user3 - %user4 - %user5 Team B(TERRORISTs) %user6 - %user7 - %user8 - %user9 - %user10 %Color2

 

  }

}

on 30:TEXT:user9*:?:{

  if ($nick == %admin) {

    set %user9 $2

    msg %channelpickup %Color1 Currently Team A(CTs): %user1 - %user2 - %user3 - %user4 - %user5 Team B(TERRORISTs) %user6 - %user7 - %user8 - %user9 - %user10 %Color2

 

  }

}

on 30:TEXT:addme*:?:{

  if ($nick == %admin) {

    set %user10 $2

    msg %channelpickup %Color1 Currently Team A(CTs): %user1 - %user2 - %user3 - %user4 - %user5 - %user6 - %user7 - %user8 - %user9 - %user10 %Color2

  }

}

on 30:TEXT:startgame*:?:{

  if ($nick == %admin) {

    set %game 0

    msg %channelpickup %Color1 Currently Team A(CTs): %user1 - %user2 - %user3 - %user4 - %user5 Team B(TERRORISTs) %user6 - %user7 - %user8 - %user9 - %user10 %Color2

    mode %channelpickup +Mm

    topic %channelpickup %Color1 Gbot %Color2

    %Color1 Match is starting on %map , please wait during password forwarding.. Check your private messages and DO NOT RENAME NOW !!

    msg %user1 %Color1 The Game is now live! - Your admin is %admin .Server's ip is %ip and password %password - connect %ip ; %password ; name %user1 %Color2

    msg %user2 %Color1 The Game is now live! - Your admin is %admin .Server's ip is %ip and password %password - connect %ip ; %password ; name %user2 %Col

    msg %user3 %Color1 The Game is now live! - Your admin is %admin .Server's ip is %ip and password %password - connect %ip ; %password ; name %user3 %Col

    msg %user4 %Color1 The Game is now live! - Your admin is %admin .Server's ip is %ip and password %password - connect %ip ; %password ; name %user4 %Color2

    msg %user5 %Color1 The Game is now live! - Your admin is %admin .Server's ip is %ip and password %password - connect %ip ; %password ; name %user5 %Color2

    msg %user6 %Color1 The Game is now live! - Your admin is %admin .Server's ip is %ip and password %password - connect %ip ; %password ; name %user6 %Color2

    msg %user7 %Color1 The Game is now live! - Your admin is %admin .Server's ip is %ip and password %password - connect %ip ; %password ; name %user7 %Color2

    msg %user8 %Color1 The Game is now live! - Your admin is %admin .Server's ip is %ip and password %password - connect %ip ; %password ; name %user8 %Color2

    msg %admin %Color1 The Game is now live! - Your admin is %admin .Server's ip is %ip and password %password - connect %ip ; %password ; name %user9 %Color2

    msg %admin %Color1 The Game is now live! - Your admin is %admin .Server's ip is %ip and password %password - connect %ip ; %password ; name %user10 %Color2

    msg %channelpickup %Color1 If you didn't get ip and pass msg %admin %Color2

    unset %user1

    unset %user2

    unset %user3

    unset %user4

    unset %user5

    unset %user6

    unset %user7

    unset %user8

    unset %user9

    unset %user10

    unset %admin

    unset %game

    unset %ip

    unset %password

  }

}

 

on *:TEXT:!teams:%channelpickup:{

  if (%game == 1) {

    msg %channelpickup %Color1 Currently  %user1 - %user2 - %user3 - %user4 - %user5 - %user6 - %user7 - %user8 - %user9 - %user10 %Color2

 

  }

}

Credits: Logi32gr