kep-hack/scripts/museum1f.asm
yenatch 35f2bb90d4 Rename predef functions so they aren't excessive in length.
This is mostly because of an rgbasm bug that prevents macro arguments
from exceeding 16 characters, but the names were bad anyway.
2014-06-16 13:03:05 -07:00

254 lines
4.4 KiB
NASM
Executable file

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 ; SubBCDPredef
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 "@"