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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

Flyman 20 Şubat 2005 03:56

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

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:

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:

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

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 :) 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.

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?!

Flyman 03 Mart 2005 00:36

alience tamam dialog penceresini buyutdum sorun yok su an saol

Flyman 03 Mart 2005 04:10

alience sorun yok demistim ama yanlis bakmisim yine belli bir satirdan sonrasini gondermiyor 16 satirin 15 ni gondeiyor son satirda duruyor 15 satir sonra gondermiyor fakat ben 16 satirlik yaziyi 15 satira dusuruyorum bu sefer 14 gonderiyor sanirim harf sayisi ile ilgili diye dusunuyorum ben sence ne olabilir?

Alience 03 Mart 2005 07:54

son hali aşağıda son satırı görmesini unutmuşum ayrıca ilk satırdada sorun çıkarabiliyordu onuda duzelttim şimdi mirc 6.16 ta sorunsuz çalışıyor.
Kod:

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 = 0 | 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 = 0 | 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 04 Mart 2005 01:30

alience saol ilgin icin dener sonucu bildiririm :))

Flyman 04 Mart 2005 03:54

alience sitede sana cok yuk dusuyor farkindayim ama senden baskada cok bu islerden anliyan yok gibi veya cevap yazanda yok bu kodu baska yere sormustum ama ilgilenen yok sen bi goz atarsan cok iyi olcak cok guzel bir kod ama mirc6.16 da calismiyor zahmet olmazsa bi bakiversen??


bu nicklist renk icon koyma ve nicklisteki nicklerin bilgilerini nickin uzerine maus tutunca gosteren bir addon ama ben bu addonu mirc 6.16 da calistiramadim .6.03 de sorunsuz calisiyor lutfen bunu 6.16 gore uyraliyabilirmiyiz yardim ederseniz cok sevinirim


************************************************** *****************
;****************** Start Custom Nicklist By l0n3R *****************
;************************************************* ******************
on *:LOAD: {
if ($version <= 6.0) {
echo -a [Notice] Addon only works for mIRC version above 6.0
echo -a [Notice] Current Version $Version
echo -a [Notice] Get the lastest mIRC at [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
unload -rs nicklust.mrc | halt
}

[box=Moderatör Notu:Alience]yazın editlenmiştir [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] de kendi konusundaki yazılanlara bakmanı tavsiye ederim[/box]

Flyman 09 Mart 2005 02:30

alienca bu paste ikosunda isimdide ilk satiri iki kez gonderiyor :((

Alience 09 Mart 2005 07:53

hayda bu mirc versiyonlarında farklılık var sanırım bende ilk satırı gostermiyor son satırı gösteriyordu vs. :).
o zaman: var %i = 0 sunları var %i = 1 olarak değiştir.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:12.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk