Mine

on *:TEXT:!online1*:#:{
  if ($nick ishop $chan) || ($nick isop $chan) {
    set %pcwonline1 $nick
    notice $nick Added %pcwonline1 to online list.  
  }
}

on *:TEXT:!online2*:#:{
  if ($nick ishop $chan) || ($nick isop $chan) {
    set %pcwonline2 $nick
    notice $nick Added %pcwonline2 to online list. 
  }
}

on *:TEXT:!online3*:#:{
  if ($nick ishop $chan) || ($nick isop $chan) {
    set %pcwonline3 $nick
    notice $nick Added %pcwonline3 to online list.  
  }
}

on *:TEXT:!checkon*:#:{
  if ($nick isop $chan) || ($nick ishalf $chan) {
    if ($2 == 1) {
      notice $nick %pcwonline1
    }
    else {
      if ($2 == 2) {
        notice $nick %pcwonline2
      }
      else {
        if ($2 == 3) {          
          notice $nick %pcwonline3 
        }
      }
    }
  }
}

on *:TEXT:!pchelp*:#:{
  msg $nick 7Wiggity's PCW Script V1
  msg $nick !setpcw ##
  msg $nick !suggest ## Description
  msg $nick !pcw 
  msg $nick @pcw
  msg $nick !online [1/2/3]
  msg $nick !checkon [1/2/3]
  msg $nick !offline [1/2/3]
}

on *:TEXT:!setpcw*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($2 isnum 1-140) {
      set %pcw $2
      set %pcwnick $nick
      set %pcwtime $ctime
      msg $chan 15[7«15 PCW Updated, type !pcw to view 7»15] [7«15 By: %pcwnick 7»15] [7«15 %pcwsuggest2 7»15]
    }
  }
}

on *:TEXT:!offline*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) {  
    if ($2 == 1) {
      notice $nick Removed %pcwonline1 from online list.   
      unset %pcwonline1  
    }
    else { 
      if ($2 == 2) {
        notice $nick Removed %pcwonline2 from online list.      
        unset %pcwonline2
      }
      else {
        if ($2 == 3) {
          notice $nick Removed %pcwonline3 from online list.          
          unset %pcwonline3
        }
      }
    }
  }
}

on *:TEXT:!suggest*:#:{
  if ($2 isnum 1-140) {
    set %pcwsuggest World: $2
    set %pcwsuggest2 Description: $3-
    notice $nick Thanks for the suggestion an operator is now reading the suggestion.
    msg %pcwonline1 . %pcwsuggest
    msg %pcwonline1 . %pcwsuggest2
    msg %pcwonline2 . %pcwsuggest
    msg %pcwonline2 . %pcwsuggest2
    msg %pcwonline3 . %pcwsuggest
    msg %pcwonline3 . %pcwsuggest2
  }
}


on *:TEXT:!pcw*:#:{
  if ($nick isvoice $chan) || ($nick ishop $chan) || ($nick isop $chan) {
    notice $nick 15[7«15 Current world: %pcw 7»15] [7«15 By: %pcwnick 7»15] [7«15 Set $duration($calc($ctime - %pcwtime)) ago. 7»15]
  }
  else {
    notice $nick Voice+ users may only use this command.
  }
} 

on *:TEXT:@pcw*:#:{
  if ($nick ishop $chan) || ($nick isop $chan) {
    msg $chan 15[7«15 Current world: %pcw 7»15] [7«15 By: %pcwnick 7»15] [7«15 Set $duration($calc($ctime - %pcwtime)) ago. 7»15]
  }
  else {
    notice $nick Voice+ users may only use this command.
  }
}