equal
deleted
inserted
replaced
382 const BORDERSIZE = 2; |
382 const BORDERSIZE = 2; |
383 var x, y, i, t, SlotsNumY, SlotsNumX, AMFrame: LongInt; |
383 var x, y, i, t, SlotsNumY, SlotsNumX, AMFrame: LongInt; |
384 STurns: LongInt; |
384 STurns: LongInt; |
385 amSurface: PSDL_Surface; |
385 amSurface: PSDL_Surface; |
386 AMRect: TSDL_Rect; |
386 AMRect: TSDL_Rect; |
387 tmpsurf: PSDL_Surface; |
387 {$IFDEF USE_AM_NUMCOLUMN}tmpsurf: PSDL_Surface;{$ENDIF} |
388 begin |
388 begin |
389 SlotsNum:= 0; |
389 SlotsNum:= 0; |
390 for i:= 0 to cMaxSlotIndex do |
390 for i:= 0 to cMaxSlotIndex do |
391 if((i = 0) and (Ammo^[i,1].Count > 0)) or ((i <> 0) and (Ammo^[i,0].Count > 0)) then |
391 if((i = 0) and (Ammo^[i,1].Count > 0)) or ((i <> 0) and (Ammo^[i,0].Count > 0)) then |
392 inc(SlotsNum); |
392 inc(SlotsNum); |