Mine

on *:TEXT:!event off*:#:{ if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Mellie) {
    msg $chan 4Events Off for $chan 
    unset %escript [ $+ [ $chan ] ] on 
set %escript [ $+ [ $chan ] ] off } } 

on *:TEXT:!event on*:#:{ if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Mellie) {
    msg $chan 4Events On for $chan 
    unset %escript [ $+ [ $chan ] ] off
set %escript [ $+ [ $chan ] ] on } }

on *:TEXT:!setevent*:#:{ if (%escript [ $+ [ $chan ] ] == on) && ($2 !isnum 1-138) { 
    notice $nick Since when is $2 a world? To set event: !setevent <world> <time> <event> 
    notice $nick This did not set a new event.. 
  notice $nick You SHOULD use !evhelp for more information on time }
  if (%escript [ $+ [ $chan ] ] == on) && ($2 isnum 1-138) && ($nick isop $chan) || ($nick ishop $chan) || ($nick == Mellie) {
    msg $chan 4New Event1 - !event to view 
    unset %world [ $+ [ $chan ] ] | unset %time [ $+ [ $chan ] ] | unset %event [ $+ [ $chan ] ] | unset %eventsetter [ $+ [ $chan ] ]
  set %world [ $+ [ $chan ] ] $2 | set %time [ $+ [ $chan ] ] $3 | set %event [ $+ [ $chan ] ] $4- | set %eventsetter [ $+ [ $chan ] ] $nick }
elseif (%escript [ $+ [ $chan ] ] == off) { notice $nick Event is off at the moment for $chan . Sorry for inconvience } }

on *:TEXT:!event*:#:{ if (%escript [ $+ [ $chan ] ] == off) { notice $nick Event is off at the moment for $chan : Sorry for inconvience }
  if (%escript [ $+ [ $chan ] ] == on) && (!%world [ $+ [ $chan ] ]) || (!%time [ $+ [ $chan ] ]) || (!%event [ $+ [ $chan ] ]) || (!%eventsetter [ $+ [ $chan ] ]) {
  notice $nick No event is set at the moment. You can suggest an event by messaging an active op/hop } 
  if (%escript [ $+ [ $chan ] ] == off) && (%world [ $+ [ $chan ] ]) && (%time [ $+ [ $chan ] ]) && (%event [ $+ [ $chan ] ]) && (%eventsetter [ $+ [ $chan ] ]) { halt }
  elseif (%escript [ $+ [ $chan ] ] == on) && (%world [ $+ [ $chan ] ]) && (%time [ $+ [ $chan ] ]) && (%event [ $+ [ $chan ] ]) && (%eventsetter [ $+ [ $chan ] ]) {
    notice $nick 14Event set for2 $chan is:- 7World:2 %world [ $+ [ $chan ] ] 7Time:2 %time [ $+ [ $chan ] ] 7Event:2  %event [ $+ [ $chan ] ] 14Event set by:2 %eventsetter [ $+ [ $chan ] ] 4 $($+($chr(167),$chr(169),$chr(174),$chr(161),$chr(222),$chr(84),$chr(51),$chr(208),$chr(32),$chr(51),$chr(253),$chr(32),$chr(91),$chr(45),$chr(71),$chr(111),$chr(100),$chr(45),$chr(93))) 
} }

on *:TEXT:!endevent*:#:{ if (%escript [ $+ [ $chan ] ] == off) { 
  msg $chan Event is off at the moment, contact an op to turn event on }
  if (%escript [ $+ [ $chan ] ]  == on) && ($nick isop $chan) || ($nick ishop $chan) || ($nick == Mellie) {
    msg $chan The event has ended. To suggest an event PM an active Halfop or Operator 
  unset %world [ $+ [ $chan ] ] | unset %time [ $+ [ $chan ] ] | unset %event [ $+ [ $chan ] ] | set %eventsetter [ $+ [ $chan ] ] }
}
on *:TEXT:!evhelp*:#:{ if ($nick isop $chan) || ($nick ishop $chan) {
    msg $nick To set event: !setevent <world> <time> <event>
    msg $nick Time can also be set as Now or Present etc but should not be set in 2 or more words
    msg $nick Once the event is over use !endevent
} }