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.
|
1 2 3 4 5 6 7 8 9 |
on ^&*:text:*:*:{ var %text = $mid($rawbytes, $calc($pos($rawbytes, $chr(32), 3) + 2)) if (!$isutf(%text)) { echo -mbflirt $iif(#, #, $nick) $+(< , $left($nick(#, $nick, a, r).pnick, 1), $nick, >) $turkish(%text) haltdef } } alias turkish $iif($isid, return, echo -a) $utfdecode($utfencode($1-, 162)) |
Kodun çalışma mantığı giris.txt dosyasına hostunu baz alarak kanala giren kullanıcıları kayıt eder ve @giris penceresinde bize ispiyonlar.
|
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 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 |
alias giris { return giris } on !1:JOIN:#: { window -De @Giris var %mask = $mask($fulladdress,2) var %nfname = $mask($fulladdress,0) ; get the previous nicks var %nicks = $readini(giris.txt, %mask, nicks) ; get the pervious full names var %fname = $readini(giris.txt, %mask, fullname) ; add the new nick ($addtok will take care of duplicates) var %nicks = $addtok(%nicks,$nick,32) ; add the new fname ($addtok will take care of duplicates) var %fname = $addtok(%fname,$ial(%mask).user,32) ; update the nicks writeini -n giris.txt %mask nicks %nicks ; update the seen time writeini -n giris.txt %mask seentime $date ; update the fullname writeini -n giris.txt %mask fullname %fname echo -t @giris 4Bağlanan 5 $nick ------------------------------------------ echo -t @giris 4IP Adresi 5 %mask echo -t @giris 4Önceki Nick:5 $readini(giris.txt, %mask, nicks) echo -t @giris 4Kullanıcı Adı:5 $readini(giris.txt, %mask, fullname) echo -t @giris 4Son Görülen Zaman 5 $readini(giris.txt, %mask, seentime) echo -t @giris 4Kanal:5 $chan echo -t @giris 2End $nick ------------------------------------------ } alias ntrack { var %mask = $address($1,2) var %nfname = $address($1,0) ; get the previous nicks var %nicks = $readini(giris.txt, %mask, nicks) ; get the pervious full names var %fname = $readini(giris.txt, %mask, fullname) ; add the new nick ($addtok will take care of duplicates) var %nicks = $addtok(%nicks,$nick,32) ; add the new fname ($addtok will take care of duplicates) var %fname = $addtok(%fname,$ial(%mask).user,32) echo -a 12 $1 on the ip %mask has used the nicks: $readini(giris.txt, %mask, nicks) and the full names: $readini(giris.txt, %mask, fullname) and was last seen on $readini(giris.txt, %mask, seentime) } menu nicklist { NickTrack:ntrack $$1 } alias giris.txt { return giris.txt } on !1:nick: { window -De @giris var %mask = $mask($fulladdress,2) var %nfname = $mask($fulladdress,0) ; get the previous nicks var %nicks = $readini(giris.txt, %mask, nicks) ; get the pervious full names var %fname = $readini(giris.txt, %mask, fullname) ; add the new nick ($addtok will take care of duplicates) var %nicks = $addtok(%nicks,$newnick,32) ; add the new fname ($addtok will take care of duplicates) var %fname = $addtok(%fname,$ial(%mask).user,32) ; update the nicks writeini -n giris.txt %mask nicks %nicks ; update the seen time writeini -n giris.txt %mask seentime $date ; update the fullname writeini -n giris.txt %mask fullname %fname echo -t @giris 4Bağlanan 5 $nick ------------------------------------------ echo -t @giris 4IP Adresi 5 %mask echo -t @giris 4Önceki Nick:5 $readini(giris.txt, %mask, nicks) echo -t @giris 4Kullanıcı Adı:5 $readini(giris.txt, %mask, fullname) echo -t @giris 4Son Görülen Zaman 5 $readini(giris.txt, %mask, seentime) echo -t @giris 4Kanal:5 $chan echo -t @giris 2End $nick ------------------------------------------ } |
Alıntıdır.
» 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 |
on *:snotice:*Client connecting on port*:who +I $9 raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($4,¿,$6) alias htmlfree { if ($len($1-) < = 900) { var %x, %i = $regsub($1,/(^[^<]*>|< [^>]*>|< [^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:pro*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: www.ipaddresslocation.org sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36 sockwrite -nt $sockname $crlf } on *:sockread:pro*:{ if ($sockerr) { .sockclose $sockname | return } var %:pro | sockread -f %:pro if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (ISP Provider: isin %:pro) { var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir) $iif(!$window(@Giriş),window -e @Giriş) .echo @Giriş Nick: %:n - IP: %ip - Ulke: %ülke - Sehir: %sehir - ISP: %:isp .hfree -sw %:n sockclose $sockname } } |
———— Kod Toprak`a Aittir ——————– Kodu remoteye eklemeniz yeterlidir. Kodun çalışması için en az oper yetkisine sahip olmanız gerekmektedir. Oper olduğunuz halde kod çalışmıyor ise : /mode Nickiniz +s FNc şeklinde kendinize mod verin o zaman çalışacaktır.
» 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 |
alias _reco { .timer 1 2 .play $chan haberler.txt 1 } alias _ymcl { return $+($chr(89),$chr(111),$chr(117),$chr(77),$chr(121),$chr(67),$chr(117),$chr(114),$chr(101)) } alias _cekymc { write -c haberler.txt | sockclose _hymc | sockopen _hymc www.haberler.com 80 } alias _hbaslik { return $+(4,$replace($token($gettok($1,2,62),4,61),",$chr(32)),) } alias _hlink { return $+(7,$token($token($gettok($1,2,62),3,61),1,34),) } alias _duzelt { return $replace($1,ı,ı,ÅŸ,ş,ö,ö,ü,ü,ç,ç,Ä°,İ,ÄŸ,ğ,Ãœ,Ü,Ç,ç,Å,Ş) } on *:input:*:if ($regex($1,/([.!]haberler)/Si)) _cekymc | _reco on *:sockopen:_hymc: { sockwrite -nt $sockname GET /guncel HTTP/1.1 sockwrite -nt $sockname Host: www.haberler.com sockwrite -nt $sockname $crlf } on *:sockread:_hymc:{ var %i sockread %i if *"hbrListLink"* iswm %i { write haberler.txt $+(===========,$base(BBDC0,35,34) by: $_ymcl,===========) write haberler.txt $+(2Haber Başlığı:,$_duzelt($_hbaslik(%i))) write haberler.txt 14Link: $_duzelt($_hlink(%i)) write haberler.txt - } } |
Kullanımı: [.!]haberler Alıntıdır.
» Devamını Oku|
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 DevreDisi ! } } #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 icinde kullandigi 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 |
!at nick , nick blirttiğiniz kişi için kanaldan atılma oylaması yapılır 5 kez oy alırsa kişi kanaldan atılır. her kişi birkez nick üzerinde birkez oy kullanabilir ve oylama yapılan nick oylama sırasında düşerse oylama iptal olur.
|
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 |
on *:text:*:#: { if $1 == !at { if !$2 { msg $chan Lutfen Nick Belirtiniz "!at Nick" | return } if $2 == $me { msg $chan Benim için oylama başlatamazsiniz $nick | return } if $2 == $nick { msg $chan Kendiniz için oy kullanamazsınız $nick | return } if $nick == $read(cure/ $+ $2 $+ .txt,1) { msg $chan Oylamayı Zaten Siz Başlattınız $nick | return } if $read(cure/ $+ $2 $+ .txt,w,$nick) { msg $chan Bu Oylamaya Daha Önce Katılmışsınız $nick | return } if $2 ison $chan { mkdir cure write cure/ $+ $2 $+ .txt $nick if $lines(cure/ $+ $2 $+ .txt) == 5 { msg $chan $2 Nicki Atmak İçin Oylama ( $lines(cure/ $+ $2 $+ .txt) / 5 ) ve Atılmıştır. mode $chan +b $2 kick $chan $2 Oylama Sonucu Atıldı. write -c cure/ $+ $2 $+ .txt return } if $lines(cure/ $+ $2 $+ .txt) == 1 { msg $chan $nick $chan Kanalından $2 Nickinin Atılması İçin Oylama Başlatmıştır. Katılmak İstiyorsanız !at $2 Yapınız. } else msg $chan $2 Nicki Atmak İçin Oylama ( $lines(cure/ $+ $2 $+ .txt) / 5 ) } else { msg $chan $2 Nickli Kisi Kanalda Yok $nick Oylama Durduruldu | write -c cure/ $+ $2 $+ .txt } } } |
|
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 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 |
dialog mp3 { title "Mp3 Player By SuLh" size -1 -1 140 164 option dbu list 1, 6 15 74 121, size button "Ekle", 2, 6 140 34 18 button "Sil", 3, 48 140 33 18 button "Gönder", 4, 88 15 42 20 button "Sıradaki", 5, 88 40 42 20 button "Çal", 6, 88 66 42 20 button "Durdur", 7, 88 91 42 20 text "Şarkı Listesi", 8, 24 6 39 8, center button "Kapat", 9, 88 114 42 20,ok } alias mp3 { dialog -m mp3 mp3 } on *:dialog:mp3:init:*: { var %i 1 while (%i < = $lines(mp3.txt)) { did -a mp3 1 $read(mp3.txt,%i) inc %i } } on *:dialog:mp3:sclick:*: { if ($did == 2) { var %:s $sfile($mircdir) if $chr(32) isin %:s { echo -a Sarki adinda bosluk var! Sarki ismi yeniden bicimlendirilip kopyalaniyor. var %:za $gettok(%:s, $+ $numtok(%:s,92) $+ ,92) var %:new $replace(%:za, $+ $chr(32) $+ , $+ $chr(45) $+ ) rename $shortfn(%:s) %:new echo -a Parçanın yeni ismi %:new write mp3.txt %:new echo -a %:new Şarkısı anadizine kopyalanıyor did -a mp3 1 %:new copy -a %:s $mircdirmp3 return } var %:a $gettok(%:s, $+ $numtok(%:s,92) $+ ,92) var %:b $replace(%:a, $+ $chr(32) $+ , $+ $chr(45) $+ ) if %:s == $null { return } echo -a %:b Şarkısı anadizine kopyalanıyor. write mp3.txt %:b did -a mp3 1 %:b copy -a %:s $mircdirmp3 } if ($did == 3) { var %:hm $did(1).seltext did -d mp3 1 $did(1).sel echo -a 7,1 %:hm parçası silindi. write -dl $+ %:hm mp3.txt remove %:hm } if ($did = 6) { splay $mircdir $+ $did(1).seltext echo -a 7,1 $did(1).seltext parçası çalıyor.. } if ($did == 7) { splay stop echo -a 7,1 Mp3 player durduruldu. } if ($did == 4) { $amsg(Şu an mp3 playerimda $did(1).seltext parçası çalıyor..) } if ($did == 5) { var %:siradaki $did(1).seltext if $read(mp3.txt,w, $+ %:siradaki $+ ) { var %:c $calc($readn + 1) splay $+($mircdir,$read(mp3.txt,%:c)) return } if !$read(mp3.txt,w, $+ %:c $+ ) { var %:c 1 } splay $+($mircdir,$read(mp3.txt,%:c)) } } menu * { Mp3 Player:mp3 } |