on *:TEXT:!*:#: {
    var %x = $1 | goto %x
    :!basla
    .timer 1 1 mode $chan +m
    .timer 1 2 mode $chan +v $nick
    .timer 1 4 msg $chan $nick $+ . Oyunu sadece hayatını kazanmak için oyna.
    .timer 1 5 msg $chan !zar yazarak zarı sallayabilirsin..
    halt
    :!zar
    .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 -v $nick
      .timer 1 7 mode $chan -m
    }
    elseif (%dice != 6) {
      .timer 1 4 msg $chan Üzgünüm $nick $+ , kazanamadın. Tekrar dene!
      .timer 1 5 msg $chan Bu şansızlıkla ancak $read(dalga.txt)
      halt
    }
    :!bitir
    .timer 1 1 mode $chan -m
    .timer 1 2 mode $chan -v $nick
    .timer 1 4 msg $chan Teşekkürler, tekrar oynamak için !zar yazınız.
    halt
    :%x
    msg $chan $1 Bir komut olarak tanınmıyor.
}

on *:TEXT:!*:#: {
    var %x = $1 | goto %x
    :!bilgi

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.
  }
}