equal
deleted
inserted
replaced
31 procedure RenderHealth(var Hedgehog: THedgehog); |
31 procedure RenderHealth(var Hedgehog: THedgehog); |
32 procedure AddProgress; |
32 procedure AddProgress; |
33 procedure FinishProgress; |
33 procedure FinishProgress; |
34 function LoadImage(const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
34 function LoadImage(const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
35 |
35 |
36 // loads an image from the game's data files |
36 // loads an image from the games data files |
37 function LoadDataImage(const path: TPathType; const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
37 function LoadDataImage(const path: TPathType; const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
38 // like LoadDataImage but uses altPath as fallback-path if file not found/loadable in path |
38 // like LoadDataImage but uses altPath as fallback-path if file not found/loadable in path |
39 function LoadDataImageAltPath(const path, altPath: TPathType; const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
39 function LoadDataImageAltPath(const path, altPath: TPathType; const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
40 // like LoadDataImage but uses altFile as fallback-filename if file cannot be loaded |
40 // like LoadDataImage but uses altFile as fallback-filename if file cannot be loaded |
41 function LoadDataImageAltFile(const path: TPathType; const filename, altFile: shortstring; imageFlags: LongInt): PSDL_Surface; |
41 function LoadDataImageAltFile(const path: TPathType; const filename, altFile: shortstring; imageFlags: LongInt): PSDL_Surface; |
69 SDLwindow: PSDL_Window; |
69 SDLwindow: PSDL_Window; |
70 SDLGLcontext: PSDL_GLContext; |
70 SDLGLcontext: PSDL_GLContext; |
71 {$ELSE} |
71 {$ELSE} |
72 SDLPrimSurface: PSDL_Surface; |
72 SDLPrimSurface: PSDL_Surface; |
73 {$ENDIF} |
73 {$ENDIF} |
|
74 squaresize : LongInt; |
|
75 numsquares : LongInt; |
|
76 ProgrTex: PTexture; |
|
77 |
|
78 const |
|
79 cHHFileName = 'Hedgehog'; |
|
80 cCHFileName = 'Crosshair'; |
74 |
81 |
75 function WriteInRect(Surface: PSDL_Surface; X, Y: LongInt; Color: LongWord; Font: THWFont; s: ansistring): TSDL_Rect; |
82 function WriteInRect(Surface: PSDL_Surface; X, Y: LongInt; Color: LongWord; Font: THWFont; s: ansistring): TSDL_Rect; |
76 var w, h: LongInt; |
83 var w, h: LongInt; |
77 tmpsurf: PSDL_Surface; |
84 tmpsurf: PSDL_Surface; |
78 clr: TSDL_Color; |
85 clr: TSDL_Color; |