pokecrystal-board/engine/scripting.asm

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