Stuff

on *:TEXT:!setevent*:#:{ if ($nick !isop $chan) { notice $nick You need op for this command! | halt } 
  writeini events.ini event $chan $2- 
  writeini events.ini setter $chan $nick 
  set %eventtime $ctime $chan 
  msg $chan New event for $chan $+ : $readini(events.ini,event,$chan) 
} 
on $*:TEXT:/^[!@]event/Si:#:{ 
  set %event $+ $chan $iif($left($1,1) = @, msg $chan, notice $nick) 
  if (!$readini(events.ini,event,$chan)) { %event [ $+ [ $chan ] ] There is no event for $chan $+ ! | halt } 
  %event [ $+ [ $chan ] ] The event for $chan is $readini(events.ini,event,$chan) set $duration($calc($ctime - %eventtime [ $+ [ $chan ] ])) 
  unset %event [ $+ [ $chan ] ] 
} 
on *:TEXT:!endevent*:#:{ if ($nick !isop $chan) { notice $nick You need to be op to use this command! | halt } 
  remini events.ini event $chan 
  unset %eventtime $chan 
  msg $Chan The event has been delted by $nick 
} 

on *:JOIN:#:{ if ($readini(events.ini,event,$chan)) { notice $nick Event for $chan is $readini(events.ini,event,$chan) set $duration($calc($ctime - %eventtime $chan)) $+ . } }