equal
deleted
inserted
replaced
955 or (CheckGearDrowning(HHGear)) |
955 or (CheckGearDrowning(HHGear)) |
956 or TestCollisionYwithGear(HHGear, 1) then |
956 or TestCollisionYwithGear(HHGear, 1) then |
957 begin |
957 begin |
958 DeleteGear(Gear); |
958 DeleteGear(Gear); |
959 isCursorVisible:= false; |
959 isCursorVisible:= false; |
960 ApplyAmmoChanges(PHedgehog(Gear^.Hedgehog)^); |
960 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^); |
961 exit |
961 exit |
962 end; |
962 end; |
963 |
963 |
964 HedgehogChAngle(HHGear); |
964 HedgehogChAngle(HHGear); |
965 |
965 |
1776 dY:= _0; |
1776 dY:= _0; |
1777 State:= State or gstMoving; |
1777 State:= State or gstMoving; |
1778 end; |
1778 end; |
1779 DeleteGear(Gear); |
1779 DeleteGear(Gear); |
1780 isCursorVisible:= false; |
1780 isCursorVisible:= false; |
1781 ApplyAmmoChanges(PHedgehog(Gear^.Hedgehog)^); |
1781 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^); |
1782 exit |
1782 exit |
1783 end; |
1783 end; |
1784 |
1784 |
1785 if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then |
1785 if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then |
1786 HHGear^.X:= HHGear^.X + cWindSpeed * 200; |
1786 HHGear^.X:= HHGear^.X + cWindSpeed * 200; |
2751 Active:= true; |
2751 Active:= true; |
2752 State:= State or gstMoving |
2752 State:= State or gstMoving |
2753 end; |
2753 end; |
2754 DeleteGear(Gear); |
2754 DeleteGear(Gear); |
2755 isCursorVisible:= false; |
2755 isCursorVisible:= false; |
2756 ApplyAmmoChanges(PHedgehog(Gear^.Hedgehog)^); |
2756 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^); |
2757 // if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
2757 // if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
2758 // Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall) |
2758 // Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall) |
2759 //AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate); |
2759 //AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate); |
2760 end |
2760 end |
2761 end; |
2761 end; |