if(fixed_param == COMBAT_SUBTYPE_HIT_SUCCEEDED)then begin
wpn := critter_inven_obj(dude_obj,1) + critter_inven_obj(dude_obj,2);
if(obj_pid(wpn) == PID_SPEAR)then begin
inven_unwield(dude_obj);
rm_obj_from_inven(dude_obj, wpn);
destroy_object(wpn);
end
end...