IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - mirc turkce sozluk text belgesinden okutmali

[Ü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:

;;;;;;;;;;;;;;;;;;;;;;;;;;

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