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
  }
}
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
  }
}
on *:TEXT:!setpcw*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {    
    set %world $2
    set %nic $nick
    inc $+(%,count.,$nick) 1
    /msg $chan 12the pcw has been changed by4 $nick 12to view the PC world please type4 !pcw
  }
}
on *:Text:!sets *:#:{ 
 If (!$($+(%,count.,$2),2)) { notice $nick That $2 Hasnt Set any Worlds | halt } 
 if (!$2) { notice $nick You have Set $($+(%,count.,$nick),2) Worlds | halt }
notice $nick $2 has set $($+(%,count.,$2),2) Worlds
}