Cohen
MFC Üyesi
-
- Üyelik Tarihi
- 2 Şub 2013
-
- Mesajlar
- 1,686
-
- MFC Puanı
- 66
Süresi dolan banları otomatik açmak..
Kod:
raw 367:*: { var %sure $ctime - $5 if %sure >= 500 { inc %c.say hadd c.temp $+(ip.,%c.say) $3 } } raw 368:*: { if (%c.say >= 1) { c.unban $2 } } alias c.unban { var %bc $1 if (!$hget(c.temp,0).item) { halt } if ($hget(c.temp,0).item >= 10) { var %s = 10 } else { var %s = $hget(c.temp,0).item } var %i = 1,%c while (%i <= %s) { %c = $addtok(%c,$hget(c.temp,$hget(c.temp,1).item),32) hdel c.temp $hget(c.temp,1).item inc %i } mode %bc - $+ $str(b,%s) %c .timer -h 1 1 c.unban %bc } on *:start: ilk alias ilk { if (!$hget(c.temp)) { hmake c.temp 1000 } else { hfree c.temp | hmake c.temp 1000 } set %c.say 0 } menu * { Aktif Kanalda Süresi Dolan Banlari Ac! : mode $chan +b } on *:join:#: { if $nick == $me { write chan.txt $chan } } on *: part:#: { if $nick == $me { write -ds $chan chan.txt } } alias sureunban { var %chansfile = chan.txt var %line = 1, %total = $lines(%chansfile) while (%line <= %total) { var %data = $read -l $+ %line %chansfile if (%data != $null) { _queue mode %data +b } inc %line inc %sur } %names.enddata = %data } alias _queue { inc %queue.count if ($timer(.queue) == $null) { hadd -m queue count 1 hadd -m queue 1 $1- _doqueue 1 } else { var %queue.count = $calc($hget(queue,count) + 1) hadd -m queue %queue.count $1- hadd -m queue count %queue.count } } alias _doqueue { if ($hget(queue,$1) != $null) { .timer.queue -m 1 $calc((4 - $gettok(3 2 1,$1,32)) * 500) _doqueue $calc($1 + 1) $ifmatch .hdel -s queue $1 } else hfree queue }