on *:TEXT:!online*:#:{
  if ($nick ishop $chan) || ($nick isop $chan) {
    if ($2 == 1) {
      set %pkwonline1 $nick
      msg $chan Added %pkwonline1 to the online list [!online 1]
    }
    else {
      if ($2 == 2) {
        set %pkwonline2 $nick
        msg $chan Added %pkwonline2 to the online list [!online 2]
      }
      else {
        if ($2 == 3) {
          set %pkwonline3 $nick
          msg $chan Added %pkwonline3 to the online list [!online 3]
        }
      }
    }
  }
}

on *:TEXT:!pkonline*:#:{
  if ($nick isop $chan) || ($nick ishalf $chan) {
    if ($2 == 1) {
      notice $nick %pkwonline1
    }
    else {
      if ($2 == 2) {
        notice $nick %pkwonline2
      }
      else {
        if ($2 == 3) {          
          notice $nick %pkwonline3 
        }
      }
    }
  }
}

on *:TEXT:!pkhelp*:#:{
  msg $nick 7Wiggity's PCW Script V1
  msg $nick !setpkw W#
  msg $nick !suggestpk W# Description
  msg $nick !pkw 
  msg $nick @pkw
  msg $nick !pkonline [1/2/3]
  msg $nick !pkcheck [1/2/3]
  msg $nick !pkoffline [1/2/3]
}

on *:TEXT:!setpkw*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($2 isnum 1-140) {
      set %pkw $2
      set %pkwnick $nick
      set %pkwtime $ctime
      msg $chan 15[7«15 PCW Updated, type !pkw to view 7»15] [7«15 By: %pkwnick 7»15] [7«15 %pkwsuggest2 7»15]
    }
  }
}

on *:TEXT:!pkoffline*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) {  
    if ($2 == 1) {
      notice $nick Removed %pkwonline1 from online list.   
      unset %pkwonline1  
    }
    else { 
      if ($2 == 2) {
        notice $nick Removed %pkwonline2 from online list.      
        unset %pkwonline2
      }
      else {
        if ($2 == 3) {
          notice $nick Removed %pkwonline3 from online list.          
          unset %pkwonline3
        }
      }
    }
  }
}

on *:TEXT:!suggestpk*:#:{
  if ($2 isnum 1-140) {
    set %pkwsuggest World: $2
    set %pkwsuggest2 Description: $3-
    notice $nick Thanks for the suggestion an operator is now reading the suggestion.
    msg %pkwonline1 . %pkwsuggest
    msg %pkwonline1 . %pkwsuggest2
    msg %pkwonline2 . %pkwsuggest
    msg %pkwonline2 . %pkwsuggest2
    msg %pkwonline3 . %pkwsuggest
    msg %pkwonline3 . %pkwsuggest2
  }
}


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

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