АЙЛЯЛЯ, ЛЯЛЯЛЯ, МЫ КУРИЛИ КАНАПЛЯ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
![гильдия Собиратели (Мастер)[6134]](../images/clans/druids_small.gif){kind=small}
Arsenal 
Назад к темам раздела.
2007-10-31 15:40:41 ![гильдия Столичные Шахтеры (Грандмастер)[31302]](../images/clans/miners_capital_small.gif){kind=small} ![гильдия Столичные Ювелиры (Адепт)[812]](../images/clans/jewelry_small.gif){kind=small} Kryl |
2007-10-31 15:49:39 ![гильдия Мудрецы (Мастер)[4425]](../images/clans/thinkers_small.gif){kind=small} ![гильдия Королевские Лабоходы (Мастер)[3674]](../images/clans/labers_small.gif){kind=small} Ричард_Окделл ОТОРЯЙСЯ ВОТОТААА...ЫЫЫЫЫ |
2007-10-31 15:51:08 ![гильдия Бойцы (Адепт)[2490]](../images/clans/fighters_small.gif){kind=small} ![гильдия Механисты (Мастер)[5337]](../images/clans/mechanists_small.png){kind=small} Живчик Arsenal А мы дурью маемся, водкой страдаем, да девками болеем. Воть. |
| 2007-10-31 15:51:10 Kryl ;Останов бота человеком с ником $1 haltbot1 { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),halt) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } timer1 off %ishalted = 1 %ispaused = 0 endgame msg %curchannel $read(mafbot $+ %mesdir $+ othershaltbot1.txt) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Halt game by $getnicksysuser($1) } ;Регистрация игрока администратором канала reguser { var %tnick var %tuser var %tclone if (%isgame == 0) { mode %curchannel -v $1 | return } if (($isnickplayer($1) == 1) && ($isexited($1) == 0) && ($iskicked($1) == 0)) return if ((($getnicksysuser($2) == 0) || ($isnicksyshaspriv($getnicksysuser($2),reguser) == 0)) && ($2 != $me)) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) return } %tuser = $getnicksysuser($1) if (%tuser == 0) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $1 $read(mafbot $+ %mesdir $+ othersownermustidentify.txt) return } if ($gisnickplayer($1) == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotrepeatreg.txt) return } if ($dll(mafbotmafbot.dll,getcuraddress,%tuser) == $null) { if ($1 isvoice %curchannel) mode %curchannel -v $1 return } if ($1 ison %curchannel) { if ($dll(mafbotmafbot.dll,getset,%tuser blocked) == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ othersuserblocked.txt) return } %tclone = $checkforclones($1) if (%tclone == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ othersclonedetected.txt) return } tadd players tmod players name $tnumrecs(players) $1 tmod players numrej $tnumrecs(players) %numrej tmod players role $tnumrecs(players) 1 tmod players address $tnumrecs(players) $dll(mafbotmafbot.dll,getcuraddress,%tuser) tmod players uname $tnumrecs(players) %tuser tmod players ofnote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) tmod players lognote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) tmod players victime $tnumrecs(players) $null tmod players phrase $tnumrecs(players) $null inc %numciv inc %numplayers inc %numciv2 if ($1 !isvoice %curchannel) mode %curchannel +v $1 if ($1 isop %curchannel && $1 != $me) mode %curchannel -o $1 if ($1 ishop %curchannel && $1 != $me) mode %curchannel -h $1 msg %curchannel $read(mafbot $+ %mesdir $+ othersreguser.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Reguser $1 by $getnicksysuser($2) } } ;Выброс человеком $1 человека $2 из игры с комментом $3 kickfromgameby { if (($isnickplayer($2) == 0) || ($iskicked($2) == 1) || ($isexited($2) == 1) || (%isgame == 0) || ($2 == $null)) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),k) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | if ($2 !isvoice %curchannel) mode %curchannel +v $2 | return } if ((($getnicksysuser($2) != 0) && ($isnicksyshaspriv($getnicksysuser($2),protect) == 1) && ($isnicksyshaspriv($getnicksysuser($1),protect) == 0)) || ($2 == $me)) { msg $1 $read(mafbot $+ %mesdir $+ othersuserprotected.txt) if ($2 !isvoice %curchannel) mode %curchannel +v $2 return } msg %curchannel $read(mafbot $+ %mesdir $+ otherskickfromgame.txt) kamikadze $2 write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Kick from game $2 by $getnicksysuser($1) with comment: $3- } setpaused { var %maintimernum var %i if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (%ispaused != 0) return %i = 1 :next if (%i > $timer(0)) { msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotpause.txt) | return } if ($timer(%i) == 1) { %maintimernum = %i | goto end } inc %i goto next :end remove mafbotpausecom.txt remove mafbotpausesecs.txt write -l1 mafbotpausecom.txt $timer(%maintimernum).com | write -l1 mafbotpausesecs.txt $timer(%maintimernum).secs timer1 off %ispaused = 1 if (%isconnected == 1) { if ($1 != $null) msg %curchannel $read(mafbot $+ %mesdir $+ othersgamepaused.txt) else msg %curchannel $read(mafbot $+ %mesdir $+ othersautopause.txt) } write -l1 mafbotpausepausetime.txt $ctime if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - $asctime(HH:nn:ss dd/mm/yy) - Pause by $getnicksysuser($1) else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autopause } setunpaused { if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (%ispaused == 0) return else afterpause if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Resume by $getnicksysuser($1) else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autoresume } whatrole { var %mes var %tnick var %i var %trole if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return if ($2 == $null) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (($2 == $tget(roles,code,2)) && (%gnumkat != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekat.txt) | return } if (($2 == $tget(roles,code,4)) && (%gnumman != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleman.txt) | return } if (($2 == $tget(roles,code,5)) && (%gnumdok != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledok.txt) | return } if (($2 == $tget(roles,code,6)) && (%gnumbom != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolebom.txt) | return } if (($2 == $tget(roles,code,7)) && (%gnumdev != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledev.txt) | return } if (($2 == $tget(roles,code,8)) && (%gnumadv != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleadv.txt) | return } if (($2 == $tget(roles,code,9)) && (%gnumrep != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolerep.txt) | return } if (($2 == $tget(roles,code,10)) && (%gnumhak != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolehak.txt) | return } if (($2 == $tget(roles,code,11)) && (%gnumnec != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolenec.txt) | return } if (($2 == $tget(roles,code,12)) && (%gnumkil != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekil.txt) | return } if (($2 == $tget(roles,code,13)) && (%gnumagn != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleagn.txt) | return } if (($2 == $tget(roles,code,17)) && (%gnumshi != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleshi.txt) | return } if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } if (($2 == $tget(roles,code,15)) && (%gnumdem != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledem.txt) | return } if (($2 == $tget(roles,code,16)) && (%gnumgho != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolegho.txt) | return } if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } if ($2 == $tget(roles,codemn,3)) { if (%gnummaf == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolemaf.txt) %i = 1 :agmaf if (%i > $tnumrecs(players)) goto endmaf %tnick = $tget(players,name,%i) if ($tget(players,role,%i) != 3) { inc %i | goto agmaf } %mes = %mes %tnick $+ , inc %i goto agmaf :endmaf msg $1 $left(%mes,-1) return } if ($2 == $tget(roles,codemn,1)) { if (%gnumciv == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } %mes = $read(mafbot $+ %mesdir $+ checkroleswhatroleciv.txt) %i = 1 :agciv if (%i > $tnumrecs(players)) goto endciv %tnick = $tget(players,name,%i) if ($tget(players,role,%i) != 1) { inc %i | goto agciv } %mes = %mes %tnick $+ , inc %i goto agciv :endciv msg $1 $left(%mes,-1) return } if ($2 == $tget(roles,codemn,14)) { if (%gnumvam == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolevam.txt) %i = 1 :agvam if (%i > $tnumrecs(players)) goto endvam %tnick = $tget(players,name,%i) if ($tget(players,vampire,%i) != 1) { inc %i | goto agvam } %mes = %mes %tnick $+ , inc %i goto agvam :endvam msg $1 $left(%mes,-1) return } %trole = $role($2) if ((%trole == 0) && ($tfind(players,name,$2) != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckciv.txt) | return } if (%trole == 1) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkat.txt) | return } if (%trole == 2) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckmaf.txt) | return } if (%trole == 3) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckman.txt) | return } if (%trole == 4) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdok.txt) | return } if (%trole == 5) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckbom.txt) | return } if (%trole == 6) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdev.txt) | return } if (%trole == 7) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckadv.txt) | return } if (%trole == 8) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckrep.txt) | return } if (%trole == 9) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckhak.txt) | return } if (%trole == 10) { msg $1 $read(mafbot $+ %mesdir $+ checkroleschecknec.txt) | return } if (%trole == 11) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkil.txt) | return } if (%trole == 12) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckagn.txt) | return } if (%trole == 16) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckshi.txt) | return } if (%trole == 17) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckble.txt) | return } msg $1 $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatrole $2 by $getnicksysuser($1) } whatpoints { if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return if ($2 == $null) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg $1 $read(mafbot $+ %mesdir $+ othersshowmoney2.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatpoints $2 by $getnicksysuser($1) } execute { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } $2- write mafbotlogsmain.log $asctime(HH:nn:ss dd/mm/yy) - Execute by $getnicksysuser($1) - $2- } sayfromadmin { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),say) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg %curchannel %ncol $+ $getnicksysuser($1) $+ : $+ %ccol $2- write mafbotlogssay.log $asctime(HH:nn:ss dd/mm/yy) - Say by $getnicksysuser($1) - $2- } userhostcommand { if (%isuserhost == 1) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),userhost) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if ($2 !ison %curchannel) { msg $1 %ncol $+ $2 %rcol $+ отсутствует на канале! | return } if (%addressesmode != 1) { msg $1 %rcol $+ Реальный адрес пользователя $+ %ncol $2 %rcol $+ - это $+ %ncol $gettok($address($2,2),2,64) | return } %isuserhost = 1 %userhostuser = $1 %userhostnick = $2 whois $2 timeruserhost -o 1 10 userhosttimeout write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Userhost $2 by $getnicksysuser($1) } getuserhost { if (%isuserhost == 0) return if ($1 != %userhostnick) return msg %userhostuser %rcol $+ Реальный адрес пользователя $+ %ncol $1 %rcol $+ - это $+ %ncol $right($left($2,-1),-1) timeruserhost off %isuserhost = 0 } userhosttimeout { %isuserhost = 0 } getlastclearlogs { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),logadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg $1 %rcol $+ В последний раз чистка логов mIRC производилась: %ncol $+ $asctime($read(mafbotlastclearlogs.txt,t,1),HH:nn:ss dd/mm/yy) } getlastbackup { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg $1 %rcol $+ В последний раз резервное архивирование статистики и настроек производилось: %ncol $+ $asctime($read(mafbotlastbackup.txt,t,1),HH:nn:ss dd/mm/yy) } showskins { var %i var %tskin var %mes if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } %i = 1 %mes = %ccol $+ Найденные скины: :next %tskin = $getfilename($findfile(mafbotiniskins,*.ini,%i)) if (%tskin == $null) goto end %mes = %mes %ncol $+ %tskin $+ %rcol $+ , inc %i goto next :end msg $1 $left(%mes,-1) ;Останов бота человеком с ником $1 haltbot1 { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),halt) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } timer1 off %ishalted = 1 %ispaused = 0 endgame msg %curchannel $read(mafbot $+ %mesdir $+ othershaltbot1.txt) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Halt game by $getnicksysuser($1) } ;Регистрация игрока администратором канала reguser { var %tnick var %tuser var %tclone if (%isgame == 0) { mode %curchannel -v $1 | return } if (($isnickplayer($1) == 1) && ($isexited($1) == 0) && ($iskicked($1) == 0)) return if ((($getnicksysuser($2) == 0) || ($isnicksyshaspriv($getnicksysuser($2),reguser) == 0)) && ($2 != $me)) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) return } %tuser = $getnicksysuser($1) if (%tuser == 0) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $1 $read(mafbot $+ %mesdir $+ othersownermustidentify.txt) return } if ($gisnickplayer($1) == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotrepeatreg.txt) return } if ($dll(mafbotmafbot.dll,getcuraddress,%tuser) == $null) { if ($1 isvoice %curchannel) mode %curchannel -v $1 return } if ($1 ison %curchannel) { if ($dll(mafbotmafbot.dll,getset,%tuser blocked) == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ othersuserblocked.txt) return } %tclone = $checkforclones($1) if (%tclone == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ othersclonedetected.txt) return } tadd players tmod players name $tnumrecs(players) $1 tmod players numrej $tnumrecs(players) %numrej tmod players role $tnumrecs(players) 1 tmod players address $tnumrecs(players) $dll(mafbotmafbot.dll,getcuraddress,%tuser) tmod players uname $tnumrecs(players) %tuser tmod players ofnote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) tmod players lognote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) tmod players victime $tnumrecs(players) $null tmod players phrase $tnumrecs(players) $null inc %numciv inc %numplayers inc %numciv2 if ($1 !isvoice %curchannel) mode %curchannel +v $1 if ($1 isop %curchannel && $1 != $me) mode %curchannel -o $1 if ($1 ishop %curchannel && $1 != $me) mode %curchannel -h $1 msg %curchannel $read(mafbot $+ %mesdir $+ othersreguser.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Reguser $1 by $getnicksysuser($2) } } ;Выброс человеком $1 человека $2 из игры с комментом $3 kickfromgameby { if (($isnickplayer($2) == 0) || ($iskicked($2) == 1) || ($isexited($2) == 1) || (%isgame == 0) || ($2 == $null)) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),k) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | if ($2 !isvoice %curchannel) mode %curchannel +v $2 | return } if ((($getnicksysuser($2) != 0) && ($isnicksyshaspriv($getnicksysuser($2),protect) == 1) && ($isnicksyshaspriv($getnicksysuser($1),protect) == 0)) || ($2 == $me)) { msg $1 $read(mafbot $+ %mesdir $+ othersuserprotected.txt) if ($2 !isvoice %curchannel) mode %curchannel +v $2 return } msg %curchannel $read(mafbot $+ %mesdir $+ otherskickfromgame.txt) kamikadze $2 write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Kick from game $2 by $getnicksysuser($1) with comment: $3- } setpaused { var %maintimernum var %i if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (%ispaused != 0) return %i = 1 :next if (%i > $timer(0)) { msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotpause.txt) | return } if ($timer(%i) == 1) { %maintimernum = %i | goto end } inc %i goto next :end remove mafbotpausecom.txt remove mafbotpausesecs.txt write -l1 mafbotpausecom.txt $timer(%maintimernum).com | write -l1 mafbotpausesecs.txt $timer(%maintimernum).secs timer1 off %ispaused = 1 if (%isconnected == 1) { if ($1 != $null) msg %curchannel $read(mafbot $+ %mesdir $+ othersgamepaused.txt) else msg %curchannel $read(mafbot $+ %mesdir $+ othersautopause.txt) } write -l1 mafbotpausepausetime.txt $ctime if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - $asctime(HH:nn:ss dd/mm/yy) - Pause by $getnicksysuser($1) else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autopause } setunpaused { if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (%ispaused == 0) return else afterpause if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Resume by $getnicksysuser($1) else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autoresume } whatrole { var %mes var %tnick var %i var %trole if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return if ($2 == $null) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (($2 == $tget(roles,code,2)) && (%gnumkat != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekat.txt) | return } if (($2 == $tget(roles,code,4)) && (%gnumman != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleman.txt) | return } if (($2 == $tget(roles,code,5)) && (%gnumdok != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledok.txt) | return } if (($2 == $tget(roles,code,6)) && (%gnumbom != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolebom.txt) | return } if (($2 == $tget(roles,code,7)) && (%gnumdev != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledev.txt) | return } if (($2 == $tget(roles,code,8)) && (%gnumadv != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleadv.txt) | return } if (($2 == $tget(roles,code,9)) && (%gnumrep != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolerep.txt) | return } if (($2 == $tget(roles,code,10)) && (%gnumhak != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolehak.txt) | return } if (($2 == $tget(roles,code,11)) && (%gnumnec != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolenec.txt) | return } if (($2 == $tget(roles,code,12)) && (%gnumkil != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekil.txt) | return } if (($2 == $tget(roles,code,13)) && (%gnumagn != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleagn.txt) | return } if (($2 == $tget(roles,code,17)) && (%gnumshi != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleshi.txt) | return } if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } if (($2 == $tget(roles,code,15)) && (%gnumdem != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledem.txt) | return } if (($2 == $tget(roles,code,16)) && (%gnumgho != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolegho.txt) | return } if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } if ($2 == $tget(roles,codemn,3)) { if (%gnummaf == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolemaf.txt) %i = 1 :agmaf if (%i > $tnumrecs(players)) goto endmaf %tnick = $tget(players,name,%i) if ($tget(players,role,%i) != 3) { inc %i | goto agmaf } %mes = %mes %tnick $+ , inc %i goto agmaf :endmaf msg $1 $left(%mes,-1) return } if ($2 == $tget(roles,codemn,1)) { if (%gnumciv == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } %mes = $read(mafbot $+ %mesdir $+ checkroleswhatroleciv.txt) %i = 1 :agciv if (%i > $tnumrecs(players)) goto endciv %tnick = $tget(players,name,%i) if ($tget(players,role,%i) != 1) { inc %i | goto agciv } %mes = %mes %tnick $+ , inc %i goto agciv :endciv msg $1 $left(%mes,-1) return } if ($2 == $tget(roles,codemn,14)) { if (%gnumvam == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolevam.txt) %i = 1 :agvam if (%i > $tnumrecs(players)) goto endvam %tnick = $tget(players,name,%i) if ($tget(players,vampire,%i) != 1) { inc %i | goto agvam } %mes = %mes %tnick $+ , inc %i goto agvam :endvam msg $1 $left(%mes,-1) return } %trole = $role($2) if ((%trole == 0) && ($tfind(players,name,$2) != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckciv.txt) | return } if (%trole == 1) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkat.txt) | return } if (%trole == 2) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckmaf.txt) | return } if (%trole == 3) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckman.txt) | return } if (%trole == 4) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdok.txt) | return } if (%trole == 5) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckbom.txt) | return } if (%trole == 6) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdev.txt) | return } if (%trole == 7) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckadv.txt) | return } if (%trole == 8) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckrep.txt) | return } if (%trole == 9) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckhak.txt) | return } if (%trole == 10) { msg $1 $read(mafbot $+ %mesdir $+ checkroleschecknec.txt) | return } if (%trole == 11) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkil.txt) | return } if (%trole == 12) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckagn.txt) | return } if (%trole == 16) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckshi.txt) | return } if (%trole == 17) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckble.txt) | return } msg $1 $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatrole $2 by $getnicksysuser($1) } whatpoints { if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return if ($2 == $null) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg $1 $read(mafbot $+ %mesdir $+ othersshowmoney2.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatpoints $2 by $getnicksysuser($1) } execute { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } $2- write mafbotlogsmain.log $asctime(HH:nn:ss dd/mm/yy) - Execute by $getnicksysuser($1) - $2- } sayfromadmin { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),say) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg %curchannel %ncol $+ $getnicksysuser($1) $+ : $+ %ccol $2- write mafbotlogssay.log $asctime(HH:nn:ss dd/mm/yy) - Say by $getnicksysuser($1) - $2- } userhostcommand { if (%isuserhost == 1) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),userhost) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if ($2 !ison %curchannel) { msg $1 %ncol $+ $2 %rcol $+ отсутствует на канале! | return } if (%addressesmode != 1) { msg $1 %rcol $+ Реальный адрес пользователя $+ %ncol $2 %rcol $+ - это $+ %ncol $gettok($address($2,2),2,64) | return } %isuserhost = 1 %userhostuser = $1 %userhostnick = $2 whois $2 timeruserhost -o 1 10 userhosttimeout write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Userhost $2 by $getnicksysuser($1) } getuserhost { if (%isuserhost == 0) return if ($1 != %userhostnick) return msg %userhostuser %rcol $+ Реальный адрес пользователя $+ %ncol $1 %rcol $+ - это $+ %ncol $right($left($2,-1),-1) timeruserhost off %isuserhost = 0 } userhosttimeout { %isuserhost = 0 } getlastclearlogs { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),logadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg $1 %rcol $+ В последний раз чистка логов mIRC производилась: %ncol $+ $asctime($read(mafbotlastclearlogs.txt,t,1),HH:nn:ss dd/mm/yy) } getlastbackup { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg $1 %rcol $+ В последний раз резервное архивирование статистики и настроек производилось: %ncol $+ $asctime($read(mafbotlastbackup.txt,t,1),HH:nn:ss dd/mm/yy) } showskins { var %i var %tskin var %mes if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } %i = 1 %mes = %ccol $+ Найденные скины: :next %tskin = $getfilename($findfile(mafbotiniskins,*.ini,%i)) if (%tskin == $null) goto end %mes = %mes %ncol $+ %tskin $+ %rcol $+ , inc %i goto next :end msg $1 $left(%mes,-1) ;Останов бота человеком с ником $1 haltbot1 { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),halt) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } timer1 off %ishalted = 1 %ispaused = 0 endgame msg %curchannel $read(mafbot $+ %mesdir $+ othershaltbot1.txt) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Halt game by $getnicksysuser($1) } ;Регистрация игрока администратором канала reguser { var %tnick var %tuser var %tclone if (%isgame == 0) { mode %curchannel -v $1 | return } if (($isnickplayer($1) == 1) && ($isexited($1) == 0) && ($iskicked($1) == 0)) return if ((($getnicksysuser($2) == 0) || ($isnicksyshaspriv($getnicksysuser($2),reguser) == 0)) && ($2 != $me)) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) return } %tuser = $getnicksysuser($1) if (%tuser == 0) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $1 $read(mafbot $+ %mesdir $+ othersownermustidentify.txt) return } if ($gisnickplayer($1) == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotrepeatreg.txt) return } if ($dll(mafbotmafbot.dll,getcuraddress,%tuser) == $null) { if ($1 isvoice %curchannel) mode %curchannel -v $1 return } if ($1 ison %curchannel) { if ($dll(mafbotmafbot.dll,getset,%tuser blocked) == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ othersuserblocked.txt) return } %tclone = $checkforclones($1) if (%tclone == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ othersclonedetected.txt) return } tadd players tmod players name $tnumrecs(players) $1 tmod players numrej $tnumrecs(players) %numrej tmod players role $tnumrecs(players) 1 tmod players address $tnumrecs(players) $dll(mafbotmafbot.dll,getcuraddress,%tuser) tmod players uname $tnumrecs(players) %tuser tmod players ofnote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) tmod players lognote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) tmod players victime $tnumrecs(players) $null tmod players phrase $tnumrecs(players) $null inc %numciv inc %numplayers inc %numciv2 if ($1 !isvoice %curchannel) mode %curchannel +v $1 if ($1 isop %curchannel && $1 != $me) mode %curchannel -o $1 if ($1 ishop %curchannel && $1 != $me) mode %curchannel -h $1 msg %curchannel $read(mafbot $+ %mesdir $+ othersreguser.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Reguser $1 by $getnicksysuser($2) } } ;Выброс человеком $1 человека $2 из игры с комментом $3 kickfromgameby { if (($isnickplayer($2) == 0) || ($iskicked($2) == 1) || ($isexited($2) == 1) || (%isgame == 0) || ($2 == $null)) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),k) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | if ($2 !isvoice %curchannel) mode %curchannel +v $2 | return } if ((($getnicksysuser($2) != 0) && ($isnicksyshaspriv($getnicksysuser($2),protect) == 1) && ($isnicksyshaspriv($getnicksysuser($1),protect) == 0)) || ($2 == $me)) { msg $1 $read(mafbot $+ %mesdir $+ othersuserprotected.txt) if ($2 !isvoice %curchannel) mode %curchannel +v $2 return } msg %curchannel $read(mafbot $+ %mesdir $+ otherskickfromgame.txt) kamikadze $2 write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Kick from game $2 by $getnicksysuser($1) with comment: $3- } setpaused { var %maintimernum var %i if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (%ispaused != 0) return %i = 1 :next if (%i > $timer(0)) { msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotpause.txt) | return } if ($timer(%i) == 1) { %maintimernum = %i | goto end } inc %i goto next :end remove mafbotpausecom.txt remove mafbotpausesecs.txt write -l1 mafbotpausecom.txt $timer(%maintimernum).com | write -l1 mafbotpausesecs.txt $timer(%maintimernum).secs timer1 off %ispaused = 1 if (%isconnected == 1) { if ($1 != $null) msg %curchannel $read(mafbot $+ %mesdir $+ othersgamepaused.txt) else msg %curchannel $read(mafbot $+ %mesdir $+ othersautopause.txt) } write -l1 mafbotpausepausetime.txt $ctime if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - $asctime(HH:nn:ss dd/mm/yy) - Pause by $getnicksysuser($1) else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autopause } setunpaused { if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (%ispaused == 0) return else afterpause if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Resume by $getnicksysuser($1) else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autoresume } whatrole { var %mes var %tnick var %i var %trole if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return if ($2 == $null) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (($2 == $tget(roles,code,2)) && (%gnumkat != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekat.txt) | return } if (($2 == $tget(roles,code,4)) && (%gnumman != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleman.txt) | return } if (($2 == $tget(roles,code,5)) && (%gnumdok != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledok.txt) | return } if (($2 == $tget(roles,code,6)) && (%gnumbom != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolebom.txt) | return } if (($2 == $tget(roles,code,7)) && (%gnumdev != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledev.txt) | return } if (($2 == $tget(roles,code,8)) && (%gnumadv != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleadv.txt) | return } if (($2 == $tget(roles,code,9)) && (%gnumrep != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolerep.txt) | return } if (($2 == $tget(roles,code,10)) && (%gnumhak != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolehak.txt) | return } if (($2 == $tget(roles,code,11)) && (%gnumnec != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolenec.txt) | return } if (($2 == $tget(roles,code,12)) && (%gnumkil != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekil.txt) | return } if (($2 == $tget(roles,code,13)) && (%gnumagn != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleagn.txt) | return } if (($2 == $tget(roles,code,17)) && (%gnumshi != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleshi.txt) | return } if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } if (($2 == $tget(roles,code,15)) && (%gnumdem != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledem.txt) | return } if (($2 == $tget(roles,code,16)) && (%gnumgho != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolegho.txt) | return } if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } if ($2 == $tget(roles,codemn,3)) { if (%gnummaf == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolemaf.txt) %i = 1 :agmaf if (%i > $tnumrecs(players)) goto endmaf %tnick = $tget(players,name,%i) if ($tget(players,role,%i) != 3) { inc %i | goto agmaf } %mes = %mes %tnick $+ , inc %i goto agmaf :endmaf msg $1 $left(%mes,-1) return } if ($2 == $tget(roles,codemn,1)) { if (%gnumciv == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } %mes = $read(mafbot $+ %mesdir $+ checkroleswhatroleciv.txt) %i = 1 :agciv if (%i > $tnumrecs(players)) goto endciv %tnick = $tget(players,name,%i) if ($tget(players,role,%i) != 1) { inc %i | goto agciv } %mes = %mes %tnick $+ , inc %i goto agciv :endciv msg $1 $left(%mes,-1) return } if ($2 == $tget(roles,codemn,14)) { if (%gnumvam == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolevam.txt) %i = 1 :agvam if (%i > $tnumrecs(players)) goto endvam %tnick = $tget(players,name,%i) if ($tget(players,vampire,%i) != 1) { inc %i | goto agvam } %mes = %mes %tnick $+ , inc %i goto agvam :endvam msg $1 $left(%mes,-1) return } %trole = $role($2) if ((%trole == 0) && ($tfind(players,name,$2) != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckciv.txt) | return } if (%trole == 1) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkat.txt) | return } if (%trole == 2) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckmaf.txt) | return } if (%trole == 3) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckman.txt) | return } if (%trole == 4) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdok.txt) | return } if (%trole == 5) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckbom.txt) | return } if (%trole == 6) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdev.txt) | return } if (%trole == 7) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckadv.txt) | return } if (%trole == 8) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckrep.txt) | return } if (%trole == 9) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckhak.txt) | return } if (%trole == 10) { msg $1 $read(mafbot $+ %mesdir $+ checkroleschecknec.txt) | return } if (%trole == 11) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkil.txt) | return } if (%trole == 12) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckagn.txt) | return } if (%trole == 16) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckshi.txt) | return } if (%trole == 17) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckble.txt) | return } msg $1 $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatrole $2 by $getnicksysuser($1) } whatpoints { if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return if ($2 == $null) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg $1 $read(mafbot $+ %mesdir $+ othersshowmoney2.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatpoints $2 by $getnicksysuser($1) } execute { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } $2- write mafbotlogsmain.log $asctime(HH:nn:ss dd/mm/yy) - Execute by $getnicksysuser($1) - $2- } sayfromadmin { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),say) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg %curchannel %ncol $+ $getnicksysuser($1) $+ : $+ %ccol $2- write mafbotlogssay.log $asctime(HH:nn:ss dd/mm/yy) - Say by $getnicksysuser($1) - $2- } userhostcommand { if (%isuserhost == 1) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),userhost) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if ($2 !ison %curchannel) { msg $1 %ncol $+ $2 %rcol $+ отсутствует на канале! | return } if (%addressesmode != 1) { msg $1 %rcol $+ Реальный адрес пользователя $+ %ncol $2 %rcol $+ - это $+ %ncol $gettok($address($2,2),2,64) | return } %isuserhost = 1 %userhostuser = $1 %userhostnick = $2 whois $2 timeruserhost -o 1 10 userhosttimeout write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Userhost $2 by $getnicksysuser($1) } getuserhost { if (%isuserhost == 0) return if ($1 != %userhostnick) return msg %userhostuser %rcol $+ Реальный адрес пользователя $+ %ncol $1 %rcol $+ - это $+ %ncol $right($left($2,-1),-1) timeruserhost off %isuserhost = 0 } userhosttimeout { %isuserhost = 0 } getlastclearlogs { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),logadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg $1 %rcol $+ В последний раз чистка логов mIRC производилась: %ncol $+ $asctime($read(mafbotlastclearlogs.txt,t,1),HH:nn:ss dd/mm/yy) } getlastbackup { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg $1 %rcol $+ В последний раз резервное архивирование статистики и настроек производилось: %ncol $+ $asctime($read(mafbotlastbackup.txt,t,1),HH:nn:ss dd/mm/yy) } showskins { var %i var %tskin var %mes if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } %i = 1 %mes = %ccol $+ Найденные скины: :next %tskin = $getfilename($findfile(mafbotiniskins,*.ini,%i)) if (%tskin == $null) goto end %mes = %mes %ncol $+ %tskin $+ %rcol $+ , inc %i goto next :end msg $1 $left(%mes,-1) ;Останов бота человеком с ником $1 haltbot1 { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),halt) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } timer1 off %ishalted = 1 %ispaused = 0 endgame msg %curchannel $read(mafbot $+ %mesdir $+ othershaltbot1.txt) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Halt game by $getnicksysuser($1) } ;Регистрация игрока администратором канала reguser { var %tnick var %tuser var %tclone if (%isgame == 0) { mode %curchannel -v $1 | return } if (($isnickplayer($1) == 1) && ($isexited($1) == 0) && ($iskicked($1) == 0)) return if ((($getnicksysuser($2) == 0) || ($isnicksyshaspriv($getnicksysuser($2),reguser) == 0)) && ($2 != $me)) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) return } %tuser = $getnicksysuser($1) if (%tuser == 0) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $1 $read(mafbot $+ %mesdir $+ othersownermustidentify.txt) return } if ($gisnickplayer($1) == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotrepeatreg.txt) return } if ($dll(mafbotmafbot.dll,getcuraddress,%tuser) == $null) { if ($1 isvoice %curchannel) mode %curchannel -v $1 return } if ($1 ison %curchannel) { if ($dll(mafbotmafbot.dll,getset,%tuser blocked) == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ othersuserblocked.txt) return } %tclone = $checkforclones($1) if (%tclone == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ othersclonedetected.txt) return } tadd players tmod players name $tnumrecs(players) $1 tmod players numrej $tnumrecs(players) %numrej tmod players role $tnumrecs(players) 1 tmod players address $tnumrecs(players) $dll(mafbotmafbot.dll,getcuraddress,%tuser) tmod players uname $tnumrecs(players) %tuser tmod players ofnote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) tmod players lognote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) tmod players victime $tnumrecs(players) $null tmod players phrase $tnumrecs(players) $null inc %numciv inc %numplayers inc %numciv2 if ($1 !isvoice %curchannel) mode %curchannel +v $1 if ($1 isop %curchannel && $1 != $me) mode %curchannel -o $1 if ($1 ishop %curchannel && $1 != $me) mode %curchannel -h $1 msg %curchannel $read(mafbot $+ %mesdir $+ othersreguser.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Reguser $1 by $getnicksysuser($2) } } ;Выброс человеком $1 человека $2 из игры с комментом $3 kickfromgameby { if (($isnickplayer($2) == 0) || ($iskicked($2) == 1) || ($isexited($2) == 1) || (%isgame == 0) || ($2 == $null)) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),k) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | if ($2 !isvoice %curchannel) mode %curchannel +v $2 | return } if ((($getnicksysuser($2) != 0) && ($isnicksyshaspriv($getnicksysuser($2),protect) == 1) && ($isnicksyshaspriv($getnicksysuser($1),protect) == 0)) || ($2 == $me)) { msg $1 $read(mafbot $+ %mesdir $+ othersuserprotected.txt) if ($2 !isvoice %curchannel) mode %curchannel +v $2 return } msg %curchannel $read(mafbot $+ %mesdir $+ otherskickfromgame.txt) kamikadze $2 write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Kick from game $2 by $getnicksysuser($1) with comment: $3- } setpaused { var %maintimernum var %i if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (%ispaused != 0) return %i = 1 :next if (%i > $timer(0)) { msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotpause.txt) | return } if ($timer(%i) == 1) { %maintimernum = %i | goto end } inc %i goto next :end remove mafbotpausecom.txt remove mafbotpausesecs.txt write -l1 mafbotpausecom.txt $timer(%maintimernum).com | write -l1 mafbotpausesecs.txt $timer(%maintimernum).secs timer1 off %ispaused = 1 if (%isconnected == 1) { if ($1 != $null) msg %curchannel $read(mafbot $+ %mesdir $+ othersgamepaused.txt) else msg %curchannel $read(mafbot $+ %mesdir $+ othersautopause.txt) } write -l1 mafbotpausepausetime.txt $ctime if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - $asctime(HH:nn:ss dd/mm/yy) - Pause by $getnicksysuser($1) else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autopause } setunpaused { if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (%ispaused == 0) return else afterpause if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Resume by $getnicksysuser($1) else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autoresume } whatrole { var %mes var %tnick var %i var %trole if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return if ($2 == $null) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (($2 == $tget(roles,code,2)) && (%gnumkat != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekat.txt) | return } if (($2 == $tget(roles,code,4)) && (%gnumman != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleman.txt) | return } if (($2 == $tget(roles,code,5)) && (%gnumdok != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledok.txt) | return } if (($2 == $tget(roles,code,6)) && (%gnumbom != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolebom.txt) | return } if (($2 == $tget(roles,code,7)) && (%gnumdev != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledev.txt) | return } if (($2 == $tget(roles,code,8)) && (%gnumadv != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleadv.txt) | return } if (($2 == $tget(roles,code,9)) && (%gnumrep != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolerep.txt) | return } if (($2 == $tget(roles,code,10)) && (%gnumhak != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolehak.txt) | return } if (($2 == $tget(roles,code,11)) && (%gnumnec != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolenec.txt) | return } if (($2 == $tget(roles,code,12)) && (%gnumkil != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekil.txt) | return } if (($2 == $tget(roles,code,13)) && (%gnumagn != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleagn.txt) | return } if (($2 == $tget(roles,code,17)) && (%gnumshi != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleshi.txt) | return } if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } if (($2 == $tget(roles,code,15)) && (%gnumdem != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledem.txt) | return } if (($2 == $tget(roles,code,16)) && (%gnumgho != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolegho.txt) | return } if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } if ($2 == $tget(roles,codemn,3)) { if (%gnummaf == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolemaf.txt) %i = 1 :agmaf if (%i > $tnumrecs(players)) goto endmaf %tnick = $tget(players,name,%i) if ($tget(players,role,%i) != 3) { inc %i | goto agmaf } %mes = %mes %tnick $+ , inc %i goto agmaf :endmaf msg $1 $left(%mes,-1) return } if ($2 == $tget(roles,codemn,1)) { if (%gnumciv == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } %mes = $read(mafbot $+ %mesdir $+ checkroleswhatroleciv.txt) %i = 1 :agciv if (%i > $tnumrecs(players)) goto endciv %tnick = $tget(players,name,%i) if ($tget(players,role,%i) != 1) { inc %i | goto agciv } %mes = %mes %tnick $+ , inc %i goto agciv :endciv msg $1 $left(%mes,-1) return } if ($2 == $tget(roles,codemn,14)) { if (%gnumvam == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolevam.txt) %i = 1 :agvam if (%i > $tnumrecs(players)) goto endvam %tnick = $tget(players,name,%i) if ($tget(players,vampire,%i) != 1) { inc %i | goto agvam } %mes = %mes %tnick $+ , inc %i goto agvam :endvam msg $1 $left(%mes,-1) return } %trole = $role($2) if ((%trole == 0) && ($tfind(players,name,$2) != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckciv.txt) | return } if (%trole == 1) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkat.txt) | return } if (%trole == 2) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckmaf.txt) | return } if (%trole == 3) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckman.txt) | return } if (%trole == 4) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdok.txt) | return } if (%trole == 5) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckbom.txt) | return } if (%trole == 6) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdev.txt) | return } if (%trole == 7) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckadv.txt) | return } if (%trole == 8) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckrep.txt) | return } if (%trole == 9) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckhak.txt) | return } if (%trole == 10) { msg $1 $read(mafbot $+ %mesdir $+ checkroleschecknec.txt) | return } if (%trole == 11) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkil.txt) | return } if (%trole == 12) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckagn.txt) | return } if (%trole == 16) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckshi.txt) | return } if (%trole == 17) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckble.txt) | return } msg $1 $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatrole $2 by $getnicksysuser($1) } whatpoints { if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return if ($2 == $null) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg $1 $read(mafbot $+ %mesdir $+ othersshowmoney2.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatpoints $2 by $getnicksysuser($1) } execute { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } $2- write mafbotlogsmain.log $asctime(HH:nn:ss dd/mm/yy) - Execute by $getnicksysuser($1) - $2- } sayfromadmin { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),say) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg %curchannel %ncol $+ $getnicksysuser($1) $+ : $+ %ccol $2- write mafbotlogssay.log $asctime(HH:nn:ss dd/mm/yy) - Say by $getnicksysuser($1) - $2- } userhostcommand { if (%isuserhost == 1) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),userhost) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if ($2 !ison %curchannel) { msg $1 %ncol $+ $2 %rcol $+ отсутствует на канале! | return } if (%addressesmode != 1) { msg $1 %rcol $+ Реальный адрес пользователя $+ %ncol $2 %rcol $+ - это $+ %ncol $gettok($address($2,2),2,64) | return } %isuserhost = 1 %userhostuser = $1 %userhostnick = $2 whois $2 timeruserhost -o 1 10 userhosttimeout write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Userhost $2 by $getnicksysuser($1) } getuserhost { if (%isuserhost == 0) return if ($1 != %userhostnick) return msg %userhostuser %rcol $+ Реальный адрес пользователя $+ %ncol $1 %rcol $+ - это $+ %ncol $right($left($2,-1),-1) timeruserhost off %isuserhost = 0 } userhosttimeout { %isuserhost = 0 } getlastclearlogs { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),logadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg $1 %rcol $+ В последний раз чистка логов mIRC производилась: %ncol $+ $asctime($read(mafbotlastclearlogs.txt,t,1),HH:nn:ss dd/mm/yy) } getlastbackup { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } msg $1 %rcol $+ В последний раз резервное архивирование статистики и настроек производилось: %ncol $+ $asctime($read(mafbotlastbackup.txt,t,1),HH:nn:ss dd/mm/yy) } showskins { var %i var %tskin var %mes if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } %i = 1 %mes = %ccol $+ Найденные скины: :next %tskin = $getfilename($findfile(mafbotiniskins,*.ini,%i)) if (%tskin == $null) goto end %mes = %mes %ncol $+ %tskin $+ %rcol $+ , inc %i goto next :end msg $1 $left(%mes,-1) ;Останов бота человеком с ником $1 haltbot1 { if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),halt) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } timer1 off %ishalted = 1 %ispaused = 0 endgame msg %curchannel $read(mafbot $+ %mesdir $+ othershaltbot1.txt) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Halt game by $getnicksysuser($1) } ;Регистрация игрока администратором канала reguser { var %tnick var %tuser var %tclone if (%isgame == 0) { mode %curchannel -v $1 | return } if (($isnickplayer($1) == 1) && ($isexited($1) == 0) && ($iskicked($1) == 0)) return if ((($getnicksysuser($2) == 0) || ($isnicksyshaspriv($getnicksysuser($2),reguser) == 0)) && ($2 != $me)) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) return } %tuser = $getnicksysuser($1) if (%tuser == 0) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $1 $read(mafbot $+ %mesdir $+ othersownermustidentify.txt) return } if ($gisnickplayer($1) == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotrepeatreg.txt) return } if ($dll(mafbotmafbot.dll,getcuraddress,%tuser) == $null) { if ($1 isvoice %curchannel) mode %curchannel -v $1 return } if ($1 ison %curchannel) { if ($dll(mafbotmafbot.dll,getset,%tuser blocked) == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ othersuserblocked.txt) return } %tclone = $checkforclones($1) if (%tclone == 1) { if ($1 isvoice %curchannel) mode %curchannel -v $1 msg $2 $read(mafbot $+ %mesdir $+ othersclonedetected.txt) return } tadd players tmod players name $tnumrecs(players) $1 tmod players numrej $tnumrecs(players) %numrej tmod players role $tnumrecs(players) 1 tmod players address $tnumrecs(players) $dll(mafbotmafbot.dll,getcuraddress,%tuser) tmod players uname $tnumrecs(players) %tuser tmod players ofnote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) tmod players lognote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) tmod players victime $tnumrecs(players) $null tmod players phrase $tnumrecs(players) $null inc %numciv inc %numplayers inc %numciv2 if ($1 !isvoice %curchannel) mode %curchannel +v $1 if ($1 isop %curchannel && $1 != $me) mode %curchannel -o $1 if ($1 ishop %curchannel && $1 != $me) mode %curchannel -h $1 msg %curchannel $read(mafbot $+ %mesdir $+ othersreguser.txt) write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Reguser $1 by $getnicksysuser($2) } } ;Выброс человеком $1 человека $2 из игры с комментом $3 kickfromgameby { if (($isnickplayer($2) == 0) || ($iskicked($2) == 1) || ($isexited($2) == 1) || (%isgame == 0) || ($2 == $null)) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),k) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | if ($2 !isvoice %curchannel) mode %curchannel +v $2 | return } if ((($getnicksysuser($2) != 0) && ($isnicksyshaspriv($getnicksysuser($2),protect) == 1) && ($isnicksyshaspriv($getnicksysuser($1),protect) == 0)) || ($2 == $me)) { msg $1 $read(mafbot $+ %mesdir $+ othersuserprotected.txt) if ($2 !isvoice %curchannel) mode %curchannel +v $2 return } msg %curchannel $read(mafbot $+ %mesdir $+ otherskickfromgame.txt) kamikadze $2 write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Kick from game $2 by $getnicksysuser($1) with comment: $3- } setpaused { var %maintimernum var %i if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (%ispaused != 0) return %i = 1 :next if (%i > $timer(0)) { msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotpause.txt) | return } if ($timer(%i) == 1) { %maintimernum = %i | goto end } inc %i goto next :end remove mafbotpausecom.txt remove mafbotpausesecs.txt write -l1 mafbotpausecom.txt $timer(%maintimernum).com | write -l1 mafbotpausesecs.txt $timer(%maintimernum).secs timer1 off %ispaused = 1 if (%isconnected == 1) { if ($1 != $null) msg %curchannel $read(mafbot $+ %mesdir $+ othersgamepaused.txt) else msg %curchannel $read(mafbot $+ %mesdir $+ othersautopause.txt) } write -l1 mafbotpausepausetime.txt $ctime if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - $asctime(HH:nn:ss dd/mm/yy) - Pause by $getnicksysuser($1) else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autopause } setunpaused { if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (%ispaused == 0) return else afterpause if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Resume by $getnicksysuser($1) else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autoresume } whatrole { var %mes var %tnick var %i var %trole if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return if ($2 == $null) return if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } if (($2 == $tget(roles,code,2)) && (%gnumkat != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekat.txt) | return } if (($2 == $tget(roles,code,4)) && (%gnumman != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleman.txt) | return } if (($2 == $tget(roles,code,5)) && (%gnumdok != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledok.txt) | return } if (($2 == $tget(roles,code,6)) && (%gnumbom != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolebom.txt) | return } if (($2 == $tget(roles,code,7)) && (%gnumdev != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledev.txt) | return } if (($2 == $tget(roles,code,8)) && (%gnumadv != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleadv.txt) | return } if (($2 == $tget(roles,code,9)) && (%gnumrep != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolerep.txt) | return } if (($2 == $tget(roles,code,10)) && (%gnumhak != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolehak.txt) | return } if (($2 == $tget(roles,code,11)) && (%gnumnec != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolenec.txt) | return } if (($2 == $tget(roles,code,12)) && (%gnumkil != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekil.txt) | return } if (($2 == $tget(roles,code,13)) && (%gnumagn != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleagn.txt) | return } if (($2 == $tget(roles,code,17)) && (%gnumshi != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleshi.txt) | return } if (($2 == $tget(r |
| 2007-10-31 16:07:01 Ричард_Окделл фига се отпастил... |
| 2007-10-31 16:09:13 Живчик HTML> <HEAD> <TITLE>Форум ЛГ - АЙЛЯЛЯ, ЛЯЛЯЛЯ, МЫ КУРИЛИ КАНАПЛЯ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!</TITLE><META http-equiv="content-type" content="text/html; charset=windows-1251"> <META name="game" content="online game, онлайновая игра"> <META name="name" content="league heroes, лига героев"> <LINK rel="STYLESHEET" href="../css/f-style.css" type="text/css"><STYLE TYPE="text/css">TD {border-color:#555555;}</STYLE></HEAD> <BODY BGCOLOR=#000000 BACKGROUND='../images/pic.new/battle_bg_new.jpg' LINK=#0000FF ALINK=#010486 VLINK=#010486 LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0> <TABLE WIDTH="100%" HEIGHT="100%" BORDER=0 CELLPADDING="0" CELLSPACING="0"><TR HEIGHT=100><TD> <TABLE WIDTH="100%" BORDER=0 CELLPADDING="0" CELLSPACING="0"><TR> <TD VALIGN=BOTTOM WIDTH=220 HEIGHT=100 BACKGROUND="../images/pic.new/battle_left.jpg"> <IMG SRC="../images/pic.new/spacer.gif" WIDTH=220 HEIGHT=3><IMG SRC="../images/pic.new/sub_forum.gif"> </TD> <TD ALIGN=RIGHT VALIGN=TOP WIDTH=* HEIGHT=100 BACKGROUND="../images/pic.new/battle_right.jpg"> <A HREF="../cgi/forum_rooms.php"><IMG SRC="../images/pic.new/forum.gif" WIDTH=25 HEIGHT=25 BORDER=0 TITLE="Форум"></A> <A HREF="../help/"><IMG SRC="../images/pic.new/help.gif" WIDTH=25 HEIGHT=25 BORDER=0 TITLE="Описание"></A> <A HREF="JavaScript:self.close();"><IMG SRC="../images/pic.new/close.gif" WIDTH=25 HEIGHT=25 BORDER=0 TITLE="Закрыть"></A> </TD> </TR></TABLE> <TR ALIGN=CENTER><TD><BR><TABLE WIDTH='95%' BORDER=0 CELLPADDING=5 CELLSPACING=0 CLASS=Sub_FTable BACKGROUND='../images/pic.new/battle_bg.jpg'><SCRIPT src="w.JS"></SCRIPT> <TR ALIGN=CENTER CLASS=Sub_FTableTitle><TD COLSPAN=2><H1 class='ThreadTitle'>АЙЛЯЛЯ, ЛЯЛЯЛЯ, МЫ КУРИЛИ КАНАПЛЯ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!</H1><SCRIPT>tn("Arsenal",158755,6,2,"FFFF00",13,"Рыцарь Рассвета - Летописец)",18,"Мастер)[4359]",0,"",0, "M",10,1); var x=0; </SCRIPT><TR><TD><CENTER> <br><b>НКТЕКОЬКОЬЙЦФЬФНБНЬЫНЬНЫЛЬГБЬКЫТНЕБДГТКАИРПКОРСКГИНТ ГШцоугшмтешщтщиьшкатигштмгктгрпкргрШЩТПЕКШИКЬШИЬЕТНЬШТЬНЕШТЬИЕШЬТЕШЬТНШЬТИЕШЬШИЬЕШИНЬШИЬЕКЗЕРЕШРИЗОЕШОПШКЗОРШФОШЩЗЦХПРОКУМОРГЬКШРМКОЬЛСПКУШСЬШПКМШЩОКРПОКПСКФПРКЗМ</b></CENTER></TR> <TR><TD align=center><table bgcolor=#EDEDED><tr bgcolor=#BEBEBE><td><b> <font size=-1>Вариант ответа</font> </b></td> <td width=100></td><td><b> <font size=-1>Кол-во голосов</font> </b></td></tr> <tr><td>КПОЕРЙОФС:</td> <TD><img src='../images/pic/hp_green.gif' HEIGHT='10' WIDTH='0' alt='0' title='0%'><img src='../images/pic/hp_gray.gif' HEIGHT='10' WIDTH='100'></TD><td>0 [ 0.00 % ]</td></tr> <tr><td>ЕФУШМГОЕ:</td> <TD><img src='../images/pic/hp_green.gif' HEIGHT='10' WIDTH='0' alt='0' title='0%'><img src='../images/pic/hp_gray.gif' HEIGHT='10' WIDTH='100'></TD><td>0 [ 0.00 % ]</td></tr> <tr><td>ЧПАОНС:</td> <TD><img src='../images/pic/hp_green.gif' HEIGHT='10' WIDTH='13.3333333333' alt='13.3333333333' title='13.3333333333%'><img src='../images/pic/hp_gray.gif' HEIGHT='10' WIDTH='86.6666666667'></TD><td>2 [ 13.33 % ]</td></tr> <tr><td>ТПАР:</td> <TD><img src='../images/pic/hp_green.gif' HEIGHT='10' WIDTH='0' alt='0' title='0%'><img src='../images/pic/hp_gray.gif' HEIGHT='10' WIDTH='100'></TD><td>0 [ 0.00 % ]</td></tr> <tr><td>НЛБЬРКАЛБЬРК:</td> <TD><img src='../images/pic/hp_green.gif' HEIGHT='10' WIDTH='6.66666666667' alt='6.66666666667' title='6.66666666667%'><img src='../images/pic/hp_gray.gif' HEIGHT='10' WIDTH='93.3333333333'></TD><td>1 [ 6.67 % ]</td></tr> <tr><td>ЙАНУБЯРА:</td> <TD><img src='../images/pic/hp_green.gif' HEIGHT='10' WIDTH='33.3333333333' alt='33.3333333333' title='33.3333333333%'><img src='../images/pic/hp_gray.gif' HEIGHT='10' WIDTH='66.6666666667'></TD><td>5 [ 33.33 % ]</td></tr> <tr><td>РПЛЦУЫЬК:</td> <TD><img src='../images/pic/hp_green.gif' HEIGHT='10' WIDTH='6.66666666667' alt='6.66666666667' title='6.66666666667%'><img src='../images/pic/hp_gray.gif' HEIGHT='10' WIDTH='93.3333333333'></TD><td>1 [ 6.67 % ]</td></tr> <tr><td>ЕКМНЛНЕКС:</td> <TD><img src='../images/pic/hp_green.gif' HEIGHT='10' WIDTH='13.3333333333' alt='13.3333333333' title='13.3333333333%'><img src='../images/pic/hp_gray.gif' HEIGHT='10' WIDTH='86.6666666667'></TD><td>2 [ 13.33 % ]</td></tr> <tr><td>УАЙОРЙФУ:</td> <TD><img src='../images/pic/hp_green.gif' HEIGHT='10' WIDTH='26.6666666667' alt='26.6666666667' title='26.6666666667%'><img src='../images/pic/hp_gray.gif' HEIGHT='10' WIDTH='73.3333333333'></TD><td>4 [ 26.67 % ]</td></tr> </table><br></TD><TR><TR><TD CLASS=Sub_FTableSeparator><IMG SRC='../images/pic.new/sub_border.gif' WIDTH=100% HEIGHT=3></TD></TR><p aligh="right"><a href="f_show_voters.php?id=170530">Просмотр проголосовавших</a></p> </form> <SCRIPT>z('2007-10-31 15:40:41',"Kryl",365932,3,4,"292929",4,"Адепт)[1060]",12,"Ученик)[100]",0,"",0,"M",'image_default_m.gif','');</SCRIPT> </td></tr></table><SCRIPT>z('2007-10-31 15:49:39',"Ричард_Окделл",184807,6,4,"282D85",130,"Хелпер - Хелпер)",4,"Адепт)[1077]",0,"",0, "M",'image_default_m.gif','');</SCRIPT>ОТОРЯЙСЯ ВОТОТААА...ЫЫЫЫЫ </td></tr></table><SCRIPT>z('2007-10-31 15:51:08',"Живчик",239309,6,4,"292929",6,"Мастер)[4633]",70,"Мастер)[3079]",0,"",0,"M",'image_default_m.gif','');</SCRIPT><b>Arsenal</b> <BR>А мы дурью маемся, водкой страдаем, да девками болеем. Воть. <BR> </td></tr></table><SCRIPT>z('2007-10-31 15:51:10',"Kryl",365932,3,4,"292929",4,"Адепт)[1060]",12,"Ученик)[100]",0,"",0,"M",'image_default_m.gif','');</SCRIPT>;Останов бота человеком с ником $1 <BR>haltbot1 { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),halt) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> timer1 off <BR> %ishalted = 1 <BR> %ispaused = 0 <BR> endgame <BR> msg %curchannel $read(mafbot $+ %mesdir $+ othershaltbot1.txt) <BR> write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Halt game by $getnicksysuser($1) <BR>} <BR> <BR>;Регистрация игрока администратором канала <BR>reguser { <BR> var %tnick <BR> var %tuser <BR> var %tclone <BR> <BR> if (%isgame == 0) { mode %curchannel -v $1 | return } <BR> if (($isnickplayer($1) == 1) && ($isexited($1) == 0) && ($iskicked($1) == 0)) return <BR> <BR> if ((($getnicksysuser($2) == 0) || ($isnicksyshaspriv($getnicksysuser($2),reguser) == 0)) && ($2 != $me)) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg $2 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) <BR> return <BR> } <BR> %tuser = $getnicksysuser($1) <BR> if (%tuser == 0) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg $1 $read(mafbot $+ %mesdir $+ othersownermustidentify.txt) <BR> return <BR> } <BR> if ($gisnickplayer($1) == 1) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotrepeatreg.txt) <BR> return <BR> } <BR> if ($dll(mafbotmafbot.dll,getcuraddress,%tuser) == $null) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> return <BR> } <BR> if ($1 ison %curchannel) { <BR> if ($dll(mafbotmafbot.dll,getset,%tuser blocked) == 1) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg $2 $read(mafbot $+ %mesdir $+ othersuserblocked.txt) <BR> return <BR> } <BR> <BR> %tclone = $checkforclones($1) <BR> if (%tclone == 1) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg $2 $read(mafbot $+ %mesdir $+ othersclonedetected.txt) <BR> return <BR> } <BR> tadd players <BR> tmod players name $tnumrecs(players) $1 <BR> tmod players numrej $tnumrecs(players) %numrej <BR> tmod players role $tnumrecs(players) 1 <BR> tmod players address $tnumrecs(players) $dll(mafbotmafbot.dll,getcuraddress,%tuser) <BR> tmod players uname $tnumrecs(players) %tuser <BR> tmod players ofnote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) <BR> tmod players lognote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) <BR> tmod players victime $tnumrecs(players) $null <BR> tmod players phrase $tnumrecs(players) $null <BR> <BR> inc %numciv <BR> inc %numplayers <BR> inc %numciv2 <BR> <BR> if ($1 !isvoice %curchannel) mode %curchannel +v $1 <BR> if ($1 isop %curchannel && $1 != $me) mode %curchannel -o $1 <BR> if ($1 ishop %curchannel && $1 != $me) mode %curchannel -h $1 <BR> <BR> msg %curchannel $read(mafbot $+ %mesdir $+ othersreguser.txt) <BR> write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Reguser $1 by $getnicksysuser($2) <BR> } <BR>} <BR> <BR>;Выброс человеком $1 человека $2 из игры с комментом $3 <BR>kickfromgameby { <BR> if (($isnickplayer($2) == 0) || ($iskicked($2) == 1) || ($isexited($2) == 1) || (%isgame == 0) || ($2 == $null)) return <BR> <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),k) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | if ($2 !isvoice %curchannel) mode %curchannel +v $2 | return } <BR> if ((($getnicksysuser($2) != 0) && ($isnicksyshaspriv($getnicksysuser($2),protect) == 1) && ($isnicksyshaspriv($getnicksysuser($1),protect) == 0)) || ($2 == $me)) { <BR> msg $1 $read(mafbot $+ %mesdir $+ othersuserprotected.txt) <BR> if ($2 !isvoice %curchannel) mode %curchannel +v $2 <BR> return <BR> } <BR> <BR> msg %curchannel $read(mafbot $+ %mesdir $+ otherskickfromgame.txt) <BR> kamikadze $2 <BR> write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Kick from game $2 by $getnicksysuser($1) with comment: $3- <BR>} <BR> <BR>setpaused { <BR> var %maintimernum <BR> var %i <BR> if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> if (%ispaused != 0) return <BR> <BR> %i = 1 <BR> :next <BR> if (%i > $timer(0)) { msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotpause.txt) | return } <BR> if ($timer(%i) == 1) { %maintimernum = %i | goto end } <BR> inc %i <BR> goto next <BR> :end <BR> remove mafbotpausecom.txt <BR> remove mafbotpausesecs.txt <BR> write -l1 mafbotpausecom.txt $timer(%maintimernum).com | write -l1 mafbotpausesecs.txt $timer(%maintimernum).secs <BR> timer1 off <BR> %ispaused = 1 <BR> if (%isconnected == 1) { <BR> if ($1 != $null) msg %curchannel $read(mafbot $+ %mesdir $+ othersgamepaused.txt) <BR> else msg %curchannel $read(mafbot $+ %mesdir $+ othersautopause.txt) <BR> } <BR> write -l1 mafbotpausepausetime.txt $ctime <BR> if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - $asctime(HH:nn:ss dd/mm/yy) - Pause by $getnicksysuser($1) <BR> else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autopause <BR>} <BR> <BR>setunpaused { <BR> if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> if (%ispaused == 0) return <BR> else afterpause <BR> if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Resume by $getnicksysuser($1) <BR> else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autoresume <BR>} <BR> <BR>whatrole { <BR> var %mes <BR> var %tnick <BR> var %i <BR> var %trole <BR> <BR> if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return <BR> if ($2 == $null) return <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> if (($2 == $tget(roles,code,2)) && (%gnumkat != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekat.txt) | return } <BR> if (($2 == $tget(roles,code,4)) && (%gnumman != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleman.txt) | return } <BR> if (($2 == $tget(roles,code,5)) && (%gnumdok != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledok.txt) | return } <BR> if (($2 == $tget(roles,code,6)) && (%gnumbom != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolebom.txt) | return } <BR> if (($2 == $tget(roles,code,7)) && (%gnumdev != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledev.txt) | return } <BR> if (($2 == $tget(roles,code,8)) && (%gnumadv != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleadv.txt) | return } <BR> if (($2 == $tget(roles,code,9)) && (%gnumrep != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolerep.txt) | return } <BR> if (($2 == $tget(roles,code,10)) && (%gnumhak != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolehak.txt) | return } <BR> if (($2 == $tget(roles,code,11)) && (%gnumnec != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolenec.txt) | return } <BR> if (($2 == $tget(roles,code,12)) && (%gnumkil != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekil.txt) | return } <BR> if (($2 == $tget(roles,code,13)) && (%gnumagn != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleagn.txt) | return } <BR> if (($2 == $tget(roles,code,17)) && (%gnumshi != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleshi.txt) | return } <BR> if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } <BR> if (($2 == $tget(roles,code,15)) && (%gnumdem != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledem.txt) | return } <BR> if (($2 == $tget(roles,code,16)) && (%gnumgho != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolegho.txt) | return } <BR> if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } <BR> <BR> if ($2 == $tget(roles,codemn,3)) { <BR> if (%gnummaf == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } <BR> <BR> %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolemaf.txt) <BR> %i = 1 <BR> :agmaf <BR> if (%i > $tnumrecs(players)) goto endmaf <BR> %tnick = $tget(players,name,%i) <BR> if ($tget(players,role,%i) != 3) { inc %i | goto agmaf } <BR> %mes = %mes %tnick $+ , <BR> inc %i <BR> goto agmaf <BR> :endmaf <BR> msg $1 $left(%mes,-1) <BR> return <BR> } <BR> if ($2 == $tget(roles,codemn,1)) { <BR> if (%gnumciv == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } <BR> <BR> %mes = $read(mafbot $+ %mesdir $+ checkroleswhatroleciv.txt) <BR> %i = 1 <BR> :agciv <BR> if (%i > $tnumrecs(players)) goto endciv <BR> %tnick = $tget(players,name,%i) <BR> if ($tget(players,role,%i) != 1) { inc %i | goto agciv } <BR> %mes = %mes %tnick $+ , <BR> inc %i <BR> goto agciv <BR> :endciv <BR> msg $1 $left(%mes,-1) <BR> return <BR> } <BR> <BR> if ($2 == $tget(roles,codemn,14)) { <BR> if (%gnumvam == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } <BR> %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolevam.txt) <BR> %i = 1 <BR> :agvam <BR> if (%i > $tnumrecs(players)) goto endvam <BR> %tnick = $tget(players,name,%i) <BR> if ($tget(players,vampire,%i) != 1) { inc %i | goto agvam } <BR> %mes = %mes %tnick $+ , <BR> inc %i <BR> goto agvam <BR> :endvam <BR> msg $1 $left(%mes,-1) <BR> return <BR> } <BR> <BR> %trole = $role($2) <BR> if ((%trole == 0) && ($tfind(players,name,$2) != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckciv.txt) | return } <BR> if (%trole == 1) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkat.txt) | return } <BR> if (%trole == 2) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckmaf.txt) | return } <BR> if (%trole == 3) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckman.txt) | return } <BR> if (%trole == 4) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdok.txt) | return } <BR> if (%trole == 5) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckbom.txt) | return } <BR> if (%trole == 6) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdev.txt) | return } <BR> if (%trole == 7) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckadv.txt) | return } <BR> if (%trole == 8) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckrep.txt) | return } <BR> if (%trole == 9) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckhak.txt) | return } <BR> if (%trole == 10) { msg $1 $read(mafbot $+ %mesdir $+ checkroleschecknec.txt) | return } <BR> if (%trole == 11) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkil.txt) | return } <BR> if (%trole == 12) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckagn.txt) | return } <BR> if (%trole == 16) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckshi.txt) | return } <BR> if (%trole == 17) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckble.txt) | return } <BR> <BR> msg $1 $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) <BR> write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatrole $2 by $getnicksysuser($1) <BR>} <BR> <BR>whatpoints { <BR> if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return <BR> if ($2 == $null) return <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> msg $1 $read(mafbot $+ %mesdir $+ othersshowmoney2.txt) <BR> write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatpoints $2 by $getnicksysuser($1) <BR>} <BR> <BR>execute { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> $2- <BR> write mafbotlogsmain.log $asctime(HH:nn:ss dd/mm/yy) - Execute by $getnicksysuser($1) - $2- <BR>} <BR> <BR>sayfromadmin { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),say) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> msg %curchannel %ncol $+ $getnicksysuser($1) $+ : $+ %ccol $2- <BR> write mafbotlogssay.log $asctime(HH:nn:ss dd/mm/yy) - Say by $getnicksysuser($1) - $2- <BR>} <BR> <BR>userhostcommand { <BR> if (%isuserhost == 1) return <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),userhost) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> if ($2 !ison %curchannel) { msg $1 %ncol $+ $2 %rcol $+ отсутствует на канале! | return } <BR> if (%addressesmode != 1) { msg $1 %rcol $+ Реальный адрес пользователя $+ %ncol $2 %rcol $+ - это $+ %ncol $gettok($address($2,2),2,64) | return } <BR> <BR> %isuserhost = 1 <BR> %userhostuser = $1 <BR> %userhostnick = $2 <BR> whois $2 <BR> timeruserhost -o 1 10 userhosttimeout <BR> write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Userhost $2 by $getnicksysuser($1) <BR>} <BR> <BR>getuserhost { <BR> if (%isuserhost == 0) return <BR> if ($1 != %userhostnick) return <BR> msg %userhostuser %rcol $+ Реальный адрес пользователя $+ %ncol $1 %rcol $+ - это $+ %ncol $right($left($2,-1),-1) <BR> timeruserhost off <BR> %isuserhost = 0 <BR>} <BR> <BR>userhosttimeout { <BR> %isuserhost = 0 <BR>} <BR> <BR>getlastclearlogs { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),logadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> msg $1 %rcol $+ В последний раз чистка логов mIRC производилась: %ncol $+ $asctime($read(mafbotlastclearlogs.txt,t,1),HH:nn:ss dd/mm/yy) <BR>} <BR> <BR>getlastbackup { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> msg $1 %rcol $+ В последний раз резервное архивирование статистики и настроек производилось: %ncol $+ $asctime($read(mafbotlastbackup.txt,t,1),HH:nn:ss dd/mm/yy) <BR>} <BR> <BR>showskins { <BR> var %i <BR> var %tskin <BR> var %mes <BR> <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> %i = 1 <BR> %mes = %ccol $+ Найденные скины: <BR> :next <BR> %tskin = $getfilename($findfile(mafbotiniskins,*.ini,%i)) <BR> if (%tskin == $null) goto end <BR> %mes = %mes %ncol $+ %tskin $+ %rcol $+ , <BR> inc %i <BR> goto next <BR> :end <BR> msg $1 $left(%mes,-1) <BR>;Останов бота человеком с ником $1 <BR>haltbot1 { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),halt) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> timer1 off <BR> %ishalted = 1 <BR> %ispaused = 0 <BR> endgame <BR> msg %curchannel $read(mafbot $+ %mesdir $+ othershaltbot1.txt) <BR> write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Halt game by $getnicksysuser($1) <BR>} <BR> <BR>;Регистрация игрока администратором канала <BR>reguser { <BR> var %tnick <BR> var %tuser <BR> var %tclone <BR> <BR> if (%isgame == 0) { mode %curchannel -v $1 | return } <BR> if (($isnickplayer($1) == 1) && ($isexited($1) == 0) && ($iskicked($1) == 0)) return <BR> <BR> if ((($getnicksysuser($2) == 0) || ($isnicksyshaspriv($getnicksysuser($2),reguser) == 0)) && ($2 != $me)) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg $2 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) <BR> return <BR> } <BR> %tuser = $getnicksysuser($1) <BR> if (%tuser == 0) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg $1 $read(mafbot $+ %mesdir $+ othersownermustidentify.txt) <BR> return <BR> } <BR> if ($gisnickplayer($1) == 1) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotrepeatreg.txt) <BR> return <BR> } <BR> if ($dll(mafbotmafbot.dll,getcuraddress,%tuser) == $null) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> return <BR> } <BR> if ($1 ison %curchannel) { <BR> if ($dll(mafbotmafbot.dll,getset,%tuser blocked) == 1) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg $2 $read(mafbot $+ %mesdir $+ othersuserblocked.txt) <BR> return <BR> } <BR> <BR> %tclone = $checkforclones($1) <BR> if (%tclone == 1) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg $2 $read(mafbot $+ %mesdir $+ othersclonedetected.txt) <BR> return <BR> } <BR> tadd players <BR> tmod players name $tnumrecs(players) $1 <BR> tmod players numrej $tnumrecs(players) %numrej <BR> tmod players role $tnumrecs(players) 1 <BR> tmod players address $tnumrecs(players) $dll(mafbotmafbot.dll,getcuraddress,%tuser) <BR> tmod players uname $tnumrecs(players) %tuser <BR> tmod players ofnote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) <BR> tmod players lognote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) <BR> tmod players victime $tnumrecs(players) $null <BR> tmod players phrase $tnumrecs(players) $null <BR> <BR> inc %numciv <BR> inc %numplayers <BR> inc %numciv2 <BR> <BR> if ($1 !isvoice %curchannel) mode %curchannel +v $1 <BR> if ($1 isop %curchannel && $1 != $me) mode %curchannel -o $1 <BR> if ($1 ishop %curchannel && $1 != $me) mode %curchannel -h $1 <BR> <BR> msg %curchannel $read(mafbot $+ %mesdir $+ othersreguser.txt) <BR> write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Reguser $1 by $getnicksysuser($2) <BR> } <BR>} <BR> <BR>;Выброс человеком $1 человека $2 из игры с комментом $3 <BR>kickfromgameby { <BR> if (($isnickplayer($2) == 0) || ($iskicked($2) == 1) || ($isexited($2) == 1) || (%isgame == 0) || ($2 == $null)) return <BR> <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),k) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | if ($2 !isvoice %curchannel) mode %curchannel +v $2 | return } <BR> if ((($getnicksysuser($2) != 0) && ($isnicksyshaspriv($getnicksysuser($2),protect) == 1) && ($isnicksyshaspriv($getnicksysuser($1),protect) == 0)) || ($2 == $me)) { <BR> msg $1 $read(mafbot $+ %mesdir $+ othersuserprotected.txt) <BR> if ($2 !isvoice %curchannel) mode %curchannel +v $2 <BR> return <BR> } <BR> <BR> msg %curchannel $read(mafbot $+ %mesdir $+ otherskickfromgame.txt) <BR> kamikadze $2 <BR> write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Kick from game $2 by $getnicksysuser($1) with comment: $3- <BR>} <BR> <BR>setpaused { <BR> var %maintimernum <BR> var %i <BR> if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> if (%ispaused != 0) return <BR> <BR> %i = 1 <BR> :next <BR> if (%i > $timer(0)) { msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotpause.txt) | return } <BR> if ($timer(%i) == 1) { %maintimernum = %i | goto end } <BR> inc %i <BR> goto next <BR> :end <BR> remove mafbotpausecom.txt <BR> remove mafbotpausesecs.txt <BR> write -l1 mafbotpausecom.txt $timer(%maintimernum).com | write -l1 mafbotpausesecs.txt $timer(%maintimernum).secs <BR> timer1 off <BR> %ispaused = 1 <BR> if (%isconnected == 1) { <BR> if ($1 != $null) msg %curchannel $read(mafbot $+ %mesdir $+ othersgamepaused.txt) <BR> else msg %curchannel $read(mafbot $+ %mesdir $+ othersautopause.txt) <BR> } <BR> write -l1 mafbotpausepausetime.txt $ctime <BR> if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - $asctime(HH:nn:ss dd/mm/yy) - Pause by $getnicksysuser($1) <BR> else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autopause <BR>} <BR> <BR>setunpaused { <BR> if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> if (%ispaused == 0) return <BR> else afterpause <BR> if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Resume by $getnicksysuser($1) <BR> else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autoresume <BR>} <BR> <BR>whatrole { <BR> var %mes <BR> var %tnick <BR> var %i <BR> var %trole <BR> <BR> if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return <BR> if ($2 == $null) return <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> if (($2 == $tget(roles,code,2)) && (%gnumkat != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekat.txt) | return } <BR> if (($2 == $tget(roles,code,4)) && (%gnumman != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleman.txt) | return } <BR> if (($2 == $tget(roles,code,5)) && (%gnumdok != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledok.txt) | return } <BR> if (($2 == $tget(roles,code,6)) && (%gnumbom != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolebom.txt) | return } <BR> if (($2 == $tget(roles,code,7)) && (%gnumdev != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledev.txt) | return } <BR> if (($2 == $tget(roles,code,8)) && (%gnumadv != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleadv.txt) | return } <BR> if (($2 == $tget(roles,code,9)) && (%gnumrep != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolerep.txt) | return } <BR> if (($2 == $tget(roles,code,10)) && (%gnumhak != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolehak.txt) | return } <BR> if (($2 == $tget(roles,code,11)) && (%gnumnec != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolenec.txt) | return } <BR> if (($2 == $tget(roles,code,12)) && (%gnumkil != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekil.txt) | return } <BR> if (($2 == $tget(roles,code,13)) && (%gnumagn != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleagn.txt) | return } <BR> if (($2 == $tget(roles,code,17)) && (%gnumshi != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleshi.txt) | return } <BR> if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } <BR> if (($2 == $tget(roles,code,15)) && (%gnumdem != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledem.txt) | return } <BR> if (($2 == $tget(roles,code,16)) && (%gnumgho != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolegho.txt) | return } <BR> if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } <BR> <BR> if ($2 == $tget(roles,codemn,3)) { <BR> if (%gnummaf == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } <BR> <BR> %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolemaf.txt) <BR> %i = 1 <BR> :agmaf <BR> if (%i > $tnumrecs(players)) goto endmaf <BR> %tnick = $tget(players,name,%i) <BR> if ($tget(players,role,%i) != 3) { inc %i | goto agmaf } <BR> %mes = %mes %tnick $+ , <BR> inc %i <BR> goto agmaf <BR> :endmaf <BR> msg $1 $left(%mes,-1) <BR> return <BR> } <BR> if ($2 == $tget(roles,codemn,1)) { <BR> if (%gnumciv == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } <BR> <BR> %mes = $read(mafbot $+ %mesdir $+ checkroleswhatroleciv.txt) <BR> %i = 1 <BR> :agciv <BR> if (%i > $tnumrecs(players)) goto endciv <BR> %tnick = $tget(players,name,%i) <BR> if ($tget(players,role,%i) != 1) { inc %i | goto agciv } <BR> %mes = %mes %tnick $+ , <BR> inc %i <BR> goto agciv <BR> :endciv <BR> msg $1 $left(%mes,-1) <BR> return <BR> } <BR> <BR> if ($2 == $tget(roles,codemn,14)) { <BR> if (%gnumvam == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } <BR> %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolevam.txt) <BR> %i = 1 <BR> :agvam <BR> if (%i > $tnumrecs(players)) goto endvam <BR> %tnick = $tget(players,name,%i) <BR> if ($tget(players,vampire,%i) != 1) { inc %i | goto agvam } <BR> %mes = %mes %tnick $+ , <BR> inc %i <BR> goto agvam <BR> :endvam <BR> msg $1 $left(%mes,-1) <BR> return <BR> } <BR> <BR> %trole = $role($2) <BR> if ((%trole == 0) && ($tfind(players,name,$2) != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckciv.txt) | return } <BR> if (%trole == 1) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkat.txt) | return } <BR> if (%trole == 2) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckmaf.txt) | return } <BR> if (%trole == 3) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckman.txt) | return } <BR> if (%trole == 4) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdok.txt) | return } <BR> if (%trole == 5) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckbom.txt) | return } <BR> if (%trole == 6) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdev.txt) | return } <BR> if (%trole == 7) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckadv.txt) | return } <BR> if (%trole == 8) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckrep.txt) | return } <BR> if (%trole == 9) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckhak.txt) | return } <BR> if (%trole == 10) { msg $1 $read(mafbot $+ %mesdir $+ checkroleschecknec.txt) | return } <BR> if (%trole == 11) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkil.txt) | return } <BR> if (%trole == 12) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckagn.txt) | return } <BR> if (%trole == 16) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckshi.txt) | return } <BR> if (%trole == 17) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckble.txt) | return } <BR> <BR> msg $1 $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) <BR> write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatrole $2 by $getnicksysuser($1) <BR>} <BR> <BR>whatpoints { <BR> if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return <BR> if ($2 == $null) return <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> msg $1 $read(mafbot $+ %mesdir $+ othersshowmoney2.txt) <BR> write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatpoints $2 by $getnicksysuser($1) <BR>} <BR> <BR>execute { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> $2- <BR> write mafbotlogsmain.log $asctime(HH:nn:ss dd/mm/yy) - Execute by $getnicksysuser($1) - $2- <BR>} <BR> <BR>sayfromadmin { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),say) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> msg %curchannel %ncol $+ $getnicksysuser($1) $+ : $+ %ccol $2- <BR> write mafbotlogssay.log $asctime(HH:nn:ss dd/mm/yy) - Say by $getnicksysuser($1) - $2- <BR>} <BR> <BR>userhostcommand { <BR> if (%isuserhost == 1) return <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),userhost) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> if ($2 !ison %curchannel) { msg $1 %ncol $+ $2 %rcol $+ отсутствует на канале! | return } <BR> if (%addressesmode != 1) { msg $1 %rcol $+ Реальный адрес пользователя $+ %ncol $2 %rcol $+ - это $+ %ncol $gettok($address($2,2),2,64) | return } <BR> <BR> %isuserhost = 1 <BR> %userhostuser = $1 <BR> %userhostnick = $2 <BR> whois $2 <BR> timeruserhost -o 1 10 userhosttimeout <BR> write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Userhost $2 by $getnicksysuser($1) <BR>} <BR> <BR>getuserhost { <BR> if (%isuserhost == 0) return <BR> if ($1 != %userhostnick) return <BR> msg %userhostuser %rcol $+ Реальный адрес пользователя $+ %ncol $1 %rcol $+ - это $+ %ncol $right($left($2,-1),-1) <BR> timeruserhost off <BR> %isuserhost = 0 <BR>} <BR> <BR>userhosttimeout { <BR> %isuserhost = 0 <BR>} <BR> <BR>getlastclearlogs { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),logadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> msg $1 %rcol $+ В последний раз чистка логов mIRC производилась: %ncol $+ $asctime($read(mafbotlastclearlogs.txt,t,1),HH:nn:ss dd/mm/yy) <BR>} <BR> <BR>getlastbackup { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> msg $1 %rcol $+ В последний раз резервное архивирование статистики и настроек производилось: %ncol $+ $asctime($read(mafbotlastbackup.txt,t,1),HH:nn:ss dd/mm/yy) <BR>} <BR> <BR>showskins { <BR> var %i <BR> var %tskin <BR> var %mes <BR> <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> %i = 1 <BR> %mes = %ccol $+ Найденные скины: <BR> :next <BR> %tskin = $getfilename($findfile(mafbotiniskins,*.ini,%i)) <BR> if (%tskin == $null) goto end <BR> %mes = %mes %ncol $+ %tskin $+ %rcol $+ , <BR> inc %i <BR> goto next <BR> :end <BR> msg $1 $left(%mes,-1) <BR>;Останов бота человеком с ником $1 <BR>haltbot1 { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),halt) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> timer1 off <BR> %ishalted = 1 <BR> %ispaused = 0 <BR> endgame <BR> msg %curchannel $read(mafbot $+ %mesdir $+ othershaltbot1.txt) <BR> write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Halt game by $getnicksysuser($1) <BR>} <BR> <BR>;Регистрация игрока администратором канала <BR>reguser { <BR> var %tnick <BR> var %tuser <BR> var %tclone <BR> <BR> if (%isgame == 0) { mode %curchannel -v $1 | return } <BR> if (($isnickplayer($1) == 1) && ($isexited($1) == 0) && ($iskicked($1) == 0)) return <BR> <BR> if ((($getnicksysuser($2) == 0) || ($isnicksyshaspriv($getnicksysuser($2),reguser) == 0)) && ($2 != $me)) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg $2 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) <BR> return <BR> } <BR> %tuser = $getnicksysuser($1) <BR> if (%tuser == 0) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg $1 $read(mafbot $+ %mesdir $+ othersownermustidentify.txt) <BR> return <BR> } <BR> if ($gisnickplayer($1) == 1) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotrepeatreg.txt) <BR> return <BR> } <BR> if ($dll(mafbotmafbot.dll,getcuraddress,%tuser) == $null) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> return <BR> } <BR> if ($1 ison %curchannel) { <BR> if ($dll(mafbotmafbot.dll,getset,%tuser blocked) == 1) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg $2 $read(mafbot $+ %mesdir $+ othersuserblocked.txt) <BR> return <BR> } <BR> <BR> %tclone = $checkforclones($1) <BR> if (%tclone == 1) { <BR> if ($1 isvoice %curchannel) mode %curchannel -v $1 <BR> msg $2 $read(mafbot $+ %mesdir $+ othersclonedetected.txt) <BR> return <BR> } <BR> tadd players <BR> tmod players name $tnumrecs(players) $1 <BR> tmod players numrej $tnumrecs(players) %numrej <BR> tmod players role $tnumrecs(players) 1 <BR> tmod players address $tnumrecs(players) $dll(mafbotmafbot.dll,getcuraddress,%tuser) <BR> tmod players uname $tnumrecs(players) %tuser <BR> tmod players ofnote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) <BR> tmod players lognote $tnumrecs(players) $read(mafbot $+ %mesdir $+ othersnotchecked.txt) <BR> tmod players victime $tnumrecs(players) $null <BR> tmod players phrase $tnumrecs(players) $null <BR> <BR> inc %numciv <BR> inc %numplayers <BR> inc %numciv2 <BR> <BR> if ($1 !isvoice %curchannel) mode %curchannel +v $1 <BR> if ($1 isop %curchannel && $1 != $me) mode %curchannel -o $1 <BR> if ($1 ishop %curchannel && $1 != $me) mode %curchannel -h $1 <BR> <BR> msg %curchannel $read(mafbot $+ %mesdir $+ othersreguser.txt) <BR> write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Reguser $1 by $getnicksysuser($2) <BR> } <BR>} <BR> <BR>;Выброс человеком $1 человека $2 из игры с комментом $3 <BR>kickfromgameby { <BR> if (($isnickplayer($2) == 0) || ($iskicked($2) == 1) || ($isexited($2) == 1) || (%isgame == 0) || ($2 == $null)) return <BR> <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),k) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | if ($2 !isvoice %curchannel) mode %curchannel +v $2 | return } <BR> if ((($getnicksysuser($2) != 0) && ($isnicksyshaspriv($getnicksysuser($2),protect) == 1) && ($isnicksyshaspriv($getnicksysuser($1),protect) == 0)) || ($2 == $me)) { <BR> msg $1 $read(mafbot $+ %mesdir $+ othersuserprotected.txt) <BR> if ($2 !isvoice %curchannel) mode %curchannel +v $2 <BR> return <BR> } <BR> <BR> msg %curchannel $read(mafbot $+ %mesdir $+ otherskickfromgame.txt) <BR> kamikadze $2 <BR> write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Kick from game $2 by $getnicksysuser($1) with comment: $3- <BR>} <BR> <BR>setpaused { <BR> var %maintimernum <BR> var %i <BR> if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> if (%ispaused != 0) return <BR> <BR> %i = 1 <BR> :next <BR> if (%i > $timer(0)) { msg %curchannel $read(mafbot $+ %mesdir $+ otherscannotpause.txt) | return } <BR> if ($timer(%i) == 1) { %maintimernum = %i | goto end } <BR> inc %i <BR> goto next <BR> :end <BR> remove mafbotpausecom.txt <BR> remove mafbotpausesecs.txt <BR> write -l1 mafbotpausecom.txt $timer(%maintimernum).com | write -l1 mafbotpausesecs.txt $timer(%maintimernum).secs <BR> timer1 off <BR> %ispaused = 1 <BR> if (%isconnected == 1) { <BR> if ($1 != $null) msg %curchannel $read(mafbot $+ %mesdir $+ othersgamepaused.txt) <BR> else msg %curchannel $read(mafbot $+ %mesdir $+ othersautopause.txt) <BR> } <BR> write -l1 mafbotpausepausetime.txt $ctime <BR> if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - $asctime(HH:nn:ss dd/mm/yy) - Pause by $getnicksysuser($1) <BR> else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autopause <BR>} <BR> <BR>setunpaused { <BR> if ((($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),pause) == 0)) && ($1 != $null)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> if (%ispaused == 0) return <BR> else afterpause <BR> if ($1 != $null) write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Resume by $getnicksysuser($1) <BR> else write mafbotlogshalfop.log $asctime(HH:nn:ss dd/mm/yy) - Autoresume <BR>} <BR> <BR>whatrole { <BR> var %mes <BR> var %tnick <BR> var %i <BR> var %trole <BR> <BR> if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return <BR> if ($2 == $null) return <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> if (($2 == $tget(roles,code,2)) && (%gnumkat != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekat.txt) | return } <BR> if (($2 == $tget(roles,code,4)) && (%gnumman != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleman.txt) | return } <BR> if (($2 == $tget(roles,code,5)) && (%gnumdok != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledok.txt) | return } <BR> if (($2 == $tget(roles,code,6)) && (%gnumbom != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolebom.txt) | return } <BR> if (($2 == $tget(roles,code,7)) && (%gnumdev != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledev.txt) | return } <BR> if (($2 == $tget(roles,code,8)) && (%gnumadv != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleadv.txt) | return } <BR> if (($2 == $tget(roles,code,9)) && (%gnumrep != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolerep.txt) | return } <BR> if (($2 == $tget(roles,code,10)) && (%gnumhak != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolehak.txt) | return } <BR> if (($2 == $tget(roles,code,11)) && (%gnumnec != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolenec.txt) | return } <BR> if (($2 == $tget(roles,code,12)) && (%gnumkil != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolekil.txt) | return } <BR> if (($2 == $tget(roles,code,13)) && (%gnumagn != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleagn.txt) | return } <BR> if (($2 == $tget(roles,code,17)) && (%gnumshi != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleshi.txt) | return } <BR> if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } <BR> if (($2 == $tget(roles,code,15)) && (%gnumdem != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroledem.txt) | return } <BR> if (($2 == $tget(roles,code,16)) && (%gnumgho != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatrolegho.txt) | return } <BR> if (($2 == $tget(roles,code,18)) && (%gnumble != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkroleswhatroleble.txt) | return } <BR> <BR> if ($2 == $tget(roles,codemn,3)) { <BR> if (%gnummaf == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } <BR> <BR> %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolemaf.txt) <BR> %i = 1 <BR> :agmaf <BR> if (%i > $tnumrecs(players)) goto endmaf <BR> %tnick = $tget(players,name,%i) <BR> if ($tget(players,role,%i) != 3) { inc %i | goto agmaf } <BR> %mes = %mes %tnick $+ , <BR> inc %i <BR> goto agmaf <BR> :endmaf <BR> msg $1 $left(%mes,-1) <BR> return <BR> } <BR> if ($2 == $tget(roles,codemn,1)) { <BR> if (%gnumciv == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } <BR> <BR> %mes = $read(mafbot $+ %mesdir $+ checkroleswhatroleciv.txt) <BR> %i = 1 <BR> :agciv <BR> if (%i > $tnumrecs(players)) goto endciv <BR> %tnick = $tget(players,name,%i) <BR> if ($tget(players,role,%i) != 1) { inc %i | goto agciv } <BR> %mes = %mes %tnick $+ , <BR> inc %i <BR> goto agciv <BR> :endciv <BR> msg $1 $left(%mes,-1) <BR> return <BR> } <BR> <BR> if ($2 == $tget(roles,codemn,14)) { <BR> if (%gnumvam == 0) { $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) | return } <BR> %mes = $read(mafbot $+ %mesdir $+ checkroleswhatrolevam.txt) <BR> %i = 1 <BR> :agvam <BR> if (%i > $tnumrecs(players)) goto endvam <BR> %tnick = $tget(players,name,%i) <BR> if ($tget(players,vampire,%i) != 1) { inc %i | goto agvam } <BR> %mes = %mes %tnick $+ , <BR> inc %i <BR> goto agvam <BR> :endvam <BR> msg $1 $left(%mes,-1) <BR> return <BR> } <BR> <BR> %trole = $role($2) <BR> if ((%trole == 0) && ($tfind(players,name,$2) != 0)) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckciv.txt) | return } <BR> if (%trole == 1) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkat.txt) | return } <BR> if (%trole == 2) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckmaf.txt) | return } <BR> if (%trole == 3) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckman.txt) | return } <BR> if (%trole == 4) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdok.txt) | return } <BR> if (%trole == 5) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckbom.txt) | return } <BR> if (%trole == 6) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckdev.txt) | return } <BR> if (%trole == 7) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckadv.txt) | return } <BR> if (%trole == 8) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckrep.txt) | return } <BR> if (%trole == 9) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckhak.txt) | return } <BR> if (%trole == 10) { msg $1 $read(mafbot $+ %mesdir $+ checkroleschecknec.txt) | return } <BR> if (%trole == 11) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckkil.txt) | return } <BR> if (%trole == 12) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckagn.txt) | return } <BR> if (%trole == 16) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckshi.txt) | return } <BR> if (%trole == 17) { msg $1 $read(mafbot $+ %mesdir $+ checkrolescheckble.txt) | return } <BR> <BR> msg $1 $read(mafbot $+ %mesdir $+ otherswrongpar2.txt) <BR> write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatrole $2 by $getnicksysuser($1) <BR>} <BR> <BR>whatpoints { <BR> if ((%isgame == 0) || (%isconf == 1) || (%isreg == 1)) return <BR> if ($2 == $null) return <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> msg $1 $read(mafbot $+ %mesdir $+ othersshowmoney2.txt) <BR> write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Whatpoints $2 by $getnicksysuser($1) <BR>} <BR> <BR>execute { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> $2- <BR> write mafbotlogsmain.log $asctime(HH:nn:ss dd/mm/yy) - Execute by $getnicksysuser($1) - $2- <BR>} <BR> <BR>sayfromadmin { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),say) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> msg %curchannel %ncol $+ $getnicksysuser($1) $+ : $+ %ccol $2- <BR> write mafbotlogssay.log $asctime(HH:nn:ss dd/mm/yy) - Say by $getnicksysuser($1) - $2- <BR>} <BR> <BR>userhostcommand { <BR> if (%isuserhost == 1) return <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),userhost) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> if ($2 !ison %curchannel) { msg $1 %ncol $+ $2 %rcol $+ отсутствует на канале! | return } <BR> if (%addressesmode != 1) { msg $1 %rcol $+ Реальный адрес пользователя $+ %ncol $2 %rcol $+ - это $+ %ncol $gettok($address($2,2),2,64) | return } <BR> <BR> %isuserhost = 1 <BR> %userhostuser = $1 <BR> %userhostnick = $2 <BR> whois $2 <BR> timeruserhost -o 1 10 userhosttimeout <BR> write mafbotlogsadmin.log $asctime(HH:nn:ss dd/mm/yy) - Userhost $2 by $getnicksysuser($1) <BR>} <BR> <BR>getuserhost { <BR> if (%isuserhost == 0) return <BR> if ($1 != %userhostnick) return <BR> msg %userhostuser %rcol $+ Реальный адрес пользователя $+ %ncol $1 %rcol $+ - это $+ %ncol $right($left($2,-1),-1) <BR> timeruserhost off <BR> %isuserhost = 0 <BR>} <BR> <BR>userhosttimeout { <BR> %isuserhost = 0 <BR>} <BR> <BR>getlastclearlogs { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),logadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> msg $1 %rcol $+ В последний раз чистка логов mIRC производилась: %ncol $+ $asctime($read(mafbotlastclearlogs.txt,t,1),HH:nn:ss dd/mm/yy) <BR>} <BR> <BR>getlastbackup { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> msg $1 %rcol $+ В последний раз резервное архивирование статистики и настроек производилось: %ncol $+ $asctime($read(mafbotlastbackup.txt,t,1),HH:nn:ss dd/mm/yy) <BR>} <BR> <BR>showskins { <BR> var %i <BR> var %tskin <BR> var %mes <BR> <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),botadmin) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> %i = 1 <BR> %mes = %ccol $+ Найденные скины: <BR> :next <BR> %tskin = $getfilename($findfile(mafbotiniskins,*.ini,%i)) <BR> if (%tskin == $null) goto end <BR> %mes = %mes %ncol $+ %tskin $+ %rcol $+ , <BR> inc %i <BR> goto next <BR> :end <BR> msg $1 $left(%mes,-1) <BR>;Останов бота человеком с ником $1 <BR>haltbot1 { <BR> if (($getnicksysuser($1) == 0) || ($isnicksyshaspriv($getnicksysuser($1),halt) == 0)) { msg $1 $read(mafbot $+ %mesdir $+ otherscannotusecommand.txt) | return } <BR> timer1 off <BR> %ishalted = 1 |
| 2007-10-31 20:43:32 Arsenal гбгбгббгб |
| 2007-10-31 20:43:36 Arsenal гл |
| 2007-10-31 20:43:47 Arsenal нао |
| 2007-10-31 20:43:51 Arsenal 8327 |
| 2007-10-31 20:43:55 Arsenal дндв |
| 2007-10-31 20:44:00 Arsenal глднва |
| 2007-10-31 20:44:08 Arsenal тнектнектнетнтнтнтнт |
| 2007-10-31 20:44:15 Arsenal тнектнектнетнтнтнтнтчвсвыиы |
| 2007-10-31 20:44:19 Arsenal 6ефрфр |
2007-11-05 12:05:25 ![гильдия Столичные Кузнецы (Адепт)[670]](../images/clans/smith_capital_small.gif){kind=small} Сирень Kryl 0.0 |
| 2007-11-05 12:06:07 Arsenal фвы |
| 2007-11-05 12:06:15 Arsenal вфыа |
| 2007-11-05 12:06:53 Arsenal вфы |
| 2007-11-05 12:06:57 Arsenal 543 |
| 2007-11-05 12:07:01 Arsenal 543 |
| 2007-11-05 12:07:05 Arsenal 453 |
| 2007-11-05 12:07:08 Arsenal 453 |
| 2007-11-05 12:07:12 Arsenal 453 |
| 2007-11-05 12:11:41 Arsenal 453 |
| 1 | 2 | 3 | 4 |