Subversion Repositories jumper

Rev

Rev 1 | Rev 9 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 Rev 8
Line 23... Line 23...
23 
procedure DrawLevelPreview(LevelString: string; Image: TImage; BackgroundColor: TColor);
 23 
procedure DrawLevelPreview(LevelString: string; Image: TImage; BackgroundColor: TColor);
24 
function GetLevelType(LevelString: string): TLevelType;
 24 
function GetLevelType(LevelString: string): TLevelType;
25 
function CheckLevelIntegrity(LevelString: string; ShowErrors: boolean): TLevelError; overload;
 25 
function CheckLevelIntegrity(LevelString: string; ShowErrors: boolean): TLevelError; overload;
26 
function CheckLevelIntegrity(LevelString: string): TLevelError; overload;
 26 
function CheckLevelIntegrity(LevelString: string): TLevelError; overload;
27 
function LevelStringToLevelArray(LevelString: string; ShowErrors: boolean): TLevelArray;
 27 
function LevelStringToLevelArray(LevelString: string; ShowErrors: boolean): TLevelArray;
- 
 
 28 
function FieldTypeWorth(t: TFieldType): integer;
28 
 
 29 
 
29 
var
 30 
var
30 
  AllowDiagonalMoves: boolean;
 31 
  AllowDiagonalMoves: boolean;
31 
 
 32 
 
32 
implementation
 33 
implementation
Line 303... Line 304...
303 
      inc(c);
 304 
      inc(c);
304 
    end;
 305 
    end;
305 
  end;
 306 
  end;
306 
end;
 307 
end;
307 
 
 308 
 
- 
 
 309 
function FieldTypeWorth(t: TFieldType): integer;
- 
 
 310 
begin
- 
 
 311 
  if t = ftGreen then result := 10
- 
 
 312 
  else if t = ftYellow then result := 20
- 
 
 313 
  else if t = ftRed then result := 30
- 
 
 314 
  else result := 0;
- 
 
 315 
end;
- 
 
 316 
 
308 
end.
 317 
end.