on *:TEXT:!setpcw *:*:{
  if ($nick isop $chan) || ($nick ishop $chan) { 
    if ($2- isnum 2-138) { 
      set $+(%,pcw.,$chan) $2- | set $+(%,pcw.,$chan,.nick) $nick | set $+(%,pcw.,$chan,.time) $ctime | 
      .msg $chan 11New PCW! 13The New PCW was Set by 11 $eval($+(%,pcw.,$chan,.nick),2) $+ ! 13Type 11!pcw 13To View the Updated World. 
    } 
  } 
} 
on *:TEXT:@pcw*:*:{
  if ($nick isop $chan) || ($nick ishop $chan) { 
    .msg $chan 11The PCW For13 $chan 11is Currently:13 $eval($+(%,pcw.,$chan),2) $+ . 11And Was Last Set13 $duration($calc($ctime - $($+(%,pcw.,$chan,.time),2))) 11ago by13 $($+(%,pcw.,$chan,.nick),2) $+ . 
  }
} 
on *:TEXT:@world*:*:{
  if ($nick isop $chan) || ($nick ishop $chan) { 
    .msg $chan 11The PCW For13 $chan 11is Currently:13 $eval($+(%,pcw.,$chan),2) $+ . 11And Was Last Set13 $duration($calc($ctime - $($+(%,pcw.,$chan,.time),2))) 11ago by13 $($+(%,pcw.,$chan,.nick),2) $+ . 
  }
} 
on *:TEXT:!world*:#:{ 
notice $nick 11The PCW For13 $chan 11is Currently:13 $eval($+(%,pcw.,$chan),2) $+ . 11And Was Last Set13 $duration($calc($ctime - $($+(%,pcw.,$chan,.time),2))) 11ago by13 $($+(%,pcw.,$chan,.nick),2) $+ . }  
on *:TEXT:!pcw*:#:{
notice $nick 11The PCW For13 $chan 11is Currently:13 $eval($+(%,pcw.,$chan),2) $+ . 11And Was Last Set13 $duration($calc($ctime - $($+(%,pcw.,$chan,.time),2))) 11ago by13 $($+(%,pcw.,$chan,.nick),2) $+ . }