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     SlotsNum:= 0;

   434     SlotsNum:= 0;

   433     for i:= 0 to cMaxSlotIndex do

   435     for i:= 0 to cMaxSlotIndex do

   434         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

   435             inc(SlotsNum);

   437             inc(SlotsNum);

   436 {$IFDEF USE_LANDSCAPE_AMMOMENU}

   438 {$IFDEF USE_LANDSCAPE_AMMOMENU}

  1969 end;

  1971 end;

  1970 

  1972 

  1971 procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt);

  1973 procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt);

  1972 var r: TSDL_Rect;

  1974 var r: TSDL_Rect;

  1973 begin

  1975 begin

  1974 r.w:= 32;

  1978 r.w:= 32;

  1975 r.h:= 32;

  1979 r.h:= 32;

  1976 

  1980 

  1977 if time = 0 then

  1981 if time = 0 then

  1978     time:= 5000;

  1982     time:= 5000;