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

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

- - Şiir Addonu (https://www.ircforumlari.net/mirc-scripting-sorunlari/594970-siir-addonu.html)

Forumda o kadar aradım bir kaç tane buldum ancak çalışan bir remote bulamadım.benim istediğim şiir.txt e eklediğim bir şiiri belirli bi aralıkla (mesela 4 saniye) kanala okutmasını sağlayan bir remote veya addon vs vs... yardımcı olacak birileri veya elinde olan birisi varmı ?

Cevap: Şiir Addonu

mirc ana dizininde şiirler klasörü açın, okunmasını istediğiniz şiirleri şiir1.txt şiir2.txt şiir3.txt şeklinde açtığımız şiirler klasörüne atın, botun bulunduğu her hangi bir kanalda !siir yazdığınızda bot size gereken bilgiyi verecektir. şayet yapamazsanız bireysel yardımdada bulunurum.

Kod:

on *:text:!siir*:#:{

  var %: = $findfile($qt($mircdirşiirler),*.txt,0)

  if !$2 { msg # Toplam $+(,%:,) tane şiir mevcut, rasgele bir şiir için !şiir random yazınız, %: şiirden herhangi biri için !şiir <şiir no> yazınız. }

  elseif $2 == random { play -m # $qt($findfile($qt($mircdirşiirler),*.txt,$r(1,%:)) ) 5000 }

  elseif $2 isnum $+(1-,%:) { play -m # $qt($findfile($qt($mircdirşiirler),*.txt,$2)) 5000 } | else { msg # Üzgünüm, toplam $+(,%:,) tane şiir var. }

}
 

;coder el33t

Cevap: Şiir Addonu

testler
rast gele satır //echo -a $read(şiir.txt)
istediğin bir satır //echo -a $read(şiir.txt,5)

sırayla okutmak ıcın satırları
//if (!%i-) { set %i- 1 } | set %i-2 $lines(şiir.txt) | echo -a $read(şiir.txt,%i-) | if (%i-2 == %i-) { unset %i- } | inc %i-

tamamını okutmak için /play #kanal şiir.txt

gelelim zaman meselesine
/timer 1 1 play #kanal şiir.txt belirttigin kanala 1 defa 1 sanıye sonra gönderir
/timer 10 1 play #kanal şiir.txt 1 saniye aralıkla 10 defa gönderir
/timer 0 4 play #kanal şiir.txt her dört saniyede bir gönderir durmak sızın
durdura bilmek için timers off gerektirir buda mircdeki bircok kodu etkiler iyidegil

/timeraziz 0 4 play #kanal şiir.txt timer isimlendirildi 4 saniyede bir durmak sızın calışır /timeraziz off komutuyla duru

kendine uygun olan yöntemi sen seç kanala bircok gönderim şekilleri var aralıksız 4 saniyede bir şiir okutmak kanala sıkıntı yaratır kanaldakiler için senin için

Cevap: Şiir Addonu

Aşağıdaki gibi bir dialog daha çok işine yaracağını umuyorum bütün şiirleri bir text dosyasına yüklemeyessin.. her biri icin farklı bir siir txt dosyası oluşturamassın böyle bir dialog ile belirlediğin bir kanala belirlediğin aralıklar ile şiir ini okuta bilirsin kolay gelsin ;)

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

PHP- Kodu:

   menu * { 

  .Siir Diyalogu:/dialog -m msiir msiir

}

 
dialog msiir {

  title "Yazı Gönderme Playerı"

  size -1 -1 176 225

  option dbu

  edit "", 2, 95 142 14 10, autohs 

  text "Kaç Saniye Gecikme", 3, 20 144 58 8

  box "Şiir Panosu | Şiirinizi Buraya CTRL V Yaparak Yapıştırın.", 5, 1 1 173 127

  button "Oynat", 6, 18 191 34 9

  button "Duraklat", 7, 64 191 34 9

  button "Durdur", 8, 111 191 34 9

  box "Geciktirme", 9, 12 132 152 39

  box "Seçtiğin Şiir'i", 11, 12 178 152 29

  button "Player'ı Kapat", 12, 54 212 67 10,cancel

  edit "", 17, 4 9 167 114, multi return hsbar vsbar

  text "Hangi Kanala", 16, 20 158 44 8

  edit "", 13, 76 158 50 8

  text "Saniye", 10, 115 143 22 8

}

 
on *:dialog:msiir:init:*: { 

  mdx MarkDialog $dname

  mdx SetDialog $dname bgcolor $rgb(255,255,255)

  mdx SetFont $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 +b Turkish 12 600 Tahoma

  mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 textbg $rgb(255,255,255)

  mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 background $rgb(255,255,255)

  mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 text $rgb(0,0,0) 

  did -a msiir 13 %kgir

  did -a msiir 2 %limited

}

on *:dialog:msiir:sclick:*: {

  if $did == 6 { 

    savebuf -o msiir 17 siir.txt

    set %limited $did(2)

    set %kgir $did(13)

    .timer 1 1 play %kgir $mircdirsiir.txt %limited $+ 000 | set %read read

  }

  if $did == 8 { play stop | unset %read }

}

on *:dialog:msiir:close:*: { 

  write -c siir.txt | unset %kgir | unset %limited

}

Cevap: Şiir Addonu

Alıntı:

ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1041448048)

PHP- Kodu:

   menu * { 
  .Siir Diyalogu:/dialog -m msiir msiir
}

dialog msiir {
  title "Yazı Gönderme Playerı"
  size -1 -1 176 225
  option dbu
  edit "", 2, 95 142 14 10, autohs 
  text "Kaç Saniye Gecikme", 3, 20 144 58 8
  box "Şiir Panosu | Şiirinizi Buraya CTRL V Yaparak Yapıştırın.", 5, 1 1 173 127
  button "Oynat", 6, 18 191 34 9
  button "Duraklat", 7, 64 191 34 9
  button "Durdur", 8, 111 191 34 9
  box "Geciktirme", 9, 12 132 152 39
  box "Seçtiğin Şiir'i", 11, 12 178 152 29
  button "Player'ı Kapat", 12, 54 212 67 10,cancel
  edit "", 17, 4 9 167 114, multi return hsbar vsbar
  text "Hangi Kanala", 16, 20 158 44 8
  edit "", 13, 76 158 50 8
  text "Saniye", 10, 115 143 22 8
}

on *:dialog:msiir:init:*: { 
  mdx MarkDialog $dname
  mdx SetDialog $dname bgcolor $rgb(255,255,255)
  mdx SetFont $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 +b Turkish 12 600 Tahoma
  mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 textbg $rgb(255,255,255)
  mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 background $rgb(255,255,255)
  mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 text $rgb(0,0,0) 
  did -a msiir 13 %kgir
  did -a msiir 2 %limited
}
on *:dialog:msiir:sclick:*: {
  if $did == 6 { 
    savebuf -o msiir 17 siir.txt
    set %limited $did(2)
    set %kgir $did(13)
    .timer 1 1 play %kgir $mircdirsiir.txt %limited $+ 000 | set %read read
  }
  if $did == 8 { play stop | unset %read }
}
on *:dialog:msiir:close:*: { 
  write -c siir.txt | unset %kgir | unset %limited
}

MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command

Statuste bu hatayı alıyorum ve calısmıyor zaten nedir sorun acaba?

-

Cevap: Şiir Addonu

Alıntı:

TİGeR Nickli Üyeden Alıntı (Mesaj 1041448599)

mIRC'inize mdx.dll ekleyin.

Cevap: Şiir Addonu

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

Cevap: Şiir Addonu

mİRC Klasoru içine mdx.dll attım hala değişen bişey yok

MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
* /play: 'C:\Program' Açılamıyor

Cevap: Şiir Addonu

Kod:

alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }

Mdx diye bir komut yoktur biz alias yardımıyla bunu kullanırız, kodunuza bu aliası ekleyin, mdx.dll ide dll klasörüne atın.

Cevap: Şiir Addonu

üstad dediğin gibi yaptım.ancak yine açılamıyor diyor nerde hata var ?