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. |