Mine

alias c1 { return $+(12,$1-) }
alias c2 { return $+(04,$1-) } 

alias c1 { return $+(12,$1-) }
alias c2 { return $+(04,$1-) }
on *:TEXT:!setevent*:#: {
  if ($nick isop $chan) {
    set %event [ $+ [ $chan ] ] $2-
    set %eventsetter [ $+ [ $chan ] ] $nick
    msg $chan $c2($nick) $c1(has changed the event for) $c2($chan) $+ $c1(. Type !event to view it.)
  }
  else {
    notice $nick $c1(Sorry, only) $c2(ops) $c1(can use that command.)
  }
}
on $*:TEXT:/^[!@]event/Si:#: {
  set %eventreturn $iif($left($1,1) == @,msg $chan, notice $nick)
  if (%event [ $+ [ $chan ] ] !== $null) {
    %eventreturn $c1(The current event for) $c2($chan) $c1(is:) $c2(%event [ $+ [ $chan ] ]) $c1(set by) $c2(%eventsetter [ $+ [ $chan ] ])
  }
  else {
    %eventreturn $c1(There is currently no event for) $c2($chan) $+ $c1(.)
  }
}
on *:TEXT:!delevent:#: {
  if ($nick isop $chan) && (%event [ $+ [ $chan ] ] !== $null) {
    unset %event [ $+ [ $chan ] ]
    unset %eventsetter [ $+ [ $chan ] ]
    msg $chan $c2($nick) $c1(has deleted the event for) $c2($chan) $+ $c1(. Type !setevent to set a new one.)
    halt
  }
  if ($nick isop $chan) && (%event [ $+ [ $chan ] ] == $null) {
    notice $nick $c1(You can't delete non-existant events!)
  }
  else {
    notice $nick $c1(Sorry, only) $c2(ops) $c1(can use that command.)
  }
}