on $*:TEXT:/^[!.]event/Si:#:{  
  inc %pcwused 1 
notice $nick The event3 $chan is currently3 $readini(pcw.ini,worlds,$chan) set by3 $readini(pcws.ini,Chansetter,$chan) approximately3 $duration($calc($ctime - %pcwTime $chan)) ago. } 

on $*:TEXT:/^[!@.]setevent/Si:#:{ if ($nick isop $chan) { 
    writeini pcw.ini Worlds $chan $2- 
    set %pcwTime $ctime $chan 
    writeini pcws.ini ChanSetter $chan $nick 
    msg $chan The 3event has been changed to3 $2- by3 $nick $+ . 
  } 
}