pokecrystal/engine/events/happiness_egg.asm

221 lines
3.1 KiB
NASM
Raw Normal View History

2018-06-24 14:09:41 +00:00
GetFirstPokemonHappiness:
2018-01-23 22:39:09 +00:00
ld hl, wPartyMon1Happiness
2016-03-27 16:47:28 +00:00
ld bc, PARTYMON_STRUCT_LENGTH
2018-01-23 22:39:09 +00:00
ld de, wPartySpecies
2016-03-27 16:47:28 +00:00
.loop
ld a, [de]
cp EGG
jr nz, .done
inc de
add hl, bc
jr .loop
.done
ld [wd265], a
ld a, [hl]
2018-01-23 22:39:09 +00:00
ld [wScriptVar], a
2016-03-27 16:47:28 +00:00
call GetPokemonName
jp CopyPokemonName_Buffer1_Buffer3
2018-06-24 14:09:41 +00:00
CheckFirstMonIsEgg:
2018-01-23 22:39:09 +00:00
ld a, [wPartySpecies]
2016-03-27 16:47:28 +00:00
ld [wd265], a
cp EGG
2018-01-12 06:40:20 +00:00
ld a, 1
2016-03-27 16:47:28 +00:00
jr z, .egg
xor a
.egg
2018-01-23 22:39:09 +00:00
ld [wScriptVar], a
2016-03-27 16:47:28 +00:00
call GetPokemonName
jp CopyPokemonName_Buffer1_Buffer3
2018-06-24 14:09:41 +00:00
ChangeHappiness:
2018-01-23 22:39:09 +00:00
; Perform happiness action c on wCurPartyMon
2016-03-27 16:47:28 +00:00
2018-01-23 22:39:09 +00:00
ld a, [wCurPartyMon]
2016-03-27 16:47:28 +00:00
inc a
ld e, a
ld d, 0
2018-01-23 22:39:09 +00:00
ld hl, wPartySpecies - 1
2016-03-27 16:47:28 +00:00
add hl, de
ld a, [hl]
cp EGG
ret z
push bc
2018-01-23 22:39:09 +00:00
ld hl, wPartyMon1Happiness
2016-03-27 16:47:28 +00:00
ld bc, PARTYMON_STRUCT_LENGTH
2018-01-23 22:39:09 +00:00
ld a, [wCurPartyMon]
2016-03-27 16:47:28 +00:00
call AddNTimes
pop bc
ld d, h
ld e, l
push de
ld a, [de]
cp HAPPINESS_THRESHOLD_1
2016-03-27 16:47:28 +00:00
ld e, 0
jr c, .ok
inc e
cp HAPPINESS_THRESHOLD_2
2016-03-27 16:47:28 +00:00
jr c, .ok
inc e
.ok
dec c
ld b, 0
ld hl, HappinessChanges
2016-03-27 16:47:28 +00:00
add hl, bc
add hl, bc
add hl, bc
2016-03-27 16:47:28 +00:00
ld d, 0
add hl, de
ld a, [hl]
cp $64 ; why not $80?
2016-03-27 16:47:28 +00:00
pop de
ld a, [de]
jr nc, .negative
add [hl]
jr nc, .done
ld a, -1
jr .done
.negative
add [hl]
jr c, .done
xor a
.done
ld [de], a
ld a, [wBattleMode]
and a
ret z
2018-01-23 22:39:09 +00:00
ld a, [wCurPartyMon]
2016-03-27 16:47:28 +00:00
ld b, a
ld a, [wPartyMenuCursor]
cp b
ret nz
ld a, [de]
2018-01-23 22:39:09 +00:00
ld [wBattleMonHappiness], a
2016-03-27 16:47:28 +00:00
ret
2018-01-26 03:19:24 +00:00
INCLUDE "data/events/happiness_changes.asm"
2016-03-27 16:47:28 +00:00
2018-06-24 14:09:41 +00:00
StepHappiness::
2016-03-27 16:47:28 +00:00
; Raise the party's happiness by 1 point every other step cycle.
ld hl, wHappinessStepCount
ld a, [hl]
inc a
and 1
ld [hl], a
ret nz
2018-01-23 22:39:09 +00:00
ld de, wPartyCount
2016-03-27 16:47:28 +00:00
ld a, [de]
and a
ret z
ld c, a
2018-01-23 22:39:09 +00:00
ld hl, wPartyMon1Happiness
2016-03-27 16:47:28 +00:00
.loop
inc de
ld a, [de]
cp EGG
jr z, .next
inc [hl]
jr nz, .next
ld [hl], $ff
.next
push de
ld de, PARTYMON_STRUCT_LENGTH
add hl, de
pop de
dec c
jr nz, .loop
ret
2018-06-24 14:09:41 +00:00
DayCareStep::
; Raise the experience of Day-Care Pokémon every step cycle.
2016-03-27 16:47:28 +00:00
ld a, [wDayCareMan]
2018-01-22 18:18:23 +00:00
bit DAYCAREMAN_HAS_MON_F, a
jr z, .day_care_lady
2016-03-27 16:47:28 +00:00
ld a, [wBreedMon1Level] ; level
cp MAX_LEVEL
jr nc, .day_care_lady
2016-03-27 16:47:28 +00:00
ld hl, wBreedMon1Exp + 2 ; exp
inc [hl]
jr nz, .day_care_lady
2016-03-27 16:47:28 +00:00
dec hl
inc [hl]
jr nz, .day_care_lady
2016-03-27 16:47:28 +00:00
dec hl
inc [hl]
ld a, [hl]
cp HIGH(MAX_DAY_CARE_EXP >> 8)
jr c, .day_care_lady
ld a, HIGH(MAX_DAY_CARE_EXP >> 8)
2016-03-27 16:47:28 +00:00
ld [hl], a
.day_care_lady
ld a, [wDayCareLady]
2018-01-22 18:18:23 +00:00
bit DAYCARELADY_HAS_MON_F, a
2016-03-27 16:47:28 +00:00
jr z, .check_egg
ld a, [wBreedMon2Level] ; level
cp MAX_LEVEL
2016-03-27 16:47:28 +00:00
jr nc, .check_egg
ld hl, wBreedMon2Exp + 2 ; exp
inc [hl]
jr nz, .check_egg
dec hl
inc [hl]
jr nz, .check_egg
dec hl
inc [hl]
ld a, [hl]
cp HIGH(MAX_DAY_CARE_EXP >> 8)
2016-03-27 16:47:28 +00:00
jr c, .check_egg
ld a, HIGH(MAX_DAY_CARE_EXP >> 8)
2016-03-27 16:47:28 +00:00
ld [hl], a
.check_egg
ld hl, wDayCareMan
2018-01-22 18:18:23 +00:00
bit DAYCAREMAN_MONS_COMPATIBLE_F, [hl]
2016-03-27 16:47:28 +00:00
ret z
ld hl, wStepsToEgg
dec [hl]
ret nz
call Random
ld [hl], a
2017-12-24 17:47:30 +00:00
callfar CheckBreedmonCompatibility
2016-03-27 16:47:28 +00:00
ld a, [wd265]
cp 230
ld b, 32 percent - 1
2016-03-27 16:47:28 +00:00
jr nc, .okay
ld a, [wd265]
cp 170
ld b, 16 percent
jr nc, .okay
ld a, [wd265]
cp 110
ld b, 12 percent
jr nc, .okay
ld b, 4 percent
.okay
call Random
cp b
ret nc
ld hl, wDayCareMan
2018-01-22 18:18:23 +00:00
res DAYCAREMAN_MONS_COMPATIBLE_F, [hl]
set DAYCAREMAN_HAS_EGG_F, [hl]
2016-03-27 16:47:28 +00:00
ret