equal
deleted
inserted
replaced
116 end; |
116 end; |
117 |
117 |
118 procedure StoreLoad; |
118 procedure StoreLoad; |
119 var ii: TSprite; |
119 var ii: TSprite; |
120 fi: THWFont; |
120 fi: THWFont; |
|
121 ai: TAmmoType; |
121 s: string; |
122 s: string; |
122 tmpsurf: PSDL_Surface; |
123 tmpsurf: PSDL_Surface; |
123 |
124 |
124 procedure WriteNames(Font: THWFont); |
125 procedure WriteNames(Font: THWFont); |
125 var t: LongInt; |
126 var t: LongInt; |
292 SDL_FreeSurface(tmpsurf); |
293 SDL_FreeSurface(tmpsurf); |
293 |
294 |
294 InitHealth; |
295 InitHealth; |
295 |
296 |
296 PauseTexture:= RenderStringTex(trmsg[sidPaused], $FFFF00, fntBig); |
297 PauseTexture:= RenderStringTex(trmsg[sidPaused], $FFFF00, fntBig); |
|
298 |
|
299 for ai:= Low(TAmmoType) to High(TAmmoType) do |
|
300 with Ammoz[ai] do |
|
301 begin |
|
302 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(trAmmo[NameId]), $FFFFFF); |
|
303 NameTex:= Surface2Tex(tmpsurf); |
|
304 SDL_FreeSurface(tmpsurf) |
|
305 end; |
297 |
306 |
298 {$IFDEF DUMP} |
307 {$IFDEF DUMP} |
299 SDL_SaveBMP_RW(LandSurface, SDL_RWFromFile('LandSurface.bmp', 'wb'), 1); |
308 SDL_SaveBMP_RW(LandSurface, SDL_RWFromFile('LandSurface.bmp', 'wb'), 1); |
300 SDL_SaveBMP_RW(StoreSurface, SDL_RWFromFile('StoreSurface.bmp', 'wb'), 1); |
309 SDL_SaveBMP_RW(StoreSurface, SDL_RWFromFile('StoreSurface.bmp', 'wb'), 1); |
301 {$ENDIF} |
310 {$ENDIF} |