IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar Kelime Tamamlama Addon
irc

Kelime Tamamlama Addon
Aytac
Kelime Tamamlama Addon
0
338
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
kelime addon tamamlama

Bu konuyu görüntüleyen kullanıcı(lar):1 Ziyaretçi
Şuan Offine!
Şuan Offine!
Aytac Administrator
********
Proje Sorumlusu

  • Üyelik tarihi    04.02.2020
  • Konum  78 Karabük
  • Konular351
  • Mesajlar364
  • Verilen beğeni8 in 5 posts
  • Alınan beğeni6
  • Rep puanı 6

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


[Resim: GZv4jv.png][Resim: yGPpkM.png]

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

/ktamamla
“İnsanların en hayırlısı, insanlara faydalı olandır”. H.Ş.


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  #Kanal'da "Kelime" geçen yerleri bulma Aytac 0 514 28.03.2020, 18:32
Son Mesaj: Aytac

Foruma Git: