equal
deleted
inserted
replaced
22 |
22 |
23 sign:= 1; |
23 sign:= 1; |
24 with Gear^ do |
24 with Gear^ do |
25 begin |
25 begin |
26 inc(FrameTicks, Steps); |
26 inc(FrameTicks, Steps); |
27 if FrameTicks > vobFrameTicks then |
27 if not SuddenDeathDmg and (FrameTicks > vobFrameTicks) then |
28 begin |
28 begin |
29 dec(FrameTicks, vobFrameTicks); |
29 dec(FrameTicks, vobFrameTicks); |
30 inc(Frame); |
30 inc(Frame); |
31 if Frame = vobFramesCount then Frame:= 0 |
31 if Frame = vobFramesCount then Frame:= 0 |
|
32 end |
|
33 else if SuddenDeathDmg and (FrameTicks > vobSDFrameTicks) then |
|
34 begin |
|
35 dec(FrameTicks, vobSDFrameTicks); |
|
36 inc(Frame); |
|
37 if Frame = vobSDFramesCount then Frame:= 0 |
32 end; |
38 end; |
33 X:= X + (cWindSpeedf * 200 + dX + tdX) * Steps; |
39 X:= X + (cWindSpeedf * 200 + dX + tdX) * Steps; |
34 Y:= Y + (dY + tdY + cGravityf * vobFallSpeed) * Steps; |
40 if SuddenDeathDmg then |
|
41 Y:= Y + (dY + tdY + cGravityf * vobSDFallSpeed) * Steps |
|
42 else |
|
43 Y:= Y + (dY + tdY + cGravityf * vobFallSpeed) * Steps; |
35 Angle:= Angle + dAngle * Steps; |
44 Angle:= Angle + dAngle * Steps; |
36 if Angle > 360 then |
45 if Angle > 360 then |
37 Angle:= Angle - 360 |
46 Angle:= Angle - 360 |
38 else |
47 else |
39 if Angle < - 360 then |
48 if Angle < - 360 then |