| changeset 10580 | 17560eb73b4c |
| parent 10579 | 2effda40c3b2 |
| child 10582 | 672e7028b1b6 |
| 10579:2effda40c3b2 | 10580:17560eb73b4c |
|---|---|
3081 AfterAttack |
3081 AfterAttack |
3082 end |
3082 end |
3083 end; |
3083 end; |
3084 |
3084 |
3085 procedure doStepCake(Gear: PGear); |
3085 procedure doStepCake(Gear: PGear); |
3086 var |
|
3087 HHGear: PGear; |
|
3088 begin |
3086 begin |
3089 AllInactive := false; |
3087 AllInactive := false; |
3090 |
3088 |
3091 HHGear := Gear^.Hedgehog^.Gear; |
|
3092 Gear^.CollisionMask:= lfNotCurrentMask; |
3089 Gear^.CollisionMask:= lfNotCurrentMask; |
3093 |
3090 |
3094 Gear^.dY:= cMaxWindSpeed * 100; |
3091 Gear^.dY:= cMaxWindSpeed * 100; |
3095 |
3092 |
3096 Gear^.doStep := @doStepCakeFall |
3093 Gear^.doStep := @doStepCakeFall |