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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - kanala uzun yaziyi floodsuz gonderme???? (https://www.ircforumlari.net/mirc-scripting-sorunlari/1333-kanala-uzun-yaziyi-floodsuz-gonderme.html)

kanala uzun yaziyi floodsuz gonderme????

arkadaslar nasil bir baslik koyacagimida bilemedim simdi benim yapmak istedigim soyle bir olay mesela bir pencere acilacak ve ben oraya diyelimki 20 satirdan ibaret olan bir yazi kopyaliyacagim ve bu yazi kanala 2 saniye gibi araliklarla satir satir gidecek boyle bir sey mumkunmu? sabit bir dosya dan okumayacak dedigim gibi bir pencere acip onun icine kopyalama sansim olacak yardim ederseniz sevinirim

dialogta yazmayı tercih ettim aşağıdaki kodu remoteye(alt + r) kopyala ve çalıştırmak için /xpaste yaz

Kod:

dialog xpaste {

  title "Mesaj Gönderme"

  size -1 -1 250 173

  option dbu

  edit "", 1, 0 0 250 159,multi return vsbar hsbar

  button "Kapat", 2, 213 160 37 12, cancel

  button "kaydet", 3, 175 160 37 12

  button "Aktif pencereye yazıyı gönder", 4, 88 160 75 12

  text "Gönderim süresi:", 5, 1 162 41 8

  edit "", 6, 43 161 17 10, limit 4

  text "mili saniye", 7, 62 162 25 8

}
 

alias xpaste { if !$dialog(xpaste) { dialog -m xpaste xpaste } }

on *:dialog:xpaste:*:*: {

  if $devent == init {

    did -ra $dname 6 %::xpaste:ms

    loadbuf -o $dname 1 xpaste.send

  }

  if $devent == sclick {

    if $did == 3 { write -c xpaste.send | var %i 1 | while %i < $did(1).lines { write xpaste.send $did(1,%i) | inc %i 1 } }

    if $did == 4 {

      var %i = 1, %str = $null | while %i <= $len($did(6)) { if $asc($mid($did(6),%i,1)) >= 48 && $asc($mid($did(6),%i,1)) <= 57 { %str = %str $+ $mid($did(6),%i,1) } | inc %i 1 } | did -ra $dname 6 %str 

      if $did(6) < 1000 || $did(6) == $null { did -ra $dname 6 1000 }

      echo 4 -a [xpaste] : mesaj yazmanızı durdurmak için /play stop komutunu giriniz

      write -c xpaste.send | var %i 1 | while %i < $did(1).lines { write xpaste.send $did(1,%i) | inc %i 1 } 

      .play $active xpaste.send $did(6)

      set %::xpaste:ms $did(6)

    }

    if $did == 2 {

      var %i = 1, %str = $null | while %i <= $len($did(6)) { if $asc($mid($did(6),%i,1)) >= 48 && $asc($mid($did(6),%i,1)) <= 57 { %str = %str $+ $mid($did(6),%i,1) } | inc %i 1 } | did -ra $dname 6 %str 

      if $did(6) < 1000 || $did(6) == $null { did -ra $dname 6 1000 } | set %::xpaste:ms $did(6)

    }

  }

}

alience evet istedigim sey bu calisiyor fakat cok hizli gonderiyor ayni genele mausla kopya yapar gibi ordaki gonderim suresi 100 sabit duruyor degistirmek istesem degismiyor sanirim orda kucuk bir bug var bi bakarsan sevinirim tesekurler

yok kayet güzel çalışıyor o kısım rakam değilde harf girilirse onu otomatik 1000 yapıyor ama yok ben harf girmeyecem kendimden eminim diyorsan buyur kodu:

Kod:

dialog xpaste {

  title "Mesaj Gönderme"

  size -1 -1 250 173

  option dbu

  edit "", 1, 0 0 250 159,multi return vsbar hsbar

  button "Kapat", 2, 213 160 37 12, cancel

  button "kaydet", 3, 175 160 37 12

  button "Aktif pencereye yazıyı gönder", 4, 88 160 75 12

  text "Gönderim süresi:", 5, 1 162 41 8

  edit "", 6, 43 161 17 10, limit 4

  text "mili saniye", 7, 62 162 25 8

}
 

alias xpaste { if !$dialog(xpaste) { dialog -m xpaste xpaste } }

on *:dialog:xpaste:*:*: {

  if $devent == init {

    did -ra $dname 6 %::xpaste:ms

    loadbuf -o $dname 1 xpaste.send

  }

  if $devent == sclick {

    if $did == 3 { write -c xpaste.send | var %i 1 | while %i < $did(1).lines { write xpaste.send $did(1,%i) | inc %i 1 } }

    if $did == 4 {

      echo 4 -a [xpaste] : mesaj yazmanızı durdurmak için /play stop komutunu giriniz

      write -c xpaste.send | var %i 1 | while %i < $did(1).lines { write xpaste.send $did(1,%i) | inc %i 1 } 

      .play $active xpaste.send $did(6)

      set %::xpaste:ms $did(6)

    }

    if $did == 2 {

      set %::xpaste:ms $did(6)

    }

  }

}

alience evet simdi daha iyi oldu tesekurler

bir sorum daha olacak baska bir baslik acmak istemedim burdan sorayim dedim insallah goren olur
simdi ben mirc 6.16 kullaniyorum bu seen olayi ni koyrdugum zaman mirce badnick korumama ve akick diye duzenledigim korumalardaki kayitli nicklerim kayboluyor ve bu korumalar calismiyor bu tur bir sey basian gelen oldumu bunun irc versiyonuyla alakasi varmidir bu konuda fiktir tecrubesi olan varmi badnick korumada aliencenin buraya koydugu korumadir seen olayida nickservden gelen son gorulme tarigi bilgilerini gun saat ve dakika olarak degistirip echo ile seen nick seklinde texte karsiya bildiren bir duzen de calisiyor ben cozemedim eger bilgisi olan varsa yardimci olursa sevinirim

irc versiyonuyla demisim mirc versiyonu demek istedim yanlislik olmus gerci yazimi okuyunca bir cok kelimeyi yanlis yazmisim ama neyse yorgunluguma verin artik :)

aynıkomutları ve aynı değerleri içeriyorsa sorun olabilir eğer aynı mirc versiyonunda 2 sini ayrı ayrı yukleyince sorun olmuyorsa kısa olanın kodlarını değiştirebilirsin :) komutları aynı olanlarını bulup editlersin.
veya bazen on *:join eventi gibi aynı remotede birden fazla on join varsa ilkini kabul eder('di eskiden şimdide aynıdır :D) oyle ise farklı farklı remotelere yukleyipte denemelisin.

alience bu xpaste kodunda bi sinirlamami var ben goremeidm kodda oyle bir sey ama bir yaziyi aktardigimda hepsini gonderemiyor kanala bi belli limit mi var kodda yoksa penceresinimi buyutmem gerekiyor ?

ortalama kaç satır gondermeyi deniyorsun?!