Experienced Forum User, Published Author, Player
(47)
Joined: 3/26/2004
Posts: 194
klmz wrote:
FractalFusion wrote:
I watched this run and have one important question: How much faster is "any%" than "100%"? Would "any%" be better?
I watched the unassisted speedrun on SDA and determined an "any%" run wouldn't be much shorter. Anyway, I'm afraid that the gameplay of inputting passwords throughout this whole "100%" run will never change in any "any%" run, provided no huge glitch/sequence-break is discovered.
Yeah, the only glitch I know of, is the invincibility glitch, and an elavator max up travel glitch. (only the latter was used in the run, only once, since it was the only time where it was faster than just riding.)
There are two ways of performing the invincibility glitch.
1. Ride the Elevator between room C3 and D3 up/down, hitting the electrical barrier in the process. If done correctly, you will fall through the floor in D3, and trip the alarm.
2. In any room where you can take damage, such that you can use a computer immediately after, you do so once you have taken that damage, and input the suicide command. (0000). There is one other condition to successful entry of the code. It has to not be done in a room, where inputting the command will yield a message. (There are 6 such rooms in the game, and iirc, Room C6 is the first such room that will be encountered to output a message instead of killing you.) The damage can be from either norsa soldiers or from autoguns. It can't be done from electric barriers.
Normally, when your health reaches 0, thats it.
Experienced Forum User, Published Author, Player
(47)
Joined: 3/26/2004
Posts: 194
I do not know which frame numbers they are, but I have seen movements on both games at the same time.
The general process, is that it takes X number of frames to complete a movement in a given direction, so, omegon takes advantage of that, such that, if he needed to move up on FF5 and down on FF6, then he pushes up for 1 frame, for FF5, while FF6 is doing its movement, and pushes down for 1 frame on FF6, while FF5 is doing its movement.
I am pretty sure there are some battle times, where both are in a battle at once, In fact, He enters the final battle at the same time.
Experienced Forum User, Published Author, Player
(47)
Joined: 3/26/2004
Posts: 194
Finally, if you wish to play 2 player mode against this script, now you can.
-- D-Pad Hero 2 game play lua bot
-- created by CaitSith2.
--
-- Created to assist in making a 100% TAS of Expert D-Pad hero 2, which requires playing every song twice.
-- (once to hit all pow blocks, and once to skip all pow blocks.)
-- Push up on second controller to enable pow block collection
-- Push down on second controller to disable pow block collection.
-- Regardless of whether pow blocks are being collected or not,
-- 7 out of 8 challenges will be completed.
-- Stars and Slow down clocks are always skipped. :)
local function bubbleSort(table,table2)
--check to make sure the table has some items in it
if #table < 2 then
print("Table does not have enough data in it")
return
end
for i = 0, #table do --> array start to end
for j = 1, #table do
if table[j] < table[j-1] then -->switch
temp = table[j-1]
table[j-1] = table[j]
table[j] = temp
temp = table2[j-1]
table2[j-1] = table2[j]
table2[j] = temp
end
end
end
return
end
local h2 = {[0]= 0,0,0,0,0,0,0,0 }
local h3 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
local h4 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
local h5 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
local h6 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
local h7 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
local frames = 0
local seconds = 0
local minutes = 0
local hours = 0
local function displayer(skippow)
y = {[0]= 0x51C, 0x522, 0x528, 0x52E, 0x534, 0x53A, 0x540, 0x546, 0x54C, 0x552, 0x558, 0x55E, 0x564, 0x56A, 0x570, 0x576, 0x57C, 0x582, 0x588, 0x58E, 0x594, 0x59A, 0x5A0, 0x5A6, 0x5AC, 0x5B2, 0x5B8, 0x5BE}
t = {[0]= 0x51B, 0x521, 0x527, 0x52D, 0x533, 0x539, 0x53F, 0x545, 0x54B, 0x551, 0x557, 0x55D, 0x563, 0x569, 0x56F, 0x575, 0x57B, 0x581, 0x587, 0x58D, 0x593, 0x599, 0x59F, 0x5A5, 0x5AB, 0x5B1, 0x5B7, 0x5BD}
q = {[0]= "<", ">", "s", "B", "A","","","" }
r = {[0]= "points","skull","pow block","star","clock","letter","fake skull","","","","","","","",""}
s = {[0]= true, false, false, false, false, true, true, false, false, false, false, false, false}
if skippow == 0 then
s[2] = true
s[5] = false
s[6] = false
else
s[2] = false
s[5] = true
s[6] = true
end
h = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
h1 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
local hyperspeed = memory.readbyte(0x0302)
minhs = { [0]= 204,203,201,200,200,199,199,198 }
maxhs = { [0]= 204,204,202,202,202,202,202,202 }
for i=0,27,1 do
h[i] = memory.readbyte(y[i])
h1[i] = memory.readbyte(t[i])
if ( h1[i] > 0x3F ) then h[i] = 255 end
if ( h[i] == 0 ) then h[i] = 255 end
if ( h[i] > 214 ) then h[i] = 255 end
--if memory.readbyte(y[i])==174 then v[i]=1 r=i end
end
bubbleSort(h,h1)
local l=0
local m=0
local n= { }
n.A = nil
n.B = nil
n.select = nil
n.right = nil
n.left = nil
for i=0,27,1 do
l = (h1[i]-(h1[i]%8))/8
m = h1[i]%8
if (h[i] >= minhs[hyperspeed]) and (h[i] <= maxhs[hyperspeed]) then
if ( l ~= 1 ) and ( l ~= 3 ) and ( l ~= 4 ) and ( ( ( skippow == 1 ) and ( l ~= 2 ) ) or (( skippow == 0 ) and ( l ~= 5 ) and ( l ~= 6 )) ) then
h2[m] = h2[m] + 1
if m == 0 then n.left = 1
elseif m == 1 then n.right = 1
elseif m == 2 then n.select = 1
elseif m == 3 then n.B = 1
else n.A = 1 end
-- Detect a 2 player mode, and control the first player in its own lanes.
if memory.readbyte(0x00B2) == 3 then n.left = nil end
if memory.readbyte(0x00B3) == 3 then n.right = nil end
if memory.readbyte(0x00B4) == 3 then n.select = nil end
if memory.readbyte(0x00B5) == 3 then n.B = nil end
if memory.readbyte(0x00B6) == 3 then n.A = nil end
end
if m == 0 then h3[l] = h3[l] + 1
elseif m == 1 then h4[l] = h4[l] + 1
elseif m == 2 then h5[l] = h5[l] + 1
elseif m == 3 then h6[l] = h6[l] + 1
else h7[l] = h7[l] + 1 end
end
end
FCEU.frameadvance()
frames = frames + 1
if frames == 60 then
frames = 0
seconds = seconds + 1
if seconds == 60 then
seconds = 0
minutes = minutes + 1
if minutes == 60 then
minutes = 0
hours = hours + 1
end
end
end
joypad.set(1, n)
gui.text(10,10+8*1,"Endured the unbeatable computer for: " .. hours .. ":" .. minutes .. ":" .. seconds .. "." .. frames)
--gui.text(10,10+8*1,hours .. ":" .. minutes .. ":" .. seconds .. "." .. frames)
if false then
for k=0,4,1 do
gui.text(10,10+8*k,q[k] .. ": " .. h2[k])
end
end
if false then
for k=0,6,1 do
if s[k] then
gui.text(10,10+8*(k+1),"HIT: " .. r[k] .. ": " .. h3[k] .. ", " .. h4[k] .. ", " .. h5[k] .. ", " .. h6[k] .. ", " .. h7[k])
else
gui.text(10,10+8*(k+1),"MISS: " .. r[k] .. ": " .. h3[k] .. ", " .. h4[k] .. ", " .. h5[k] .. ", " .. h6[k] .. ", " .. h7[k])
end
end
end
if false then
for k=0,27,1 do
if h[k] > 240 then
gui.text(10,10+8*k,"") break
else
gui.text(10,10+8*k,h[k] .. ": " .. r[(h1[k]-(h1[k]%8))/8] .. " on " .. q[h1[k]%8])
end
end
end
end
local buttons = { }
local temp = savestate.create(5)
local temp2 = savestate.create(7)
local clockavoid = savestate.create(6)
local endofsong = savestate.create(2)
savestate.save(temp)
local health=0
local lasthealth=0
local loop=0
local anythingtohit=0
local lastanything=0
local powerhit=0
local powerhitzero=0
local lastpowerhit=0
local powblockhit=0
local rendertext=0
local zerotolerance=1
local maxtolerance=0x0B
while true do
FCEU.speedmode("normal")
-- Loop while game play highway is NOT active. Allow normal user input.
while (memory.readbyte(0x0318) == 0) or (memory.readbyte(0x0319) == 0) do
FCEU.frameadvance()
if rendertext > 0 then
rendertext = rendertext - 1
if rendertext == 0 then gui.text(16,16,"") end
end
if(joypad.read(2).up) then
zerotolerance = 0
gui.text(16,16,"Pow blocks will be hit");
rendertext=60
end
if(joypad.read(2).down) then
zerotolerance = 1
gui.text(16,16,"Pow blocks will be skipped");
rendertext=60
end
end
for i=0,6,1 do
h2[i] = 0
h3[i] = 0
h4[i] = 0
h5[i] = 0
h6[i] = 0
h7[i] = 0
end
frames=0
seconds=0
minutes=0
hours=0
--End of no highway loop.
--Set speed to maximum. Loop while the highway is in view, and song has not
--yet ended.
--FCEU.speedmode("nothrottle")
while (memory.readbyte(0x0318) > 0) and (memory.readbyte(0x0319) > 0) do
displayer(zerotolerance)
--FCEU.frameadvance()
end
if (memory.readbyte(0x0318) == 0) then
gui.text(10,10+8*1,"Computer player died. How did that happen?")
end
--End of song.
-- And wait for a new song to start, accepting normal input again.
end
-- We should never reach here. :)
I did at least implement a timer to show how long you lasted against the computer in hours:minutes:seconds.frames format.)
EDIT: Scripted computer is now truely unbeatable. hyperspeed has been figured out, and computer no longer messes up, when hyperspeed gets a bit too fast.
Experienced Forum User, Published Author, Player
(47)
Joined: 3/26/2004
Posts: 194
There, 1951 frames improvement over previous movie. http://caitsith2.com/tas/dpadhero2_fm2.zip (these frames gained by NOT getting all of the pad pieces till after the second play through of each song, and thus completing ALL 48 challenges prior to proving your worth.)
And here is the final lua script I used, in creating this TAS. (I didn't add in all the hit/miss stats till just now.)
-- D-Pad Hero 2 game play lua bot
-- created by CaitSith2.
--
-- Created to assist in making a 100% TAS of Expert D-Pad hero 2, which requires playing every song twice.
-- (once to hit all pow blocks, and once to skip all pow blocks.)
-- Push up on second controller to enable pow block collection
-- Push down on second controller to disable pow block collection.
-- Regardless of whether pow blocks are being collected or not,
-- 7 out of 8 challenges will be completed.
-- Stars and Slow down clocks are always skipped. :)
local function bubbleSort(table,table2)
--check to make sure the table has some items in it
if #table < 2 then
print("Table does not have enough data in it")
return
end
for i = 0, #table do --> array start to end
for j = 1, #table do
if table[j] < table[j-1] then -->switch
temp = table[j-1]
table[j-1] = table[j]
table[j] = temp
temp = table2[j-1]
table2[j-1] = table2[j]
table2[j] = temp
end
end
end
return
end
local h2 = {[0]= 0,0,0,0,0,0,0,0 }
local h3 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
local h4 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
local h5 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
local h6 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
local h7 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
local function displayer(skippow)
y = {[0]= 0x51C, 0x522, 0x528, 0x52E, 0x534, 0x53A, 0x540, 0x546, 0x54C, 0x552, 0x558, 0x55E, 0x564, 0x56A, 0x570, 0x576, 0x57C, 0x582, 0x588, 0x58E, 0x594, 0x59A, 0x5A0, 0x5A6, 0x5AC, 0x5B2, 0x5B8, 0x5BE}
t = {[0]= 0x51B, 0x521, 0x527, 0x52D, 0x533, 0x539, 0x53F, 0x545, 0x54B, 0x551, 0x557, 0x55D, 0x563, 0x569, 0x56F, 0x575, 0x57B, 0x581, 0x587, 0x58D, 0x593, 0x599, 0x59F, 0x5A5, 0x5AB, 0x5B1, 0x5B7, 0x5BD}
q = {[0]= "<", ">", "s", "B", "A","","","" }
r = {[0]= "points","skull","pow block","star","clock","letter","fake skull","","","","","","","",""}
s = {[0]= true, false, false, false, false, true, true, false, false, false, false, false, false}
if skippow == 0 then
s[2] = true
s[5] = false
s[6] = false
else
s[2] = false
s[5] = true
s[6] = true
end
h = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
h1 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
for i=0,27,1 do
h[i] = memory.readbyte(y[i])
h1[i] = memory.readbyte(t[i])
if ( h1[i] > 0x3F ) then h[i] = 255 end
if ( h[i] == 0 ) then h[i] = 255 end
if ( h[i] > 214 ) then h[i] = 255 end
--if memory.readbyte(y[i])==174 then v[i]=1 r=i end
end
bubbleSort(h,h1)
local l=0
local m=0
local n= { }
n.A = nil
n.B = nil
n.select = nil
n.right = nil
n.left = nil
for i=0,27,1 do
l = (h1[i]-(h1[i]%8))/8
m = h1[i]%8
if (h[i] == 200) or (h[i] == 201) then
if ( l ~= 1 ) and ( l ~= 3 ) and ( l ~= 4 ) and ( ( ( skippow == 1 ) and ( l ~= 2 ) ) or (( skippow == 0 ) and ( l ~= 5 ) and ( l ~= 6 )) ) then
h2[m] = h2[m] + 1
if m == 0 then n.left = 1
elseif m == 1 then n.right = 1
elseif m == 2 then n.select = 1
elseif m == 3 then n.B = 1
else n.A = 1 end
if false then
-- Detect a 2 player mode, and control the first player in its own lanes.
if memory.readbyte(0x00B2) == 3 then n.left = nil end
if memory.readbyte(0x00B3) == 3 then n.right = nil end
if memory.readbyte(0x00B4) == 3 then n.select = nil end
if memory.readbyte(0x00B5) == 3 then n.B = nil end
if memory.readbyte(0x00B6) == 3 then n.A = nil end
end
end
if m == 0 then h3[l] = h3[l] + 1
elseif m == 1 then h4[l] = h4[l] + 1
elseif m == 2 then h5[l] = h5[l] + 1
elseif m == 3 then h6[l] = h6[l] + 1
else h7[l] = h7[l] + 1 end
end
end
FCEU.frameadvance()
joypad.set(1, n)
if false then
for k=0,4,1 do
gui.text(10,10+8*k,q[k] .. ": " .. h2[k])
end
end
for k=0,6,1 do
if s[k] then
gui.text(10,10+8*(k+1),"HIT: " .. r[k] .. ": " .. h3[k] .. ", " .. h4[k] .. ", " .. h5[k] .. ", " .. h6[k] .. ", " .. h7[k])
else
gui.text(10,10+8*(k+1),"MISS: " .. r[k] .. ": " .. h3[k] .. ", " .. h4[k] .. ", " .. h5[k] .. ", " .. h6[k] .. ", " .. h7[k])
end
end
--end
if false then
for k=0,27,1 do
if h[k] > 240 then
gui.text(10,10+8*k,"") break
else
gui.text(10,10+8*k,h[k] .. ": " .. r[(h1[k]-(h1[k]%8))/8] .. " on " .. q[h1[k]%8])
end
end
end
end
local buttons = { }
local temp = savestate.create(5)
local temp2 = savestate.create(7)
local clockavoid = savestate.create(6)
local endofsong = savestate.create(2)
savestate.save(temp)
local health=0
local lasthealth=0
local loop=0
local anythingtohit=0
local lastanything=0
local powerhit=0
local powerhitzero=0
local lastpowerhit=0
local powblockhit=0
local rendertext=0
local zerotolerance=1
local maxtolerance=0x0B
while true do
FCEU.speedmode("normal")
-- Loop while game play highway is NOT active. Allow normal user input.
while memory.readbyte(0x0318) == 0 do
FCEU.frameadvance()
if rendertext > 0 then
rendertext = rendertext - 1
if rendertext == 0 then gui.text(16,16,"") end
end
if(joypad.read(2).up) then
zerotolerance = 0
gui.text(16,16,"Pow blocks will be hit");
rendertext=60
end
if(joypad.read(2).down) then
zerotolerance = 1
gui.text(16,16,"Pow blocks will be skipped");
rendertext=60
end
end
for i=0,6,1 do
h2[i] = 0
h3[i] = 0
h4[i] = 0
h5[i] = 0
h6[i] = 0
h7[i] = 0
end
--End of no highway loop.
--Set speed to maximum. Loop while the highway is in view, and song has not
--yet ended.
--FCEU.speedmode("nothrottle")
while (memory.readbyte(0x03CB) == 0) and (memory.readbyte(0x03CC) == 0) do
displayer(zerotolerance)
--FCEU.frameadvance()
end
--End of song.
--Loop while there is still health left.
while memory.readbyte(0x0318) ~= 0 do
FCEU.frameadvance()
end
--Health all clear. Save end of song state to Slot 2.
savestate.save(endofsong)
for i=0,152,1 do
FCEU.frameadvance()
end
--FCEU.pause()
--joypad.set(1,{A=1})
--FCEU.frameadvance()
--joypad.set(1,{ })
-- And wait for a new song to start, accepting normal input again.
end
-- We should never reach here. :)
Experienced Forum User, Published Author, Player
(47)
Joined: 3/26/2004
Posts: 194
Another new script for this game. no more bruteforcing required. :) Hits everything as early as safely possible. (If a skull is in the same button area as the desired object, you cannot trigger the button quite yet, as it will hit the skull and drop your health.)
-- D-Pad Hero 2 game play lua bot
-- created by CaitSith2.
--
-- Created to assist in making a 100% TAS of Expert D-Pad hero 2, which requires playing every song twice.
-- (once to hit all pow blocks, and once to skip all pow blocks.)
-- Push up on second controller to enable pow block collection
-- Push down on second controller to disable pow block collection.
-- Regardless of whether pow blocks are being collected or not,
-- 7 out of 8 challenges will be completed.
-- Stars and Slow down clocks are always skipped. :)
local function bubbleSort(table,table2)
--check to make sure the table has some items in it
if #table < 2 then
print("Table does not have enough data in it")
return
end
for i = 0, #table do --> array start to end
for j = 1, #table do
if table[j] < table[j-1] then -->switch
temp = table[j-1]
table[j-1] = table[j]
table[j] = temp
temp = table2[j-1]
table2[j-1] = table2[j]
table2[j] = temp
end
end
end
return
end
local h2 = {[0]= 0,0,0,0,0,0,0,0 }
local h3 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
local function displayer(skippow)
y = {[0]= 0x51C, 0x522, 0x528, 0x52E, 0x534, 0x53A, 0x540, 0x546, 0x54C, 0x552, 0x558, 0x55E, 0x564, 0x56A, 0x570, 0x576, 0x57C, 0x582, 0x588, 0x58E, 0x594, 0x59A, 0x5A0, 0x5A6, 0x5AC, 0x5B2, 0x5B8, 0x5BE}
t = {[0]= 0x51B, 0x521, 0x527, 0x52D, 0x533, 0x539, 0x53F, 0x545, 0x54B, 0x551, 0x557, 0x55D, 0x563, 0x569, 0x56F, 0x575, 0x57B, 0x581, 0x587, 0x58D, 0x593, 0x599, 0x59F, 0x5A5, 0x5AB, 0x5B1, 0x5B7, 0x5BD}
q = {[0]= "<", ">", "s", "B", "A","","","" }
r = {[0]= "points","skull","pow block","star","clock","letter","fake skull","","","","","","","",""}
h = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
h1 = {[0]= 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
for i=0,27,1 do
h[i] = memory.readbyte(y[i])
h1[i] = memory.readbyte(t[i])
if ( h1[i] > 0x3F ) then h[i] = 255 end
if ( h[i] == 0 ) then h[i] = 255 end
if ( h[i] > 214 ) then h[i] = 255 end
--if memory.readbyte(y[i])==174 then v[i]=1 r=i end
end
bubbleSort(h,h1)
local l=0
local m=0
local n= { }
n.A = nil
n.B = nil
n.select = nil
n.right = nil
n.left = nil
for i=0,27,1 do
l = (h1[i]-(h1[i]%8))/8
m = h1[i]%8
if (h[i] == 196) or (h[i] == 202) then
if ( l ~= 1 ) and ( l ~= 3 ) and ( l ~= 4 ) and ( ( ( skippow == 1 ) and ( l ~= 2 ) ) or ( skippow == 0 ) ) then
h2[m] = h2[m] + 1
if m == 0 then n.left = 1
elseif m == 1 then n.right = 1
elseif m == 2 then n.select = 1
elseif m == 3 then n.B = 1
else n.A = 1 end
end
h3[l] = h3[l] + 1
end
if (h[i] >= 196) and (h[i] <= 212) and ((l == 1) or (l == 3) or (l == 4) or ((skippow == 1) and (l == 2))) then
if m == 0 then n.left = nil
elseif m == 1 then n.right = nil
elseif m == 2 then n.select = nil
elseif m == 3 then n.B = nil
else n.A = nil end
end
end
FCEU.frameadvance()
joypad.set(1, n)
for k=0,4,1 do
gui.text(10,10+8*k,q[k] .. ": " .. h2[k])
end
for k=0,6,1 do
gui.text(10,10+8*(k+6),r[k] .. ": " .. h3[k])
end
--for k=0,27,1 do
-- if h[k] > 240 then
-- gui.text(10,10+8*k,"") break
-- else
-- gui.text(10,10+8*k,h[k] .. ": " .. r[(h1[k]-(h1[k]%8))/8] .. " on " .. q[h1[k]%8])
-- end
--end
end
local buttons = { }
local temp = savestate.create(5)
local temp2 = savestate.create(7)
local clockavoid = savestate.create(6)
local endofsong = savestate.create(2)
savestate.save(temp)
local health=0
local lasthealth=0
local loop=0
local anythingtohit=0
local lastanything=0
local powerhit=0
local powerhitzero=0
local lastpowerhit=0
local powblockhit=0
local rendertext=0
local zerotolerance=1
local maxtolerance=0x0B
while true do
FCEU.speedmode("normal")
-- Loop while game play highway is NOT active. Allow normal user input.
while memory.readbyte(0x0318) ~= 159 do
FCEU.frameadvance()
if rendertext > 0 then
rendertext = rendertext - 1
if rendertext == 0 then gui.text(16,16,"") end
end
if(joypad.read(2).up) then
zerotolerance = 0
gui.text(16,16,"Pow blocks will be hit");
rendertext=60
end
if(joypad.read(2).down) then
zerotolerance = 1
gui.text(16,16,"Pow blocks will be skipped");
rendertext=60
end
end
for i=0,6,1 do
h2[i] = 0
h3[i] = 0
end
--End of no highway loop.
--Set speed to maximum. Loop while the highway is in view, and song has not
--yet ended.
--FCEU.speedmode("nothrottle")
while (memory.readbyte(0x03CB) == 0) and (memory.readbyte(0x03CC) == 0) do
displayer(zerotolerance)
--FCEU.frameadvance()
end
--End of song.
--Loop while there is still health left.
while memory.readbyte(0x0318) ~= 0 do
FCEU.frameadvance()
end
--Health all clear. Save end of song state to Slot 2.
savestate.save(endofsong)
-- And wait for a new song to start, accepting normal input again.
end
-- We should never reach here. :)
Experienced Forum User, Published Author, Player
(47)
Joined: 3/26/2004
Posts: 194
Just did up a TAS for the first D-Pad Hero game. There definitely seems to be unanticipated bugs in this game, that allowed the brute forcing script to run faster than expected, without the game counting button press errors.
http://caitsith2.com/tas/dpadhero.zip
The following code was run, only during the song. Once the song was completed, the script was stopped. It only had to be run four times.
-- D-Pad Hero game play lua bot
-- created by CaitSith2.
-- Just a simple bruteforce every input possible. A & B are never pushed at the same time
-- in the music chart, so, we alternate between Just A, A + directionals,
-- Just B, B + directionals, and nothing.
-- If button pressed increments the error count, then we reload, otherwise we keep it.
-- I was expecting this TAS to take much longer to complete, but because of
-- game programming errors, it went a little faster, as it accepted more input. :)
local buttons = { }
local temp = savestate.create(5)
savestate.save(temp)
local health=0
local loop=0
--start movie recording to random filename, set speed to maximum
FCEU.speedmode("nothrottle")
while true do
health = memory.readbyte(0x005D) + memory.readbyte(0x0059)
if health ~= 0 then
savestate.load(temp)
else
savestate.save(temp)
end
loop = loop + 1
if loop > 10 then loop = 0 end
if (joypad.read(2).up) then loop = 0 end
if loop == 0 then
buttons.A = nil
buttons.B = nil
buttons.left = nil
buttons.right = nil
buttons.up = nil
buttons.down = nil
elseif loop == 1 then
buttons.A = 1
elseif loop == 2 then
buttons.left = 1
elseif loop == 3 then
buttons.left = nil
buttons.right = 1
elseif loop == 4 then
buttons.right = nil
buttons.up = 1
elseif loop == 5 then
buttons.up = nil
buttons.down = 1
elseif loop == 6 then
buttons.A = nil
buttons.down = nil
buttons.B = 1
elseif loop == 7 then
buttons.left = 1
elseif loop == 8 then
buttons.left = nil
buttons.right = 1
elseif loop == 9 then
buttons.right = nil
buttons.up = 1
elseif loop == 10 then
buttons.up = nil
buttons.down = 1
end
joypad.set(1, buttons)
FCEU.frameadvance()
end
Experienced Forum User, Published Author, Player
(47)
Joined: 3/26/2004
Posts: 194
Taking a few hours of my time, coding and debugging, I have managed to come up with a play bot for D-Pad Hero 2. Load up this script as soon as the game is started.
-- D-Pad Hero 2 game play lua bot
-- created by CaitSith2.
--
-- Created to assist in making a 100% TAS of Expert D-Pad hero 2, which requires playing every song twice.
-- (once to hit all pow blocks, and once to skip all pow blocks.)
-- Push up on second controller to enable pow block collection
-- Push down on second controller to disable pow block collection.
-- Regardless of whether pow blocks are being collected or not,
-- 7 out of 8 challenges will be completed.
-- Stars and Slow down clocks are always skipped. :)
local buttons = { }
local temp = savestate.create(5)
local temp2 = savestate.create(7)
local clockavoid = savestate.create(6)
local endofsong = savestate.create(2)
savestate.save(temp)
local health=0
local lasthealth=0
local loop=0
local anythingtohit=0
local lastanything=0
local powerhit=0
local powerhitzero=0
local lastpowerhit=0
local powblockhit=0
local rendertext=0
local zerotolerance=0
local maxtolerance=0x0B
while true do
FCEU.speedmode("normal")
-- Loop while game play highway is NOT active. Allow normal user input.
while memory.readbyte(0x0318) ~= 159 do
FCEU.frameadvance()
if rendertext > 0 then
rendertext = rendertext - 1
if rendertext == 0 then gui.text(16,16,"") end
end
if(joypad.read(2).up) then
zerotolerance = 0
gui.text(16,16,"Pow blocks will be hit");
rendertext=60
end
if(joypad.read(2).down) then
zerotolerance = 1
gui.text(16,16,"Pow blocks will be skipped");
rendertext=60
end
end
--End of no highway loop.
--Set speed to maximum. Loop while the highway is in view, and song has not
--yet ended.
FCEU.speedmode("nothrottle")
while (memory.readbyte(0x03CB) == 0) and (memory.readbyte(0x03CC) == 0) do
lasthealth = health
health = memory.readbyte(0x0318)
lastanything=anythingtohit
anythingtohit = memory.readbyte(0x0079)
lastpowerhit=powerhit
powerhit = memory.readbyte(0x03D0)
powblockhit = memory.readbyte(0x034C)
if health < lasthealth then
savestate.load(temp)
health = lasthealth
powerhit = lastpowerhit
else
if memory.readbyte(0x0334) ~= memory.readbyte(0x0338) then
savestate.load(temp)
health = lasthealth
powerhit = lastpowerhit
else
if powerhit == 0 then
savestate.save(temp)
else
-- if zerotolerance == 0 then
if zerotolerance == 0 then
savestate.save(temp2)
FCEU.frameadvance()
if memory.readbyte(0x03D0) > maxtolerance then
--if anythingtohit == 0 then
-- savestate.load(temp2)
-- savestate.save(temp)
--elseif loop == 0 then
-- savestate.load(temp2)
-- savestate.save(temp)
--else
powerhit = lastpowerhit
health = lasthealth
savestate.load(temp)
--end
else
savestate.load(temp2)
savestate.save(temp)
end
else
if powblockhit == 0 then
savestate.save(temp2)
FCEU.frameadvance()
if memory.readbyte(0x03D0) > maxtolerance then
powerhit = lastpowerhit
health = lasthealth
savestate.load(temp)
else
savestate.load(temp2)
savestate.save(temp)
end
else
powerhit = lastpowerhit
health = lasthealth
savestate.load(temp)
end
end
end
end
end
--if AND(anythingtohit,0x10) == 0x10 then
if AND(loop,0x10) == 0x10 then
buttons.A = 1
else
buttons.A = nil
end
--else
-- buttons.A = nil
--end
--if AND(anythingtohit,8) == 8 then
if AND(loop,8) == 8 then
buttons.B = 1
else
buttons.B = nil
end
--else
-- buttons.B = nil
--end
--if AND(anythingtohit,4) == 4 then
if AND(loop,4) == 4 then
buttons.select = 1
else
buttons.select = nil
end
--else
-- buttons.select = nil
--end
--if AND(anythingtohit,2) == 2 then
if AND(loop,2) == 2 then
buttons.right = 1
else
buttons.right = nil
end
--else
-- buttons.right = nil
--end
--if AND(anythingtohit,1) == 1 then
if AND(loop,1) == 1 then
buttons.left = 1
else
buttons.left = nil
end
--else
-- buttons.left = nil
--end
if anythingtohit == 0 then
buttons.A = nil
buttons.B = nil
buttons.select = nil
buttons.right = nil
buttons.left = nil
else
loop = loop + 1
if loop == 24 then
loop = 0
end
while AND(loop,anythingtohit) ~= loop do
loop = loop + 1
if loop == 24 then
loop = 0
end
end
end
joypad.set(1, buttons)
FCEU.frameadvance()
end
--End of song.
--Loop while there is still health left.
while memory.readbyte(0x0318) ~= 0 do
FCEU.frameadvance()
end
--Health all clear. Save end of song state to Slot 2.
savestate.save(endofsong)
-- And wait for a new song to start, accepting normal input again.
end
-- We should never reach here. :)
Edit: Final 100% FCM. Normally, I would use dehacked to upload it, but that seems to be not functioning right now, so it will have to be put on my hosting instead. http://www.caitsith2.com/tas/dpadhero2.zip
Took the time to figured out, in between songs, exactly what frame new input is accepted.
Experienced Forum User, Published Author, Player
(47)
Joined: 3/26/2004
Posts: 194
FractalFusion wrote:
I watched this run and have one important question: How much faster is "any%" than "100%"? Would "any%" be better?
Any% would be about 2 minutes 10 seconds faster, but ends up with the ending, thats equivelent to "Although some of the zillion men were lost, they completed their mission". You would also get that ending, if any of the Zillion men die, even if all of them were rescued. So yeah, Any% does have an effect on the ending slightly, so I was aiming for the good ending on this run. The only run on SDA is a bad ending run, which weighs in at 0:23:16.
Experienced Forum User, Published Author, Player
(47)
Joined: 3/26/2004
Posts: 194
The difference between the patch that works, and the patch that desyncs, is one stinking byte, at offset 0x3833C in the file. Desync if == 0x02, works if == 0x01.
It is that exact offset, where the amount of energy restored for picking up a small energy capsule. Can't move while your energy is refilling, and the extra few frames that it takes to refill two, causes the jump to not register, plus, even if the jump registered and everything else worked, the movie will just desync a little bit later anyways, due to not being able to underflow, with 2 energy bar refill.
Experienced Forum User, Published Author, Player
(47)
Joined: 3/26/2004
Posts: 194
I have yet another improved run on the way. Managed to save just over 29 seconds so far, just by not getting level 8 as soon as possible, and by changing the way I get the Level 5, Level 6, and Level 7 upgrade. Max running speed is gained at level 7. By the time I do get the level 8 upgrade, I will actually be needing it then.
Also, I further live up to the "takes damage to save time". It is quicker to take a couple of autogun hits, than it is to turn the autoguns off, in the room you rescue apple from, by about 2 seconds.
Experienced Forum User, Published Author, Player
(47)
Joined: 3/26/2004
Posts: 194
One actual detail of the computer door open code, is that there is a bias of getting digits 4-9 more often than any other codes.
This is because the actual code to derive the random door code is as follows.
;Ram is initialized as follows.
;C1F4: 00 01 02 03 04 05 06 07 08 09
;When a given digit is picked, its value is stored within C1F0-C1F3, then replaced with 0xFF, so that it doesn't get used again.
LD B, 4
LD DE, 0xC1F0
LD H, 0xC1
-: CALL get_random_byte
AND 0x0F
CP 0x0A
JR C, +
SUB 0x06 ;This is where the bias towards 4-9 comes from.
ADD A, 0xF4
LD L, A
LD A, (HL)
CP 0xFF ;If equal, value is already used. Fetch another random number.
JR Z, -
LD (HL), 0xFF ;Make sure this value is never used again.
LD (DE), A ;And store this value as one of the door code digits.
INC E
DJNZ -
RET ;End of random door code routine.
;Called Once per frame, and also called at least 4 times, when picking a new door unlock code.
get_random_number:
PUSH HL
LD HL (C108) ;PRNG Seed
LD A, H
RRCA ;\
RRCA ;|
XOR H ;|
RRCA ;|
XOR L ;|-- Get Carry Flag
RRCA ;|
RRCA ;|
RRCA ;|
RRCA ;|
XOR L ;|
RRCA ;/
ADC HL, HL ; Carry Flag is used here.
JR NZ, +
LD HL, 0x733C ; Very rarely, does the final HL == 0x0000.
+: LD A, R
XOR L
LD (C108), HL
LD (C10A), A ;Just in case this random byte will be used later.
POP HL
RET
Because randomness depends on register R, sometimes, when on the room to room elevators, picking what frame to stop going up/down does not result in a different code, since it is taking the same number of cycles. The only way to manipulate the code on those elevators, is to either stop for more than one frame, or to wobble left/right.
-17.png)
-0.png)
-1.png)
-2.png)
-3.png)
-4.png)
-5.png)
-6.png)
-7.png)
-8.png)
-9.png)
-10.png)
-11.png)
-12.png)
-13.png)
-14.png)
-15.png)
-16.png)
*** Submission edited, no need for redundant screenshots here. ***