program RUNME;
{$DEFINE SMART8}
{$i srl-osr/srl.simba}
{$I SRL-OSR/SRL/misc/SmartGraphics.Simba}

var

  x, y, i, iA,  OresMined, FailedToMine : integer;
  screenBounds : TBox;
  cs : TIntegerArray;
  tpa  : TPointArray;
  atpa : T2DPointArray;

Const

IRON = 1910849;

ORE = IRON;
ORESTOMINE = 1000;

COLORSETTING := [2,0.13,0.40]; //Possible to use extended array in constant?

procedure DropItems();