if I was to have a Tool-Assisted real life ... I'd.. I could abuse death, just to see if it saves time ..
Language: asm6502; id = bird $DD9C: LDA ID,X @ $0407 = #$0B $DD9F: ASL $DDA0: TAY ; read proc pointer $DDA1: LDA $C195,Y @ $C1AB = #$35 $DDA4: STA $0070 = #$35 $DDA6: LDA $C196,Y @ $C1AC = #$C7 $DDA9: STA $0071 = #$C7 ; store temp facing $DDAB: LDA facing,X @ $0447 = #$40 $DDAE: STA $007A = #$40 $DDB0: JSR $E243 ; common stuff $E243: LDA $0410,X @ $0417 = #$01 $E246: ASL $E247: TAY $E248: LDA ($70),Y @ $C737 = #$5D $E24A: STA $0000 = #$06 $E24C: INY $E24D: LDA ($70),Y @ $C738 = #$C7 $E24F: STA $0001 = #$F8 $E251: JMP ($0000) = $C75D ; HANDLE BIRD ; compare Y with Ryu's $C75D: SEC $C75E: LDA YposRyu = #$C0 $C760: SBC Ypos,X @ $0487 = #$8C ; above Ryu ? decrement Y : increment Y $C763: BCC $C76A $C765: INC Ypos,X @ $0487 = #$8C $C768: BNE $C76D ; compare X with Ryu's $C76D: SEC $C76E: LDA Xpos,X @ $0467 = #$B3 $C771: SBC XposRyu = #$80 ; right from Ryu ? decrement XsubSpeed : increment XsubSpeed $C773: BCC $C78D $C775: SEC $C776: LDA XsubSpeed,X @ $044F = #$40 $C779: SBC #$10 $C77B: STA XsubSpeed,X @ $044F = #$40 $C77E: LDA Xspeed,X @ $0457 = #$FD $C781: SBC #$00 $C783: STA Xspeed,X @ $0457 = #$FD ; update facing $C786: LDA $007A = #$40 $C788: ORA #$40 $C78A: STA $007A = #$40 $C78C: RTS (from $E243) ----------------------------------- $DDB3: BIT $0079 = #$C0 $DDB5: BMI $DDC3 $DDC3: JSR $E024 $E024: BIT $0079 = #$C0 $E026: BMI $E070 $E070: BVC $E038 $E072: JSR $E054 ; apply Xsub $E054: CLC $E055: LDA Xsub,X @ $045F = #$A0 $E058: ADC XsubSpeed,X @ $044F = #$30 $E05B: STA Xsub,X @ $045F = #$A0 $E05E: LDA Xpos,X @ $0467 = #$B3 $E061: ADC Xspeed,X @ $0457 = #$FD ; if X out of bounds, flush object $E064: CMP #$08 $E066: BCC $E078 $E068: CMP #$F8 $E06A: BCS $E078 ; else apply X $E06C: STA Xpos,X @ $0467 = #$B3 $E06F: RTS (from $E054) ---------------------------------
if I was to have a Tool-Assisted real life ... I'd.. I could abuse death, just to see if it saves time ..
Language: luacurves = {} function PredictBird() -- feos, 2014 -- draws birds trajectories -- color marks direction for slot = 0, 7 do if (memory.readbyte(0x400 + slot) ~= 11) or (memory.readbyte(0x498 + slot) == 0) then curves.slot = nil else if (curves.slot == nil) then curves.slot = {} end local ryuY = memory.readbyte(0x8A) local ryuX = memory.readbyte(0x86) local birdY = memory.readbyte(0x480 + slot) local birdX = memory.readbyte(0x460 + slot) + memory.readbyte(0x458 + slot)/256 local birdSpeed = memory.readbytesigned(0x450 + slot) + memory.readbyte(0x448 + slot)/256 local newY = 0 local newX = 0 local newSpeed = 0 while (#curves.slot <= 200) do if (#curves.slot == 0) then if (birdY > ryuY) then newY = birdY - 1 else newY = birdY + 1 end if (birdX > ryuX) then newSpeed = birdSpeed - 16/256 else newSpeed = birdSpeed + 16/256 end newX = birdX + newSpeed else local index = #curves.slot local tempY = curves.slot[index].oldY local tempX = curves.slot[index].oldX local tempSpeed = curves.slot[index].oldSpeed if (tempY > ryuY) then newY = tempY - 1 else newY = tempY + 1 end if (tempX > ryuX) then newSpeed = tempSpeed - 16/256 else newSpeed = tempSpeed + 16/256 end newX = tempX + newSpeed end table.insert(curves.slot, {oldY = newY, oldX = newX, oldSpeed = newSpeed}) end if (#curves.slot == 200) then table.remove(curves.slot, 1) end for index = 1, #curves.slot do local color = nil if (curves.slot[index].oldSpeed < 0) then color = "#008800" else color = "#0000ff" end gui.box (curves.slot[index].oldX - 1, curves.slot[index].oldY - 1, curves.slot[index].oldX + 1, curves.slot[index].oldY + 1, color) end for index = 1, #curves.slot do gui.pixel(curves.slot[index].oldX, curves.slot[index].oldY, "white") end end end end
if I was to have a Tool-Assisted real life ... I'd.. I could abuse death, just to see if it saves time ..
if I was to have a Tool-Assisted real life ... I'd.. I could abuse death, just to see if it saves time ..
Old style
Language: luafunction GetCell(X,Y) local temp = memory.readbyte(0xE7CC+SHIFT(X,4))+memory.readbyte(0x5F) if (temp >= 0xC0) then temp = temp-0xC0 end Y = Y-0x40 if (Y < 0) then Y = 0 end temp = SHIFT(Y,5)+temp return temp end function DrawBG(arg,offset,x,y) local color2 = "#00ff00ff" local function box(color,text) gui.box(x,y+offset,x+16,y+offset+16,color) if (text == 1) then gui.text(x+1,y+offset+1,string.format("%d",arg)) end end local function line(up,down,left,right) if (up == 1) then gui.line(x ,y+offset ,x+16,y+offset ,color2) end if (down == 1) then gui.line(x ,y+offset+16,x+16,y+offset ,color2) end if (left == 1) then gui.line(x ,y+offset ,x ,y+offset+16,color2) end if (right == 1) then gui.line(x+16,y+offset ,x+16,y+offset+16,color2) end end if (arg ~= 0) then if (arg == 1) then line(0,0,0,1) -- right wall elseif (arg == 2) then line(0,0,1,0) -- left wall elseif (arg == 3) then line(0,0,1,1) -- two-sided wall elseif (arg == 4) then line(1,0,0,1) -- right corner elseif (arg == 5) then line(1,0,1,0) -- left corner elseif (arg == 6) then line(1,0,1,1) -- two-sided corner elseif (arg == 7) then line(1,0,0,0) -- floor elseif (arg == 8) then box("#ff000066",0) -- ejecting block elseif (arg == 9) then box("#00ff0066",0) -- ladder elseif (arg >= 12) and (arg <= 15) then box("#ffffff66",0) -- exits else box("#00ff0066",1) end end end function ViewBG(style) -- feos, 2014 -- style: 0=none, 1=new, 2=old, 3=both local base = 0x300 local RyuX = memory.readbyte(0x86) local RyuY = memory.readbyte(0x8A) local RyuYspeed = memory.readbytesigned(0x89) local RyuXspeed = memory.readbytesigned(0xAD)+memory.readbyte(0xAC)/256 if (AND(memory.readbyte(0x84),4) == 0) then RyuYspeed = 0 end local RyuCell = GetCell(RyuX, RyuY+RyuYspeed) local RyuRow = math.floor(RyuCell/6) local Screen = memory.readwordsigned(0x51) if (AND(style,1) == 1) and (memory.readbyte(0x1FC) == 0x87) or (memory.readbyte(0x1F3) == 0xD8) then for tRow = RyuRow-14, RyuRow+14 do for tLine = 0,5 do local address = base+((tRow*6+tLine)%0xC0) local hi = SHIFT(memory.readbyte(address), 4) local lo = AND(memory.readbyte(address),0xF) local x = (tRow-RyuRow)*16+RyuX-RyuX%0x10-Screen%0x10 local y = tLine*32+64 DrawBG(hi, 0,x,y) DrawBG(lo,16,x,y) end end gui.box(xpos-9,ypos+RyuYspeed-1,xpos+5,ypos+RyuYspeed-5,"#0000ff66") end if (AND(style,2) == 2) then for cell = 0,191 do local hi = SHIFT(memory.readbyte(base+cell), 4) local lo = AND(memory.readbyte(base+cell),0xF) local bX = math.floor(cell/6) local bY = cell%6 local rX = (RyuRow%32)*6-1 local rY = math.floor(RyuY/16)*8-32 if (hi == 0) then hi = " " else hi = string.format("%X",hi) end if (lo == 0) then lo = " " else lo = string.format("%X",lo) end gui.text(bX*6,bY*16+9,hi.."\n"..lo) gui.box(rX,rY,rX+6,rY+8,"#00ff0000") end end end
When working on knife thrower, I found out knife timeout decrements NOT every frame (sometimes it doesn't). Will debug tomorrow. EDIT: When new level block set is loaded into video RAM, object attributes such as timers don't count. Object positioning is still counted in a temp loop. So, since you move at constant speed, you can't manipulate these knife timers by skipping their routines deliberately. Which is sad, will need to get around tossers the hard way...
Awesome work with those scripts. Have either of them helped any with the pacifist thing?
While resyncing your improvements (that are hilarious), I got stuck at nearly every other tyson, because they changed their behavior. And you know what? I must debug this crap to understand what they really depend on.
edit: it looks like that saving a half pixel loses a frame on boss 1, I've tried my movie and Scumtron's "any%" movie, same result.
And my movie is also improvable with using the "preserve speed while airborne", but I don't understand which half pixels are good.
Well it looked like they only depend on Ryu's X position. Maybe they have timers too (when to punch)?
Not sure I get your meaning
And also removing half pixel at the end of 1-1 doesn't change boss 1. So I'm out of ideas to improve the pacifist 1-1 and boss (I don't see the possibility either).
edit: also I'm curious why specific "sticky floors" can be avoided why some of them always "sticks"?
For example, first one avoidable, second one isn't (in the pacifist one)
if I was to have a Tool-Assisted real life ... I'd.. I could abuse death, just to see if it saves time ..
2-2 2nd screen RWJ is improvable with 1 frame, but gives a much worse knife thrower (hitting himself). Tried some delays, nothing good. And everytime I tried to save somehow a frame on 2-2 last (3rd) screen, I was always much frames behind.
Currently getting a wrong knife thrower at 3-1 2nd one. Trying to sacrifice as few frames as possible. edit: Currently I need to sacrifice 
(he should stop at midway and think about his life for a few seconds)
the bird trajectory script is awesome. the walls lua should be updated, at least I found an invisible sticky floor:
