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

  if ($2 < 1) || ($2 > 99) { 
    %target You must state a level between 1 and 99. 
    halt 
  } 

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

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