changeset 1259 | 0c660c3d98a4 |
parent 1207 | ceaab010269e |
child 1261 | 903058d382c7 |
1258:2a9843339910 | 1259:0c660c3d98a4 |
---|---|
1657 FollowGear:= Gear; |
1657 FollowGear:= Gear; |
1658 |
1658 |
1659 Gear^.doStep:= @doStepCakeFall |
1659 Gear^.doStep:= @doStepCakeFall |
1660 end; |
1660 end; |
1661 |
1661 |
1662 //////////////////////////////////////////////////////////////////////////////// |
|
1663 procedure doStepSeduction(Gear: PGear); |
|
1664 begin |
|
1665 AllInactive:= false; |
|
1666 DeleteGear(Gear); |
|
1667 |
|
1668 end; |