jumperalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilslightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /trunk/ @ 10

  → /trunk/ @ 9

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 10 → Rev 9

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