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/LevelFunctions.pas @ 25

  → /trunk/LevelFunctions.pas @ 26

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 25 → Rev 26

/trunk/LevelFunctions.pas
3,7 → 3,7
interface
uses
SysUtils, Dialogs, Functions, ExtCtrls, Classes, Math;
SysUtils, Dialogs, Functions, Classes;
type
TFieldType = (ftUndefined, ftFullSpace, ftEmpty, ftRed, ftYellow, ftGreen);
20,16 → 20,16
gsLastStoneInGoalGreen, gsLastStoneOutsideGoal);
TCoord = record
X: integer;
Y: integer;
X: integer; // fields. not pixels
Y: integer; // fields. not pixels
end;
TField = record
Indent: integer;
Indent: integer; // half steps
FieldType: TFieldType;
Goal: Boolean;
Panel: TPanel;
Stone: TImage;
Data: TObject; // can be used to hold VCL references. Is not cloned when calling CloneMatrix!
function FieldState: TFieldState;
end;
TPlayGroundMatrix = record
42,8 → 42,6
function MatrixWorth: integer;
procedure ClearMatrix(FreeVCL: boolean);
function CloneMatrix: TPlayGroundMatrix;
class function FieldState(t: TFieldType): TFieldState; overload; static;
function FieldState(f: TField): TFieldState; overload;
function FieldState(x, y: integer): TFieldState; overload;
function FieldState(c: TCoord): TFieldState; overload;
function CanJump(SourceX, SourceY, DestX, DestY: integer; DiagonalOK: boolean): boolean; overload;
208,8 → 206,7
begin
for y := Low(Fields[x]) to High(Fields[x]) do
begin
if Assigned(Fields[x,y].Stone) then Fields[x,y].Stone.Free;
if Assigned(Fields[x,y].Panel) then Fields[x,y].Panel.Free;
if Assigned(Fields[x,y].Data) then Fields[x,y].Data.Free;
end;
end;
end;
228,8 → 225,7
begin
result.Fields[x,y].FieldType := Fields[x,y].FieldType;
result.Fields[x,y].Goal := Fields[x,y].Goal;
result.Fields[x,y].Panel := Fields[x,y].Panel;
result.Fields[x,y].Stone := Fields[x,y].Stone;
result.Fields[x,y].Data := Fields[x,y].Data;
end;
end;
end;
249,23 → 245,6
result := CoordToIndex(coord.X, coord.Y);
end;
class function TPlayGroundMatrix.FieldState(t: TFieldType): TFieldState;
begin
result := fsUndefined;
case t of
ftFullSpace: result := fsLocked;
ftEmpty: result := fsAvailable;
ftGreen: result := fsOccupied;
ftYellow: result := fsOccupied;
ftRed: result := fsOccupied;
end;
end;
function TPlayGroundMatrix.FieldState(f: TField): TFieldState;
begin
result := FieldState(f.FieldType);
end;
function TPlayGroundMatrix.FieldState(x, y: integer): TFieldState;
begin
result := fsUndefined;
272,7 → 251,7
if (x < Low(Fields)) or (x > High(Fields)) then exit;
if (y < Low(Fields[x])) or (y > High(Fields[x])) then exit;
result := FieldState(Fields[x,y]);
result := Fields[x,y].FieldState;
end;
function TPlayGroundMatrix.CanJump(SourceX, SourceY, DestX, DestY: integer; DiagonalOK: boolean): boolean;
544,4 → 523,18
Es ist außerdem eher ein logischer Fehler, kein Fehler in der Levelstruktur! }
end;
{ TField }
function TField.FieldState: TFieldState;
begin
result := fsUndefined;
case FieldType of
ftFullSpace: result := fsLocked;
ftEmpty: result := fsAvailable;
ftGreen: result := fsOccupied;
ftYellow: result := fsOccupied;
ftRed: result := fsOccupied;
end;
end;
end.