Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Tags
mircaddon mirckodları ircforum kelime addon kelimeaddon kelimetamamlamaaddon mircaddonları tamamlama ircforumları

Kelime Tamamlama Addon
Admin
#1
Exclamation 
Kelime Tamamlama Addon 2020

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
Normalde menulerde çıkar ama komut ile açmak isteyen için.


/ktamamla
Cevapla


Bu Konudaki Yorumlar
Kelime Tamamlama Addon - Yazar: Admin - 05-26-2020, 07:21 PM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Lightbulb kanalda 10dk konusmayın -v yapma Addon Admin 0 85 11-15-2020, 08:26 PM
Son Yorum: Admin
  Kelime yeni oyun bot hilesi Admin 0 762 09-15-2020, 06:59 PM
Son Yorum: Admin

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi