mirror of
https://github.com/Artrios/pokecarde.git
synced 2026-03-21 17:24:35 -05:00
125 lines
3.2 KiB
NASM
125 lines
3.2 KiB
NASM
INCLUDE "../macros.asm"
|
|
INCLUDE "../constants/items.asm"
|
|
INCLUDE "../constants/scriptcommands.asm"
|
|
SECTION "CODE", ROM0
|
|
|
|
DataStartRegirock:
|
|
Mystery_Event
|
|
db CHECKSUM_CRC
|
|
dd 0 ; checksum placeholder
|
|
GBAPTR ScriptStartRegirock
|
|
GBAPTR RegirockEnd
|
|
|
|
ScriptStartRegirock:
|
|
db PRELOAD_SCRIPT
|
|
GBAPTR PreloadScriptStartRegirock
|
|
db END_OF_CHUNKS
|
|
|
|
PreloadScriptStartRegirock:
|
|
setvirtualaddress PreloadScriptStartRegirock
|
|
bufferdecorationname $00, $0076 ;Regirock doll
|
|
adddecoration $0076
|
|
compare $800D, $0000
|
|
virtualgotoif $01, TransferFailRegirock
|
|
virtualloadpointer TransferSuccessRegirock
|
|
setbyte $02
|
|
end
|
|
|
|
TransferFailRegirock:
|
|
virtualloadpointer TransferFailTextRegirock
|
|
setbyte $03
|
|
end
|
|
|
|
TransferSuccessRegirock:
|
|
Text_EN "\v2 has been sent!@"
|
|
;db $FD,$02,$37,$00,$05,$08,$27,$2A,$13,$00,$07,$10,$AB,$FF
|
|
|
|
TransferFailTextRegirock:
|
|
Text_EN "There is no room for the\n"
|
|
Text_EN "\v2...@"
|
|
;db $FD,$02,$2D,$00,$02,$2A,$29,$FE,$46,$0C,$36,$37,$00,$01,$02,$13,$00,$02,$15,$06,$50,$10,$B0,$FF
|
|
RegirockEnd:
|
|
db $00,$00,$00
|
|
|
|
|
|
DataStartRegice:
|
|
db $01,$00,$00,$00,$02,$02,$00,$02,$00,$00,$00,$04,$00,$80,$01,$00,$00 ; This is here because it doesn't like Mystery_Event being used more than once
|
|
db CHECKSUM_CRC
|
|
dd 0 ; checksum placeholder
|
|
GBAPTR ScriptStartRegirock ;Uses the Regirock pointers, I assume there's some data swapping shenanigans somewhere
|
|
GBAPTR RegirockEnd
|
|
|
|
ScriptStartRegice:
|
|
db PRELOAD_SCRIPT
|
|
GBAPTR PreloadScriptStartRegirock
|
|
db END_OF_CHUNKS
|
|
|
|
PreloadScriptStartRegice:
|
|
setvirtualaddress PreloadScriptStartRegirock
|
|
bufferdecorationname $00, $0077 ;Regice doll
|
|
adddecoration $0077
|
|
compare $800D, $0000
|
|
virtualgotoif $01, TransferFailRegirock ;Once again uses regirock pointers
|
|
virtualloadpointer TransferSuccessRegirock
|
|
setbyte $02
|
|
end
|
|
|
|
TransferFailRegice:
|
|
virtualloadpointer TransferFailTextRegirock
|
|
setbyte $03
|
|
end
|
|
|
|
TransferSuccessRegice:
|
|
Text_EN "\v2 has been sent!@"
|
|
;db $FD,$02,$37,$00,$05,$08,$27,$2A,$13,$00,$07,$10,$AB,$FF
|
|
|
|
TransferFailTextRegice:
|
|
Text_EN "There is no room for the\n"
|
|
Text_EN "\v2...@"
|
|
;db $FD,$02,$2D,$00,$02,$2A,$29,$FE,$46,$0C,$36,$37,$00,$01,$02,$13,$00,$02,$15,$06,$50,$10,$B0,$FF
|
|
RegiceEnd:
|
|
db $00,$00,$00
|
|
|
|
DataStartRegisteel:
|
|
db $01,$00,$00,$00,$02,$02,$00,$02,$00,$00,$00,$04,$00,$80,$01,$00,$00 ; Mystery_Event
|
|
db CHECKSUM_CRC
|
|
dd 0 ; checksum placeholder
|
|
GBAPTR ScriptStartRegirock
|
|
GBAPTR RegirockEnd
|
|
|
|
ScriptStartRegisteel:
|
|
db PRELOAD_SCRIPT
|
|
GBAPTR PreloadScriptStartRegirock
|
|
db END_OF_CHUNKS
|
|
|
|
PreloadScriptStartRegisteel:
|
|
setvirtualaddress PreloadScriptStartRegirock
|
|
bufferdecorationname $00, $0078 ;Registeel doll
|
|
adddecoration $0078
|
|
compare $800D, $0000
|
|
virtualgotoif $01, TransferFailRegirock ;Once again uses regirock pointers
|
|
virtualloadpointer TransferSuccessRegirock
|
|
setbyte $02
|
|
end
|
|
|
|
TransferFailRegisteel:
|
|
virtualloadpointer TransferFailTextRegirock
|
|
setbyte $03
|
|
end
|
|
|
|
TransferSuccessRegisteel:
|
|
Text_EN "\v2 has been sent!@"
|
|
;db $FD,$02,$37,$00,$05,$08,$27,$2A,$13,$00,$07,$10,$AB,$FF
|
|
|
|
TransferFailTextRegisteel:
|
|
Text_EN "There is no room for the\n"
|
|
Text_EN "\v2...@"
|
|
;db $FD,$02,$2D,$00,$02,$2A,$29,$FE,$46,$0C,$36,$37,$00,$01,$02,$13,$00,$02,$15,$06,$50,$10,$B0,$FF
|
|
RegisteelEnd:
|
|
db $00,$00,$00
|
|
|
|
EndofRegiChunks:
|
|
|
|
DataEnd:
|
|
EOF
|