![[-]](https://lamerler.com/images/collapse.png "[-]")
Banlist Doluysa 15 Ban Acma
Süresi dolan banları otomatik açmak..
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.
Kod:
raw 478:*: {
if (!$ibl($2,0)) { mode $2 +b }
var %kalan $calc($ibl($2,0) - 20)
var %s %kalan
while (%s <= $ibl($2,0)) {
var %t = $addtok(%t,$ibl($2,%s),32)
inc %s
}
massmode $2 -b %t
}
alias banla {
mode # $+(+,$str(b,12)) $rand(0,9999999999999) $rand(0,9999999999999) $rand(0,9999999999999) $rand(0,9999999999999) $rand(0,9999999999999) $rand(0,9999999999999)
}
alias massmode {
var %i = 1, %x = $numtok($3-,32), %y = $modespl
while (%i <= %x) {
mode $1 $+($left($2,1),$str($right($2,1),$numtok($gettok($3-,$+(%i,-,$calc(%i + %y)),32),32))) $gettok($3-,$+(%i,-,$calc(%i + %y)),32)
inc %i %y
}
}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
}