equal
deleted
inserted
replaced
2941 Gear^.RenderTimer := false; |
2941 Gear^.RenderTimer := false; |
2942 Gear^.doStep := @doStepCakeDown; |
2942 Gear^.doStep := @doStepCakeDown; |
2943 exit |
2943 exit |
2944 end; |
2944 end; |
2945 |
2945 |
2946 cakeStep(Gear); |
2946 if not cakeStep(Gear) then Gear^.doStep:= @doStepCakeFall; |
2947 |
2947 |
2948 if Gear^.Tag = 0 then |
2948 if Gear^.Tag = 0 then |
2949 begin |
2949 begin |
2950 CakeI := (CakeI + 1) mod cakeh; |
2950 CakeI := (CakeI + 1) mod cakeh; |
2951 tdx := CakePoints[CakeI].x - Gear^.X; |
2951 tdx := CakePoints[CakeI].x - Gear^.X; |