Tekil Mesaj gösterimi
Alt 07 Kasım 2024, 11:49   #21
Çevrimiçi
ZaLiM1979
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.




OperServ Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
/* real time editbox changer(RTEC) başlama tarihi: 1/Mayıs/2008 yapımcı: Alience versiyon: 1.0.3 */ on *:load: { set %rtecsentence 1 echo $color(info text) -at * RTEC yüklendi, ayarlarını yapmak için /rtec veya /stil komutunu kullanabilirsiniz. } on *:start: { if !$hget(RTEC) { hmake RTEC 50 } if !$hget(RTECOPT) { hmake RTECOPT 2 } .hload -b RTEC $qt($+($scriptdir,rtec.bin)) .timerRTEC -m 0 80 /RTEC -t } on *:CONNECT: { if !$hget(RTEC) { hmake RTEC 50 } if !$hget(RTECOPT) { hmake RTECOPT 2 } .hload -b RTEC $qt($+($scriptdir,rtec.bin)) .timerRTEC -m 0 80 /RTEC -t } alias stil { rtec $1- } alias RTEC { if $regex($1-,(\-t)) { if $regex($window($active).type,^(channel|query|chat)$) && !$regex(%str,(^\/)) { var %str = $editbox($active), %replaced = %str, %selstart = $editbox($active).selstart, %selend = $editbox($active).selend if %rtecstr != %str { if $right($editbox($active),1) != $chr(32) { var %i = $hget(RTEC,0).item while %i { %replaced = $replace(%replaced,$hget(RTEC,%i).item,$hget(RTEC,%i).data) dec %i 1 } if %rtecsentence { %replaced = $regsubex(%replaced,/((?<=\.|\?|\!)([^\s]))/g,$+($chr(32),$upper(\1))) %replaced = $regsubex(%replaced,/((?<=\.|\?|\!)(\s)([a-z&#240;üöç&#254;&#253;]))/g,$+($upper(\1))) %replaced = $regsubex(%replaced,/((?<=^)(.))/g,$+($upper(\1))) %replaced = $regsubex(%replaced,/((?<=,)([^\s]))/g,$+($chr(32),\1)) } var %xdif = ($len(%replaced) - $len(%str)) %selstart = $calc(%selstart + %xdif) %selend = $calc(%selend + %xdif) %rtecstr = %replaced editbox $+(-ab,%selstart,e,%selend) %replaced } } } } else { if !$dialog(RTECDLG) { dialog -m RTECDLG RTEC_TABLE } } } dialog RTEC_TABLE { title "Rtec v1.0 - ßy Alience(Halim) 2008" size -1 -1 300 245 option dbu button "&Ekle", 1, 252 1 37 12 button "Degistir", 2, 252 14 37 12 button "&Sil", 3, 252 27 37 12 check "&Cümle stilini uygula", 4, 2 225 112 10 button "&iptal", 6, 171 225 37 12, cancel button "&Tamam", 5, 209 225 37 12, ok text "&Degistirilecek string:", 8, 0 5 49 8, right edit "", 9, 49 2 197 10, autohs text "&Yazilacak string:", 10, 0 16 49 8, right edit "", 11, 49 13 197 10, autohs } on *:dialog:RTECDLG:*:*: { if $devent == init { dcx Mark $dname RTECDLG_CB xdialog -b $dname +tyz xdialog -c $dname 7 listview 1 50 490 390 report fullrow singlesel grid showsel autoarrange xdid -t $dname 7 +l 2 120 Degistirilecek $chr(9) +c 1 340 Yazilacak var %i = $hget(RTEC,0).item while %i { xdid -a $dname 7 1 0 +c 1 0 0 0 $rgb(0,0,0) $rgb(255,255,255) $hget(RTEC,%i).item $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $hget(RTEC,%i).data dec %i 1 } did -f $dname 9 if $xdid($dname, 7).num { xdid -c $dname 7 1 } if %rtecsentence { did -c $dname 4 } } if $devent == sclick { if $did == 1 { if $did(9) != $null && $did(11) != $null { if !$xdid($dname, 7, $chr(9) $did(9) $chr(9), W, 0, 0).find { xdid -a $dname 7 1 0 +cs 1 0 0 0 $rgb(0,0,0) $rgb(255,255,255) $did(9) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $did(11) did -r $dname 9

on *:CONNECT: olayını ekleyerek, her bağlandığınız sunucuda çalışır buyur deneyin.

OperServ Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
/* Real Time Editbox Changer (RTEC) Başlama tarihi: 1/Mayıs/2008 Yapımcı: Alience Versiyon: 1.0.3 */ ; DCX dll fonksiyonları START ; DCX dll fonksiyonları END on *:load: { set %rtecsentence 1 echo $color(info text) -at * RTEC yüklendi, ayarlarını yapmak için /rtec veya /stil komutunu kullanabilirsiniz. } on *:start: { if !$hget(RTEC) { hmake RTEC 50 } if !$hget(RTECOPT) { hmake RTECOPT 2 } .hload -b RTEC $qt($+($scriptdir,rtec.bin)) .timerRTEC -m 0 80 /RTEC -t } on *:CONNECT: { if !$hget(RTEC) { hmake RTEC 50 } if !$hget(RTECOPT) { hmake RTECOPT 2 } .hload -b RTEC $qt($+($scriptdir,rtec.bin)) .timerRTEC -m 0 80 /RTEC -t } alias stil { rtec $1- } alias RTEC { if $regex($1-,(\-t)) { if $regex($window($active).type,^(channel|query|chat)$) && !$regex(%str,(^\/)) { var %str = $editbox($active), %replaced = %str, %selstart = $editbox($active).selstart, %selend = $editbox($active).selend if %rtecstr != %str { if $right($editbox($active),1) != $chr(32) { var %i = $hget(RTEC,0).item while %i { %replaced = $replace(%replaced,$hget(RTEC,%i).item,$hget(RTEC,%i).data) dec %i 1 } if %rtecsentence { %replaced = $regsubex(%replaced,/((?<=\.|\?|\!)([^\s]))/g,$+($chr(32),$upper(\1))) %replaced = $regsubex(%replaced,/((?<=\.|\?|\!)(\s)([a-zğüöçşı]))/g,$+($upper(\1))) %replaced = $regsubex(%replaced,/((?<=^)(.))/g,$+($upper(\1))) %replaced = $regsubex(%replaced,/((?<=,)([^\s]))/g,$+($chr(32),\1)) } var %xdif = ($len(%replaced) - $len(%str)) %selstart = $calc(%selstart + %xdif) %selend = $calc(%selend + %xdif) %rtecstr = %replaced editbox $+(-ab,%selstart,e,%selend) %replaced } } } } else { if !$dialog(RTECDLG) { dialog -m RTECDLG RTEC_TABLE } } } dialog RTEC_TABLE { title "Rtec v1.0 - By Alience(Halim) 2008" size -1 -1 315 307 option dbu button "&Ekle", 1, 252 2 37 12 button "Değiştir", 2, 252 19 37 12 button "&Sil", 3, 252 36 37 12 check "&Cümle Stili Uygula", 4, 252 267 52 10 button "&İptal", 6, 252 233 37 12, cancel button "&Tamam", 5, 252 250 37 12, ok text "&Değiştirilecek String:", 8, 3 5 49 7, right edit "", 9, 54 2 193 10, autohs text "&Yazılacak String:", 10, 8 16 40 7, right edit "", 11, 54 13 193 10, autohs } on *:dialog:RTECDLG:*:*: { if $devent == init { dcx Mark $dname RTECDLG_CB xdialog -b $dname +tyz xdialog -c $dname 7 listview 4 50 490 505 report fullrow singlesel grid showsel autoarrange xdid -t $dname 7 +l 2 100 Değiştirilecek $chr(9) +c 1 356 Yazılacak var %i = $hget(RTEC,0).item while %i { xdid -a $dname 7 1 0 +c 1 0 0 0 $rgb(0,0,0) $rgb(255,255,255) $hget(RTEC,%i).item $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $hget(RTEC,%i).data dec %i 1 } did -f $dname 9 if $xdid($dname, 7).num { xdid -c $dname 7 1 } if %rtecsentence { did -c $dname 4 } } if $devent == sclick { if $did == 1 { if $did(9) != $null && $did(11) != $null { if !$xdid($dname, 7, $chr(9) $did(9) $chr(9), W, 0, 0).find { xdid -a $dname 7 1 0 +cs 1 0 0 0 $rgb(0,0,0) $rgb(255,255,255) $did(9) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $did(11) did -r $dname 9,11 } } } elseif $did == 2 { if $did(2) == Değiştir { if $xdid($dname, 7, 0).sel { did -ra $dname 9 $xdid($dname, 7, 1).seltext did -ra $dname 11 $xdid($dname, 7, 2).seltext did -b $dname 7,1,3 did -ra $dname 2 Tamam } } else { did -ra $dname 2 Değiştir did -e $dname 7,1,3 if $xdid($dname, 7, 1).seltext != $did(9) { if !$xdid($dname, 7, $chr(9) $did(9) $chr(9), W, 0, 0).find { xdid -d $dname 7 $xdid($dname, 7, 0).sel xdid -a $dname 7 1 0 +cs 1 0 0 0 $rgb(0,0,0) $rgb(255,255,255) $did(9) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $did(11) } } elseif $xdid($dname, 7, 2).seltext != $did(11) { xdid -d $dname 7 $xdid($dname, 7, 0).sel xdid -a $dname 7 1 0 +cs 1 0 0 0 $rgb(0,0,0) $rgb(255,255,255) $did(9) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $did(11) } } } elseif $did == 3 { if $xdid($dname, 7, 0).sel { xdid -d $dname 7 $xdid($dname, 7, 0).sel if $xdid($dname, 7).num { xdid -c $dname 7 $v1 } } } elseif $did == 5 { var %i = 1, %end = $xdid($dname, 7).num hfree RTEC while %i <= %end { hadd -m RTEC $xdid($dname, 7, %i, 1).text $xdid($dname, 7, %i, 2).text inc %i 1 } hsave -b RTEC $qt($+($scriptdir,rtec.bin)) set %rtecsentence $did(4).state } } } ; DCX mark alias (önemsiz) alias RTECDLG_CB { }

Buyur bunu deneyin türkçe karakter sorunu eklendi


Aynen bunu denedim, mahlesef baglandigim 2.nci serverde calisiyor ama daha önce bagli oldugum serverde calismiyor. yani on connect eventi yeni baglandigim serverde calisir duruma getiriyor ama daha önce bagla oldugun 1nci serverde durduruyor. :-)

__________________


SeN BeNiM YiLDiZ KaYaRKeN TuTTuGuM DiLeGiM DeGiL, eZaN oKuRKeN eTTiGiM DuaMSiN!!!
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet bizimmekan