alias -l c1 { return $+($chr(3),10,$1-) }
alias -l c2 { return $+($chr(3),07,$1-) }
on *:TEXT:!setevent*:#:{ 
  set %date $date
set %setevent [ $+ [ $chan ] ] Event $2- }
if {
($nick isop $chan || $nick ishop $chan) } 
msg $chan $c1(««) $c2(EVENT:) $c1(»») $c1 The event for $c2($chan) $c1(is:) $c2(%setevent [ $+ [ $chan ] ])
}
else{
msg $nick 10Sorry only Half OP's can do that, Please speak with council to set an event 
}
}
on $*:TEXT:/^[!@]event ?/Si:#: { 
$iif($left$1,1)== @,msg $chan,notice $nick)
notice $nick $c1(««) $c2(EVENT:) $c1(»») $c1(The current event for) $c2($chan) $c1(is:) $c2(%setevent [ $+ [ $chan ] ]) $c1(Set on) $c2(%date)
}
}