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)