IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Çözüldü Mırc script ve toolbar hakkında bir kaç sorun.

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

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?

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.

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.

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ı.

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.

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

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.

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

Cevap: Mırc script ve toolbar hakkında bir kaç sorun.

yapabilecek coder arkadas yokmu? :)

Cevap: Mırc script ve toolbar hakkında bir kaç sorun.

vay be 1bucuk sene oldu yardim bulamadim :)