Kodlarda calisan veya calismayan line gormek - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

manikdepresif · 26 Ocak 2023, 23:08

Remotenizde ekli bir kodu;
uzun hale getirir, @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode penceresinde gosterir. siz onu tetiklediginiz anda(calistirmaya basladiginiz anda),
size line olarak calisan lines yesil calismayanlar kirmizi olarak @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode penceresinde gosterir.
uzun kodlarda faydali olacagini dusunuyorum.
Kullanim:
/testmode remotedekidosyaadi.uzantisi
--
Calisan ya da calismayan lines lari gordukten sonra, @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode penceresini kapatip varsa edit yapabilirsiniz.
Not: Scriptinizde on load ya da on unload korumasi varsa kod calismayacaktir.

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


alias testmode {
  unset %per_x_
  if (!$1) { echo $color(info) Kullanim: /testmode remotedekidosyaismi | return }
  if ($1 isnum) { echo $color(info) Hata: Dosya ismi rakam olamaz. Kullanim: /testmode remotedekidosyaismi | return   }
  if ($script($1) == $null) { echo $color(info) Hata: Remotede $1 isimli bir dosya bulunamadi.Eger dosya uzantisi varsa yazmayi unutmayiniz.  | return }
  if ($script($1)) { 
    set %test_mode_file $script($1)
    if (*.ini iswm $nopath($v1)) {
      initotext $+($gettok($1,-2,46),_yedek,.txt) $script($1)
      form 124 | form2 123 | form3 125
    }
    else { 
      set %long_test_text_file $+($gettok($1,-2,46),_yedek,.txt) 
      .copy $script($1) %long_test_text_file 
      form 124 | form2 123 | form3 125
    }  
  }
  _convert_code testmodefile.txt
  .unload -rs %test_mode_file
  .load -rs testmodefile.txt
  clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE
  window -beln @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE
  loadbuf $lines(%long_text_norm3) -c4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE %long_text_norm3
  echo -at @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE ready for trigger 0,4 0 |0,3 1
  window -b @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode
}
alias _show_line { var %_str_n $$1 | cline 3 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE %_str_n }

alias -l form {
  set %long_text_norm long_text_one.txt
  write -c %long_text_norm
  var %j = 1 , %e = 1 , %n = $$1
  while %j <= $lines(%long_test_text_file) {
    var %k = $read(%long_test_text_file,n,%j)
    tokenize 32 %k
    if (;* iswm %k) { write %long_text_norm %k | goto yorum } 
    while (%e <= $0) {
      if [ $ $+ [ %e ] ] != $chr(%n) { var %u %u [ $ $+ [ %e ] ] | goto n }
      write %long_text_norm %u 
      unset %u
      :n
      inc %e
    }
    write %long_text_norm %u | var %u | var %e 1
    :yorum
    inc %j
  }
}
alias -l form2 {
  set %long_text_norm2 long_text_two.txt
  write -c %long_text_norm2
  var %j = 1
  while %j <= $lines(%long_text_norm) {
    var %n = 1 , %u , %t ,  %c = $read(%long_text_norm,n,%j)
    if (;* iswm %c) { write %long_text_norm2 %c | goto yorum } 
    if ($+(*,$chr(123),$chr(32),*) iswm %c) {
      while (%n <= $mid(%c,1,0)) {
        if $+(*,$chr(123),$chr(32)*) !iswm $mid(%c,1,%n) { var %u $mid(%c,1,%n) }
        if $+(*,$chr(123),$chr(32)*) iswm $mid(%c,1,%n) {
          write %long_text_norm2 $mid(%u,$+(%t,-))
          var %t %n
          var %u
        }
        inc %n
      }
    }
    if $mid(%c,1,0) == $len(%u) { write %long_text_norm2 $mid(%u,$+(%t,-)) }
    if ($+(*,$chr(123),$chr(32),*) !iswm %c) { write %long_text_norm2 %c }
    if %c == $chr(123) { write %long_text_norm2 %c }
    :yorum   
    inc %j
  }
}

alias -l form3 {
  set %long_text_norm3 long_text_three.txt
  write -c %long_text_norm3
  var %j = 1 , %e = 1 , %n = $$1
  while %j <= $lines(%long_text_norm2) {
    var %c = $read(%long_text_norm2,n,%j)
    if (;* iswm %c) { write %long_text_norm3 %c | goto yorum } 
    if $+(*,$chr(125)) iswm %c {
      if ($pos(%c,$+($chr(32),$chr(125)),1)) {
        var %z = $v1
        write %long_text_norm3 $mid(%c,1,%z)
        dokona $count($right(%c,$calc($len(%c) - %z)),$chr(125))
      }
    }
    else { write %long_text_norm3 %c }
    if (%c == $chr(125)) { write %long_text_norm3 %c }
    :yorum
    inc %j
  }
}
alias -l dokona { 
  var %p = 1
  while (%p <= $$1) {
    write %long_text_norm3 $chr(125)
    inc %p
  }
}
alias -l _convert_code {
  write -c $$1
  var %j = 1, %y = $lines(%long_text_norm3)
  while (%j <= %y) {
    var %mmr = $read(%long_text_norm3,n,%j) 
    ;if %mmr == $chr(125) { write $1 $chr(125) }
    write $1 %mmr $!_show_line( $+ $!scriptline $+ )
    inc %j
  }
}
alias -l initotext {
  write -c $1
  var %j = 1
  while (%j <= $ini($$2,1,0)) {
    write $1 $readini($2,n,$ini($2,1),$ini($2,1,%j)) 
    inc %j  
  }
  set %long_test_text_file $1
}
on *:close:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE:{
  .unload -rs testmodefile.txt
  .load -rs %test_mode_file
  .remove -b %long_test_text_file
  .remove %long_test_text_file
  .remove %long_text_norm
  .remove %long_text_norm2
  .remove %long_text_norm3
  .remove testmodefile.txt
  unset %long_text_norm* %test_mode_file %long_test_text_file
}

manikdepresif · 29 Ocak 2023, 18:33

kodda sıkıntı varmis, bende calisan bi baskasinda calismadi. uzerinde deneme yapicam bilginize.

SNOOPY · 30 Ocak 2023, 00:06

Versiyon hatası olabilir bende test etmiştim.

manikdepresif · 08 Ekim 2023, 01:04

Arkadaslar herkese merhabalar,
Gecen gun aklima geldi neden $scriptline 'i kodlarin sonuna koyuyorum ki onune koyarim dedim ve kodu degistirdim ve calisir hale getirdim ve su an birkac kod uzerinde denedim aktif olarak calisiyor.
-
Kodun islevi inanilmaz buyuk olcude kodlari yazmaniza anlamaniza hata bulmaniza fayda saglayacagina inaniyorum.
bilhassa uzun kodlarda mesela 400 600 vs. satirli uzun kodlarda hata bulurken size kolaylik saglayacak.
-
Kodun islevi su sekilde;
diyelim ki elimizde 50 satirlik bi kod var.
o kodu /testmode kod.ini ile testmode penceresinde aciyoruz.
daha sonra kodu calistirmak icin tetikliyoruz,alias ise /alias, event ise event seklinde.
tetikledigimiz anda @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode penceresinde normalde komple kırmızi gozuken satirlar yesile dönüyor ve bize hangi satirlarin cslistigini gosteriyor sadece onunla da kalmiyor tek tek hangi satirlarin calistiginida yaziyor hem o pencerede hem de txt belgesinde, umarim kullanip faydalanirsiniz,
-
eksiklerim icin yazin tekrardan bakarsam duzeltirim, kodu paylasiyorum yeni hali ile pek denemedim ama calisacagina maximum duzeyde inaniyorum.
-----
kod yzr: jeun

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



alias testmode {
  write -c testmodecalisanlines.txt
  unset %per_x_
  if (!$1) { echo $color(info) Kullanim: /testmode remotedekidosyaismi.uzantisi | return }
  if ($1 isnum) { echo $color(info) Hata: Dosya ismi rakam olamaz. Kullanim: /testmode remotedekidosyaismi.uzantisi | return }
  if ($script($1-) == $null) { echo $color(info) Hata: Remotede $1- isimli bir dosya bulunamadi.Eger dosya uzantisi varsa yazmayi unutmayiniz. | return }
  if ($script($1-)) {
    set %test_mode_file $qt($script($1-))
    if (*.ini iswm $nopath($v1)) {
      initotext $qt($+($gettok($1-,-2,46),_yedek,.txt)) $+ ? $+ $qt($script($1-))
      form 124 | form2 123 | form3 125
    }
    else {
      set %long_test_text_file $+($gettok($1-,-2,46),_yedek,.txt)
      .copy $qt($script($1-)) %long_test_text_file
      form 124 | form2 123 | form3 125
    }
  }
  _convert_code testmodefile.txt
  .unload -rs %test_mode_file
  .load -rs testmodefile.txt
  clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE
  window -beln @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE
  var %f = 1
  while %f <= $lines(%long_text_norm3) {
    aline -c4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE %f $+ ) $read(%long_text_norm3,n,%f)
    inc %f

  }


  echo -at @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE Kod Tetiklenmek icin Hazir, Tetiklenmesini Saglayin. 0,4 0 |0,3 1
  echo -at @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE Unutmayin, Kodunuzu Sadece 1 kez test edebilirsiniz.Daha fazla test icin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode penceresini kapatin ve tekrar deneyin !
  window -b @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode
}
alias _show_line { var %_str_n = $$1 | cline 3 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE %_str_n | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE %_str_n 
  write testmodecalisanlines.txt %_str_n 
  .timerjeun 1 1 aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode Toplam Calisan Satir(Line) Sayisi: $calc($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode,0) - $lines(%long_text_norm3))
  .timercw 1 1 write testmodecalisanlines.txt  Toplam Calisan Satir(Line) Sayisi: $calc($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode,0) - $lines(%long_text_norm3))

  .timercx 1 1 run testmodecalisanlines.txt
}

alias -l form {
  set %long_text_norm long_text_one.txt
  write -c %long_text_norm
  var %j = 1 , %e = 1 , %n = $$1
  while %j <= $lines(%long_test_text_file) {
    var %k = $read(%long_test_text_file,n,%j)
    tokenize 32 %k
    if (;* iswm %k) { write %long_text_norm %k | goto yorum }
    while (%e <= $0) {
      if [ $ $+ [ %e ] ] != $chr(%n) { var %u %u [ $ $+ [ %e ] ] | goto n }
      write %long_text_norm %u
      unset %u
      :n
      inc %e
    }
    write %long_text_norm %u | var %u | var %e 1
    :yorum
    inc %j
  }
}
alias -l form2 {
  set %long_text_norm2 long_text_two.txt
  write -c %long_text_norm2
  var %j = 1
  while %j <= $lines(%long_text_norm) {
    var %n = 1 , %u , %t , %c = $read(%long_text_norm,n,%j)
    if (;* iswm %c) { write %long_text_norm2 %c | goto yorum }
    if ($+(*,$chr(123),$chr(32),*) iswm %c) {
      while (%n <= $mid(%c,1,0)) {
        if $+(*,$chr(123),$chr(32)*) !iswm $mid(%c,1,%n) { var %u $mid(%c,1,%n) }
        if $+(*,$chr(123),$chr(32)*) iswm $mid(%c,1,%n) {
          write %long_text_norm2 $mid(%u,$+(%t,-))
          var %t %n
          var %u
        }
        inc %n
      }
    }
    if $mid(%c,1,0) == $len(%u) { write %long_text_norm2 $mid(%u,$+(%t,-)) }
    if ($+(*,$chr(123),$chr(32),*) !iswm %c) { write %long_text_norm2 %c }
    if %c == $chr(123) { write %long_text_norm2 %c }
    :yorum
    inc %j
  }
}
alias -l form3 {
  set %long_text_norm3 long_text_three.txt
  write -c %long_text_norm3
  var %j = 1 , %e = 1 , %n = $$1
  while %j <= $lines(%long_text_norm2) {
    var %c = $read(%long_text_norm2,n,%j)
    if (;* iswm %c) { write %long_text_norm3 %c | goto yorum }
    if $+(*,$chr(125)) iswm %c {
      if ($pos(%c,$+($chr(32),$chr(125)),1)) {
        var %z = $v1
        write %long_text_norm3 $mid(%c,1,%z)
        dokona $count($right(%c,$calc($len(%c) - %z)),$chr(125))
      }
    }
    else { write %long_text_norm3 %c }
    if (%c == $chr(125)) { write %long_text_norm3 %c }
    :yorum
    inc %j
  }
}
alias -l dokona {
  var %p = 1
  while (%p <= $$1) {
    write %long_text_norm3 $chr(125)
    inc %p
  }
}
alias -l _convert_code {
  write -c $$1
  var %j = 1, %y = $lines(%long_text_norm3)
  while (%j <= %y) {
    var %mmr = $read(%long_text_norm3,n,%j)

    if if* iswm %mmr {
      write $1 %mmr $!_show_line( $+ $!scriptline $+ ) 
      goto jeun
    }

    if alias* iswm %mmr {
      write $1 %mmr $!_show_line( $+ $!scriptline $+ ) 
      goto jeun
    }
    else {
      write $1 $!_show_line( $+ $!scriptline $+ ) $chr(124) %mmr
    }
    :jeun
    inc %j
  }
}
alias -l initotext {

  tokenize 63 $$1-
  write -c $1
  var %j = 1
  while (%j <= $ini($2,1,0)) {
    write $1 $readini($2,n,$ini($2,1),$ini($2,1,%j))
    inc %j
  }
  set %long_test_text_file $1
}
on *:close:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE:{
  .unload -rs testmodefile.txt
  .load -rs %test_mode_file
  .remove -b %long_test_text_file
  .remove %long_test_text_file
  .remove %long_text_norm
  .remove %long_text_norm2
  .remove %long_text_norm3
  .remove testmodefile.txt
  unset %long_text_norm* %test_mode_file %long_test_text_file
}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Kodlarda Yardımm Lütfen ?	c00	mIRC Scripting Sorunları	3	04 Mayıs 2014 10:21
Remoteye Eklediğim Kodlarda Problem.	moonlarge3162	mIRC Scripting Sorunları	4	21 Mart 2009 22:15
* /.timerprot.repeat.#C...: line too long (line 5, flood.mrc)	MavipikSeL	mIRC Scripting Sorunları	14	12 Temmuz 2007 14:12
K-Line, g-line ban msjlarında IP ile ilgili..	strikeR	mIRC Scripting Sorunları	11	23 Nisan 2006 23:53

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.