hedgewars/VGSHandlers.inc
changeset 5366 bfdd925e89a5
parent 5357 ec36f3d53f3c
parent 5355 9e0c51a882aa
child 5491 3a82724de759
equal deleted inserted replaced
5357:ec36f3d53f3c 5366:bfdd925e89a5
    44         begin
    44         begin
    45         dec(FrameTicks, vobSDFrameTicks);
    45         dec(FrameTicks, vobSDFrameTicks);
    46         inc(Frame);
    46         inc(Frame);
    47         if Frame = vobSDFramesCount then Frame:= 0
    47         if Frame = vobSDFramesCount then Frame:= 0
    48         end;
    48         end;
    49     X:= X + (cWindSpeedf * 600 + dX + tdX) * Steps;
    49     X:= X + (cWindSpeedf * 400 + dX + tdX) * Steps;
    50     if SuddenDeathDmg then
    50     if SuddenDeathDmg then
    51         Y:= Y + (dY + tdY + cGravityf * vobSDFallSpeed) * Steps
    51         Y:= Y + (dY + tdY + cGravityf * vobSDFallSpeed) * Steps
    52     else
    52     else
    53         Y:= Y + (dY + tdY + cGravityf * vobFallSpeed) * Steps;
    53         Y:= Y + (dY + tdY + cGravityf * vobFallSpeed) * Steps;
    54     Angle:= Angle + dAngle * Steps;
    54     Angle:= Angle + dAngle * Steps;