this is my script on mirc.
Code: Select all
On 1:kick:%bot.chan:{
if ($nick isin $knick) || (chanserv isin $nick) || ($me isin $nick) || ($hget(ex_nicks,$nick)) halt
if ($knick == $me) { cs akick # add $nick Dont kick bot please! | cs akick # enforce | timerakickdel $+ $nick 1 10 cs akick # del $nick | halt }
else {
.timer $+ $knick $+ $nick off
if (%kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] = $null) && (%kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] = $null) {
if (%1vs1 == On) { var %check1 = % $+ kc, $+ $nick $+ ,* | var %check2 = % $+ kc, $+ $knick $+ ,*
if ($var($var(%check1,1).value,1)) { var %i = $var($var(%check1,1).value,1) | cs akick # add $nick 9,1 $+ $nick 11kh鬾g pha瞚 ba.n 衋ng war vo*?8 $remove(%i,%,kc,$nick,$chr(44)) 11sao m?c騨 kick lung tung v?y. N?u ba.n mu?n war vo*?nick khac th?ba.n pha瞚 type 0~waroff $remove(%i,%,kc,$nick,$chr(44)) 11hoac cho*` $round($calc(%timeout / 60),2) phut th?moi war ch? | cs akick # enforce | .timerakick1vs1 $+ $nick 1 %punish_time cs akick # del $nick | halt }
if ($var($var(%check2,1).value,1)) { var %i = $var($var(%check2,1).value,1) | cs akick # add $nick 9,1 $+ $nick 11ba.n 悬`ng kick8 $knick 11ch?,8 $knick 11衋ng war voi0 $remove(%i,%,kc,$knick,$chr(44)) 11ba.n pha瞚 cho*`8 $knick 11war xong voi0 $remove(%i,%,kc,$knick,$chr(44)) 11th?mo*?kick ch? | cs akick # enforce | .timerakick1vs1 $+ $nick 1 %punish_time cs akick # del $nick | halt }
else { .timermatchstart 1 1 $iif(%describe = on,describe,msg) $chan 0,1Tr?n th?h鵱g gi hai 锈'u si~ 8 $+ $nick 0v?9 $+ $knick 0b?t 锈`u. | inc %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] 1 | set %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] 0 | .timer $+ $nick $+ $knick 1 %timeout reset $nick $knick | halt }
}
else { .timermatchstart 1 1 $iif(%describe = on,describe,msg) $chan 0,1Tr?n th?h鵱g gi hai 锈'u si~ 8 $+ $nick 0v?9 $+ $knick 0b?t 锈`u. | inc %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] 1 | set %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] 0 | .timer $+ $nick $+ $knick 1 %timeout reset $nick $knick | halt }
}
inc %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] 1 | .timer $+ $nick $+ $knick 1 %timeout reset $nick $knick
if (%bot == on) && (%dem == on) {
.timerkc $+ $knick $+ $nick off
if (%kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] = %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ]) && (%kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] > 18) { .timerkc $+ $nick $+ $knick off | $iif(%describe = on,describe,msg) $chan 11,1 WOW!! Th?t l?m?t tr?n d?u c鈔 t鄆 c鈔 s?c giua hai di.ch thu? 8,1 $+ $nick 11,1v?9,1 $+ $knick $+ 11,1. Ti? so^' hie^.n gio` la` 8,1 $+ $nick 11,1( %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] ) 0,1-=[VS]=- 9,1 $+ $knick 4,1( %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] ) | halt }
if (%kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] < %maxscore) && (%kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] != 0) { .timerkc $+ $nick $+ $knick 1 %msgdelay $iif(%describe = on,describe,msg) $chan 8,1 $+ $nick 11,1( %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] ) 0,1-=[VS]=- 9,1 $+ $knick 4,1( %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] ) }
}
if (%kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] >= %maxscore) { .timerkc $+ $nick $+ $knick off
if (%kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] = 0) { $iif(%describe = on,describe,msg) $chan 4,1Sorry8 $nick 11ba.n 秀 kick duoc0 %maxscore 11kicks Nh黱g tr?n n鄖 kh鬾g h?p l? vi`9 $knick 11秀 kh鬾g kick ba.n c醝 n鄌 n阯 kh鬾g x醕 衖.nh duoc9 $knick 11c?muon war hay kh鬾g | goto end }
.timerwinner $+ $nick 1 1 chanserv kick $chan $nick 4,1CONGRATULATION!! 11,1 $+ $nick 0,1ba.n 秀 th?ng 9,1 $+ $knick 0,1v?i ti? s? 4,1?$+ 8,1 %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] $+ - $+ %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] 4,1?15,1 | ;ban -u15 # $nick 2
if (!$hget(list,$nick)) { hadd -m list $nick $calc($gettok($hget(list,$nick),1,32) + 1) 0 $date }
else { hadd -m list $nick $calc($gettok($hget(list,$nick),1,32) + 1) $gettok($hget(list,$nick),2,32) $date }
if (!$hget(list,$knick)) { hadd -m list $knick 0 $calc($gettok($hget(list,$knick),2,32) + 1) $date }
else { hadd -m list $knick $gettok($hget(list,$knick),1,32) $calc($gettok($hget(list,$knick),2,32) + 1) $date }
if (%award != on) { goto end }
.timerloser $+ $knick 1 3 cs akick # add $knick 11,1Ba.n dda~ thua 0,1 $+ $nick $+ 11,1 vo*'i k?t qua~4,1 ?$+ 8,1 %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] $+ - $+ %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] 4,1?| cs akick # enforce
.timerdelakick $+ $knick 1 %akicktime cs akick # del $knick
set %nickwin $nick
set %nicklose $knick
:end
unset %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] | .timer $+ $nick $+ $knick off
}
}
}