mirror of
https://github.com/pret/pokeyellow.git
synced 2024-11-23 05:49:57 +00:00
157 lines
2.8 KiB
NASM
157 lines
2.8 KiB
NASM
BillsHousePrintBillPokemonText::
|
|
ld hl, .ImNotAPokemonText
|
|
call PrintText
|
|
call YesNoChoice
|
|
ld a, [wCurrentMenuItem]
|
|
and a
|
|
jr nz, .answered_no
|
|
.use_machine
|
|
ld hl, .UseSeparationSystemText
|
|
call PrintText
|
|
ld a, SCRIPT_BILLSHOUSE_SCRIPT2
|
|
ld [wBillsHouseCurScript], a
|
|
ret
|
|
.answered_no
|
|
ld hl, .NoYouGottaHelpText
|
|
call PrintText
|
|
jr .use_machine
|
|
|
|
.ImNotAPokemonText:
|
|
text_far _BillsHouseBillImNotAPokemonText
|
|
text_end
|
|
|
|
.UseSeparationSystemText:
|
|
text_far _BillsHouseBillUseSeparationSystemText
|
|
text_end
|
|
|
|
.NoYouGottaHelpText:
|
|
text_far _BillsHouseBillNoYouGottaHelpText
|
|
text_end
|
|
|
|
BillsHousePrintBillSSTicketText::
|
|
CheckEvent EVENT_GOT_SS_TICKET
|
|
jr nz, .got_ss_ticket
|
|
ld hl, .ThankYouText
|
|
call PrintText
|
|
lb bc, S_S_TICKET, 1
|
|
call GiveItem
|
|
jr nc, .bag_full
|
|
ld hl, .SSTicketReceivedText
|
|
call PrintText
|
|
SetEvent EVENT_GOT_SS_TICKET
|
|
ld a, HS_CERULEAN_GUARD_1
|
|
ld [wMissableObjectIndex], a
|
|
predef ShowObject
|
|
ld a, HS_CERULEAN_GUARD_2
|
|
ld [wMissableObjectIndex], a
|
|
predef HideObject
|
|
.got_ss_ticket
|
|
ld hl, .WhyDontYouGoInsteadOfMeText
|
|
call PrintText
|
|
ret
|
|
.bag_full
|
|
ld hl, .SSTicketNoRoomText
|
|
call PrintText
|
|
ret
|
|
|
|
.ThankYouText:
|
|
text_far _BillsHouseBillThankYouText
|
|
text_end
|
|
|
|
.SSTicketReceivedText:
|
|
text_far _SSTicketReceivedText
|
|
sound_get_key_item
|
|
text_promptbutton
|
|
text_end
|
|
|
|
.SSTicketNoRoomText:
|
|
text_far _SSTicketNoRoomText
|
|
text_end
|
|
|
|
.WhyDontYouGoInsteadOfMeText:
|
|
text_far _BillsHouseBillWhyDontYouGoInsteadOfMeText
|
|
text_end
|
|
|
|
BillsHousePrintBillCheckOutMyRarePokemonText::
|
|
ld hl, .text
|
|
call PrintText
|
|
ret
|
|
|
|
.text
|
|
text_far _BillsHouseBillCheckOutMyRarePokemonText
|
|
text_end
|
|
|
|
Func_f24ae::
|
|
ld a, [wCurMap]
|
|
cp BILLS_HOUSE
|
|
jr nz, .asm_f24d2
|
|
call CheckPikachuFollowingPlayer
|
|
jr z, .asm_f24d2
|
|
ld a, [wBillsHouseCurScript]
|
|
cp SCRIPT_BILLSHOUSE_SCRIPT5
|
|
ldpikaemotion e, PikachuEmotion27
|
|
ret z
|
|
cp SCRIPT_BILLSHOUSE_SCRIPT0
|
|
ldpikaemotion e, PikachuEmotion23
|
|
ret z
|
|
CheckEventHL EVENT_MET_BILL_2
|
|
ldpikaemotion e, PikachuEmotion32
|
|
ret z
|
|
ldpikaemotion e, PikachuEmotion31
|
|
ret
|
|
|
|
.asm_f24d2
|
|
ld e, $ff
|
|
ret
|
|
|
|
Func_f24d5::
|
|
ld a, A_BUTTON | B_BUTTON | SELECT | START | D_RIGHT | D_LEFT | D_UP | D_DOWN
|
|
ld [wJoyIgnore], a
|
|
xor a
|
|
ld [wPlayerMovingDirection], a
|
|
call UpdateSprites
|
|
call UpdateSprites
|
|
ld hl, Data_f2505
|
|
call ApplyPikachuMovementData
|
|
ld a, $f ; pikachu
|
|
ld [wEmotionBubbleSpriteIndex], a
|
|
ld a, QUESTION_BUBBLE
|
|
ld [wWhichEmotionBubble], a
|
|
predef EmotionBubble
|
|
call DisablePikachuFollowingPlayer
|
|
callfar InitializePikachuTextID
|
|
ret
|
|
|
|
Data_f2505:
|
|
db $00
|
|
db $20
|
|
db $20
|
|
db $20
|
|
db $1e
|
|
db $3f
|
|
|
|
Func_f250b::
|
|
ld hl, Data_f251c
|
|
ld b, SPRITE_FACING_UP
|
|
call TryApplyPikachuMovementData
|
|
ld hl, Data_f2521
|
|
ld b, SPRITE_FACING_RIGHT
|
|
call TryApplyPikachuMovementData
|
|
ret
|
|
|
|
Data_f251c:
|
|
db $00
|
|
db $1f
|
|
db $1d
|
|
db $38
|
|
db $3f
|
|
|
|
Data_f2521:
|
|
db $00
|
|
db $1e
|
|
db $1f
|
|
db $1f
|
|
db $1d
|
|
db $38
|
|
db $3f
|