on *:Text:!pcon:#: set %pcw on
on *:Text:!pcoff:#: set %pcw off

on *:TEXT:!pcw:#:{ 
  if (%pcw == on) {
    .notice $nick   12 The Current World Is    4 $+( ,%pc,)  12This world was set 3 $duration($calc($ctime - %pcc $ctime)))     12ago. [ Set by      $+( ,%pcnick,)   ] !Pcw command has been used        $+( ,%pcwcount,)  times so far!
    /inc %pcwcount
  }
}

on *:TEXT:!world:#:{ 
  if (%pcw == on) {
    .notice $nick   12 The Current World Is    4 $+( ,%pc,)  12This world was set 3 $duration($calc($ctime - %pcc $ctime)))     12ago. [ Set by      $+( ,%pcnick,)   ] !Pcw command has been used        $+( ,%pcwcount,)  times so far!
    /inc %pcwcount
  }
}


on *:TEXT:!setpcw *:#:{
  if (%pcw == on) {
    if ($nick isop $chan) || ($nick ishop $chan)  { 
      /set -s %pc $2 
      /set -s %pcnick $nick
      /unset %pcc $ctime
      /set %pcc $ctime
      /notice $nick The new world is $2
      /msg $chan   4 The world has been changed!! Type !pcw to see the new world
    }
    else { /notice $nick You are not allowed to set a world, only operators are. } 
  }
}