equal
deleted
inserted
replaced
1717 //case getrandom(20) of |
1717 //case getrandom(20) of |
1718 case t of |
1718 case t of |
1719 0..6: begin |
1719 0..6: begin |
1720 FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0); |
1720 FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0); |
1721 FollowGear^.Health:= 25; |
1721 FollowGear^.Health:= 25; |
1722 FollowGear^.Pos:= posCaseHealth |
1722 FollowGear^.Pos:= posCaseHealth; |
|
1723 AddCaption(GetEventString(eidNewHealthPack), $FFFFFF, capgrpGameState); |
1723 end; |
1724 end; |
1724 7..13: begin |
1725 7..13: begin |
1725 t:= 0; |
1726 t:= 0; |
1726 for i:= Low(TAmmoType) to High(TAmmoType) do |
1727 for i:= Low(TAmmoType) to High(TAmmoType) do |
1727 if (Ammoz[i].Ammo.Propz and ammoprop_Utility) = 0 then |
1728 if (Ammoz[i].Ammo.Propz and ammoprop_Utility) = 0 then |
1738 inc(i); |
1739 inc(i); |
1739 if (Ammoz[i].Ammo.Propz and ammoprop_Utility) = 0 then |
1740 if (Ammoz[i].Ammo.Propz and ammoprop_Utility) = 0 then |
1740 dec(t, Ammoz[i].Probability) |
1741 dec(t, Ammoz[i].Probability) |
1741 end; |
1742 end; |
1742 FollowGear^.Pos:= posCaseAmmo; |
1743 FollowGear^.Pos:= posCaseAmmo; |
1743 FollowGear^.State:= Longword(i) |
1744 FollowGear^.State:= Longword(i); |
|
1745 AddCaption(GetEventString(eidNewAmmoPack), $FFFFFF, capgrpGameState); |
1744 end |
1746 end |
1745 end; |
1747 end; |
1746 14..19: begin |
1748 14..19: begin |
1747 t:= 0; |
1749 t:= 0; |
1748 for i:= Low(TAmmoType) to High(TAmmoType) do |
1750 for i:= Low(TAmmoType) to High(TAmmoType) do |
1760 inc(i); |
1762 inc(i); |
1761 if (Ammoz[i].Ammo.Propz and ammoprop_Utility) <> 0 then |
1763 if (Ammoz[i].Ammo.Propz and ammoprop_Utility) <> 0 then |
1762 dec(t, Ammoz[i].Probability) |
1764 dec(t, Ammoz[i].Probability) |
1763 end; |
1765 end; |
1764 FollowGear^.Pos:= posCaseUtility; |
1766 FollowGear^.Pos:= posCaseUtility; |
1765 FollowGear^.State:= Longword(i) |
1767 FollowGear^.State:= Longword(i); |
|
1768 AddCaption(GetEventString(eidNewUtilityPack), $FFFFFF, capgrpGameState); |
1766 end |
1769 end |
1767 end; |
1770 end; |
1768 end; |
1771 end; |
1769 // handles case of no ammo or utility crates - considered also placing booleans in uAmmos and altering probabilities |
1772 // handles case of no ammo or utility crates - considered also placing booleans in uAmmos and altering probabilities |
1770 if (FollowGear <> nil) then |
1773 if (FollowGear <> nil) then |