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
}