Simon

-- GTAIV MegaJump Script
-- by Simon. Based off Alexander Blade's example scripts.

-- Global Variables
    PLAYER_ID, PLAYER_CHAR = 0, PLAYER_INDEX

function SetCharVelocity(char, velocity_x, velocity_y, velocity_z)
    -- Wrapper for: SET_CHAR_VELOCITY=4, False

    PushInt(char)
    PushFloat(velocity_x)
    PushFloat(velocity_y)
    PushFloat(velocity_z)
    CallNative("SET_CHAR_VELOCITY")
end

function GetCharVelocity(char, velocity_x, velocity_y, velocity_z)
    -- Wrapper for: GET_CHAR_VELOCITY=4, False

    PushInt(char)
    PushVarPtr()
    PushVarPtr()
    PushVarPtr()

    velocity_x = GetFloatParam(1)
    velocity_y = GetFloatParam(2)
    velocity_z = GetFloatParam(3)

    CallNative("GET_CHAR_VELOCITY")
end

function GetCharHeading(char, z_angle)

    -- Wrapper for: GET_CHAR_HEADING=2, False
    PushInt(char)
    PushVarPtr()

    z_angle = GetFloatParam(1)
end

--

function InitScript()
  -- blah-blah-blah
  Wait(10000)
end

function WaitForPlayerPoolCreation()
  while (IsPlayerPoolCreated() == 0) do
    Wait(2000)
  end
end

function WaitForValidPlayer()
  PLAYER_CHAR = 0
  repeat
    CallNative("GET_PLAYER_ID")
    PLAYER_ID = GetIntResult()
    if (PLAYER_ID >= 0) then
      PushInt(PLAYER_ID)
      CallNative("CONVERT_INT_TO_PLAYERINDEX")
      PLAYER_INDEX = GetIntResult()
      PushInt(PLAYER_INDEX)
      PushVarPtr()
      CallNative("GET_PLAYER_CHAR")
      PLAYER_CHAR = GetIntParam(1)
      if (PLAYER_CHAR <= 0) then
        Wait(1000)
      end
    end
  until (PLAYER_CHAR > 0)
end

function main()
    InitScript()

    while true do
        WaitForPlayerPoolCreation()
        WaitForValidPlayer()

        if (IsKeyPressed(9) == 1) then
            if (IsKeyPressed(16) == 1) then -- shift (default: sprint)
                local velocity_x, velocity_y, velocity_z

                PushInt(PLAYER_INDEX)
                PushInt(1)

                CallNative("SET_PLAYER_INVINCIBLE")

                PushInt(PLAYER_CHAR)
                PushVarPtr()
                PushVarPtr()
                PushVarPtr()

                CallNative("GET_CHAR_VELOCITY")

                velocity_x = (GetFloatParam(1) * 3.0)
                velocity_y = (GetFloatParam(2) * 3.0)
                velocity_z = GetFloatParam(3)

                if ( velocity_z > -1.5 and velocity_z < 1.5 ) then -- just gonna assume a player is falling/jumping if z velocity is not between -1.5 and 1.5
                    SetCharVelocity(PLAYER_CHAR, velocity_x, velocity_y, velocity_z)
                end


            end

            if (IsKeyPressed(32) == 1) then -- space (default: jump)
                local velocity_x, velocity_y, velocity_z

                PushInt(PLAYER_INDEX)
                PushInt(1)

                CallNative("SET_PLAYER_INVINCIBLE")

                PushInt(PLAYER_CHAR)
                PushVarPtr()
                PushVarPtr()
                PushVarPtr()

                CallNative("GET_CHAR_VELOCITY")

                velocity_x = (GetFloatParam(1) * 20.0)
                velocity_y = (GetFloatParam(2) * 20.0)
                velocity_z = GetFloatParam(3)

                if ( velocity_z > -1.5 and velocity_z < 1.5 ) then -- just gonna assume a player is falling/jumping if z velocity is not between -1.5 and 1.5
                    SetCharVelocity(PLAYER_CHAR, velocity_x, velocity_y, 20.0)
                end
            end
        end

        Wait(50)
    end
end

-- start
main();