User File #11441349892041847

Upload All User Files

#11441349892041847 - Crash HA lua v1.3

CrashGBA - 1.3.lua
923 downloads
Uploaded 12/20/2013 5:54 AM by Spikestuff (see all 274)
Values work better for Huge Adventure there is a value in XS version that's not in this lua.
Latest Revisions:
VBA
BizHawk
-- Crash Huge Adventure lua v1.3
-- This is Community Work Please Help
-- Join in add updates of your own and add your name

-- Values found by: Spikestuff, Got4n
-- Script Edited by: Spikestuff

while true do
air = memory.readbyte(0x02010A7C)
airb = memory.readbyte(0x03007C82)
pack = memory.readbyte(0x02010A71)
area = memory.readbyte(0x02010E06)
areab = memory.readbyte(0x02010DD1)
mask = memory.readbyte(0x0200009C)
boss = memory.readbyte(0x02003AB8)
  
-- SPEED AND/OR PIXEL POS.
if area == 1 then -- Normal
	gui.text(8,30," PixelX: " .. memory.readshort(0x02010A15),"orange")
	gui.text(8,38," SpeedX: " .. memory.readbytesigned(0x02010A75),"orange")
	gui.text(8,46," SpeedY: " .. memory.readbytesigned(0x02010A69),"orange")
	gui.text(1,120,"Camera: " .. memory.readbyte(0x02006E5D),"teal")
	gui.text(1,129,"Spin Time 23/" .. memory.readbyte(0x02010DDC),"white")
	gui.text(1,138,"Slide Time: 22/" .. memory.readbyte(0x02010DDC),"white")
else if area == 0 then -- Bonus
	gui.text(8,30," PixelX: " .. memory.readshort(0x02010E2D),"#CCFF33")
	gui.text(8,38," SpeedX: " .. memory.readbytesigned(0x02010E8D),"#CCFF33")
	gui.text(8,46," SpeedY: " .. memory.readbytesigned(0x02010E81),"#CCFF33")
	gui.text(1,129,"Spin Time 23/" .. memory.readbyte(0x020111F4),"white")
	gui.text(1,138,"Slide Time: 22/" .. memory.readbyte(0x020111F4),"white")
else if area == 5 then -- Water
	gui.text(8,38," Swim: " .. memory.readbytesigned(0x02010DE6),"teal")
	gui.text(8,30," PixelX: " .. memory.readshort(0x02010A15),"teal")
	gui.text(1,120,"Camera: " .. memory.readbyte(0x02006E5D),"teal")
else if area == 119 then -- Flying
	gui.text(1,111,"Pack: " .. memory.readbyte(0x02003484),"teal")
	gui.text(1,121,"Cooldown: " .. memory.readbyte(0x030014E0),"teal")
if boss > 0 and boss < 4 then -- Beta for N.Gin but works 100%
	gui.text(165,38," Bomb: " .. (memory.readshort(0x03004130)+1)/2,"teal")
	gui.text(165,46," Rockets: " .. memory.readshort(0x030041B0)/2 .. "/" .. memory.readshort(0x03004230)/2,"teal")
	gui.text(165,54," Turret: " .. (memory.readshort(0x030040B0)+1)/2,"teal") end
else if areab == 0 then -- Polar
	gui.text(1,111,"Speed " .. memory.readbyte(0x03003F18) .. "/2","teal")
end end end end end
  
--  Level Check
	if areab == 0 then gui.text(1,102,"POLAR","#D6AD33") else -- POLAR
	if area == 5 then gui.text(1,102,"WATER","teal") else -- WATER
	if area == 119 then gui.text(1,102,"FLYING","#DBB84D") else -- FLYING
-- Bonus
	if airb == 0 then gui.text(1,102,"GROUND","#999900") else
	if airb == 2 then gui.text(1,102,"AIR","#66FFCC") else
-- Normal
	if air == 8 then gui.text(1,102,"GROUND","#999900") else
	if air == 0 then gui.text(1,102,"AIR","#66FFCC") else
end end end end end end end

-- Boss Check
if boss > 0 and boss < 4 then
	gui.text(165,30," Boss Hits: " .. memory.readshort(0x02003AB8)+1,"red")
end

-- Mask Check
if mask > 0 and mask < 4 then
	gui.text(80,46," Mask Level: " .. memory.readshort(0x0200009C),"yellow")
end

--things that don't need to change.
 gui.text(80,38," Lives: " .. memory.readshort(0x02000098),"white")
 gui.text(80,30," Boxes: " .. memory.readshort(0x02000094),"white")
 gui.text(122,30," / " .. memory.readshort(0x02003474),"white")

if movie.active()==true then gui.text(190,151,movie.rerecordcount() .. " :Rerecords") end
if movie.active()==false then gui.drawbox(150,148,240,160, "red") end
if movie.active()==false then gui.text(158,151, "MOVIE NOT RECORDING") end

  vba.frameadvance()  
end