~ubuntu-branches/ubuntu/utopic/hedgewars/utopic

procedure TestAmmos(var Actions: TActions; Me: PGear; rareChecks: boolean);

var BotLevel: Byte;

    ap: TAttackParams;

    a, aa: TAmmoType;

begin

BotLevel:= Me^.Hedgehog^.BotLevel;

                        end else

                        if (Ammoz[a].Ammo.Propz and ammoprop_AttackingPut) = 0 then

                            begin

                            AddAction(BestActions, aia_attack, aim_push, 650 + random(300), 0, 0);

                            AddAction(BestActions, aia_attack, aim_release, ap.Power, 0, 0);

                            end;

 

    AddAction(Actions, aia_Weapon, Longword(amSkip), 100 + random(200), 0, 0);

 

if ((CurrentHedgehog^.MultiShootAttacks = 0) or ((Ammoz[Me^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NoMoveAfter) = 0))

    begin

    tmp:= random(2) + 1;

    Push(0, Actions, Me^, tmp);

FillBonuses(((Me^.State and gstAttacked) <> 0) and (not isInMultiShoot));

 

SDL_LockMutex(ThreadLock);

SDL_UnlockMutex(ThreadLock);

end;