on *:text:*:#: {
  if $regex($1,/^([.!]ba[sŞş]la)/Si) {
    .timer 1 1 mode $chan +vm $nick
    .timer 1 4 msg $chan $+($nick,.) Oyunu sadece hayatını kazanmak için oyna.
    .timer 1 5 msg $chan !zar yazarak zarı sallayabilirsin..
  }
  if $regex($1,/^([.!]zar)/Si) {
    .timer 1 1 $chan Attığın zarı tarif et $+($nick,...) 
    var %dice $rand(1,6)
    .timer 1 3 msg $chan 2Senin sayın $+(%dice,...) 
    if (%dice == 6) {
      .timer 1 4 msg $chan Kazandın! Tebrikler $+($nick,!)
      .timer 1 5 msg $chan 4Hediyen: $+(2,$read(hediye.txt))
      .timer 1 6 mode $chan -vm $nick
    }
    elseif (%dice != 6) {
      .timer 1 4 msg $chan Üzgünüm $+($nick,$chr(32)) kazanamadın. Tekrar dene!
      .timer 1 5 msg $chan Bu şansızlıkla ancak $read(dalga.txt)
    }
  }
  if $regex($1,/^([.!]bitir)/Si) {
    .timer 1 1 mode $chan -vm $nick
    .timer 1 2 msg $chan Teşekkürler, tekrar oynamak için !zar yazınız.
  }
}