Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
alexbevi
GitHub Repository: alexbevi/BizHawk
 Path: blob/master/Assets/Lua/NES/Snake Rattle N' Roll.lua
2 views
1
-- Snake Rattle N' Roll 'Simple HUD Script'

2
-- Retrieved from http://tasvideos.org/GameResources/NES/SnakeRattleNRoll.html

3


4
dim1speed = 0

5
dim2speed = 0

6
xspeed    = 0

7
xsubspeed = 0

8
yspeed    = 0

9
ysubspeed = 0

10
xm = 0

11
ym = 0

12


13
function stuff()

14
	xspeed    = mainmemory.read_u8(0x417)

15
	xsubspeed = mainmemory.read_u8(0x419)

16
	if (xspeed == 255) then xspeed = -1 end

17
	

18
	yspeed    = mainmemory.read_u8(0x41b)

19
	ysubspeed = mainmemory.read_u8(0x41d)

20
	if (yspeed == 255) then yspeed = -1 end

21


22
	gui.text(1 * xm,19 * ym,"L:"..mainmemory.read_u8(0x67) % 16) -- left axis

23
	gui.text(1 * xm,29 * ym,"R:"..mainmemory.read_u8(0x69) % 16) -- right axis

24
	gui.text(1 * xm,39 * ym,"H:"..mainmemory.read_u8(0x6b) % 16)	-- height axis

25
	gui.text(30 * xm,19 * ym, "LVel:"..(xspeed * 256) + xsubspeed + (yspeed * 256) + ysubspeed)

26
	gui.text(30 * xm,29 * ym,"RVel:"..(xspeed * 256) + xsubspeed - (yspeed * 256) - ysubspeed)

27
end

28


29
local function scaler()

30
	xm = client.screenwidth() / 256

31
	ym = client.screenheight() / 224

32
end

33
while true do

34
	scaler()

35
	stuff()

36
	emu.frameadvance()

37
end	

38