on *:TEXT:!pcw:#: {
  notice $nick 7The current pc world is4 %pcw [ $+ [ $chan ] ] $+ 7. It was set by4 %pcc [ $+ [ $chan ] ] $+ 7,4 $duration($calc($ctime - %pctime [ $+ [ $chan ] ]))
}
on *:TEXT:!world:#: {
  notice $nick 7The current pc world is4 %pcw [ $+ [ $chan ] ] $+ 7. It was set by4 %pcc [ $+ [ $chan ] ] $+ 7,4 $duration($calc($ctime - %pctime [ $+ [ $chan ] ]))
  ago.
}
on *:TEXT:@world:#: {
  msg $chan 7The current pc world is4 %pcw [ $+ [ $chan ] ] $+ 7. It was set by4 %pcc [ $+ [ $chan ] ] $+ 7,4 $duration($calc($ctime - %pctime [ $+ [ $chan ] ]))
}
on *:TEXT:@pcw:#: {
  msg $chan 7The current pc world is4 %pcw [ $+ [ $chan ] ] $+ 7. It was set by4 %pcc [ $+ [ $chan ] ] $+ 7,4 $duration($calc($ctime - %pctime [ $+ [ $chan ] ]))
}
on *:TEXT:!setpcw*:#: {
  if $nick isOp $chan || $nick isHop $chan || $nick isVoice $chan && $2 isnum {
    msg $chan 7The world has been changed by4 $nick $+ 7. Type 4!pcw7 to check the world.
    set %pcw [ $+ [ $chan ] ] $2
    set %pcc [ $+ [ $chan ] ] $nick
    set %pctime [ $+ [ $chan ] ] $ctime
  }
}