Otomatik nick şifresi girme
|
1 |
on *:CONNECT: { .ns ghost Nickiniz nickpass .nick kullandiginizrumuz .msg NickServ IDENTIFY nickpass } |
Kategori: Hazır Kodlar
Kanal Temizleme Komutu
|
1 |
on *:text:*:#:{ if !clear isin $1 { if $nick !isop $chan { .msg $chan $nick $+ : ?uanda kanal operatörlürü ile alakanız olmadıgı için; bu komutu kullanamazsiniz! } else { .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 12!Clear komutunu kullanan yetkili; 4 $nick } } |
İp adresinden şehir ülke bulma
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
raw 401:*: { msg #nerden $2 : Nick'i online degil! } alias nerden { set %ip $1 sockclose nerden sockopen nerden www.ripe.net 80 } on *:sockopen:nerden:{ sockwrite -n $sockname GET /fcgi-bin/whois?form_type=simple&full_query_string=&searchtext= $+ %ip $+ &submit.x=15&submit.y=7 HTTP/1.1 sockwrite -n $sockname Host: www.ripe.net $+ $crlf $+ $crlf } on *:sockread:nerden:{ sockread %ğ if (descr: isin %ğ) && (TurkTelecom !isin %ğ) { msg #nerden 4 $+ $replace(%ğ,descr,şehir) } if (country: isin %ğ) { msg #nerden 2 $+ $replace(%ğ,country,ülke,tr,Türkiye,de,Almanya,nl,Hollanda) } } on *:text:*:#Nerden:{ if ($1 == !nerden) && $2 { baka.q $2 } } alias baka.q { whois $1 | enable #dirim } #dirim off raw 378:*: { nerden $gettok($6,2,64) | disable #dirim } #dirim end |
Düşman Listesine alma
|
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 43 44 45 46 47 48 49 50 51 52 |
alias -l _buser { .guser blacklist $1 3 } alias -l _rbuser { .ruser blacklist $1 3 } alias -l _luser { dialog -m dusmanlist dusmanlist } alias -l _blist { did -r dusmanlist 11 var %_btotal = $ulist(*,blacklist,0) , %_b = 0 while (%_b < %_btotal) { inc %_b did -a dusmanlist 11 $ulist(*,blacklist,%_b) } } alias dusman { /dialog -m dusmanlist dusmanlist } dialog dusmanlist { title "Falan Filan - Düşman Listesi" size -1 -1 106 117 option dbu combo 11, 6 19 94 50, extsel sort autohs autovs text " Eklediğiniz nickler Gline yiyecektir. Buna Göre Ekleyeceğiniz nicklere dikkat edin", 2, 6 4 95 15 box "", 3, 3 0 101 96 edit "", 12, 6 69 94 10 , read autohs button "Ekle", 20, 7 81 40 12 , default button "Sil", 30, 58 81 40 12 , default box "", 7, 3 94 101 21 button "Pencereyi Kapat", 8, 17 100 73 12, ok } on *:dialog:dusmanlist:init:*: { _blist } on *:dialog:dusmanlist:sclick:*: { if ($did == 20) { if ($did(11).text != $null && $level($did(11).text) != blacklist) { var %_badd = $did(11).text .auser blacklist %_badd _blist did -o $dname 12 1 %_badd Kara Listeye Alındı... } } if ($did == 30) { if ($did(11).text != $null && $level($did(11).text) == blacklist) { var %_brem = $did(11).text .ruser blacklist %_brem _blist did -o $dname 12 1 %_brem Kara Listeden Silindi... } } } on @blacklist:join:#: { .gline $nick 15m Uzaklastırıldınız | .echo $nick 0,1 Kötü Nick / Düşman Listesinden ötürü Serverden Atıldı. %Logo1 } |
Kanal clone taraması
|
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 |
alias Clone { var %ğ = $nick(#,0) while %ğ { if !$hget(host,$address($nick(#,%ğ),2)) { hadd -m host $address($nick(#,%ğ),2) 1 } else { hinc host $address($nick(#,%ğ),2) } dec %ğ } echo 4 -st # kanalı için clone taraması başlatıldı... echo -s - .timer 1 1 .h_al # } alias h_al { var %ı = $hget(host,0).item while %ı { if $hget(host,%ı).data > 1 { set %y_k yes var %ç = $nick($1,0) while %ç { if $hget(host,%ı).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) } dec %ç } echo 12 -st 2Adres: $hget(host,%ı).item --- 10Bağlı kullanıcı sayısı: $hget(host,%ı).data --- 4Bağlı rumuzlar: $gettok(%_cln,1-,32) unset %_cln } dec %ı } echo -s - $iif($(%y_k,2) != yes,echo 4 -st $1 kanalında clone bulunamadı.,echo 4 -st $1 kanalı için clone taraması tamamlandı.) unset %y_k hfree host } menu channel { .- .Clone Tara:.Clone # |
Nick Takip etmek
|
1 2 3 4 5 6 7 8 9 10 11 12 |
on 1:connect:{ .IAL On | takip + 300 } alias takip { if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,]) } else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! } } #Takip on on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) + $nick,$nick)) } on !^*:JOIN:#:{ if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kullandığı nickler:14 $hget(Takip,$address($nick,2)) } if $gettok($hget(Takip,$address($nick,2)).data,0,43) > 3 { ban -k $chan $nick 2 Nick Change } } #Takip end |
Otomatik Nick Şifresi girme ( Oto identify )
|
1 2 3 4 5 6 7 8 9 10 |
on *:notice:*:?: { if ($nick == NickServ) { if (kayitli ve sifre korumali bir nick&amp;amp;#8217;tir isin $1-) { identify şifre } } } on *:notice:*:?: { if ($nick == NickServ) { if (kayitli bir nicktir, siz bu nicki kullanamazsiniz isin $1-) { ns ghost nick şifre | ns release nick şifre | identify şifre } } } |