FCEU NES LUA SCRiPT G.i. Joe WEAPoNS UPGRADE

--G.I Joe (USA)
--Original Written by -- http://www.gamefaqs.com/boards/587689-teenage-mutant-ninja-turtles/70056188
--2016 By Márcio Adriano ( Duckmite)
--This script is an edited compilation of the references above.
--For G.I.Joes the armament levels are auto incremented
--and the bullets will always be recovered. If you enjoy!
--Este script é uma compilação editada da referencia acima.
--Para os G.I.Joes os niveis do armamento são auto incrementados
--e as balas sempre serão recuperadas. Se divirta-se!

local function text(x,y,str)
if (x > 0 and x < 255 and y > 0 and y < 240) then
gui.text(x,y,str)

end;
end;

frame_count=0;

while (true) do

frame_count = frame_count + 1

--Duke
if (frame_count>=60) then
local Power1 = memory.readbyte(0x0643)
if (Power1 <= 9) then
memory.writebyte(0x0643,Power1+1);
end;
end;


--Blizzard
if (frame_count>=60) then
local Power2 = memory.readbyte(0x0644)
if (Power2 <= 8) then
memory.writebyte(0x0644,Power2+1);
end;
end;


--Snake
if (frame_count>=60) then
local Power3 = memory.readbyte(0x0645)
if (Power3 <= 7) then
memory.writebyte(0x0645,Power3+1);
end;
end;

--Cap Grid
if (frame_count>=60) then
local Power4 = memory.readbyte(0x0646)
if (Power4 <= 6) then
memory.writebyte(0x0646,Power4+1);
end;

--Rock
if (frame_count>=60) then
local Power5 = memory.readbyte(0x0647)
if (Power5 <= 5) then
memory.writebyte(0x0647,Power5+1);
end;
end;

--Guns
if (frame_count>=30) then
local Power6 = memory.readbyte(0x0727)
if (Power6 <= 98) then
memory.writebyte(0x0727,Power6+1);
end;
end;

frame_count=0
end;



text(10,10,"Duke"..memory.readbyte(0x0643));
text(10,20,"Blizzard"..memory.readbyte(0x0644));
text(10,30,"Snake"..memory.readbyte(0x0645));
text(10,40,"Cap.Grid"..memory.readbyte(0x0646));
text(10,50,"Rock'n"..memory.readbyte(0x0647));
text(10,60,"Bullet"..memory.readbyte(0x0727));
--text(10,50,"Frames "..frame_count);

emu.frameadvance(3);
end;