pokecrystal-board/engine/events/haircut.asm

BillsGrandfather:
	farcall SelectMonFromParty
	jr c, .cancel
	ld a, [wCurPartySpecies]
	ldh [hScriptVar], a
	ld [wNamedObjectIndex], a
	call GetPokemonName
	jp CopyPokemonName_Buffer1_Buffer3

.cancel
	xor a
	ldh [hScriptVar], a
	ret

OlderHaircutBrother:
	ld hl, HappinessData_OlderHaircutBrother
	jr HaircutOrGrooming

YoungerHaircutBrother:
	ld hl, HappinessData_YoungerHaircutBrother
	jr HaircutOrGrooming

DaisysGrooming:
	ld hl, HappinessData_DaisysGrooming
	; fallthrough

HaircutOrGrooming:
	push hl
	farcall SelectMonFromParty
	pop hl
	jr c, .nope
	ld a, [wCurPartySpecies]
	cp EGG
	jr z, .egg
	push hl
	call GetCurNickname
	call CopyPokemonName_Buffer1_Buffer3
	pop hl
	call Random
.loop
	sub [hl]
	jr c, .ok
	inc hl
	inc hl
	inc hl
	jr .loop

.ok
	inc hl
	ld a, [hli]
	ldh [hScriptVar], a
	ld c, [hl]
	call ChangeHappiness
	ret

.nope
	xor a
	ldh [hScriptVar], a
	ret

.egg
	ld a, 1
	ldh [hScriptVar], a
	ret

INCLUDE "data/events/happiness_probabilities.asm"

CopyPokemonName_Buffer1_Buffer3:
	ld hl, wStringBuffer1
	ld de, wStringBuffer3
	ld bc, MON_NAME_LENGTH
	jp CopyBytes

DummyPredef1:
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`BillsGrandfather:`
Fix snake_case filenames Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames. 2018-04-04 13:26:07 -07:00			`farcall SelectMonFromParty`
			`jr c, .cancel`
			`ld a, [wCurPartySpecies]`
Optimize some HRAM usage 2023-09-30 10:12:57 -07:00			`ldh [hScriptVar], a`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 13:29:30 -08:00			`ld [wNamedObjectIndex], a`
Fix snake_case filenames Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames. 2018-04-04 13:26:07 -07:00			`call GetPokemonName`
			`jp CopyPokemonName_Buffer1_Buffer3`

			`.cancel`
			`xor a`
Optimize some HRAM usage 2023-09-30 10:12:57 -07:00			`ldh [hScriptVar], a`
Fix snake_case filenames Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames. 2018-04-04 13:26:07 -07:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`OlderHaircutBrother:`
Fix snake_case filenames Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames. 2018-04-04 13:26:07 -07:00			`ld hl, HappinessData_OlderHaircutBrother`
			`jr HaircutOrGrooming`

Correct the older+younger haircut brothers' labels and constants 2019-05-18 10:27:32 -07:00			`YoungerHaircutBrother:`
			`ld hl, HappinessData_YoungerHaircutBrother`
			`jr HaircutOrGrooming`

Remove all address comments 2018-06-24 07:09:41 -07:00			`DaisysGrooming:`
Fix snake_case filenames Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames. 2018-04-04 13:26:07 -07:00			`ld hl, HappinessData_DaisysGrooming`
			`; fallthrough`

Remove all address comments 2018-06-24 07:09:41 -07:00			`HaircutOrGrooming:`
Fix snake_case filenames Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames. 2018-04-04 13:26:07 -07:00			`push hl`
			`farcall SelectMonFromParty`
			`pop hl`
			`jr c, .nope`
			`ld a, [wCurPartySpecies]`
			`cp EGG`
			`jr z, .egg`
			`push hl`
Consistent labels for each nickname in RAM 2021-03-17 13:16:02 -07:00			`call GetCurNickname`
Fix snake_case filenames Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames. 2018-04-04 13:26:07 -07:00			`call CopyPokemonName_Buffer1_Buffer3`
			`pop hl`
			`call Random`
			`.loop`
			`sub [hl]`
			`jr c, .ok`
			`inc hl`
			`inc hl`
			`inc hl`
			`jr .loop`

			`.ok`
			`inc hl`
			`ld a, [hli]`
Optimize some HRAM usage 2023-09-30 10:12:57 -07:00			`ldh [hScriptVar], a`
Fix snake_case filenames Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames. 2018-04-04 13:26:07 -07:00			`ld c, [hl]`
			`call ChangeHappiness`
			`ret`

			`.nope`
			`xor a`
Optimize some HRAM usage 2023-09-30 10:12:57 -07:00			`ldh [hScriptVar], a`
Fix snake_case filenames Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames. 2018-04-04 13:26:07 -07:00			`ret`

			`.egg`
			`ld a, 1`
Optimize some HRAM usage 2023-09-30 10:12:57 -07:00			`ldh [hScriptVar], a`
Fix snake_case filenames Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames. 2018-04-04 13:26:07 -07:00			`ret`

			`INCLUDE "data/events/happiness_probabilities.asm"`

Remove all address comments 2018-06-24 07:09:41 -07:00			`CopyPokemonName_Buffer1_Buffer3:`
Fix snake_case filenames Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames. 2018-04-04 13:26:07 -07:00			`ld hl, wStringBuffer1`
			`ld de, wStringBuffer3`
			`ld bc, MON_NAME_LENGTH`
			`jp CopyBytes`

Remove all address comments 2018-06-24 07:09:41 -07:00			`DummyPredef1:`
Fix snake_case filenames Renamed a bunch of files, most of them one-off functions, to better fit the general snake_case naming scheme. Also renamed some awfully long filenames. 2018-04-04 13:26:07 -07:00			`ret`