Rev 23 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 23 | Rev 24 | ||
|---|---|---|---|
| Line 20... | Line 20... | ||
| 20 | end; |
20 | end; |
| 21 | 21 | ||
| 22 | TShowPictureCallback = procedure(Game: TGame; AFilename: string; AType: TPictureType) of object; |
22 | TShowPictureCallback = procedure(Game: TGame; AFilename: string; AType: TPictureType) of object; |
| 23 | TPlaySoundCallback = procedure(Game: TGame; AFilename: string) of object; |
23 | TPlaySoundCallback = procedure(Game: TGame; AFilename: string) of object; |
| 24 | TSimpleCallback = procedure(Game: TGame) of object; |
24 | TSimpleCallback = procedure(Game: TGame) of object; |
| 25 | TWaitCallback = function(Game: TGame; AMilliseconds: integer): boolean of object; |
25 | TWaitCallback = function(Game: TGame; AMilliseconds: Cardinal): boolean of object; |
| 26 | TSetHotspotCallback = procedure(Game: TGame; AIndex: THotspotIndex; AHotspot: THotspot) of object; |
26 | TSetHotspotCallback = procedure(Game: TGame; AIndex: THotspotIndex; AHotspot: THotspot) of object; |
| 27 | TClearHotspotsCallback = procedure(Game: TGame) of object; |
27 | TClearHotspotsCallback = procedure(Game: TGame) of object; |
| 28 | 28 | ||
| 29 | TGame = class(TObject) |
29 | TGame = class(TObject) |
| 30 | private |
30 | private |