src/Tools.pas

   1 unit Tools;
   2
   3 interface
   4
   5   const
   6     pickaxe1 = 0;
   7     pickaxe2 = 1;
   8     pickaxe3 = 2;
   9     pickaxe4 = 3;
  10     pickaxe5 = 4;
  11     shovel1 = 5;
  12     shovel2 = 6;
  13     shovel3 = 7;
  14     shovel4 = 8;
  15     shovel5 = 9;
  16     axe1 = 10;
  17     axe2 = 11;
  18     axe3 = 12;
  19     axe4 = 13;
  20     axe5 = 14;
  21     shears1 = 15;
  22     sword1 = 16;
  23     sword2 = 17;
  24     sword3 = 18;
  25     sword4 = 19;
  26     sword5 = 20;
  27     rod1 = 21;
  28     lighter1 = 22;
  29     hoe1 = 23;
  30     hoe2 = 24;
  31     hoe3 = 25;
  32     hoe4 = 26;
  33     hoe5 = 27;
  34
  35   const
  36     pickaxe = 0;
  37     shovel = 1;
  38     axe = 2;
  39     shears = 3;
  40     sword = 4;
  41     rod = 5;
  42     lighter = 6;
  43     hoe = 7;
  44
  45   function GetType(id : integer) : integer;
  46   function GetLevel(id : integer) : integer;
  47   function GetSpeed(id : integer) : integer;
  48   function GetDamage(id : integer) : integer;
  49
  50 implementation
  51
  52   const
  53     lastTool = 27;
  54
  55   var
  56     typ, lvl, speed, damage : array [0..lastTool] of integer;
  57
  58   function GetType(id : integer) : integer;
  59     begin
  60       result := typ[id];
  61     end;
  62
  63   function GetLevel(id : integer) : integer;
  64     begin
  65       result := lvl[id];
  66     end;
  67
  68   function GetSpeed(id : integer) : integer;
  69     begin
  70       result := speed[id];
  71     end;
  72
  73   function GetDamage(id : integer) : integer;
  74     begin
  75       result := damage[id];
  76     end;
  77
  78   procedure InitTool(id, xtyp, level, xspeed, xdamage : integer);
  79     begin
  80       typ[id] := xtyp;
  81       lvl[id] := level;
  82       speed[id] := xspeed;
  83       damage[id] := xdamage;
  84     end;
  85
  86 initialization
  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);
 115 end.