equal
deleted
inserted
replaced
2484 PrevAngle |
2484 PrevAngle |
2485 else |
2485 else |
2486 begin |
2486 begin |
2487 Gear^.Tag := 0; |
2487 Gear^.Tag := 0; |
2488 Gear^.X := Gear^.X + int2hwFloat(xx); |
2488 Gear^.X := Gear^.X + int2hwFloat(xx); |
2489 if not TestCollisionYwithGear(Gear, yyn) then |
2489 if not TestCollisionY(Gear, yyn) then |
2490 begin |
2490 begin |
2491 Gear^.Y := Gear^.Y + int2hwFloat(yyn); |
2491 Gear^.Y := Gear^.Y + int2hwFloat(yyn); |
2492 NextAngle |
2492 NextAngle |
2493 end; |
2493 end; |
2494 end; |
2494 end; |
2559 AllInactive := false; |
2559 AllInactive := false; |
2560 |
2560 |
2561 HHGear := PHedgehog(Gear^.Hedgehog)^.Gear; |
2561 HHGear := PHedgehog(Gear^.Hedgehog)^.Gear; |
2562 HHGear^.Message := HHGear^.Message and (not gm_Attack); |
2562 HHGear^.Message := HHGear^.Message and (not gm_Attack); |
2563 DeleteCI(HHGear); |
2563 DeleteCI(HHGear); |
|
2564 Gear^.IntersectGear:= nil; |
2564 |
2565 |
2565 FollowGear := Gear; |
2566 FollowGear := Gear; |
2566 |
2567 |
2567 Gear^.doStep := @doStepCakeFall |
2568 Gear^.doStep := @doStepCakeFall |
2568 end; |
2569 end; |