hedgewars/uWorld.pas
changeset 10032 db65298717da
parent 10009 88929358d2e1
child 10040 4ac87acbaed9
equal deleted inserted replaced
10031:9353632dc661 10032:db65298717da
   653     end;
   653     end;
   654     
   654     
   655 DrawTexture(AmmoRect.x + AMShiftX, AmmoRect.y + AMShiftY, AmmoMenuTex);
   655 DrawTexture(AmmoRect.x + AMShiftX, AmmoRect.y + AMShiftY, AmmoMenuTex);
   656 
   656 
   657 if ((AMState = AMHiding) or (AMState = AMShowingUp)) and ((AMAnimType and AMTypeMaskAlpha) <> 0 )then 
   657 if ((AMState = AMHiding) or (AMState = AMShowingUp)) and ((AMAnimType and AMTypeMaskAlpha) <> 0 )then 
   658     Tint($FF, $ff, $ff, $ff);
   658     untint;
   659 
   659 
   660 Pos:= -1;
   660 Pos:= -1;
   661 Slot:= -1;
   661 Slot:= -1;
   662 {$IFDEF USE_LANDSCAPE_AMMOMENU}
   662 {$IFDEF USE_LANDSCAPE_AMMOMENU}
   663 c:= -1;
   663 c:= -1;
  1331         end;
  1331         end;
  1332 if smallScreenOffset <> 0 then
  1332 if smallScreenOffset <> 0 then
  1333     begin
  1333     begin
  1334     SetScale(cDefaultZoomLevel);
  1334     SetScale(cDefaultZoomLevel);
  1335     if TeamsCount * 20 > Longword(cScreenHeight) div 5 then
  1335     if TeamsCount * 20 > Longword(cScreenHeight) div 5 then
  1336         Tint($FF,$FF,$FF,$FF);
  1336         untint;
  1337     end;
  1337     end;
  1338 end;
  1338 end;
  1339 
  1339 
  1340 
  1340 
  1341 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode);
  1341 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode);