equal
deleted
inserted
replaced
515 begin |
515 begin |
516 AllInactive := false; |
516 AllInactive := false; |
517 |
517 |
518 doStepFallingGear(Gear); |
518 doStepFallingGear(Gear); |
519 CalcRotationDirAngle(Gear); |
519 CalcRotationDirAngle(Gear); |
|
520 |
|
521 // let's add some smoke depending on speed |
|
522 i:= max(32,152 - hwRound(Distance(Gear^.dX,Gear^.dY)*120)); |
|
523 if (GameTicks mod i) = 0 then |
|
524 AddVisualGear(hwRound(Gear^.X)-round(cos((Gear^.DirAngle+50) * pi / 180)*20), hwRound(Gear^.Y)-round(sin((Gear^.DirAngle+50) * pi / 180)*20), vgtSmoke); |
520 |
525 |
521 if (Gear^.State and gstCollision) <> 0 then |
526 if (Gear^.State and gstCollision) <> 0 then |
522 begin |
527 begin |
523 PlaySound(sndMolotov); |
528 PlaySound(sndMolotov); |
524 gX := hwRound(Gear^.X); |
529 gX := hwRound(Gear^.X); |