on *:TEXT:!setpcw*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %chan. $+ $chan $chan
    set %event. $+ $chan $2
    set %pcchange. $+ $chan $ctime
    set %nick. $+ $chan $nick
    msg $chan $co2 $+ [ $co1 $+ The Pcw Has Been Changed For $co2 $chan $co1 $+ Please Type $co2 $+ !pcw, $co1 $+ or $co2 $+ !world $co1 $+ To View It! $co2 $+ ]
  }
  else {
    notice $nick You must be halfop or higher to set a pc world.
  }
}
on $*:TEXT:/^(!|@)(world|pcw) */Si:#: { 
  var %output = $iif($left($1,1) == !,.notice $nick,.msg $chan)
  if (%pcchange. [ $+ [ $chan ] ] == $null) { %output A PCW Was never Set for $chan Please type !setpcw to Set one | halt } else {
    %output $co1 $+ The Current Pcw For $co2 %chan. [ $+ [ $chan ] ] $co1 Is $co2 $+ : $co2 $+ %event. [ $+ [ $chan ] ]
    %output $co1 $+ Last Changed By $co2 %nick. [ $+ [ $chan ] ] $co2 $+ : $co1 $+ $duration($calc($ctime - %pcchange. [ $+ [ $chan ] ] )) Ago $co2 $+ $chr(124) $co1 $+ TIMES USED $co2 $+ : $+ $co2 %pnum | inc %pnum ] 
    %output 14[7Scripted by 4Ccaveman8414]
  } 
}
alias co1 { return $+(07,$1-) } 
alias co2 { return $+(04,$1-) }