equal
deleted
inserted
replaced
3087 HHGear: PGear; |
3087 HHGear: PGear; |
3088 begin |
3088 begin |
3089 AllInactive := false; |
3089 AllInactive := false; |
3090 |
3090 |
3091 HHGear := Gear^.Hedgehog^.Gear; |
3091 HHGear := Gear^.Hedgehog^.Gear; |
3092 HHGear^.Message := HHGear^.Message and (not gmAttack); |
|
3093 Gear^.CollisionMask:= lfNotCurrentMask; |
3092 Gear^.CollisionMask:= lfNotCurrentMask; |
3094 |
|
3095 FollowGear := Gear; |
|
3096 |
3093 |
3097 Gear^.dY:= cMaxWindSpeed * 100; |
3094 Gear^.dY:= cMaxWindSpeed * 100; |
3098 |
3095 |
3099 Gear^.doStep := @doStepCakeFall |
3096 Gear^.doStep := @doStepCakeFall |
3100 end; |
3097 end; |