equal
deleted
inserted
replaced
25 |
25 |
26 |
26 |
27 procedure movecursor(dx, dy: LongInt); |
27 procedure movecursor(dx, dy: LongInt); |
28 function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
28 function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
29 procedure MakeScreenshot(filename: shortstring); |
29 procedure MakeScreenshot(filename: shortstring); |
|
30 function GetTeamStatString(p: PTeam): shortstring; |
30 |
31 |
31 procedure initModule; |
32 procedure initModule; |
32 procedure freeModule; |
33 procedure freeModule; |
33 |
34 |
34 implementation |
35 implementation |
129 |
130 |
130 exit(tmpsurf); |
131 exit(tmpsurf); |
131 end; |
132 end; |
132 |
133 |
133 |
134 |
|
135 function GetTeamStatString(p: PTeam): shortstring; |
|
136 var s: ansistring; |
|
137 begin |
|
138 s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':'; |
|
139 GetTeamStatString:= s; |
|
140 end; |
|
141 |
134 procedure initModule; |
142 procedure initModule; |
135 begin |
143 begin |
136 end; |
144 end; |
137 |
145 |
138 procedure freeModule; |
146 procedure freeModule; |