equal
deleted
inserted
replaced
84 procedure doStepKamikazeWork(Gear: PGear); |
84 procedure doStepKamikazeWork(Gear: PGear); |
85 procedure doStepKamikazeIdle(Gear: PGear); |
85 procedure doStepKamikazeIdle(Gear: PGear); |
86 procedure doStepKamikaze(Gear: PGear); |
86 procedure doStepKamikaze(Gear: PGear); |
87 procedure doStepCakeExpl(Gear: PGear); |
87 procedure doStepCakeExpl(Gear: PGear); |
88 procedure doStepCakeDown(Gear: PGear); |
88 procedure doStepCakeDown(Gear: PGear); |
89 procedure doStepCakeWork(Gear: PGear); |
89 procedure doStepCakeWalk(Gear: PGear); |
90 procedure doStepCakeUp(Gear: PGear); |
90 procedure doStepCakeUp(Gear: PGear); |
91 procedure doStepCakeFall(Gear: PGear); |
91 procedure doStepCakeFall(Gear: PGear); |
92 procedure doStepCake(Gear: PGear); |
92 procedure doStepCake(Gear: PGear); |
93 procedure doStepSeductionWork(Gear: PGear); |
93 procedure doStepSeductionWork(Gear: PGear); |
94 procedure doStepSeductionWear(Gear: PGear); |
94 procedure doStepSeductionWear(Gear: PGear); |
3246 end |
3246 end |
3247 else dec(Gear^.Pos) |
3247 else dec(Gear^.Pos) |
3248 end; |
3248 end; |
3249 |
3249 |
3250 |
3250 |
3251 procedure doStepCakeWork(Gear: PGear); |
3251 procedure doStepCakeWalk(Gear: PGear); |
3252 var |
3252 var |
3253 tdx, tdy: hwFloat; |
3253 tdx, tdy: hwFloat; |
3254 cakeData: PCakeData; |
3254 cakeData: PCakeData; |
3255 begin |
3255 begin |
3256 AllInactive := false; |
3256 AllInactive := false; |
3313 CakePoints[i].x := Gear^.X; |
3313 CakePoints[i].x := Gear^.X; |
3314 CakePoints[i].y := Gear^.Y |
3314 CakePoints[i].y := Gear^.Y |
3315 end; |
3315 end; |
3316 CakeI := 0; |
3316 CakeI := 0; |
3317 end; |
3317 end; |
3318 Gear^.doStep := @doStepCakeWork |
3318 Gear^.doStep := @doStepCakeWalk |
3319 end |
3319 end |
3320 else |
3320 else |
3321 inc(Gear^.Pos) |
3321 inc(Gear^.Pos) |
3322 end; |
3322 end; |
3323 |
3323 |