Phytolizer/mine - Change CIMM4H4TL7J2ZFPYCX72U4IA4NA2UEZRNOFYXDQAE7NMP3KGUN5AC

more lenient start

Created by Phytolizer on April 25, 2023

CIMM4H4TL7J2ZFPYCX72U4IA4NA2UEZRNOFYXDQAE7NMP3KGUN5AC

Dependencies

In channels

main

Change contents

Replacement in sysrandom.pas at line 22 [3.38]
B:BD[3.502] → [4.0:1]
[3.502]
[3.503]
Insertion in mine.pas at line 57 [5.33]
[3.1579]
[3.1579]
```
var
  Index: Integer;
```

Insertion in mine.pas at line 64 [5.33]

[3.1706]

[5.407]

  Field.CursorRow := 0;
  Field.CursorCol := 0;
  for Index := 0 to Rows * Cols do Field.Open[Index] := False;

Insertion in mine.pas at line 74 [5.33]

[3.1885]

end;
function FieldAtCursor(Field: TField; Row, Col: Integer): Boolean;
begin
  FieldAtCursor := (Field.CursorRow = Row) and (Field.CursorCol = Col);
end;
function FieldAroundCursor(Field: TField; Row, Col: Integer): Boolean;
var
  DRow, DCol: Integer;
begin
  for DRow := -1 to 1 do
    for DCol := -1 to 1 do
      if (Field.CursorRow + DRow = Row) and (Field.CursorCol + DCol = Col) then
        Exit(True);
  FieldAroundCursor := False;

Replacement in mine.pas at line 97 [5.33]

B:BD[3.2023] → [4.190:238]

∅:D[4.238] → [3.2023:2150]

B:BD[3.2023] → [3.2023:2150]

  Field.CursorRow := 0;
  Field.CursorCol := 0;
  for Index := 0 to Field.Rows * Field.Cols do
  begin
    Field.Cells[Index] := Empty;
    Field.Open[Index] := False;
  end;

[3.2023]

[3.2150]

  for Index := 0 to Field.Rows * Field.Cols do Field.Cells[Index] := Empty;

Replacement in mine.pas at line 102 [5.33]

B:BD[3.2322] → [3.2322:2377]

    while FieldRandomCell(Field, Row, Col) = Bomb do ;

[3.2322]

[3.2377]

    {TODO: prevent it from going forever}
    while (FieldRandomCell(Field, Row, Col) = Bomb) or FieldAroundCursor(Field, Row, Col) do ;

Deletion in mine.pas at line 124 [5.33]

B:BD[4.245] → [4.245:390]

∅:D[4.390] → [3.2828:2834]

B:BD[3.2828] → [3.2828:2834]

function FieldAtCursor(Field: TField; Row, Col: Integer): Boolean;
begin
  FieldAtCursor := (Field.CursorRow = Row) and (Field.CursorCol = Col);
end;

Insertion in mine.pas at line 154 [5.33]
[6.87]
[2.468]
```
  First: Boolean = True;
```
Deletion in mine.pas at line 162 [5.33]
B:BD[3.3472] → [3.3472:3505]
```
  FieldRandomize(MainField, 20);
```

Replacement in mine.pas at line 183 [5.33]

B:BD[4.903] → [2.576:587]

      ' ':

[4.903]

[2.587]

      ' ': begin
        if First then
        begin
          FieldRandomize(MainField, 20);
          First := False;
        end;

Insertion in mine.pas at line 198 [5.33]
[2.888]
[4.944]
```
      end;
```

File addition: .nvim.lua (----------)

[7.1]

vim.opt.tagcase = "ignore"
vim.opt.tags = "./tags,tags,./mine.tags"

more lenient start

Dependencies

In channels

Change contents

Replacement in sysrandom.pas at line 22 [3.38]

Insertion in mine.pas at line 57 [5.33]