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

rX 30 Mayıs 2008 01:36
Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
!siir Yazdıqımda OzeLime qeLerek SöyLe Diyor.
[01:31] <G-Net[Siir]> Şu Anda Zaten Bir Şiir Yazıyorum... Lütfen Saniye Sonra Tekrar Deneyiniz...
!siir Nick Yazdıqımda Ise OzeLime qeLip SöyLe Diyor.
<G-Net[Siir]> Şu Anda Zaten Bir Şiir Yazıyorum... Ilham Perilerim Saniye Sonra Anca Gelir. Bir De O Zaman Deneyiniz...
ve KanaLa da ßöyLe diyor Aynı Komutta
[01:31] <G-Net[Siir]> AtacK Uzgunum AtacK Su Anda Siir Yazacak Havada Degilim...

Kodun Doqru OLanını ßiLen Yoqmu (:

Gurkan 30 Mayıs 2008 01:57
Yanıt: Kanala Siir Yazma... (Yardim Lazim)
 
PHP- Kodu:
on *:text:*:#:{
if ($1 == !siirlist) {
msg # Siir listesi $nick Tarafından istendi 
msg # Siir Listesi | play # siirlist.txt 2000
 }
  if ($1 == !siir1) {
msg # Siir yazılıyor | play # siir1.txt 2000
}
} 
mirc ana klasorüne siirlist.txt oluştur,
Örnek;
Siirinadı şiiri için !şiir1 komutunu uygulayın.
mirc ana klasorüne siir1.txt oluştur.. mantığını anlamısındır inşşalah

rX 30 Mayıs 2008 03:05
Cevap: Yanıt: Kanala Siir Yazma... (Yardim Lazim)
 
Alıntı:
LanetLy Nickli Üyeden Alıntı (Mesaj 474199)
PHP- Kodu:
on *:text:*:#:{
if ($1 == !siirlist) {
msg # Siir listesi $nick Tarafından istendi 
msg # Siir Listesi | play # siirlist.txt 2000
 }
  if ($1 == !siir1) {
msg # Siir yazılıyor | play # siir1.txt 2000
}
} 
mirc ana klasorüne siirlist.txt oluştur,
Örnek;
Siirinadı şiiri için !şiir1 komutunu uygulayın.
mirc ana klasorüne siir1.txt oluştur.. mantığını anlamısındır inşşalah
heLpp me :) ?
siirList istenmicek Vede siir kLasörünün içinde oLucak TxtLer (: 1.txt 2.txt oLarak 100 tane yaptım :) ona uyan ßi komut ßiLen Warsa :) ßi zahmet[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cybersoft 30 Mayıs 2008 23:00
Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
Atack a katılıyorum o sekilde olursa daha kullanıslı olur.

kunt 30 Mayıs 2008 23:31
Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
Txt okuttuğu için şiir bittiğinde komut okutması zor biraz.

Mesala şiir bot'u op olduğunu düşünürsek şiir komutunu aldığında kanalı +m yapıp şiiri yollar.

on 1:text:!siir &:#:{
if ($2 ison #) { .mode # +m | .timer 1 1 /msg # 4,1 $+ $nick $+  Nickli Kisi 4,1 $+ $2 $+  Nickli Kisiye Bir siir Gonderiyor... | .timer 1 2 /play # siir\ $+ $rand(1,100) $+ .txt 500 }
}

txt belgesinde şiirin en altına " şiir tamamlanmıştır " yazılırsa,

O eklenen yazıyı kanalda okuyan diğer bir op kişi yada bot kanalı -m yapıp, yeni istek alabilirsiniz der. Böylece şiir okunduğunda kanal +m olduğu için kimse şiiri bozamaz .

Diğer op un ekleyeceği komut:
on 1:text:*şiir tamamlanmıştır*:#:{
timer 1 1 .msg # Şiir Gönderimi Tamamlanmıştır. !siir nick Komutunu Uyguluyarak Arkadaşlarınıza Şiir Gönderebilirsiniz. | .timer 1 2 /mode # -m
}


Başka aklıma gelmedi.

rX 31 Mayıs 2008 05:47
Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
Alıntı:
kunt Nickli Üyeden Alıntı (Mesaj 475020)
Txt okuttuğu için şiir bittiğinde komut okutması zor biraz.

Mesala şiir bot'u op olduğunu düşünürsek şiir komutunu aldığında kanalı +m yapıp şiiri yollar.

on 1:text:!siir &:#:{
if ($2 ison #) { .mode # +m | .timer 1 1 /msg # 4,1 $+ $nick $+  Nickli Kisi 4,1 $+ $2 $+  Nickli Kisiye Bir siir Gonderiyor... | .timer 1 2 /play # siir\ $+ $rand(1,100) $+ .txt 500 }
}

txt belgesinde şiirin en altına " şiir tamamlanmıştır " yazılırsa,

O eklenen yazıyı kanalda okuyan diğer bir op kişi yada bot kanalı -m yapıp, yeni istek alabilirsiniz der. Böylece şiir okunduğunda kanal +m olduğu için kimse şiiri bozamaz .

Diğer op un ekleyeceği komut:
on 1:text:*şiir tamamlanmıştır*:#:{
timer 1 1 .msg # Şiir Gönderimi Tamamlanmıştır. !siir nick Komutunu Uyguluyarak Arkadaşlarınıza Şiir Gönderebilirsiniz. | .timer 1 2 /mode # -m
}


Başka aklıma gelmedi.
Aynen Ama Tamamen Kodunu YazaßiLecek ßi Coder Yoq HerhaLde ( =

rX 31 Mayıs 2008 05:48
Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
Alıntı:
Cybersoft Nickli Üyeden Alıntı (Mesaj 474997)
Atack a katılıyorum o sekilde olursa daha kullanıslı olur.
Cünkü 100 tane mircin ana kLasörüne txt oLusturursak ( : Cok karısık olur (:

kAriSmA 02 Haziran 2008 03:57
Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
Kod:
on *:text:!şiir*:#:{ Msg # $Nick şiir başlıyor v.s |  /Play # dosya.uzantısı 5350 | Msg # $Nick Işlem Taamamlandı.v.s }


Mirc klasörüne bi txt dosyası açın şiirlerini içine atın,kod çoğaltılabilir.Saygılar.

rX 02 Haziran 2008 17:34
Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
Alıntı:
kAriSmA Nickli Üyeden Alıntı (Mesaj 477426)
Kod:
on *:text:!şiir*:#:{ Msg # $Nick şiir başlıyor v.s |  /Play # dosya.uzantısı 5350 | Msg # $Nick Işlem Taamamlandı.v.s }


Mirc klasörüne bi txt dosyası açın şiirlerini içine atın,kod çoğaltılabilir.Saygılar.
$imdi Konuyu ßiraz Daha Acsan Diyorum eLimizde Siir KLasörü Var MisaL içindede 1'den 100'e Kadar ßunLarı Okutma metedounda ßi Ornek WereßiLirmisin ?

kAriSmA 02 Haziran 2008 18:24
Cevap: Kanala Siir Yazma... (Yardim Lazim)
 
klasör okutamıyacağına göre, ya hepsini bi .txt içinde toplarsın,yada tek tek .txt eklersin SAygılar
PHP- Kodu:
on *:text:!şiir 1*:#:{ Msg # $Nick şiir başlıyor v.s |  /Play # dosya.uzantısı 5350 | Msg # $Nick Işlem Taamamlandı.v.s }
on *:text:!şiir 2*:#:{ Msg # $Nick şiir başlıyor v.s |  /Play # dosya.uzantısı 5350 | Msg # $Nick Işlem Taamamlandı.v.s }
on *:text:!şiir 3*:#:{ Msg # $Nick şiir başlıyor v.s |  /Play # dosya.uzantısı 5350 | Msg # $Nick Işlem Taamamlandı.v.s }
v.s gibi 


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

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