hedgewars/uStore.pas
changeset 13348 93325e13d329
parent 13321 dd1435f1a28c
child 13375 e202d58236b1
child 13390 ec1491bb5acc
child 13556 7259891805f9
equal deleted inserted replaced
13347:774dd8762607 13348:93325e13d329
   377 procedure StoreLoad(reload: boolean);
   377 procedure StoreLoad(reload: boolean);
   378 var ii: TSprite;
   378 var ii: TSprite;
   379     ai: TAmmoType;
   379     ai: TAmmoType;
   380     tmpsurf, tmpoverlay: PSDL_Surface;
   380     tmpsurf, tmpoverlay: PSDL_Surface;
   381     i, y, imflags: LongInt;
   381     i, y, imflags: LongInt;
   382     keyConfirm, keyQuit: ansistring;
   382     keyConfirm, keyQuit: shortstring;
   383 begin
   383 begin
   384 AddFileLog('StoreLoad()');
   384 AddFileLog('StoreLoad()');
   385 
   385 
   386 if not cOnlyStats then
   386 if not cOnlyStats then
   387     begin
   387     begin
   507 
   507 
   508     PauseTexture:= RenderStringTex(trmsg[sidPaused], cYellowColor, fntBig);
   508     PauseTexture:= RenderStringTex(trmsg[sidPaused], cYellowColor, fntBig);
   509     AFKTexture:= RenderStringTex(trmsg[sidAFK], cYellowColor, fntBig);
   509     AFKTexture:= RenderStringTex(trmsg[sidAFK], cYellowColor, fntBig);
   510     keyConfirm:= KeyBindToName('confirm');
   510     keyConfirm:= KeyBindToName('confirm');
   511     keyQuit:= KeyBindToName('quit');
   511     keyQuit:= KeyBindToName('quit');
   512     ConfirmTexture:= RenderStringTex(FormatA(trmsg[sidConfirm], [keyConfirm, keyQuit]), cYellowColor, fntBig);
   512     ConfirmTexture:= RenderStringTex(Format(trmsg[sidConfirm], [keyConfirm, keyQuit]), cYellowColor, fntBig);
   513     SyncTexture:= RenderStringTex(trmsg[sidSync], cYellowColor, fntBig);
   513     SyncTexture:= RenderStringTex(trmsg[sidSync], cYellowColor, fntBig);
   514 
   514 
   515     if not reload then
   515     if not reload then
   516         AddProgress;
   516         AddProgress;
   517 
   517