Remove mom saving/spending coins (#1); add coins gained from a trainer battle to wCurLevelCoins (#30)

engine/events/coins.asm

@@ -27,7 +27,7 @@ LoadMaxCoins_bc:
 	cp HIGH(wCurLevelCoins)
 	ld bc, MaxCurLevelCoins ; CUR_LEVEL_COINS
 	ret z
-	ld bc, MaxCoins ; YOUR_COINS or MOMS_COINS
+	ld bc, MaxCoins ; YOUR_COINS
 	ret
 
 LoadMaxCoins_hl:

engine/events/mom_phone.asm

@@ -1,239 +0,0 @@
-DEF NUM_MOM_ITEMS_1 EQUS "((MomItems_1.End - MomItems_1) / 8)"
-DEF NUM_MOM_ITEMS_2 EQUS "((MomItems_2.End - MomItems_2) / 8)"
-
-	const_def 1
-	const MOM_ITEM
-	const MOM_DOLL
-
-MomTriesToBuySomething::
-	ld a, [wMapReentryScriptQueueFlag]
-	and a
-	ret nz
-	call GetMapPhoneService
-	and a
-	ret nz
-	xor a
-	ld [wWhichMomItemSet], a
-	call CheckBalance_MomItem2
-	ret nc
-	call Mom_GiveItemOrDoll
-	ret nc
-	ld b, BANK(.Script)
-	ld de, .Script
-	farcall LoadMemScript
-	scf
-	ret
-
-.Script:
-	callasm .ASMFunction
-	farsjump Script_ReceivePhoneCall
-
-.ASMFunction:
-	call MomBuysItem_DeductFunds
-	call Mom_GetScriptPointer
-	ld a, [wWhichMomItemSet]
-	and a
-	jr nz, .ok
-	ld hl, wWhichMomItem
-	inc [hl]
-.ok
-	ld a, PHONE_MOM
-	ld [wCurCaller], a
-	ld bc, wCallerContact
-	ld hl, PHONE_CONTACT_TRAINER_CLASS
-	add hl, bc
-	ld [hl], TRAINER_NONE
-	inc hl
-	ld [hl], PHONE_MOM
-	ld hl, PHONE_CONTACT_SCRIPT2_BANK
-	add hl, bc
-	ld a, BANK(Mom_GetScriptPointer)
-	ld [hli], a
-	ld a, e
-	ld [hli], a
-	ld a, d
-	ld [hl], a
-	ret
-
-CheckBalance_MomItem2:
-	ld a, [wWhichMomItem]
-	cp NUM_MOM_ITEMS_2
-	jr nc, .nope
-	call GetItemFromMom
-	ld a, [hli]
-	ldh [hCoinsTemp], a
-	ld a, [hli]
-	ldh [hCoinsTemp + 1], a
-	ld a, [hli]
-	ldh [hCoinsTemp + 2], a
-	ld de, wMomsCoins
-	ld bc, hCoinsTemp
-	farcall CompareCoins
-	jr nc, .have_enough_coins
-
-.nope
-	jr .check_have_2300
-
-.have_enough_coins
-	scf
-	ret
-
-.check_have_2300
-	ld hl, hCoinsTemp
-	ld [hl], HIGH(MOM_COINS >> 8)
-	inc hl
-	ld [hl], HIGH(MOM_COINS) ; mid
-	inc hl
-	ld [hl], LOW(MOM_COINS)
-.loop
-	ld de, wMomItemTriggerBalance
-	ld bc, wMomsCoins
-	farcall CompareCoins
-	jr z, .exact
-	jr nc, .less_than
-	call .AddCoins
-	jr .loop
-
-.less_than
-	xor a
-	ret
-
-.exact
-	call .AddCoins
-	ld a, NUM_MOM_ITEMS_1
-	call RandomRange
-	inc a
-	ld [wWhichMomItemSet], a
-	scf
-	ret
-
-.AddCoins:
-	ld de, wMomItemTriggerBalance
-	ld bc, hCoinsTemp
-	farcall AddCoins
-	ret
-
-MomBuysItem_DeductFunds:
-	call GetItemFromMom
-	ld de, 3 ; cost
-	add hl, de
-	ld a, [hli]
-	ldh [hCoinsTemp], a
-	ld a, [hli]
-	ldh [hCoinsTemp + 1], a
-	ld a, [hli]
-	ldh [hCoinsTemp + 2], a
-	ld de, wMomsCoins
-	ld bc, hCoinsTemp
-	farcall TakeCoins
-	ret
-
-Mom_GiveItemOrDoll:
-	call GetItemFromMom
-	ld de, 6 ; item type
-	add hl, de
-	ld a, [hli]
-	cp MOM_ITEM
-	jr z, .not_doll
-	ld a, [hl]
-	ld c, a
-	ld b, 1
-	farcall DecorationFlagAction_c
-	scf
-	ret
-
-.not_doll
-	ld a, [hl]
-	ld [wCurItem], a
-	ld a, 1
-	ld [wItemQuantityChange], a
-	ld hl, wNumPCItems
-	call ReceiveItem
-	ret
-
-Mom_GetScriptPointer:
-	call GetItemFromMom
-	ld de, 6 ; item type
-	add hl, de
-	ld a, [hli]
-	ld de, .ItemScript
-	cp MOM_ITEM
-	ret z
-	ld de, .DollScript
-	ret
-
-.ItemScript:
-	writetext MomHiHowAreYouText
-	writetext MomFoundAnItemText
-	writetext MomBoughtWithYourCoinsText
-	writetext MomItsInPCText
-	end
-
-.DollScript:
-	writetext MomHiHowAreYouText
-	writetext MomFoundADollText
-	writetext MomBoughtWithYourCoinsText
-	writetext MomItsInYourRoomText
-	end
-
-GetItemFromMom:
-	ld a, [wWhichMomItemSet]
-	and a
-	jr z, .zero
-	dec a
-	ld de, MomItems_1
-	jr .GetFromList1
-
-.zero
-	ld a, [wWhichMomItem]
-	cp NUM_MOM_ITEMS_2
-	jr c, .ok
-	xor a
-
-.ok
-	ld de, MomItems_2
-
-.GetFromList1:
-	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"
-
-MomHiHowAreYouText:
-	text_far _MomHiHowAreYouText
-	text_end
-
-MomFoundAnItemText:
-	text_far _MomFoundAnItemText
-	text_end
-
-MomBoughtWithYourCoinsText:
-	text_far _MomBoughtWithYourCoinsText
-	text_end
-
-MomItsInPCText:
-	text_far _MomItsInPCText
-	text_end
-
-MomFoundADollText:
-	text_far _MomFoundADollText
-	text_end
-
-MomItsInYourRoomText:
-	text_far _MomItsInYourRoomText
-	text_end
-
-
-DummyPredef3A_DummyData: ; unreferenced
-	db 0
-
-DummyPredef3A:
-	ret
-
-DummyPredef3A_DummyFunction: ; unreferenced
-	ret