on *:TEXT:!change *:#:{
  if ($nick isop $chan) {
    set %pctime. [ $+ [ $chan ] ] $ctime
    set %pcnick. [ $+ [ $chan ] ] $nick
    set %pcworld. [ $+ [ $chan ] ] $2-
    msg $chan 7|'|'|'|'|'|1PC World is changed to12 $2- 1by4 $nick 7|'|'|'|'|'|
  }
  else {
    notice $nick You cannont change the world!
  }
}

on *:TEXT:.pcw:#:{
  notice $nick 1Current PC World:7 %pcworld.   [ $+ [ $chan ] ] 12--Last Update: $+($duration($calc($ctime - %pctime.  [ $+ [ $chan ] ]  )),) ago
  notice $nick 1This world was set by:4 %pcnick.   [ $+ [ $chan ] ]
}

on *:TEXT:@pcw:#:{
  msg $chan 1Current PC World:7 %pcworld.   [ $+ [ $chan ] ] 12--Last Update: $+($duration($calc($ctime - %pctime.  [ $+ [ $chan ] ]  )),) ago
  msg $chan 1This world was set by:4 %pcnick.    [ $+ [ $chan ] ]
}