Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  vaybe sohbet

>
+
 Kayıt ol
Etiketlenen Kullanıcılar

11Beğeni(ler)

Yeni Konu aç Cevapla
Sayfa 2 Toplam 5 Sayfadan 1 2 345
 
LinkBack Seçenekler Arama Stil
Alt 14 Ocak 2024, 16:23   #11
Ç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.



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

__________________


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

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan
Alt 04 Kasım 2024, 08:29   #12
Ç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.



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

__________________


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

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

Alt 04 Kasım 2024, 23:17   #14
Ç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.



[Ü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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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  }


__________________


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

Alt 05 Kasım 2024, 09:22   #15
Ç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.
[Ü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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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.

__________________
The Ghost of Christmas Past...

mircscripting.net
 
Alıntı ile Cevapla

Alt 05 Kasım 2024, 23:36   #16
Ç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.



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.

__________________


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

Alt 06 Kasım 2024, 13:59   #17
Ç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.



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..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


kisacasi baglandigim tüm server'lerde calissin yani.

umarim yardim bulabilirim.. tskler.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________


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

Alt 06 Kasım 2024, 14:56   #18
Ç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.
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..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


kisacasi baglandigim tüm server'lerde calissin yani.

umarim yardim bulabilirim.. tskler.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.

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

Alt 06 Kasım 2024, 15:46   #19
Ç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.



Kod'un son hali böyle..
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 
}

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?

__________________


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

Alt 06 Kasım 2024, 16:32   #20
Ç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.



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

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

Cevapla
Sayfa 2 Toplam 5 Sayfadan 1 2 345

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

« önceki Konu | sonraki Konu »

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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
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




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
ferizli haber kaynarca haber sohbet sohbet teması takipçi satın al tiktok takipçi satın al instagram beğeni satın al takipçi satın al takipçi satın al Buy Instagram Followers pubg mobile uc
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
Kuşadası Web Site Tasarım & Teknik Destek - KuşadasıNET