Someone

on $*:TEXT:/^[!@](setworld|setpcw) */Si:#bh_ops: {
  if ($nick isop #bh_ops) || ($nick ishop #bh_ops) {
    set %pkworld $2
    if ($3) { set %scout $3 }
    else { set %scout $nick } 
    set %Pcnick $nick
    msg #blazing_hearts 14the pcworld has been changed by4 $nick 14type 4!world 14or 4!pcw 14to see it
  } 
}
on $*:TEXT:/^[!@](world|pcw) */Si:#blazing_hearts: {
  if (%pkworld == $null) notice $nick 14Sorry, but there is no world set.
  elseif ($nick isvoice #blazing_hearts) || ($nick ishop #blazing_hearts) || ($nick isop #blazing_hearts) || ($nick isop #blazing_hearts) {
    inc %pccount
    notice $nick %pkworld 14is the recommended world on4 #blazing_hearts 14set by4 %pcnick $+ . 14And was scouted by4 %scout 14used4 %pccount 14times 13(4Happy pcing13)
  }
}