equal
deleted
inserted
replaced
3223 begin |
3223 begin |
3224 FollowGear := Gear; |
3224 FollowGear := Gear; |
3225 Gear^.RenderTimer := false; |
3225 Gear^.RenderTimer := false; |
3226 Gear^.doStep := @doStepCakeDown; |
3226 Gear^.doStep := @doStepCakeDown; |
3227 exit |
3227 exit |
3228 end; |
3228 end |
|
3229 else if Gear^.Timer < 6000 then |
|
3230 Gear^.RenderTimer:= true; |
3229 |
3231 |
3230 if not cakeStep(Gear) then Gear^.doStep:= @doStepCakeFall; |
3232 if not cakeStep(Gear) then Gear^.doStep:= @doStepCakeFall; |
3231 |
3233 |
3232 if Gear^.Tag = 0 then |
3234 if Gear^.Tag = 0 then |
3233 begin |
3235 begin |