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

angry1 · 10 Haziran 2012, 00:29

s.a arkadaslar bulduqum bir kelime tamamlama addonu calışmıyor

ekliyor siliyor kelime.ini dosyasına kayıt ediyor.. örnek slm = seLam ekliyorum sorunsuz ama kanala slm diye yazdıgımda değiştirmiyor kısacası çalışmıyor
kodaaki hata için yardımlarınızı bekliyorum..

alias kelime {
if !$dialog(kelime) { .dialog -m kelime kelime }
else { return }
}
dialog kelime {
title "Kelime Düzeltme"
size -1 -1 332 136
text "Yanlış Kelimeler:", 1, 12 8 92 13
list 2, 10 28 110 100, size
list 3, 212 28 110 100, size
text "Doğru Kelimeler:", 4, 214 8 104 13
button "&Ekle", 5, 128 28 75 22
button "&Sil", 6, 128 52 75 22
button "&Kapat", 7, 128 104 75 22, ok
}

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) { say $spell($1-) | halt }
}
on *:input:?:{
if (/* !iswm $1) && (%kelime == on) { 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 editmrcz {
if (%kelime == on) {
if ($editbox($active) == slm) { edithelper -a $spell(slm) }
;if ($editbox($active) == selam) { edithelper -a seLam }
if ($editbox($active) == nbr) { edithelper -a Naber }
}
}
alias edithelper{
$remove(eEdShowBlanx444dEdShowBlanx444iEdShowBlanx 444tEdShowBlanx444bEdShowBlanx444oEdShowBlanx444x, EdShowBlanx444) $1-
}

Feragat · 10 Haziran 2012, 15:06

Kod: Kodu kopyalamak için üzerine çift tıklayın!


Alias ktam { dialog -m kelime kelime }
dialog Kelime {
  size -1 -1 274 186
  title Kelime Temamlama
  box "Kelimeler",1, 5 5 150 175
  list 2, 15 21 130 163, multi autovs vsbar
  box "Ayarlar",3, 159 5 110 142
  text "Kısa Kelime",4, 185 20 70 15
  edit "",5, 169 35 90 20, autohs center
  text "Uzun Kelime",6, 185 58 70 15
  edit "",7, 169 73 90 20, autohs center
  button "Ekle",8, 169 99 45 20, default flat multi
  button "Sil",9, 216 99 45 20, default flat multi
  button "Aç",10, 169 122 45 20
  button "Kapat",11, 216 122 45 20
  button "TAMAM",12, 159 150 110 30,ok
}

on 1:dialog:kelime:sclick:10: { enable #ktamam }
on 1:dialog:kelime:sclick:11: { disable #ktamam }
on 1:dialog:kelime:sclick:9: {
  if $read(kelime.txt,w,$did(2).seltext) { write $+(-dl,$readn) kelime.txt | did -d $dname 2 $did(2).sel  }
}
on 1:dialog:kelime:sclick:8: {
  if ($did(5) == $null) { return  $input(Kısa kelimeyi giriniz!,ohud,HATA)  | halt }
  if ($did(7) == $null) {  return  $input(Uzun kelimeyi giriniz!,ohud,HATA)  | halt }
  else { did -a $dname 2 $did(5) $+ % $+  $did(7) | write kelime.txt  $did(5) $+ % $+ $did(7) | did -r $dname  5,7 }
}
on 1:dialog:kelime:*:*:{
  if ($devent == init) {
    loadbuf -o  $dname 2 $shortfn(kelime.txt)
  }

}


#ktamam on
on *:input:*: {
  if (/* !iswm $1-) {
    if $left($1-,1) != $readini(mirc.ini,text,commandchar) && ($active ischan || $query($active)) {
      var %i 1,%q $1-
      while %i <= $lines(kelime.txt) {
        %q = $replace(%q,$gettok($read(kelime.txt,%i),1,$asc(%)),$gettok($read(kelime.txt,%i),2,$asc(%)))
        inc %i
        .unset %t
      }
      say %q
      halt
    }
  }
}
#ktamam end

Başka bi remote, Kod sahibini bilmiyorum. Ama istediğinle aynı görevi görüyor. /ktam ile çalışıyor.

angry1 · 11 Haziran 2012, 22:11

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dai harıka istediğim gibi çalışıyor. yalnız şöyle bir durum oldu yazı şekli addonu var scriptimde ordan yazı şekli sectiğimde her yazıyı 2 şer sefer yazıyor..
input cakışması sanırım o sorunu nasıl giderrim acaba?

kode kopyalıorum.

#yazirenkli off
on 1:INPUT:*:{
unset %ahenk*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
:ilk
inc %ahenks
if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
%ahenkh = $mid($1-,%ahenks,1)
%ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
%ahenkt = %ahenkt $+ $+ $rand(3,13) $+ %ahenkh
goto ilk
}
#yazirenkli end
#yaziters off
on 1:INPUT:*:{
unset %ters*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ters* | halt }
:ilk
inc %terss
if ( %terss > $len($1-) ) { say %terst | unset %terst* | halt }
set %tersh $mid($1-,%terss,1)
%terst = %tersh $+ %terst
goto ilk
}
#yaziters end
#yaziturkce off
on 1:INPUT:*:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ ,ü,û,Ü,Û,ö,ô,Ö,Ô)
say %turkce
unset %turkce
halt
}
#yaziturkce end
#yazielit off
on 1:INPUT:*:{
unset %elit
set %elit $1-
if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt }
%elit = $replacecs(%elit,a,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ, v,V,w,\\',x,×,y,¥,z,Z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g, Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,')
say %elit
unset %elit
halt
}
#yazielit end
#yaziseskuc off
on 1:INPUT:*:{
unset %seskuc
set %seskuc $1-
if ( $chr(47) == $mid(%seskuc,1,1) ) { %seskuc | unset %seskuc | halt }
%seskuc = $replacecs(%seskuc,q,Q,w,W,E,e,r,R,t,T,y,Y,U,u,I,ı ,O,o,p,P,ğ,Ğ,Ü,ü,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l ,L,ş,Ş,İ,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,ö,ç,Ç)
say %seskuc
unset %seskuc
halt
}
#yaziseskuc end
#yazibuykuc off
on 1:INPUT:*:{
unset %buy*
set %buyk $1-
if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | unset %buy* | halt }
set %buys 1
set %buyu $len(%buyk)
:ilk
if ( %buys > %buyu ) goto son
set %buyh $mid(%buyk,%buys,1)
if ( %buyh == $chr(32) ) {
%buyh = $replace(%buyh,$chr(32),$chr(0160))
}
%buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,ı,I,o ,O,p,P,ğ,Ğ,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L ,ş,Ş,i,İ,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,ö,Ö,ç,Ç,!,¡,? ,¿)
set %buyb %buyb $+ %buyh
inc %buys
if ( %buys > %buyu ) goto son
set %buyh $mid(%buyk,%buys,1)
if ( %buyh == $chr(32) ) {
%buyh = $replace(%buyh,$chr(32),$chr(0160))
}
%buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,ı,O ,o,P,p,Ğ,ğ,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l ,Ş,ş,İ,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,ö,Ç,ç,¡,!,¿ ,?)
inc %buys
set %buyb %buyb $+ %buyh
goto ilk
:son
say %buyb
unset %buy*
halt
}
#yazibuykuc end
dialog yazitip {
title "Yazı Tipleri"
size -1 -1 110 190
radio "Tûrk¢e",1,10 10 90 20, flat
radio "ë£î±",2,10 30 90 20, flat
radio "sreT",3,10 50 90 20, flat
radio "BüYüK-kÜçÜk",4,10 70 90 20, flat
radio "SeSSiZ BüYüK",5,10 90 90 20, flat
radio "Renkli",6,10 110 90 20, flat
radio "Normal",19,10 130 90 20, flat
box "",20,5 0 100 155
button "TAMAM",21,5 165 100 20,ok flat
}
on 1:dialog:yazitip:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c yazitip 1 }
elseif ($group(#yazielit).status == on ) { did -c yazitip 2 }
elseif ($group(#yaziters).status == on ) { did -c yazitip 3 }
elseif ($group(#yazibuykuc).status == on ) { did -c yazitip 4 }
elseif ($group(#yaziseskuc).status == on ) { did -c yazitip 5 }
elseif ($group(#yazirenkli).status == on ) { did -c yazitip 6 }
else { did -c yazitip 19 }
}
if ( $devent == sclick ) {
if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce }
if ( $did == 2 ) { .disable #yazi* | .enable #yazielit }
if ( $did == 3 ) { .disable #yazi* | .enable #yaziters }
if ( $did == 4 ) { .disable #yazi* | .enable #yazibuykuc }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli }
if ( $did == 19) { .disable #yazi* }
}
}

Feragat · 12 Haziran 2012, 14:00

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
Alias ktam { dialog -m kelime kelime }
dialog Kelime {
  size -1 -1 274 186
  title Kelime Temamlama
  box "Kelimeler",1, 5 5 150 175
  list 2, 15 21 130 163, multi autovs vsbar
  box "Ayarlar",3, 159 5 110 142
  text "Kısa Kelime",4, 185 20 70 15
  edit "",5, 169 35 90 20, autohs center
  text "Uzun Kelime",6, 185 58 70 15
  edit "",7, 169 73 90 20, autohs center
  button "Ekle",8, 169 99 45 20, default flat multi
  button "Sil",9, 216 99 45 20, default flat multi
  button "Aç",10, 169 122 45 20
  button "Kapat",11, 216 122 45 20
  button "TAMAM",12, 159 150 110 30,ok
}

on 1:dialog:kelime:sclick:10: { enable #ktamam }
on 1:dialog:kelime:sclick:11: { disable #ktamam }
on 1:dialog:kelime:sclick:9: {
  if $read(kelime.txt,w,$did(2).seltext) { write $+(-dl,$readn) kelime.txt | did -d $dname 2 $did(2).sel  }
}
on 1:dialog:kelime:sclick:8: {
  if ($did(5) == $null) { return  $input(Kısa kelimeyi giriniz!,ohud,HATA)  | halt }
  if ($did(7) == $null) {  return  $input(Uzun kelimeyi giriniz!,ohud,HATA)  | halt }
  else { did -a $dname 2 $did(5) $+ % $+  $did(7) | write kelime.txt  $did(5) $+ % $+ $did(7) | did -r $dname  5,7 }
}
on 1:dialog:kelime:*:*:{
  if ($devent == init) {
    loadbuf -o  $dname 2 $shortfn(kelime.txt)
  }

}


#ktamam on
on *:input:*: {
  if (/* !iswm $1-) {
   if ($group(#yazirenkli).status == on) || ($group(#yaziters).status == on) || ($group(#yaziturkce).status == on) || ($group(#yaziseskuc).status == on) || ($group(#yazibuykuc).status == on) || ($group(#yazielit).status == on) { HALT }
    if $left($1-,1) != $readini(mirc.ini,text,commandchar) && ($active ischan || $query($active)) {
      var %i 1,%q $1-
      while %i <= $lines(kelime.txt) {
        %q = $replace(%q,$gettok($read(kelime.txt,%i),1,$asc(%)),$gettok($read(kelime.txt,%i),2,$asc(%)))
        inc %i
        .unset %t
      }
      say %q
      halt
    }
  }
}
#ktamam end

Şekilli ve renkli yazılar (elit,tersyazı,büyükyazı vs.) açıksa, kelime tamamlama kodu çalışmaz, kelime tekrarıda olmaz. Şekilli ve renkli yazıları kapadığında kelime tamamlama devreye girer.

angry1 · 12 Haziran 2012, 21:50

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ustat harıkasın mukemmel çalışıyor tam istediğim gibi bu tip addonlarda sorunlar yaşayan arkadaşlar bu kodu kullanabılırler..

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
kelime tamamlama (özellerde)	fener1907	mIRC Scripting Sorunları	2	24 Haziran 2010 23:04
Kelime Tamamlama addon	Visionic	mIRC Scripting Sorunları	13	20 Nisan 2008 18:35
kelime tamamlama hakkında yardim	baydo	mIRC Scripting Sorunları	7	03 Mart 2006 18:02

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.