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 tamamlama hatası (https://www.ircforumlari.net/mirc-scripting-sorunlari/487498-kelime-tamamlama-hatasi.html)

angry1 10 Haziran 2012 00:29

kelime tamamlama hatası
 
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

Cevap: kelime tamamlama hatası
 
Kod:


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

Cevap: kelime tamamlama hatası
 
[Ü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

Cevap: kelime tamamlama hatası
 
Kod:


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

Cevap: kelime tamamlama hatası
 
[Ü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..


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk