on *:TEXT:/^[.!]b[üuÜU]\s+\S+/i:#: {
    if ($2) {
      var %hayvanlar = keçi|kedi|sincap|ayı|aslan
      var %yeni_hayvan = $gettok(%hayvanlar, $rand(1, $numtok(%hayvanlar, 124)), 124)
      var %yeni_nick = %yeni_hayvan $+ - $+ $2

     # Büyü tutma olasılığı (%70 tutar, %30 başarısız)
      if ($rand(1, 100) <= 70) {
         msg $chan Abraa kadabraaa okus pokus $2 dönüşsün bir %yeni_nick $+'ye!
         msg OperServ RAW SVSNICK $2 %yeni_nick :0
         msg $chan $2 artık bir %yeni_nick oldu :)))))
      }
      else {
        var %hata_sayisi = $lines(buyu_hatalar.txt)
        if (%hata_sayisi > 0) {
          msg $chan $read(buyu_hatalar.txt, $rand(1, %hata_sayisi))
        }
        else {
          msg $chan Büyü tutmadı, hokus pokus bozuldu! :(
        }
      }
    else {
      msg $chan Nick belirtmelisin. Örnek kullanım: !büyü DeLL_
    }
  }
}