hedgewars/uWorld.pas
changeset 10040 4ac87acbaed9
parent 10015 4feced261c68
parent 10032 db65298717da
child 10080 ac51bcb534ef
equal deleted inserted replaced
10019:c00db97a668f 10040:4ac87acbaed9
   656     end;
   656     end;
   657 
   657 
   658 DrawTexture(AmmoRect.x + AMShiftX, AmmoRect.y + AMShiftY, AmmoMenuTex);
   658 DrawTexture(AmmoRect.x + AMShiftX, AmmoRect.y + AMShiftY, AmmoMenuTex);
   659 
   659 
   660 if ((AMState = AMHiding) or (AMState = AMShowingUp)) and ((AMAnimType and AMTypeMaskAlpha) <> 0 )then
   660 if ((AMState = AMHiding) or (AMState = AMShowingUp)) and ((AMAnimType and AMTypeMaskAlpha) <> 0 )then
   661     Tint($FF, $ff, $ff, $ff);
   661     untint;
   662 
   662 
   663 Pos:= -1;
   663 Pos:= -1;
   664 Slot:= -1;
   664 Slot:= -1;
   665 {$IFDEF USE_LANDSCAPE_AMMOMENU}
   665 {$IFDEF USE_LANDSCAPE_AMMOMENU}
   666 c:= -1;
   666 c:= -1;
  1372         end;
  1372         end;
  1373 if smallScreenOffset <> 0 then
  1373 if smallScreenOffset <> 0 then
  1374     begin
  1374     begin
  1375     SetScale(cDefaultZoomLevel);
  1375     SetScale(cDefaultZoomLevel);
  1376     if TeamsCount * 20 > Longword(cScreenHeight) div 5 then
  1376     if TeamsCount * 20 > Longword(cScreenHeight) div 5 then
  1377         Tint($FF,$FF,$FF,$FF);
  1377         untint;
  1378     end;
  1378     end;
  1379 end;
  1379 end;
  1380 
  1380 
  1381 
  1381 
  1382 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode);
  1382 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode);