mario luigi superstar saga lua 2015 vba v24

while true do

--** variables to move everything around if needed **--

x = -1
y = 0



--** design **--
-- box
gui.opacity(0.77)
gui.drawbox(5+x, -2+y, 177+x ,26+y, "#1c1c1c")

-- mushroom graphic
gui.drawline(10+x,2+y ,14+x,2+y, "red")
gui.drawline(9+x,3+y ,15+x,3+y, "red")
gui.drawline(9+x,4+y ,15+x,4+y, "red")
gui.drawline(11+x,5+y, 13+x,5+y, "#F5D0A9")
gui.drawline(11+x,6+y, 13+x,6+y, "#F5D0A9")
gui.drawpixel(10+x,3+y, "white")
gui.drawpixel(12+x,2+y, "white")
gui.drawpixel(14+x,3+y, "white")

-- nut graphic
gui.drawline(10+x, 8+y, 12+x, 8+y, "#FFCC66")
gui.drawline(9+x, 9+y, 13+x, 9+y, "#FFCC66")
gui.drawline(9+x, 10+y, 14+x, 10+y, "#FFCC66")
gui.drawline(12+x, 11+y, 14+x, 11+y, "#FFCC66")
gui.drawline(13+x, 12+y, 14+x, 12+y, "#FFCC66")

-- syrup graphic
gui.drawline(11+x, 14+y, 12+x, 14+y, "#FF9900")
gui.drawline(11+x, 15+y, 12+x, 15+y, "#FF9900")
gui.drawline(9+x, 16+y, 14+x, 16+y, "#FF9900")
gui.drawline(9+x, 17+y, 14+x, 17+y, "#FF9900")
gui.drawline(10+x, 18+y, 13+x, 18+y, "#FF9900")

-- seperation line
gui.opacity(0.5)
gui.drawline(55+x, 1+y, 55+x, 18+y, "#FFFFFF")
gui.drawline(56+x, 1+y, 56+x, 18+y, "#FFFFFF")

gui.drawline(77+x, 1+y, 77+x, 18+y, "#FFFFFF")
gui.drawline(78+x, 1+y, 78+x, 18+y, "#FFFFFF")

gui.drawline(144+x, 1+y, 144+x, 25+y, "#FFFFFF")
gui.drawline(145+x, 1+y, 145+x, 25+y, "#FFFFFF")
gui.opacity(0.77)

--** ADDRESS VALUES **--
mushrooms = memory.readbytesigned(0x020048e2)
supermushrooms = memory.readbytesigned(0x020048e3)
ultramushrooms = memory.readbytesigned(0x020048e4)
maxmushrooms = memory.readbytesigned(0x020048e5)
nuts = memory.readbytesigned(0x020048e6)
supernuts = memory.readbytesigned(0x020048e7)
ultranuts = memory.readbytesigned(0x020048e8)
maxnuts = memory.readbytesigned(0x020048e9)
syrups = memory.readbytesigned(0x020048ea)
supersyrups = memory.readbytesigned(0x020048eb)
ultrasyrups = memory.readbytesigned(0x020048ec)
maxsyrups = memory.readbytesigned(0x020048ed)
ONEups = memory.readbytesigned(0x020048ee)
ONEupDXs = memory.readbytesigned(0x020048ef)
goldmushrooms = memory.readbytesigned(0x020048f0)
herbs = memory.readbytesigned(0x020048f1)
redpeppers = memory.readbytesigned(0x020048f2)
greenpeppers = memory.readbytesigned(0x020048f3)
ahastraights = memory.readbytesigned(0x020048f4)
ufustraights = memory.readbytesigned(0x020048f5)
gerastraights = memory.readbytesigned(0x020048f6)
dehestraights = memory.readbytesigned(0x020048f7)
ufumanjaros = memory.readbytesigned(0x020048f8)
gerapuccinos = memory.readbytesigned(0x020048f9)
dehepressos = memory.readbytesigned(0x020048fa)

ahabeans = memory.readbyte(0x02004902)
ufubeans = memory.readbyte(0x02004903)
gerabeans = memory.readbyte(0x02004904)
dehebeans = memory.readbyte(0x02004905)



--TODO: CLOTHES







--Mario
HPM = memory.readword(0x02004866)
HPmaxM = memory.readword(0x0200486A)
BPM = memory.readword(0x0200486c)
BPmaxM = memory.readword(0x02004870)
PowM = memory.readword(0x02004874)
DefM = memory.readword(0x0200487c)
SpeedM = memory.readword(0x02004878)
HigeM = memory.readword(0x02004880)
levelM = memory.readbyte(0x02004888)
ExpM = memory.readword(0x0200485c)


-- This calculates how much experience you have to get for the next level.
-- The NextM/NextL values seem to be hardcoded into the game.
NextM = 0
if levelM == 1 then NextM = 7

elseif levelM == 2 then NextM = 32
elseif levelM == 3 then NextM = 68
elseif levelM == 4 then NextM = 108
elseif levelM == 5 then NextM = 218
elseif levelM == 6 then NextM = 336
elseif levelM == 7 then NextM = 470
elseif levelM == 8 then NextM = 694
elseif levelM == 9 then NextM = 962
elseif levelM == 10 then NextM = 1254
elseif levelM == 11 then NextM = 1578
elseif levelM == 12 then NextM = 1924
elseif levelM == 13 then NextM = 2306
elseif levelM == 14 then NextM = 2756
elseif levelM == 15 then NextM = 3256
elseif levelM == 16 then NextM = 3830
elseif levelM == 17 then NextM = 4480
elseif levelM == 18 then NextM = 5195
elseif levelM == 19 then NextM = 5975
elseif levelM == 20 then NextM = 6845
else NextM = 0 end

NextexpM = NextM - ExpM

--Luigi
HPL = memory.readword(0x020048a2)
HPmaxL = memory.readword(0x020048a6)
BPL = memory.readword(0x020048a8)
BPmaxL = memory.readword(0x020048ac)
PowL = memory.readword(0x020048b0)
DefL = memory.readword(0x020048b8)
SpeedL = memory.readword(0x020048b4)
HigeL = memory.readword(0x020048bc)
levelL = memory.readbyte(0x020048c4)
ExpL = memory.readword(0x02004898)

-- 'Next' calculator
NextL = 0
if levelL == 1 then NextL = 10
elseif levelL == 2 then NextL = 37
elseif levelL == 3 then NextL = 77
elseif levelL == 4 then NextL = 123
elseif levelL == 5 then NextL = 233
elseif levelL == 6 then NextL = 353
elseif levelL == 7 then NextL = 493
elseif levelL == 8 then NextL = 699
elseif levelL == 9 then NextL = 969
elseif levelL == 10 then NextL = 1272
elseif levelL == 11 then NextL = 1552
elseif levelL == 12 then NextL = 1898
elseif levelL == 13 then NextL = 2280
elseif levelL == 14 then NextL = 2730
elseif levelL == 15 then NextL = 3239
elseif levelL == 16 then NextL = 3813
elseif levelL == 17 then NextL = 4463
elseif levelL == 18 then NextL = 5178
elseif levelL == 19 then NextL = 5958
elseif levelL == 20 then NextL = 6858
elseif levelL == 20 then NextL = 6845
else NextL = 0 end

NextexpL = NextL - ExpL


-- display
 if mushrooms == -1 then mushrooms = 0 end
 if supermushrooms == -1 then supermushrooms = 0 end
 if ultramushrooms == -1 then ultramushrooms = 0 end
 if maxmushrooms == -1 then maxmushrooms = 0 end
 if nuts == -1 then nuts = 0 end
 if supernuts == -1 then supernuts = 0 end
 if ultranuts == -1 then ultranuts = 0 end
 if maxnuts == -1 then maxnuts = 0 end
 if syrups == -1 then syrups = 0 end
 if supersyrups == -1 then supersyrups = 0 end
 if ultrasyrups == -1 then ultrasyrups = 0 end
 if maxsyrups == -1 then maxsyrups = 0 end
 if ONEups == -1 then ONEups = 0 end
 if ONEupDXs == -1 then ONEupDXs = 0 end
 if redpeppers == -1 then redpeppers = 0 end
 if greenpeppers == -1 then greenpeppers = 0 end
 if herbs == -1 then herbs = 0 end
 if goldmushrooms == -1 then goldmushrooms = 0 end
 if ahastraights == -1 then ahastraights = 0 end
 if ufustraights == -1 then ufustraights = 0 end
 if gerastraights == -1 then gerastraights = 0 end
 if dehestraights == -1 then dehestraights = 0 end
 if ufumanjaros == -1 then ufumanjaros = 0 end
 if gerapuccinos == -1 then gerapuccinos = 0 end
 if dehepressos == -1 then dehepressos = 0 end
 if ahabeans == -1 then ahabeans = 0 end
 if ufubeans == -1 then ufubeans = 0 end
 if gerabeans == -1 then gerabeans = 0 end
 if dehebeans == -1 then dehebeans = 0 end


gui.text(18+x,1+y, mushrooms)
gui.text(28+x,1+y, supermushrooms)
gui.text(38+x,1+y, ultramushrooms)
gui.text(48+x,1+y, maxmushrooms)

--gui.text(133+x,1+y, "(" ..mushrooms*0.078 + supermushrooms*0.098 + ultramushrooms*0.117 + maxmushrooms*0.199 .. ")" , "yellow")

gui.text(18+x,7+y, nuts)
gui.text(28+x,7+y, supernuts)
gui.text(38+x,7+y, ultranuts)
gui.text(48+x,7+y, maxnuts)

gui.text(18+x,13+y, syrups)
gui.text(28+x,13+y, supersyrups)
gui.text(38+x,13+y, ultrasyrups)
gui.text(48+x,13+y, maxsyrups)

--gui.text(57+x,1+y, "=" ..mushrooms*20+supermushrooms*50+ultramushrooms*110+maxmushrooms*280 ,"#81F7F3")
--gui.text(78+x,1+y, mushrooms*24+supermushrooms*60+ultramushrooms*100+maxmushrooms*180 ,"#ACFA58")

--gui.text(57+x,7+y, "=" ..nuts*50+supernuts*120+ultranuts*260+maxnuts*340 , "#81f7f3")
--gui.text(78+x,7+y, nuts*50+supernuts*90+ultranuts*140+maxnuts*220 , "#acfa58")

--gui.text(57+x,13+y, "=" ..syrups*24+supersyrups*50+ultrasyrups*80+maxsyrups*280 , "#81f7f3")
--gui.text(78+x,13+y, syrups*24+supersyrups*50+ultrasyrups*80+maxsyrups*150 , "#acfa58")


--gui.text(22+x,19+y, "=" ..ONEups*70+ONEupDXs*420+herbs*30+goldmushrooms*105+redpeppers*30+greenpeppers*30+ahastraights*100+ufustraights*100+gerastraights*100+dehestraights*100+ufumanjaros*100+gerapuccinos*100+dehepressos*100 , "#81f7f3")
--gui.text(43+x,19+y, ONEups*80+ONEupDXs*240+herbs*30+goldmushrooms*60+redpeppers*50+greenpeppers*50+ahastraights*100+ufustraights*100+gerastraights*100+dehestraights*100+ufumanjaros*100+gerapuccinos*100+dehepressos*100 , "#acfa58")

gui.text(60+x,7+y, "$" ..memory.readword(0x020048e0), "yellow")

gui.text(82+x,1+y, "(M)", "#F78181")
gui.text(116+x,1+y, "(L)", "#ACFA58")
gui.text(94+x,1+y, "Lv" .. levelM)
gui.text(128+x,1+y, "Lv" .. levelL)
gui.text(82+x,7+y, "BP ", "#FFCC66")
gui.text(93+x,7+y, BPM .. "/" .. BPmaxM .. "  " .. BPL .. "/" .. BPmaxL)
gui.text(82+x,13+y, "Pow  " , "#EAADEA")
gui.text(94+x,19+y, "hige " , "#A9F5D0")
--gui.text(86+x,25+y, "NEXT ", "#A9D0F5")
gui.text(102+x,13+y, PowM .. "   " .. PowL)
gui.text(116+x,19+y, HigeM .. "   " .. HigeL)
--gui.text(107+x,25+y, NextexpM .. "   " .. NextexpL)

--Bros Attacks counters
SplashCounter = 20 - memory.readbyte(0x02004684)
if SplashCounter < 0 then SplashCounter = 0 end
BounceCounter = 8 - memory.readbyte(0x0200468c)
if BounceCounter < 0 then BounceCounter = 0 end
ChopperCounter = 32 - memory.readbyte(0x02004686)
if ChopperCounter < 0 then ChopperCounter = 0 end
KnockCounter = 43 - memory.readbyte(0x0200468e)
if ChopperCounter < 0 then KnockCounter = 0 end


gui.text(9+x,19+y, "S="..  SplashCounter)
gui.text(30+x,19+y, "B=".. BounceCounter)
gui.text(47+x,19+y, "C="..  ChopperCounter)
gui.text(68+x,19+y, "K="..  KnockCounter)

-- RNG
gui.text(6+x,28+y, memory.readbytesigned(0x02001e60))
gui.text(6+x,35+y, memory.readbytesigned(0x02001e64))


--Movie active?
--if movie.active()~=true then gui.drawbox(29,29,140,39, "red") end
--gui.opacity(0.9)
--if movie.active()~=true then gui.text(35,31, "!! MOVIE NOT RECORDING !!") end


---- POS
gui.text(150+x, 1+y, memory.readdwordsigned(0x02006c14), "#F78181")
gui.text(150+x, 7+y, memory.readdwordsigned(0x02006c18), "#F78181")
gui.text(150+x, 13+y, memory.readdwordsigned(0x02006fb0), "#ACFA58")
gui.text(150+x, 19+y, memory.readdwordsigned(0x02006fb4), "#ACFA58")

---- MISC
--gui.text(10,89, "rookie hp " ..memory.readword(0x02008ce6)-5000, "yellow")
--gui.text(10,89, "Birdo hp " ..memory.readword(0x02008fe2), "yellow")
--gui.text(10,89, "head  " ..memory.readword(0x0200aa42)-5000, "yellow")
--gui.text(10,98, "heart  " ..memory.readword(0x0200a912)-5000, "yellow")
--gui.text(10,107, "left  " ..memory.readword(0x0200ab72)-5000, "yellow")
--gui.text(10,116, "right  " ..memory.readword(0x0200aca2)-5000, "yellow")

gui.opacity(0.6)
if memory.readbytesigned(0x02004f4c) == 0 then gui.drawbox(126,36,158,44, "#666666","#666666")
elseif memory.readbytesigned(0x02004f4c) == 1 then gui.drawbox(126,27,158,35, "#666666", "#666666") end
gui.opacity(0.9)

gui.text(130+x, 28+y, memory.readbyteunsigned(0x03002429), "#F78181")
gui.text(150+x, 28+y, memory.readbyteunsigned(0x03002440), "#ACFA58")

gui.text(130+x, 37+y, memory.readbyteunsigned(0x03002441), "#ACFA58")
gui.text(150+x, 37+y, memory.readbyteunsigned(0x03002428), "#F78181")

vba.frameadvance()
end