on $*:text:!pc*/:#fc: {  
  if ($regex($3,/^at(t|k|tack)$/Si)) set %skill Attack 
  elseif ($regex,/^def(en[cs]e)?$$/Si)) set %skill Defence 
  elseif ($regex,/^str(ength)?$/Si)) set %skill Strength 
  elseif ($regex,/^hp|hit(s|points?)?$/Si)) set %skill Hitpoints 
  elseif ($regex,/^range(r|d|ing)?$/Si)) set %skill Ranged 
  elseif ($regex,/^pray(er)?$$/Si)) set %skill Prayer 
  elseif ($regex,/^mag(e|ic)$$/Si)) set %skill Magic 
  else { %target Please state a correct combat skill. | halt } 

  if ($2 < 1) || ($2 > 99) { 
    halt 
  } 

  if (%skill != Prayer) { 
    set %skill2 $calc(( $2 * $2 )/6) 
    if ($2 > 1) || ($2 < 99) { 
    %target You will get $int(%skill2) exp per PC point. } 
  } 
  else { set %prayer $calc(($2 * $2)/12) 
    if ($2 > 1) || ($2 < 99) { 
    %target You will get $int(%prayer) exp per PC point. } 
  } 

  unset %skill | unset %skill2 | unset %prayer | unset %target 
}