Kod

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),*!*@) Join Floodu Ha? Yerlermi ?
   ; ve kanaldaki o ipe ait herkezi kickle
}