Mine

on *:TEXT:!event*:#leetscape: {
  msg $chan 12Go to 4#leetscape12 to find out the current event!
}

on *:TEXT:!setworld *:#leetscape:{ if (($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) iswm $address($me,2)) && ($2- isnum 2-138)) {
    set $+(%,lsww.,$chan) $2- | set $+(%,lsww.,$chan,.nick) $nick | set $+(%,lsww.,$chan,.time) $ctime |
    msg $chan 12New event world! || $eval($+(%,lsww.,$chan),2) $+  || Set by: $eval($+(%,lsww.,$chan,.nick),2) $+ ! 
    Type !event to veiw the world.
  }
}

on *:TEXT:!setevent *:#leetscape:{ if (($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) iswm $address($me,2))) ($2- == lsw) {
    set $+(%,lsw.,$chan) $2- | set $+(%,lsw.,$chan,.nick) $nick | set $+(%,lsw.,$chan,.time) $ctime | 
    msg $chan 12New event! || $eval($+(%,lsw.,$chan),2) $+  || Set by: $eval($+(%,lsw.,$chan,.nick),2) $+ !
    Type !event to view the event.
  }
}

on *:text:!event:#leetscape: {
  .notice $nick 12Current World: 4 $eval($+(%,lsww.,$chan),2) $+ 
  .notice $nick 4Current Event: 12 $eval($+(%,lsw.,$chan),2) $+ 
} 



on *:text:@event:#leetscape: {
  msg $chan 14World: 4 $eval($+(%,lsww.,$chan),2) $+ 
  msg $chan 14Event: 7 $eval($+(%,lsw.,$chan),2) $+ 
} 
}