pokecrystal/engine/routines/leveluphappinessmod.asm

LevelUpHappinessMod: ; 2709e
	ld a, [CurPartyMon]
	ld hl, PartyMon1CaughtLocation
	call GetPartyLocation
	ld a, [hl]
	and $7f
	ld d, a
	ld a, [MapGroup]
	ld b, a
	ld a, [MapNumber]
	ld c, a
	call GetWorldMapLocation
	cp d
	ld c, HAPPINESS_GAINLEVEL
	jr nz, .ok
	ld c, HAPPINESS_GAINLEVELATHOME

.ok
	callfar ChangeHappiness
	ret
Remove all code from main.asm (some labeled INCBINs, like out-of-context graphics, are still present) engine/routines/ stores isolated out-of-context routines as individual files. It might be preferable later to append them to their related engine/ files in unique little SECTIONs, relying on the linkerscript to place them appropriately; or some other organization method. In the meantime, they're now easily findable apart from main.asm's other content. 2017-12-25 00:35:35 +00:00			`LevelUpHappinessMod: ; 2709e`
			`ld a, [CurPartyMon]`
			`ld hl, PartyMon1CaughtLocation`
			`call GetPartyLocation`
			`ld a, [hl]`
			`and $7f`
			`ld d, a`
			`ld a, [MapGroup]`
			`ld b, a`
			`ld a, [MapNumber]`
			`ld c, a`
			`call GetWorldMapLocation`
			`cp d`
			`ld c, HAPPINESS_GAINLEVEL`
			`jr nz, .ok`
			`ld c, HAPPINESS_GAINLEVELATHOME`

			`.ok`
			`callfar ChangeHappiness`
			`ret`