on *:TEXT:!oyun:#:{
  if (%oyun) {
    msg # Zaten bir oyun başlatılmış. Lütfen sıranızı bekleyin veya !bitir yazın.
  }
  else {
    var %kelime $read(kelimeler.txt)
    msg # Kelime zinciri oyununa hoş geldiniz. Size bir kelime vereceğim ve bu kelimenin son harfiyle başlayan başka bir kelime yazmanız gerekecek. Her doğru kelime için bir puan kazanacaksınız. Oyunu bitirmek için !bitir yazabilirsiniz. Aynı anda birden fazla kişi oyunu oynayabilir, ama sırayla yazmalısınız. Aynı harfle başlayan iki kelime yazarsanız, ekstra puan kazanırsınız. Hazır mısınız?
    msg # İşte kelime: %kelime
    set %oyun 1
    set %sonharf $right(%kelime,1)
    set %sıra $nick
    set %puan $nick 0
    set %kelimeler %kelime
  }
}

on *:TEXT:*:#:{
  if (%oyun) {
    var %kelime $strip($1-)
    if (%kelime == !bitir) {
      msg # Oyunu bitirdiniz. Toplam puanlar şöyle:
      var %i 1
      while (%i <= $numtok(%puan,44)) {
        var %isim $gettok(%puan,%i,44)
        var %skor $gettok(%puan,%i+1,44)
        msg # %isim: %skor
        inc %i 2
      }
      unset %oyun
      unset %sonharf
      unset %sıra
      unset %puan
      unset %kelimeler
    }
    elseif ($nick == %sıra) {
      var %harf $left(%kelime,1)
      if (%harf == %sonharf) && ($istok(%kelimeler,%kelime,32) == 0) {
        msg # Doğru kelime! Bir puan kazandınız.
        inc %puan $nick
        if ($right(%kelime,1) == %sonharf) {
          msg # Aynı harfle başlayan iki kelime yazdınız! Ekstra bir puan daha kazandınız.
          inc %puan $nick
        }
        set %sonharf $right(%kelime,1)
        set %kelimeler %kelimeler %kelime
        var %sıra $nick($chan,$rand(1,$nick($chan,0)))
        msg # Sıra %sıra de. Lütfen %sonharf harfiyle başlayan bir kelime yazın.
        set %sıra %sıra
      }
      else {
        msg # Yanlış kelime! Oyun bitti. Toplam puanlar şöyle:
        var %i 1
        while (%i <= $numtok(%puan,44)) {
          var %isim $gettok(%puan,%i,44)
          var %skor $gettok(%puan,%i+1,44)
          msg # %isim: %skor
          inc %i 2
        }
        unset %oyun
        unset %sonharf
        unset %sıra
        unset %puan
        unset %kelimeler
      }
    }
    else {
      msg # Sıra sizde değil. Lütfen sıranızı bekleyin veya !bitir yazın.
    }
  }
}