Phytolizer/mine - Change B25NZLZ6EEHFF4UYG2V4X3J7HSKJFRG23NEPJ2IGPIF4K25SWEJAC

playable

Created by Phytolizer on April 25, 2023

B25NZLZ6EEHFF4UYG2V4X3J7HSKJFRG23NEPJ2IGPIF4K25SWEJAC

Dependencies

In channels

main

Change contents

Replacement in sysrandom.pas at line 22 [3.38]
B:BD[3.502] → [2.0:1]
[3.502]
[3.503]

Insertion in mine.pas at line 13 [4.33]

[3.969]

    CursorRow: Integer;
    CursorCol: Integer;

Replacement in mine.pas at line 16 [4.33]
B:BD[3.976] → [2.26:27]
[3.976]
[3.977]

Insertion in mine.pas at line 25 [4.33]

[3.1219]

[5.70]

end;
procedure FieldOpenAtCursor(var Field: TField);
begin
  Field.Open[Field.CursorRow * Field.Cols + Field.CursorCol] := True;

Replacement in mine.pas at line 41 [4.33]
B:BD[3.1510] → [2.28:33]
```
end;
```
[3.1510]
[3.1515]
```
end;
```
Insertion in mine.pas at line 63 [4.33]
[3.2023]
[3.2023]
```
  Field.CursorRow := 0;
  Field.CursorCol := 0;
```

Insertion in mine.pas at line 93 [4.33]

[3.2828]

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

Replacement in mine.pas at line 108 [4.33]

B:BD[3.3005] → [3.3005:3023]

      Write(' ');

[3.3005]

[3.3023]

      if FieldAtCursor(Field, Row, Col) then Write('[') else Write(' ');

Replacement in mine.pas at line 118 [4.33]

B:BD[3.3340] → [3.3340:3358]

      Write(' ');

[3.3340]

[3.3358]

      if FieldAtCursor(Field, Row, Col) then Write(']') else Write(' ');

Replacement in mine.pas at line 130 [4.33]
B:BD[2.87] → [2.87:88]
[2.87]
[2.88]
Replacement in mine.pas at line 138 [4.33]
B:BD[3.3505] → [2.120:121]
[3.3505]
[2.121]

Replacement in mine.pas at line 153 [4.33]

B:BD[2.476] → [2.476:494]

    WriteLn(Cmd);

[2.476]

[2.494]

    case Cmd of
      'w': if MainField.CursorRow > 0                  then Dec(MainField.CursorRow);
      's': if MainField.CursorRow < MainField.Rows - 1 then Inc(MainField.CursorRow);
      'a': if MainField.CursorCol > 0                  then Dec(MainField.CursorCol);
      'd': if MainField.CursorCol < MainField.Cols - 1 then Inc(MainField.CursorCol);
      ' ': FieldOpenAtCursor(MainField);
    end;
    Write(Chr(27), '[', MainField.Rows, 'A');
    Write(Chr(27), '[', MainField.Cols * 3, 'D');

Replacement in mine.geany at line 30 [5.111]
B:BD[5.573] → [2.502:517]
```
current_page=2
```
[5.573]
[2.517]
```
current_page=3
```

Replacement in mine.geany at line 33 [5.111]

B:BD[3.3789] → [2.601:773]

FILE_NAME_2=3257;Pascal;0;EUTF-8;0;1;0;%2Fhome%2Fkyle%2FDocuments%2Fmine%2Fmine.pas;0;2
FILE_NAME_3=87;Make;0;EUTF-8;1;1;0;%2Fhome%2Fkyle%2FDocuments%2Fmine%2Fmakefile;0;8

[3.3789]

[5.758]

FILE_NAME_2=87;Make;0;EUTF-8;1;1;0;%2Fhome%2Fkyle%2FDocuments%2Fmine%2Fmakefile;0;8
FILE_NAME_3=617;Pascal;0;EUTF-8;0;1;0;%2Fhome%2Fkyle%2FDocuments%2Fmine%2Fmine.pas;0;2

playable

Dependencies

In channels

Change contents

Replacement in sysrandom.pas at line 22 [3.38]

Insertion in mine.pas at line 13 [4.33]

Replacement in mine.pas at line 16 [4.33]

Insertion in mine.pas at line 25 [4.33]

Replacement in mine.pas at line 41 [4.33]

Insertion in mine.pas at line 63 [4.33]

Insertion in mine.pas at line 93 [4.33]

Replacement in mine.pas at line 108 [4.33]

Replacement in mine.pas at line 118 [4.33]

Replacement in mine.pas at line 130 [4.33]

Replacement in mine.pas at line 138 [4.33]

Replacement in mine.pas at line 153 [4.33]

Replacement in mine.geany at line 30 [5.111]

Replacement in mine.geany at line 33 [5.111]