procedure NodeSkillList1 begin
variable skill;
if next_spot_open > 4 then
next_spot_open:=0;
sentence:="Which skill do you want me to focus on? Currently I'm focusing on ";
foreach skill in get_array(party_skill_focus, obj_pid(self_obj)) begin
sentence+=skill_focus_message(skill) + ", ";
end
sentence+="in that order.";
Reply(sentence);
NOption(skill_focus_message(SKILL_UNARMED_COMBAT), NodeSkillUnarmed, 001);
//if not is_quadruped(self_obj) then begin
NOption(skill_focus_message(SKILL_SMALL_GUNS), NodeSkillSmallGuns, 001);
NOption(skill_focus_message(SKILL_BIG_GUNS), NodeSkillBigGuns, 001);
NOption(skill_focus_message(SKILL_RIFLES), NodeSkillRifles, 001);
NOption(skill_focus_message(SKILL_MELEE), NodeSkillMelee, 001);
NOption(skill_focus_message(SKILL_FIRST_AID), NodeSkillFirstAid, 001);
NOption("[Next options.]", NodeSkillList2, 001);
NOption("Nah, you're fine.", Node999, 001);
//end else begin
//end
end
procedure NodeSkillList2 begin
Reply(sentence);
NOption(skill_focus_message(SKILL_DOCTOR), NodeSkillDoctor, 001);
//NOption(skill_focus_message(SKILL_TRAPS), NodeSkillTraps, 001);
NOption(skill_focus_message(SKILL_SNEAK), NodeSkillSneak, 001);
NOption(skill_focus_message(SKILL_SCIENCE), NodeSkillScience, 001);
//if not is_robot(self_obj) then begin
NOption(skill_focus_message(SKILL_REPAIR), NodeSkillRepair, 001);
NOption(skill_focus_message(SKILL_OUTDOORSMAN), NodeSkillOutdoorsman, 001);
NOption(skill_focus_message(SKILL_BARTER), NodeSkillBarter, 001);
//NOption(mstr_skill(100 + SKILL_LOCKPICK), NodeSkillLockpick, 001);
//NOption(mstr_skill(100 + SKILL_STEAL), NodeSkillSteal, 001);
NOption("[Previous options.]", NodeSkillList1, 001);
NOption("Nah, you're fine.", Node999, 001);
end