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

 Kayıt ol
Etiketlenen Kullanıcılar

3Beğeni(ler)
  • 1 Post By Feragat
  • 1 Post By Feragat
  • 1 Post By angry1

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 10 Haziran 2012, 00:29   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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-
}

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet
Alt 10 Haziran 2012, 15:06   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kelime tamamlama hatası



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.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 11 Haziran 2012, 22:11   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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* }
}
}

 
Alıntı ile Cevapla

Alt 12 Haziran 2012, 14:00   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kelime tamamlama hatası



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.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 12 Haziran 2012, 21:50   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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..

 
Alıntı ile Cevapla

Cevapla

Etiketler
hatası, kelime, tamamlama

« önceki Konu | sonraki Konu »

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

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 Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Kelime Tamamlama Addon Alper mIRC Scripting Hazır Kodlar 11 23 Temmuz 2019 00:26
Çözüldü Kelime Tamamlama Yardım eLsukr mIRC Scripting Sorunları 3 16 Haziran 2019 21:33
kufur.txt kelime tamamlama fav mIRC Scripting Sorunları 3 03 Şubat 2013 12:52
Kelime Tamamlama addon Visionic mIRC Scripting Sorunları 13 20 Nisan 2008 18:35




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
trsikayet.com ferizli haber kaynarca haber yavru köpek sohbet instagram takipçi sohbet teması yetişkin sohbet
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

mimarsinanokullari.com mjsanaokulu.com eburke.org 副業 https://www.newstrendline.com/