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
