| immortaL | 07 Mayıs 2016 21:31 |
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
}
Yukardaki kod'u Mircinizin remote bölümüne ekleyin, süresi dolan banları otomatik olarak açacaktır. 500 yazan kısmı saniye cinsinden kafanıza göre değiştirebilirsiniz.iyi forumlar. | 