[manikdepresif]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (Dosya Boyut: 5.1 mb)
-
Yukaridaki sozluk dosyasini linkten indirin.
-
Mirc programinizda //run $mircdir komutunu uygulayin.
Acilan pencereye ayri bir yere yapistirin.
Asagidaki kodu remotenize koyun.
-
-
-
-
Koyduktan sonra !sozluk kelime seklinde calistirabilirsiniz. turkce karakterler kullanmayin.
Kodun calisacagi kanallar asagida yazilmistir, onlari istege bagli degistirebilirsiniz.
Kod:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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

Sozluk dosyasinda cogu kelime bulunmaktadir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Forbidden]

Emegine saglik jeun usta sözlük merakcıları için güzel bir çalışma

[SpinoZi]

Emeğinize sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[idyllic]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emeğinize sağlık güzel çalışma olmuş ☺️

[manikdepresif]

tesekkurler, cok cok seneler once yazmistim kenarda kosede kalmis gecenlerde denk geldi paylastim.