pokecrystal-board/engine/events/mom_phone.asm

245 lines
3.7 KiB
NASM
Raw Normal View History

NUM_MOM_ITEMS_1 EQUS "((MomItems_1.End - MomItems_1) / 8)"
NUM_MOM_ITEMS_2 EQUS "((MomItems_2.End - MomItems_2) / 8)"
const_value = 1
const MOM_ITEM
const MOM_DOLL
2018-06-24 07:09:41 -07:00
MomTriesToBuySomething::
2015-11-19 15:07:20 -08:00
ld a, [wMapReentryScriptQueueFlag]
and a
ret nz
call GetMapPhoneService
2015-11-19 15:07:20 -08:00
and a
ret nz
xor a
ld [wWhichMomItemSet], a
2015-11-19 15:07:20 -08:00
call CheckBalance_MomItem2
ret nc
2015-12-18 17:07:09 -08:00
call Mom_GiveItemOrDoll
2015-11-19 15:07:20 -08:00
ret nc
2015-12-18 17:07:09 -08:00
ld b, BANK(.Script)
ld de, .Script
2017-12-24 09:47:30 -08:00
farcall LoadScriptBDE
2015-11-19 15:07:20 -08:00
scf
ret
.Script:
2015-12-18 17:07:09 -08:00
callasm .ASMFunction
2015-11-19 15:07:20 -08:00
farjump Script_ReceivePhoneCall
2018-06-24 07:09:41 -07:00
.ASMFunction:
2015-11-19 15:07:20 -08:00
call MomBuysItem_DeductFunds
2015-12-18 17:07:09 -08:00
call Mom_GetScriptPointer
ld a, [wWhichMomItemSet]
2015-11-19 15:07:20 -08:00
and a
jr nz, .ok
ld hl, wWhichMomItem
2015-11-19 15:07:20 -08:00
inc [hl]
.ok
2015-12-18 17:07:09 -08:00
ld a, PHONE_MOM
2018-09-09 12:09:51 -07:00
ld [wCurCaller], a
2018-01-23 14:39:09 -08:00
ld bc, wEngineBuffer2
2015-11-19 15:07:20 -08:00
ld hl, 0
add hl, bc
ld [hl], 0
inc hl
ld [hl], 1
2018-01-23 14:39:09 -08:00
ld hl, wPhoneScriptPointer - wEngineBuffer2
2015-11-19 15:07:20 -08:00
add hl, bc
2015-12-18 17:07:09 -08:00
ld a, BANK(Mom_GetScriptPointer)
2015-11-19 15:07:20 -08:00
ld [hli], a
ld a, e
ld [hli], a
ld a, d
ld [hl], a
ret
2018-06-24 07:09:41 -07:00
CheckBalance_MomItem2:
ld a, [wWhichMomItem]
cp NUM_MOM_ITEMS_2
2015-11-19 15:07:20 -08:00
jr nc, .nope
call GetItemFromMom
ld a, [hli]
ldh [hMoneyTemp], a
2015-11-19 15:07:20 -08:00
ld a, [hli]
ldh [hMoneyTemp + 1], a
2015-11-19 15:07:20 -08:00
ld a, [hli]
ldh [hMoneyTemp + 2], a
2015-11-19 15:07:20 -08:00
ld de, wMomsMoney
ld bc, hMoneyTemp
2017-12-24 09:47:30 -08:00
farcall CompareMoney
2015-11-19 15:07:20 -08:00
jr nc, .have_enough_money
.nope
jr .check_have_2300
.have_enough_money
scf
ret
.check_have_2300
ld hl, hMoneyTemp
ld [hl], HIGH(MOM_MONEY >> 8)
2015-11-19 15:07:20 -08:00
inc hl
ld [hl], HIGH(MOM_MONEY) ; mid
2015-11-19 15:07:20 -08:00
inc hl
ld [hl], LOW(MOM_MONEY)
2015-11-19 15:07:20 -08:00
.loop
2018-01-23 14:39:09 -08:00
ld de, wMomItemTriggerBalance
2015-11-19 15:07:20 -08:00
ld bc, wMomsMoney
2017-12-24 09:47:30 -08:00
farcall CompareMoney
2015-11-19 15:07:20 -08:00
jr z, .exact
jr nc, .less_than
call .AddMoney
2015-11-19 15:07:20 -08:00
jr .loop
.less_than
xor a
ret
.exact
call .AddMoney
ld a, NUM_MOM_ITEMS_1
2015-11-19 15:07:20 -08:00
call RandomRange
inc a
ld [wWhichMomItemSet], a
2015-11-19 15:07:20 -08:00
scf
ret
.AddMoney:
2018-01-23 14:39:09 -08:00
ld de, wMomItemTriggerBalance
2015-11-19 15:07:20 -08:00
ld bc, hMoneyTemp
2017-12-24 09:47:30 -08:00
farcall AddMoney
2015-11-19 15:07:20 -08:00
ret
2018-06-24 07:09:41 -07:00
MomBuysItem_DeductFunds:
2015-11-19 15:07:20 -08:00
call GetItemFromMom
2015-12-18 17:07:09 -08:00
ld de, 3 ; cost
2015-11-19 15:07:20 -08:00
add hl, de
ld a, [hli]
ldh [hMoneyTemp], a
2015-11-19 15:07:20 -08:00
ld a, [hli]
ldh [hMoneyTemp + 1], a
2015-11-19 15:07:20 -08:00
ld a, [hli]
ldh [hMoneyTemp + 2], a
2015-11-19 15:07:20 -08:00
ld de, wMomsMoney
ld bc, hMoneyTemp
2017-12-24 09:47:30 -08:00
farcall TakeMoney
2015-11-19 15:07:20 -08:00
ret
2018-06-24 07:09:41 -07:00
Mom_GiveItemOrDoll:
2015-11-19 15:07:20 -08:00
call GetItemFromMom
2015-12-18 17:07:09 -08:00
ld de, 6 ; item type
2015-11-19 15:07:20 -08:00
add hl, de
ld a, [hli]
2015-12-18 17:07:09 -08:00
cp MOM_ITEM
2015-11-19 15:07:20 -08:00
jr z, .not_doll
ld a, [hl]
ld c, a
ld b, 1
2017-12-24 09:47:30 -08:00
farcall DecorationFlagAction_c
2015-11-19 15:07:20 -08:00
scf
ret
.not_doll
ld a, [hl]
2018-01-23 14:39:09 -08:00
ld [wCurItem], a
2015-12-18 17:07:09 -08:00
ld a, 1
2015-11-19 15:07:20 -08:00
ld [wItemQuantityChangeBuffer], a
2018-01-23 14:39:09 -08:00
ld hl, wPCItems
2015-11-19 15:07:20 -08:00
call ReceiveItem
ret
2018-06-24 07:09:41 -07:00
Mom_GetScriptPointer:
2015-11-19 15:07:20 -08:00
call GetItemFromMom
2015-12-18 17:07:09 -08:00
ld de, 6 ; item type
2015-11-19 15:07:20 -08:00
add hl, de
ld a, [hli]
2015-12-18 17:07:09 -08:00
ld de, .ItemScript
cp MOM_ITEM
2015-11-19 15:07:20 -08:00
ret z
2015-12-18 17:07:09 -08:00
ld de, .DollScript
2015-11-19 15:07:20 -08:00
ret
.ItemScript:
2015-11-19 15:07:20 -08:00
writetext _MomText_HiHowAreYou
writetext _MomText_FoundAnItem
writetext _MomText_BoughtWithYourMoney
writetext _MomText_ItsInPC
end
.DollScript:
2015-11-19 15:07:20 -08:00
writetext _MomText_HiHowAreYou
writetext _MomText_FoundADoll
writetext _MomText_BoughtWithYourMoney
writetext _MomText_ItsInRoom
end
2018-06-24 07:09:41 -07:00
GetItemFromMom:
ld a, [wWhichMomItemSet]
2015-11-19 15:07:20 -08:00
and a
jr z, .zero
dec a
ld de, MomItems_1
2015-12-18 17:07:09 -08:00
jr .GetFromList1
2015-11-19 15:07:20 -08:00
.zero
ld a, [wWhichMomItem]
cp NUM_MOM_ITEMS_2
2015-11-19 15:07:20 -08:00
jr c, .ok
xor a
.ok
ld de, MomItems_2
.GetFromList1:
2015-11-19 15:07:20 -08:00
ld l, a
ld h, 0
rept 3 ; multiply hl by 8
add hl, hl
endr
add hl, de
ret
INCLUDE "data/items/mom_phone.asm"
2015-11-19 15:07:20 -08:00
db 0, 0, 0 ; unused
2015-11-19 15:07:20 -08:00
_MomText_HiHowAreYou:
2015-11-19 15:07:20 -08:00
; Hi, ! How are you?
text_far UnknownText_0x1bc615
text_end
2015-11-19 15:07:20 -08:00
_MomText_FoundAnItem:
2015-11-19 15:07:20 -08:00
; I found a useful item shopping, so
text_far UnknownText_0x1bc62a
text_end
2015-11-19 15:07:20 -08:00
_MomText_BoughtWithYourMoney:
2015-11-19 15:07:20 -08:00
; I bought it with your money. Sorry!
text_far UnknownText_0x1bc64e
text_end
2015-11-19 15:07:20 -08:00
_MomText_ItsInPC:
2015-11-19 15:07:20 -08:00
; It's in your PC. You'll like it!
text_far UnknownText_0x1bc673
text_end
2015-11-19 15:07:20 -08:00
_MomText_FoundADoll:
2015-11-19 15:07:20 -08:00
; While shopping today, I saw this adorable doll, so
text_far UnknownText_0x1bc693
text_end
2015-11-19 15:07:20 -08:00
_MomText_ItsInRoom:
2015-11-19 15:07:20 -08:00
; It's in your room. You'll love it!
text_far UnknownText_0x1bc6c7
text_end
2015-11-19 15:07:20 -08:00
db 0 ; unused
2015-11-19 15:07:20 -08:00
2018-06-24 07:09:41 -07:00
DummyPredef3A:
2015-11-19 15:07:20 -08:00
ret
ret ; unused