hedgewars/uStore.pas
changeset 13536 282218ab1b28
parent 13511 36f3f77e9b1b
child 13573 470982c05f7e
equal deleted inserted replaced
13535:80db7232b4b5 13536:282218ab1b28
   286                             Hat := 'fr_pumpkin'; // Halloween/Hedgewars' birthday
   286                             Hat := 'fr_pumpkin'; // Halloween/Hedgewars' birthday
   287                         end;
   287                         end;
   288                     if (month = 4) and (md = 1) then
   288                     if (month = 4) and (md = 1) then
   289                         begin
   289                         begin
   290                         AprilOne:= true;
   290                         AprilOne:= true;
   291                         Hat := 'fr_tomato'; // avoid promoting violence to hedgehogs. see http://hedgewars.org/node/5818
   291                         Hat := 'fr_tomato'; // avoid promoting violence to hedgehogs. see https://hedgewars.org/node/5818
   292                         end;
   292                         end;
   293 
   293 
   294                     if Hat <> 'NoHat' then
   294                     if Hat <> 'NoHat' then
   295                         begin
   295                         begin
   296                         if (Length(Hat) > 39) and (Copy(Hat,1,8) = 'Reserved') and (Copy(Hat,9,32) = PlayerHash) then
   296                         if (Length(Hat) > 39) and (Copy(Hat,1,8) = 'Reserved') and (Copy(Hat,9,32) = PlayerHash) then
   827             if GameLoading <> nil then
   827             if GameLoading <> nil then
   828                 GameLoading();
   828                 GameLoading();
   829         {$ENDIF}
   829         {$ENDIF}
   830         end;
   830         end;
   831 
   831 
   832     if checkFails((ProgrTex <> nil) and (LoadingText <> nil), 'Error - Progress or Loading Texture is nil!', true) then exit;
   832     if checkFails((ProgrTex <> nil) and (LoadingText <> nil), 'Error - Progress or Loading texture is nil!', true) then exit;
   833 
   833 
   834     RenderClear();
   834     RenderClear();
   835     if Step < numsquares then
   835     if Step < numsquares then
   836         r.x:= 0
   836         r.x:= 0
   837     else
   837     else
   973 
   973 
   974 r.x:= cFontBorder + 6;
   974 r.x:= cFontBorder + 6;
   975 r.y:= cFontBorder + 4;
   975 r.y:= cFontBorder + 4;
   976 r.w:= 32;
   976 r.w:= 32;
   977 r.h:= 32;
   977 r.h:= 32;
   978 SDL_FillRect(tmpsurf, @r, $ff000000);
   978 SDL_FillRect(tmpsurf, @r, SDL_MapRGB(tmpsurf^.format, 0, 0, 0));
   979 SDL_UpperBlit(iconsurf, iconrect, tmpsurf, @r);
   979 SDL_UpperBlit(iconsurf, iconrect, tmpsurf, @r);
   980 
   980 
   981 RenderHelpWindow:=  Surface2Tex(tmpsurf, true);
   981 RenderHelpWindow:=  Surface2Tex(tmpsurf, true);
   982 SDL_FreeSurface(tmpsurf)
   982 SDL_FreeSurface(tmpsurf)
   983 end;
   983 end;