hedgewars/PascalExports.pas
changeset 3952 d6412423da45
parent 3948 24daa33a3114
child 3973 0d1a420531ef
equal deleted inserted replaced
3950:296cbdd85e50 3952:d6412423da45
   177 begin
   177 begin
   178     x^:= CursorPoint.X;
   178     x^:= CursorPoint.X;
   179     y^:= CursorPoint.Y;
   179     y^:= CursorPoint.Y;
   180 end;
   180 end;
   181 
   181 
   182 function HW_isAmmoOpen: boolean; cdecl; export;
   182 function HW_isAmmoMenuOpen: boolean; cdecl; export;
   183 begin
   183 begin
   184     exit(bShowAmmoMenu);
   184     exit(bShowAmmoMenu);
       
   185 end;
       
   186 
       
   187 function HW_isAmmoMenuNotAllowed: boolean; cdecl; export;
       
   188 begin;
       
   189     exit ( (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil) or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) );
   185 end;
   190 end;
   186 
   191 
   187 function HW_isPaused: boolean; cdecl; export;
   192 function HW_isPaused: boolean; cdecl; export;
   188 begin
   193 begin
   189     exit( isPaused );
   194     exit( isPaused );
   263 begin
   268 begin
   264     if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
   269     if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
   265         SetWeapon(TAmmoType(whichone+1));
   270         SetWeapon(TAmmoType(whichone+1));
   266 end;
   271 end;
   267 
   272 
       
   273 function HW_isWeaponAnEffect(whichone: LongInt): boolean; cdecl; export;
       
   274 begin
       
   275     exit(Ammoz[TAmmoType(whichone+1)].Ammo.Propz and ammoprop_Effect <> 0)
       
   276 end;
       
   277 
   268 function HW_getAmmoCounts(counts: PLongInt): LongInt; cdecl; export;
   278 function HW_getAmmoCounts(counts: PLongInt): LongInt; cdecl; export;
   269 var a : PHHAmmo;
   279 var a : PHHAmmo;
   270     slot, index: LongInt;
   280     slot, index: LongInt;
   271 begin
   281 begin
   272     if (CurrentTeam^.ExtDriven) or (CurrentTeam^.Hedgehogs[0].BotLevel <> 0) then
   282     if (CurrentTeam^.ExtDriven) or (CurrentTeam^.Hedgehogs[0].BotLevel <> 0) then