Something

alias -l c1 return $+(14,$1-,)
alias -l c2 return $+(07,$1-,)

on *:TEXT:!defineworld*:#pestops: {
  if ($nick isop #) || ($nick ishop #) && ($$2 isnum) {
    set %ownpc $$2
    set %ownpc $+ .time $ctime
    set %ownpc $+ .nick $nick
    /notice $nick New PC world set to %ownpc
    /msg #pest $c2(The current) $c1(pc-world) $c1(has been changed!) $c1(-) $c2(Type: !world)
  }
}
on $*:text:/^[@!]world/Si:#pest,#pestops,#kaz,#savage,#dyer&sam: {
  /notice $nick $c1(Current PC World:) $c2(%ownpc) $+ $c1(- Last Update:) $c2($duration($calc($ctime - $eval($+(%,ownpc,.time),2)))) 
}

on *:DISCONNECT: {
  unset %ownpc
  unset %verify
  unset %colour1
  unset %colour2
  unset %colour3
  unset %avoice
}