Organized the scripts, ported the snake rattle n' roll script from game resources page on tasvideos.org
This commit is contained in:
pasky1382
parent
965f0934e5
commit
44f64078a3
|
|
@ -1,324 +0,0 @@
|
|||
--Castlevania: Rondo of Blood
|
||||
|
||||
fill = 0x64FFC8C8
|
||||
line = 0xFFFFC8C8
|
||||
|
||||
function drawObjInfo()
|
||||
|
||||
for i = 0,88 do
|
||||
|
||||
objX = mainmemory.read_u8(0xBC8+i)
|
||||
objY = mainmemory.read_u8(0xCD0+i)
|
||||
objVisibleX = mainmemory.read_u8(0xB70+i)*255
|
||||
objVisibleY = mainmemory.read_u8(0xC78+i)*255
|
||||
objDamage = mainmemory.read_u8(0x1300+i) --how much damage it will do if it collides with you
|
||||
objHealth = mainmemory.read_u8(0x12A8+i-2) --something is wrong, -2 makes it right in some cases but makes others wrong
|
||||
objStatus = mainmemory.read_u8(0x1250+i) --collision status
|
||||
adjustedX = objX - objVisibleX
|
||||
adjustedY = objY - objVisibleY
|
||||
--clipping
|
||||
if(adjustedX > 0 and adjustedY > 0) then
|
||||
gui.text(
|
||||
adjustedX * xmult,
|
||||
adjustedY * ymult,
|
||||
objX
|
||||
.. " " .. objY
|
||||
-- .. " " .. "#" .. i
|
||||
-- .. " D" .. objDamage
|
||||
-- .. " HP" .. objHealth
|
||||
-- .. " S" .. objStatus
|
||||
)
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
function drawHitBoxes()
|
||||
|
||||
for i = 0,88 do
|
||||
|
||||
objX = mainmemory.read_u8(0xBC8+i)
|
||||
objY = mainmemory.read_u8(0xCD0+i)
|
||||
objVisibleX = mainmemory.read_u8(0xB70+i)*255
|
||||
objVisibleY = mainmemory.read_u8(0xC78+i)*255
|
||||
adjustedX = objX - objVisibleX
|
||||
adjustedY = objY - objVisibleY
|
||||
objOffsetX = mainmemory.read_u8(0x1930+i)
|
||||
objDirection = mainmemory.read_u8(0xAC0+i)
|
||||
objUnknownY = mainmemory.read_u8(0x19E0+i)
|
||||
hitSizeX = mainmemory.read_u8(0x1988+i)
|
||||
hitSizeY = mainmemory.read_u8(0x1A38+i)
|
||||
|
||||
if(objDirection == 1) then --9484
|
||||
objOffsetX = bit.bxor(0xFF,objOffsetX) --9488
|
||||
objOffsetX = objOffsetX+1 --948A
|
||||
end
|
||||
|
||||
off00 = 0 --942B
|
||||
if (bit.band(0x80, objOffsetX) == 128) then --942F
|
||||
of00=bit.band(0xFF,(off00-1)) --9431
|
||||
end
|
||||
|
||||
hitBoxCornerX = bit.band(0xFF,(objX + objOffsetX)) --9434
|
||||
hitBoxCornerY = bit.band(0xFF,(objY + objUnknownY)) --944F
|
||||
|
||||
objStatus = mainmemory.read_u8(0x1250+i)-- generally: 0 inert, 1 benign, 2 damageable/possibly damaging
|
||||
|
||||
if(objStatus == 0) then
|
||||
fill = 0x600000FF
|
||||
line = 0xC0000000
|
||||
elseif(objStatus == 1) then
|
||||
fill = 0x3C00FF00
|
||||
line = 0x8000FF00
|
||||
elseif(objStatus == 2) then
|
||||
fill = 0x50FF0000
|
||||
line = 0x80FF0000
|
||||
end
|
||||
|
||||
--clipping
|
||||
if(adjustedX > 0 and adjustedY > 0) then
|
||||
gui.drawBox(
|
||||
hitBoxCornerX-hitSizeX,
|
||||
hitBoxCornerY+hitSizeY,
|
||||
hitBoxCornerX+hitSizeX,
|
||||
hitBoxCornerY-hitSizeY,
|
||||
line,
|
||||
fill
|
||||
)
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
function dispProperties(num)
|
||||
|
||||
fill = 0x80FFC8C8
|
||||
|
||||
ObjDamageInfo = {
|
||||
0x13b0,--5 means is being damaged
|
||||
0x1a90,--invulnerability countdown
|
||||
0xf90,--if 0, animate. seems to be used as a counter to temporarily freeze objs when damaged
|
||||
0xb18,--flashing if equal to 0x10, white if equal to 0x86
|
||||
0x1ae8,
|
||||
0x1f18,
|
||||
0x11f8,
|
||||
0x12a8--health
|
||||
}
|
||||
|
||||
for i = 1,8 do
|
||||
gui.text((10+(i*20)) * xmult ,100 * ymult, mainmemory.read_u8(ObjDamageInfo[i]+num))
|
||||
end
|
||||
|
||||
hitBoxInfo = {
|
||||
0x1988,
|
||||
0x1A38,
|
||||
0x1930,
|
||||
0xAC0
|
||||
}
|
||||
|
||||
for i = 1,4 do
|
||||
gui.text((10+(i*20)) * xmult,120 * ymult, mainmemory.read_u8(hitBoxInfo[i]+num))
|
||||
end
|
||||
|
||||
ObjPositionInfo = {
|
||||
0xB70, --offscreen or not
|
||||
0xBC8, --x position
|
||||
0xC20,
|
||||
0xC78,
|
||||
0xCD0, --y position
|
||||
0xD28,
|
||||
}
|
||||
|
||||
for i = 1,6 do
|
||||
gui.text((10+(i*20)) * xmult,140 * ymult, mainmemory.read_u8(ObjPositionInfo[i]+num))
|
||||
end
|
||||
|
||||
collisionInfo = {
|
||||
0x710, --compensated x
|
||||
0x720, --compensated y
|
||||
0x730 --compensated "visible"
|
||||
}
|
||||
|
||||
for i = 1,3 do
|
||||
gui.text((10+(i*20)) * xmult,160 * ymult, mainmemory.read_u8(collisionInfo[i]+num))
|
||||
end
|
||||
end
|
||||
|
||||
while true do
|
||||
--Multiplier for text rendering
|
||||
xmult = client.screenwidth() / 256
|
||||
ymult = client.screenheight() / 225
|
||||
line = 0xFFFFC8C8
|
||||
--display info about a given object
|
||||
--dispProperties(0)
|
||||
|
||||
drawHitBoxes()
|
||||
drawObjInfo()
|
||||
emu.frameadvance()
|
||||
--invincibility cheat
|
||||
-- memory.writebyte(0x13B0, 0)
|
||||
|
||||
end
|
||||
|
||||
--[[ Notes
|
||||
|
||||
--Object Damage
|
||||
|
||||
A1ED LDY $33B0,X ;"can damage"
|
||||
A1F0 LDA $A26D,Y
|
||||
A1F3 STA $3A90,X ;invulnerability countdown
|
||||
A1F6 LDA $A27D,X
|
||||
A1F9 STA $2F90,X ;whether to animate the obj or not
|
||||
A1FC LDA $2B18,X ;flashing or not
|
||||
A1FF STA $3AE8,X
|
||||
A202 LDA #$86 ;make the palette white
|
||||
A204 STA $2B18,X
|
||||
A207 LDA $3F18,X
|
||||
A20A ORA #$03
|
||||
A20C STA $31F8,X
|
||||
A20F LDA $32A8,X
|
||||
A212 SEC
|
||||
A213 SBC $00 ;subtract the amount of damage to do
|
||||
A215 STA $32A8,X ;x is the object slot to modify
|
||||
|
||||
--Where the player's health is decremented
|
||||
|
||||
A1F2 LDA $33B0 ;check if the player is vulnerable
|
||||
A1F5 BEQ $A234
|
||||
A1F7 LDA $33B0
|
||||
A1FA bit.band #$07
|
||||
A1FC CMP #$05
|
||||
A1FE BNE $A20B
|
||||
A200 LDA $36D3
|
||||
A203 BNE $A20B
|
||||
A205 STZ $33B0
|
||||
A20B LDA $98 ;player health
|
||||
A20D SEC
|
||||
A20E SBC $32A8 ;subtract amount of damage received
|
||||
A211 STA $98
|
||||
|
||||
--Where the damage received (32A8) is set
|
||||
|
||||
9546 STA $33B0,X
|
||||
9549 LDA $33B0
|
||||
954C BNE $955A
|
||||
954E LDA $3358,X
|
||||
9551 STA $33B0
|
||||
9554 LDA $3300,X ;the amount of damage an object will deal to you
|
||||
9557 STA $32A8
|
||||
|
||||
--Where the hitbox offset is calculated
|
||||
|
||||
9413 LDX #$00
|
||||
9415 LDA $3250,X ;load the hitbox type
|
||||
9418 BEQ $9460 ;we quit if type 0
|
||||
941A LDA $3930,X ;x offset
|
||||
941D STA $01 ;store it in 01
|
||||
941F LDA $2AC0,X ;direction facing, left is 1, right is 0
|
||||
9422 BEQ $942B ;we are facing...
|
||||
9424 LDA $01 ;left, load offset
|
||||
9426 EOR #$FF
|
||||
9428 INC
|
||||
9429 STA $01 ;store the altered offset
|
||||
942B STZ $00
|
||||
942D LDA $01 ;get the either altered or unaltered offset
|
||||
942F BPL $9433
|
||||
9431 DEC $00
|
||||
9433 CLC
|
||||
9434 ADC $2BC8,X ;add x position to either altered or unaltered offset
|
||||
9437 STA $2710,X ;store that as the hitbox corner
|
||||
943A LDA $2B70,X ;is the object visible
|
||||
943D ADC $00 ;correct it depending on the altered x offset
|
||||
943F STA $2730,X
|
||||
9442 STZ $00
|
||||
9444 LDA $39E0,X
|
||||
9447 BPL $944B
|
||||
9449 DEC $00
|
||||
944B LDA $2CD0,X ;y position
|
||||
944E CLC
|
||||
944F ADC $39E0,X
|
||||
9452 STA $2720,X ;store hitbox y corner
|
||||
9455 LDA $2C78,X ;indicator that the object is y visible
|
||||
9458 ADC $00
|
||||
945A ORA $2730,X
|
||||
945D STA $2730,X
|
||||
9460 INX
|
||||
9461 CPX #$10 ;we can only do 16 objects
|
||||
9463 BCC $9415 ;start again if we have objects left
|
||||
9465 RTS
|
||||
9466 STZ $33B0,X ;zero the "can damage" byte
|
||||
9469 LDA $3250,X ;objStatus / collision status
|
||||
946C BNE $9471 ;if the status is 0 we continue
|
||||
946E JMP $9507 ;otherwise we quit
|
||||
|
||||
--X and Y represent our two objects
|
||||
|
||||
9471 LDA $3988,X ;x hitbox size
|
||||
9474 ORA $3A38,X ;y hitbox size
|
||||
9477 BNE $947C
|
||||
9479 JMP $9507
|
||||
947C LDA $3930,X ;x offset
|
||||
947F STA $01
|
||||
9481 LDA $2AC0,X ;objDirection
|
||||
9484 BEQ $948D ;branch if we are facing right
|
||||
9486 LDA $01 ;left
|
||||
9488 EOR #$FF
|
||||
948A INC
|
||||
948B STA $01
|
||||
948D STZ $00 ;right, zero our temp byte
|
||||
948F LDA $01 ;load the possibly manipulated offset
|
||||
9491 BPL $9495
|
||||
9493 DEC $00
|
||||
9495 CLC
|
||||
9496 ADC $2BC8,X ;add object x position to the possibly manipulated offset
|
||||
9499 STA $26FF
|
||||
949C LDA $2B70,X ;objVisibleX
|
||||
949F ADC $00
|
||||
94A1 BNE $9507 ;quit if the result is non-zero
|
||||
94A3 STZ $00
|
||||
94A5 LDA $39E0,X ;y related
|
||||
94A8 BPL $94AC
|
||||
94AA DEC $00
|
||||
94AC CLC
|
||||
94AD ADC $2CD0,X ;obj y position
|
||||
94B0 STA $2700
|
||||
94B3 LDA $2C78,X ;objVisibleY
|
||||
94B6 ADC $00
|
||||
94B8 BNE $9507
|
||||
94BA LDA $3250,X ;objStatus / collision status
|
||||
94BD BPL $94C2
|
||||
94BF CLY
|
||||
94C0 BRA $94C4
|
||||
94C2 LDY #$0F ;16 objects max
|
||||
|
||||
94C4 LDA $3250,Y ;objStatus / collision status
|
||||
94C7 BEQ $9504 ;if objStatus is zero, go to the next object
|
||||
94C9 LDA $2730,Y ;compensated "visible"
|
||||
94CC BNE $9504
|
||||
94CE LDA $3988,X ;x hitbox size of 1st object
|
||||
94D1 CLC
|
||||
94D2 ADC $3988,Y ;x hitbox size of 2nd object
|
||||
94D5 STA $2701
|
||||
94D8 LDA $3A38,X ;y hitbox size of 1st object
|
||||
94DB CLC
|
||||
94DC ADC $3A38,Y ;y hitbox size of 2nd object
|
||||
94DF STA $2702
|
||||
94E2 LDA $26FF
|
||||
94E5 SEC
|
||||
94E6 SBC $2710,Y ;subtract compensated x position for the current object
|
||||
94E9 BCS $94EE
|
||||
94EB EOR #$FF
|
||||
94ED INC
|
||||
94EE CMP $2701
|
||||
94F1 BCS $9504
|
||||
94F3 LDA $2700
|
||||
94F6 SEC
|
||||
94F7 SBC $2720,Y ;subtract compensated y position for the current object
|
||||
94FA BCS $94FF
|
||||
94FC EOR #$FF
|
||||
94FE INC
|
||||
94FF CMP $2702
|
||||
9502 BCC $9508
|
||||
9504 DEY
|
||||
9505 BPL $94C4
|
||||
9507 RTS
|
||||
|
||||
]]
|
||||
|
|
@ -0,0 +1,37 @@
|
|||
-- Snake Rattle N' Roll 'Simple HUD Script'
|
||||
-- Retrieved from http://tasvideos.org/GameResources/NES/SnakeRattleNRoll.html
|
||||
|
||||
dim1speed = 0
|
||||
dim2speed = 0
|
||||
xspeed = 0
|
||||
xsubspeed = 0
|
||||
yspeed = 0
|
||||
ysubspeed = 0
|
||||
xm = 0
|
||||
ym = 0
|
||||
|
||||
function stuff()
|
||||
xspeed = mainmemory.read_u8(0x417)
|
||||
xsubspeed = mainmemory.read_u8(0x419)
|
||||
if (xspeed == 255) then xspeed = -1 end
|
||||
|
||||
yspeed = mainmemory.read_u8(0x41b)
|
||||
ysubspeed = mainmemory.read_u8(0x41d)
|
||||
if (yspeed == 255) then yspeed = -1 end
|
||||
|
||||
gui.text(1 * xm,19 * ym,"L:"..mainmemory.read_u8(0x67) % 16) -- left axis
|
||||
gui.text(1 * xm,29 * ym,"R:"..mainmemory.read_u8(0x69) % 16) -- right axis
|
||||
gui.text(1 * xm,39 * ym,"H:"..mainmemory.read_u8(0x6b) % 16) -- height axis
|
||||
gui.text(30 * xm,19 * ym, "LVel:"..(xspeed * 256) + xsubspeed + (yspeed * 256) + ysubspeed)
|
||||
gui.text(30 * xm,29 * ym,"RVel:"..(xspeed * 256) + xsubspeed - (yspeed * 256) - ysubspeed)
|
||||
end
|
||||
|
||||
local function scaler()
|
||||
xm = client.screenwidth() / 256
|
||||
ym = client.screenheight() / 224
|
||||
end
|
||||
while true do
|
||||
scaler()
|
||||
stuff()
|
||||
emu.frameadvance()
|
||||
end
|
||||
Loading…
Reference in New Issue