;;;;;;;;;;;;;;;;;;;;;;;;;;
;TURKCE SOZLUK;;
;;;;;;;;;;;;;;;;;;;;;;;;;;
;ACIKLAMA
;Asagidaki kodu ALT + R kismina koyun
;KOD BASLANCIC
;Kodun calisacagi kanallari yazin
alias -l kanallar return #mirchelp,#sohbet,#edebiyat
;Kanalda !sozluk kelime yazarak calistirabilirsiniz.
on $*:text:/^[!.]s.zl.k\s(.+)/i:$($kanallar):{
  .ignore -u5 $nick
  set %szlk_chn $chan
  tdk $strip($2-)
}
alias -l ptht return $mircdirtsozluk.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 txt dosyasi bulunamadi. | 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 * Aradiginiz kelime bulunamadi. | 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 [3ARAMA BASLANGIC] [2KELIME $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 [4ARAMA BITIS] [2KELIME $1- ]
  msg %szlk_chn $str(-,50)
  :finisht
  unset %ilkt %sont
}
;KOD BITIS