IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

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

}