XaVeR Posted May 14, 2006 Share Posted May 14, 2006 i added some scripts to admin system by aeron... alias cs.version !return v1.0 Public on *:SIGNAL:mta.join: { if ($findtok(login logout register help,$mta.name($1,$2),1,32)) { mta.msg $1 $2 Nick $+(',$mta.name($1,$2),') jest zabroniony. mta.kick $1 $2 } elseif ($ini(nickserv.ini,$mta.name($1,$2))) { mta.msg $1 $2 Nick $+(',$mta.name($1,$2),') jest zarejestrowany. masz 30 sekund aby sie zalogowac. mta.msg $1 $2 Aby sie zalogowac wpisz "/msg login ". $+(!.timer,$1,.,$2) 1 30 mta.kick $1 $2 } else { mta.msg $1 $2 Na serwerze sa uruchomione skrypty MTA:CS by XaVeR! Mozesz sie zarejestrowac! mta.msg $1 $2 Wiecej informacji: "/msg help". } } on *:SIGNAL:mta.start: { if (!%ping.max) %ping.max = 200 !.timerpingkick 0 10 pingkick } on *:SIGNAL:mta.quit: { !.timerpingkick off } on *:SIGNAL:mta.part: { $+(!.timer,$1,.,$2) off !hdel Ping. $+ $1 $2 } on *:SIGNAL:mta.pm: { if ($3 == login) { if ($ini(nickserv.ini,$mta.name($1,$2))) { if ($readini($mta.dir $+ $1.ini,ID $+ $2,level) == $null) { if ($readini(nickserv.ini,$mta.name($1,$2),pass) == $4-) { if ($readini(nickserv.ini,$mta.name($1,$2),level)) { mta.say $1 $+(',$mta.name($1,$2),') zalogowany jako admin. (Poziom: $readini(nickserv.ini,$mta.name($1,$2),level) $+ ) } else { mta.say $1 $+(',$mta.name($1,$2),') zalogowany jako member. } !writeini nickserv.ini $mta.name($1,$2) logintry 3 !writeini $+(",$nofile($script(mta.mrc)),$1.ini,") ID $+ $2 level $readini(nickserv.ini,$mta.name($1,$2),level) $+(!.timer,$1,.,$2) off } else { if ($readini(nickserv.ini,$mta.name($1,$2),logintry) > 0) { !writeini nickserv.ini $mta.name($1,$2) logintry $calc($readini(nickserv.ini,$mta.name($1,$2),logintry)-1) mta.msg $1 $2 Niepoprawne haslo dla $+(',$mta.name($1,$2),'.) Pozostalo ( $+ $readini(nickserv.ini,$mta.name($1,$2),logintry) prob.) } else { mta.say $1 $+(',$mta.name($1,$2),'.) zostal zbanowany przez Nick-Server: Zbyt wiele blednych prob logowania. mta.ban $1 $2 Nick-Server: Zbyt wiele blednych prob logowania. !writeini nickserv.ini $mta.name($1,$2) logintry 3 $+(!.timer,$1,.,$2) off } } } else { mta.msg $1 $2 Jestes juz zalogowany. } } else { mta.msg $1 $2 $+(',$mta.name($1,$2),') nie jest zarejestrowany. } } elseif ($3 == help) { if ($4 == commands) { mta.msg $1 $2 Komendy pomocy: mta.msg $1 $2 "/msg login " Logowanie do Nick-Servera. mta.msg $1 $2 "/msg logout" wylogowanie z Nick-Servera. mta.msg $1 $2 "/msg register " Rejestracja nicka do Nick-Servera. mta.msg $1 $2 "/msg set " Zmiana ustawien konta. } else { mta.msg $1 $2 Pomoc: mta.msg $1 $2 Nick-Server pozwala na rejestracje wlasnego nicka, aby inni nie mogli go uzywac. mta.msg $1 $2 Wpisz "/msg help commands" zeby uzyskac pomoc dotyczaca komend. } } if ($3 == logout) { if ($ini(nickserv.ini,$mta.name($1,$2))) { if ($readini($mta.dir $+ $1.ini,ID $+ $2,level) != $null) { if ($readini(nickserv.ini,$mta.name($1,$2),level)) { mta.say $1 $+(',$mta.name($1,$2),'.) wylogowany jako admin. (Poziom: $readini(nickserv.ini,$mta.name($1,$2),level) $+ ) } else { mta.say $1 $+(',$mta.name($1,$2),'.) wylogowany. } !remini $+(",$nofile($script(mta.mrc)),$1.ini,") ID $+ $2 level } else { mta.msg $1 $2 Nie jestes zalogowany. } } else { mta.msg $1 $2 $+(',$mta.name($1,$2),') nie jest zarejestrowany. } } elseif ($3 == register) { if ($ini(nickserv.ini,$mta.name($1,$2))) { mta.msg $1 $2 $+(',$mta.name($1,$2),'.) jest juz zarejestrowany. } elseif ($5 == $null) { mta.msg $1 $2 Wpisz: "/msg register " } elseif (*@*.* !iswm $4) { mta.msg $1 $2 Niepoprawny e-Mail. "/msg register " } else { !writeini nickserv.ini $mta.name($1,$2) logintry 3 !writeini nickserv.ini $mta.name($1,$2) ip $mta.ip($1,$2) !writeini nickserv.ini $mta.name($1,$2) email $4 !writeini nickserv.ini $mta.name($1,$2) pass $5- mta.msg $1 $2 $+(',$mta.name($1,$2),'.) zostal zarejestrowany. mta.msg $1 $2 Informacje konta - Nick: $mta.name($1,$2) $+ , Haslo: $5-, IP: $mta.ip($1,$2) $+ , Email: $4. mta.msg $1 $2 Wpisz "/msg login " zeby sie zalogowac, "/msg set " aby edytowac konto. } } elseif ($3 == set) { if ($ini(nickserv.ini,$mta.name($1,$2))) { if ($readini($mta.dir $+ $1.ini,ID $+ $2,level) != $null) { if ($5 == $null) || (($4 != email) && ($4 != password)) { mta.msg $1 $2 Wpisz: "/msg set " } elseif ($4 == email) { if (*@*.* !iswm $5) { mta.msg $1 $2 Niepoprawny e-Mail. "/msg set " } else { !writeini nickserv.ini $mta.name($1,$2) email $5 mta.msg $1 $2 Informacje konta - Nick: $mta.name($1,$2) $+ , Haslo: $readini(nickserv.ini,$mta.name($1,$2),pass) $+ , IP: $readini(nickserv.ini,$mta.name($1,$2),ip) $+ , Email: $readini(nickserv.ini,$mta.name($1,$2),email) $+ . } } elseif ($4 == password) { !writeini nickserv.ini $mta.name($1,$2) pass $5- mta.msg $1 $2 Informacje konta - Nick: $mta.name($1,$2) $+ , Haslo: $readini(nickserv.ini,$mta.name($1,$2),pass) $+ , IP: $readini(nickserv.ini,$mta.name($1,$2),ip) $+ , Email: $readini(nickserv.ini,$mta.name($1,$2),email) $+ . } } else { mta.msg $1 $2 Nie jestes zalogowany. } } else { mta.msg $1 $2 $+(',$mta.name($1,$2),') nie jest zarejestrowany. } } ;End Nick-Server } on *:SIGNAL:mta.command: { var %a = $readini($nofile($script(mta.mrc)) $+ $1.ini,ID $+ $2,level),%b if (%a > -1) { if (%a > 0) { if (%a > 1) { if (%a > 2) { if (%a > 3) { if (%a > 4) { ;Begin Admin level 5 commands if $3 == !lolc { mta.say $1 $mta.name($1,$2) jest boski ;d } } elseif $3 == !ban { if $2 == %b mta.msg $1 $2 Nie mozesz zbanowac siebie. else { if ($mta.level($1,%b) > %a) { mta.msg $1 $2 Nie mozesz zbanowac Admina z wyzszym poziomem. mta.msg $1 %b Admin $+(',$mta.name($1,$2),') probowal cie zbanowac. Powod: $iif($5,$5-,Brak.) } else { if %b == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Niepoprawny ID else { mta.say $1 $+(',$mta.name($1,%b),') dostal bana od $+(',$mta.name($1,$2),') Powod: $iif($5,$5-,Brak.) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" banreasons $mta.name($1,%b) $5- $date $time $mta.name($1,$2) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" bannedip $mta.name($1,%b) $mta.ip($1,%b) $date $time $mta.name($1,$2) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" main $mta.name($1,%b) 4 if $readini($sbg.dir $+ MTAbans.ini,shortip,$gettok($mta.ip($1,%b),1-2,46)) && $mta.name($1,%b) !isin $readini($sbg.dir $+ MTAbans.ini,shortip,$gettok($mta.ip($1,%b),1-2,46)) { !writeini -n " $+ $sbg.dir $+ MTAbans.ini" shortip $gettok($mta.ip($1,%b),1-2,46) $readini($sbg.dir $+ MTAbans.ini,shortip,$gettok($mta.ip($1,%b),1-2,46)) $+ , $mta.name($1,%b) } else { !writeini -n " $+ $sbg.dir $+ MTAbans.ini" shortip $gettok($mta.ip($1,%b),1-2,46) $mta.name($1,%b) } mta.ban $1 %b } } } } elseif $3 == !blacklist && $readini($sbg.dir $+ options.ini,main,blacklist) { if $2 == %b mta.msg $1 $2 Nie mozesz wpisac siebie do czarnej listy else { if ($mta.level($1,%b) > %a) { mta.msg $1 $2 Nie mozesz wpisac na czarna liste Admina z wyzszym poziomem. mta.msg $1 %b Admin $+(',$mta.name($1,$2),') probowal wpisac cie na czarna liste Powod: $iif($5,$5-,Brak.) } else { if %b == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Niepoprawny ID else { mta.say $1 $+(',$mta.name($1,%b),') zostal wpisany na czarna liste przez $+(',$mta.name($1,$2),':) $iif($5,$5-,No reason.) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" banreasons $mta.name($1,%b) $5- $date $time $mta.name($1,$2) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" bannedip $mta.name($1,%b) $mta.ip($1,%b) $date $time $mta.name($1,$2) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" main $mta.name($1,%b) 4 !writeini -n " $+ $sbg.dir $+ MTAbans.ini" blacklist $mta.name($1,%b) 1 if $readini($sbg.dir $+ MTAbans.ini,shortip,$gettok($mta.ip($1,%b),1-2,46)) && $mta.name($1,%b) !isin $readini($sbg.dir $+ MTAbans.ini,shortip,$gettok($mta.ip($1,%b),1-2,46)) { !writeini -n " $+ $sbg.dir $+ MTAbans.ini" shortip $gettok($mta.ip($1,%b),1-2,46) $readini($sbg.dir $+ MTAbans.ini,shortip,$gettok($mta.ip($1,%b),1-2,46)) $+ , $mta.name($1,%b) } else { !writeini -n " $+ $sbg.dir $+ MTAbans.ini" shortip $gettok($mta.ip($1,%b),1-2,46) $mta.name($1,%b) } mta.ban $1 %b } } } } elseif $3 == !tempban { if ($2 == %b) mta.msg $1 $2 Nie mozesz tymczasowo siebie zbanowac. else { if ($mta.level($1,%b) > %a) { mta.msg $1 $2 Nie mozesz tymczasowo zbanowac Admina z wyzszym poziomem. mta.msg $1 %b Admin $+(',$mta.name($1,$2),') probowal cie tymczasowo zbanowac. Powod: $iif($7,$7-,Brak.) } else { if %b == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Niepoprawny ID else { if $4 != $null { if $5 isnum && $5 >= 1 { var %g = $readini($sbg.dir $+ MTAbans.ini,main,tempbans) if s* iswm $6 { !writeini -n " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) name $mta.name($1,%b) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) time $ctime !writeini -n " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) till $calc($ctime + $5) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) ip $mta.ip($1,%b) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) server $mta.server($1) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) serverno $1 !write " $+ $sbg.dir $+ tempbans.txt" $mta.ip($1,%b) if $7 != $null { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) reason $7- } !.timer 1 $5 sbg.unban $mta.ip($1,%b) mta.say $1 ' $+ $mta.name($1,%b) $+ ' zostal tymczasowo zbanowany przez $mta.name($1,$2) na $5 $iif($5 == 1,sekunde,sekund) $+ . $iif($7 != $null,Powod: $7- $+ .) mta.ban $1 %b } elseif m* iswm $6 { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) name $mta.name($1,%b) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) time $ctime !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) till $calc($ctime + $calc($5 * 60)) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) ip $mta.ip($1,%b) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) server $mta.server($1) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) serverno $1 !write " $+ $sbg.dir $+ tempbans.txt" $mta.ip($1,%b) if $7 != $null { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) reason $7- } !.timer 1 $calc($5 * 60) sbg.unban $mta.ip($1,%b) mta.say $1 ' $+ $mta.name($1,%b) $+ ' zostal tymczasowo zbanowany przez $mta.name($1,$2) na $5 $iif($5 == 1,minute,minut(y)) $+ . $iif($7 != $null,Powod: $7- $+ .) mta.ban $1 %b } elseif g* iswm $6 { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) name $mta.name($1,%b) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) time $ctime !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) till $calc($ctime + $calc($5 * 3600)) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) ip $mta.ip($1,%b) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) server $mta.server($1) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) serverno $1 !write " $+ $sbg.dir $+ tempbans.txt" $mta.ip($1,%b) if $7 != $null { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) reason $7- } !.timer 1 $calc($5 * 3600) sbg.unban $mta.ip($1,%b) mta.say $1 ' $+ $mta.name($1,%b) $+ ' zostal tymczasowo zbanowany przez $mta.name($1,$2) na $5 $iif($5 == 1,godzine,godzin(y)) $+ . $iif($7 != $null,Powod: $7- $+ .) mta.ban $1 %b } elseif d* iswm $6 { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) name $mta.name($1,%b) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) time $ctime !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) till $calc($ctime + $calc($5 * 86400)) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) ip $mta.ip($1,%b) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) server $mta.server($1) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) serverno $1 !write " $+ $sbg.dir $+ tempbans.txt" $mta.ip($1,%b) if $7 != $null { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) reason $7- } !.timer 1 $calc($5 * 86400) sbg.unban $mta.ip($1,%b) mta.say $1 ' $+ $mta.name($1,%b) $+ ' zostal tymczasowo zbanowany przez $mta.name($1,$2) na $5 $iif($5 == 1,dzien,dni) $+ . $iif($7 != $null,Powod: $7- $+ .) mta.ban $1 %b } else mta.msg $1 $2 Prosze okreslic typ czasu dla zbanowania. Napisz: !tempban } else mta.msg $1 $2 Prosze okreslic dlugosc czasu. Napisz: !tempban } else mta.msg $1 $2 Prosze okreslic nick osoby do tymczasowego zbanowania. Napisz: !tempban } } } } ;End Admin level 5 commands } ;Begin Admin level 4 and up commands elseif $3 == !unban { if $4 != $null { if $readini($sbg.dir $+ MTAbans.ini,bannedip,$4) { mta.say $1 $mta.name($1,$2) $+ : $4 odbanowany pomyslnie. mta.unban $1 $readini($sbg.dir $+ MTAbans.ini,bannedip,$4) !remini $+(",$sbg.dir,MTAbans.ini") banreasons $4 !remini $+(",$sbg.dir,MTAbans.ini") bannedip $4 !remini $+(",$sbg.dir,MTAbans.ini") main $4 var %a = 1 while %a <= $ini($sbg.dir $+ MTAbans.ini,shortip,0) { if $readini($sbg.dir $+ MTAbans.ini,shortip,$ini($sbg.dir $+ MTAbans.ini,shortip,%a)) == $4 { !remini $+(",$sbg.dir,MTAbans.ini") shortip $ini($sbg.dir $+ MTAbans.ini,shortip,%a) !break } !inc %a } } else mta.msg $1 $2 $mta.name($1,$2) $+ : Blad - $4 nie jest zbanowany. } else mta.msg $1 $2 $mta.name($1,$2) $+ : Napisz: !unban } elseif $3 == !unbanip { if $4 != $null { if (*.*.*.* iswm $4) { mta.unban $1 $4 !.timerunban 1 1 checkunban $1- } else mta.msg $1 $2 $mta.name($1,$2) $+ : niepoprawny IP. } else mta.msg $1 $2 $mta.name($1,$2) $+ : Napisz: !unbanip } elseif $3 == !setping { if $4 isnum && $4 <= 1000 && $4 > 0 { mta.say $1 Maksymalny ping zmieniony z ' $+ $readini($sbg.dir $+ options.ini,main,pingmax) $+ ' na ' $+ $4 $+ ' przez ' $+ $mta.name($1,$2) $+ ' !writeini $+(",$sbg.dir,options.ini") main pingmax $4 } elseif $4 == off { mta.say $1 Maksymalny ping zmieniony z ' $+ $readini($sbg.dir $+ options.ini,main,pingmax) $+ ' na ' $+ $4 $+ ' przez ' $+ $mta.name($1,$2) $+ ' !writeini $+(",$sbg.dir,options.ini") main pingmax $4 } else mta.msg $1 $2 Napisz: !setping } elseif ($3 == !setidle) && ($readini($sbg.dir $+ options.ini,main,idle)) { if $4 isnum && $4 <= 1000 && $4 > 0 { mta.say $1 Czas IdleKickera zmieniony z ' $+ $readini($sbg.dir $+ options.ini,main,idlemin) $+ ' na ' $+ $4 $+ ' przez ' $+ $mta.name($1,$2) $+ ' !writeini $+(",$sbg.dir,options.ini") main idlemin $4 } elseif $4 == off { mta.say $1 Czas IdleKickera zmieniony z ' $+ $readini($sbg.dir $+ options.ini,main,idlemin) $+ ' na ' $+ $4 $+ ' przez ' $+ $mta.name($1,$2) $+ ' !writeini $+(",$sbg.dir,options.ini") main idlemin $4 } else mta.msg $1 $2 Napisz: !setidle } ;End Admin level 4 and up commands } ;Begin Admin level 3 and up commands if ($3 == !setlevel) { %b = $iif($4 isnum,$4,$mta.getid($1,$4)) if ($ini(nickserv.ini,$mta.name($1,%b))) { if ($2 == %b) mta.msg $1 $2 You can not change your level yourself. else { if ($5 < 1) || ($5 > 6) mta.msg $1 $2 Invalid Admin level. else { if ($readini($nofile($script(mta.mrc)) $+ $1.ini,ID $+ %b,level) > %a) { mta.msg $1 $2 Can not change level of admin with higher Admin level. mta.msg $1 %b Admin $+(',$mta.name($1,$2),') was trying to change your level to: $5 } else { mta.say $1 $+(',$mta.name($1,%b),''s) level is changed from $readini(nickserv.ini,$mta.name($1,$2),level) to $5 by admin $+(',$mta.name($1,$2),'.) !writeini nickserv.ini $mta.name($1,$2) level $5 } } } } else { mta.msg $1 $2 $+(',$mta.name($1,%b),') is not a registerd name. } } elseif $3 == !ip { if %b == -1 mta.msg $1 $2 Blad - Niepoprawny ID else mta.msg $1 $2 $mta.name($1,%b) IP: $mta.ip($1,%b) elseif $3 == !constant { if ($findtok(off sun cloud rain fog,$4,1,32)) { !writeini -n " $+ $sbg.dir $+ options.ini" main constweather $iif($4 != off,1,0) !writeini -n " $+ $sbg.dir $+ options.ini" main weathername $4 if ($4 != off) !writeini -n " $+ $sbg.dir $+ options.ini" main weather $sbg.weather($4) if ($4 != off) mta.setweather $1 $calc($sbg.weather($4)-1) mta.say $1 Automatyczna pogoda ustawiona na ' $+ $4 $+ ' przez ' $+ $mta.name($1,$2) $+ ' } else mta.msg $1 $2 Napisz: !constant } elseif ($3 == !kick || $3 == !k) { if $2 == %b mta.msg $1 $2 Nie mozesz wyrzucic siebie. else { if $mta.level($1,%b) > %a { mta.msg $1 $2 Nie mozesz wyrzucic Admina z wyzszym poziomem. mta.msg $1 %b Admin $+(',$mta.name($1,$2),') probowal cie wyrzucic. Powod: $iif($5,$5-,Brak.) } else { if %b == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Niepoprawny ID else { mta.say $1 $+(',$mta.name($1,%b),') zostal wyrzucony przez $+(',$mta.name($1,$2),') Powod: $iif($5,$5-,Brak.) .timer 1 0.1 mta.kick $1 %b } } } } elseif !stfu* iswm $3 { if %b == -1 mta.msg $1 $2 Blad - Niepoprawny ID elseif %b == $2 mta.msg $1 $2 Nie mozesz zastosowac "stfu" na sobie. elseif $mta.level($1,%b) > %a mta.msg $1 $2 Nie mozesz zastosowac "stfu" na admine z wyzszym poziomem. else { mta.say $1 ' $+ $mta.name($1,%b) $+ ' $+ , zostales dodany do listy "stfu". Jesli cos napiszesz - wylecisz. !writeini " $+ $mta.dir $+ $1.ini" ID $+ %b stfu 1 } } elseif !unstfu* iswm $3 { if %b == -1 mta.msg $1 $2 Blad - Niepoprawny ID elseif %b == $2 mta.msg $1 $2 Nie mozesz zastosowac "stfu" na sobie. elseif $mta.level($1,%b) > %a mta.msg $1 $2 Nie mozesz zastosowac "stfu" na admine z wyzszym poziomem. else { if $readini($mta.dir $+ $1.ini,ID $+ %b,stfu) { mta.say $1 ' $+ $mta.name($1,%b) $+ ' $+ , zostales zdjety z listy "stfu". !remini " $+ $mta.dir $+ $1.ini" ID $+ %b stfu } else mta.msg $1 $2 ' $+ $mta.name($1,%b) $+ ' nie jest na liscie STFU. } } ;End Admin level 3 and up commands } ;Begin Admin level 2 and up commands if ($3 == !setping) { %ping.max $4 mta.say $1 Maximum ping set to: $4 } elseif ($3 == !kick || $3 == !k) { if $2 == %b mta.msg $1 $2 Nie mozesz wyrzucic siebie. else { if $mta.level($1,%b) > %a { mta.msg $1 $2 Nie mozesz wyrzucic Admina z wyzszym poziomem. mta.msg $1 %b Admin $+(',$mta.name($1,$2),') probowal cie wyrzucic. Powod: $iif($5,$5-,Brak.) } else { if %b == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Niepoprawny ID else { mta.say $1 $+(',$mta.name($1,%b),') zostal wyrzucony przez $+(',$mta.name($1,$2),') Powod: $iif($5,$5-,Brak.) .timer 1 0.1 mta.kick $1 %b } } } } ;End Admin level 2 and up commands } ;Begin Admin level 1 and up commands ;End Admin level 1 and up commands } ;Begin Member and up commands if $3 == !banned { if $4 != $null { if $readini($sbg.dir $+ MTAbans.ini,bannedip,$4) { mta.say $1 $4 zostal zbanowany na tym serwerze. mta.say $1 Szczegoly: $readini($sbg.dir $+ MTAbans.ini,banreasons,$4-) } elseif ($readini($sbg.dir $+ MTAbans.ini,main,$4) == 5) mta.say $1 $4 byl zbanowany, ale zostal odbanowany przez $readini($sbg.dir $+ MTAbans.ini,unbanned,$4) else mta.say $1 $4 nie byl zbanowany na tym serwerze. } else mta.msg $1 $2 $mta.name($1,$2) $+ : Blad - Napisz: !banned } elseif $3 == !idle { if %b == -1 mta.msg $1 $2 Blad - Niepoprawny ID elseif ($mta.idle($1,%b) isnum) mta.say $1 $mta.name($1,%b) byl bezczynny przez $mta.idle($1,%b).time else mta.msg $1 $2 Nie mozna okreslic czasu bezczynnosci $mta.name($1,%b) } elseif $readini($sbg.dir $+ options.ini,main,status) { if $3 == !in { if $4 == car { if $mta.admin+($1) { var %in = $mta.ingame($1).car mta.say $1 Aktualnie %in $iif(%in == 1,gracz,graczy) porusza sie $iif(%in == 1,pojazdem,pojazdami) } else mta.msg $1 $2 Nie ma polaczenia z serwerem przez Admin+ } else { var %in = $mta.ingame($1) mta.say $1 Aktualnie jest %in $iif(%in == 1,gracz,graczy) w grze } } elseif $3 == !out { mta.say $1 Aktualnie jest $mta.outgame($1) $iif($mta.outgame($1) == 1,gracz,graczy) poza gra } elseif $3 == !players { mta.say $1 Aktualnie jest $mta.ingame($1) $iif($mta.ingame($1) == 1,gracz,graczy) w grze, $mta.spectating($1) $iif($mta.spectating($1) == 1,obserwator,obserwatorow) i $mta.outgame($1) $iif($mta.outgame($1) == 1,gracz,graczy) poza gra. } elseif $3 == !list { if $4 == in { var %aa = 0,%in while %aa <= $mta.maxplayers($1) { if $mta.status($1,%aa) == 2 { if %in == $null { %in = $mta.name($1,%aa) } else { %in = %in $+ , $mta.name($1,%aa) } } !inc %aa } mta.say $1 $iif(%in,Gracze w grze: %in,Aktualnie nie ma nikogo w grze) } elseif $4 == out { var %aa = 0,%out while %aa <= $mta.maxplayers($1) { if $mta.status($1,%aa) == 1 { if %out == $null { %out = $mta.name($1,%aa) } else { %out = %out $+ , $mta.name($1,%aa) } } !inc %aa } mta.say $1 $iif(%out,Gracze poza gra: %out,Aktualnie nie ma nikogo poza gra) } elseif spec iswm $4 { var %aa = 0,%spec while %aa <= $mta.maxplayers($1) { if $mta.status($1,%aa) == 4 { if %spec == $null { %spec = $mta.name($1,%aa) } else { %spec = %spec $+ , $mta.name($1,%aa) } } !inc %aa } mta.say $1 $iif(%spec,Podgladacze: %spec,Aktualnie nie ma zadnych podgladaczy) } else mta.msg $1 $2 Blad - Napisz: !list } } if $3 == !ping { if %b == -1 mta.msg $1 $2 Blad - Niepoprawny ID else { if %b == $2 mta.say $1 $mta.name($1,%b), - Aktualny ping: $mta.ping($1,%b) $+ . Sredni: $round($readini($mta.dir $+ $1.ini,ID $+ %b,avping),2) $+ . $iif($readini($sbg.dir $+ options.ini,main,pingmax),Dopuszczalny: $readini($sbg.dir $+ options.ini,main,pingmax) $+ .) else mta.say $1 $mta.name($1,%b), - Aktualny ping: $mta.ping($1,%b) $+ . Sredni: $round($readini($mta.dir $+ $1.ini,ID $+ %b,avping),2) $+ . $iif($readini($sbg.dir $+ options.ini,main,pingmax),Dopuszczalny: $readini($sbg.dir $+ options.ini,main,pingmax) $+ .) } } elseif $3 == !lag { var %e = $mta.findid($1,$5) if $4 == $null mta.msg $1 $2 Napisz: !lag [] elseif %b == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Blad - Niepoprawny ID elseif $5 == $null mta.say $1 Lag pomiedzy $mta.name($1,$2) - $mta.name($1,%b) $+ : $calc($mta.ping($1,$2) /2+ $mta.ping($1,$mta.findid($1,%b)) /2) ms. elseif %e == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Blad - Niepoprawny ID else mta.say $1 Lag pomiedzy $mta.name($1,%b) - $mta.name($1,%e) $+ : $calc($mta.ping($1,%b) /2+ $mta.ping($1,%e) /2) ms } elseif $3 == !time mta.say $1 Jest godzina $iif($4 == gmt,$asctime($gmt) GMT,$time) elseif !count* iswm $3 && $readini($sbg.dir $+ options.ini,main,count) { var %a = 1 mta.say $1 Odliczanie! while %a <= $readini($sbg.dir $+ options.ini,main,countsec) { !.timerc $+ %a 1 %a mta.say $1 $iif(%a == $readini($sbg.dir $+ options.ini,main,countsec),GO GO GO!,$calc($readini($sbg.dir $+ options.ini,main,countsec) - %a)) !inc %a } } elseif $findtok(!hp !health,$3,32) && $mta.admin+($1) == $true { if (%b == -1) mta.msg $1 $2 Blad - Niepoprawny ID elseif $mta.health($1,%b) == ? mta.msg $1 $2 Nie mozna okreslic stanu zdrowia $mta.name($1,%b) else mta.say $1 $mta.name($1,%b) - zdrowie: $mta.health($1,%b) $+ % } elseif (!loc* iswm $3) && ($mta.admin+($1)) && ($readini($sbg.dir $+ options.ini,main,location)) { if (%b == -1) mta.msg $1 $2 Blad - Niepoprawny ID elseif $mta.area($1,%b) == unknown mta.msg $1 $2 Nie mozna okreslic lokalizacji $mta.name($1,%b) else mta.say $1 $mta.name($1,%b) jest w " $+ $mta.area($1,%b) $+ " } ;End Member and up commands } ;Begin Non-member and up commands if ($3 == !admin) { var %a = 0 while (%a < 33) { if ($readini($mta.dir $+ $1.ini,ID $+ %a,level)) { %b = %b $mta.name($1,%a) (Poziom: $+ $readini($mta.dir $+ $1.ini,ID $+ %a,level) $+ ) } !inc %a } mta.say $1 Zalogowani admini: %b } elseif ($3 == !info) { mta.say $1 MTA:ControlSystem $cs.version by XaVeR } ;End Non-member and up commands } alias pingkick { var %a = 1,%b while %a < 9 { if ($sock(mta. $+ %a)) { %b = $readini($nofile($script(mta.mrc)) $+ mta.ini,%a,max) while %b >= 0 { !tokenize 32 $hget(Ping. $+ %a,%b) !hadd -m Ping. $+ %a %b $calc($mta.ping(%a,%b) +$1) $calc(1+$2) if $2 > 5 { if $calc($1 /$2) > %ping.max { if (!$readini($nofile($script(mta.mrc)) $+ $1.ini,ID $+ $2,level)) { mta.say %a $+(',$mta.name(%a,%b),') is kicked: High ping. (Max: %ping.max $+ , Average: $calc($1 /$2) $+ ) mta.kick %a %b } } !hadd -m Ping. $+ %a %b $mta.ping(%a,%b) 1 } !dec %b } } !inc %a } } on *:UNLOAD: { !.timerpingkick off } ban and more scripts for level 5 don't work... XaVeR: !kick 'Unknown' zostal wyrzucony przez 'XaVeR' Powod: Brak. XaVeR: !kick jestes dziwny 'Unknown' zostal wyrzucony przez 'XaVeR' Powod: dziwny XaVeR: !idle Unknown byl bezczynny przez 7hrs 53mins 43secs XaVeR: !ban (its log from mta server) can anybady fix it? ;d THX and sorry for my english ;d Link to comment
Jeremy Posted May 14, 2006 Share Posted May 14, 2006 alias cs.version !return v1.0 Public on *:SIGNAL:mta.join: { if ($findtok(login logout register help,$mta.name($1,$2),1,32)) { mta.msg $1 $2 Nick $+(',$mta.name($1,$2),') jest zabroniony. mta.kick $1 $2 } elseif ($ini(nickserv.ini,$mta.name($1,$2))) { mta.msg $1 $2 Nick $+(',$mta.name($1,$2),') jest zarejestrowany. masz 30 sekund aby sie zalogowac. mta.msg $1 $2 Aby sie zalogowac wpisz "/msg login ". $+(!.timer,$1,.,$2) 1 30 mta.kick $1 $2 } else { mta.msg $1 $2 Na serwerze sa uruchomione skrypty MTA:CS by XaVeR! Mozesz sie zarejestrowac! mta.msg $1 $2 Wiecej informacji: "/msg help". } } on *:SIGNAL:mta.start: { if (!%ping.max) %ping.max = 200 !.timerpingkick 0 10 pingkick } on *:SIGNAL:mta.quit: { !.timerpingkick off } on *:SIGNAL:mta.part: { $+(!.timer,$1,.,$2) off !hdel Ping. $+ $1 $2 } on *:SIGNAL:mta.pm: { if ($3 == login) { if ($ini(nickserv.ini,$mta.name($1,$2))) { if ($readini($mta.dir $+ $1.ini,ID $+ $2,level) == $null) { if ($readini(nickserv.ini,$mta.name($1,$2),pass) == $4-) { if ($readini(nickserv.ini,$mta.name($1,$2),level)) { mta.say $1 $+(',$mta.name($1,$2),') zalogowany jako admin. (Poziom: $readini(nickserv.ini,$mta.name($1,$2),level) $+ ) } else { mta.say $1 $+(',$mta.name($1,$2),') zalogowany jako member. } !writeini nickserv.ini $mta.name($1,$2) logintry 3 !writeini $+(",$nofile($script(mta.mrc)),$1.ini,") ID $+ $2 level $readini(nickserv.ini,$mta.name($1,$2),level) $+(!.timer,$1,.,$2) off } else { if ($readini(nickserv.ini,$mta.name($1,$2),logintry) > 0) { !writeini nickserv.ini $mta.name($1,$2) logintry $calc($readini(nickserv.ini,$mta.name($1,$2),logintry)-1) mta.msg $1 $2 Niepoprawne haslo dla $+(',$mta.name($1,$2),'.) Pozostalo ( $+ $readini(nickserv.ini,$mta.name($1,$2),logintry) prob.) } else { mta.say $1 $+(',$mta.name($1,$2),'.) zostal zbanowany przez Nick-Server: Zbyt wiele blednych prob logowania. mta.ban $1 $2 Nick-Server: Zbyt wiele blednych prob logowania. !writeini nickserv.ini $mta.name($1,$2) logintry 3 $+(!.timer,$1,.,$2) off } } } else { mta.msg $1 $2 Jestes juz zalogowany. } } else { mta.msg $1 $2 $+(',$mta.name($1,$2),') nie jest zarejestrowany. } } elseif ($3 == help) { if ($4 == commands) { mta.msg $1 $2 Komendy pomocy: mta.msg $1 $2 "/msg login " Logowanie do Nick-Servera. mta.msg $1 $2 "/msg logout" wylogowanie z Nick-Servera. mta.msg $1 $2 "/msg register " Rejestracja nicka do Nick-Servera. mta.msg $1 $2 "/msg set " Zmiana ustawien konta. } else { mta.msg $1 $2 Pomoc: mta.msg $1 $2 Nick-Server pozwala na rejestracje wlasnego nicka, aby inni nie mogli go uzywac. mta.msg $1 $2 Wpisz "/msg help commands" zeby uzyskac pomoc dotyczaca komend. } } if ($3 == logout) { if ($ini(nickserv.ini,$mta.name($1,$2))) { if ($readini($mta.dir $+ $1.ini,ID $+ $2,level) != $null) { if ($readini(nickserv.ini,$mta.name($1,$2),level)) { mta.say $1 $+(',$mta.name($1,$2),'.) wylogowany jako admin. (Poziom: $readini(nickserv.ini,$mta.name($1,$2),level) $+ ) } else { mta.say $1 $+(',$mta.name($1,$2),'.) wylogowany. } !remini $+(",$nofile($script(mta.mrc)),$1.ini,") ID $+ $2 level } else { mta.msg $1 $2 Nie jestes zalogowany. } } else { mta.msg $1 $2 $+(',$mta.name($1,$2),') nie jest zarejestrowany. } } elseif ($3 == register) { if ($ini(nickserv.ini,$mta.name($1,$2))) { mta.msg $1 $2 $+(',$mta.name($1,$2),'.) jest juz zarejestrowany. } elseif ($5 == $null) { mta.msg $1 $2 Wpisz: "/msg register " } elseif (*@*.* !iswm $4) { mta.msg $1 $2 Niepoprawny e-Mail. "/msg register " } else { !writeini nickserv.ini $mta.name($1,$2) logintry 3 !writeini nickserv.ini $mta.name($1,$2) ip $mta.ip($1,$2) !writeini nickserv.ini $mta.name($1,$2) email $4 !writeini nickserv.ini $mta.name($1,$2) pass $5- mta.msg $1 $2 $+(',$mta.name($1,$2),'.) zostal zarejestrowany. mta.msg $1 $2 Informacje konta - Nick: $mta.name($1,$2) $+ , Haslo: $5-, IP: $mta.ip($1,$2) $+ , Email: $4. mta.msg $1 $2 Wpisz "/msg login " zeby sie zalogowac, "/msg set " aby edytowac konto. } } elseif ($3 == set) { if ($ini(nickserv.ini,$mta.name($1,$2))) { if ($readini($mta.dir $+ $1.ini,ID $+ $2,level) != $null) { if ($5 == $null) || (($4 != email) && ($4 != password)) { mta.msg $1 $2 Wpisz: "/msg set " } elseif ($4 == email) { if (*@*.* !iswm $5) { mta.msg $1 $2 Niepoprawny e-Mail. "/msg set " } else { !writeini nickserv.ini $mta.name($1,$2) email $5 mta.msg $1 $2 Informacje konta - Nick: $mta.name($1,$2) $+ , Haslo: $readini(nickserv.ini,$mta.name($1,$2),pass) $+ , IP: $readini(nickserv.ini,$mta.name($1,$2),ip) $+ , Email: $readini(nickserv.ini,$mta.name($1,$2),email) $+ . } } elseif ($4 == password) { !writeini nickserv.ini $mta.name($1,$2) pass $5- mta.msg $1 $2 Informacje konta - Nick: $mta.name($1,$2) $+ , Haslo: $readini(nickserv.ini,$mta.name($1,$2),pass) $+ , IP: $readini(nickserv.ini,$mta.name($1,$2),ip) $+ , Email: $readini(nickserv.ini,$mta.name($1,$2),email) $+ . } } else { mta.msg $1 $2 Nie jestes zalogowany. } } else { mta.msg $1 $2 $+(',$mta.name($1,$2),') nie jest zarejestrowany. } } ;End Nick-Server } on *:SIGNAL:mta.command: { var %a = $readini($nofile($script(mta.mrc)) $+ $1.ini,ID $+ $2,level),%b if (%a > -1) { if (%a > 0) { if (%a > 1) { if (%a > 2) { if (%a > 3) { if (%a > 4) { ;Begin Admin level 5 commands if $3 == !lolc { mta.say $1 $mta.name($1,$2) jest boski ;d } elseif $3 == !ban { if $2 == %b mta.msg $1 $2 Nie mozesz zbanowac siebie. else { if ($mta.level($1,%b) > %a) { mta.msg $1 $2 Nie mozesz zbanowac Admina z wyzszym poziomem. mta.msg $1 %b Admin $+(',$mta.name($1,$2),') probowal cie zbanowac. Powod: $iif($5,$5-,Brak.) } else { if %b == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Niepoprawny ID else { mta.say $1 $+(',$mta.name($1,%b),') dostal bana od $+(',$mta.name($1,$2),') Powod: $iif($5,$5-,Brak.) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" banreasons $mta.name($1,%b) $5- $date $time $mta.name($1,$2) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" bannedip $mta.name($1,%b) $mta.ip($1,%b) $date $time $mta.name($1,$2) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" main $mta.name($1,%b) 4 if $readini($sbg.dir $+ MTAbans.ini,shortip,$gettok($mta.ip($1,%b),1-2,46)) && $mta.name($1,%b) !isin $readini($sbg.dir $+ MTAbans.ini,shortip,$gettok($mta.ip($1,%b),1-2,46)) { !writeini -n " $+ $sbg.dir $+ MTAbans.ini" shortip $gettok($mta.ip($1,%b),1-2,46) $readini($sbg.dir $+ MTAbans.ini,shortip,$gettok($mta.ip($1,%b),1-2,46)) $+ , $mta.name($1,%b) } else { !writeini -n " $+ $sbg.dir $+ MTAbans.ini" shortip $gettok($mta.ip($1,%b),1-2,46) $mta.name($1,%b) } mta.ban $1 %b } } } } elseif $3 == !blacklist && $readini($sbg.dir $+ options.ini,main,blacklist) { if $2 == %b mta.msg $1 $2 Nie mozesz wpisac siebie do czarnej listy else { if ($mta.level($1,%b) > %a) { mta.msg $1 $2 Nie mozesz wpisac na czarna liste Admina z wyzszym poziomem. mta.msg $1 %b Admin $+(',$mta.name($1,$2),') probowal wpisac cie na czarna liste Powod: $iif($5,$5-,Brak.) } else { if %b == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Niepoprawny ID else { mta.say $1 $+(',$mta.name($1,%b),') zostal wpisany na czarna liste przez $+(',$mta.name($1,$2),':) $iif($5,$5-,No reason.) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" banreasons $mta.name($1,%b) $5- $date $time $mta.name($1,$2) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" bannedip $mta.name($1,%b) $mta.ip($1,%b) $date $time $mta.name($1,$2) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" main $mta.name($1,%b) 4 !writeini -n " $+ $sbg.dir $+ MTAbans.ini" blacklist $mta.name($1,%b) 1 if $readini($sbg.dir $+ MTAbans.ini,shortip,$gettok($mta.ip($1,%b),1-2,46)) && $mta.name($1,%b) !isin $readini($sbg.dir $+ MTAbans.ini,shortip,$gettok($mta.ip($1,%b),1-2,46)) { !writeini -n " $+ $sbg.dir $+ MTAbans.ini" shortip $gettok($mta.ip($1,%b),1-2,46) $readini($sbg.dir $+ MTAbans.ini,shortip,$gettok($mta.ip($1,%b),1-2,46)) $+ , $mta.name($1,%b) } else { !writeini -n " $+ $sbg.dir $+ MTAbans.ini" shortip $gettok($mta.ip($1,%b),1-2,46) $mta.name($1,%b) } mta.ban $1 %b } } } } elseif $3 == !tempban { if ($2 == %b) mta.msg $1 $2 Nie mozesz tymczasowo siebie zbanowac. else { if ($mta.level($1,%b) > %a) { mta.msg $1 $2 Nie mozesz tymczasowo zbanowac Admina z wyzszym poziomem. mta.msg $1 %b Admin $+(',$mta.name($1,$2),') probowal cie tymczasowo zbanowac. Powod: $iif($7,$7-,Brak.) } else { if %b == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Niepoprawny ID else { if $4 != $null { if $5 isnum && $5 >= 1 { var %g = $readini($sbg.dir $+ MTAbans.ini,main,tempbans) if s* iswm $6 { !writeini -n " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) name $mta.name($1,%b) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) time $ctime !writeini -n " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) till $calc($ctime + $5) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) ip $mta.ip($1,%b) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) server $mta.server($1) !writeini -n " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) serverno $1 !write " $+ $sbg.dir $+ tempbans.txt" $mta.ip($1,%b) if $7 != $null { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) reason $7- } !.timer 1 $5 sbg.unban $mta.ip($1,%b) mta.say $1 ' $+ $mta.name($1,%b) $+ ' zostal tymczasowo zbanowany przez $mta.name($1,$2) na $5 $iif($5 == 1,sekunde,sekund) $+ . $iif($7 != $null,Powod: $7- $+ .) mta.ban $1 %b } elseif m* iswm $6 { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) name $mta.name($1,%b) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) time $ctime !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) till $calc($ctime + $calc($5 * 60)) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) ip $mta.ip($1,%b) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) server $mta.server($1) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) serverno $1 !write " $+ $sbg.dir $+ tempbans.txt" $mta.ip($1,%b) if $7 != $null { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) reason $7- } !.timer 1 $calc($5 * 60) sbg.unban $mta.ip($1,%b) mta.say $1 ' $+ $mta.name($1,%b) $+ ' zostal tymczasowo zbanowany przez $mta.name($1,$2) na $5 $iif($5 == 1,minute,minut(y)) $+ . $iif($7 != $null,Powod: $7- $+ .) mta.ban $1 %b } elseif g* iswm $6 { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) name $mta.name($1,%b) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) time $ctime !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) till $calc($ctime + $calc($5 * 3600)) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) ip $mta.ip($1,%b) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) server $mta.server($1) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) serverno $1 !write " $+ $sbg.dir $+ tempbans.txt" $mta.ip($1,%b) if $7 != $null { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) reason $7- } !.timer 1 $calc($5 * 3600) sbg.unban $mta.ip($1,%b) mta.say $1 ' $+ $mta.name($1,%b) $+ ' zostal tymczasowo zbanowany przez $mta.name($1,$2) na $5 $iif($5 == 1,godzine,godzin(y)) $+ . $iif($7 != $null,Powod: $7- $+ .) mta.ban $1 %b } elseif d* iswm $6 { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) name $mta.name($1,%b) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) time $ctime !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) till $calc($ctime + $calc($5 * 86400)) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) ip $mta.ip($1,%b) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) server $mta.server($1) !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) serverno $1 !write " $+ $sbg.dir $+ tempbans.txt" $mta.ip($1,%b) if $7 != $null { !writeini " $+ $sbg.dir $+ MTAbans.ini" $mta.ip($1,%b) reason $7- } !.timer 1 $calc($5 * 86400) sbg.unban $mta.ip($1,%b) mta.say $1 ' $+ $mta.name($1,%b) $+ ' zostal tymczasowo zbanowany przez $mta.name($1,$2) na $5 $iif($5 == 1,dzien,dni) $+ . $iif($7 != $null,Powod: $7- $+ .) mta.ban $1 %b } else mta.msg $1 $2 Prosze okreslic typ czasu dla zbanowania. Napisz: !tempban } else mta.msg $1 $2 Prosze okreslic dlugosc czasu. Napisz: !tempban } else mta.msg $1 $2 Prosze okreslic nick osoby do tymczasowego zbanowania. Napisz: !tempban } } } } } ;End Admin level 5 commands } ;Begin Admin level 4 and up commands elseif $3 == !unban { if $4 != $null { if $readini($sbg.dir $+ MTAbans.ini,bannedip,$4) { mta.say $1 $mta.name($1,$2) $+ : $4 odbanowany pomyslnie. mta.unban $1 $readini($sbg.dir $+ MTAbans.ini,bannedip,$4) !remini $+(",$sbg.dir,MTAbans.ini") banreasons $4 !remini $+(",$sbg.dir,MTAbans.ini") bannedip $4 !remini $+(",$sbg.dir,MTAbans.ini") main $4 var %a = 1 while %a <= $ini($sbg.dir $+ MTAbans.ini,shortip,0) { if $readini($sbg.dir $+ MTAbans.ini,shortip,$ini($sbg.dir $+ MTAbans.ini,shortip,%a)) == $4 { !remini $+(",$sbg.dir,MTAbans.ini") shortip $ini($sbg.dir $+ MTAbans.ini,shortip,%a) !break } !inc %a } } else mta.msg $1 $2 $mta.name($1,$2) $+ : Blad - $4 nie jest zbanowany. } else mta.msg $1 $2 $mta.name($1,$2) $+ : Napisz: !unban } elseif $3 == !unbanip { if $4 != $null { if (*.*.*.* iswm $4) { mta.unban $1 $4 !.timerunban 1 1 checkunban $1- } else mta.msg $1 $2 $mta.name($1,$2) $+ : niepoprawny IP. } else mta.msg $1 $2 $mta.name($1,$2) $+ : Napisz: !unbanip } elseif $3 == !setping { if $4 isnum && $4 <= 1000 && $4 > 0 { mta.say $1 Maksymalny ping zmieniony z ' $+ $readini($sbg.dir $+ options.ini,main,pingmax) $+ ' na ' $+ $4 $+ ' przez ' $+ $mta.name($1,$2) $+ ' !writeini $+(",$sbg.dir,options.ini") main pingmax $4 } elseif $4 == off { mta.say $1 Maksymalny ping zmieniony z ' $+ $readini($sbg.dir $+ options.ini,main,pingmax) $+ ' na ' $+ $4 $+ ' przez ' $+ $mta.name($1,$2) $+ ' !writeini $+(",$sbg.dir,options.ini") main pingmax $4 } else mta.msg $1 $2 Napisz: !setping } elseif ($3 == !setidle) && ($readini($sbg.dir $+ options.ini,main,idle)) { if $4 isnum && $4 <= 1000 && $4 > 0 { mta.say $1 Czas IdleKickera zmieniony z ' $+ $readini($sbg.dir $+ options.ini,main,idlemin) $+ ' na ' $+ $4 $+ ' przez ' $+ $mta.name($1,$2) $+ ' !writeini $+(",$sbg.dir,options.ini") main idlemin $4 } elseif $4 == off { mta.say $1 Czas IdleKickera zmieniony z ' $+ $readini($sbg.dir $+ options.ini,main,idlemin) $+ ' na ' $+ $4 $+ ' przez ' $+ $mta.name($1,$2) $+ ' !writeini $+(",$sbg.dir,options.ini") main idlemin $4 } else mta.msg $1 $2 Napisz: !setidle } ;End Admin level 4 and up commands } ;Begin Admin level 3 and up commands if ($3 == !setlevel) { %b = $iif($4 isnum,$4,$mta.getid($1,$4)) if ($ini(nickserv.ini,$mta.name($1,%b))) { if ($2 == %b) mta.msg $1 $2 You can not change your level yourself. else { if ($5 < 1) || ($5 > 6) mta.msg $1 $2 Invalid Admin level. else { if ($readini($nofile($script(mta.mrc)) $+ $1.ini,ID $+ %b,level) > %a) { mta.msg $1 $2 Can not change level of admin with higher Admin level. mta.msg $1 %b Admin $+(',$mta.name($1,$2),') was trying to change your level to: $5 } else { mta.say $1 $+(',$mta.name($1,%b),''s) level is changed from $readini(nickserv.ini,$mta.name($1,$2),level) to $5 by admin $+(',$mta.name($1,$2),'.) !writeini nickserv.ini $mta.name($1,$2) level $5 } } } } else { mta.msg $1 $2 $+(',$mta.name($1,%b),') is not a registerd name. } } elseif $3 == !ip { if %b == -1 mta.msg $1 $2 Blad - Niepoprawny ID else mta.msg $1 $2 $mta.name($1,%b) IP: $mta.ip($1,%b) elseif $3 == !constant { if ($findtok(off sun cloud rain fog,$4,1,32)) { !writeini -n " $+ $sbg.dir $+ options.ini" main constweather $iif($4 != off,1,0) !writeini -n " $+ $sbg.dir $+ options.ini" main weathername $4 if ($4 != off) !writeini -n " $+ $sbg.dir $+ options.ini" main weather $sbg.weather($4) if ($4 != off) mta.setweather $1 $calc($sbg.weather($4)-1) mta.say $1 Automatyczna pogoda ustawiona na ' $+ $4 $+ ' przez ' $+ $mta.name($1,$2) $+ ' } else mta.msg $1 $2 Napisz: !constant } elseif ($3 == !kick || $3 == !k) { if $2 == %b mta.msg $1 $2 Nie mozesz wyrzucic siebie. else { if $mta.level($1,%b) > %a { mta.msg $1 $2 Nie mozesz wyrzucic Admina z wyzszym poziomem. mta.msg $1 %b Admin $+(',$mta.name($1,$2),') probowal cie wyrzucic. Powod: $iif($5,$5-,Brak.) } else { if %b == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Niepoprawny ID else { mta.say $1 $+(',$mta.name($1,%b),') zostal wyrzucony przez $+(',$mta.name($1,$2),') Powod: $iif($5,$5-,Brak.) .timer 1 0.1 mta.kick $1 %b } } } } elseif !stfu* iswm $3 { if %b == -1 mta.msg $1 $2 Blad - Niepoprawny ID elseif %b == $2 mta.msg $1 $2 Nie mozesz zastosowac "stfu" na sobie. elseif $mta.level($1,%b) > %a mta.msg $1 $2 Nie mozesz zastosowac "stfu" na admine z wyzszym poziomem. else { mta.say $1 ' $+ $mta.name($1,%b) $+ ' $+ , zostales dodany do listy "stfu". Jesli cos napiszesz - wylecisz. !writeini " $+ $mta.dir $+ $1.ini" ID $+ %b stfu 1 } } elseif !unstfu* iswm $3 { if %b == -1 mta.msg $1 $2 Blad - Niepoprawny ID elseif %b == $2 mta.msg $1 $2 Nie mozesz zastosowac "stfu" na sobie. elseif $mta.level($1,%b) > %a mta.msg $1 $2 Nie mozesz zastosowac "stfu" na admine z wyzszym poziomem. else { if $readini($mta.dir $+ $1.ini,ID $+ %b,stfu) { mta.say $1 ' $+ $mta.name($1,%b) $+ ' $+ , zostales zdjety z listy "stfu". !remini " $+ $mta.dir $+ $1.ini" ID $+ %b stfu } else mta.msg $1 $2 ' $+ $mta.name($1,%b) $+ ' nie jest na liscie STFU. } } ;End Admin level 3 and up commands } ;Begin Admin level 2 and up commands if ($3 == !setping) { %ping.max $4 mta.say $1 Maximum ping set to: $4 } elseif ($3 == !kick || $3 == !k) { if $2 == %b mta.msg $1 $2 Nie mozesz wyrzucic siebie. else { if $mta.level($1,%b) > %a { mta.msg $1 $2 Nie mozesz wyrzucic Admina z wyzszym poziomem. mta.msg $1 %b Admin $+(',$mta.name($1,$2),') probowal cie wyrzucic. Powod: $iif($5,$5-,Brak.) } else { if %b == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Niepoprawny ID else { mta.say $1 $+(',$mta.name($1,%b),') zostal wyrzucony przez $+(',$mta.name($1,$2),') Powod: $iif($5,$5-,Brak.) .timer 1 0.1 mta.kick $1 %b } } } } ;End Admin level 2 and up commands } ;Begin Admin level 1 and up commands ;End Admin level 1 and up commands } ;Begin Member and up commands if $3 == !banned { if $4 != $null { if $readini($sbg.dir $+ MTAbans.ini,bannedip,$4) { mta.say $1 $4 zostal zbanowany na tym serwerze. mta.say $1 Szczegoly: $readini($sbg.dir $+ MTAbans.ini,banreasons,$4-) } elseif ($readini($sbg.dir $+ MTAbans.ini,main,$4) == 5) mta.say $1 $4 byl zbanowany, ale zostal odbanowany przez $readini($sbg.dir $+ MTAbans.ini,unbanned,$4) else mta.say $1 $4 nie byl zbanowany na tym serwerze. } else mta.msg $1 $2 $mta.name($1,$2) $+ : Blad - Napisz: !banned } elseif $3 == !idle { if %b == -1 mta.msg $1 $2 Blad - Niepoprawny ID elseif ($mta.idle($1,%b) isnum) mta.say $1 $mta.name($1,%b) byl bezczynny przez $mta.idle($1,%b).time else mta.msg $1 $2 Nie mozna okreslic czasu bezczynnosci $mta.name($1,%b) } elseif $readini($sbg.dir $+ options.ini,main,status) { if $3 == !in { if $4 == car { if $mta.admin+($1) { var %in = $mta.ingame($1).car mta.say $1 Aktualnie %in $iif(%in == 1,gracz,graczy) porusza sie $iif(%in == 1,pojazdem,pojazdami) } else mta.msg $1 $2 Nie ma polaczenia z serwerem przez Admin+ } else { var %in = $mta.ingame($1) mta.say $1 Aktualnie jest %in $iif(%in == 1,gracz,graczy) w grze } } elseif $3 == !out { mta.say $1 Aktualnie jest $mta.outgame($1) $iif($mta.outgame($1) == 1,gracz,graczy) poza gra } elseif $3 == !players { mta.say $1 Aktualnie jest $mta.ingame($1) $iif($mta.ingame($1) == 1,gracz,graczy) w grze, $mta.spectating($1) $iif($mta.spectating($1) == 1,obserwator,obserwatorow) i $mta.outgame($1) $iif($mta.outgame($1) == 1,gracz,graczy) poza gra. } elseif $3 == !list { if $4 == in { var %aa = 0,%in while %aa <= $mta.maxplayers($1) { if $mta.status($1,%aa) == 2 { if %in == $null { %in = $mta.name($1,%aa) } else { %in = %in $+ , $mta.name($1,%aa) } } !inc %aa } mta.say $1 $iif(%in,Gracze w grze: %in,Aktualnie nie ma nikogo w grze) } elseif $4 == out { var %aa = 0,%out while %aa <= $mta.maxplayers($1) { if $mta.status($1,%aa) == 1 { if %out == $null { %out = $mta.name($1,%aa) } else { %out = %out $+ , $mta.name($1,%aa) } } !inc %aa } mta.say $1 $iif(%out,Gracze poza gra: %out,Aktualnie nie ma nikogo poza gra) } elseif spec iswm $4 { var %aa = 0,%spec while %aa <= $mta.maxplayers($1) { if $mta.status($1,%aa) == 4 { if %spec == $null { %spec = $mta.name($1,%aa) } else { %spec = %spec $+ , $mta.name($1,%aa) } } !inc %aa } mta.say $1 $iif(%spec,Podgladacze: %spec,Aktualnie nie ma zadnych podgladaczy) } else mta.msg $1 $2 Blad - Napisz: !list } } if $3 == !ping { if %b == -1 mta.msg $1 $2 Blad - Niepoprawny ID else { if %b == $2 mta.say $1 $mta.name($1,%b), - Aktualny ping: $mta.ping($1,%b) $+ . Sredni: $round($readini($mta.dir $+ $1.ini,ID $+ %b,avping),2) $+ . $iif($readini($sbg.dir $+ options.ini,main,pingmax),Dopuszczalny: $readini($sbg.dir $+ options.ini,main,pingmax) $+ .) else mta.say $1 $mta.name($1,%b), - Aktualny ping: $mta.ping($1,%b) $+ . Sredni: $round($readini($mta.dir $+ $1.ini,ID $+ %b,avping),2) $+ . $iif($readini($sbg.dir $+ options.ini,main,pingmax),Dopuszczalny: $readini($sbg.dir $+ options.ini,main,pingmax) $+ .) } } elseif $3 == !lag { var %e = $mta.findid($1,$5) if $4 == $null mta.msg $1 $2 Napisz: !lag [] elseif %b == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Blad - Niepoprawny ID elseif $5 == $null mta.say $1 Lag pomiedzy $mta.name($1,$2) - $mta.name($1,%b) $+ : $calc($mta.ping($1,$2) /2+ $mta.ping($1,$mta.findid($1,%b)) /2) ms. elseif %e == -1 mta.msg $1 $2 $mta.name($1,$2) $+ : Blad - Niepoprawny ID else mta.say $1 Lag pomiedzy $mta.name($1,%b) - $mta.name($1,%e) $+ : $calc($mta.ping($1,%b) /2+ $mta.ping($1,%e) /2) ms } elseif $3 == !time mta.say $1 Jest godzina $iif($4 == gmt,$asctime($gmt) GMT,$time) elseif !count* iswm $3 && $readini($sbg.dir $+ options.ini,main,count) { var %a = 1 mta.say $1 Odliczanie! while %a <= $readini($sbg.dir $+ options.ini,main,countsec) { !.timerc $+ %a 1 %a mta.say $1 $iif(%a == $readini($sbg.dir $+ options.ini,main,countsec),GO GO GO!,$calc($readini($sbg.dir $+ options.ini,main,countsec) - %a)) !inc %a } } elseif $findtok(!hp !health,$3,32) && $mta.admin+($1) == $true { if (%b == -1) mta.msg $1 $2 Blad - Niepoprawny ID elseif $mta.health($1,%b) == ? mta.msg $1 $2 Nie mozna okreslic stanu zdrowia $mta.name($1,%b) else mta.say $1 $mta.name($1,%b) - zdrowie: $mta.health($1,%b) $+ % } elseif (!loc* iswm $3) && ($mta.admin+($1)) && ($readini($sbg.dir $+ options.ini,main,location)) { if (%b == -1) mta.msg $1 $2 Blad - Niepoprawny ID elseif $mta.area($1,%b) == unknown mta.msg $1 $2 Nie mozna okreslic lokalizacji $mta.name($1,%b) else mta.say $1 $mta.name($1,%b) jest w " $+ $mta.area($1,%b) $+ " } ;End Member and up commands } ;Begin Non-member and up commands if ($3 == !admin) { var %a = 0 while (%a < 33) { if ($readini($mta.dir $+ $1.ini,ID $+ %a,level)) { %b = %b $mta.name($1,%a) (Poziom: $+ $readini($mta.dir $+ $1.ini,ID $+ %a,level) $+ ) } !inc %a } mta.say $1 Zalogowani admini: %b } elseif ($3 == !info) { mta.say $1 MTA:ControlSystem $cs.version by XaVeR } ;End Non-member and up commands } alias pingkick { var %a = 1,%b while %a < 9 { if ($sock(mta. $+ %a)) { %b = $readini($nofile($script(mta.mrc)) $+ mta.ini,%a,max) while %b >= 0 { !tokenize 32 $hget(Ping. $+ %a,%b) !hadd -m Ping. $+ %a %b $calc($mta.ping(%a,%b) +$1) $calc(1+$2) if $2 > 5 { if $calc($1 /$2) > %ping.max { if (!$readini($nofile($script(mta.mrc)) $+ $1.ini,ID $+ $2,level)) { mta.say %a $+(',$mta.name(%a,%b),') is kicked: High ping. (Max: %ping.max $+ , Average: $calc($1 /$2) $+ ) mta.kick %a %b } } !hadd -m Ping. $+ %a %b $mta.ping(%a,%b) 1 } !dec %b } } !inc %a } } on *:UNLOAD: { !.timerpingkick off } Link to comment
XaVeR Posted May 14, 2006 Author Share Posted May 14, 2006 THX, now why it wasn;t working? because there is more dont woeking scripts... Link to comment
Harry Posted May 14, 2006 Share Posted May 14, 2006 Dont EVER spam the forum with these. Put the files on a separate web server and include a link on your post. This is abuse. Link to comment
XaVeR Posted May 15, 2006 Author Share Posted May 15, 2006 ok, i will remember, now can you help me? ;d Link to comment
Jeremy Posted May 15, 2006 Share Posted May 15, 2006 Explain what you need help with. Link to comment
Jigga Posted May 16, 2006 Share Posted May 16, 2006 He want's you to check his script. Link to comment
Harry Posted May 16, 2006 Share Posted May 16, 2006 Well, what errors is the console in mIRC showing? Furthermore, if you're using proper indenting this wouldnt happen. Its caused by a missing { or }. Link to comment
XaVeR Posted May 16, 2006 Author Share Posted May 16, 2006 mta console: )SoE(*XaVeR: !ip PM from Admin: Unknown IP: Unknown )SoE(*XaVeR: !ip xaver PM from Admin: Unknown IP: Unknown )SoE(*XaVeR: !kick 'Unknown' zostal wyrzucony przez ')SoE(*XaVeR' Powod: Brak. )SoE(*XaVeR: !ban 'Unknown' dostal bana od ')SoE(*XaVeR' Powod: Brak. )SoE(*XaVeR: !stfu i main mirc window errors: - * /mta.getip: insufficient parameters - * /mta.getip: insufficient parameters - * /mta.kick: insufficient parameters - * /mta.getip: insufficient parameters - * /mta.getip: insufficient parameters - * /mta.getip: insufficient parameters - * /mta.getip: insufficient parameters - * /mta.ban: insufficient parameters - can you help me? is it an mtama error? Link to comment
XaVeR Posted May 16, 2006 Author Share Posted May 16, 2006 sorry for dubble posting but i have a question: i thing to this error is occuring becouse i have testes it on my local server... i have LAN am i correct? ir this error occuring for mIRC version? (i have 6.16 and mtama 3.24) Link to comment
Harry Posted May 16, 2006 Share Posted May 16, 2006 It shouldnt make difference on what server you're using MTA:mA. In you code there is a { or } missing cuasing this problem. Unfortunately i dont have time to check. Where did you download this script and waht did you change yourself? Might help us find the problem quicker Link to comment
Recommended Posts