hedgewars/uWorld.pas
changeset 10141 3be894730bd6
parent 10139 9046f69dae4c
child 10147 9a772dc5dfbe
equal deleted inserted replaced
10140:a846641d2b04 10141:3be894730bd6
   427     STurns: LongInt;
   427     STurns: LongInt;
   428     amSurface: PSDL_Surface;
   428     amSurface: PSDL_Surface;
   429     AMRect: TSDL_Rect;
   429     AMRect: TSDL_Rect;
   430 {$IFDEF USE_AM_NUMCOLUMN}tmpsurf: PSDL_Surface;{$ENDIF}
   430 {$IFDEF USE_AM_NUMCOLUMN}tmpsurf: PSDL_Surface;{$ENDIF}
   431 begin
   431 begin
   432     if cOnlyStats then exit(false);
   432     if cOnlyStats then exit(nil);
   433 
   433 
   434     SlotsNum:= 0;
   434     SlotsNum:= 0;
   435     for i:= 0 to cMaxSlotIndex do
   435     for i:= 0 to cMaxSlotIndex do
   436         if((i = 0) and (Ammo^[i,1].Count > 0)) or ((i <> 0) and (Ammo^[i,0].Count > 0)) then
   436         if((i = 0) and (Ammo^[i,1].Count > 0)) or ((i <> 0) and (Ammo^[i,0].Count > 0)) then
   437             inc(SlotsNum);
   437             inc(SlotsNum);