Set PCW/PCW

on *:text:!spcw*:#:{
  if ($nick !isop #taom && $nick !ishop #taom) { notice $nick 12You cannot use this command unless you are an 4Operator12/4Half-Operator12. | halt }
  else {
    set %pcw.world $2 | set %pcw.nick $nick | set %pcw.time $ctime
    notice $nick 12You have just4 changed 12the 4Pest Control World 12in TAOM to4 %pcw.world $+ 12.
    msg #taom 1|PC-World Update|12 New World!4 Type !pcw / !world 1(12 %pcw.nick 1)
} }
on $*:text:/^!(pcw|world|pcworld)/i:#taom:{
  notice $nick 1- 12Pest Control World:4 %pcw.world 1- 12Set By:4 %pcw.nick 1- 12Time Since:4 $duration($calc($ctime - %pcw.time)) 1-
}
on $*:text:/^@(pcw|world|pcworld)/i:#taom:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    msg # 1- 12Pest Control World:4 %pcw.world 1- 12Set By:4 %pcw.nick 1- 12Time Since:4 $duration($calc($ctime - %pcw.time)) 1-
  }
  else { notice $nick 12You cannot use the 4@12 form of this command unless you are an 4Operator12/4Half-Operator12.
} }