shithub: pokered

ref: 35493bef27ba0425860a0f419c64371b824b6981
dir: /scripts/museum1f.asm/

View raw version
Museum1FScript: ; 5c0f7 (17:40f7)
	ld a, $1
	ld [wcf0c], a
	xor a
	ld [wcc3c], a
	ld hl, Museum1FScriptPointers
	ld a, [W_MUSEUM1FCURSCRIPT]
	jp CallFunctionInTable

Museum1FScriptPointers: ; 5c109 (17:4109)
	dw Museum1FScript0
	dw Museum1FScript1

Museum1FScript0: ; 5c10d (17:410d)
	ld a, [W_YCOORD]
	cp $4
	ret nz
	ld a, [W_XCOORD]
	cp $9
	jr z, .asm_5c120 ; 0x5c118 $6
	ld a, [W_XCOORD]
	cp $a
	ret nz
.asm_5c120
	xor a
	ld [hJoyHeld], a
	ld a, $1
	ld [$ff8c], a
	jp DisplayTextID

Museum1FScript1: ; 5c12a (17:412a)
	ret

Museum1FTextPointers: ; 5c12b (17:412b)
	dw Museum1FText1
	dw Museum1FText2
	dw Museum1FText3
	dw Museum1FText4
	dw Museum1FText5

Museum1FText1: ; 5c135 (17:4135)
	db $8
	ld a, [W_YCOORD]
	cp $4
	jr nz, .asm_8774b
	ld a, [W_XCOORD]
	cp $d
	jp z, Museum1FScript_5c1f9
	jr .asm_b8709
.asm_8774b
	cp $3
	jr nz, .asm_d49e7
	ld a, [W_XCOORD]
	cp $c
	jp z, Museum1FScript_5c1f9
.asm_d49e7
	ld a, [wd754]
	bit 0, a
	jr nz, .asm_31a16
	ld hl, Museum1FText_5c23d
	call PrintText
	jp asm_d1145
.asm_b8709
	ld a, [wd754]
	bit 0, a
	jr z, .asm_3ded4
.asm_31a16
	ld hl, Museum1FText_5c242
	call PrintText
	jp asm_d1145
.asm_3ded4
	ld a, $13
	ld [wd125], a
	call DisplayTextBoxID
	xor a
	ld [hJoyHeld], a
	ld hl, Museum1FText_5c21f
	call PrintText
	call YesNoChoice
	ld a, [wCurrentMenuItem]
	and a
	jr nz, .asm_de133
	xor a
	ld [$ff9f], a
	ld [$ffa0], a
	ld a, $50
	ld [$ffa1], a
	call HasEnoughMoney
	jr nc, .asm_0f3e3
	ld hl, Museum1FText_5c229
	call PrintText
	jp .asm_de133
.asm_0f3e3
	ld hl, Museum1FText_5c224
	call PrintText
	ld hl, wd754
	set 0, [hl]
	xor a
	ld [wWhichTrade], a
	ld [wTrainerEngageDistance], a
	ld a, $50
	ld [wTrainerFacingDirection], a
	ld hl, wTrainerFacingDirection
	ld de, wPlayerMoney + 2
	ld c, $3
	ld a, $c ; SubtractBCDPredef
	call Predef
	ld a, $13
	ld [wd125], a
	call DisplayTextBoxID
	ld a, (SFX_02_5a - SFX_Headers_02) / 3
	call PlaySoundWaitForCurrent
	call WaitForSoundToFinish
	jr .asm_0b094
.asm_de133
	ld hl, Museum1FText_5c21a ; $421a
	call PrintText
	ld a, $1
	ld [wcd38], a
	ld a, $80
	ld [wccd3], a
	call Func_3486
	call UpdateSprites
	jr asm_d1145
.asm_0b094
	ld a, $1
	ld [W_MUSEUM1FCURSCRIPT], a
	jr asm_d1145

Museum1FScript_5c1f9: ; 5c1f9 (17:41f9)
	ld hl, Museum1FText_5c22e
	call PrintText
	call YesNoChoice
	ld a, [wCurrentMenuItem]
	cp $0
	jr nz, .asm_d1144
	ld hl, Museum1FText_5c233
	call PrintText
	jr asm_d1145
.asm_d1144
	ld hl, Museum1FText_5c238
	call PrintText
asm_d1145: ; 5c217 (17:4217)
	jp TextScriptEnd

Museum1FText_5c21a: ; 5c21a (17:421a)
	TX_FAR _Museum1FText_5c21a
	db "@"

Museum1FText_5c21f: ; 5c21f (17:421f)
	TX_FAR _Museum1FText_5c21f
	db "@"

Museum1FText_5c224: ; 5c224 (17:4224)
	TX_FAR _Museum1FText_5c224
	db "@"

Museum1FText_5c229: ; 5c229 (17:4229)
	TX_FAR _Museum1FText_5c229
	db "@"

Museum1FText_5c22e: ; 5c22e (17:422e)
	TX_FAR _Museum1FText_5c22e
	db "@"

Museum1FText_5c233: ; 5c233 (17:4233)
	TX_FAR _Museum1FText_5c233
	db "@"

Museum1FText_5c238: ; 5c238 (17:4238)
	TX_FAR _Museum1FText_5c238
	db "@"

Museum1FText_5c23d: ; 5c23d (17:423d)
	TX_FAR _Museum1FText_5c23d
	db "@"

Museum1FText_5c242: ; 5c242 (17:4242)
	TX_FAR _Museum1FText_5c242
	db "@"

Museum1FText2: ; 5c247 (17:4247)
	db $08 ; asm
	ld hl, Museum1FText_5c251
	call PrintText
	jp TextScriptEnd

Museum1FText_5c251: ; 5c251 (17:4251)
	TX_FAR _Museum1FText_5c251
	db "@"

Museum1FText3: ; 5c256 (17:4256)
	db $08 ; asm
	ld a, [wd754]
	bit 1, a
	jr nz, .asm_16599 ; 0x5c25c
	ld hl, Museum1FText_5c28e
	call PrintText
	ld bc, (OLD_AMBER << 8) | 1
	call GiveItem
	jr nc, .BagFull
	ld hl, wd754
	set 1, [hl]
	ld a, $34
	ld [wcc4d], a
	ld a, $11
	call Predef
	ld hl, ReceivedOldAmberText
	jr .asm_52e0f ; 0x5c27e
.BagFull
	ld hl, Museum1FText_5c29e
	jr .asm_52e0f ; 0x5c283
.asm_16599 ; 0x5c285
	ld hl, Museum1FText_5c299
.asm_52e0f ; 0x5c288
	call PrintText
	jp TextScriptEnd

Museum1FText_5c28e: ; 5c28e (17:428e)
	TX_FAR _Museum1FText_5c28e
	db "@"

ReceivedOldAmberText: ; 5c293 (17:4293)
	TX_FAR _ReceivedOldAmberText
	db $0B, "@"

Museum1FText_5c299: ; 5c299 (17:4299)
	TX_FAR _Museum1FText_5c299
	db "@"

Museum1FText_5c29e: ; 5c29e (17:429e)
	TX_FAR _Museum1FText_5c29e
	db "@"

Museum1FText4: ; 5c2a3 (17:42a3)
	db $08 ; asm
	ld hl, Museum1FText_5c2ad
	call PrintText
	jp TextScriptEnd

Museum1FText_5c2ad: ; 5c2ad (17:42ad)
	TX_FAR _Museum1FText_5c2ad
	db "@"

Museum1FText5: ; 5c2b2 (17:42b2)
	db $08 ; asm
	ld hl, Museum1FText_5c2bc
	call PrintText
	jp TextScriptEnd

Museum1FText_5c2bc: ; 5c2bc (17:42bc)
	TX_FAR _Museum1FText_5c2bc
	db "@"