mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz. |
|
Seçenekler | Stil |
14 Eylül 2022, 01:23 | #1 |
Turkce Sözlük
Merhabalar kodun amacı turkce sozluk ve anlamına bakma. Ekte verilen zip dosyasını cıkartıp
//run $mircdir komutunu uyguladiktan sonraki acilan mIRC klasor icine atin. Kodu eklemek için: Alt + R Remote bölümü Kodun calisacagi kanallari Kanallar aliasına ekleyin. Kanalda !sozluk kelime yazarak calistirabilirsiniz. Kod Sahibi: jeun Kodalias -l kanallar return #mirchelp,#sohbet,#edebiyat,#eskidostlar on $*:text:/^[!.]s.zl.k\s(.+)/i:$($kanallar):{ .ignore -u5 $nick set %szlk_chn $chan tdk $strip($2-) } alias -l ptht return $mircdirtsozlukx.txt alias tdk { if ($len($1) < 2) { msg %szlk_chn * En az 2 karakter girmelisiniz. | return } if ($1 == $null) { msg %szlk_chn * Aranacak kelime girmediniz. | return } if (!$isfile($ptht)) { msg %szlk_chn * Kaynak dosya bulunamadı. | return } var %sont 0 if ($read($ptht,w,$1-,%sont)) { set -e %ilkt $readn set -e %sont $calc(%ilkt + 1) } if (!%ilkt) { msg %szlk_chn * Aradığınız kelime bulunamadı. | goto finisht } while ($read($ptht,w,$+($1-,*),%sont)) { if ($calc($readn - %ilkt) > 18) { break | set -e %sont $readn | goto start-s } set -e %sont $readn inc %sont } :start-s msg %szlk_chn $str(-,50) msg %szlk_chn [ARAMA BASLANGIC] [KELIME $1- ] msg %szlk_chn $str(-,50) while (%ilkt <= %sont) { var %ok = $read($ptht,%ilkt) msg %szlk_chn $iif(!$regex(%ok,^(\*\s.+)$),$+(>,%ok),%ok) inc %ilkt } msg %szlk_chn $str(-,50) msg %szlk_chn [ARAMA BITIS] [KELIME $1- ] msg %szlk_chn $str(-,50) :finisht unset %ilkt %sont } |
|
|
15 Eylül 2022, 14:32 | #2 |
paylasim icin tesekkürler.
________________
Hope. . . ✨
|
|
|
15 Eylül 2022, 14:49 | #3 |
Emeginize saglik paylasim icinde ayrica tesekkur ederiz
________________
No MoRe DramA
|
|
|
15 Eylül 2022, 15:44 | #4 |
Paylaşım için teşekkürler, emeğinize sağlık
|
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | |
Stil | |
|
|