IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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 Siir Yazma... (Yardim Lazim) (https://www.ircforumlari.net/mirc-scripting-sorunlari/112776-kanala-siir-yazma-yardim-lazim.html)

MouSTaPHa83 25 Mayıs 2008 20:15
Kanala Siir Yazma... (Yardim Lazim)
 
Kod:
on 1:text:!siir:#:{
  if ($me isop #) && (%siirciyim == 1) { /msg $nick Şu Anda Zaten Bir Şiir Yazıyorum... Lütfen  %yaziyorum Saniye Sonra Tekrar Deneyiniz... }
  if ($me isop #) && (%siirciyim == 0) { /set %siirciyim 1 | /play # $mircdirsiir $+ \ $+ $rand(1,100) $+ .txt 500 | /timer 1 15 /set %siirciyim 0 | /set %yaziyorum 15 | /timer 15 1 /aaamayaaa }
}
on 1:text:!siir &:#:{
  if ($me isop #) && (%siirciyim == 1) { /msg $nick Şu Anda Zaten Bir Şiir Yazıyorum... Lütfen %yaziyorum Saniye Sonra Tekrar Deneyiniz... }
  if ($me isop #) && (%siirciyim == 0) && ($2 ison #) { /set %siirciyim 1 | /msg # 4,1 $+ $nick $+  Nickli Kisi 4,1 $+ $2 $+  Nickli Kisiye Bir siir Gonderiyor... | /play # $mircdirsiir $+ \ $+ $rand(1,100) $+ .txt 500 | /timer 1 15 /set %siirciyim 0 | /set %yaziyorum 15 | /timer 15 1 /aaamayaaa }
  else  { /msg # 4,1 $+ $nick $+  Dalga Mi Geciyorsun? Kanalda 4,1 $+ $2 $+  Nickli Birisi Yok Ki... }
}
Böyle bir kod oluşturdum. Siir adli klasorde 100 tane siir var. Ve birisi istediginde random olarak siirlerden birini yaziyor. Ve birisi !siir ya da !siir nick yazdiginda 1 dakika boyunca kimsenin siir istegini kabul etmiyor. Fakat benim istedigim sey bunun 1 dakika olmasi degil de siir bittikten sonra olmasi. /Play komudu ile siiri okuyacak siir bittiginde /set %siirciyim 0 yapacak.

Benim becerimi aştığı için buraya gelip sormayı uygun gördüm. /play komudu ile ilgili yaklaşık 50 başlık okudum ama benzer birşey bulamadım.

rX 25 Mayıs 2008 21:51
Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
ßunu NasıL YapıLcaqı Hakkında ßiLgi Verirmisin ßende Yapmak Istiomda :) Siir.txt mi oLusturuosun YokSa NasıL

MouSTaPHa83 25 Mayıs 2008 22:24
Yanıt: Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
Alıntı:
AtacK Nickli Üyeden Alıntı (Mesaj 468036)
ßunu NasıL YapıLcaqı Hakkında ßiLgi Verirmisin ßende Yapmak Istiomda :) Siir.txt mi oLusturuosun YokSa NasıL
Yukarıdaki kodu aynen alirsan mirc klasorunun icinde siir diye klasor acman gerekiyor. ardindan 1 den 100'e kadar 1.txt 2.txt 3.txt ...... 100.txt seklinde siirler koyuyorsun icine. o kadar.

!siir diyince siir yazar.
!siir nick diyince siiri nicke armagan eder. kod bu haliyle calisiyor kullanabilirsin. fakat beniim istedigim gibi degil. eger bir arkadas ilk mesajda belirttigim konuya yardim ederse kodu duzenleyebilirim tekrar :D

rX 25 Mayıs 2008 23:28
Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
£yw. SaoLasın denicem

MouSTaPHa83 26 Mayıs 2008 11:26
Yanıt: Kanala Siir Yazma... (Yardim Lazim)
 
Tamam yardıma gerek yok help dosyasında başka birşeyi ararken on playend'i buldum :)

rX 26 Mayıs 2008 20:54
Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
ßu konuyu ßana anLatırmısın ? !siir Yazıncada ßişi Yapmıyo...

[20:51] <reLax> .
[20:51] <AtacK> !siir reLax
[20:51] <G-Net[Siir]> AtacK Dalga Mi Geciyorsun? Kanalda reLax Nickli Birisi Yok Ki...

MouSTaPHa83 26 Mayıs 2008 21:30
Yanıt: Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
Alıntı:
AtacK Nickli Üyeden Alıntı (Mesaj 468983)
ßu konuyu ßana anLatırmısın ? !siir Yazıncada ßişi Yapmıyo...

[20:51] <reLax> .
[20:51] <AtacK> !siir reLax
[20:51] <G-Net[Siir]> AtacK Dalga Mi Geciyorsun? Kanalda reLax Nickli Birisi Yok Ki...
G-Net[Siir] nickinin kanalda op olmasi gerekiyor.

Kod:
on 1:text:!siir:#:{
  if (%siirciyim == 1) { /msg $nick Şu Anda Zaten Bir Şiir Yazıyorum... Lütfen  %yaziyorum Saniye Sonra Tekrar Deneyiniz... }
  if (%siirciyim == 0) { /set %siirciyim 1 | /play # $mircdirsiir $+ \ $+ $rand(1,100) $+ .txt 500 | /timer 1 15 /set %siirciyim 0 | /set %yaziyorum 15 | /timer 15 1 /aaamayaaa }
}
on 1:text:!siir &:#:{
  if (%siirciyim == 1) { /msg $nick Şu Anda Zaten Bir Şiir Yazıyorum... Ulham Perilerim %yaziyorum Saniye Sonra Anca Gelir. Bir De O Zaman Deneyiniz... }
  if (%siirciyim == 0) && ($2 ison #) { /set %siirciyim 1 | /msg # 4,1 $+ $nick $+  Nickli Kisi 4,1 $+ $2 $+  Nickli Kisiye Bir siir Gonderiyor... | /play # $mircdirsiir $+ \ $+ $rand(1,100) $+ .txt 500 | /timer 1 15 /set %siirciyim 0 | /set %yaziyorum 15 | /timer 15 1 /aaamayaaa }
  else  { /msg # 4,1 $+ $nick $+  Uzgunum 4,1 $+ $nick $+  Su Anda Siir Yazacak Havada Degilim... }
}
alias aaamayaaa /set %yaziyorum $calc(%yaziyorum - 1)
kodu değiştirdim. bu kodu yazdığında G-Net[Siir] nickinin kanalda op olmasina gerek yok. Ayrıca !siir komutundan sonra birisi tekrar !siir yazdiginda tekrar siir yazabilmesi icin kalan zamani da kisiye soyluyor.

rX 29 Mayıs 2008 04:37
Cevap: Yanıt: Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
Alıntı:
MouSTaPHa83 Nickli Üyeden Alıntı (Mesaj 468994)
G-Net[Siir] nickinin kanalda op olmasi gerekiyor.

Kod:
on 1:text:!siir:#:{
  if (%siirciyim == 1) { /msg $nick Şu Anda Zaten Bir Şiir Yazıyorum... Lütfen  %yaziyorum Saniye Sonra Tekrar Deneyiniz... }
  if (%siirciyim == 0) { /set %siirciyim 1 | /play # $mircdirsiir $+ \ $+ $rand(1,100) $+ .txt 500 | /timer 1 15 /set %siirciyim 0 | /set %yaziyorum 15 | /timer 15 1 /aaamayaaa }
}
on 1:text:!siir &:#:{
  if (%siirciyim == 1) { /msg $nick Şu Anda Zaten Bir Şiir Yazıyorum... Ulham Perilerim %yaziyorum Saniye Sonra Anca Gelir. Bir De O Zaman Deneyiniz... }
  if (%siirciyim == 0) && ($2 ison #) { /set %siirciyim 1 | /msg # 4,1 $+ $nick $+  Nickli Kisi 4,1 $+ $2 $+  Nickli Kisiye Bir siir Gonderiyor... | /play # $mircdirsiir $+ \ $+ $rand(1,100) $+ .txt 500 | /timer 1 15 /set %siirciyim 0 | /set %yaziyorum 15 | /timer 15 1 /aaamayaaa }
  else  { /msg # 4,1 $+ $nick $+  Uzgunum 4,1 $+ $nick $+  Su Anda Siir Yazacak Havada Degilim... }
}
alias aaamayaaa /set %yaziyorum $calc(%yaziyorum - 1)
kodu değiştirdim. bu kodu yazdığında G-Net[Siir] nickinin kanalda op olmasina gerek yok. Ayrıca !siir komutundan sonra birisi tekrar !siir yazdiginda tekrar siir yazabilmesi icin kalan zamani da kisiye soyluyor.
Senin Werdiqin Kodda SAdece ßöyLe diyor = deS|taN Uzgunum deS|taN Su Anda Siir Yazacak Havada Degilim...
yanLıs yani

MouSTaPHa83 29 Mayıs 2008 13:12
Yanıt: Cevap: Yanıt: Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
Alıntı:
AtacK Nickli Üyeden Alıntı (Mesaj 471366)
Senin Werdiqin Kodda SAdece ßöyLe diyor = deS|taN Uzgunum deS|taN Su Anda Siir Yazacak Havada Degilim...
yanLıs yani

haklısın. öncelikle %siirciyim in 0 yapılması gerekiyor. ben bunu el ile yapmıştım o yuzden kodda yazmayı unutmuşum :) kodu şu şekilde değiştirdiğinde çalışır.
Kod:
on 1:text:!siir:#:{
  if (%siirciyim != 0) { /msg $nick Şu Anda Zaten Bir Şiir Yazıyorum... Lütfen  %yaziyorum Saniye Sonra Tekrar Deneyiniz... }
  if (%siirciyim == 0) { /set %siirciyim 1 | /play # $mircdirsiir $+ \ $+ $rand(1,100) $+ .txt 500 | /timer 1 15 /set %siirciyim 0 | /set %yaziyorum 15 | /timer 15 1 /aaamayaaa }
}
on 1:text:!siir &:#:{
  if (%siirciyim != 0) { /msg $nick Şu Anda Zaten Bir Şiir Yazıyorum... Ilham Perilerim %yaziyorum Saniye Sonra Anca Gelir. Bir De O Zaman Deneyiniz... }
  if (%siirciyim == 0) && ($2 ison #) { /set %siirciyim 1 | /msg # 4,1 $+ $nick $+  Nickli Kisi 4,1 $+ $2 $+  Nickli Kisiye Bir siir Gonderiyor... | /play # $mircdirsiir $+ \ $+ $rand(1,100) $+ .txt 500 | /timer 1 15 /set %siirciyim 0 | /set %yaziyorum 15 | /timer 15 1 /aaamayaaa }
  else  { /msg # 4,1 $+ $nick $+  Uzgunum 4,1 $+ $nick $+  Su Anda Siir Yazacak Havada Degilim... }
}
alias aaamayaaa /set %yaziyorum $calc(%yaziyorum - 1)

Cybersoft 29 Mayıs 2008 21:34
Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
bu konuda biraz daha acıklama yapılabilirmi ben denedim ama calişmadi bir siir klasör ü açtım ve içerisinde 1.txt 2.txt seklinde txt dosyaları actım ve icerisine ise siirleri ekledim fakat siir kanalında !siir yazdıgımda bot özelimde [21:30] <Koruma> Şu Anda Zaten Bir Şiir Yazıyorum... Lütfen Saniye Sonra Tekrar Deneyiniz... bunu diyor ve siir i yazmiyor su sekilde yaptıgımda ise !siir nick seklinde [21:31] <@Koruma> Deneme Uzgunum Deneme Su Anda Siir Yazacak Havada Degilim...

Diyor ve siir felan yazmıyor sorun nerde acaba?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 13:52.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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