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.
menu channel { – » Ame-Amsg-Muaf:/amele – } dialog amele { title “KiLLed Ame-Amsg Muaf Menu” size -1 -1 240 126 option dbu edit “” 11, 10 26 60 10 list 3, 10 36 60 70 button “Ekle”, 4, 78 28 32 12 button “Sil”, 5, 78 48 33 12 edit “” 12, 130 26 60 10 list 6, 130 […]
» Devamını Okuon *:Text:$(* $+ $me $+ *):?:{ if ($active == $nick) { goto son } echo -a *** 12 ( $+ $time(hh:nn) $+ ) 1 $+ $nick $+ özelinde senden bahsediyor : ” $1- ” :son } on *:Text:$(* $+ $me $+ *):#:{ if ($active == $chan) { goto end } echo -a *** 12 ( $+ $time(hh:nn) $+ […]
» Devamını Oku|
1 2 3 4 5 |
on !^*:join:#:haltdef | inc $+(%,$nick,ip) 1 | hadd -m $nick # 1 | if ($regex($evalnext($+(%,$nick,ip)),^1$)) { userip $nick } | unset $+(%,$nick,ip) raw 340:*: { haltdef | var %& = $regsubex($2,/\+|\*|-/g,) | var %n = $token(%&,1,61),%id = $token(%&,2,61) if ($hget(%n,0).item >= 1) { var %2 = $v1,%1 = 1 | while (%1 <= %2) { echo $color(join) -t $hget(%n,%1).item * Giriş: %n $+($chr(40),$chr(3),$chr(52),%id,$chr(41)) | inc %1 } | hfree $token($regsubex($2,/\+|\*|-/g,),1,61) } } |
Not: bunun için sunucuda en az oper yetkiniz olmak gerekmektedir.
» Devamını Okualias F12 { banac $$?=”Ip no:” }
|
1 2 3 4 5 6 7 |
alias banac { shun -*@ $+ $1 kline -*@ $+ $1 zline -*@ $+ $1 gline -*@ $+ $1 gzline -*@ $+ $1 } |
|
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 |
on *:input:*: { if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active { say $regsubex($1-,/(?<=^|\s)(.)/g,$+(,$upper(\1),)) halt } } |
|
1 2 |
Kodun amacı merak ettiğiniz kuran ayetlerini özelinize yansıtmasıdır Bot sistemi üzerine kodlanmış olup kanalda veya özel penceresinde <b>!ayt</b> aranacak <b>ayet</b> ismi şeklinde calısmaktatır |
|
1 2 3 4 5 6 7 |
!ayt ezan !ayet hac !ayt kıyamet Seklinde kullanılmaktadır Ve Kod: |
|
1 |
alias tr { var %v 10 | set %s 1 | var %ft 1, %x 1, %d 1 set %t $gettok($read(gg.txt,%s),0,32) var %ff $left($gettok($read(gg.txt,%s),0,32),1) while %x <= %t { .timer 1 %ft msg %nic $gettok($read(gg.txt,%s), $+ %x $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3) var %v $calc(%v + 10) if (%ff == %d) { .timer 1 %ft gh } inc %x 10 inc %d } } alias gh { set %s $calc(%s + 1) set %t $gettok($read(gg.txt,%s),0,32) tg } alias tg { var %ft 1, %v 10, %i 1, %ı 1 var %ff $left($gettok($read(gg.txt,%s),0,32),1) while %i <= %t { .timer 1 %ft msg %nic $gettok($read(gg.txt,%s), $+ %i $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3) var %v $calc(%v + 10) if (%ff == %ı) { .timer 1 %ft gh } inc %i 10 inc %ı } } on *:text:*:*: { if !$regex($nick,/(s-bot|burcbot|komiksoz|sozbot|Kelime|yarismaci|Soru|BiLemezki|test|OzelKoruma|SirinFm|chanserv|operserv)/i) { if $istok($1-,$me,32) { Notice $nick 3,4Allah7'ın Sözü $regsubex($read(belge.txt),/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2)) } if ($1 == !ayt) { set %nic $nick | set %ayet $replace($2-,ü,$chr(37) $+ FC,Ü,$chr(37) $+ DC,ö,$chr(37) $+ F6,Ö,$chr(37) $+ D6,ı,$chr(37) $+ FD,İ,$chr(37) $+ DD,ğ,$chr(37) $+ F0,Ğ,$chr(37) $+ D0,ş,$chr(37) $+ FE,Ş,$chr(37) $+ DE,ç,$chr(37) $+ E7,Ç,$chr(37) $+ C7) if !$2 { msg $chan Lütfen ayet konusunu belirtiniz. Örn; !ayt ezan | halt } if $sock(ayet) { msg %nic 3:-4Şu anda başka bir Ayet alınıyor lütfen daha sonra tekrar deneyiniz. | halt } ayet remove gg.txt } } } alias ayet { sockopen ayet meal.ihya.org 80 } on *:sockopen:ayet: { sockwrite -n $sockname GET /meal.php?t2=elmali&ara= $+ $strip(%ayet) $+ &sn=0&an=0 HTTP/1.1 sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */* sockwrite -n $sockname Referer: meal.ihya.org, Kuran, Kur'an, Kuran-i Kerim, kuranikerim, Quran, qur'an, Al qur'an, Quran, holyquran, holy, coran, kuruan, koran, corano,koraani, islam, muslim, allah, arabic, türkçe,meal, der heilige Koran, islam, muslim, chinese al qur'an, el sagra sockwrite -n $sockname Accept-Language: tr-TR sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0) sockwrite -n $sockname Host: meal.ihya.org sockwrite -n $sockname $crlf } on *:SOCKREAD:ayet: { var %a sockread %a if (<strong>ARAMA SONUCLARI: isin $strip(%a)) { msg %nic :- 3Uygun Ayetler Aranıyor } if (valign=top> isin $strip(%a)) { if ($findfile($mircdir,gg.txt,*) != 1) { write -c gg.txt $htmlfree(%a) } | else { write gg.txt $htmlfree(%a) } .timerde 1 5 tr } } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) return %x } |