equal
deleted
inserted
replaced
84 if vobCount = 0 then exit; |
84 if vobCount = 0 then exit; |
85 |
85 |
86 sign:= 1; |
86 sign:= 1; |
87 with Gear^ do |
87 with Gear^ do |
88 begin |
88 begin |
89 inc(FrameTicks, Steps); |
89 if FrameTicks < 1000000 then |
90 if not SuddenDeathDmg and (FrameTicks > vobFrameTicks) then |
90 begin |
91 begin |
91 inc(FrameTicks, Steps); |
92 dec(FrameTicks, vobFrameTicks); |
92 if not SuddenDeathDmg and (FrameTicks > vobFrameTicks) then |
93 inc(Frame); |
93 begin |
94 if Frame = vobFramesCount then |
94 dec(FrameTicks, vobFrameTicks); |
95 Frame:= 0 |
95 inc(Frame); |
96 end |
96 if Frame = vobFramesCount then |
97 else if SuddenDeathDmg and (FrameTicks > vobSDFrameTicks) then |
97 Frame:= 0 |
98 begin |
98 end |
99 dec(FrameTicks, vobSDFrameTicks); |
99 else if SuddenDeathDmg and (FrameTicks > vobSDFrameTicks) then |
100 inc(Frame); |
100 begin |
101 if Frame = vobSDFramesCount then |
101 dec(FrameTicks, vobSDFrameTicks); |
102 Frame:= 0 |
102 inc(Frame); |
|
103 if Frame = vobSDFramesCount then |
|
104 Frame:= 0 |
|
105 end; |
103 end; |
106 end; |
104 X:= X + (cWindSpeedf * 400 + dX + tdX) * Steps * Gear^.Scale; |
107 X:= X + (cWindSpeedf * 400 + dX + tdX) * Steps * Gear^.Scale; |
105 if SuddenDeathDmg then |
108 if SuddenDeathDmg then |
106 Y:= Y + (dY + tdY + cGravityf * vobSDFallSpeed) * Steps * Gear^.Scale |
109 Y:= Y + (dY + tdY + cGravityf * vobSDFallSpeed) * Steps * Gear^.Scale |
107 else |
110 else |