alias ipkick {
var %c 1
var %chan $1
var %ip $2
var %sebep $3-
; degişkenlerimizi atadık
while %c <= $nick(%chan,0) {
; while dongusune soktum
if %ip == $remove($address($nick(%chan,%c),2),*!*@) {
; %ip degişkeni while dongusunun sonuçu olan nick ise
mode %chan +b *!*@ $+ $ifmatch
; sebebi banla
kick $chan $nick(%chan,%c) %sebep
; sebepli kişiyi kanalda salla.
}
inc %c
; her seferinde %c yi 1 arttır
}
}
on *:join:#: {
; kanal mı girdi?
if $me !isop $chan { goto devam2 } | if $nick isop $chan { goto devam2 }
; ben op degilsem veya o kişi opsa kalda devam2 ye git
inc -u20 %joinip [ $+ [ $remove($address($nick,2),*!*@) ] ] [ $+ [ $chan ] ]
; degil ise 20 saniyeligine %joinip ipadresi olarak deişkene al
if %joinip [ $+ [ $remove($address($nick,2),*!*@) ] ] [ $+ [ $chan ] ] < 4 goto devam2
; eger %joinip degeri 4 den küçükse devam et yani 4 aynı ip girdi ise
unset %joinip [ $+ [ $remove($address($nick,2),*!*@) ] ] [ $+ [ $chan ] ]
; yukardaki olasılıklar tutmadı ise %joinip i kaldır devam et
mode $chan +b $address($nick,2)
; banla...
kick $chan $nick Join Floodu Ha? Yerlermi ?
; kickle...
ipkick $chan $remove($address($nick,2),*!*@)
}