Kod

on *:text:*:#ZSop: {
  if $regex($1,/^[!.]s[öo]z/i) { set %sozno $r(1,10) | sozsonuc %sozno
    if ($2) { msg $nick SOZ $nick 2Komutu Doğru Yazınız.Komut: 2!.soz | halt }
    if !$hget(soztesti,$nick) {
      .hinc -msu120 soztesti $nick $ctime
      msg $chan 
      msg $chan İSTEK SÖZÜNDE BULUNAN NİCK:2 $nick
      msg $chan İSTEK SÖZÜNÜZ:4 %sozsonuc
      msg $chan 
      msg $chan 2 $nick 1Nick'ne SÖZ1 Gönderildi. 
      unset %sozsonuc
    }
    else { 
      var %soztime $calc(120 - $calc($ctime - $hget(soztesti,$nick)))
      msg $chan 2 $nick 4 2 1Dakikada Bir Kez Kullanabilirsiniz
      msg $chan 2 $nick 4(1 %soztime 4) 1Saniye Sonra Tekrardan 4!.soz 1Komutunu Yazarak 4SÖZ 1Kullanabilirsiniz. 
    }
  }
}

alias sozsonuc {
  if 1 == %sozno { set %sozsonuc Söz1 }
  if 2 == %sozno { set %sozsonuc Söz2 }
  if 3 == %sozno { set %sozsonuc Söz3 }
  if 4 == %sozno { set %sozsonuc Söz4 }
  if 5 == %sozno { set %sozsonuc Söz5 }
  if 6 == %sozno { set %sozsonuc Söz6 }
  if 7 == %sozno { set %sozsonuc Söz7 }
  if 8 == %sozno { set %sozsonuc Söz8 }
  if 9 == %sozno { set %sozsonuc Söz9 }
  if 10 == %sozno { set %sozsonuc Söz10 }
}