on *:TEXT:!setpcw*:#herkle: {
  if ($nick isop #herkle) {
    unset %pcw
    set %pcw $2
    set %pcsettime $ctime
    set $nick %nick
    var %chans = #clvoid,#thevoid
    msg %chans 4There is a new 7PC world 4type 12!pcw4 or 12!world4 to find out.
  }
  else {
    notice $nick 4Sorry only OPs May use this command.
  }
}

on *:TEXT:!pcw*:#clvoid: {
  if (($nick isvoice #clvoid) || ($nick ishop #clvoid) || ($nick isop #clvoid)) {
    notice $nick 2Current 4PC World 2is12 %pcw $+ . 14 --{[ World Set7 $duration($calc($ctime - %pcsettime)) 14ago by7 %nick 14]}--
  }
}
on *:TEXT:!world*:#clvoid: {
  if (($nick isvoice #clvoid) || ($nick ishop #clvoid) || ($nick isop #clvoid)) {
    notice $nick 4World:12 %pcw $+ . 14 --{[ World Set7 $duration($calc($ctime - %pcsettime)) 14ago by7 %nick 14]}--
  }
}