Join/Part Saldirilari icin Addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
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),*!*@) } |