hedgewars/uMisc.pas
changeset 9311 5baf10a52f43
parent 9080 9b42757d7e71
child 9317 a04c30940d2d
equal deleted inserted replaced
9309:7e8f91634f80 9311:5baf10a52f43
   297     s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':';
   297     s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':';
   298     GetTeamStatString:= s;
   298     GetTeamStatString:= s;
   299 end;
   299 end;
   300 
   300 
   301 procedure initModule;
   301 procedure initModule;
   302 const SDL_PIXELFORMAT_ABGR8888 = (1 shl 31) or (6 shl 24) or (7 shl 20) or (6 shl 16) or (32 shl 8) or 4;
   302 const SDL_PIXELFORMAT_ABGR8888 = (1 shl 28) or (6 shl 24) or (7 shl 20) or (6 shl 16) or (32 shl 8) or 4;
   303 begin
   303 begin
   304     conversionFormat:= SDL_AllocFormat(SDL_PIXELFORMAT_ABGR8888);
   304     conversionFormat:= SDL_AllocFormat(SDL_PIXELFORMAT_ABGR8888);
   305 end;
   305 end;
   306 
   306 
   307 procedure freeModule;
   307 procedure freeModule;