pokecrystal/scripting.asm

3128 lines
46 KiB
NASM
Raw Normal View History

ScriptCommandTable: ; 0x96cb1
2013-02-28 21:04:26 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld b, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld h, a
ld a, b
rst $8
ret
; 0x96e26
Script_special: ; 0x96e26
; script command 0xf
; parameters:
; predefined_script (MultiByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld d, a
ld a, $3
ld hl, $401b
rst $8
ret
; 0x96e35
Script_2ptcallasm: ; 0x96e35
; script command 0x10
; parameters:
; asm (PointerToAsmPointerParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d44f], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d450], a
ld b, $25
ld hl, $6e79
2013-05-03 18:27:24 +00:00
jp ScriptJump
; 0x96e5f
Script_jumptext: ; 0x96e5f
; script command 0x53
; parameters:
; text_pointer (RawTextPointerLabelParam)
ld a, [ScriptBank]
ld [$d44e], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d44f], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d450], a
ld b, $25
ld hl, $6e7a
2013-05-03 18:27:24 +00:00
jp ScriptJump
; 0x96e79
INCBIN "baserom.gbc",$96e79,$96e81 - $96e79
Script_3jumptext: ; 0x96e81
; script command 0x52
; parameters:
; text_pointer (PointerLabelBeforeBank)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d44e], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d44f], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d450], a
ld b, $25
ld hl, $6e7a
2013-05-03 18:27:24 +00:00
jp ScriptJump
; 0x96e9b
Script_2writetext: ; 0x96e9b
; script command 0x4c
; parameters:
; text_pointer (RawTextPointerLabelParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld b, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld h, a
call $269a
ret
; 0x96ebb
Script_repeattext: ; 0x96ebb
; script command 0x4d
; parameters:
; byte (SingleByteParam)
; byte (SingleByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
cp $ff
jr nz, .asm_96f98 ; 0x96f93 $3
ld a, [$c2dd]
.asm_96f98
ld [$d106], a
2013-02-28 21:36:21 +00:00
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]
2013-05-03 00:27:39 +00:00
cp TM_HM
ld de, SFX_GET_TM
jr z, .play
ld de, SFX_ITEM
.play
call StartSFX
2013-05-03 00:27:39 +00:00
call WaitSFX
ret
; 0x96ffe
INCBIN "baserom.gbc",$96ffe,$97065 - $96ffe
Script_pokemart: ; 0x97065
; script command 0x94
; parameters:
; dialog_id (SingleByteParam)
; mart_id (MultiByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld c, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld a, $2
.asm_970db
ld [$c2dd], a
ret
; 0x970df
Script_describedecoration: ; 0x970df
; script command 0x9a
; parameters:
; byte (SingleByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld b, a
ld a, $9
ld hl, $6f59
rst $8
ld h, d
ld l, e
2013-05-03 18:27:24 +00:00
jp ScriptJump
; 0x970ee
Script_fruittree: ; 0x970ee
; script command 0x9b
; parameters:
; tree_id (SingleByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
2013-05-03 19:40:45 +00:00
ld [CurFruitTree], a
ld b, BANK(FruitTreeScript)
ld hl, FruitTreeScript
2013-05-03 18:27:24 +00:00
jp ScriptJump
; 0x970fc
Script_loadwilddata: ; 0x970fc
; script command 0xa0
; parameters:
; map_group (MapGroupParam)
; map_id (MapIdParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld c, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld d, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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
2013-05-03 18:27:24 +00:00
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]
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [hli], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [hli], a
ld hl, $d049
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [hli], a
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld d, a
call StartMusic
ret
; 0x971a2
Script_musicfadeout: ; 0x971a2
; script command 0x81
; parameters:
; music (MultiByteParam)
; fadetime (SingleByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$c2a9], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$c2aa], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
and $7f
ld [$c2a7], a
ret
; 0x971b7
Script_playsound: ; 0x971b7
; script command 0x85
; parameters:
; sound_pointer (MultiByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld d, a
call StartSFX
ret
; 0x971c3
Script_waitbutton: ; 0x971c3
; script command 0x86
2013-05-03 00:27:39 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
push af
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
call Unknown_0x971e3
ld [$ffe0], a
ret
; 0x971f3
Script_applymovement: ; 0x971f3
; script command 0x69
; parameters:
; person (SingleByteParam)
; data (MovementPointerLabelParam)
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
call Unknown_0x971e3
cp $fe
jr c, .asm_97254 ; 0x97250 $2
ld a, [$ffe0]
.asm_97254
ld e, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
call Unknown_0x971e3
cp $fe
jr nz, .asm_97280 ; 0x9727c $2
ld a, [$ffe0]
.asm_97280
ld d, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
ld d, $0
ld hl, $d82e
add hl, de
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [hl], a
ret
; 0x972dd
Script_appear: ; 0x972dd
; script command 0x6f
; parameters:
; person (SingleByteParam)
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
call Unknown_0x971e3
ld b, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
call Unknown_0x971e3
ld b, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
add $4
ld d, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
call Unknown_0x971e3
ld b, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$c2dd], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
call Unknown_0x971e3
cp $fe
jr z, .asm_973a8 ; 0x973a4 $2
ld [$ffe0], a
.asm_973a8
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d22e], a
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d22f], a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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
2013-05-03 18:27:24 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld d, a
jr ScriptCall
; 0x974b0
Script_3call: ; 0x974b0
; script command 0x1
; parameters:
; pointer (ScriptPointerLabelBeforeBank)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld b, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld d, a
jr ScriptCall
; 0x974be
Script_2ptcall: ; 0x974be
; script command 0x2
; parameters:
; pointer (PointerLabelToScriptPointer)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
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
2013-05-03 18:27:24 +00:00
ld a, [ScriptPos + 1]
ld [hl], a
ld a, b
ld [ScriptBank], a
ld a, e
ld [ScriptPos], a
ld a, d
2013-05-03 18:27:24 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld h, a
ld a, [ScriptBank]
ld b, a
2013-05-03 18:27:24 +00:00
jp ScriptJump
; 0x9750d
Script_3jump: ; 0x9750d
; script command 0x4
; parameters:
; pointer (ScriptPointerLabelBeforeBank)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld b, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld h, a
2013-05-03 18:27:24 +00:00
jp ScriptJump
; 0x9751c
Script_2ptjump: ; 0x9751c
; script command 0x5
; parameters:
; pointer (PointerLabelToScriptPointer)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld h, a
ld b, [hl]
inc hl
ld a, [hli]
ld h, [hl]
ld l, a
2013-05-03 18:27:24 +00:00
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)
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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
2013-05-03 18:27:24 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
call GetScriptByte
2013-02-28 21:04:26 +00:00
ret
; 0x9759d
2013-05-03 18:27:24 +00:00
ScriptJump: ; 0x9759d
2013-02-28 21:04:26 +00:00
ld a, b
ld [ScriptBank], a
2013-02-28 21:04:26 +00:00
ld a, l
ld [ScriptPos], a
2013-02-28 21:04:26 +00:00
ld a, h
2013-05-03 18:27:24 +00:00
ld [ScriptPos + 1], a
2013-02-28 21:04:26 +00:00
ret
; 0x975aa
Script_priorityjump: ; 0x975aa
; script command 0x8d
; parameters:
; pointer (ScriptPointerLabelParam)
ld a, [ScriptBank]
ld [$d44e], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d44f], a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld b, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld b, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld c, a
; fallthrough
Unknown_975fd: ; 0x975fd
call $2147
ld a, d
or e
jr z, .asm_97608 ; 0x97602 $4
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [de], a
.asm_97608
ret
; 0x97609
Script_copybytetovar: ; 0x97609
; script command 0x19
; parameters:
; address (RAMAddressParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld h, a
ld a, [hl]
ld [$c2dd], a
ret
; 0x97616
Script_copyvartobyte: ; 0x97616
; script command 0x1a
; parameters:
; address (RAMAddressParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld h, a
ld a, [$c2dd]
ld [hl], a
ret
; 0x97623
Script_loadvar: ; 0x97623
; script command 0x1b
; parameters:
; address (RAMAddressParam)
; value (SingleByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld h, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [hl], a
ret
; 0x97630
Script_writebyte: ; 0x97630
; script command 0x15
; parameters:
; value (SingleByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$c2dd], a
ret
; 0x97637
Script_addvar: ; 0x97637
; script command 0x16
; parameters:
; value (SingleByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld hl, $c2dd
add [hl]
ld [hl], a
ret
; 0x97640
Script_random: ; 0x97640
; script command 0x17
; parameters:
; input (SingleByteParam)
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
call $769e
ld a, [de]
ld [$c2dd], a
ret
; 0x97688
Script_writevarcode: ; 0x97688
; script command 0x1d
; parameters:
; variable_id (SingleByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
call $769e
ld a, [$c2dd]
ld [de], a
ret
; 0x97693
Script_writecode: ; 0x97693
; script command 0x1e
; parameters:
; variable_id (SingleByteParam)
; value (SingleByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
call $769e
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
jr Unknown_976f4 ; 0x97704 $ee
; 0x97706
Script_trainertotext: ; 0x97706
; script command 0x43
; parameters:
; trainer_id (TrainerGroupParam)
; trainer_group (TrainerIdParam)
; memory (SingleByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld c, a
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$cf61], a
Unknown_9771c: ; 0x9771c
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
cp $ff
jr nz, .asm_977d4 ; 0x977cf $3
ld a, [$c2dd]
.asm_977d4
ld [$d106], a
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d106], a
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
and a
ld de, $d84e
ret z
ld de, $d851
ret
; 0x9786d
Unknown_0x9786d: ; 0x9786d
ld bc, $ffc3
push bc
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [bc], a
inc bc
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [bc], a
inc bc
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$ffc4], a
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$dc31], a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d108], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d143], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d106], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
and a
ld b, a
jr z, .asm_9795d ; 0x97949 $12
ld hl, ScriptPos
ld e, [hl]
inc hl
ld d, [hl]
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d108], a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld d, a
ld b, $1
call BitTable1Func
ret
; 0x97996
Script_clearbit1: ; 0x97996
; script command 0x32
; parameters:
; bit_number (MultiByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld d, a
ld b, $0
call BitTable1Func
ret
; 0x979a4
Script_checkbit1: ; 0x979a4
; script command 0x31
; parameters:
; bit_number (MultiByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld d, a
ld b, $1
call $79ee
ret
; 0x979c9
Script_clearbit2: ; 0x979c9
; script command 0x35
; parameters:
; bit_number (MultiByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld d, a
ld b, $0
call $79ee
ret
; 0x979d7
Script_checkbit2: ; 0x979d7
; script command 0x34
; parameters:
; bit_number (MultiByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d453], a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
and a
jr z, .asm_97a4a ; 0x97a21 $27
ld [$dcb5], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$dcb6], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$dcb8], a
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$dcac], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$dcad], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$dcae], a
ret
; 0x97a78
Script_blackoutmod: ; 0x97a78
; script command 0x3b
; parameters:
; map_group (MapGroupParam)
; map_id (MapIdParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$dcb2], a
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld e, a
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d1a0], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d1a1], a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld [$d1a2], a
call $24e4
call $2879
ret
; 0x97acc
Script_changeblock: ; 0x97acc
; script command 0x7a
; parameters:
; x (SingleByteParam)
; y (SingleByteParam)
; block (SingleByteParam)
2013-02-28 21:36:21 +00:00
call GetScriptByte
add $4
ld d, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
add $4
ld e, a
call $2a66
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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
2013-02-28 21:36:21 +00:00
call GetScriptByte
ret
; 0x97b27
Script_loadbytec1ce: ; 0x97b27
; script command 0x4a
; parameters:
; byte (SingleByteParam)
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
call GetScriptByte
push af
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld l, a
2013-02-28 21:36:21 +00:00
call GetScriptByte
ld h, a
pop af
call StartAutoInput
ret
; 0x97b47
Script_pause: ; 0x97b47
; script command 0x8b
; parameters:
; length (DecimalParam)
2013-02-28 21:36:21 +00:00
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)
2013-02-28 21:36:21 +00:00
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
2013-05-03 18:27:24 +00:00
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
2013-02-28 21:36:21 +00:00
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