Now are we talking all planets beat (except 13), or, do we mean grabbing every single treasure there is, beating every bonus stage there is, etc?
cand ownload here too Forbidden You do not have permission to access this page or file Data files must be stored on the same site they are linked from.
forget it, i was trying to download the firt atemp by Animadverto http://liquidperspective.20m.com/solarjetmanTA.fmv
While I understand that FCEUX has advantages, the file sizes of the videos still are horrendous. Would there be any way that these latest videos being produced could still be FCMs, or does the FCEUX's advantages simply mandate the upgrade?
Language: lualocal R1u, R1s= memory.readbyte, memory.readbytesigned --***************************************************************************** local function R2u(a) return R1u(a) + R1u(a+1)*256 end local function R2s(a) return R1u(a) + R1s(a+1)*256 end --***************************************************************************** local lastkeys, keys= input.get(), input.get() --***************************************************************************** local function UpdateKeys() lastkeys= keys; keys= input.get() end --***************************************************************************** local function Limits(V,l,h) return math.max(math.min(V,h),l) end --***************************************************************************** --***************************************************************************** local Draw= {} --***************************************************************************** --Coordinates is the top-left pixel of the 3x5 digit. --Used for drawing compact, colored numbers. local Px,Li= gui.pixel, gui.line Draw[0]= function(x,y,c) -- ### Li(x ,y ,x ,y+4,c)-- # # Li(x+2,y ,x+2,y+4,c)-- # # Px(x+1,y ,c) -- # # Px(x+1,y+4,c) -- ### end Draw[1]= function(x,y,c) -- # Li(x ,y+4,x+2,y+4,c)-- ## Li(x+1,y ,x+1,y+3,c)-- # Px(x ,y+1,c) -- # end -- ### Draw[2]= function(x,y,c) -- ### Li(x ,y ,x+2,y ,c)-- # Li(x ,y+3,x+2,y+1,c)-- ### Li(x ,y+4,x+2,y+4,c)-- # Px(x ,y+2,c) -- ### Px(x+2,y+2,c) end Draw[3]= function(x,y,c) -- ### Li(x ,y ,x+1,y ,c)-- # Li(x ,y+2,x+1,y+2,c)-- ### Li(x ,y+4,x+1,y+4,c)-- # Li(x+2,y ,x+2,y+4,c)-- ### end Draw[4]= function(x,y,c) -- # # Li(x ,y ,x ,y+2,c)-- # # Li(x+2,y ,x+2,y+4,c)-- ### Px(x+1,y+2,c) -- # end -- # Draw[5]= function(x,y,c) -- ### Li(x ,y ,x+2,y ,c)-- # Li(x ,y+1,x+2,y+3,c)-- ### Li(x ,y+4,x+2,y+4,c)-- # Px(x ,y+2,c) -- ### Px(x+2,y+2,c) end Draw[6]= function(x,y,c) -- ### Li(x ,y ,x+2,y ,c)-- # Li(x ,y+1,x ,y+4,c)-- ### Li(x+2,y+2,x+2,y+4,c)-- # # Px(x+1,y+2,c) -- ### Px(x+1,y+4,c) end -- ### Draw[7]= function(x,y,c) -- # Li(x ,y ,x+1,y ,c)-- ## Li(x+2,y ,x+1,y+4,c)-- # end -- # Draw[8]= function(x,y,c) -- ### Li(x ,y ,x ,y+4,c)-- # # Li(x+2,y ,x+2,y+4,c)-- ### Px(x+1,y ,c) -- # # Px(x+1,y+2,c) -- ### Px(x+1,y+4,c) end Draw[9]= function(x,y,c) -- ### Li(x ,y ,x ,y+2,c)-- # # Li(x+2,y ,x+2,y+3,c)-- ### Li(x ,y+4,x+2,y+4,c)-- # Px(x+1,y ,c) -- ### Px(x+1,y+2,c) end Draw[10]=function(x,y,c) -- # Li(x ,y+1,x ,y+4,c)-- # # Li(x+2,y+1,x+2,y+4,c)-- # # Px(x+1,y ,c) -- ### Px(x+1,y+3,c) -- # # end Draw[11]=function(x,y,c) -- ## Li(x ,y ,x ,y+4,c)-- # # Li(x+1,y ,x+2,y+1,c)-- ## Li(x+1,y+4,x+2,y+3,c)-- # # Px(x+1,y+2,c) -- ## end Draw[12]=function(x,y,c) -- # Li(x ,y+1,x ,y+3,c)-- # # Li(x+1,y ,x+2,y+1,c)-- # Li(x+1,y+4,x+2,y+3,c)-- # # end -- # Draw[13]=function(x,y,c) -- ## Li(x ,y ,x ,y+4,c)-- # # Li(x+2,y+1,x+2,y+3,c)-- # # Px(x+1,y ,c) -- # # Px(x+1,y+4,c) -- ## end Draw[14]=function(x,y,c) -- ### Li(x ,y ,x ,y+4,c)-- # Li(x+1,y ,x+2,y ,c)-- ## Li(x+1,y+4,x+2,y+4,c)-- # Px(x+1,y+2,c) -- ### end Draw[15]=function(x,y,c) -- ### Li(x ,y ,x ,y+4,c)-- # Li(x+1,y ,x+2,y ,c)-- ## Px(x+1,y+2,c) -- # end -- # --***************************************************************************** local function __DN_AnyBase(right, y, Number, c, bkgnd, div) --***************************************************************************** -- Works with any base from 2 to 16. Paints the input number. -- Returns the x position where it would paint another digit. -- It only works with integers. Rounds fractions toward zero. if div < 2 then return end -- Prevents the function from never returning. local Digit= {} local Negative= false if Number < 0 then Number= -Number Negative= true end Number= math.floor(Number) c= c or "white" bkgnd= bkgnd or "clear" local i= 0 if Number < 1 then Digit[1]= 0 i= 1 end while (Number >= 1) do i= i+1 Digit[i]= Number % div Number= math.floor(Number/div) end if Negative then i= i+1 end local x= right - i*4 gui.box(x+1, y-1, right+1, y+5,bkgnd,bkgnd) i= 1 while Draw[Digit[i]] do Draw[Digit[i]](right-2,y,c) right= right-4 i=i+1 end if Negative then gui.line(right, y+2,right-2,y+2,c) right= right-4 end return right end --***************************************************************************** local function DrawNum(right, y, Number, c, bkgnd) --***************************************************************************** -- Paints the input number as right-aligned. Decimal version. return __DN_AnyBase(right, y, Number, c, bkgnd, 10) end --***************************************************************************** local function DrawNumx(right, y, Number, c, bkgnd) --***************************************************************************** -- Paints the input number as right-aligned. Hexadecimal version. return __DN_AnyBase(right, y, Number, c, bkgnd, 16) end local OC= { [0]= "white", "white", "white", "green", "green", "green", "green", "green", "green", "green", "green", "blue", "blue", "blue", "blue", "red", "red", "red", "red", "red", "red", "red", "red", "yellow", "yellow", "yellow", "yellow", "yellow", "grey", "grey", "grey" } --***************************************************************************** local function ObjRadar(Factor) -- What factor to scale radar? --***************************************************************************** local CamX, CamY= R2u(0x004C), R2u(0x004E) local OffX= math.floor((1-1/Factor)*128) local OffY= math.floor((1-1/Factor)*100) local count= 0 for i= 0, 0x1E do if R1u(0x0317+i) ~= 0 then count= count+1 gui.pixel( math.floor((R1u(0x0200+i)+R1s(0x021F+i)*256-CamX)/Factor + OffX), math.floor((R1u(0x025D+i)+R1s(0x027C+i)*256-CamY)/Factor + OffY), OC[i] ) end end DrawNum(90,12,count) end --***************************************************************************** local function ObjCount() --***************************************************************************** local P, B, E, A, I, S= 0,0,0,0,0,0 for i= 0, 2 do if R1u(0x0317+i) ~= 0 then P= P+1 end end for i= 3, 10 do if R1u(0x0317+i) ~= 0 then B= B+1 end end for i= 11, 14 do if R1u(0x0317+i) ~= 0 then E= E+1 end end for i= 15, 22 do if R1u(0x0317+i) ~= 0 then A= A+1 end end for i= 23, 27 do if R1u(0x0317+i) ~= 0 then I= I+1 end end for i= 28, 30 do if R1u(0x0317+i) ~= 0 then S= S+1 end end gui.box(238,8,252,56,"black",0) Draw[P](240,10,"white"); Draw[3](248,10,"white") Draw[B](240,18,"white"); Draw[8](248,18,"white") Draw[E](240,26,"white"); Draw[4](248,26,"white") Draw[A](240,34,"white"); Draw[8](248,34,"white") Draw[I](240,42,"white"); Draw[5](248,42,"white") Draw[S](240,50,"white"); Draw[3](248,50,"white") end local DirX={ [0]= 0, 3, 6, 8, 11, 13, 14, 15, 16, 15, 14, 13, 11, 8, 6, 3, 0, -3, -6, -8,-11,-13,-14,-15, -16,-15,-14,-13,-11, -8, -6, -3 } local DirX2={ [0]= 0, 12, 24, 35, 45, 53, 59, 62, 64, 62, 59, 53, 45, 35, 24, 12, 0,-12,-24,-35,-45,-53,-59,-62, -64,-62,-59,-53,-45,-35,-24,-12 } --***************************************************************************** local function DirPow(v) --***************************************************************************** return DirX[v], DirX[(v+8)%32] end -- 0 1 2 3 4 5 6 7 8 -- 0 3 6 8 11 13 14 15 16 --***************************************************************************** local function Fn() --***************************************************************************** UpdateKeys() --BlackBox, to see the dot radar better. if keys.space then gui.box(-1,7,256,200,"black",0) end --BasicHUD DrawNum( 20,10,R2u(0x00C6),"white","black") -- Fuel DrawNum( 20,40,R1u(0x0374),"white","black") -- Direction DrawNum(230,10,R2u(0x004C),"white","black") -- Cam X DrawNum(230,30,R1u(0x0200) + R1u(0x021F)*256,"white","black") -- Player X DrawNum(230,40,R1u(0x025D) + R1u(0x027C)*256,"white","black") -- Player Y --X Velocity local N= 1 if R1u(0x0336) == 1 then N= -1 end DrawNum( 20,20,(R1u(0x029B)+R1u(0x02BA)*256)*N,"white","black") DrawNum( 40,20,DirX[R1u(0x0374)%32] ,"white","black") DrawNum( 54,20,DirX2[R1u(0x0374)%32],"white","black") --Y Velocity N= 1 if R1u(0x0355) == 1 then N= -1 end DrawNum( 20,30,(R1u(0x02D9)+R1u(0x02F8)*256)*N,"white","black") DrawNum( 40,30,DirX[(R1u(0x0374)+8)%32] ,"white","black") DrawNum( 54,30,DirX2[(R1u(0x0374)+8)%32],"white","black") ObjRadar(3) ObjCount() end gui.register(Fn) --***************************************************************************** local function DumpStats() --***************************************************************************** for obj= 0, 0x1E do local color= "white" if R1u(0x0200+obj+0x1F*9) == 0 then color= "grey" end for st= 0, 16 do DrawNumx(9+st*10, 9+obj*7, R1u(0x0200+obj+st*0x1F),color,"black") end end end --gui.register(DumpStats)
However, button presses do affect the RNG. The game is directly reading from the controller to change the RNG in some fashion. As if this wasn't enough, it'll also read from player 2, who serves no other purpose whatsoever. In short, I have a full manipulation controller independent of all activities with the game, should I choose to use P2.
There is a two-byte shifter at address 0x005B that merely shifts its bits to the left. It is big-endian in its shifts, for whatever reason. The upper bit that gets shifted out looks to be thrown away, as the following INC instruction messes with the carry bit (unless I missed some detail in 6502 assembly in an embarrassing manner). The low bit that gets shifted in is an XOR of 0x005A bits 0x48. If 0x40 and 0x08 are different (01 or 10), we shift in a 1; If the same (11 or 00), we shift in a 0. Seeing as it doesn't feed back into the RNG, I must assume its used elsewhere, such as spawning position of enemies or something. As for what feeds 0x005A, it looks to be a sum of controller data and timers, plus an extra 14. The carry bit is always added in every time, with a constant added in the end, so the effective period of 0x005A is 255, not 256. Can't get 255 with carry set, and can't get 0 with carry clear, so with the constant added, we'll never get a result of 13 sitting in 0x005A. Controller data includes what's being held at the moment and whether or not you just now pressed it and not have done so before this frame. Updates to the controller addresses are, of course, skipped during lag frames. The game intentionally inserts a lag frame following every normal frame for speed consistency, so half the frames come up lag according to FCEUX. Even so, every frame, both normal and lag, uses the controller data for RNG purposes, and since I only have control every other frame, this slightly reduces my RNG-controlling abilities. As for other addresses of note, 0x005D is a two-byte little-endian frame timer that resets to zero whenever a new area is loaded. 0x005F looks to be always zero so far. 0x0060 is a frame timer that simply runs from 0 to 7 then resets to zero. All these timers run every frame, both normal and lag. It looks like most of these have a variety of purposes to the game in some fashion. I'll have to figure out the timer, since I've spotted in one spawning routine, that it looks for a very particular time before letting it spawn. In any case, with P2, I should be able to control the RNG very nicely, as it's simply added in along with all the other stuff, giving access to a wide range of possible values for address 0x005A. Other, less-RNG-related things that come to mind: The X and Y axis of your ship's speed are limited independent of one another. In other words, it's a rectangular restriction rather than a circular one. You can max out your speed (3.0 pixels/frame) in one axis before dealing with the other axis, and this will not slow you down one bit. This is the reason why I point exactly to the right at the start of planet 7 for a bit before facing straight up to maintain height. While your thrusters and the gravity are limited in how fast you can move, the game forgets to apply this limitation when a tethered object drags you along. This means your X-speed can exceed 3.0 pixels/frame for an extended period as long as you do not thrust with any force to the left or right. You can thrust straight up or straight down without losing the boosted speed. Motion downward or upward often has gravity often getting in the way, so except for tiny fractions of 1/256, a boosted Y-speed isn't happening when gravity is affecting you. In other news, I haven't yet put the effort into bypassing that big enemy. So it's still a wall to me. But I have been spending time optimizing the route through the start of planet 7, and get myself walled by that same enemy several frames earlier as well as picking up a little extra cash from shooting stuff. So at least I'm richer by the time I get stuck.Language: asm6502;Function $00:920A LDA $005A AND #$48 ; Get XOR of bits $40 and $08 from address $005A ADC #$38 ASL ASL ; Now it's in our carry bit. ROL $005C ; And shifted into the big-endian RNG bytes at $005B and $005C ROL $005B ; Upper bit that's shifted out is thrown away INC $005A ; +$01 LDA $005A ; Many things are added to $005A... ADC $0018 ; P1 immediate - Mirror of controller state ADC $0019 ; P1 pressed - Bits are set if pressed now, but not held before ADC $001A ; P2 immediate ADC $001B ; P2 pressed ADC $005D ; Frame timer low-byte ADC $005E ; Frame timer high-byte ADC $005F ; ? Unknown. Looks to be always zero so far... ADC $0060 ; ? Unknown. Looks identical to $005D MOD 8 ADC #$0D ; +$0D STA $005A RTS
