IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

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

Kod:

alias -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

}