on *:TEXT:!eventoff*:#:{ if ($nick isop $chan) {
    msg $chan 4Events Off for $chan 
    set $+(%,escript,off,$chan)
unset $+(%,escript,on,$chan) } } 

on *:TEXT:!eventon*:#:{ if ($nick isop $chan) {
    msg $chan 4Events On for $chan 
    set $+(%,escript,on,$chan)
unset $+(%,escript,off,$chan) } }

on *:TEXT:!setevent*:#:{ if ($+(%,escript,off,$chan),2) { notice $nick Event is off at the moment for $chan . Sorry for inconvience }
  if ($+(%,escript,on,$chan),2) && ($2 isnum 1-138) && ($nick isop $chan) || ($nick ishop $chan) {
    msg $chan 4New Event1 - !event to view 
    unset $+(%,world,$chan)  
    unset $+(%,time,$chan)
    unset $+(%,event,$chan)
    unset $+(%,eventsetter,$chan)
    set $+(%,world,$2,$chan)  
    set $+(%,time,$3,$chan)
    set $+(%,event,$4-,$chan)
    set $+(%,eventsetter,$nick,$chan)
    if ($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 } } }

on *:TEXT:!event*:#:{ if $($+(%,escript,off,$chan),2) { notice $nick Event is off at the moment for $chan : Sorry for inconvience }
  if $($+(%,escript,on,$chan),2) && $($+(!%,event,$chan),2) || $($+(!%,time,$chan),2) || $($+(!%,world,$chan),2) || $($+(!%,eventsetter,$chan),2) {
  notice $nick No event is set at the moment. You can suggest an event by messaging an active op/hop } 
  if $($+(%,escript,off,$chan),2) && $($+(%,event,$chan),2) && $($+(%,time,$chan),2) && $($+(%,world,$chan),2) && $($+(%,eventsetter,$chan),2) { halt }
  elseif $($+(%,escript,on,$chan),2) && $($+(!%,event,$chan),2) || $($+(!%,time,$chan),2) || $($+(!%,world,$chan),2) || $($+(!%,eventsetter,$chan),2) {
notice $nick 14Event set for2 $chan 14is:- 7World:2 ((%,world,$chan),2) 7 Time:2 ($+(%,time,$chan),2) 7Event:2 ($+(%,event,$chan),2) 14Event set by:2 ($+(%,eventsetter,$chan),2)  } }

on *:TEXT:!endevent*:#:{ if $($+(%,escript,off,$chan),2) { 
  msg $chan Event is off at the moment. Sorry for inconvience }
  if $($+(%,escript,on,$chan),2) && ($nick isop $chan) || ($nick ishop $chan) {
    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)
unset $+(%,eventsetter,$chan) } }


on *:TEXT:!evhelp*:#:{ if ($nick isop $chan) || ($nick ishop $chan) {
    msg $nick To set event: !setevent <world> <time> <event>
    msg $nick Time should be in GMT. Time can also be set as Now or Present etc.
    msg $nick TIME SHOULD NOT BE SET IN 1+ WORDS eg Right Now, In 22 minutes
    msg $nick Once the event is over use !endevent 
msg $nick Fr333_Wh1p is the only user who can set event script on } }