GatherBot Snippets

Admin Fri May 04, 2012 7:45 am

By mafas

Code:: on *:text:.start*:?:{ if ($2) && ($3) && ($4) && ($5) && ($6) && ($nick = %admin) { .set %server.ip $2 .set %server.pass $3 .set %server.map $4 .set %server.kom.vienas $5 .set %server.kom.du $6 .set %zaidejai.dabar 0 if (%kova != $null) { .set %kova $calc(%kova + 1) } elseif (%kova = $null) { .set %kova 1 } start } else { .msg $nick Wrong syntax. } close -m $nick } alias start { .set %gather.on 1 .set %last.player 0 .set %zaidejai.dabar 0 .set %p1 x | .set %p2 x | .set %p3 x | .set %p4 x | .set %p5 x | .set %p6 x | .set %p7 x | .set %p8 x | .set %p9 x | .set %p10 x .msg %chan 0,1Gather Bot: 10 $+ %server.kom.vienas 0 $+ vs 10 $+ %server.kom.du $+ 0. Admin: 8 $+ %admin $+ 0. Map: 10 $+ %server.map 0 $+ . Simple game. [ $+ %kova $+ ] Match .msg %chan 0,1Players [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 } on *:text:!add*:#:{ if (%gather.on = 1) { if ($2) { if ($2 ison $chan) && ($nick = %admin) { if (%p1 != $2) && (%p2 != $2) && (%p3 != $2) && (%p4 != $2) && (%p5 != $2) && (%p6 != $2) && (%p7 != $2) && (%p8 != $2) && (%p9 != $2) && (%p10 != $2) { if (%p10 = x) && (%last.player != 10) { .set %p $+ $calc(%last.player + 1) $2- .set %last.player $calc(%last.player + 1) .write gather.txt $2- .set %zaidejai.dabar $calc(%zaidejai.dabar + 1) .msg %chan 0,1Players [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 if (%last.player = 10) { .msg $chan 8,1 15Gather 4begins15. Password and other information players will get in 2 minutes | /make.teams } } } else { .msg %chan 0,1 $2- is already in game. } } elseif ($2 !ison $chan) { .msg %chan 0,1 $2 is not in the channel } } else { if (%p1 != $nick) && (%p2 != $nick) && (%p3 != $nick) && (%p4 != $nick) && (%p5 != $nick) && (%p6 != $nick) && (%p7 != $nick) && (%p8 != $nick) && (%p9 != $nick) && (%p10 != $nick) { if (%p10 = x) && (%last.player != 10) { .set %p $+ $calc(%last.player + 1) $nick .set %last.player $calc(%last.player + 1) .write gather.txt $nick .set %zaidejai.dabar $calc(%zaidejai.dabar + 1) .msg %chan 0,1Players [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 if (%last.player = 10) { make.teams } } } else { .msg %chan 0,1You are already in the game. } } } } on *:text:!rem*:#:{ if (%gather.on = 1) { if ($2) && ($nick = %admin) { if (%p1 = $2) { .set %p1 %p2 | .set %p2 %p3 | .set %p3 %p4 | .set %p4 %p5 | .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $2- gather.txt } elseif (%p2 = $2) { .set %p2 %p3 | .set %p3 %p4 | .set %p4 %p5 | .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $2- gather.txt } elseif (%p3 = $2) { .set %p3 %p4 | .set %p4 %p5 | .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $2- gather.txt } elseif (%p4 = $2) { .set %p4 %p5 | .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $2- gather.txt } elseif (%p5 = $2) { .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $2- gather.txt } elseif (%p6 = $2) { .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $2- gather.txt } elseif (%p7 = $2) { .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1 | /.write -ds $+ $2- gather.txt) } elseif (%p8 = $2) { .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) } elseif (%p9 = $2) { .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) } } else { if (%p1 = $nick) { .set %p1 %p2 | .set %p2 %p3 | .set %p3 %p4 | .set %p4 %p5 | .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p2 = $nick) { .set %p2 %p3 | .set %p3 %p4 | .set %p4 %p5 | .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p3 = $nick) { .set %p3 %p4 | .set %p4 %p5 | .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p4 = $nick) { .set %p4 %p5 | .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p5 = $nick) { .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p6 = $nick) { .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p7 = $nick) { .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p8 = $nick) { .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p9 = $nick) { .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } } } } on *:part:#:{ if (%gather.on = 1) { if (%p1 = $nick) { .set %p1 %p2 | .set %p2 %p3 | .set %p3 %p4 | .set %p4 %p5 | .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p2 = $nick) { .set %p2 %p3 | .set %p3 %p4 | .set %p4 %p5 | .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p3 = $nick) { .set %p3 %p4 | .set %p4 %p5 | .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p4 = $nick) { .set %p4 %p5 | .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p5 = $nick) { .set %p5 %p6 | .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p6 = $nick) { .set %p6 %p7 | .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p7 = $nick) { .set %p7 %p8 | .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p8 = $nick) { .set %p8 %p9 | .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } elseif (%p9 = $nick) { .set %p9 %p10 | .set %p10 x | .set %zaidejai.dabar $calc(%zaidejai.dabar - 1) | .msg %chan 0,1Zaidejai [ $+ %zaidejai.dabar $+ /10]:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 $+ 0 $chr(124) $+ 11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 | .set %last.player $calc(%last.player - 1) | /.write -ds $+ $nick gather.txt } } } alias make.teams { if ($len(gather.txt) = 10) { .set %i 1 .set %last.num 1 while (%i <= 10) { .set %tmp $read(gather.txt) .set %p $+ %last.num %tmp inc %i .set %last.num $calc(%last.num + 1) if ($readini(taskai.ini,taskai,%tmp) = $null) { .writeini -n taskai.ini taskai %tmp 1 } elseif ($readini(taskai.ini,taskai,%tmp) != $null) { .set %taskai $readini(taskai.ini,taskai,%tmp) .writeini -n taskai.ini taskai %tmp $calc(%taskai + 1) .unset %taskai } /.write -ds $+ %tmp gather.txt .unset %tmp } .set %adm.taskai $readini(taskai.ini,adminai,%admin) .writeini -n taskai.ini adminai %admin $calc(%adm.taskai + 1) msg $chan 0,1Match begins. Teams: 8 $+ %server.kom.vienas $+ 0:11 %p1 $+ 0 $chr(124) $+ 11 %p2 $+ 0 $chr(124) $+ 11 %p3 $+ 0 $chr(124) $+ 11 %p4 $+ 0 $chr(124) $+ 11 %p5 8 $+ %server.kom.du $+ 0:11 %p6 $+ 0 $chr(124) $+ 11 %p7 $+ 0 $chr(124) $+ 11 %p8 $+ 0 $chr(124) $+ 11 %p9 $+ 0 $chr(124) $+ 11 %p10 $+ 0. Please wait till we send you an information. If you wont get it please tell to game administrator [8 $+ %admin $+ 0] /send.pass .unset %adm.taskai } } on *:text:!off:#:{ if ($nick = %admin) { if (%gather.on = 1) { .set %gather.on 0 .msg $chan 0,1Gather game is now off .set %p1 x | .set %p2 x | .set %p3 x | .set %p4 x | .set %p5 x | .set %p6 x | .set %p7 x | .set %p8 x | .set %p9 x | .set %p10 x .unset %nick .unset %pass.typed | .unset %last.player | .unset %last.num /.remove gather.txt .set %online 0 } elseif (%gather.on = 0) { msg $chan 0,1Gather is not turned on. } } } alias send.pass { .write gather.txt %p1 | .write gather.txt %p2 | .write gather.txt %p3 | .write gather.txt %p4 | .write gather.txt %p5 | .write gather.txt %p6 | .write gather.txt %p7 | .write gather.txt %p8 | .write gather.txt %p9 | .write gather.txt %p10 .set %i 1 while (%i <= 10) { .set %tmp $read(gather.txt,%i) inc %i if (%tmp != $null) { .msg %tmp 0,1Hi, server ip: 8 $+ %server.ip 0 and pass 8 $+ %server.pass .msg %tmp 0,1Good luck & have fun } .unset %tmp } .msg %chan 0,1Information is sent. /.remove gather.txt if (%gather.on = 1) { .set %gather.on 0 .set %p1 x | .set %p2 x | .set %p3 x | .set %p4 x | .set %p5 x | .set %p6 x | .set %p7 x | .set %p8 x | .set %p9 x | .set %p10 x .unset %ip | .unset %port | .unset %chan | .unset %nick .unset %pass.typed | .unset %last.player | .unset %last.num /.remove gather.txt .set %online 0 } } menu menubar { Gather .Password(needed for become admin) ( %pass ):/.set %pass $?="Kodas" .Password(to become admin) ( %admin.pass.tapti ):/.set %admin.pass.tapti $?="Kodas" .- .Channel ( %chan ):/.set %chan $?="Kanalas?" .- .Buy options:/dialog -m gth.buy gth.buy } on *:text:!rank*:#:{ if (!$2) { .set %nick $nick if ($readini(taskai.ini,taskai,%nick) != $null) { .msg $chan 0,1Nick: %nick $chr(124) Points: $readini(taskai.ini,taskai,%nick) } elseif ($readini(taskai.ini,taskai,%nick) = $null) { .msg $chan 0,1 $+ %nick didn't play eny matches. } } elseif ($2) { .set %nick $2- if ($readini(taskai.ini,taskai,%nick) != $null) { msg $chan 0,1Nick: %nick $chr(124) Points: $readini(taskai.ini,taskai,%nick) } elseif ($readini(taskai.ini,taskai,%nick) = $null) { .msg $chan 0,1 $+ %nick didn't play eny matches. } } } on *:text:!buy:#:{ .notice $nick You can buy: .set %end $lines(items.txt) .set %i 1 while (%i <= %end) { .set %gth.buy $read(items.txt,%i) .notice $nick $+(%i,$chr(41)) $gettok(%gth.buy,1,32) $gettok(%gth.buy,2,32) inc %i } .notice $nick Write to the private what do you want to buy. Format: !buy number. Ex: !buy 1 (points will be detracted.) .unset %gth.buy | .unset %i | .unset %end } on *:text:!buy*:?:{ .set %nick $nick .set %pirkti.num $2- if ($readini(taskai.ini,taskai,%nick) != $null) { .set %taskai $readini(taskai.ini,taskai,%nick) .set %tmp.gth $read(items.txt,%pirkti.num) if (%taskai = $gettok(%tmp.gth,2,32)) { .remini taskai.ini taskai %nick .set %action.gth $gettok(%tmp.gth,3-,32) %action.gth .msg %nick You have no more points. .close -m %nick } elseif (%taskai > $gettok(%tmp.gth,2,32)) { .remini taskai.ini taskai %nick .writeini -n taskai.ini taskai %nick $calc(%taskai - $gettok(%tmp.gth,2,32)) .set %action.gth $gettok(%tmp.gth,3-,32) %action.gth .msg %nick You have $readini(taskai.ini,taskai,%nick) points .close -m %nick } elseif (%taskai < $gettok(%tmp.gth,2,32)) { .msg %nick You don't have enough points. .close -m %nick } } else { .msg %nick You have no points. .close -m %nick } .unset %nick | .unset %action.gth | .unset %taskai | .unset %pirkti.num } on *:text:.addhost*:?:{ .set %nick $2 .set %admin.pass.new $4 if ($3 != %admin.pass.tapti) { .msg %nick ne toks kodas. | .close -m %nick } elseif ($3 = %admin.pass.tapti) { .writeini -n taskai.ini adminai %nick 0 .writeini -n taskai.ini adminai.pass %nick %admin.pass.new .msg %nick You are registered to gather admins. To be the game admin type in private .admin passowrd ex: .admin hello .close -m %nick } } on *:text:.admin*:?:{ .set %nick $nick .set %pass $2 if ($readini(taskai.ini,adminai.pass,%nick) = %pass) { .msg %nick You are now the game administrator. | .set %admin %nick | .close -m %nick } elseif ($readini(taskai.ini,adminai.pass,%nick) != %pass) { .msg %nick Wrong password. } .close -m %nick .unset %pass | .unset %nick } on *:text:.commands:?:{ .msg $nick 0,1Start game: type in private .start IP Server_Pass Map Team_1 Team_2 .msg $nick 0,1End game: Type in channel !off .msg $nick 0,1Registration for admins: Type in private .addhost nick password your_password .msg $nick 0,1Be an admin: Type in private .admin your_password .close -m $nick } on *:text:!kick*:#:{ if ($nick isop $chan) { if ($2 ison $chan) { if ($3) { .kick $chan $2 $3 } elseif (!$3) { .kick $chan $2 } } } } on *:text:!ban*:#:{ if ($nick isop $chan) { if ($2 ison $chan) { .ban $chan $2 } } } on *:text:!kb*:#:{ if ($nick isop $chan) { if ($2 ison $chan) { if ($3) { .ban $chan $2 | .kick $chan $2 $3 } elseif (!$3) { .ban $chan $2 | .kick $chan $2 } } } } on *:text:!voice*:#:{ if ($nick isop $chan) { if ($2 ison $chan) { .mode $chan +v $2 } } } on *:text:!devoice*:#:{ if ($nick isop $chan) { if ($2 ison $chan) { .mode $chan -v $2 } } } on *:text:!op*:#:{ if ($nick isop $chan) { if ($2 ison $chan) { .mode $chan +o $2 } } } on *:text:!deop*:#:{ if ($nick isop $chan) { if ($2 ison $chan) { .mode $chan -o $2 } } } on *:text:.gstats:#:{ .set %end $ini(taskai.ini,adminai,0) .set %i 1 while (%i <= %end) { .set %tmp $ini(taskai.ini,adminai,%i) .write adminai.txt %tmp $readini(taskai.ini,adminai,%tmp) inc %i } .set %end $lines(adminai.txt) .set %admin_num 0 .set %output 0,1Admins Stats: goto admin.tikrinimas :admin.tikrinimas if (%admin_num < %end) { .set %admin_num $calc(%admin_num + 1) | goto make.admin.list } elseif (%admin_num = %end) { .msg %chan %output | .remove adminai.txt | halt } :make.admin.list .set %output %output $chr(32) $+(11,$read(adminai.txt,%admin_num)) $readini(taskai.ini,adminai,%admin_num) $+(0,$chr(124)) | goto admin.tikrinimas } dialog gth.buy { title "Gather Bot Buy Dialog" size -1 -1 160 104 option dbu box "List", 1, 1 1 86 101 list 2, 3 10 81 89, size hsbar vsbar box "Price", 3, 90 26 70 23 edit "", 4, 91 11 67 10, center autohs box "Name", 5, 90 3 70 23 edit "", 6, 91 34 67 10, center autohs button "ADD", 7, 89 76 34 12 button "DEL", 8, 125 76 34 12 button "OK", 9, 88 90 71 12, ok edit "", 10, 91 58 67 10, center autohs box "Action", 11, 90 50 70 23 } on *:dialog:gth.buy:sclick:7:{ .set %name $did(4) .set %price $did(6) .set %action $did(10) if (%name != $null) && (%price != $null) { .write items.txt %name %price %action did -a $dname 2 %name %price %action } .unset %name | .unset %price | .unset %action did -r $dname 4,6,10 } on *:dialog:gth.buy:init:*:{ did -r $dname 2 .set %end $lines(items.txt) .set %i 1 while (%i <= %end) { .set %tmp.buy $read(items.txt,%i) .did -a $dname 2 %tmp.buy inc %i } .unset %i | .unset %tmp.buy | .unset %end } on *:dialog:gth.buy:sclick:2:{ .set %tmp.buy $did(2).seltext .set %name $gettok(%tmp.buy,1,32) .set %price $gettok(%tmp.buy,2,32) .set %action $gettok(%tmp.buy,3-,32) did -ra $dname 4 %name did -ra $dname 6 %price did -ra $dname 10 %action } on *:dialog:gth.buy:sclick:8:{ .set %end $lines(items.txt) .set %i 1 while (%i <= %end) { .set %tmp.gth $read(items.txt,%i) if (%tmp.gth = %tmp.buy) { .write $+(-dl,%i) items.txt did -r $dname 2 } inc %i } .set %end2 $lines(items.txt) .set %ii 1 while (%ii <= %end2) { .set %tmp.gth $read(items.txt,%ii) did -a $dname 2 %tmp.gth inc %ii } did -r $dname 4,6,10 .unset %name | .unset %price | .unset %tmp.buy | .unset %i | .unset %tmp.gth | .unset %ii | .unset %end2 } on *:text:!commands:#:{ .notice $nick 0,1Admins stats: Type .gstats .notice $nick 0,1Players stats: Type !rank or !rank name }

Mon	Tue	Wed	Thu	Fri	Sat	Sun
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30