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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Kelime tamamlayıcı hakkında sorun (https://www.ircforumlari.net/mirc-scripting-sorunlari/27445-kelime-tamamlayici-hakkinda-sorun.html)

akkaya 05 Şubat 2007 22:17

Kelime tamamlayıcı hakkında sorun
 
selam arkadaşlar aşağıdaki kodu bi metin belgesine koyup scripte yükledğimiz zaman addon kısmen çalışıyo,, kelime ekleyebiliyoruz fakat kanal genelinde aktif edemiyorum bi ilgilenebilirmisiniz.. eklenmesi gereken bir kaç kod daha gerekiyo sanırım.. bunun çalıştığı scriptte options bölümünde kutucuğa tick atılarak kullanılıyo..örnek nuclear scripti inceleyebilirsiniz ilgilenen herkese şimdiden teşekkürler
Kod:


 
alias kelimee dialog -m kelime kelime
dialog kelime {
title " X ScripT Kelime Düzeltici"
size -1 -1 332 196
text "KısaLtıLmış Kelimeler:", 1, 12 8 92 13
list 2, 10 28 110 160, size
list 3, 212 28 110 160, size
text "AsıL Kelimeler:", 4, 214 8 104 13
button "&Ekle", 5, 128 28 75 42,flat
button "&Sil", 6, 128 74 75 42,flat
button "&Kapat", 7, 128 124 75 42, ok,flat
 
}
 
on *:dialog:kelime:*:*:{
if $devent = init { var %! = 1 | while (%! <= $ini(kelime.ini,kelimeler,0)) { did -a kelime 2 $ini(kelime.ini,kelimeler,%!) | did -a kelime 3 $readini kelime.ini kelimeler $ini(kelime.ini,kelimeler,%!) | inc %! } }
if $devent = sclick { if $did = 5 { .timer 1 0 kelime-add } | if $did = 6 && $did(kelime,2).sel { remini kelime.ini kelimeler $did(kelime,2,$did(kelime,2).sel).text | did -d kelime 2,3 $did(kelime,2).sel } | if $did = 2 { did -c kelime 3 $did(kelime,2).sel } | if $did = 3 { did -c kelime 2 $did(kelime,3).sel } }
}
 
on *:input:#:{
if (/* !iswm $1) && (%kelime == on) && ($group(#cstil) == OFF) { say $spell($1-) | halt }
}
on *:input:?:{
if (/* !iswm $1) && (%kelime == on) && ($group(#cstil) == OFF) { say $spell($1-) | halt }
}
 
 
alias kelime-add var %! = $$?="Düzeltilecek Kelimeyi Girin.:",%. = $$?="Doğru Kelimeyi Girin.:" | writeini kelime.ini kelimeler %! %. | did -a kelime 2 %! | did -a kelime 3 %.
alias spell var %. = $1-,%! = 1,%²,%³ | while (%! <= $numtok(%.,32)) { %² = $readini kelime.ini kelimeler $gettok(%.,%!,32) | %³ = %³ $iif(%²,%²,$gettok(%.,%!,32)) | inc %! } | return %³
 
alias editbilmem {
if (%kelime == on) {
if ($editbox($active) == slm) { editnart -a $spell(slm) }
;if ($editbox($active) == selam) { editnart -a seLam }
if ($editbox($active) == nbr) { editnart -a Naber }
}
}
alias editnart {
$remove(eEdShowBlanx444dEdShowBlanx444iEdShowBlanx444tEdShowBlanx444bEdShowBlanx444oEdShowBlanx444x,EdShowBlanx444) $1-
}
alias kelimeduzlet123 {
if (%kelime == on) { .timeredit 0 0 /editbilmem }
}
alias kelime123 {
if (%kelime == OFF) { set %kelime ON | kelime } else set %kelime OFF | halt }



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 12:25.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net