Someone

on *:TEXT:!setpcw*:#:{ 
  if ($nick isop $chan || $nick = Gsus || $nick ishop $chan) && ($2 isnum 2-132) { 
    set %pcw.nick. [ $+ [ $chan ] ] $nick 
    set %pcw.world. [ $+ [ $chan ] ] $2 
    set %pcw.time. [ $+ [ $chan ] ] $ctime 
    msg $chan 12The current pc-world has been changed in4 $chan 12! - 3Type: 10!pc/!pcw
  } 
  else { 
    notice $nick 12pick a member world.
  } 
} 
on $*:TEXT:/^[!@.](pc(w)?|world)/Si:#:{
notice $nick 4Current PcWorld:4 12 %pcw.world. [ $+ [ $chan ] ] $+ , 12was set by:12 4 %pcw.nick. [ $+ [ $chan ] ] 12and was set:12 4 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) 12ago. } 
}