IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol  Topluluk
4Beğeni(ler)
  • 3 Post By manikdepresif
  • 1 Post By manikdepresif

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Ocak 2023, 23:08   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Kodlarda calisan veya calismayan line gormek



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
}
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 29 Ocak 2023, 18:33   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kodlarda calisan veya calismayan line gormek



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

 
Alıntı ile Cevapla

Alt 30 Ocak 2023, 00:06   #3
Çevrimiçi
~ BLaCK_and_WHiTe ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kodlarda calisan veya calismayan line gormek



Versiyon hatası olabilir bende test etmiştim.

__________________
BLaCK_and_WHiTe is now known as SNOOPY
 
Alıntı ile Cevapla

Alt 08 Ekim 2023, 01:04   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kodlarda calisan veya calismayan line gormek



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

__________________
Bana sihirli kelimeyi söyle
Konu manikdepresif tarafından (08 Ekim 2023 Saat 01:11 ) değiştirilmiştir. Sebep: resim eksikti
 
Alıntı ile Cevapla

Cevapla

« ö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
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




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
yavru köpek sohbet tel sohbet instagram takipçi sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org