equal
deleted
inserted
replaced
549 posCaseAmmo: begin |
549 posCaseAmmo: begin |
550 if Gear^.AmmoType <> amNothing then a:= Gear^.AmmoType |
550 if Gear^.AmmoType <> amNothing then a:= Gear^.AmmoType |
551 else |
551 else |
552 begin |
552 begin |
553 for i:= 0 to GameTicks and $7F do GetRandom(2); // Burn some random numbers |
553 for i:= 0 to GameTicks and $7F do GetRandom(2); // Burn some random numbers |
554 if Gear^.Pos = posCaseUtility then a:= GetUtility |
554 if Gear^.Pos = posCaseUtility then a:= GetUtility(HH^.Hedgehog) |
555 else a:= GetAmmo |
555 else a:= GetAmmo(HH^.Hedgehog) |
556 end; |
556 end; |
557 AddAmmo(HH^.Hedgehog^, a); |
557 AddAmmo(HH^.Hedgehog^, a); |
558 // Possibly needs to check shared clan ammo game flag once added. |
558 // Possibly needs to check shared clan ammo game flag once added. |
559 // On the other hand, no obvious reason that clan members shouldn't know what ammo another clan member picked up |
559 // On the other hand, no obvious reason that clan members shouldn't know what ammo another clan member picked up |
560 if (not (HH^.Hedgehog^.Team^.ExtDriven |
560 if (not (HH^.Hedgehog^.Team^.ExtDriven |