Mine

on *:TEXT:!pcw*:#:{
  /set %used $calc((%used) + 1)
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    /notice $nick 12The 4PC World 12is 4 %world 12 set by 4 %nic 12- Used4 %used 12Times. To change the World type !setpcw
  }
  else {
    /notice $nick 12The 4PC World 12is 4 %world 12 set by 4 %nic 12- Used4 %used 12Times.
  }
}
on *:TEXT:!world*:#:{
  /set %used $calc((%used) + 1)
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    /notice $nick 12The 4PC World 12is 4 %world 12 set by 4 %nic 12- Used4 %used 12Times. To change the World type !setpcw
  }
  else {
    /notice $nick 12The 4PC World 12is 4 %world 12 set by 4 %nic 12- Used4 %used 12Times.
  }
}
on *:TEXT:!setpcw*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {    
    set %world $2
    set %nic $nick
    %inc %.count. $+ $nick
    /msg $chan 12the pcw has been changed by4 $nick 12to view the PC world please type4 !pcw
  }
on *:Text:!sets *:#:{ 
 If (!%.count. $+ $2-) notice $nick That $2 Hasnt Set any Worlds 
 else notice $nick That user has set %.count. $+ $2 Worlds 
 if (!$2) notice $nick You have Set %.count. $+ $nick Worlds 
}