Something

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