-- パックマン(FC) 敵速度ランダム＋パックマンにダッシュボタン装着スクリプト
-- 作成者：魂太郎＠regamer
-- 制作日 2021/01/27

P1 = 0
P2 = 0
A = 0
B = 0
hyoujibtA = 0
hyoujibtB = 0
FC = 0
TC = 0
BTC = 0
pwt = 0

--*****************************************************************************
while true do
--*****************************************************************************

if (FC == 16) then
	A = math.random(1, os.time() % 3 + 1)
end
if (FC == 32) then
	B = math.random(1, memory.readbyte(0x004B) % 3 + 1)
end
if (FC == 48) then
	A = math.random(1, os.time() % 3 + 1)
	FC = 16
end


if (AND(memory.readbyte(0x004D), 1) == 1) then
	P1 = 176
	P2 = 3
	gui.text(180, 220, "Turbo !")
else
	P1 = 176
	P2 = 0
	gui.text(1, 1, "!")
end


memory.writebyte(0x00A5, P1)
memory.writebyte(0x00A6, P2)
memory.writebyte(0x009F, P1)
memory.writebyte(0x00A0, P2)



memory.writebyte(0x00CA, A)
memory.writebyte(0x00CB, A)
memory.writebyte(0x00CA, A)
memory.writebyte(0x00CB, A)


memory.writebyte(0x00AF, B)
memory.writebyte(0x00B0, B)


if (pwt == 0 and memory.readbyte(0x0089) ~= 255) then
	pwt = 1
	memory.writebyte(0x0089, 2)
end
if (pwt == 1 and memory.readbyte(0x0089) == 255) then
	pwt = 0
end


if (memory.readbyte(0x00CF) > 6) then
		memory.writebyte(0x00CF, 2)
end

if (memory.readbyte(0x006A) < 192 and memory.readbyte(0x006A) > 0) then
	TC = TC + 1
	gui.text(180, 100, "Time "..string.format("%02d",(TC / 3600))..":"..string.format("%02d",(TC % 3600) / 60)..":"..string.format("%02d",(TC % 60)))
end


if (memory.readbyte(0x006A) == 0) then
	gui.text(180, 100, "Time "..string.format("%02d",(TC / 3600))..":"..string.format("%02d",(TC % 3600) / 60)..":"..string.format("%02d",(TC % 60)))
end

if (memory.readbyte(0x006A) == 192) then
	if ( memory.readbyte(0x0070) + memory.readbyte(0x0071) + memory.readbyte(0x0072) + memory.readbyte(0x0073) + memory.readbyte(0x0074) == 0 ) then
		BTC = 0
	end
	if (BTC == 0) then
		BTC = TC
	end
	if (BTC > TC and TC ~= 0) then
		BTC = TC
	end
	TC = 0
end


	gui.text(180, 120, "Best "..string.format("%02d",(BTC / 3600))..":"..string.format("%02d",(BTC % 3600) / 60)..":"..string.format("%02d",(BTC % 60)))



FC = FC + 1
    FCEU.frameadvance()


end