kanala uzun yaziyi floodsuz gonderme???? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Flyman · 20 Şubat 2005, 03:56

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

Alience · 20 Şubat 2005, 09:30

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

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

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)
    }
  }
}

Flyman · 20 Şubat 2005, 18:55

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

Alience · 20 Şubat 2005, 19:47

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

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)
    }
  }
}

Flyman · 20 Şubat 2005, 20:45

alience evet simdi daha iyi oldu tesekurler

Flyman · 23 Şubat 2005, 02:05

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

Flyman · 23 Şubat 2005, 02:09

irc versiyonuyla demisim mirc versiyonu demek istedim yanlislik olmus gerci yazimi okuyunca bir cok kelimeyi yanlis yazmisim ama neyse yorgunluguma verin artik
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Alience · 23 Şubat 2005, 06:41

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

Flyman · 02 Mart 2005, 03:30

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 ?

Alience · 02 Mart 2005, 18:45

ortalama kaç satır gondermeyi deniyorsun?!

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Kanala Giden Yaziyi Özele Çevirmek	Dark	mIRC Scripting Sorunları	2	30 Eylül 2015 07:06
yanlis yaziyi uyarma	vasarelli	mIRC Scripting Sorunları	2	02 Şubat 2009 20:16
Kanala floodsuz yazı gönderme	Yeppa	mIRC Scripting Sorunları	12	23 Şubat 2005 15:28

Konuyu Toplam 2 Üye okuyor. (0 Kayıtlı üye ve 2 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.