equal
deleted
inserted
replaced
1694 |
1694 |
1695 Gear^.doStep:= @doStepCakeFall |
1695 Gear^.doStep:= @doStepCakeFall |
1696 end; |
1696 end; |
1697 |
1697 |
1698 //////////////////////////////////////////////////////////////////////////////// |
1698 //////////////////////////////////////////////////////////////////////////////// |
|
1699 procedure doStepSeductionWork(Gear: PGear); |
|
1700 var x, y: LongInt; |
|
1701 begin |
|
1702 AllInactive:= false; |
|
1703 |
|
1704 Gear^.X:= Gear^.X + Gear^.dX; |
|
1705 Gear^.Y:= Gear^.Y + Gear^.dY; |
|
1706 x:= hwRound(Gear^.X); |
|
1707 y:= hwRound(Gear^.Y); |
|
1708 |
|
1709 if ((y and $FFFFFC00) = 0) and ((x and $FFFFF800) = 0) then |
|
1710 if (Land[y, x] <> 0) then |
|
1711 begin |
|
1712 Gear^.dX.isNegative:= not Gear^.dX.isNegative; |
|
1713 Gear^.dY.isNegative:= not Gear^.dY.isNegative; |
|
1714 Gear^.dY:= Gear^.dY - _0_2; |
|
1715 AmmoShove(Gear, 0, 40); |
|
1716 DeleteGear(Gear) |
|
1717 end |
|
1718 else |
|
1719 else |
|
1720 DeleteGear(Gear) |
|
1721 end; |
|
1722 |
1699 procedure doStepSeduction(Gear: PGear); |
1723 procedure doStepSeduction(Gear: PGear); |
1700 begin |
1724 var x, y: LongInt; |
1701 AllInactive:= false; |
1725 begin |
1702 DeleteGear(Gear); |
1726 AllInactive:= false; |
1703 |
1727 DeleteCI(PHedgehog(Gear^.Hedgehog)^.Gear); |
1704 end; |
1728 Gear^.doStep:= @doStepSeductionWork |
|
1729 end; |