62,7 → 62,6 |
CountedSeconds: Integer; |
LevelFile: String; |
LookupFieldCoordinateArray: array of TPoint; |
OriginalPlayGroundMatrix: TPlayGroundMatrix; |
PrevPlaygroundMatrixes: array of TPlayGroundMatrix; |
PlaygroundMatrix: TPlayGroundMatrix; |
Points: Integer; |
219,7 → 218,6 |
JumpHistory.Clear; |
|
ClearMatrix(PlayGroundMatrix, true); |
ClearMatrix(OriginalPlayGroundMatrix, false); |
for i := 0 to Length(PrevPlaygroundMatrixes)-1 do |
ClearMatrix(PrevPlaygroundMatrixes[i], false); |
SetLength(PrevPlaygroundMatrixes, 0); |
613,7 → 611,6 |
PlayGround.Top := ClientHeight div 2 - PlayGround.Height div 2; |
end; |
|
OriginalPlayGroundMatrix := CloneMatrix(PlayGroundMatrix); |
SetLength(PrevPlaygroundMatrixes,1); |
PrevPlaygroundMatrixes[0] := CloneMatrix(PlayGroundMatrix); |
MUndo.Enabled := false; |
725,6 → 722,8 |
end; |
|
procedure TMainForm.RestartLevel; |
var |
i: Integer; |
begin |
MPauseTime.Enabled := false; |
Timer.Enabled := false; |
742,10 → 741,12 |
|
JumpHistory.Clear; |
|
RedrawStonesFromMatrix(OriginalPlayGroundMatrix); |
SetNewPlayGroundMatrix(OriginalPlayGroundMatrix); |
RedrawStonesFromMatrix(PrevPlaygroundMatrixes[0]); |
SetNewPlayGroundMatrix(PrevPlaygroundMatrixes[0]); |
for i := 1 to Length(PrevPlaygroundMatrixes)-1 do |
ClearMatrix(PrevPlaygroundMatrixes[i], false); |
SetLength(PrevPlaygroundMatrixes,1); |
PrevPlaygroundMatrixes[0] := CloneMatrix(OriginalPlayGroundMatrix); |
|
MUndo.Enabled := false; |
end; |
|