Mirc Kanala Giren Nickleri Kaydedecek Kod
Türkçe Mirc Kanala Giren Nickleri Kaydedecek Kod
1 |
on *:join:#Sohbet:{ /write nickler.txt $nick } |
» Devamını Oku
Türkçe mIRC indir – Resmi mIRC indirme Sitesi
Türkçe mirc resmi adresi TurkIRC. Mirc indir, mirc sohbet, mirc chat odaları, mirc addonları, IRC Client komutları alanında kaliteli hizmet vermektedir.
Türkçe Mirc Kanala Giren Nickleri Kaydedecek Kod
1 |
on *:join:#Sohbet:{ /write nickler.txt $nick } |
» Devamını Oku
on *^:join:#:{ ;multi join[tüm adresler] inc $+(-u,$ccrc(mjhafıza)) %mjj. [ $+ [ $chan ] ] $ccrc(mjaveraj) if (%mj- [ $+ [ $chan ] ] >= $ccrc(mjlimit)) { mode $chan +l $calc($nick(#,0) – %mjj. [ $+ [ $chan ] ]) .unset %mjj. [ $+ [ $nick ] ] } ;Clone join tek adres.. var %ad = $wildsite inc $+(-u,$ccrc(cjhafıza)) %mj. [ $+ […]
» Devamını Oku
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 36 37 38 39 40 41 42 |
on *^:join:#:{ ;multi join[tüm adresler] inc $+(-u,$ccrc(mjhafıza)) %mjj. [ $+ [ $chan ] ] $ccrc(mjaveraj) if (%mj- [ $+ [ $chan ] ] >= $ccrc(mjlimit)) { mode $chan +l $calc($nick(#,0) - %mjj. [ $+ [ $chan ] ]) .unset %mjj. [ $+ [ $nick ] ] } ;Clone join tek adres.. var %ad = $wildsite inc $+(-u,$ccrc(cjhafıza)) %mj. [ $+ [ %ad ] ] $ccrc(cjaveraj) if (%mj. [ $+ [ %ad ] ] >= $ccrc(cjlimit)) { echo -t $chan %ad $color(info) adresinden massjoin: $+(%mj. [ $+ [ %ad ] ] ) mode $chan +b %ad unset %mj. [ $+ [ %ad ] ] } } alias ccrc { goto $1 ;### Multi join conf :mjhafıza { RETURN 2 } :mjaveraj { ;bu rakamı degiştirmeyin.. RETURN 1 } :mjlimit { RETURN 6 } ;### Clone join conf :cjhafıza { RETURN 1 } :cjaveraj { ;bu rakamı değiştirmeyin.. RETURN 1 } :cjlimit { RETURN 2 } } |
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),*!*@) } |