[Forbidden]

Merhaba arkadaşlar kodun amacı belirli bir string karakter uzunlugunu verir.

Örnekler;

Komut

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

//echo : $uzunluk(selam arkadaşlar)

Sonuç

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

: 16

Komut

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

//echo : $uzunluk(selam arkadaşlar hepinize)

Sonuç

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

: 25

Komut

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

//echo : $uzunluk(selam arkadaşlar hepinize iyi forumlar)

Sonuç

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

: 38

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias uzunluk {
  if !$1 { return }
  var %m, %n, %z
  :x
  if (%m iswm $1) return %z
  else {
    var %m %m $+ ?
    inc %z
    goto x
  }
}

[Toprak]

$len identifieri bunun için olabilir mi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

//echo -a $len(selam naber)

[Feragat]

Toprak Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

$len identifieri bunun için olabilir mi Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. //echo -a $len(selam naber)

!zline Toprak S.a

[ZaLiM1979]

SeLamLar..


ben birkac yil önce burda bir script görmüstüm..
editbox'a yazdigimiz karakterlerin toplamini (sayi olarak) gözteriyordu bize.
arama yaptim ama bulamadim..

yardimci olabilecek varmi?

tskler..

[manikdepresif]

aLT + Q tuslari ile ikinci editbox aktif oluyor.
komutu ise

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 /editbox -q1

-
ikinci editbox'un acik mi yoksa kapali mi oldugunu bilmek icin,

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

/echo $editbox($active,1))

komutu kullaniliyor.
-
fakat editbox'da yazi yazarken bir event yok.Her karakter degistiginda ikinci editbox'daki karakter degisecek oraya

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

$len($editbox($active))

yazdirilacak.1 tane timer acilacak sadece aktif ettigin pencere icin milisaniye degerinde,

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 /timerkar__ -m 0 200 alias

gibi.
-

Fakat kasma yapar mi bilmem. Benzer kodlari ikinciye yazmayi sevmiyorum. ilgisini ceken olursa buyursun yeni baslayanlar icin guzel calisma olur.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:47 -->-> Daha önceki mesaj 18:54 --

bi deneyeyim bakalim belki bi seyler yazabilirim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:40 -->-> Daha önceki mesaj 19:47 --

Pek deneme firsatim olmadi kod uzerinde .

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:active:*:{
  while ($window($active).type == channel) {  
    while ($editbox($active,1) == $null) { editbox -q1 } .
    .timerlen_kontrol -h 0 300 /_len_kontrol
  } .
}
alias _len_kontrol { 
  while $window($active).type == channel {
  editbox -o $active  Karakter Sayisi: $len($editbox($active)) } .
}

[manikdepresif]

hatalari duzelttim, sadece #kanal pencerelerinde calisiyor.
eger kanal penceresi degilse, timeri aktif etmiyor.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:active:*:{
  while ($window($active).type == channel) {  
    while ($editbox($active,1) == $null) { editbox -q1 $active } .
    .timerlen_kontrol -h 0 300 /_len_kontrol $active
  } .
  while ($window($active).type != channel) {
    .timerlen_kontrol off
  } .
}
alias _len_kontrol { 
  while $window($1).type == channel {
  editbox -oq1 $1 Karakter Sayisi: $len($editbox($1)) } .
}

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:45 -->-> Daha önceki mesaj 13:44 --

bu arada while tek kez dondurmek icin while kapanis parantezinin sonuna herhangi bir karakter koymaniz yeterlidir.

[CoCoRiCo]

manikdepresif Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

hatalari duzelttim, sadece #kanal pencerelerinde calisiyor. eger kanal penceresi degilse, timeri aktif etmiyor. Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:active:*:{ while ($window($active).type == channel) { while ($editbox($active,1) == $null) { editbox -q1 $active } . .timerlen_kontrol -h 0 300 /_len_kontrol $active } . while ($window($active).type != channel) { .timerlen_kontrol off } . } alias _len_kontrol { while $window($1).type == channel { editbox -oq1 $1 Karakter Sayisi: $len($editbox($1)) } . } --IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:45 -->-> Daha önceki mesaj 13:44 -- bu arada while tek kez dondurmek icin while kapanis parantezinin sonuna herhangi bir karakter koymaniz yeterlidir.

Niyetiniz karter saydırmaksa $len() boşluklar sonrasında görünen bir karakter varsa sayar, renk kodları vb. gibi control karakterlerini de saymaz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:start: .timer_len -mi 0 30  _len
alias _len  titlebar : $regex( $editbox( $window($active)) ,/(.)/ig) :

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

[manikdepresif]

titlebar'a da yapilabilir boylece hem kanal hem ozellerde de her pencerede calisir. Kullanicinin begenisine kalmis.

[ZaLiM1979]

Sagolun..
ben yukardaki bu kodu aldim..

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 on *:active:*:{   while ($window($active).type == channel) {       while ($editbox($active,1) == $null) { editbox -q1 } .     .timerlen_kontrol -h 0 300 /_len_kontrol   } . } alias _len_kontrol {    while $window($active).type == channel {   editbox -o $active  Karakter Sayisi: $len($editbox($active)) } . }

özellerde göztermiyor ama kanalda 2.nci editbox'da gözteriyor ve calisiyor istedigim gibi. Tskler..