---------- GTA IV Alice "printing car speed" script ----------

--global variables
  PLAYER_ID, PLAYER_INDEX, PLAYER_CHAR, CAR, SPEED = 0

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 ReadSpeed()
  PushInt(PLAYER_CHAR)
  PushVarPtr()
  if (IS_CHAR_SITTING_IN_ANY_CAR == 1) then
    CallNative("GET_CAR_CHAR_IS_USING")
    CAR = GetIntResult()
    PushInt(CAR)
    PushVarPtr()
    CallNative("GET_CAR_SPEED")
    SPEED = GetFloatParam(1)
    PrintFloatToLog(SPEED)
  end
end

function main()
  InitScript()
  while true do
    WaitForPlayerPoolCreation()
    WaitForValidPlayer()
    ReadSpeed()
    Wait(2000)
  end	
end

-- start
main();