ExampleofPCWS

This is what the channel #woot's script would look like:

on $*:text:/^[!]setpcw #woot */Si:#: {
  if ($nick isop #) || ($nick ishop #) {
    set %pccwoot $ctime
    set %pcwoot $3-
    notice $nick The new pc-world for $chan has been set as %pcwoot
    msg # [4Pc-World Update1] 12New world for $chan $+ : $3- 4( $+ $nick $+ )
  } 
}
on *:Text:!pcw #woot *:#: {
  if (!%pcwoot) notice $nick The pc-world for $chan is not set
  notice $nick The current pc-world for $chan is: %pcwoot - Last update: $duration($calc($ctime - %pccwoot)) ago
}

----------------------------------------------------------------------------------
This is the normal setting:

on $*:text:/^[!]setpcw #CHANNEL */Si:#: {
  if ($nick isop #) || ($nick ishop #) {
    set %pccCHANNEL $ctime
    set %pcCHANNEL $3-
    notice $nick The new pc-world for $chan has been set as %pcCHANNEL
    topic $chan TOPIC DESIGN WITH $3- IN THE TOPIC WHERE THE WORLD GOES!
    msg # [4Pc-World Update1] 12New world for $chan $+ : $3- 4( $+ $nick $+ )
  } 
}
on *:Text:!pcw #CHANNEL *:#: {
  if (!%pcCHANNEL) notice $nick The pc-world for $chan is not set
  notice $nick The current pc-world for $chan is: %pcCHANNEL - Last update: $duration($calc($ctime - %pccCHANNEL)) ago
}