on *:TEXT:!setworld *:?: {
  if ($nick isop #pcpc) || ($address($nick,2) == $address($me,2)) {
  set %setby $nick
  set %pcworld. [ $+ [ #pcpc ] ] $2
  msg #pcpc 0,1 $+ $nick has changed the world, type 7!world0 to see it!
  }
}  
on *:TEXT:!World:#pcpc: { 
  if ($nick !isreg $chan) /notice $nick 0,1 Pc world is7 %pcworld. [ $+ [ #Pcpc ] ] 0,1and was set by7 %setby 0,1Used:7 %somevar 
  inc %somevar
}