equal
deleted
inserted
replaced
31 if Frame = vobFramesCount then Frame:= 0 |
31 if Frame = vobFramesCount then Frame:= 0 |
32 end; |
32 end; |
33 X:= X + (cWindSpeedf * 200 + dX + tdX) * Steps; |
33 X:= X + (cWindSpeedf * 200 + dX + tdX) * Steps; |
34 Y:= Y + (dY + tdY + cGravityf * vobFallSpeed) * Steps; |
34 Y:= Y + (dY + tdY + cGravityf * vobFallSpeed) * Steps; |
35 Angle:= Angle + dAngle * Steps; |
35 Angle:= Angle + dAngle * Steps; |
|
36 if Angle > 360 then |
|
37 Angle:= Angle - 360 |
|
38 else |
|
39 if Angle < - 360 then |
|
40 Angle:= Angle + 360; |
|
41 |
36 |
42 |
37 if (round(X) >= cLeftScreenBorder) and |
43 if (round(X) >= cLeftScreenBorder) and |
38 (round(X) <= cRightScreenBorder) and |
44 (round(X) <= cRightScreenBorder) and |
39 (round(Y) <= (int64(LAND_HEIGHT) + 75)) and |
45 (round(Y) <= (int64(LAND_HEIGHT) + 75)) and |
40 (Timer > 0) and (Timer-Steps > 0) then |
46 (Timer > 0) and (Timer-Steps > 0) then |