Kod

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Kodun calisacagi kanallar
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias cezakanallar return #mirchelp,#sohbet,#felsefe,#radyo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
;Ceza aktif hale geldiginde uygulayabilecegi Karakter sayisi bir deger girilmelidir.
alias -l ceza1karakter return 200
alias -l ceza2karakter return 100
alias -l ceza3karakter return 50
;Karakter Sayisini Astiginda Saniye cinsinden bir deger girilmelidir.
alias -l ceza1sure return 50
alias -l ceza2sure return 100
alias -l ceza3sure return 200
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:Text:*:$($cezakanallar):{
  if ?ceza* iswm $1  {
    if ($2 !ison $chan) { notice $nick > Ceza uygulanacak nick kanalda degil ! | return  }
    if $nick($chan,$2,.~&@%).pnick { notice $nick > Kanal Operatorlerine ceza veremezsiniz ! |  return }
    if !$2 {  notice $nick > Ceza alacak nicki belirtmediniz ! | return }
    if (?ceza1 iswm $1) {
      set $+(%,cezalinick-,$2,-,$chan)  $ceza1karakter
      set  $+(%,cezalinicksure-,$2,-,$chan)  $ceza1sure
      msg # > $2 nicki icin !ceza1 [Hafif Ceza] komutu uygulandi. Maksimum yazacagi $ceza1karakter karakter asarsa uygulanacak ban suresi  $zcvr($duration($ceza1sure))
      return
    }
    if (?ceza2 iswm $1) {
      set $+(%,cezalinick-,$2,-,$chan)  $ceza2karakter
      set  $+(%,cezalinicksure-,$2,-,$chan)  $ceza2sure
      msg #  > $2 nicki icin !ceza2 [Orta Ceza] komutu uygulandi. Maksimum yazacagi $ceza2karakter karakter asarsa uygulanacak ban suresi  $zcvr($duration($ceza2sure))
      return
    }
    if (?ceza3 iswm $1) {
      set $+(%,cezalinick-,$2,-,$chan)  $ceza3karakter
      set  $+(%,cezalinicksure-,$2,-,$chan)  $ceza3sure
      msg #  > $2 nicki icin !ceza3 [Agir Ceza] komutu uygulandi. Maksimum yazacagi  $ceza3karakter karakter asarsa uygulanacak ban suresi  $zcvr($duration($ceza3sure))
      return
    }
  }
  if $eval($+(%,cezalinick-,$nick,-,$chan),2)  { 
    dec -e  $+(%,cezalinick-,$nick,-,$chan) $len($strip($1-))
    if ($v1 <= 0)  {
      ban -u $+ $eval($+(%,cezalinicksure-,$nick,-,$chan),2) $chan  $nick 2 
      mode $chan -v $nick      
      msg # > $nick , Nickinize uygulanan ceza aktif hale getirildi ve konusmaniz $zcvr($duration($eval($+(%,cezalinicksure-,$nick,-,$chan),2))) sure ile  engellendi.
      unset $+(%,cezalinick-,$nick,-,$chan) $+(%,cezalinicksure-,$nick,-,$chan)
    }
  }
}
alias zcvr return $replace($1-,secs, sn,mins,dk,min,dk,sec,sn,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta)