Hazır Kod Eglence ZAR/Komutu

on *:text:*:#edebiyat: {
  if $regex($1,/^(!(zar))$/i) {
    if %ducas_zar_ [ $+ [ $nick ] ] {
      notice $nick Zarları tekrar atabilmek için %ducas_zar_ [ $+ [ $nick ] ] saniye kadar beklemelisiniz.
      halt
    }
    set -z %ducas_zar_ [ $+ [ $nick ] ] 500
    msg # Zarları aldık elimize sallıyoruz, ve attık...
    set %zar1 $r(1,6)
    set %zar2 $r(1,6)
    if %zar1 == %zar2 {
      msg # Sanslisin 4 [1 $nick 4]1 Zarlar1 : 4[1 %zar1 ~ %zar2 4]1 Geldi. 1 saatlik4 [1+v4]
      .timer 1 1 /mode #edebiyat +v $nick
      .timer 1 360 /mode #edebiyat -v $nick
      halt
    }
    msg # 4[1 $nick 4] 1 Zarlar durdu. Kaybettiniz $+ $+ : $+ 4[1 %zar1 ~ %zar2 4] 1 Geldi. $read($shortfn($mircdiryazi\hediye.txt))
  }
}