User File #21887909941075041

Upload All User Files

#21887909941075041 - Crash HA lua v1.2

CrashGBA - 1.2.lua
894 downloads
Uploaded 4/4/2015 5:02 PM by Spikestuff (see all 287)
Moving all my stuff from Google Code on site.
Latest Revisions:
VBA
BizHawk
Hmm... I wonder what ever happened to v1.1, I actually don't think I ever made a v1.1, huh. Okay then.
while true do
air = memory.readbyte(0x02010A7C)
pack = memory.readbyte(0x02010A71)

  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(80,38," Lives: " .. memory.readshort(0x02000098),"white")
  gui.text(80,30," Boxes: " .. memory.readshort(0x02000094),"white")
  gui.text(122,30," / " .. memory.readshort(0x02003474),"white")
   
-- gui.text(1,102,"Jump?: " .. memory.readshort(0x02010A6C),"teal")
-- old value for Jump Check

--AIR OR GROUND
if air == 8 then
gui.text(8,54," GROUND","#999900")
else
if air == 0 then
gui.text(8,54," AIR","#66FFCC")
else
end  
end

  gui.text(1,111,"Pack: " .. memory.readbyte(0x02003484),"teal")
  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")

boss = memory.readbyte(0x02003AB8)
if boss > 0 and boss < 4 then
  gui.text(165,30," Boss Hits: " .. memory.readshort(0x02003AB8),"red")
--  gui.text(165,38," Turret: " .. memory.readshort(0x00000000),"teal")
--  gui.text(205,38,"|" .. memory.readshort(0x00000000),"teal")
--  gui.text(165,46," Bombs: " .. memory.readshort(0x00000000),"teal")
--  gui.text(165,54," Machine: " .. memory.readshort(0x00000000),"teal")
end

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

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