animation.lua

dgsLogLuaMemory()
---------------Speed Up
local type = type
local tonumber = tonumber
local dgsTriggerEvent = dgsTriggerEvent
local isElement = isElement
local getEasingValue = getEasingValue
local animationID = 0

function dgsAnimTo(...)
	local dgsEle,property,targetValue,easing,duration,delay,reversedProgress,splitTable
	if select("#",...) == 1 and type(select(1,...)) == "table" then
		local argTable = ...
		dgsEle = argTable.ele or argTable.dgsEle or argTable.element or argTable.dgsElement or argTable.source or argTable[1]
		property = argTable.property or argTable[2]
		targetValue = argTable.target or argTable.targetValue or argTable[3]
		easing = argTable.easing or argTable.easingFunction or argTable[4]
		duration = argTable.duration or argTable.time or argTable[5]
		delay = argTable.delay or argTable[6]
		reversedProgress = argTable.reversed or argTable[7]
		splitTable = argTable[8]
	else
		dgsEle,property,targetValue,easing,duration,delay,reversedProgress,splitTable = ...
	end
	delay = tonumber(delay) or 0
	if not(type(dgsEle) == "table" or dgsIsType(dgsEle)) then error(dgsGenAsrt(dgsEle,"dgsAnimTo",1,"dgs-dxelement/table")) end
	if not(type(property) == "string") then error(dgsGenAsrt(property,"dgsAnimTo",2,"string")) end
	easing = easing or "Linear"
	if not(dgsEasingFunctionExists(easing)) then error(dgsGenAsrt(easing,"dgsAnimTo",4,_,"easing function doesn't exist ("..tostring(easing)..")")) end
	if not(type(duration) == "number") then error(dgsGenAsrt(duration,"dgsAnimTo",5,"number")) end
	if type(dgsEle) == "table" then
		local animIDs = {}
		for index,dgsEleItem in pairs(dgsEle) do
			animIDs[index] = dgsAnimTo(dgsEleItem,property,targetValue,easing,duration,delay,reversedProgress,splitTable)
		end
		return animIDs
	else
		animationID = animationID+1
		local animTable = {
			[-3]=nil,
			[-2]=animationID,
			[-1]=sourceResourceRoot,
			[0]=nil, --Result
			[1]=dgsEle,
			[2]=property,
			[3]=nil, --Start Value
			[4]=targetValue,
			[5]=easing,
			[6]=duration,
			[7]=getTickCount()+delay,
			[8]=reversedProgress,
			[9]=splitTable,
		}
		--Debugging
		local isTraceDebug = getElementData(localPlayer,"DGS-DebugTracer") or (getElementData(localPlayer,"DGS-DEBUG") == 3)
		if isTraceDebug then
			dgsDebugGetContext(sourceResourceRoot,function(context)
				animTable[-3] = context
			end)
		end
		--
		table.insert(animQueue,animTable)
		return animationID
	end
end

function dgsStopAniming(...)
	local dgsEle,property
	local stopTick = getTickCount()
	if select("#",...) == 1 and type(select(1,...)) == "table" then
		local argTable = ...
		dgsEle = argTable.ele or argTable.dgsEle or argTable.element or argTable.dgsElement or argTable.source or argTable.index or argTable[1]
		property = argTable.property or argTable[2]
	else
		dgsEle,property = ...
	end
	if not(dgsIsType(dgsEle) or type(dgsEle) == "number") then error(dgsGenAsrt(dgsEle,"dgsStopAniming",1,"dgs-dxelement/number")) end
	if type(dgsEle) == "number" then
		--Kill the specific animation
		local index = 1
		while index <= #animQueue do
			local anim = animQueue[index]
			if anim[-2] == dgsEle  then --Confirm by unique animation ID
				local theEle = anim[1]
				table.remove(animQueue,index)	--Remove
				property = anim[2]
				dgsTriggerEvent("onDgsStopAniming",theEle,anim[-2],property,anim[3],anim[4],anim[5],anim[7],anim[6],stopTick)
				if property == "rltPos" or property == "absPos" then
					dgsTriggerEvent("onDgsStopMoving",theEle,anim[-2])
				elseif property == "rltSize" or property == "absSize" then
					dgsTriggerEvent("onDgsStopSizing",theEle,anim[-2])
				elseif property == "alpha" then
					dgsTriggerEvent("onDgsStopAlphaing",theEle,anim[-2])
				end
				return true
			else
				index = index+1
			end
		end
	elseif type(property) == "string" then
		--Kill all animations of the specific property
		local index = 1
		while index <= #animQueue do
			local anim = animQueue[index]
			if anim[1] == dgsEle and anim[2] == property then --Confirm
				table.remove(animQueue,index)	--Remove
				dgsTriggerEvent("onDgsStopAniming",dgsEle,anim[-2],property,anim[3],anim[4],anim[5],anim[7],anim[6],stopTick)
				if property == "rltPos" or property == "absPos" then
					dgsTriggerEvent("onDgsStopMoving",dgsEle,anim[-2])
				elseif property == "rltSize" or property == "absSize" then
					dgsTriggerEvent("onDgsStopSizing",dgsEle,anim[-2])
				elseif property == "alpha" then
					dgsTriggerEvent("onDgsStopAlphaing",dgsEle,anim[-2])
				end
			else
				index = index+1
			end
		end
		return true
	elseif type(property) == "table" then
		local index = 1
		while index <= #animQueue do
			local anim = animQueue[index]
			if anim[1] == dgsEle then --Confirm
				for i=1,#property do
					if anim[2] == property[i] then
						table.remove(animQueue,index)	--Remove
						dgsTriggerEvent("onDgsStopAniming",dgsEle,anim[-2],property[i],anim[3],anim[4],anim[5],anim[7],anim[6],stopTick)
						if property[i] == "rltPos" or property[i] == "absPos" then
							dgsTriggerEvent("onDgsStopMoving",dgsEle,anim[-2])
						elseif property[i] == "rltSize" or property[i] == "absSize" then
							dgsTriggerEvent("onDgsStopSizing",dgsEle,anim[-2])
						elseif property[i] == "alpha" then
							dgsTriggerEvent("onDgsStopAlphaing",dgsEle,anim[-2])
						end
						break
					end
				end
			end
			index = index+1
		end
	else
		local index = 1
		while index <= #animQueue do
			local anim = animQueue[index]
			if anim[1] == dgsEle then --Confirm
				table.remove(animQueue,index)	--Remove
				dgsTriggerEvent("onDgsStopAniming",dgsEle,anim[-2],anim[2],anim[3],anim[4],anim[5],anim[7],anim[6],stopTick)
				if anim[2] == "rltPos" or anim[2] == "absPos" then
					dgsTriggerEvent("onDgsStopMoving",dgsEle,anim[-2])
				elseif anim[2] == "rltSize" or anim[2] == "absSize" then
					dgsTriggerEvent("onDgsStopSizing",dgsEle,anim[-2])
				elseif anim[2] == "alpha" then
					dgsTriggerEvent("onDgsStopAlphaing",dgsEle,anim[-2])
				end
			else
				index = index+1
			end
		end
	end
end

function dgsIsAniming(dgsEle,property)
	if not(dgsIsType(dgsEle)) then error(dgsGenAsrt(dgsEle,"dgsIsAniming",1,"dgs-dxelement")) end
	if type(property) == "string" then
		for i=1,#animQueue do
			if animQueue[i][1] == dgsEle and animQueue[i][2] == property then
				return true
			end
		end
	elseif type(property) == "table" then
		for i=1,#animQueue do
			if animQueue[i][1] == dgsEle then
				for p=1,#property do
					if animQueue[i][2] == property[p] then
						return true
					end
				end
			end
		end
	else
		for i=1,#animQueue do
			if animQueue[i][1] == dgsEle then
				return true
			end
		end
	end
end

local easingSettings = {}
function onAnimQueueProcess()
	local animIndex,animItem = 1
	local dgsEle,property,startValue,targetValue,easing,duration,startTick
	local rTick = getTickCount()
	local dbgResult,rProgress
	while animIndex <= #animQueue do
		animItem = animQueue[animIndex]
		dgsEle = animItem[1]
		if isElement(dgsEle) then
			startTick = animItem[7]
			if rTick >= startTick then
				if animItem[3] == nil then animItem[3] = dgsElementData[dgsEle][ animItem[2] ] end
				property,startValue,targetValue,easing,duration,reversedProgress,splitTable = animItem[2],animItem[3],animItem[4],animItem[5],animItem[6],animItem[8],animItem[9]
				rProgress = (rTick-startTick)/duration
				if rProgress >= 1 then rProgress = 1 end
				if reversedProgress then rProgress = 1-rProgress end
				if dgsEasingFunction[easing] then
					if splitTable and type(startValue) == "table" then
						animItem[0] = {}
						for i=1,#startValue do
							easingSettings[1],easingSettings[2],easingSettings[3],easingSettings[4] = property,targetValue,startValue,i
							animItem[0][i] = startValue[i]+(targetValue[i]-startValue[i])*dgsEasingFunction[easing](rProgress,easingSettings,dgsEle)
						end
						easingSettings[4] = nil
					else
						easingSettings[1],easingSettings[2],easingSettings[3] = property,targetValue,startValue
						animItem[0] = dgsEasingFunction[easing](rProgress,easingSettings,dgsEle)
					end
				else
					local easingValue = getEasingValue(rProgress,easing)
					if type(startValue) == "table" then
						animItem[0] = {}
						for i=1,#startValue do
							animItem[0][i] = startValue[i]+(targetValue[i]-startValue[i])*easingValue
						end
					else
						animItem[0] = startValue+(targetValue-startValue)*easingValue
					end
				end
				dbgResult = pcall(dgsSetProperty,dgsEle,property,animItem[0])
				if not dbgResult then
					outputDebugString("DGS runtime error: Animation",4,255,180,100)
					if animItem[-1] and animItem[-3] then
						local debugContext = animItem[-3]
						if type(debugContext) == "table" then
							dgsTriggerEvent("DGSI_onDebug",animItem[-1],"AnimationError",property,debugContext.file,debugContext.line,debugContext.fncName)
						end
					end
				end
				if rProgress == 1 then
					dgsStopAniming(animItem[-2])
				else
					animIndex = animIndex+1
				end
			else
				animIndex = animIndex+1
			end
		else
			table.remove(animQueue,animIndex)
		end
	end
end

function dgsMoveTo(...)
	local dgsEle,x,y,relative,easing,duration,delay,reversedProgress
	if select("#",...) == 1 and type(select(1,...)) == "table" then
		local argTable = ...
		dgsEle = argTable.ele or argTable.dgsEle or argTable.element or argTable.dgsElement or argTable.source or argTable[1]
		x = argTable.x or argTable[2]
		y = argTable.y or argTable[3]
		relative = argTable.rlt or argTable.relative or argTable[4]
		easing = argTable.easing or argTable.easingFunction or argTable[5]
		duration = argTable.duration or argTable.time or argTable[6]
		delay = argTable.delay or argTable[7]
		reversedProgress = argTable.reversed or argTable[8]
	else
		dgsEle,x,y,relative,easing,duration,delay,reversedProgress = ...
	end
	delay = tonumber(delay) or 0
	if not(type(dgsEle) == "table" or dgsIsType(dgsEle)) then error(dgsGenAsrt(dgsEle,"dgsMoveTo",1,"dgs-dxelement/table")) end
	if not(type(x) == "number") then error(dgsGenAsrt(x,"dgsMoveTo",2,"number")) end
	if not(type(y) == "number") then error(dgsGenAsrt(y,"dgsMoveTo",3,"number")) end
	easing = easing or "Linear"
	if not(dgsEasingFunctionExists(easing)) then error(dgsGenAsrt(easing,"dgsMoveTo",5,"easing function doesn't exist ("..tostring(easing)..")")) end
	if not(type(duration) == "number") then error(dgsGenAsrt(duration,"dgsMoveTo",6,"number")) end
	return dgsAnimTo(dgsEle,relative and "rltPos" or "absPos",{x,y},easing,duration,delay,reversedProgress,true)
end

function dgsStopMoving(dgsEle)
	if not(type(dgsEle) == "table" or dgsIsType(dgsEle)) then error(dgsGenAsrt(dgsEle,"dgsStopMoving",1,"dgs-dxelement/table")) end
	if type(dgsEle) == "table" then
		for i=1,#dgsEle do dgsStopMoving(dgsEle[i]) end
	else
		dgsStopAniming(dgsEle,{"absPos","rltPos"})
	end
	return true
end

function dgsIsMoving(dgsEle)
	if not(dgsIsType(dgsEle)) then error(dgsGenAsrt(dgsEle,"dgsIsMoving",1,"dgs-dxelement")) end
	return dgsIsAniming(dgsEle,{"absPos","rltPos"})
end

function dgsSizeTo(...)
	local dgsEle,w,h,relative,easing,duration,delay,reversedProgress
	if select("#",...) == 1 and type(select(1,...)) == "table" then
		local argTable = ...
		dgsEle = argTable.ele or argTable.dgsEle or argTable.element or argTable.dgsElement or argTable.source or argTable[1]
		w = argTable.w or argTable.width or argTable[2]
		h = argTable.h or argTable.height or argTable[3]
		relative = argTable.rlt or argTable.relative or argTable[4]
		easing = argTable.easing or argTable.easingFunction or argTable[5]
		duration = argTable.duration or argTable.time or argTable[6]
		delay = argTable.delay or argTable[7]
		reversedProgress = argTable.reversed or argTable[8]
	else
		dgsEle,w,h,relative,easing,duration,delay,reversedProgress = ...
	end
	delay = tonumber(delay) or 0
	if not(type(dgsEle) == "table" or dgsIsType(dgsEle)) then error(dgsGenAsrt(dgsEle,"dgsSizeTo",1,"dgs-dxelement/table")) end
	if not(type(w) == "number") then error(dgsGenAsrt(w,"dgsSizeTo",2,"number")) end
	if not(type(h) == "number") then error(dgsGenAsrt(h,"dgsSizeTo",3,"number")) end
	if relative then 
		if w > 10 or w < -10 then error(dgsGenAsrt(w,"dgsSizeTo",2,"float between [0, 1]")) end
		if h > 10 or h < -10 then error(dgsGenAsrt(h,"dgsSizeTo",3,"float between [0, 1]")) end
	end
	easing = easing or "Linear"
	if not(dgsEasingFunctionExists(easing)) then error(dgsGenAsrt(easing,"dgsSizeTo",5,"easing function doesn't exist ("..tostring(easing)..")")) end
	if not(type(duration) == "number") then error(dgsGenAsrt(duration,"dgsSizeTo",6,"number")) end
	return dgsAnimTo(dgsEle,relative and "rltSize" or "absSize",{w,h},easing,duration,delay,reversedProgress,true)
end

function dgsStopSizing(dgsEle)
	if not(type(dgsEle) == "table" or dgsIsType(dgsEle)) then error(dgsGenAsrt(dgsEle,"dgsStopSizing",1,"dgs-dxelement/table")) end
	if type(dgsEle) == "table" then
		for i=1,#dgsEle do dgsStopMoving(dgsEle[i]) end
	else
		dgsStopAniming(dgsEle,{"absSize","rltSize"})
	end
	return true
end

function dgsIsSizing(dgsEle)
	if not(dgsIsType(dgsEle)) then error(dgsGenAsrt(dgsEle,"dgsIsSizing",1,"dgs-dxelement")) end
	return dgsIsAniming(dgsEle,{"absSize","rltSize"})
end

function dgsAlphaTo(...)
	local dgsEle,alpha,relative,easing,duration,delay,reversedProgress
	if select("#",...) == 1 and type(select(1,...)) == "table" then
		local argTable = ...
		dgsEle = argTable.ele or argTable.dgsEle or argTable.element or argTable.dgsElement or argTable.source or argTable[1]
		alpha = argTable.a or argTable.alpha or argTable[2]
		easing = argTable.easing or argTable.easingFunction or argTable[3]
		duration = argTable.duration or argTable.time or argTable[4]
		delay = argTable.delay or argTable[5]
		reversedProgress = argTable.reversed or argTable[6]
	else
		dgsEle,alpha,easing,duration,delay,reversedProgress = ...
	end
	delay = tonumber(delay) or 0
	if not(type(dgsEle) == "table" or dgsIsType(dgsEle)) then error(dgsGenAsrt(dgsEle,"dgsAlphaTo",1,"dgs-dxelement/table")) end
	if not(type(alpha) == "number") then error(dgsGenAsrt(alpha,"dgsAlphaTo",2,"number")) end
	easing = easing or "Linear"
	if not(dgsEasingFunctionExists(easing)) then error(dgsGenAsrt(easing,"dgsAlphaTo",3,_,"easing function doesn't exist ("..tostring(easing)..")")) end
	if not(type(duration) == "number") then error(dgsGenAsrt(duration,"dgsAlphaTo",4,"number")) end
	return dgsAnimTo(dgsEle,"alpha",alpha,easing,duration,delay,reversedProgress,true)
end

function dgsStopAlphaing(dgsEle)
	if not(type(dgsEle) == "table" or dgsIsType(dgsEle)) then error(dgsGenAsrt(dgsEle,"dgsStopAlphaing",1,"dgs-dxelement/table")) end
	if type(dgsEle) == "table" then
		for i=1,#dgsEle do dgsStopMoving(dgsEle[i]) end
	else
		dgsStopAniming(dgsEle,"alpha")
	end
	return true
end

function dgsIsAlphaing(dgsEle)
	if not(dgsIsType(dgsEle)) then error(dgsGenAsrt(dgsEle,"dgsIsAlphaing",1,"dgs-dxelement")) end
	return dgsIsAniming(dgsEle,"alpha")
end