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) { 1,4notice $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)) $+ . } }