on *:TEXT:!setpc*:#:{
  if ( $nick isop $chan ) || ( $nick ishop $chan ) {
    set %lastpcw [ $+ [ $chan ] ] %pcw [ $+ [ $chan ] ]
    set %pcw [ $+ [ $chan ] ] $2-
    set %pcwsetter [ $+ [ $chan ] ] $nick
    msg $chan 9,1 A new PCW has been set. Type !pcw or !world to view.
    msg want_a_pie 9,1 $nick has changed PCW, New world is %pcw [ $+ [ $chan ] ] $+ .
    msg s010910 9,1 $nick has changed PCW, New world is %pcw [ $+ [ $chan ] ] $+ .
  }
}
on *:TEXT:!pcw:#:{
  notice $nick 9,1 The current PCW is %pcw [ $+ [ $chan ] ] set by %pcwsetter [ $+ [ $chan ] ] $+ . Last world %lastpcw [ $+ [ $chan ] ] $+ .
}
on *:TEXT:!world:#:{
  notice $nick 9,1 The current PCW is %pcw [ $+ [ $chan ] ] set by %pcwsetter [ $+ [ $chan ] ] $+ . Last world %lastpcw [ $+ [ $chan ] ] $+ .
}
on *:TEXT:@pcw:#:{
  if ( $nick isop $chan ) || ( $nick ishop $chan ) {
    msg 9,1 $chan The current PCW is %pcw [ $+ [ $chan ] ] set by %pcwsetter [ $+ [ $chan ] ] $+ . Last world %lastpcw [ $+ [ $chan ] ] $+ .
  }
}
on *:TEXT:@world:#:{
  if ( $nick isop $chan ) || ( $nick ishop $chan ) {
    msg $chan 9,1 The current PCW is %pcw [ $+ [ $chan ] ] set by %pcwsetter [ $+ [ $chan ] ] $+ . Last world %lastpcw [ $+ [ $chan ] ] $+ .
  }
}
on *:TEXT:!suggest*:#:{
  msg $chan 9,1 $nick has suggested the world $2-, please check it out!
  set %suggested $2-
  set %suggester $nick
}
on *:TEXT:!suggested:#:{
  msg $nick 9,1 The last suggested world was %suggested by %suggester