--=== 								===--
--===    Original done by Tsutomu 	===--
--=== Version 1.3 patch 4.0.2.2436	===--
--=== 	  Updated by lisa & rv55	===--
--=== 	  Modified by Andre235		===--
--=== 								===--


-- Speed hack settings
max_base_speed			=	125
percent_speed_increase	=	19 		-- Percent to increase speed. (19% is 'safe')
maintain_speed			=	true	-- Keeps checking speed and keep at optimal.



function isSpeedFast()
	--Float; Normal, expected movement speed, whether mounted or not
	local baseSpeed = memoryReadFloat(getProc(), getBaseAddress(addresses.movement_speed.base) + addresses.movement_speed.offset);
	return getSpeed() > baseSpeed;
end

function getSpeed()
	local playerAddress = memoryReadIntPtr(getProc(), getBaseAddress(addresses.game_root.base), addresses.game_root.player.base) or 0;
	if playerAddress ~= 0 then
		return memoryReadFloat(getProc(), playerAddress + addresses.game_root.pawn.base_speed);
	end
end

function speed(_speed)
	-- Current base speed, includes buff effects.
	local baseSpeedAddress = getBaseAddress(addresses.movement_speed.base) + addresses.movement_speed.offset
	local baseSpeed = memoryReadFloat(getProc(), getBaseAddress(addresses.movement_speed.base) + addresses.movement_speed.offset);

	function reportAbnormality(highOrLow)
		highOrLow = highOrLow or "high";
		cprintf(cli.yellow, "[Speedhack] baseSpeed seems abnormally %s. Value is: %0.2f, address: 0x%X\n", highOrLow, baseSpeed, baseSpeedAddress);
	end
	
	if( baseSpeed > max_base_speed ) then
		reportAbnormality("high");
		return
	elseif( baseSpeed < 0 ) then
		reportAbnormality("low");
		return;
	end
	
	local playerAddress = memoryReadIntPtr(getProc(), getBaseAddress(addresses.game_root.base), addresses.game_root.player.base) or 0;
	
	if( playerAddress ~= 0 ) then
		local mountAddress = memoryReadInt(getProc(), playerAddress + addresses.game_root.pawn.mount_ptr) or 0;

		if _speed == false then
			_speed = baseSpeed;
		else
			_speed = baseSpeed * (1+percent_speed_increase/100);
		end
		
		-- Change the speed.
		memoryWriteFloat(getProc(), playerAddress + addresses.game_root.pawn.base_speed, _speed);
		if( mountAddress ) then
			memoryWriteFloat(getProc(), mountAddress + addresses.game_root.pawn.base_speed, _speed);
		end
	end
end