equal
deleted
inserted
replaced
1673 FollowGear^.Pos := posCaseHealth; |
1673 FollowGear^.Pos := posCaseHealth; |
1674 AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo); |
1674 AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo); |
1675 end; |
1675 end; |
1676 AmmoCrate: begin |
1676 AmmoCrate: begin |
1677 FollowGear^.Pos := posCaseAmmo; |
1677 FollowGear^.Pos := posCaseAmmo; |
1678 FollowGear^.AmmoType := content; |
1678 FollowGear^.AmmoType := TAmmoType(content); |
1679 AddCaption(GetEventString(eidNewAmmoPack), cWhiteColor, capgrpAmmoInfo); |
1679 AddCaption(GetEventString(eidNewAmmoPack), cWhiteColor, capgrpAmmoInfo); |
1680 end; |
1680 end; |
1681 UtilityCrate: begin |
1681 UtilityCrate: begin |
1682 FollowGear^.Pos := posCaseUtility; |
1682 FollowGear^.Pos := posCaseUtility; |
1683 FollowGear^.AmmoType := content; |
1683 FollowGear^.AmmoType := TAmmoType(content); |
1684 AddCaption(GetEventString(eidNewUtilityPack), cWhiteColor, capgrpAmmoInfo); |
1684 AddCaption(GetEventString(eidNewUtilityPack), cWhiteColor, capgrpAmmoInfo); |
1685 end; |
1685 end; |
1686 end; |
1686 end; |
1687 |
1687 |
1688 if ( (x = 0) and (y = 0) ) then FindPlace(FollowGear, true, 0, LAND_WIDTH); |
1688 if ( (x = 0) and (y = 0) ) then FindPlace(FollowGear, true, 0, LAND_WIDTH); |