IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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/)
-   -   Çözüldü Mırc script ve toolbar hakkında bir kaç sorun. (https://www.ircforumlari.net/mirc-scripting-sorunlari/578549-mirc-script-ve-toolbar-hakkinda-bir-kac-sorun.html)

ŞaH 11 Nisan 2014 22:35
Mırc script ve toolbar hakkında bir kaç sorun.
 
Arkadaşlar scriptte aşağıya toolbar koydum ve smileyler var.İstiyorumki toolbarda smileye tıkladığı zaman editbox alanına o smileyi yazsın ama;

if ($did($dname,1).sel = 2) { editbox -a :=) } şeklinde yaptığımda :=) bunu yazıyor fakat editboxta benim daha önce yazdığım metini silip bunu yazıyor ben istiyorumki editboxa Selam nasılsın yazıyım arkasındanda toolbardaki smileye tıkladığımda sonuna :=) bunu yazsın hatta işlemi tekrar ettiğim zamanda "selam nasılsın :=) :=) :=) :=) :=)" bu şekilde arkasına bir boşluk bırakarak tıkladığım kadar yapsın bu işlemi.Mümkünmüdür acaba.

Hatta bunu mode if ($did($dname,1).sel = 2) { msg $active :=) } şeklinde denedim bu kezde direk kanala mesaj gönderiyor.

2. Sorun

did -i $dname 1 1 bmpsize 24 24
did -i $dname 1 1 setimage icon large iconlar\x.ico

Toolbarda ikon boyutunu 40 40 olarak değiştirdiğimde ikonun çözünürlüğü bozuluyor bunu nasıl giderebilirim ikonun orjinal boyutu 64 64 olduğu için 40 40 yaptığımda düzgün görünmesi gerekmiyor mu?

3.Sorun

RTEC = real time edidbox changer(gerçek zamanlı editbox değiştiricisi) Bu şekilde bişey var galiba editboxa :=) yazdığımda onu direk smiley olarak gösterecek fakat bulamadım bütün linkler ölmüş elinde olan varsa paylaşabilir mi?

LauReLL 11 Nisan 2014 23:11
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Sorun 1 = if ($did($dname,1).sel = 2) { editbox -a :=) } yerine if ($did($dname,1).sel = 2) { editbox -a $1- :=) } bununla dene kaba taslak :)

Sorun 2 : icon konusunda 40 ta bozulur yatay ve dikey farklılıkalrdan 52x52 dene

sorun 3 : Direk Smile olarak göstermek = input kodlamasına girer bunuda aynı scriptten olan kişiler gorur mirc te oluğagından bahsedıyorsan. bazı eschat te web uzerınden girildiginde zaten senın : ) işeretlerın web demn gırenlere smıle seklınde gorunur 3 u tam anlamadım ama smıle ıstıyorsan soyle burda kodlamayı paylasayım.

ŞaH 11 Nisan 2014 23:55
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Valla hocam 1. yi zaten o şekilde denemiştim ama yinede olmuyor.

2.ye sonra bakarız.

3.de biliyorum zaten o şekilde olduğunu ama ondan bahsetmiyorum.Mesela imgmrc yüklü iken :) yazdığında metin satırında :) olarak görünüyor ama göçnderdiğimizde smiley şeklini alıyorya bu dediğim olay metin alanına :) yazdığında onu otomatik olarak smiley olarak gösteriyor msnde olduğu gibi yani smiley ikonuna tıkladığım zaman metin alanında :) yerine smiley görünüyor.

LauReLL 12 Nisan 2014 00:49
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
:D Hiçbişi anlamadım. Resimli oalrak göstersen yada maddeler seklınde anlatsan. sorun goremedım cunku nerde neyın nasıl gorunmesı gerektıgını anlamadım acıkcası.

ŞaH 12 Nisan 2014 01:06
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Hacım hangisini anlamadın 3. sorun sadece RTEC = real time edidbox changer diye bi addon var elinde olan varmı onu soruyorum gerisini boşver )

1. sorunuda anladın sanırım.

Feragat 13 Nisan 2014 02:55
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
ŞaH Nickli Üyeden Alıntı (Mesaj 1041416286)
Hacım hangisini anlamadın 3. sorun sadece RTEC = real time edidbox changer diye bi addon var elinde olan varmı onu soruyorum gerisini boşver )

1. sorunuda anladın sanırım.
1. sorun için şunu kullanabilirsin

Kod:
var %aa $iif($editbox($active,0), $regsubex($v1,/$/,$chr(32) $+(:=,$chr(41))), $+(:=,$chr(41))) | editbox -f %aa
Senin kullandığın koda entegre edip bir dene;
Kod:
if ($did($dname,1).sel = 2) { var %aa $iif($editbox($active,0), $regsubex($v1,/$/,$chr(32) $+(:=,$chr(41))), $+(:=,$chr(41))) | editbox -f %aa }
Ben bir dialog oluşturup denedim, yazının sonuna dediğin şekilde ekledi :=) :=) :=) :=) gibi..

ŞaH 13 Nisan 2014 21:45
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Eyvallah hocam ya süpersin eline koduna sağlık sonunda oldu.Sadece sonundaki editbox -f değiştirdim çünkü hangi odada olursan ol statüs ekranına dönüyordu -a yaptım düzeldi şimdi gayet sağlıklı çalışıyor.

ZaLiM1979 10 Nisan 2019 18:42
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:
/*
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

ZaLiM1979 17 Nisan 2019 00:37
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
yapabilecek coder arkadas yokmu? :)

ZaLiM1979 05 Kasım 2020 00:50
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
vay be 1bucuk sene oldu yardim bulamadim :)

ZaLiM1979 14 Ocak 2024 16:23
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Süper bi Kod keske baglandigimiz tüm serverlarda calissa.. ama mahlesef baglandigimiz ilk serverda calisiyor sadece.. ayni mirc'den 2.nci bir servere baglandigimizda calismiyor. :-(

ZaLiM1979 04 Kasım 2024 08:29
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Arkadaslar yardimci olabilecek kimse kalmadi mi gercekten?
Cok begendigim bi kod, ama mahlesef kendim cok kez denedim lakin basaramadim.
istedigim kod'un baglandigimiz tüm serverlerde calismasi.


Kod'u yorum #[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'e yapistirmistim. umarim yardimci olabilecek üstadlar vardir. :-)

OperServ 04 Kasım 2024 20:53
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042052749)
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:
/*
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:
/*
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.

ZaLiM1979 04 Kasım 2024 23:17
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yanlisim yoksa senin yazdigin kodun alt kisminda eksiklik var?

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:14 -->-> Daha önceki mesaj 23:12 --

sen sadece bu kodu mu ekledin?
Kod:
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  }


--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:17 -->-> Daha önceki mesaj 23:14 --

bu kismi mi ekledin sadece?

Kod:
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  }

Feragat 05 Kasım 2024 09:22
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042942048)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yanlisim yoksa senin yazdigin kodun alt kisminda eksiklik var?

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:14 -->-> Daha önceki mesaj 23:12 --

sen sadece bu kodu mu ekledin?
Kod:
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  }


--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:17 -->-> Daha önceki mesaj 23:14 --

bu kismi mi ekledin sadece?

Kod:
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  }
Kopyalarken eksik kopyalamış olabilir.
Sen sadece connect kısmını ekleyip deneyebilirsin.

ZaLiM1979 05 Kasım 2024 23:36
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Eyvallah @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:36 -->-> Daha önceki mesaj 23:27 --

Cok cok sagolun @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] calisiyor.
ALLAH razi olsun sizden.

ZaLiM1979 06 Kasım 2024 13:59
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
evet.. sadece bu kismi ekledim..


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
}



gece yorgun denerken eksik denemisim.. :gulucuk:
simdi bagli oldugum server'de calisiyor..
AMA 2.nci server'e baglandikdan sonra tek baglandigim 2.nci server'de calisiyor..
benim istedigim 2 server'de de calissin.. :gulucuk:

kisacasi baglandigim tüm server'lerde calissin yani.

umarim yardim bulabilirim.. tskler. :gulucuk:

OperServ 06 Kasım 2024 14:56
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042942613)
evet.. sadece bu kismi ekledim..


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
}



gece yorgun denerken eksik denemisim.. :gulucuk:
simdi bagli oldugum server'de calisiyor..
AMA 2.nci server'e baglandikdan sonra tek baglandigim 2.nci server'de calisiyor..
benim istedigim 2 server'de de calissin.. :gulucuk:

kisacasi baglandigim tüm server'lerde calissin yani.

umarim yardim bulabilirim.. tskler. :gulucuk:
Kodun içinde karakter bozulmaları var (Deðiþtir gibi). Kodun bazı kısımlarında Türkçe karakterlerin bozulması işlevselliği etkileyebilir. Eğer dil destekli bir mIRC kullanıyorsanız veya karakter sorunları çözülmüşse kod doğru çalışacaktır.

ZaLiM1979 06 Kasım 2024 15:46
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Kod'un son hali böyle..
Kod:
/*
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
}

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 315 307
  option dbu
  button "&Ekle", 1, 252 2 37 12
  button "Degistir", 2, 252 19 37 12
  button "&Sil", 3, 252 36 37 12
  check "&Cümle Stili Uygula", 4, 252 267 52 10
  button "&Iptal", 6, 252 233 37 12, cancel
  button "&Tamam", 5, 252 250 37 12, ok
  text "&Degistirilecek String:", 8, 3 5 49 7, right
  edit "", 9, 54 2 193 10, autohs
  text "&Yazilacak 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 Degistirilecek $chr(9) +c 1 356 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) == Degistir {
        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 Degistir
        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


--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 15:36 -->-> Daha önceki mesaj 15:35 --

Türkce harfleri degiseyim mi yani?
mirc son sürüm yan 7.77 kulaniyorum.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 15:46 -->-> Daha önceki mesaj 15:36 --

yanlisim yoksa.. bu kisimda karakter hatasi var..
on *:load: { set %rtecsentence 1 echo $color(info text) -at * RTEC yüklendi, ayarlarýný yapmak için /rtec veya /stil komutunu kullanabilirsiniz. }

ve bu kisimda..

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)) }

Dogru mu?

OperServ 06 Kasım 2024 16:32
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Kod:
/*
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

ZaLiM1979 07 Kasım 2024 11:49
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
OperServ Nickli Üyeden Alıntı (Mesaj 1042942014)
Kod:
/*
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.
Alıntı:
OperServ Nickli Üyeden Alıntı (Mesaj 1042942690)
Kod:
/*
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. :-)

OperServ 07 Kasım 2024 14:26
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042942998)
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. :-)


Kod:
on *:CONNECT: {
  if !$hget(RTEC) { hmake RTEC 50 }
  if !$hget(RTECOPT) { hmake RTECOPT 2 }
  .hload -b RTEC $qt($+($scriptdir,rtec.bin))
  .timerRTEC $+ $cid -m 0 80 /RTEC -t
}

Yukarısına bunu eklermisin
Kod:
alias RTECControl {
  if $server {
    .timerRTEC $+ $cid -m 0 80 /RTEC -t
  }
}

ZaLiM1979 07 Kasım 2024 14:55
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
OperServ Nickli Üyeden Alıntı (Mesaj 1042943084)
Kod:
on *:CONNECT: {
  if !$hget(RTEC) { hmake RTEC 50 }
  if !$hget(RTECOPT) { hmake RTECOPT 2 }
  .hload -b RTEC $qt($+($scriptdir,rtec.bin))
  .timerRTEC $+ $cid -m 0 80 /RTEC -t
}
Yukarısına bunu eklermisin
Kod:
alias RTECControl {
  if $server {
    .timerRTEC $+ $cid -m 0 80 /RTEC -t
  }
}

dedigin gibi böyle yaptim..
Kod:
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 RTECControl {
  if $server {
    .timerRTEC $+ $cid -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
}
ama yine ayni sorun vor.. baglandigim 2nci serverde calisiyor ama bagli oldugum 1nci serverde duruyor calismiyor.

Feragat 08 Kasım 2024 09:25
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Bende de mirc son sürüm var.
Öncesinde çözen olmazsa bilgisayar başına geçince bir bakayım.

Vision 08 Kasım 2024 13:58
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Kod:
  if $devent == sclick {
    if $did == 1 {
Kod:
  if $devent == sclick {
  scid $activecid
    if $did == 1 {
sclick kısımının altına bir kod ekledim onu dener misin.

ZaLiM1979 08 Kasım 2024 14:23
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] denedim olmuyor

Vision 08 Kasım 2024 14:46
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042943372)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] denedim olmuyor
Kodun oynanmamış halini atar mısın.

ZaLiM1979 08 Kasım 2024 15:14
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
Vision Nickli Üyeden Alıntı (Mesaj 1042943379)
Kodun oynanmamış halini atar mısın.

Yanlis hatirlamiyorsam 1 sayfada var veya 2.nci.. bendeki suan dialog penceresini büyütmüs hali var.

OperServ 09 Kasım 2024 15:31
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Kod:
set %serverlist irc.dal.net irc.ircforumlari.net


on *:START: {
  connect_all_servers
}


on *:CONNECT: {
  if !$hget(RTEC) { hmake RTEC 50 }
  if !$hget(RTECOPT) { hmake RTECOPT 2 }
  .hload -b RTEC $qt($+($scriptdir,rtec.bin))

 
  if (!$timer(RTEC_ $+ $cid)) {
    .timerRTEC_ $+ $cid -m 0 80 RTEC $cid
  }
}


alias connect_all_servers {
  var %i = 1
  while ($gettok(%serverlist, %i, 32) != $null) {
    var %server = $gettok(%serverlist, %i, 32)
    server -m %server
    inc %i
  }
}


alias RTEC {
  var %cid = $iif($1 isnum, $1, $cid)
  scon -a if ($cid == %cid) {
    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
        }
      }
    }
  }
}

alias stil { rtec $1- }


alias GlobalRTECControl {
  var %i = 1
  while ($scon(%i)) {
    scon %i
    if ($server) && (!$timer(RTEC_ $+ $cid)) {
      .timerRTEC_ $+ $cid -m 0 80 /RTEC $cid
    }
    inc %i
  }
}
Sunucu Listesi Tanımlama : set %serverlist ile sunucu listesini sağlar. Örneğin, irc.dal.net, irc.ircforumlari.net, gibi sunucu adreslerini bu listeye alabilirsiniz.
Otomatik Bağlanma (connect_all_servers) : mIRC başlatıldığında connect_all_serversalias'i çalışır ve listedeki her sunucuya dikkat edilir.
Bağlantı ID (CID) Bazlı RTEC İşlemi : Her bağlantı için benzersiz bir cidkullanılır ve sunucuya özel bir zamanlayıcı başlatılır ( timerRTEC_<cid>).
Her Sunucu İçin Bağımsız İşlem : GlobalRTECControltakma ad, ona bağlı sunucu için bağımsız olarak bağımsız işlem yapılmasını sağlar.
Dene bakalım olacakmı

ZaLiM1979 09 Kasım 2024 15:48
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
OperServ Nickli Üyeden Alıntı (Mesaj 1042943782)
Kod:
set %serverlist irc.dal.net irc.ircforumlari.net


on *:START: {
  connect_all_servers
}


on *:CONNECT: {
  if !$hget(RTEC) { hmake RTEC 50 }
  if !$hget(RTECOPT) { hmake RTECOPT 2 }
  .hload -b RTEC $qt($+($scriptdir,rtec.bin))

 
  if (!$timer(RTEC_ $+ $cid)) {
    .timerRTEC_ $+ $cid -m 0 80 RTEC $cid
  }
}


alias connect_all_servers {
  var %i = 1
  while ($gettok(%serverlist, %i, 32) != $null) {
    var %server = $gettok(%serverlist, %i, 32)
    server -m %server
    inc %i
  }
}


alias RTEC {
  var %cid = $iif($1 isnum, $1, $cid)
  scon -a if ($cid == %cid) {
    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
        }
      }
    }
  }
}

alias stil { rtec $1- }


alias GlobalRTECControl {
  var %i = 1
  while ($scon(%i)) {
    scon %i
    if ($server) && (!$timer(RTEC_ $+ $cid)) {
      .timerRTEC_ $+ $cid -m 0 80 /RTEC $cid
    }
    inc %i
  }
}
Sunucu Listesi Tanımlama : set %serverlist ile sunucu listesini sağlar. Örneğin, irc.dal.net, irc.ircforumlari.net, gibi sunucu adreslerini bu listeye alabilirsiniz.
Otomatik Bağlanma (connect_all_servers) : mIRC başlatıldığında connect_all_serversalias'i çalışır ve listedeki her sunucuya dikkat edilir.
Bağlantı ID (CID) Bazlı RTEC İşlemi : Her bağlantı için benzersiz bir cidkullanılır ve sunucuya özel bir zamanlayıcı başlatılır ( timerRTEC_<cid>).
Her Sunucu İçin Bağımsız İşlem : GlobalRTECControltakma ad, ona bağlı sunucu için bağımsız olarak bağımsız işlem yapılmasını sağlar.
Dene bakalım olacakmı

cok sagol ama ben fazla servere birden baglanmiyorum.. hep bir serverdeyim arasira baska servere'de baglanmak istedigim icin öyle istedim. bu otomatik birkac servere birden baglanmak sevmedigim birsey. :)

OperServ 09 Kasım 2024 16:56
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042943783)
cok sagol ama ben fazla servere birden baglanmiyorum.. hep bir serverdeyim arasira baska servere'de baglanmak istedigim icin öyle istedim. bu otomatik birkac servere birden baglanmak sevmedigim birsey. :)
2. servera girince çalışmadığını söyledin? Bizde ona göre kodladık.

ZaLiM1979 09 Kasım 2024 17:36
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
OperServ Nickli Üyeden Alıntı (Mesaj 1042943792)
2. servera girince çalışmadığını söyledin? Bizde ona göre kodladık.

evet genel olarak 1 serverde chat yapiyorum. arasira 2nci bitaneye baglaniyorum. 2nciye baglandikdan sonra sadece 1 taneden calisiyor. benim istedigim baglandigim tüm serverlerede calissin. ama serverlere otomatik baglanmak istemiyorum canim istedigi zaman baglanmak istiyorum. umarim anlatabildim?

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 17:36 -->-> Daha önceki mesaj 17:30 --

Yeniden belirteyim serverlere otomatik baglanmak istemiyorum umarim simdi tam anlasildi. tsk ederim.

ZaLiM1979 11 Kasım 2024 15:23
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
OperServ Nickli Üyeden Alıntı (Mesaj 1042943782)
Kod:
set %serverlist irc.dal.net irc.ircforumlari.net


on *:START: {
  connect_all_servers
}


on *:CONNECT: {
  if !$hget(RTEC) { hmake RTEC 50 }
  if !$hget(RTECOPT) { hmake RTECOPT 2 }
  .hload -b RTEC $qt($+($scriptdir,rtec.bin))

 
  if (!$timer(RTEC_ $+ $cid)) {
    .timerRTEC_ $+ $cid -m 0 80 RTEC $cid
  }
}


alias connect_all_servers {
  var %i = 1
  while ($gettok(%serverlist, %i, 32) != $null) {
    var %server = $gettok(%serverlist, %i, 32)
    server -m %server
    inc %i
  }
}


alias RTEC {
  var %cid = $iif($1 isnum, $1, $cid)
  scon -a if ($cid == %cid) {
    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
        }
      }
    }
  }
}

alias stil { rtec $1- }


alias GlobalRTECControl {
  var %i = 1
  while ($scon(%i)) {
    scon %i
    if ($server) && (!$timer(RTEC_ $+ $cid)) {
      .timerRTEC_ $+ $cid -m 0 80 /RTEC $cid
    }
    inc %i
  }
}
Sunucu Listesi Tanımlama : set %serverlist ile sunucu listesini sağlar. Örneğin, irc.dal.net, irc.ircforumlari.net, gibi sunucu adreslerini bu listeye alabilirsiniz.
Otomatik Bağlanma (connect_all_servers) : mIRC başlatıldığında connect_all_serversalias'i çalışır ve listedeki her sunucuya dikkat edilir.
Bağlantı ID (CID) Bazlı RTEC İşlemi : Her bağlantı için benzersiz bir cidkullanılır ve sunucuya özel bir zamanlayıcı başlatılır ( timerRTEC_<cid>).
Her Sunucu İçin Bağımsız İşlem : GlobalRTECControltakma ad, ona bağlı sunucu için bağımsız olarak bağımsız işlem yapılmasını sağlar.
Dene bakalım olacakmı

bunuda denedim simdi birtek 2.nci serveri degistim..
bu hatayi verdi..


* /if: invalid format (line 33, rtecv103NEU.mrc)

Gurkan 12 Kasım 2024 10:53
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042944364)
bunuda denedim simdi birtek 2.nci serveri degistim..
bu hatayi verdi..


* /if: invalid format (line 33, rtecv103NEU.mrc)
33. satırdaki kodu şu şekilde değiştirebilir misin?

Kod:
if ($regex($window($active).type, /^(channel|query|chat)$/)) && (!$regex(%str, /^\/$/)) {

ZaLiM1979 12 Kasım 2024 11:47
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
Gurkan Nickli Üyeden Alıntı (Mesaj 1042944596)
33. satırdaki kodu şu şekilde değiştirebilir misin?

Kod:
if ($regex($window($active).type, /^(channel|query|chat)$/)) && (!$regex(%str, /^\/$/)) {

satir 33 bu:
scon -a if ($cid == %cid) {

Gurkan 12 Kasım 2024 14:53
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042944607)
satir 33 bu:
scon -a if ($cid == %cid) {
Düzenlenmiş halini gönderiyorum;


Kod:
set %serverlist irc.dal.net irc.ircforumlari.net

on *:START: {
  connect_all_servers
}

on *:CONNECT: {
  if (!$hget(RTEC)) { hmake RTEC 50 }
  if (!$hget(RTECOPT)) { hmake RTECOPT 2 }
  .hload -b RTEC $qt($+($scriptdir,rtec.bin))

  if (!$timer(RTEC_ $+ $cid)) {
    .timerRTEC_ $+ $cid -m 0 80 RTEC $cid
  }
}

alias connect_all_servers {
  var %i = 1
  while ($gettok(%serverlist, %i, 32) != $null) {
    var %server = $gettok(%serverlist, %i, 32)
    server -m %server
    inc %i
  }
}

alias RTEC {
  var %cid = $iif($1 isnum, $1, $cid)
  scon -a {
    if ($cid == %cid) {
      if ($regex($window($active).type, /^(channel|query|chat)$/)) && (!$regex($editbox($active), /^\/$/)) {
        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
            }
            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
          }
        }
      }
    }
  }
}

alias stil { RTEC $1- }

alias GlobalRTECControl {
  var %i = 1
  while ($scon(%i)) {
    scon %i
    if ($server) && (!$timer(RTEC_ $+ $cid)) {
      .timerRTEC_ $+ $cid -m 0 80 RTEC $cid
    }
    inc %i
  }
}

ZaLiM1979 12 Kasım 2024 15:29
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
Gurkan Nickli Üyeden Alıntı (Mesaj 1042944655)
Düzenlenmiş halini gönderiyorum;


Kod:
set %serverlist irc.dal.net irc.ircforumlari.net

on *:START: {
  connect_all_servers
}

on *:CONNECT: {
  if (!$hget(RTEC)) { hmake RTEC 50 }
  if (!$hget(RTECOPT)) { hmake RTECOPT 2 }
  .hload -b RTEC $qt($+($scriptdir,rtec.bin))

  if (!$timer(RTEC_ $+ $cid)) {
    .timerRTEC_ $+ $cid -m 0 80 RTEC $cid
  }
}

alias connect_all_servers {
  var %i = 1
  while ($gettok(%serverlist, %i, 32) != $null) {
    var %server = $gettok(%serverlist, %i, 32)
    server -m %server
    inc %i
  }
}

alias RTEC {
  var %cid = $iif($1 isnum, $1, $cid)
  scon -a {
    if ($cid == %cid) {
      if ($regex($window($active).type, /^(channel|query|chat)$/)) && (!$regex($editbox($active), /^\/$/)) {
        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
            }
            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
          }
        }
      }
    }
  }
}

alias stil { RTEC $1- }

alias GlobalRTECControl {
  var %i = 1
  while ($scon(%i)) {
    scon %i
    if ($server) && (!$timer(RTEC_ $+ $cid)) {
      .timerRTEC_ $+ $cid -m 0 80 RTEC $cid
    }
    inc %i
  }
}
* /scon: insufficient parameters (line 28, rtecv103NEU.mrc)

ZaLiM1979 12 Kasım 2024 17:50
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] özel mesajini cevap verdim, ama geldimi bilmiyorum. :-)

Gurkan 13 Kasım 2024 08:48
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042944700)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] özel mesajini cevap verdim, ama geldimi bilmiyorum. :-)
Buradan bir sonuç çıkmayacak ama yenilgiyi kabul etmiyorum :) Aliance'ın ilk yaptığı çalışan kod üzerinde bir kaç modifiye yaptım. Dene bakalım:melek:
Kod:
/*
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 *:connect: {
  if !$hget(RTEC) { hmake RTEC 50 }
  if !$hget(RTECOPT) { hmake RTECOPT 2 }
  .hload -b RTEC $qt($+($scriptdir,rtec.bin))
  if (!$timer(RTEC_ $+ $cid)) {
    .timerRTEC_ $+ $cid -m 0 80 RTEC $cid
  }
}

alias stil { rtec $1- }

alias RTEC {
  var %cid = $iif($1 isnum, $1, $cid)
  scon -a if ($cid == %cid) {
    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 }
    }
  }
}

; Tüm sunucu bağlantılarını kontrol eden alias
alias GlobalRTECControl {
  var %i = 1
  while ($scon(%i)) {
    scon %i
    if ($server) && (!$timer(RTEC_ $+ $cid)) {
      .timerRTEC_ $+ $cid -m 0 80 RTEC $cid
    }
    inc %i
  }
}

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
    }
  }
}

alias RTECDLG_CB { }

;EOF

ZaLiM1979 13 Kasım 2024 09:27
Cevap: Mırc script ve toolbar hakkında bir kaç sorun.
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yükledikden sonra dialogu acmak icin /stil yazdim bu hatayi verdi


* /if: invalid format (line 29, rtecv103NEU.mrc)


satir 29: scon -a if ($cid == %cid) {


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 03:55.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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