IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 23 Haziran 2019, 21:04   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Kelime Tamamlama Addon


Reklam

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:   Kodu kopyalamak için üzerine çift tıklayın!
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
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:   Kodu kopyalamak için üzerine çift tıklayın!
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
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
addon, kelime, mirc, tamamlama
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık