hedgewars/uMisc.pas
changeset 6843 59da15acb2f2
parent 6700 e04da46ee43c
child 6857 b34288c8fafa
equal deleted inserted replaced
6841:3633928a3188 6843:59da15acb2f2
   168     s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':';
   168     s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':';
   169     GetTeamStatString:= s;
   169     GetTeamStatString:= s;
   170 end;
   170 end;
   171 
   171 
   172 procedure initModule;
   172 procedure initModule;
   173 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);
   173 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;
   174 begin
   174 begin
   175     conversionFormat:= SDL_AllocFormat(SDL_PIXELFORMAT_ABGR8888);
   175     conversionFormat:= SDL_AllocFormat(SDL_PIXELFORMAT_ABGR8888);
   176 end;
   176 end;
   177 
   177 
   178 procedure freeModule;
   178 procedure freeModule;