Ceza koruma kodu

on *:text:*:#Opers:{
  if $regex($1,/^[!.-][cç]eza$/Si) {
    if !$2 { msg # Lütfen nick belirtiniz. 4ORNEK 2!ceza abuzittin }
    elseif ($2 == $me) { msg # Benim üzerime işlem yapamazsınız =) }
    else { .hadd -ms ceza $strip($2) # | .whois $strip($2) }
  }
}
on *:part:#Ceza:{
  if $hget(Ceza,$nick) { 
    .msg $nick Süreniz daha dolmadığından 4#Ceza kanalından çıkamazsınız.! Kalan süre:4 $hget(Ceza,$nick).unset 
    sajoin $nick #Ceza
  }
}
raw 318:*:$iif($hget(ceza,$4),.hdel -ms ceza $4)
raw 401:*:$iif($hget(ceza,$4),msg $hget(ceza,$4) $4 nick'i sunucuda bulunmamaktadır..)
raw 311:*:{
  if $hget(ceza,$4) {
    .shun $4 +10m Ceza kanalına alındınız!
    .sajoin $4 #0,0
    .sajoin $4 #Ceza
    .msg $4 Merhaba, kurallara uymadığınızdan 5 dakika boyunca #Ceza kanalına alındınız ve üzerinize shun uygulandı..
    .msg $hget(ceza,$4) $4 nick'i #Ceza kanaına alındı ve shun uygulandı..
    .hadd -msu600 Ceza $4 $hget(ceza,$4)
    $+(.timer,$4,¿ceza) 1 610 _ceza $4
  }
}
alias _hapis { sapart $1 #Ceza | sajoin $1 #Sohbet | msg $1 Ceza süreniz dolmuştur, lütfen kurallara uyunuz! }