IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Kelime Tamamlama Addon (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/825838-kelime-tamamlama-addon.html)

Kelime Tamamlama Addon

Merhabalar,

Geçenlerde bir kelime tamamlama addonu gördüm ve bu şekilde basit bir addon yapma kararı aldım umarım işinize yarar. Input eventi benim kendi kullandığım kod önceden beri var kimin bilmiyorum onun üzerinden düzenleme yaptım.

Not: Dikkat etmeniz gereken konu kullandığınız farklı yazı yazma stil kodu varsa onu devre dışı bırakmanız gerekiyor yoksa çakışma olabilir.

Ek olarak sorunla karşılaşırsanız bu konu başlığı altında bildirebilirsiniz.

Kod:

menu status,channel,menubar {

  -

  Kelime Tamamlama: ktamamla

  -

}

alias ktamamla { if ($dialog(ktamamla)) { dialog -c ktamamla } |  dialog -ma ktamamla ktamamla }

dialog ktamamla {

  title "Kelime Tamamlama"

  size -1 -1 215 134

  option dbu

  edit "", 1, 7 9 50 10, autohs

  text " yazdığında", 2, 58 10 30 8

  button "Sil", 3, 51 117 74 12

  edit "", 4, 89 9 80 10, autohs

  text " olarak yazacak", 5, 169 10 38 8

  button "Ekle", 6, 7 23 201 12, default

  box "Kelime Tamamlama", 7, 3 1 209 38

  list 8, 3 41 209 71, size vsbar

  radio "Açık", 9, 149 118 24 10, group left

  radio "Kapalı", 10, 182 118 27 10

  box "", 11, 143 114 69 15

  button "Tamam", 12, 4 117 28 12, ok

}

on *:dialog:ktamamla:*:*: {

  if ($devent == init) {

    if ($group(#ktamamla) == on) { did -c ktamamla 9 } | else { did -c ktamamla 10 }

    ktamamla.init

  }

  if ($devent == sclick) { 

    if ($did == 6) {

      if (($did(1) && $did(4)) != $null) { 

        if !$read(tamamlama.txt,w,$did(1) $+ $chr(186) $+ *) { .write tamamlama.txt $did(1) $+ $chr(186) $+ $did(4) | ktamamla.init | did -r ktamamla 1,4 }

        else { echo 4 -at [ $did(1) ] Kelime tamamlama listesinde ekli }

      }

      else { echo 4 -at Lütfen 2 kutucuğu doldurun }

    }

    if ($did == 3) {

      if $read(tamamlama.txt,w,$token($did(8).seltext,1,47) $+ $chr(186) $+ *) {

        if ($did(8).seltext != $null) { .write $+(-dl,$readn) tamamlama.txt | ktamamla.init } 

      }

    }

    if ($did(9).state == 1) { .enable #ktamamla }

    if ($did(10).state == 1) { .disable #ktamamla }

  }

}

alias ktamamla.init {

  did -r ktamamla 8

  var %ul 1 

  while %ul <= $lines(tamamlama.txt) {

    did -a ktamamla 8 $replace($read(tamamlama.txt,%ul),$chr(186),$chr(47))

    inc %ul

  }

}

#ktamamla off

on *:input:*:{ 

  if !$regex($1,/^(\.|!|\/|[0-9])/i) || ($ctrlenter) { 

    var %^ = 1, %'

    while %^ <= $0 { 

      %' = %' $iif($read(tamamlama.txt,w,$gettok($1-,%^,32) $+ $chr(186) $+ *),$token($read(tamamlama.txt,$readn),2,186),$gettok($1-,%^,32))

      inc %^

    }

    say %'

    halt

  }

}

#ktamamla end

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

Normalde menulerde çıkar ama komut ile açmak isteyen için.

/ktamamla