marpis
2009-12-12 16:44:08
How should we use them? My suggestion:
const
P_Activities = 0;
P_CurrentActivity = 0;
P_SkillItems = 1;
P_CurrentItem = 1;
P_SkillObjects = 2;
P_CurrentObject = 2;
Activities
Players[0].Arrays[P_Activities] := [Act_Varrock_WoodCutting_East, Act_Varrock_Mining_East];
Players[0].Integers[P_CurrentActivity] := Act_WoodCuttingEast;
We'll make it possible to change the skill during runtime.
Skill specific items
Players[0].Arrays[P_SkillItems] := [Hatchet_Rune, Logs];
Players[0].Integers[P_CurrentItem] := Hatchet_Rune;
SkillObjects
Players[0].Arrays[P_SkillObjects] := [Obj_Yew, Obj_Oak];
Players[0].Integers[P_CurrentObject] := Obj_Yew;
And then have a DeterminePlayerInfo function
* to be continue, g2g *
const
P_Activities = 0;
P_CurrentActivity = 0;
P_SkillItems = 1;
P_CurrentItem = 1;
P_SkillObjects = 2;
P_CurrentObject = 2;
Activities
Players[0].Arrays[P_Activities] := [Act_Varrock_WoodCutting_East, Act_Varrock_Mining_East];
Players[0].Integers[P_CurrentActivity] := Act_WoodCuttingEast;
We'll make it possible to change the skill during runtime.
Skill specific items
Players[0].Arrays[P_SkillItems] := [Hatchet_Rune, Logs];
Players[0].Integers[P_CurrentItem] := Hatchet_Rune;
SkillObjects
Players[0].Arrays[P_SkillObjects] := [Obj_Yew, Obj_Oak];
Players[0].Integers[P_CurrentObject] := Obj_Yew;
And then have a DeterminePlayerInfo function
Procedure DeterminePlayerInfo;
Begin
Case Players[CurrentPlayer].Integers[P_CurrentActivity] Of
Act_Varrock_WoodCutting_East:
Begin
Case GetLevel(Skill_WoodCutting, False) Of
1..14: Players[0].Arrays[P_SkillObjects] := [Obj_Tree];
15..99: Players[0].Arrays[P_SkillObjects] := [Obj_Tree, Obj_Oak];
End;
Players[0].Arrays[P_SkillItems] := [Logs];
End;
End;
* to be continue, g2g *