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

>
+
Etiketlenen Kullanıcılar

11Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 10 Nisan 2019, 18:42   #1
Çevrimiçi
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.




Selam arkadaslar
yukarda belirtilen real time editbox changer (RTEC) elimde var..
lakin kod baglandigimiz ilk serverde calisiyor ve 2.ni bi servere baglandigimizda ordada calismiyor.. bunu baglandigimiz tüm serverlerde calissin diye editleyebilecek arkadaslar olur ümüdiyle yaziyorum ve simdiden tsk ediyorum..



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
/* real time edidbox 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 } 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 - ß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,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 not important. alias RTECDLG_CB { } ;EOF


__________________


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

Alt 04 Kasım 2024, 20:53   #2
Çevrimdışı
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.




ZaLiM1979 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Selam arkadaslar
yukarda belirtilen real time editbox changer (RTEC) elimde var..
lakin kod baglandigimiz ilk serverde calisiyor ve 2.ni bi servere baglandigimizda ordada calismiyor.. bunu baglandigimiz tüm serverlerde calissin diye editleyebilecek arkadaslar olur ümüdiyle yaziyorum ve simdiden tsk ediyorum..



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
/* real time edidbox 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 } 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 - ß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,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 not important. alias RTECDLG_CB { } ;EOF



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ðüöçþý]))/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.

__________________
Herkes bir, İş için yaratılmıştır.
 
Alıntı ile Cevapla

Cevapla

Etiketler
bîr, hakkında, kac, mİrc, script, sorun, toolbar, ve


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
Mırc'la Sunucuya Girişte Sorun. [RaNGeR] mIRC Scripting Sorunları 3 16 Nisan 2011 18:29
Ücretsiz Script & mİRC Sohbetmetro mIRC Scripting Tanıtımları 7 14 Eylül 2010 13:43
RapAlemi Mırc Script CmiStanbuL mIRC Scripting Tanıtımları 1 18 Kasım 2009 22:31