Banlist Doluysa 15 Ban Açma
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
}
