mirror of https://github.com/pret/pokecrystal.git
3128 lines
46 KiB
NASM
3128 lines
46 KiB
NASM
ScriptCommandTable: ; 0x96cb1
|
|
dw Script_2call
|
|
dw Script_3call
|
|
dw Script_2ptcall
|
|
dw Script_2jump
|
|
dw Script_3jump
|
|
dw Script_2ptjump
|
|
dw Script_if_equal
|
|
dw Script_if_not_equal
|
|
dw Script_iffalse
|
|
dw Script_iftrue
|
|
dw Script_if_less_than
|
|
dw Script_if_greater_than
|
|
dw Script_jumpstd
|
|
dw Script_callstd
|
|
dw Script_3callasm
|
|
dw Script_special
|
|
dw Script_2ptcallasm
|
|
dw Script_checkmaptriggers
|
|
dw Script_domaptrigger
|
|
dw Script_checktriggers
|
|
dw Script_dotrigger
|
|
dw Script_writebyte
|
|
dw Script_addvar
|
|
dw Script_random
|
|
dw Script_checkver
|
|
dw Script_copybytetovar
|
|
dw Script_copyvartobyte
|
|
dw Script_loadvar
|
|
dw Script_checkcode
|
|
dw Script_writevarcode
|
|
dw Script_writecode
|
|
dw Script_giveitem
|
|
dw Script_takeitem
|
|
dw Script_checkitem
|
|
dw Script_givemoney
|
|
dw Script_takemoney
|
|
dw Script_checkmoney
|
|
dw Script_givecoins
|
|
dw Script_takecoins
|
|
dw Script_checkcoins
|
|
dw Script_addcellnum
|
|
dw Script_delcellnum
|
|
dw Script_checkcellnum
|
|
dw Script_checktime
|
|
dw Script_checkpoke
|
|
dw Script_givepoke
|
|
dw Script_giveegg
|
|
dw Script_givepokeitem
|
|
dw Script_checkpokeitem
|
|
dw Script_checkbit1
|
|
dw Script_clearbit1
|
|
dw Script_setbit1
|
|
dw Script_checkbit2
|
|
dw Script_clearbit2
|
|
dw Script_setbit2
|
|
dw Script_wildoff
|
|
dw Script_wildon
|
|
dw Script_xycompare
|
|
dw Script_warpmod
|
|
dw Script_blackoutmod
|
|
dw Script_warp
|
|
dw Script_readmoney
|
|
dw Script_readcoins
|
|
dw Script_RAM2MEM
|
|
dw Script_pokenamemem
|
|
dw Script_itemtotext
|
|
dw Script_mapnametotext
|
|
dw Script_trainertotext
|
|
dw Script_stringtotext
|
|
dw Script_itemnotify
|
|
dw Script_pocketisfull
|
|
dw Script_loadfont
|
|
dw Script_refreshscreen
|
|
dw Script_loadmovesprites
|
|
dw Script_loadbytec1ce
|
|
dw Script_3writetext
|
|
dw Script_2writetext
|
|
dw Script_repeattext
|
|
dw Script_yesorno
|
|
dw Script_loadmenudata
|
|
dw Script_writebackup
|
|
dw Script_jumptextfaceplayer
|
|
dw Script_3jumptext
|
|
dw Script_jumptext
|
|
dw Script_closetext
|
|
dw Script_keeptextopen
|
|
dw Script_pokepic
|
|
dw Script_pokepicyesorno
|
|
dw Script_interpretmenu
|
|
dw Script_interpretmenu2
|
|
dw Script_loadpikachudata
|
|
dw Script_battlecheck
|
|
dw Script_loadtrainerdata
|
|
dw Script_loadpokedata
|
|
dw Script_loadtrainer
|
|
dw Script_startbattle
|
|
dw Script_returnafterbattle
|
|
dw Script_catchtutorial
|
|
dw Script_trainertext
|
|
dw Script_trainerstatus
|
|
dw Script_winlosstext
|
|
dw Script_scripttalkafter
|
|
dw Script_talkaftercancel
|
|
dw Script_talkaftercheck
|
|
dw Script_setlasttalked
|
|
dw Script_applymovement
|
|
dw Script_applymovement2
|
|
dw Script_faceplayer
|
|
dw Script_faceperson
|
|
dw Script_variablesprite
|
|
dw Script_disappear
|
|
dw Script_appear
|
|
dw Script_follow
|
|
dw Script_stopfollow
|
|
dw Script_moveperson
|
|
dw Script_writepersonxy
|
|
dw Script_loademote
|
|
dw Script_showemote
|
|
dw Script_spriteface
|
|
dw Script_follownotexact
|
|
dw Script_earthquake
|
|
dw Script_changemap
|
|
dw Script_changeblock
|
|
dw Script_reloadmap
|
|
dw Script_reloadmappart
|
|
dw Script_writecmdqueue
|
|
dw Script_delcmdqueue
|
|
dw Script_playmusic
|
|
dw Script_playrammusic
|
|
dw Script_musicfadeout
|
|
dw Script_playmapmusic
|
|
dw Script_reloadmapmusic
|
|
dw Script_cry
|
|
dw Script_playsound
|
|
dw Script_waitbutton
|
|
dw Script_warpsound
|
|
dw Script_specialsound
|
|
dw Script_passtoengine
|
|
dw Script_newloadmap
|
|
dw Script_pause
|
|
dw Script_deactivatefacing
|
|
dw Script_priorityjump
|
|
dw Script_warpcheck
|
|
dw Script_ptpriorityjump
|
|
dw Script_return
|
|
dw Script_end
|
|
dw Script_reloadandreturn
|
|
dw Script_resetfuncs
|
|
dw Script_pokemart
|
|
dw Script_elevator
|
|
dw Script_trade
|
|
dw Script_askforphonenumber
|
|
dw Script_phonecall
|
|
dw Script_hangup
|
|
dw Script_describedecoration
|
|
dw Script_fruittree
|
|
dw Script_specialphonecall
|
|
dw Script_checkphonecall
|
|
dw Script_verbosegiveitem
|
|
dw Script_verbosegiveitem2
|
|
dw Script_loadwilddata
|
|
dw Script_halloffame
|
|
dw Script_credits
|
|
dw Script_warpfacing
|
|
dw Script_storetext
|
|
dw Script_displaylocation
|
|
dw Script_unknown0xa6
|
|
dw Script_unknown0xa7
|
|
dw Script_unknown0xa8
|
|
dw Script_unknown0xa9
|
|
; 0x96e05
|
|
|
|
Unknown_0x96e05: ; 0x96e05
|
|
ld hl, $d434
|
|
set 2, [hl]
|
|
ret
|
|
; 0x96e0b
|
|
|
|
Unknown_0x96e0b: ; 0x96e0b
|
|
ld hl, $d434
|
|
bit 2, [hl]
|
|
ret
|
|
; 0x96e11
|
|
|
|
Unknown_0x96e11: ; 0x96e11
|
|
ld hl, $d434
|
|
res 2, [hl]
|
|
ret
|
|
; 0x96e17
|
|
|
|
Script_3callasm: ; 0x96e17
|
|
; script command 0xe
|
|
; parameters:
|
|
; asm (AsmPointerParam)
|
|
|
|
call GetScriptByte
|
|
ld b, a
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
ld a, b
|
|
rst $8
|
|
ret
|
|
; 0x96e26
|
|
|
|
Script_special: ; 0x96e26
|
|
; script command 0xf
|
|
; parameters:
|
|
; predefined_script (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld a, $3
|
|
ld hl, $401b
|
|
rst $8
|
|
ret
|
|
; 0x96e35
|
|
|
|
Script_2ptcallasm: ; 0x96e35
|
|
; script command 0x10
|
|
; parameters:
|
|
; asm (PointerToAsmPointerParam)
|
|
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
ld b, [hl]
|
|
inc hl
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld a, b
|
|
rst $8
|
|
ret
|
|
; 0x96e45
|
|
|
|
Script_jumptextfaceplayer: ; 0x96e45
|
|
; script command 0x51
|
|
; parameters:
|
|
; text_pointer (RawTextPointerLabelParam)
|
|
|
|
ld a, [ScriptBank]
|
|
ld [$d44e], a
|
|
call GetScriptByte
|
|
ld [$d44f], a
|
|
call GetScriptByte
|
|
ld [$d450], a
|
|
ld b, $25
|
|
ld hl, $6e79
|
|
jp ScriptJump
|
|
; 0x96e5f
|
|
|
|
Script_jumptext: ; 0x96e5f
|
|
; script command 0x53
|
|
; parameters:
|
|
; text_pointer (RawTextPointerLabelParam)
|
|
|
|
ld a, [ScriptBank]
|
|
ld [$d44e], a
|
|
call GetScriptByte
|
|
ld [$d44f], a
|
|
call GetScriptByte
|
|
ld [$d450], a
|
|
ld b, $25
|
|
ld hl, $6e7a
|
|
jp ScriptJump
|
|
; 0x96e79
|
|
|
|
INCBIN "baserom.gbc",$96e79,$96e81 - $96e79
|
|
|
|
Script_3jumptext: ; 0x96e81
|
|
; script command 0x52
|
|
; parameters:
|
|
; text_pointer (PointerLabelBeforeBank)
|
|
|
|
call GetScriptByte
|
|
ld [$d44e], a
|
|
call GetScriptByte
|
|
ld [$d44f], a
|
|
call GetScriptByte
|
|
ld [$d450], a
|
|
ld b, $25
|
|
ld hl, $6e7a
|
|
jp ScriptJump
|
|
; 0x96e9b
|
|
|
|
Script_2writetext: ; 0x96e9b
|
|
; script command 0x4c
|
|
; parameters:
|
|
; text_pointer (RawTextPointerLabelParam)
|
|
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
ld a, [ScriptBank]
|
|
ld b, a
|
|
call $269a
|
|
ret
|
|
; 0x96eab
|
|
|
|
Script_3writetext: ; 0x96eab
|
|
; script command 0x4b
|
|
; parameters:
|
|
; text_pointer (PointerLabelBeforeBank)
|
|
|
|
call GetScriptByte
|
|
ld b, a
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
call $269a
|
|
ret
|
|
; 0x96ebb
|
|
|
|
Script_repeattext: ; 0x96ebb
|
|
; script command 0x4d
|
|
; parameters:
|
|
; byte (SingleByteParam)
|
|
; byte (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
cp $ff
|
|
jr nz, .asm_96ed8 ; 0x96ec5 $11
|
|
ld a, l
|
|
cp $ff
|
|
jr nz, .asm_96ed8 ; 0x96eca $c
|
|
ld hl, $d44e
|
|
ld a, [hli]
|
|
ld b, a
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
call $269a
|
|
ret
|
|
.asm_96ed8
|
|
ret
|
|
; 0x96ed9
|
|
|
|
Script_closetext: ; 0x96ed9
|
|
; script command 0x54
|
|
|
|
jp $0a46
|
|
; 0x96edc
|
|
|
|
Script_keeptextopen: ; 0x96edc
|
|
; script command 0x55
|
|
|
|
ld a, [$ffd8]
|
|
push af
|
|
ld a, $1
|
|
ld [$ffd8], a
|
|
call $31f6
|
|
call $0aaf
|
|
pop af
|
|
ld [$ffd8], a
|
|
ret
|
|
; 0x96eed
|
|
|
|
Script_yesorno: ; 0x96eed
|
|
; script command 0x4e
|
|
|
|
call $1dcf
|
|
ld a, $0
|
|
jr c, .asm_96ef6 ; 0x96ef2 $2
|
|
ld a, $1
|
|
.asm_96ef6
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x96efa
|
|
|
|
Script_loadmenudata: ; 0x96efa
|
|
; script command 0x4f
|
|
; parameters:
|
|
; data (MenuDataPointerParam)
|
|
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
ld de, $1d35
|
|
ld a, [ScriptBank]
|
|
call $26b7
|
|
call $1ad2
|
|
ret
|
|
; 0x96f0f
|
|
|
|
Script_writebackup: ; 0x96f0f
|
|
; script command 0x50
|
|
|
|
call $1c17
|
|
call $1ad2
|
|
ret
|
|
; 0x96f16
|
|
|
|
Script_pokepic: ; 0x96f16
|
|
; script command 0x56
|
|
; parameters:
|
|
; pokemon (PokemonParam)
|
|
|
|
call GetScriptByte
|
|
and a
|
|
jr nz, .asm_96f1f ; 0x96f1a $3
|
|
ld a, [$c2dd]
|
|
.asm_96f1f
|
|
ld [$d108], a
|
|
ld a, $9
|
|
ld hl, $44e3
|
|
rst $8
|
|
ret
|
|
; 0x96f29
|
|
|
|
Script_pokepicyesorno: ; 0x96f29
|
|
; script command 0x57
|
|
|
|
ld a, $9
|
|
ld hl, $4528
|
|
rst $8
|
|
ret
|
|
; 0x96f30
|
|
|
|
Script_interpretmenu2: ; 0x96f30
|
|
; script command 0x59
|
|
|
|
ld a, [ScriptBank]
|
|
ld hl, $1d81
|
|
rst $8
|
|
ld a, [$cfa9]
|
|
jr nc, .asm_96f3d ; 0x96f3a $1
|
|
xor a
|
|
.asm_96f3d
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x96f41
|
|
|
|
Script_interpretmenu: ; 0x96f41
|
|
; script command 0x58
|
|
|
|
ld a, [ScriptBank]
|
|
ld hl, $202a
|
|
rst $8
|
|
ld a, [$cf88]
|
|
jr nc, .asm_96f4e ; 0x96f4b $1
|
|
xor a
|
|
.asm_96f4e
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x96f52
|
|
|
|
Script_storetext: ; 0x96f52
|
|
; script command 0xa4
|
|
; parameters:
|
|
; pointer (PointerLabelBeforeBank)
|
|
; memory (SingleByteParam)
|
|
|
|
call $106c
|
|
call GetScriptByte
|
|
ld c, a
|
|
ld a, $47
|
|
ld hl, $4000
|
|
rst $8
|
|
ret
|
|
; 0x96f60
|
|
|
|
Script_verbosegiveitem: ; 0x96f60
|
|
; script command 0x9e
|
|
; parameters:
|
|
; item (ItemLabelByte)
|
|
; quantity (DecimalParam)
|
|
|
|
call $77ca
|
|
call $7051
|
|
ld de, $d073
|
|
ld a, $1
|
|
call $76c8
|
|
ld b, $25
|
|
ld de, $6f77
|
|
jp $74cb
|
|
; 0x96f76
|
|
|
|
INCBIN "baserom.gbc",$96f76,$96f8e - $96f76
|
|
|
|
Script_verbosegiveitem2: ; 0x96f8e
|
|
; script command 0x9f
|
|
; parameters:
|
|
; item (ItemLabelByte)
|
|
; var (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
cp $ff
|
|
jr nz, .asm_96f98 ; 0x96f93 $3
|
|
ld a, [$c2dd]
|
|
.asm_96f98
|
|
ld [$d106], a
|
|
call GetScriptByte
|
|
call $769e
|
|
ld a, [de]
|
|
ld [$d10c], a
|
|
ld hl, $d892
|
|
call $2f66
|
|
ld a, $1
|
|
jr c, .asm_96fb0 ; 0x96fad $1
|
|
xor a
|
|
.asm_96fb0
|
|
ld [$c2dd], a
|
|
call $7051
|
|
ld de, $d073
|
|
ld a, $1
|
|
call $76c8
|
|
ld b, $25
|
|
ld de, $6f77
|
|
jp $74cb
|
|
; 0x96fc6
|
|
|
|
Script_itemnotify: ; 0x96fc6
|
|
; script command 0x45
|
|
|
|
call $6ffe
|
|
call $7051
|
|
ld b, $25
|
|
ld hl, $705b
|
|
call $269a
|
|
ret
|
|
; 0x96fd5
|
|
|
|
Script_pocketisfull: ; 0x96fd5
|
|
; script command 0x46
|
|
|
|
call $6ffe
|
|
call $7051
|
|
ld b, $25
|
|
ld hl, $7060
|
|
call $269a
|
|
ret
|
|
; 0x96fe4
|
|
|
|
Script_specialsound: ; 0x96fe4
|
|
; script command 0x88
|
|
|
|
ld a, $3
|
|
ld hl, $543d
|
|
rst $8
|
|
ld a, [$d142]
|
|
cp TM_HM
|
|
ld de, SFX_GET_TM
|
|
jr z, .play
|
|
ld de, SFX_ITEM
|
|
.play
|
|
call StartSFX
|
|
call WaitSFX
|
|
ret
|
|
; 0x96ffe
|
|
|
|
INCBIN "baserom.gbc",$96ffe,$97065 - $96ffe
|
|
|
|
Script_pokemart: ; 0x97065
|
|
; script command 0x94
|
|
; parameters:
|
|
; dialog_id (SingleByteParam)
|
|
; mart_id (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld c, a
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld a, [ScriptBank]
|
|
ld b, a
|
|
ld a, $5
|
|
ld hl, $5a45
|
|
rst $8
|
|
ret
|
|
; 0x9707c
|
|
|
|
Script_elevator: ; 0x9707c
|
|
; script command 0x95
|
|
; parameters:
|
|
; floor_list_pointer (PointerLabelParam)
|
|
|
|
xor a
|
|
ld [$c2dd], a
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld a, [ScriptBank]
|
|
ld b, a
|
|
ld a, $4
|
|
ld hl, $742d
|
|
rst $8
|
|
ret c
|
|
ld a, $1
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97099
|
|
|
|
Script_trade: ; 0x97099
|
|
; script command 0x96
|
|
; parameters:
|
|
; trade_id (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
ld a, $3f
|
|
ld hl, $4ba8
|
|
rst $8
|
|
ret
|
|
; 0x970a4
|
|
|
|
Script_phonecall: ; 0x970a4
|
|
; script command 0x98
|
|
; parameters:
|
|
; caller_name (RawTextPointerLabelParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld a, [ScriptBank]
|
|
ld b, a
|
|
ld a, $24
|
|
ld hl, $429a
|
|
rst $8
|
|
ret
|
|
; 0x970b7
|
|
|
|
Script_hangup: ; 0x970b7
|
|
; script command 0x99
|
|
|
|
ld a, $24
|
|
ld hl, $42eb
|
|
rst $8
|
|
ret
|
|
; 0x970be
|
|
|
|
Script_askforphonenumber: ; 0x970be
|
|
; script command 0x97
|
|
; parameters:
|
|
; number (SingleByteParam)
|
|
|
|
call $1dcf
|
|
jr c, .asm_970d6 ; 0x970c1 $13
|
|
call GetScriptByte
|
|
ld c, a
|
|
ld a, $24
|
|
ld hl, $4000
|
|
rst $8
|
|
jr c, .asm_970d2 ; 0x970cd $3
|
|
xor a
|
|
jr .asm_970db ; 0x970d0 $9
|
|
.asm_970d2
|
|
ld a, $1
|
|
jr .asm_970db ; 0x970d4 $5
|
|
.asm_970d6
|
|
call GetScriptByte
|
|
ld a, $2
|
|
.asm_970db
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x970df
|
|
|
|
Script_describedecoration: ; 0x970df
|
|
; script command 0x9a
|
|
; parameters:
|
|
; byte (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld b, a
|
|
ld a, $9
|
|
ld hl, $6f59
|
|
rst $8
|
|
ld h, d
|
|
ld l, e
|
|
jp ScriptJump
|
|
; 0x970ee
|
|
|
|
Script_fruittree: ; 0x970ee
|
|
; script command 0x9b
|
|
; parameters:
|
|
; tree_id (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld [CurFruitTree], a
|
|
ld b, BANK(FruitTreeScript)
|
|
ld hl, FruitTreeScript
|
|
jp ScriptJump
|
|
; 0x970fc
|
|
|
|
Script_loadwilddata: ; 0x970fc
|
|
; script command 0xa0
|
|
; parameters:
|
|
; map_group (MapGroupParam)
|
|
; map_id (MapIdParam)
|
|
|
|
call GetScriptByte
|
|
ld c, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
call GetScriptByte
|
|
ld e, a
|
|
ld a, $3
|
|
ld hl, $4403
|
|
rst $8
|
|
ret
|
|
; 0x9710f
|
|
|
|
Script_trainertext: ; 0x9710f
|
|
; script command 0x62
|
|
; parameters:
|
|
; which_text (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld c, a
|
|
ld b, $0
|
|
ld hl, $d045
|
|
add hl, bc
|
|
add hl, bc
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld a, [$d03e]
|
|
ld b, a
|
|
call $269a
|
|
ret
|
|
; 0x97125
|
|
|
|
Script_scripttalkafter: ; 0x97125
|
|
; script command 0x65
|
|
|
|
ld hl, $d04b
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld a, [$d03e]
|
|
ld b, a
|
|
jp ScriptJump
|
|
; 0x97132
|
|
|
|
Script_trainerstatus: ; 0x97132
|
|
; script command 0x63
|
|
; parameters:
|
|
; action (SingleByteParam)
|
|
|
|
xor a
|
|
ld [$c2dd], a
|
|
ld hl, $d041
|
|
ld e, [hl]
|
|
inc hl
|
|
ld d, [hl]
|
|
call GetScriptByte
|
|
ld b, a
|
|
call BitTable1Func
|
|
ld a, c
|
|
and a
|
|
ret z
|
|
ld a, $1
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x9714c
|
|
|
|
Script_winlosstext: ; 0x9714c
|
|
; script command 0x64
|
|
; parameters:
|
|
; win_text_pointer (TextPointerLabelParam)
|
|
; loss_text_pointer (TextPointerLabelParam)
|
|
|
|
ld hl, $d047
|
|
call GetScriptByte
|
|
ld [hli], a
|
|
call GetScriptByte
|
|
ld [hli], a
|
|
ld hl, $d049
|
|
call GetScriptByte
|
|
ld [hli], a
|
|
call GetScriptByte
|
|
ld [hli], a
|
|
ret
|
|
; 0x97163
|
|
|
|
Script_talkaftercancel: ; 0x97163
|
|
; script command 0x66
|
|
|
|
ld a, [$d04d]
|
|
and a
|
|
ret z
|
|
jp $7b74
|
|
; 0x9716b
|
|
|
|
Script_talkaftercheck: ; 0x9716b
|
|
; script command 0x67
|
|
|
|
ld a, $1
|
|
ld [$c2dd], a
|
|
ld a, [$d04d]
|
|
and a
|
|
ret nz
|
|
xor a
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x9717a
|
|
|
|
Script_playrammusic: ; 0x9717a
|
|
; script command 0x80
|
|
|
|
ld a, [$d22f]
|
|
ld e, a
|
|
ld a, $3a
|
|
ld hl, $500a
|
|
rst $8
|
|
ret
|
|
; 0x97185
|
|
|
|
Script_playmapmusic: ; 0x97185
|
|
; script command 0x82
|
|
|
|
call $3cdf
|
|
ret
|
|
; 0x97189
|
|
|
|
Script_playmusic: ; 0x97189
|
|
; script command 0x7f
|
|
; parameters:
|
|
; music_pointer (MultiByteParam)
|
|
|
|
ld de, $0000
|
|
call StartMusic
|
|
xor a
|
|
ld [$c2a7], a
|
|
call MaxVolume
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
call StartMusic
|
|
ret
|
|
; 0x971a2
|
|
|
|
Script_musicfadeout: ; 0x971a2
|
|
; script command 0x81
|
|
; parameters:
|
|
; music (MultiByteParam)
|
|
; fadetime (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld [$c2a9], a
|
|
call GetScriptByte
|
|
ld [$c2aa], a
|
|
call GetScriptByte
|
|
and $7f
|
|
ld [$c2a7], a
|
|
ret
|
|
; 0x971b7
|
|
|
|
Script_playsound: ; 0x971b7
|
|
; script command 0x85
|
|
; parameters:
|
|
; sound_pointer (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
call StartSFX
|
|
ret
|
|
; 0x971c3
|
|
|
|
Script_waitbutton: ; 0x971c3
|
|
; script command 0x86
|
|
|
|
call WaitSFX
|
|
ret
|
|
; 0x971c7
|
|
|
|
Script_warpsound: ; 0x971c7
|
|
; script command 0x87
|
|
|
|
ld a, $5
|
|
ld hl, $4a07
|
|
rst $8
|
|
call StartSFX
|
|
ret
|
|
; 0x971d1
|
|
|
|
Script_cry: ; 0x971d1
|
|
; script command 0x84
|
|
; parameters:
|
|
; cry_id (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
push af
|
|
call GetScriptByte
|
|
pop af
|
|
and a
|
|
jr nz, .asm_971df ; 0x971da $3
|
|
ld a, [$c2dd]
|
|
.asm_971df
|
|
call $37ce
|
|
ret
|
|
; 0x971e3
|
|
|
|
Unknown_0x971e3: ; 0x971e3
|
|
and a
|
|
ret z
|
|
cp $fe
|
|
ret z
|
|
dec a
|
|
ret
|
|
; 0x971ea
|
|
|
|
Script_setlasttalked: ; 0x971ea
|
|
; script command 0x68
|
|
; parameters:
|
|
; person (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
ld [$ffe0], a
|
|
ret
|
|
; 0x971f3
|
|
|
|
Script_applymovement: ; 0x971f3
|
|
; script command 0x69
|
|
; parameters:
|
|
; person (SingleByteParam)
|
|
; data (MovementPointerLabelParam)
|
|
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
ld c, a
|
|
push bc
|
|
ld a, c
|
|
ld a, $1
|
|
ld hl, $585c
|
|
rst $8
|
|
pop bc
|
|
push bc
|
|
call $7221
|
|
pop bc
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
ld a, [ScriptBank]
|
|
ld b, a
|
|
call $26c7
|
|
ret c
|
|
ld a, $2
|
|
ld [$d437], a
|
|
call Unknown_0x96e11
|
|
ret
|
|
; 0x97221
|
|
|
|
Unknown_0x97221: ; 0x97221
|
|
ld a, $1
|
|
ld hl, $5897
|
|
rst $8
|
|
ret
|
|
; 0x97228
|
|
|
|
Script_applymovement2: ; 0x97228
|
|
; script command 0x6a
|
|
; parameters:
|
|
; data (MovementPointerLabelParam)
|
|
|
|
ld a, [$ffe0]
|
|
ld c, a
|
|
jp $71fa
|
|
; 0x9722e
|
|
|
|
Script_faceplayer: ; 0x9722e
|
|
; script command 0x6b
|
|
|
|
ld a, [$ffe0]
|
|
and a
|
|
ret z
|
|
ld d, $0
|
|
ld a, [$ffe0]
|
|
ld e, a
|
|
ld a, $2
|
|
ld hl, $4417
|
|
rst $8
|
|
ld a, d
|
|
add a
|
|
add a
|
|
ld e, a
|
|
ld a, [$ffe0]
|
|
ld d, a
|
|
call $728b
|
|
ret
|
|
; 0x97248
|
|
|
|
Script_faceperson: ; 0x97248
|
|
; script command 0x6c
|
|
; parameters:
|
|
; person1 (SingleByteParam)
|
|
; person2 (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
cp $fe
|
|
jr c, .asm_97254 ; 0x97250 $2
|
|
ld a, [$ffe0]
|
|
.asm_97254
|
|
ld e, a
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
cp $fe
|
|
jr nz, .asm_97261 ; 0x9725d $2
|
|
ld a, [$ffe0]
|
|
.asm_97261
|
|
ld d, a
|
|
push de
|
|
ld a, $2
|
|
ld hl, $4417
|
|
rst $8
|
|
pop bc
|
|
ret c
|
|
ld a, d
|
|
add a
|
|
add a
|
|
ld e, a
|
|
ld d, c
|
|
call $728b
|
|
ret
|
|
; 0x97274
|
|
|
|
Script_spriteface: ; 0x97274
|
|
; script command 0x76
|
|
; parameters:
|
|
; person (SingleByteParam)
|
|
; facing (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
cp $fe
|
|
jr nz, .asm_97280 ; 0x9727c $2
|
|
ld a, [$ffe0]
|
|
.asm_97280
|
|
ld d, a
|
|
call GetScriptByte
|
|
add a
|
|
add a
|
|
ld e, a
|
|
call $728b
|
|
ret
|
|
; 0x9728b
|
|
|
|
Unknown_0x9728b: ; 0x9728b
|
|
ld a, d
|
|
push de
|
|
call $18de
|
|
jr c, .asm_972b9 ; 0x97290 $27
|
|
ld hl, $0000
|
|
add hl, bc
|
|
ld a, [hl]
|
|
push bc
|
|
call $1836
|
|
pop bc
|
|
jr c, .asm_972b9 ; 0x9729c $1b
|
|
ld hl, $0004
|
|
add hl, bc
|
|
bit 2, [hl]
|
|
jr nz, .asm_972b9 ; 0x972a4 $13
|
|
pop de
|
|
ld a, e
|
|
call $1af8
|
|
ld hl, $d0ed
|
|
bit 6, [hl]
|
|
jr nz, .asm_972b5 ; 0x972b0 $3
|
|
call $72bc
|
|
.asm_972b5
|
|
call $1ad2
|
|
ret
|
|
.asm_972b9
|
|
pop de
|
|
scf
|
|
ret
|
|
; 0x972bc
|
|
|
|
Unknown_0x972bc: ; 0x972bc
|
|
call $217a
|
|
ld hl, $c4a0
|
|
ld bc, $0168
|
|
.asm_972c5
|
|
res 7, [hl]
|
|
inc hl
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .asm_972c5 ; 0x972cb $f8
|
|
ret
|
|
; 0x972ce
|
|
|
|
Script_variablesprite: ; 0x972ce
|
|
; script command 0x6d
|
|
; parameters:
|
|
; byte (SingleByteParam)
|
|
; sprite (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
ld d, $0
|
|
ld hl, $d82e
|
|
add hl, de
|
|
call GetScriptByte
|
|
ld [hl], a
|
|
ret
|
|
; 0x972dd
|
|
|
|
Script_appear: ; 0x972dd
|
|
; script command 0x6f
|
|
; parameters:
|
|
; person (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
call $1956
|
|
ld a, [$ffaf]
|
|
ld b, $0
|
|
call $730b
|
|
ret
|
|
; 0x972ee
|
|
|
|
Script_disappear: ; 0x972ee
|
|
; script command 0x6e
|
|
; parameters:
|
|
; person (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
cp $fe
|
|
jr nz, .asm_972fa ; 0x972f6 $2
|
|
ld a, [$ffe0]
|
|
.asm_972fa
|
|
call $199f
|
|
ld a, [$ffaf]
|
|
ld b, $1
|
|
call $730b
|
|
ld a, $1
|
|
ld hl, $5920
|
|
rst $8
|
|
ret
|
|
; 0x9730b
|
|
|
|
Unknown_0x9730b: ; 0x9730b
|
|
push bc
|
|
call $18d2
|
|
ld hl, $000c
|
|
add hl, bc
|
|
pop bc
|
|
ld e, [hl]
|
|
inc hl
|
|
ld d, [hl]
|
|
ld a, $ff
|
|
cp e
|
|
jr nz, .asm_97321 ; 0x9731a $5
|
|
cp d
|
|
jr nz, .asm_97321 ; 0x9731d $2
|
|
xor a
|
|
ret
|
|
.asm_97321
|
|
call BitTable1Func
|
|
ret
|
|
; 0x97325
|
|
|
|
Script_follow: ; 0x97325
|
|
; script command 0x70
|
|
; parameters:
|
|
; person2 (SingleByteParam)
|
|
; person1 (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
ld b, a
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
ld c, a
|
|
ld a, $1
|
|
ld hl, $5803
|
|
rst $8
|
|
ret
|
|
; 0x9733a
|
|
|
|
Script_stopfollow: ; 0x9733a
|
|
; script command 0x71
|
|
|
|
ld a, $1
|
|
ld hl, $581f
|
|
rst $8
|
|
ret
|
|
; 0x97341
|
|
|
|
Script_moveperson: ; 0x97341
|
|
; script command 0x72
|
|
; parameters:
|
|
; person (SingleByteParam)
|
|
; x (SingleByteParam)
|
|
; y (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
ld b, a
|
|
call GetScriptByte
|
|
add $4
|
|
ld d, a
|
|
call GetScriptByte
|
|
add $4
|
|
ld e, a
|
|
ld a, $2
|
|
ld hl, $407e
|
|
rst $8
|
|
ret
|
|
; 0x9735b
|
|
|
|
Script_writepersonxy: ; 0x9735b
|
|
; script command 0x73
|
|
; parameters:
|
|
; person (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
cp $fe
|
|
jr nz, .asm_97367 ; 0x97363 $2
|
|
ld a, [$ffe0]
|
|
.asm_97367
|
|
ld b, a
|
|
ld a, $2
|
|
ld hl, $40a1
|
|
rst $8
|
|
ret
|
|
; 0x9736f
|
|
|
|
Script_follownotexact: ; 0x9736f
|
|
; script command 0x77
|
|
; parameters:
|
|
; person2 (SingleByteParam)
|
|
; person1 (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
ld b, a
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
ld c, a
|
|
ld a, $2
|
|
ld hl, $439e
|
|
rst $8
|
|
ret
|
|
; 0x97384
|
|
|
|
Script_loademote: ; 0x97384
|
|
; script command 0x74
|
|
; parameters:
|
|
; bubble (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
cp $ff
|
|
jr nz, .asm_9738e ; 0x97389 $3
|
|
ld a, [$c2dd]
|
|
.asm_9738e
|
|
ld c, a
|
|
ld a, $5
|
|
ld hl, $442f
|
|
rst $8
|
|
ret
|
|
; 0x97396
|
|
|
|
Script_showemote: ; 0x97396
|
|
; script command 0x75
|
|
; parameters:
|
|
; bubble (SingleByteParam)
|
|
; person (SingleByteParam)
|
|
; time (DecimalParam)
|
|
|
|
call GetScriptByte
|
|
ld [$c2dd], a
|
|
call GetScriptByte
|
|
call Unknown_0x971e3
|
|
cp $fe
|
|
jr z, .asm_973a8 ; 0x973a4 $2
|
|
ld [$ffe0], a
|
|
.asm_973a8
|
|
call GetScriptByte
|
|
ld [$d44d], a
|
|
ld b, $25
|
|
ld de, $73b6
|
|
jp $74cb
|
|
; 0x973b6
|
|
|
|
INCBIN "baserom.gbc",$973b6,$973c7 - $973b6
|
|
|
|
Script_earthquake: ; 0x973c7
|
|
; script command 0x78
|
|
; parameters:
|
|
; param (DecimalParam)
|
|
|
|
ld hl, $73eb
|
|
ld de, $d002
|
|
ld bc, $0005
|
|
call CopyBytes
|
|
call GetScriptByte
|
|
ld [$d003], a
|
|
and $3f
|
|
ld [$d005], a
|
|
ld b, $25
|
|
ld de, $73e6
|
|
jp $74cb
|
|
; 0x973e6
|
|
|
|
INCBIN "baserom.gbc",$973e6,$973f0 - $973e6
|
|
|
|
Script_loadpikachudata: ; 0x973f0
|
|
; script command 0x5a
|
|
|
|
ld a, $19
|
|
ld [$d22e], a
|
|
ld a, $5
|
|
ld [$d143], a
|
|
ret
|
|
; 0x973fb
|
|
|
|
Script_battlecheck: ; 0x973fb
|
|
; script command 0x5b
|
|
|
|
xor a
|
|
ld [$d459], a
|
|
ret
|
|
; 0x97400
|
|
|
|
Script_loadtrainerdata: ; 0x97400
|
|
; script command 0x5c
|
|
|
|
ld a, $81
|
|
ld [$d459], a
|
|
ld a, [$d043]
|
|
ld [$d22f], a
|
|
ld a, [$d044]
|
|
ld [$d231], a
|
|
ret
|
|
; 0x97412
|
|
|
|
Script_loadpokedata: ; 0x97412
|
|
; script command 0x5d
|
|
; parameters:
|
|
; pokemon (PokemonParam)
|
|
; level (DecimalParam)
|
|
|
|
ld a, $80
|
|
ld [$d459], a
|
|
call GetScriptByte
|
|
ld [$d22e], a
|
|
call GetScriptByte
|
|
ld [$d143], a
|
|
ret
|
|
; 0x97424
|
|
|
|
Script_loadtrainer: ; 0x97424
|
|
; script command 0x5e
|
|
; parameters:
|
|
; trainer_group (TrainerGroupParam)
|
|
; trainer_id (TrainerIdParam)
|
|
|
|
ld a, $81
|
|
ld [$d459], a
|
|
call GetScriptByte
|
|
ld [$d22f], a
|
|
call GetScriptByte
|
|
ld [$d231], a
|
|
ret
|
|
; 0x97436
|
|
|
|
Script_startbattle: ; 0x97436
|
|
; script command 0x5f
|
|
|
|
call $2879
|
|
ld a, $16
|
|
call $2d83
|
|
ld a, [$d0ee]
|
|
and $3f
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97447
|
|
|
|
Script_catchtutorial: ; 0x97447
|
|
; script command 0x61
|
|
; parameters:
|
|
; byte (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld [$d230], a
|
|
call $2879
|
|
ld a, $13
|
|
ld hl, $6554
|
|
rst $8
|
|
jp $7491
|
|
; 0x97459
|
|
|
|
Script_returnafterbattle: ; 0x97459
|
|
; script command 0x60
|
|
|
|
ld hl, $d459
|
|
ld d, [hl]
|
|
ld [hl], $0
|
|
ld a, [$d0ee]
|
|
and $3f
|
|
cp $1
|
|
jr nz, .asm_97470 ; 0x97466 $8
|
|
ld b, $4
|
|
ld hl, $64c1
|
|
jp ScriptJump
|
|
.asm_97470
|
|
bit 0, d
|
|
jr z, .asm_9747c ; 0x97472 $8
|
|
ld a, $3f
|
|
ld hl, $4fec
|
|
rst $8
|
|
jr .asm_9748e ; 0x9747a $12
|
|
.asm_9747c
|
|
ld a, [$d0ee]
|
|
bit 7, a
|
|
jr z, .asm_9748e ; 0x97481 $b
|
|
ld b, $24
|
|
ld de, $4255
|
|
ld a, $25
|
|
ld hl, $7c4f
|
|
rst $8
|
|
.asm_9748e
|
|
jp $7491
|
|
; 0x97491
|
|
|
|
Script_reloadmap: ; 0x97491
|
|
; script command 0x7b
|
|
|
|
xor a
|
|
ld [$d459], a
|
|
ld a, $f3
|
|
ld [$ff9f], a
|
|
ld a, $1
|
|
call $261b
|
|
call Unknown_0x96e11
|
|
ret
|
|
; 0x974a2
|
|
|
|
Script_2call: ; 0x974a2
|
|
; script command 0x0
|
|
; parameters:
|
|
; pointer (ScriptPointerLabelParam)
|
|
|
|
ld a, [ScriptBank]
|
|
ld b, a
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
jr ScriptCall
|
|
; 0x974b0
|
|
|
|
Script_3call: ; 0x974b0
|
|
; script command 0x1
|
|
; parameters:
|
|
; pointer (ScriptPointerLabelBeforeBank)
|
|
|
|
call GetScriptByte
|
|
ld b, a
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
jr ScriptCall
|
|
; 0x974be
|
|
|
|
Script_2ptcall: ; 0x974be
|
|
; script command 0x2
|
|
; parameters:
|
|
; pointer (PointerLabelToScriptPointer)
|
|
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
ld b, [hl]
|
|
inc hl
|
|
ld e, [hl]
|
|
inc hl
|
|
ld d, [hl]
|
|
; fallthrough
|
|
|
|
ScriptCall: ; 0x974cb
|
|
push de
|
|
ld hl, $d43c
|
|
ld e, [hl]
|
|
inc [hl]
|
|
ld d, $0
|
|
ld hl, $d43d
|
|
add hl, de
|
|
add hl, de
|
|
add hl, de
|
|
pop de
|
|
ld a, [ScriptBank]
|
|
ld [hli], a
|
|
ld a, [ScriptPos]
|
|
ld [hli], a
|
|
ld a, [ScriptPos + 1]
|
|
ld [hl], a
|
|
ld a, b
|
|
ld [ScriptBank], a
|
|
ld a, e
|
|
ld [ScriptPos], a
|
|
ld a, d
|
|
ld [ScriptPos + 1], a
|
|
ret
|
|
; 0x974f3
|
|
|
|
Unknown_0x974f3: ; 0x974f3
|
|
ld a, [ScriptBank]
|
|
or $80
|
|
ld [ScriptBank], a
|
|
jp $74cb
|
|
; 0x974fe
|
|
|
|
Script_2jump: ; 0x974fe
|
|
; script command 0x3
|
|
; parameters:
|
|
; pointer (ScriptPointerLabelParam)
|
|
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
ld a, [ScriptBank]
|
|
ld b, a
|
|
jp ScriptJump
|
|
; 0x9750d
|
|
|
|
Script_3jump: ; 0x9750d
|
|
; script command 0x4
|
|
; parameters:
|
|
; pointer (ScriptPointerLabelBeforeBank)
|
|
|
|
call GetScriptByte
|
|
ld b, a
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
jp ScriptJump
|
|
; 0x9751c
|
|
|
|
Script_2ptjump: ; 0x9751c
|
|
; script command 0x5
|
|
; parameters:
|
|
; pointer (PointerLabelToScriptPointer)
|
|
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
ld b, [hl]
|
|
inc hl
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp ScriptJump
|
|
; 0x9752c
|
|
|
|
Script_iffalse: ; 0x9752c
|
|
; script command 0x8
|
|
; parameters:
|
|
; pointer (ScriptPointerLabelParam)
|
|
|
|
ld a, [$c2dd]
|
|
and a
|
|
jp nz, $7596
|
|
jp Script_2jump
|
|
; 0x97536
|
|
|
|
Script_iftrue: ; 0x97536
|
|
; script command 0x9
|
|
; parameters:
|
|
; pointer (ScriptPointerLabelParam)
|
|
|
|
ld a, [$c2dd]
|
|
and a
|
|
jp nz, Script_2jump
|
|
jp $7596
|
|
; 0x97540
|
|
|
|
Script_if_equal: ; 0x97540
|
|
; script command 0x6
|
|
; parameters:
|
|
; byte (SingleByteParam)
|
|
; pointer (ScriptPointerLabelParam)
|
|
|
|
call GetScriptByte
|
|
ld hl, $c2dd
|
|
cp [hl]
|
|
jr z, Script_2jump ; 0x97547 $b5
|
|
jr Unknown_97596 ; 0x97549 $4b
|
|
; 0x9754b
|
|
|
|
Script_if_not_equal: ; 0x9754b
|
|
; script command 0x7
|
|
; parameters:
|
|
; byte (SingleByteParam)
|
|
; pointer (ScriptPointerLabelParam)
|
|
|
|
call GetScriptByte
|
|
ld hl, $c2dd
|
|
cp [hl]
|
|
jr nz, Script_2jump ; 0x97552 $aa
|
|
jr Unknown_97596 ; 0x97554 $40
|
|
; 0x97556
|
|
|
|
Script_if_less_than: ; 0x97556
|
|
; script command 0xa
|
|
; parameters:
|
|
; byte (SingleByteParam)
|
|
; pointer (ScriptPointerLabelParam)
|
|
|
|
ld a, [$c2dd]
|
|
ld b, a
|
|
call GetScriptByte
|
|
cp b
|
|
jr c, Script_2jump ; 0x9755e $9e
|
|
jr Unknown_97596 ; 0x97560 $34
|
|
; 0x97562
|
|
|
|
Script_if_greater_than: ; 0x97562
|
|
; script command 0xb
|
|
; parameters:
|
|
; byte (SingleByteParam)
|
|
; pointer (ScriptPointerLabelParam)
|
|
|
|
call GetScriptByte
|
|
ld b, a
|
|
ld a, [$c2dd]
|
|
cp b
|
|
jr c, Script_2jump ; 0x9756a $92
|
|
jr Unknown_97596 ; 0x9756c $28
|
|
; 0x9756e
|
|
|
|
Script_jumpstd: ; 0x9756e
|
|
; script command 0xc
|
|
; parameters:
|
|
; predefined_script (MultiByteParam)
|
|
|
|
call $757b
|
|
jr ScriptJump ; 0x97571 $2a
|
|
; 0x97573
|
|
|
|
Script_callstd: ; 0x97573
|
|
; script command 0xd
|
|
; parameters:
|
|
; predefined_script (MultiByteParam)
|
|
|
|
call $757b
|
|
ld d, h
|
|
ld e, l
|
|
jp $74cb
|
|
; 0x9757b
|
|
|
|
Unknown_0x9757b: ; 0x9757b
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld hl, $4000
|
|
add hl, de
|
|
add hl, de
|
|
add hl, de
|
|
ld a, $2f
|
|
call GetFarByte
|
|
ld b, a
|
|
inc hl
|
|
ld a, $2f
|
|
call GetFarHalfword
|
|
ret
|
|
; 0x97596
|
|
|
|
Unknown_97596: ; 0x97596
|
|
call GetScriptByte
|
|
call GetScriptByte
|
|
ret
|
|
; 0x9759d
|
|
|
|
ScriptJump: ; 0x9759d
|
|
ld a, b
|
|
ld [ScriptBank], a
|
|
ld a, l
|
|
ld [ScriptPos], a
|
|
ld a, h
|
|
ld [ScriptPos + 1], a
|
|
ret
|
|
; 0x975aa
|
|
|
|
Script_priorityjump: ; 0x975aa
|
|
; script command 0x8d
|
|
; parameters:
|
|
; pointer (ScriptPointerLabelParam)
|
|
|
|
ld a, [ScriptBank]
|
|
ld [$d44e], a
|
|
call GetScriptByte
|
|
ld [$d44f], a
|
|
call GetScriptByte
|
|
ld [$d450], a
|
|
ld hl, $d434
|
|
set 3, [hl]
|
|
ret
|
|
; 0x975c2
|
|
|
|
Script_checktriggers: ; 0x975c2
|
|
; script command 0x13
|
|
|
|
call $211b
|
|
jr z, .asm_975cb ; 0x975c5 $4
|
|
ld [$c2dd], a
|
|
ret
|
|
.asm_975cb
|
|
ld a, $ff
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x975d1
|
|
|
|
Script_checkmaptriggers: ; 0x975d1
|
|
; script command 0x11
|
|
; parameters:
|
|
; map_group (SingleByteParam)
|
|
; map_id (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld b, a
|
|
call GetScriptByte
|
|
ld c, a
|
|
call $2147
|
|
ld a, d
|
|
or e
|
|
jr z, .asm_975e5 ; 0x975de $5
|
|
ld a, [de]
|
|
ld [$c2dd], a
|
|
ret
|
|
.asm_975e5
|
|
ld a, $ff
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x975eb
|
|
|
|
Script_dotrigger: ; 0x975eb
|
|
; script command 0x14
|
|
; parameters:
|
|
; trigger_id (SingleByteParam)
|
|
|
|
ld a, [$dcb5]
|
|
ld b, a
|
|
ld a, [$dcb6]
|
|
ld c, a
|
|
jr Unknown_975fd ; 0x975f3 $8
|
|
; 0x975f5
|
|
|
|
Script_domaptrigger: ; 0x975f5
|
|
; script command 0x12
|
|
; parameters:
|
|
; map_group (MapGroupParam)
|
|
; map_id (MapIdParam)
|
|
; trigger_id (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld b, a
|
|
call GetScriptByte
|
|
ld c, a
|
|
; fallthrough
|
|
|
|
Unknown_975fd: ; 0x975fd
|
|
call $2147
|
|
ld a, d
|
|
or e
|
|
jr z, .asm_97608 ; 0x97602 $4
|
|
call GetScriptByte
|
|
ld [de], a
|
|
.asm_97608
|
|
ret
|
|
; 0x97609
|
|
|
|
Script_copybytetovar: ; 0x97609
|
|
; script command 0x19
|
|
; parameters:
|
|
; address (RAMAddressParam)
|
|
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
ld a, [hl]
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97616
|
|
|
|
Script_copyvartobyte: ; 0x97616
|
|
; script command 0x1a
|
|
; parameters:
|
|
; address (RAMAddressParam)
|
|
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
ld a, [$c2dd]
|
|
ld [hl], a
|
|
ret
|
|
; 0x97623
|
|
|
|
Script_loadvar: ; 0x97623
|
|
; script command 0x1b
|
|
; parameters:
|
|
; address (RAMAddressParam)
|
|
; value (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
call GetScriptByte
|
|
ld [hl], a
|
|
ret
|
|
; 0x97630
|
|
|
|
Script_writebyte: ; 0x97630
|
|
; script command 0x15
|
|
; parameters:
|
|
; value (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97637
|
|
|
|
Script_addvar: ; 0x97637
|
|
; script command 0x16
|
|
; parameters:
|
|
; value (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld hl, $c2dd
|
|
add [hl]
|
|
ld [hl], a
|
|
ret
|
|
; 0x97640
|
|
|
|
Script_random: ; 0x97640
|
|
; script command 0x17
|
|
; parameters:
|
|
; input (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld [$c2dd], a
|
|
and a
|
|
ret z
|
|
ld c, a
|
|
call $7673
|
|
and a
|
|
jr z, .asm_9765f ; 0x9764d $10
|
|
ld b, a
|
|
xor a
|
|
sub b
|
|
ld b, a
|
|
.asm_97653
|
|
push bc
|
|
call $2f8c
|
|
pop bc
|
|
ld a, [$ffe1]
|
|
cp b
|
|
jr nc, .asm_97653 ; 0x9765b $f6
|
|
jr .asm_97666 ; 0x9765d $7
|
|
.asm_9765f
|
|
push bc
|
|
call $2f8c
|
|
pop bc
|
|
ld a, [$ffe1]
|
|
.asm_97666
|
|
push af
|
|
ld a, [$c2dd]
|
|
ld c, a
|
|
pop af
|
|
call $3110
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97673
|
|
|
|
Unknown_0x97673: ; 0x97673
|
|
xor a
|
|
ld b, a
|
|
sub c
|
|
.asm_97676
|
|
inc b
|
|
sub c
|
|
jr nc, .asm_97676 ; 0x97678 $fc
|
|
dec b
|
|
add c
|
|
ret
|
|
; 0x9767d
|
|
|
|
Script_checkcode: ; 0x9767d
|
|
; script command 0x1c
|
|
; parameters:
|
|
; variable_id (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
call $769e
|
|
ld a, [de]
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97688
|
|
|
|
Script_writevarcode: ; 0x97688
|
|
; script command 0x1d
|
|
; parameters:
|
|
; variable_id (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
call $769e
|
|
ld a, [$c2dd]
|
|
ld [de], a
|
|
ret
|
|
; 0x97693
|
|
|
|
Script_writecode: ; 0x97693
|
|
; script command 0x1e
|
|
; parameters:
|
|
; variable_id (SingleByteParam)
|
|
; value (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
call $769e
|
|
call GetScriptByte
|
|
ld [de], a
|
|
ret
|
|
; 0x9769e
|
|
|
|
Unknown_0x9769e: ; 0x9769e
|
|
ld c, a
|
|
ld a, $20
|
|
ld hl, $4648
|
|
rst $8
|
|
ret
|
|
; 0x976a6
|
|
|
|
Script_checkver: ; 0x976a6
|
|
; script command 0x18
|
|
|
|
ld a, [$76ad]
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x976ad
|
|
|
|
INCBIN "baserom.gbc",$976ad,$976ae - $976ad
|
|
|
|
Script_pokenamemem: ; 0x976ae
|
|
; script command 0x40
|
|
; parameters:
|
|
; pokemon (PokemonParam)
|
|
; memory (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
and a
|
|
jr nz, .asm_976b7 ; 0x976b2 $3
|
|
ld a, [$c2dd]
|
|
.asm_976b7
|
|
ld [$d265], a
|
|
call $343b
|
|
ld de, $d073
|
|
|
|
Unknown_976c0: ; 0x976c0
|
|
call GetScriptByte
|
|
cp $3
|
|
jr c, .asm_976c8 ; 0x976c5 $1
|
|
xor a
|
|
.asm_976c8
|
|
ld hl, $d099
|
|
ld bc, $0013
|
|
call AddNTimes
|
|
call CopyName2
|
|
ret
|
|
; 0x976d5
|
|
|
|
Script_itemtotext: ; 0x976d5
|
|
; script command 0x41
|
|
; parameters:
|
|
; item (ItemLabelByte)
|
|
; memory (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
and a
|
|
jr nz, .asm_976de ; 0x976d9 $3
|
|
ld a, [$c2dd]
|
|
.asm_976de
|
|
ld [$d265], a
|
|
call GetItemName
|
|
ld de, $d073
|
|
jr Unknown_976c0 ; 0x976e7 $d7
|
|
; 0x976e9
|
|
|
|
Script_mapnametotext: ; 0x976e9
|
|
; script command 0x42
|
|
; parameters:
|
|
; memory (SingleByteParam)
|
|
|
|
ld a, [$dcb5]
|
|
ld b, a
|
|
ld a, [$dcb6]
|
|
ld c, a
|
|
call GetWorldMapLocation
|
|
|
|
Unknown_976f4: ; 0x976f4
|
|
ld e, a
|
|
ld a, $72
|
|
ld hl, $68a5
|
|
rst $8
|
|
ld de, $d073
|
|
jp $76c0
|
|
; 0x97701
|
|
|
|
Script_displaylocation: ; 0x97701
|
|
; script command 0xa5
|
|
; parameters:
|
|
; id (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
jr Unknown_976f4 ; 0x97704 $ee
|
|
; 0x97706
|
|
|
|
Script_trainertotext: ; 0x97706
|
|
; script command 0x43
|
|
; parameters:
|
|
; trainer_id (TrainerGroupParam)
|
|
; trainer_group (TrainerIdParam)
|
|
; memory (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld c, a
|
|
call GetScriptByte
|
|
ld b, a
|
|
ld a, $e
|
|
ld hl, $594c
|
|
rst $8
|
|
jr Unknown_976c0 ; 0x97714 $aa
|
|
; 0x97716
|
|
|
|
Script_unknown0xa7: ; 0x97716
|
|
; script command 0xa7
|
|
|
|
call GetScriptByte
|
|
ld [$cf61], a
|
|
|
|
Unknown_9771c: ; 0x9771c
|
|
call GetScriptByte
|
|
ld [$cf60], a
|
|
call GetName
|
|
ld de, $d073
|
|
jp $76c0
|
|
; 0x9772b
|
|
|
|
Script_unknown0xa6: ; 0x9772b
|
|
; script command 0xa6
|
|
|
|
ld a, $7
|
|
ld [$cf61], a
|
|
jr Unknown_9771c ; 0x97730 $ea
|
|
; 0x97732
|
|
|
|
Script_readmoney: ; 0x97732
|
|
; script command 0x3d
|
|
; parameters:
|
|
; account (SingleByteParam)
|
|
; memory (SingleByteParam)
|
|
|
|
call $7771
|
|
call $7861
|
|
ld hl, $d073
|
|
ld bc, $4306
|
|
call $3198
|
|
ld de, $d073
|
|
jp $76c0
|
|
; 0x97747
|
|
|
|
Script_readcoins: ; 0x97747
|
|
; script command 0x3e
|
|
; parameters:
|
|
; memory (SingleByteParam)
|
|
|
|
call $7771
|
|
ld hl, $d073
|
|
ld de, $d855
|
|
ld bc, $4206
|
|
call $3198
|
|
ld de, $d073
|
|
jp $76c0
|
|
; 0x9775c
|
|
|
|
Script_RAM2MEM: ; 0x9775c
|
|
; script command 0x3f
|
|
; parameters:
|
|
; memory (SingleByteParam)
|
|
|
|
call $7771
|
|
ld de, $c2dd
|
|
ld hl, $d073
|
|
ld bc, $4103
|
|
call $3198
|
|
ld de, $d073
|
|
jp $76c0
|
|
; 0x97771
|
|
|
|
Unknown_0x97771: ; 0x97771
|
|
ld hl, $d073
|
|
ld bc, $000b
|
|
ld a, $50
|
|
call ByteFill
|
|
ret
|
|
; 0x9777d
|
|
|
|
Script_stringtotext: ; 0x9777d
|
|
; script command 0x44
|
|
; parameters:
|
|
; text_pointer (EncodedTextLabelParam)
|
|
; memory (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld a, [ScriptBank]
|
|
ld hl, $30d6
|
|
rst $8
|
|
ld de, $d086
|
|
jp $76c0
|
|
; 0x97792
|
|
|
|
Script_givepokeitem: ; 0x97792
|
|
; script command 0x2f
|
|
; parameters:
|
|
; pointer (PointerParamToItemAndLetter)
|
|
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
ld a, [ScriptBank]
|
|
call GetFarByte
|
|
ld b, a
|
|
push bc
|
|
inc hl
|
|
ld bc, $0020
|
|
ld de, $d002
|
|
ld a, [ScriptBank]
|
|
call FarCopyBytes
|
|
pop bc
|
|
ld a, $11
|
|
ld hl, $46cc
|
|
rst $8
|
|
ret
|
|
; 0x977b7
|
|
|
|
Script_checkpokeitem: ; 0x977b7
|
|
; script command 0x30
|
|
; parameters:
|
|
; pointer (PointerParamToItemAndLetter)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld a, [ScriptBank]
|
|
ld b, a
|
|
ld a, $11
|
|
ld hl, $4654
|
|
rst $8
|
|
ret
|
|
; 0x977ca
|
|
|
|
Script_giveitem: ; 0x977ca
|
|
; script command 0x1f
|
|
; parameters:
|
|
; item (ItemLabelByte)
|
|
; quantity (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
cp $ff
|
|
jr nz, .asm_977d4 ; 0x977cf $3
|
|
ld a, [$c2dd]
|
|
.asm_977d4
|
|
ld [$d106], a
|
|
call GetScriptByte
|
|
ld [$d10c], a
|
|
ld hl, $d892
|
|
call $2f66
|
|
jr nc, .asm_977eb ; 0x977e3 $6
|
|
ld a, $1
|
|
ld [$c2dd], a
|
|
ret
|
|
.asm_977eb
|
|
xor a
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x977f0
|
|
|
|
Script_takeitem: ; 0x977f0
|
|
; script command 0x20
|
|
; parameters:
|
|
; item (ItemLabelByte)
|
|
; quantity (DecimalParam)
|
|
|
|
xor a
|
|
ld [$c2dd], a
|
|
call GetScriptByte
|
|
ld [$d106], a
|
|
call GetScriptByte
|
|
ld [$d10c], a
|
|
ld a, $ff
|
|
ld [$d107], a
|
|
ld hl, $d892
|
|
call $2f53
|
|
ret nc
|
|
ld a, $1
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97812
|
|
|
|
Script_checkitem: ; 0x97812
|
|
; script command 0x21
|
|
; parameters:
|
|
; item (ItemLabelByte)
|
|
|
|
xor a
|
|
ld [$c2dd], a
|
|
call GetScriptByte
|
|
ld [$d106], a
|
|
ld hl, $d892
|
|
call $2f79
|
|
ret nc
|
|
ld a, $1
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97829
|
|
|
|
Script_givemoney: ; 0x97829
|
|
; script command 0x22
|
|
; parameters:
|
|
; account (SingleByteParam)
|
|
; money (MoneyByteParam)
|
|
|
|
call $7861
|
|
call $786d
|
|
ld a, $5
|
|
ld hl, $5fd7
|
|
rst $8
|
|
ret
|
|
; 0x97836
|
|
|
|
Script_takemoney: ; 0x97836
|
|
; script command 0x23
|
|
; parameters:
|
|
; account (SingleByteParam)
|
|
; money (MoneyByteParam)
|
|
|
|
call $7861
|
|
call $786d
|
|
ld a, $5
|
|
ld hl, $5ffa
|
|
rst $8
|
|
ret
|
|
; 0x97843
|
|
|
|
Script_checkmoney: ; 0x97843
|
|
; script command 0x24
|
|
; parameters:
|
|
; account (SingleByteParam)
|
|
; money (MoneyByteParam)
|
|
|
|
call $7861
|
|
call $786d
|
|
ld a, $5
|
|
ld hl, $600b
|
|
rst $8
|
|
; 0x9784f
|
|
|
|
Unknown_9784f: ; 0x9784f
|
|
jr c, .asm_9785b ; 0x9784f $a
|
|
jr z, .asm_97857 ; 0x97851 $4
|
|
ld a, $0
|
|
jr .asm_9785d ; 0x97855 $6
|
|
.asm_97857
|
|
ld a, $1
|
|
jr .asm_9785d ; 0x97859 $2
|
|
.asm_9785b
|
|
ld a, $2
|
|
.asm_9785d
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97861
|
|
|
|
Unknown_0x97861: ; 0x97861
|
|
call GetScriptByte
|
|
and a
|
|
ld de, $d84e
|
|
ret z
|
|
ld de, $d851
|
|
ret
|
|
; 0x9786d
|
|
|
|
Unknown_0x9786d: ; 0x9786d
|
|
ld bc, $ffc3
|
|
push bc
|
|
call GetScriptByte
|
|
ld [bc], a
|
|
inc bc
|
|
call GetScriptByte
|
|
ld [bc], a
|
|
inc bc
|
|
call GetScriptByte
|
|
ld [bc], a
|
|
pop bc
|
|
ret
|
|
; 0x97881
|
|
|
|
Script_givecoins: ; 0x97881
|
|
; script command 0x25
|
|
; parameters:
|
|
; coins (CoinByteParam)
|
|
|
|
call $78a0
|
|
ld a, $5
|
|
ld hl, $606f
|
|
rst $8
|
|
ret
|
|
; 0x9788b
|
|
|
|
Script_takecoins: ; 0x9788b
|
|
; script command 0x26
|
|
; parameters:
|
|
; coins (CoinByteParam)
|
|
|
|
call $78a0
|
|
ld a, $5
|
|
ld hl, $608f
|
|
rst $8
|
|
ret
|
|
; 0x97895
|
|
|
|
Script_checkcoins: ; 0x97895
|
|
; script command 0x27
|
|
; parameters:
|
|
; coins (CoinByteParam)
|
|
|
|
call $78a0
|
|
ld a, $5
|
|
ld hl, $60a1
|
|
rst $8
|
|
jr Unknown_9784f ; 0x9789e $af
|
|
call GetScriptByte
|
|
ld [$ffc4], a
|
|
call GetScriptByte
|
|
ld [$ffc3], a
|
|
ld bc, $ffc3
|
|
ret
|
|
; 0x978ae
|
|
|
|
Script_checktime: ; 0x978ae
|
|
; script command 0x2b
|
|
; parameters:
|
|
; time (SingleByteParam)
|
|
|
|
xor a
|
|
ld [$c2dd], a
|
|
ld a, $3
|
|
ld hl, $4000
|
|
rst $8
|
|
call GetScriptByte
|
|
and c
|
|
ret z
|
|
ld a, $1
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x978c3
|
|
|
|
Script_checkpoke: ; 0x978c3
|
|
; script command 0x2c
|
|
; parameters:
|
|
; pkmn (PokemonParam)
|
|
|
|
xor a
|
|
ld [$c2dd], a
|
|
call GetScriptByte
|
|
ld hl, $dcd8
|
|
ld de, $0001
|
|
call IsInArray
|
|
ret nc
|
|
ld a, $1
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x978da
|
|
|
|
Script_addcellnum: ; 0x978da
|
|
; script command 0x28
|
|
; parameters:
|
|
; person (SingleByteParam)
|
|
|
|
xor a
|
|
ld [$c2dd], a
|
|
call GetScriptByte
|
|
ld c, a
|
|
ld a, $24
|
|
ld hl, $4000
|
|
rst $8
|
|
ret nc
|
|
ld a, $1
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x978ef
|
|
|
|
Script_delcellnum: ; 0x978ef
|
|
; script command 0x29
|
|
; parameters:
|
|
; person (SingleByteParam)
|
|
|
|
xor a
|
|
ld [$c2dd], a
|
|
call GetScriptByte
|
|
ld c, a
|
|
ld a, $24
|
|
ld hl, $400f
|
|
rst $8
|
|
ret nc
|
|
ld a, $1
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97904
|
|
|
|
Script_checkcellnum: ; 0x97904
|
|
; script command 0x2a
|
|
; parameters:
|
|
; person (SingleByteParam)
|
|
|
|
xor a
|
|
ld [$c2dd], a
|
|
call GetScriptByte
|
|
ld c, a
|
|
ld a, $24
|
|
ld hl, $4019
|
|
rst $8
|
|
ret nc
|
|
ld a, $1
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97919
|
|
|
|
Script_specialphonecall: ; 0x97919
|
|
; script command 0x9c
|
|
; parameters:
|
|
; call_id (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld [$dc31], a
|
|
call GetScriptByte
|
|
ld [$dc32], a
|
|
ret
|
|
; 0x97926
|
|
|
|
Script_checkphonecall: ; 0x97926
|
|
; script command 0x9d
|
|
|
|
ld a, [$dc31]
|
|
and a
|
|
jr z, .asm_9792e ; 0x9792a $2
|
|
ld a, $1
|
|
.asm_9792e
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97932
|
|
|
|
Script_givepoke: ; 0x97932
|
|
; script command 0x2d
|
|
; parameters:
|
|
; pokemon (PokemonParam)
|
|
; level (DecimalParam)
|
|
; item (ItemLabelByte)
|
|
; trainer (DecimalParam)
|
|
; trainer_name_pointer (MultiByteParam)
|
|
; pkmn_nickname (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld [$d108], a
|
|
call GetScriptByte
|
|
ld [$d143], a
|
|
call GetScriptByte
|
|
ld [$d106], a
|
|
call GetScriptByte
|
|
and a
|
|
ld b, a
|
|
jr z, .asm_9795d ; 0x97949 $12
|
|
ld hl, ScriptPos
|
|
ld e, [hl]
|
|
inc hl
|
|
ld d, [hl]
|
|
call GetScriptByte
|
|
call GetScriptByte
|
|
call GetScriptByte
|
|
call GetScriptByte
|
|
.asm_9795d
|
|
ld a, $3
|
|
ld hl, $6277
|
|
rst $8
|
|
ld a, b
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97968
|
|
|
|
Script_giveegg: ; 0x97968
|
|
; script command 0x2e
|
|
; parameters:
|
|
; pkmn (PokemonParam)
|
|
; level (DecimalParam)
|
|
|
|
xor a
|
|
ld [$c2dd], a
|
|
ld [$cf5f], a
|
|
call GetScriptByte
|
|
ld [$d108], a
|
|
call GetScriptByte
|
|
ld [$d143], a
|
|
ld a, $3
|
|
ld hl, $5f8c
|
|
rst $8
|
|
ret nc
|
|
ld a, $2
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97988
|
|
|
|
Script_setbit1: ; 0x97988
|
|
; script command 0x33
|
|
; parameters:
|
|
; bit_number (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld b, $1
|
|
call BitTable1Func
|
|
ret
|
|
; 0x97996
|
|
|
|
Script_clearbit1: ; 0x97996
|
|
; script command 0x32
|
|
; parameters:
|
|
; bit_number (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld b, $0
|
|
call BitTable1Func
|
|
ret
|
|
; 0x979a4
|
|
|
|
Script_checkbit1: ; 0x979a4
|
|
; script command 0x31
|
|
; parameters:
|
|
; bit_number (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld b, $2
|
|
call BitTable1Func
|
|
ld a, c
|
|
and a
|
|
jr z, .asm_979b7 ; 0x979b3 $2
|
|
ld a, $1
|
|
.asm_979b7
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x979bb
|
|
|
|
Script_setbit2: ; 0x979bb
|
|
; script command 0x36
|
|
; parameters:
|
|
; bit_number (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld b, $1
|
|
call $79ee
|
|
ret
|
|
; 0x979c9
|
|
|
|
Script_clearbit2: ; 0x979c9
|
|
; script command 0x35
|
|
; parameters:
|
|
; bit_number (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld b, $0
|
|
call $79ee
|
|
ret
|
|
; 0x979d7
|
|
|
|
Script_checkbit2: ; 0x979d7
|
|
; script command 0x34
|
|
; parameters:
|
|
; bit_number (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld b, $2
|
|
call $79ee
|
|
ld a, c
|
|
and a
|
|
jr z, .asm_979ea ; 0x979e6 $2
|
|
ld a, $1
|
|
.asm_979ea
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x979ee
|
|
|
|
Unknown_0x979ee: ; 0x979ee
|
|
ld a, $20
|
|
ld hl, $4430
|
|
rst $8
|
|
ret
|
|
; 0x979f5
|
|
|
|
Script_wildon: ; 0x979f5
|
|
; script command 0x38
|
|
|
|
ld hl, $d84c
|
|
set 5, [hl]
|
|
ret
|
|
; 0x979fb
|
|
|
|
Script_wildoff: ; 0x979fb
|
|
; script command 0x37
|
|
|
|
ld hl, $d84c
|
|
res 5, [hl]
|
|
ret
|
|
; 0x97a01
|
|
|
|
Script_xycompare: ; 0x97a01
|
|
; script command 0x39
|
|
; parameters:
|
|
; pointer (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld [$d453], a
|
|
call GetScriptByte
|
|
ld [$d454], a
|
|
ret
|
|
; 0x97a0e
|
|
|
|
Script_warpfacing: ; 0x97a0e
|
|
; script command 0xa3
|
|
; parameters:
|
|
; facing (SingleByteParam)
|
|
; map_group (MapGroupParam)
|
|
; map_id (MapIdParam)
|
|
; x (SingleByteParam)
|
|
; y (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
and $3
|
|
ld c, a
|
|
ld a, [$d45b]
|
|
set 5, a
|
|
or c
|
|
ld [$d45b], a
|
|
; 0x97a1d
|
|
|
|
Script_warp: ; 0x97a1d
|
|
; script command 0x3c
|
|
; parameters:
|
|
; map_group (MapGroupParam)
|
|
; map_id (MapIdParam)
|
|
; x (SingleByteParam)
|
|
; y (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
and a
|
|
jr z, .asm_97a4a ; 0x97a21 $27
|
|
ld [$dcb5], a
|
|
call GetScriptByte
|
|
ld [$dcb6], a
|
|
call GetScriptByte
|
|
ld [$dcb8], a
|
|
call GetScriptByte
|
|
ld [$dcb7], a
|
|
ld a, $ff
|
|
ld [$d001], a
|
|
ld a, $f1
|
|
ld [$ff9f], a
|
|
ld a, $1
|
|
call $261b
|
|
call Unknown_0x96e11
|
|
ret
|
|
.asm_97a4a
|
|
call GetScriptByte
|
|
call GetScriptByte
|
|
call GetScriptByte
|
|
ld a, $ff
|
|
ld [$d001], a
|
|
ld a, $fb
|
|
ld [$ff9f], a
|
|
ld a, $1
|
|
call $261b
|
|
call Unknown_0x96e11
|
|
ret
|
|
; 0x97a65
|
|
|
|
Script_warpmod: ; 0x97a65
|
|
; script command 0x3a
|
|
; parameters:
|
|
; warp_id (SingleByteParam)
|
|
; map_group (MapGroupParam)
|
|
; map_id (MapIdParam)
|
|
|
|
call GetScriptByte
|
|
ld [$dcac], a
|
|
call GetScriptByte
|
|
ld [$dcad], a
|
|
call GetScriptByte
|
|
ld [$dcae], a
|
|
ret
|
|
; 0x97a78
|
|
|
|
Script_blackoutmod: ; 0x97a78
|
|
; script command 0x3b
|
|
; parameters:
|
|
; map_group (MapGroupParam)
|
|
; map_id (MapIdParam)
|
|
|
|
call GetScriptByte
|
|
ld [$dcb2], a
|
|
call GetScriptByte
|
|
ld [$dcb3], a
|
|
ret
|
|
; 0x97a85
|
|
|
|
Script_reloadmapmusic: ; 0x97a85
|
|
; script command 0x83
|
|
|
|
ld a, $1
|
|
ld [$c2c1], a
|
|
ret
|
|
; 0x97a8b
|
|
|
|
Script_writecmdqueue: ; 0x97a8b
|
|
; script command 0x7d
|
|
; parameters:
|
|
; queue_pointer (MultiByteParam)
|
|
|
|
call GetScriptByte
|
|
ld e, a
|
|
call GetScriptByte
|
|
ld d, a
|
|
ld a, [ScriptBank]
|
|
ld b, a
|
|
ld a, $25
|
|
ld hl, $7e31
|
|
rst $8
|
|
ret
|
|
; 0x97a9e
|
|
|
|
Script_delcmdqueue: ; 0x97a9e
|
|
; script command 0x7e
|
|
; parameters:
|
|
; byte (SingleByteParam)
|
|
|
|
xor a
|
|
ld [$c2dd], a
|
|
call GetScriptByte
|
|
ld b, a
|
|
ld a, $25
|
|
ld hl, $7e5c
|
|
rst $8
|
|
ret c
|
|
ld a, $1
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97ab3
|
|
|
|
Script_changemap: ; 0x97ab3
|
|
; script command 0x79
|
|
; parameters:
|
|
; map_data_pointer (MapDataPointerParam)
|
|
|
|
call GetScriptByte
|
|
ld [$d1a0], a
|
|
call GetScriptByte
|
|
ld [$d1a1], a
|
|
call GetScriptByte
|
|
ld [$d1a2], a
|
|
call $24e4
|
|
call $2879
|
|
ret
|
|
; 0x97acc
|
|
|
|
Script_changeblock: ; 0x97acc
|
|
; script command 0x7a
|
|
; parameters:
|
|
; x (SingleByteParam)
|
|
; y (SingleByteParam)
|
|
; block (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
add $4
|
|
ld d, a
|
|
call GetScriptByte
|
|
add $4
|
|
ld e, a
|
|
call $2a66
|
|
call GetScriptByte
|
|
ld [hl], a
|
|
call $2879
|
|
ret
|
|
; 0x97ae3
|
|
|
|
Script_reloadmappart: ; 0x97ae3
|
|
; script command 0x7c
|
|
|
|
xor a
|
|
ld [$ffd4], a
|
|
call $2173
|
|
call $2914
|
|
ld a, $41
|
|
ld hl, $4061
|
|
rst $8
|
|
call $1ad2
|
|
ret
|
|
; 0x97af6
|
|
|
|
Script_warpcheck: ; 0x97af6
|
|
; script command 0x8e
|
|
|
|
call $224a
|
|
ret nc
|
|
ld a, $25
|
|
ld hl, $66d0
|
|
rst $8
|
|
ret
|
|
; 0x97b01
|
|
|
|
Unknown_0x97b01: ; 0x97b01
|
|
ld a, $25
|
|
ld hl, $66d0
|
|
rst $8
|
|
ret
|
|
; 0x97b08
|
|
|
|
Script_newloadmap: ; 0x97b08
|
|
; script command 0x8a
|
|
; parameters:
|
|
; which_method (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld [$ff9f], a
|
|
ld a, $1
|
|
call $261b
|
|
call Unknown_0x96e11
|
|
ret
|
|
; 0x97b16
|
|
|
|
Script_reloadandreturn: ; 0x97b16
|
|
; script command 0x92
|
|
|
|
call $7b08
|
|
jp $7b74
|
|
; 0x97b1c
|
|
|
|
Script_loadfont: ; 0x97b1c
|
|
; script command 0x47
|
|
|
|
call $2e08
|
|
ret
|
|
; 0x97b20
|
|
|
|
Script_refreshscreen: ; 0x97b20
|
|
; script command 0x48
|
|
; parameters:
|
|
; dummy (SingleByteParam)
|
|
|
|
call $2dba
|
|
call GetScriptByte
|
|
ret
|
|
; 0x97b27
|
|
|
|
Script_loadbytec1ce: ; 0x97b27
|
|
; script command 0x4a
|
|
; parameters:
|
|
; byte (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
ld [$c2cf], a
|
|
ret
|
|
; 0x97b2e
|
|
|
|
INCBIN "baserom.gbc",$97b2e,$97b2f - $97b2e
|
|
|
|
Script_loadmovesprites: ; 0x97b2f
|
|
; script command 0x49
|
|
|
|
call $2e20
|
|
call $2dcf
|
|
ret
|
|
; 0x97b36
|
|
|
|
Script_passtoengine: ; 0x97b36
|
|
; script command 0x89
|
|
; parameters:
|
|
; data_pointer (PointerLabelBeforeBank)
|
|
|
|
call GetScriptByte
|
|
push af
|
|
call GetScriptByte
|
|
ld l, a
|
|
call GetScriptByte
|
|
ld h, a
|
|
pop af
|
|
call StartAutoInput
|
|
ret
|
|
; 0x97b47
|
|
|
|
Script_pause: ; 0x97b47
|
|
; script command 0x8b
|
|
; parameters:
|
|
; length (DecimalParam)
|
|
|
|
call GetScriptByte
|
|
and a
|
|
jr z, .asm_97b50 ; 0x97b4b $3
|
|
ld [$d44d], a
|
|
.asm_97b50
|
|
ld c, $2
|
|
call DelayFrames
|
|
ld hl, $d44d
|
|
dec [hl]
|
|
jr nz, .asm_97b50 ; 0x97b59 $f5
|
|
ret
|
|
; 0x97b5c
|
|
|
|
Script_deactivatefacing: ; 0x97b5c
|
|
; script command 0x8c
|
|
; parameters:
|
|
; time (SingleByteParam)
|
|
|
|
call GetScriptByte
|
|
and a
|
|
jr z, .asm_97b65 ; 0x97b60 $3
|
|
ld [$d44d], a
|
|
.asm_97b65
|
|
ld a, $3
|
|
ld [$d437], a
|
|
call Unknown_0x96e11
|
|
ret
|
|
; 0x97b6e
|
|
|
|
Script_ptpriorityjump: ; 0x97b6e
|
|
; script command 0x8f
|
|
; parameters:
|
|
; pointer (ScriptPointerLabelParam)
|
|
|
|
call Unknown_0x96e11
|
|
jp Script_2jump
|
|
; 0x97b74
|
|
|
|
Script_end: ; 0x97b74
|
|
; script command 0x91
|
|
|
|
call $7b9a
|
|
jr c, .asm_97b7a ; 0x97b77 $1
|
|
ret
|
|
.asm_97b7a
|
|
xor a
|
|
ld [$d438], a
|
|
ld a, $0
|
|
ld [$d437], a
|
|
ld hl, $d434
|
|
res 0, [hl]
|
|
call Unknown_0x96e11
|
|
ret
|
|
; 0x97b8c
|
|
|
|
Script_return: ; 0x97b8c
|
|
; script command 0x90
|
|
|
|
call $7b9a
|
|
jr c, .asm_97b91 ; 0x97b8f $0
|
|
.asm_97b91
|
|
ld hl, $d434
|
|
res 0, [hl]
|
|
call Unknown_0x96e11
|
|
ret
|
|
; 0x97b9a
|
|
|
|
Unknown_0x97b9a: ; 0x97b9a
|
|
ld hl, $d43c
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .asm_97bbe ; 0x97b9f $1d
|
|
dec [hl]
|
|
ld e, [hl]
|
|
ld d, $0
|
|
ld hl, $d43d
|
|
add hl, de
|
|
add hl, de
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld b, a
|
|
and $7f
|
|
ld [ScriptBank], a
|
|
ld a, [hli]
|
|
ld e, a
|
|
ld [ScriptPos], a
|
|
ld a, [hl]
|
|
ld d, a
|
|
ld [ScriptPos + 1], a
|
|
and a
|
|
ret
|
|
.asm_97bbe
|
|
scf
|
|
ret
|
|
; 0x97bc0
|
|
|
|
Script_resetfuncs: ; 0x97bc0
|
|
; script command 0x93
|
|
|
|
xor a
|
|
ld [$d43c], a
|
|
ld [$d438], a
|
|
ld a, $0
|
|
ld [$d437], a
|
|
ld hl, $d434
|
|
res 0, [hl]
|
|
call Unknown_0x96e11
|
|
ret
|
|
; 0x97bd5
|
|
|
|
Script_halloffame: ; 0x97bd5
|
|
; script command 0xa1
|
|
|
|
ld hl, $cfbc
|
|
res 0, [hl]
|
|
ld a, BANK(HallOfFame1)
|
|
ld hl, HallOfFame1
|
|
rst $8
|
|
ld a, BANK(HallOfFame2)
|
|
ld hl, HallOfFame2
|
|
rst $8
|
|
ld a, BANK(HallOfFame3)
|
|
ld hl, HallOfFame3
|
|
rst $8
|
|
ld hl, $cfbc
|
|
set 0, [hl]
|
|
jr DisplayCredits
|
|
; 0x97bf3
|
|
|
|
Script_credits: ; 0x97bf3
|
|
; script command 0xa2
|
|
|
|
ld a, $21
|
|
ld hl, $6455
|
|
rst $8
|
|
; fallthrough
|
|
DisplayCredits:
|
|
call $7bc0
|
|
ld a, $3
|
|
call $261b
|
|
call Unknown_0x96e11
|
|
ret
|
|
; 0x97c05
|
|
|
|
Script_unknown0xa8: ; 0x97c05
|
|
; script command 0xa8
|
|
; parameters:
|
|
; unknown (SingleByteParam)
|
|
|
|
push bc
|
|
call GetScriptByte
|
|
.asm_97c09
|
|
push af
|
|
ld c, $6
|
|
call DelayFrames
|
|
pop af
|
|
dec a
|
|
jr nz, .asm_97c09 ; 0x97c11 $f6
|
|
pop bc
|
|
ret
|
|
; 0x97c15
|
|
|
|
Script_unknown0xa9: ; 0x97c15
|
|
; script command 0xa9
|
|
|
|
ld a, $13
|
|
ld hl, $4ffe
|
|
rst $8
|
|
ld a, c
|
|
ld [$c2dd], a
|
|
ret
|
|
; 0x97c20
|