60 procedure SwapBuffers; {$IFDEF USE_VIDEO_RECORDING}cdecl{$ELSE}inline{$ENDIF}; |
60 procedure SwapBuffers; {$IFDEF USE_VIDEO_RECORDING}cdecl{$ELSE}inline{$ENDIF}; |
61 procedure SetSkyColor(r, g, b: real); |
61 procedure SetSkyColor(r, g, b: real); |
62 |
62 |
63 implementation |
63 implementation |
64 uses uMisc, uConsole, uVariables, uUtils, uTextures, uRender, uRenderUtils, |
64 uses uMisc, uConsole, uVariables, uUtils, uTextures, uRender, uRenderUtils, |
65 uCommands, uPhysFSLayer, uDebug, adler32 |
65 uCommands, uPhysFSLayer, uDebug, uLocale, uInputHandler, adler32 |
66 {$IFDEF USE_CONTEXT_RESTORE}, uWorld{$ENDIF}; |
66 {$IFDEF USE_CONTEXT_RESTORE}, uWorld{$ENDIF}; |
67 |
67 |
68 //type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple); |
68 //type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple); |
69 |
69 |
70 var |
70 var |
371 procedure StoreLoad(reload: boolean); |
371 procedure StoreLoad(reload: boolean); |
372 var ii: TSprite; |
372 var ii: TSprite; |
373 ai: TAmmoType; |
373 ai: TAmmoType; |
374 tmpsurf, tmpoverlay: PSDL_Surface; |
374 tmpsurf, tmpoverlay: PSDL_Surface; |
375 i, y, imflags: LongInt; |
375 i, y, imflags: LongInt; |
|
376 keyConfirm, keyQuit: ansistring; |
376 begin |
377 begin |
377 AddFileLog('StoreLoad()'); |
378 AddFileLog('StoreLoad()'); |
378 |
379 |
379 if not cOnlyStats then |
380 if not cOnlyStats then |
380 begin |
381 begin |
498 |
499 |
499 InitHealth; |
500 InitHealth; |
500 |
501 |
501 PauseTexture:= RenderStringTex(trmsg[sidPaused], cYellowColor, fntBig); |
502 PauseTexture:= RenderStringTex(trmsg[sidPaused], cYellowColor, fntBig); |
502 AFKTexture:= RenderStringTex(trmsg[sidAFK], cYellowColor, fntBig); |
503 AFKTexture:= RenderStringTex(trmsg[sidAFK], cYellowColor, fntBig); |
503 ConfirmTexture:= RenderStringTex(trmsg[sidConfirm], cYellowColor, fntBig); |
504 keyConfirm:= KeyBindToName('confirm'); |
|
505 keyQuit:= KeyBindToName('quit'); |
|
506 ConfirmTexture:= RenderStringTex(FormatA(trmsg[sidConfirm], [keyConfirm, keyQuit]), cYellowColor, fntBig); |
504 SyncTexture:= RenderStringTex(trmsg[sidSync], cYellowColor, fntBig); |
507 SyncTexture:= RenderStringTex(trmsg[sidSync], cYellowColor, fntBig); |
505 |
508 |
506 if not reload then |
509 if not reload then |
507 AddProgress; |
510 AddProgress; |
508 |
511 |