Code: Select all
procedure MinePoint; //New
var
X, Y: Word;
begin
X := GetX(Self);
Y := GetY(Self);
Mine(X, Y);
Mine(X + 1, Y);
Mine(X + 1, Y + 1);
Mine(X, Y + 1);
Mine(X - 1, Y + 1);
Mine(X - 1, Y);
Mine(X - 1, Y - 1);
Mine(X, Y - 1);
Mine(X + 1, Y - 1);
Mine(X + 2, Y + 2);
Mine(X - 2, Y + 2);
Mine(X - 2, Y - 2);
Mine(X + 2, Y - 2);
end;
Code: Select all
procedure MinePoint; //New
var
Tile, X, Y, Z: SmallInt;
begin
Tile := 0;
X := 1;
Y := 2;
Z := 3;
Mine(Tile, X, Y, Z);
end;