Anonymous

on *:text:!defcon*:#blitz: {
  if (!$2) {
    .timer 1 1 msg $chan [DEFCON] Current channel DEFCON set at: $iif($readini(defcon.ini,defcon,level) == 1, $($+(4,$readini(defcon.ini,defcon,level),)), $readini(defcon.ini,defcon,level))
    halt
  }
  if ($nick !isop $chan) {
    .timer 1 1 msg $chan Access denied $($+($chr(40),$nick,$chr(41)))
    halt
  }
  if ($2 !isnum 1-4) {
    .timer 1 1 msg $chan [DEFCON] Invalid DEFCON mode (1-4)
    halt
  }
  writeini defcon.ini defcon level $2
  msg $chan [DEFCON] DEFCON set to: $iif($readini(defcon.ini,defcon,level) == 1, $($+(4,$readini(defcon.ini,defcon,level),)), $readini(defcon.ini,defcon,level))  
  echo -a $defcon($2)
  mode $chan $defcon($2)
}
alias defcon {
  if ($1 == 4) {
    echo -a $defcon($2)
    return $regsubex($chan(#blitz).mode,/[fjntrl]/g,)
  }
}