XeNTaX

Code: Select all

local this={}

local m=math
local sqrt=m.sqrt
local floor=m.floor
m=nil

local F={
	gameElapsedTime=TppTime.GetRawElapsedTimeSinceStartUp,
	announce=TppUiCommand.AnnounceLogView
}

this.var={
	player={
		oldPos=false,
		newPos=false
	},
	time={
		prev=false
	}
}

if not this.var.time.prev then this.var.time.prev=F.gameElapsedTime()end

function this:calcSpeed()
	local op=this.var.player.oldPos or false

	if not op then
		this.var.player.oldPos=self
		return
	end

	local np=self

	local x,y,z=(np[1]-op[1]),(np[2]-op[2]),(np[3]-op[3])

	x=sqrt((x*x)+(y*y)+(z*z))
	x=((floor(x*10))*-10)
	x=floor(x/1e3)
	F.announce(x..' KPH')
	
	return x
end

function this.Update()
	if ((this.var.time.prev+1)<=F.gameElapsedTime()) then
		this.var.time.prev=F.gameElapsedTime()
		local vars
		this.var.player.newPos=this.calcSpeed({vars.playerPosX,vars.playerPosY,vars.playerPosZ})
	end
end

Code: Select all

--DEBUG
	--e.debug.multiEcho({'cbox vars','cboxIsValid',vars.cboxIsValid,'cboxLife',vars.cboxLife,'cboxFlag',vars.cboxFlag,'cboxPosterType',vars.cboxPosterType,'cboxEquipId',vars.cboxEquipId,'cboxLocation',vars.cboxLocation})
	do
		local t={vars.cboxIsValid,vars.cboxLife,vars.cboxFlag,vars.cboxPosterType,vars.cboxEquipId,vars.cboxLocation}
		for i=1,#t do
			F.echo('indice '..i)
			for k,v in pairs(t[i])do
				if k and v then
					F.echo(tostring(k)..'='..tostring(v))
				elseif k then
					F.echo('key='..tostring(k))
				elseif v then
					F.echo('value='..tostring(v))
				end
			end
		end
	end
--

Code: Select all

      cboxEquipId = <514>{
      [-285212666] = 16,
      [-285212665] = <userdata 133>,
      __index = <function 10017>,
      __newindex = <function 10018>,
      <metatable> = <table 514>
    },
    cboxFlag = <515>{
      [-285212666] = 16,
      [-285212665] = <userdata 134>,
      __index = <function 10019>,
      __newindex = <function 10020>,
      <metatable> = <table 515>
    },
    cboxIsValid = <516>{
      [-285212666] = 16,
      [-285212665] = <userdata 135>,
      __index = <function 10021>,
      __newindex = <function 10022>,
      <metatable> = <table 516>
    },
    cboxLife = <517>{
      [-285212666] = 16,
      [-285212665] = <userdata 136>,
      __index = <function 10023>,
      __newindex = <function 10024>,
      <metatable> = <table 517>
    },
    cboxLocation = <518>{
      [-285212666] = 64,
      [-285212665] = <userdata 137>,
      __index = <function 10025>,
      __newindex = <function 10026>,
      <metatable> = <table 518>
    },
    cboxPosterIndices = <519>{
      [-285212666] = 16,
      [-285212665] = <userdata 138>,
      __index = <function 10027>,
      __newindex = <function 10028>,
      <metatable> = <table 519>
    },
    cboxPosterType = <520>{
      [-285212666] = 16,
      [-285212665] = <userdata 139>,
      __index = <function 10029>,
      __newindex = <function 10030>,
      <metatable> = <table 520>
    },

Code: Select all

local e={}

--##|emulation lines|##
local vars={
	playerPosX=110,
	playerPosY=470,
	playerPosZ=350
}

local Time={
	GetRawElapsedTimeSinceStartUp=os.clock
}

local TppUiCommand={
	AnnounceLogView=print
}
--##|/|##

e.var={
	player={
		oldPos={100,450,300},
		newPos=false,
	},
	time={
		oldTime=Time.GetRawElapsedTimeSinceStartUp()+1
	}
}

--##|emulation lines|##
while Time.GetRawElapsedTimeSinceStartUp()<e.var.time.oldTime+1 do
end
--##|/|##

function e:playerSpeed()
	local op=e.var.player.oldPos
	local np=self
	self=nil

	local x,y,z=(np[1]-op[1]),(np[2]-op[2]),(np[3]-op[3])
	op=nil
	x=math.sqrt((x*x)+(y*y)+(z*z))
	y=nil
	x=(math.floor(x*10)*1e-1)
	local secToHour=(60*60)
	local mInKm=1e3
	x=x*secToHour
	x=x/mInKm
	secToHour,mInKm=nil
	z=x%1
	if 0<z then
		if z<0.5 then
			x=(math.floor(x*10)*1e-1)
		else
			x=(math.ceil(x*10)*1e-1)
		end
	end
	TppUiCommand.AnnounceLogView(x..' KPH')
	return np
end

function e.Update()
	if e.var.time.oldTime<Time.GetRawElapsedTimeSinceStartUp() then
		e.var.player.oldPos=e.playerSpeed({vars.playerPosX,vars.playerPosY,vars.playerPosZ})
	end
end

e.Update()

Code: Select all

7862.802: max generated line count of 500000 reached; calling e.loop()
7862.837: calling e.createNewDictionary()
7863.159: entries
7864.105: creating output file
7868.425: freeing memory
7868.708: importing lines from output file
#oHashes=500000
#oEntries=500000
oEntries[1]=/Assets/tpp/common_source/environ/guantanamo/cm_cypr_pllt053/sourceimages/cm_cypr_pllt053_gg_clp
7868.894: s.find done
7869.261back in e.loop()
7870.571: max generated line count of 500000 reached; calling e.loop()
7870.605: calling e.createNewDictionary()
7870.933: entries
7872.051: creating output file
7876.492: freeing memory
7876.794: importing lines from output file
#oHashes=500000
#oEntries=500000
oEntries[1]=/Assets/tpp/common_source/environ/guantanamo/cm_mafr_nett053/sourceimages/cm_mafr_nett053_st_shm
7876.944: s.find done
7877.352back in e.loop()