Excellent, that works.
procedure start;
procedure start begin
if(has_skill(dude_obj, 05)<(has_skill(dude_obj, 04)/2)) then begin
critter_mod_skill(dude_obj, 05, (has_skill(dude_obj, 04)/2)-has_skill(dude_obj,5));
end
if(has_skill(dude_obj, 04)<(has_skill(dude_obj, 05)/2))...