Kod

on *:text:*:#mirchelp: {
  if $nick($chan,$nick,.~&@%).pnick { return }
  if $istok(Muafnick1 MuafNick2 MuafNick3,$nick,32) { return }
  if $isupper($karaktertemizle($strip($1-))) {
    inc -u300 $+(%,BüyükHarfUyarı.,$nick)
    if $eval($+(%,BüyükHarfUyarı.,$nick),2) = 2 { msg $chan $nick Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir. | ban -u120 $chan $nick }
    elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 3 { msg $chan $nick Büyük harf kullanımı yasaktır. Devam ederseniz sunucuda susturulacaksınız. }
    elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 4 { Shun $nick Sunucu kurallarına uymadıgınız için shunlandınız. Lütfen kurallara uyun. }
  }
}
alias karaktertemizle { return $remove($1-,$chr(33),$chr(34),$chr(35),$chr(36),$chr(37),$chr(38),$chr(39),$chr(40),$chr(41),$&
    $chr(42),$chr(43),$chr(44),$chr(45),$chr(46),$chr(47),$chr(58),$&
    $chr(59),$chr(60),$chr(61),$chr(62),$chr(63),$chr(123),$chr(124),$chr(125),$chr(126),$&
    $chr(127),$chr(128),$chr(129),$chr(130),$chr(131),$chr(132),$chr(133),$chr(134),$chr(135),$&
    $chr(136),$chr(137),$chr(138),$chr(139),$chr(140),$chr(145),$chr(146),$chr(147),$chr(148),$chr(149),$chr(150))
}