45 function GetType(id
: integer) : integer;
46 function GetLevel(id
: integer) : integer;
47 function GetSpeed(id
: integer) : integer;
48 function GetDamage(id
: integer) : integer;
56 typ
, lvl
, speed
, damage
: array [0..lastTool
] of integer;
58 function GetType(id
: integer) : integer;
63 function GetLevel(id
: integer) : integer;
68 function GetSpeed(id
: integer) : integer;
73 function GetDamage(id
: integer) : integer;
78 procedure InitTool(id
, xtyp
, level
, xspeed
, xdamage
: integer);
83 damage
[id
] := xdamage
;
87 InitTool(pickaxe1
, pickaxe
, 1, 2, 1);
88 InitTool(pickaxe2
, pickaxe
, 2, 3, 1);
89 InitTool(pickaxe3
, pickaxe
, 3, 4, 1);
90 InitTool(pickaxe4
, pickaxe
, 4, 6, 1);
91 InitTool(pickaxe5
, pickaxe
, 5, 6, 1);
92 InitTool(shovel1
, shovel
, 1, 2, 1);
93 InitTool(shovel2
, shovel
, 2, 3, 1);
94 InitTool(shovel3
, shovel
, 3, 4, 1);
95 InitTool(shovel4
, shovel
, 4, 6, 1);
96 InitTool(shovel5
, shovel
, 5, 6, 1);
97 InitTool(axe1
, axe
, 1, 2, 1);
98 InitTool(axe2
, axe
, 2, 3, 1);
99 InitTool(axe3
, axe
, 3, 4, 1);
100 InitTool(axe4
, axe
, 4, 6, 1);
101 InitTool(axe5
, axe
, 5, 6, 1);
102 InitTool(shears1
, shears
, 1, 5, 1);
103 InitTool(sword1
, sword
, 1, 2, 4);
104 InitTool(sword2
, sword
, 2, 3, 5);
105 InitTool(sword3
, sword
, 3, 4, 6);
106 InitTool(sword4
, sword
, 4, 6, 7);
107 InitTool(sword5
, sword
, 5, 6, 7);
108 InitTool(rod1
, rod
, 1, 1, 1);
109 InitTool(lighter1
, lighter
, 1, 1, 1);
110 InitTool(hoe1
, hoe
, 1, 2, 1);
111 InitTool(hoe2
, hoe
, 2, 3, 1);
112 InitTool(hoe3
, hoe
, 3, 4, 1);
113 InitTool(hoe4
, hoe
, 4, 6, 1);
114 InitTool(hoe5
, hoe
, 5, 6, 1);