pokecrystal-board/engine/overworld/wildmons.asm

961 lines
15 KiB
NASM
Raw Permalink Normal View History

2018-06-24 07:09:41 -07:00
LoadWildMonData:
2015-11-16 13:01:45 -08:00
call _GrassWildmonLookup
jr c, .copy
2015-12-09 08:38:40 -08:00
ld hl, wMornEncounterRate
2015-11-16 13:01:45 -08:00
xor a
ld [hli], a
ld [hli], a
2023-07-31 03:27:53 -07:00
ld [hli], a
2015-11-16 13:01:45 -08:00
ld [hl], a
jr .done_copy
2015-12-09 08:38:40 -08:00
2015-11-16 13:01:45 -08:00
.copy
inc hl
inc hl
2015-12-09 08:38:40 -08:00
ld de, wMornEncounterRate
2023-07-31 03:27:53 -07:00
ld bc, NUM_DAYTIMES
2015-11-16 13:01:45 -08:00
call CopyBytes
.done_copy
call _WaterWildmonLookup
2015-12-09 08:38:40 -08:00
ld a, 0
2015-11-16 13:01:45 -08:00
jr nc, .no_copy
inc hl
inc hl
ld a, [hl]
.no_copy
2015-12-09 08:38:40 -08:00
ld [wWaterEncounterRate], a
2015-11-16 13:01:45 -08:00
ret
2018-06-24 07:09:41 -07:00
FindNest:
2015-12-09 08:38:40 -08:00
; Parameters:
; e: 0 = Johto, 1 = Kanto
; wNamedObjectIndex: species
2015-11-16 13:01:45 -08:00
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
xor a
call ByteFill
ld a, e
and a
jr nz, .kanto
decoord 0, 0
ld hl, JohtoGrassWildMons
2015-12-09 08:38:40 -08:00
call .FindGrass
2015-11-16 13:01:45 -08:00
ld hl, JohtoWaterWildMons
2015-12-09 08:38:40 -08:00
call .FindWater
call .RoamMon1
call .RoamMon2
2015-11-16 13:01:45 -08:00
ret
.kanto
decoord 0, 0
ld hl, KantoGrassWildMons
2015-12-09 08:38:40 -08:00
call .FindGrass
2015-11-16 13:01:45 -08:00
ld hl, KantoWaterWildMons
2015-12-09 08:38:40 -08:00
jp .FindWater
2015-11-16 13:01:45 -08:00
2018-06-24 07:09:41 -07:00
.FindGrass:
2015-11-16 13:01:45 -08:00
ld a, [hl]
2015-12-09 08:38:40 -08:00
cp -1
2015-11-16 13:01:45 -08:00
ret z
push hl
ld a, [hli]
ld b, a
ld a, [hli]
ld c, a
inc hl
inc hl
inc hl
ld a, NUM_GRASSMON * 3
2015-12-09 08:38:40 -08:00
call .SearchMapForMon
jr nc, .next_grass
2015-11-16 13:01:45 -08:00
ld [de], a
inc de
2015-12-09 08:38:40 -08:00
.next_grass
2015-11-16 13:01:45 -08:00
pop hl
ld bc, GRASS_WILDDATA_LENGTH
2015-11-16 13:01:45 -08:00
add hl, bc
2015-12-09 08:38:40 -08:00
jr .FindGrass
2015-11-16 13:01:45 -08:00
2018-06-24 07:09:41 -07:00
.FindWater:
2015-11-16 13:01:45 -08:00
ld a, [hl]
2015-12-09 08:38:40 -08:00
cp -1
2015-11-16 13:01:45 -08:00
ret z
push hl
ld a, [hli]
ld b, a
ld a, [hli]
ld c, a
inc hl
2018-06-24 09:32:56 -07:00
ld a, NUM_WATERMON
2015-12-09 08:38:40 -08:00
call .SearchMapForMon
jr nc, .next_water
2015-11-16 13:01:45 -08:00
ld [de], a
inc de
2015-12-09 08:38:40 -08:00
.next_water
2015-11-16 13:01:45 -08:00
pop hl
2018-06-24 09:30:33 -07:00
ld bc, WATER_WILDDATA_LENGTH
2015-11-16 13:01:45 -08:00
add hl, bc
2015-12-09 08:38:40 -08:00
jr .FindWater
2015-11-16 13:01:45 -08:00
2018-06-24 07:09:41 -07:00
.SearchMapForMon:
2015-11-16 13:01:45 -08:00
inc hl
.ScanMapLoop:
2015-11-16 13:01:45 -08:00
push af
ld a, [wNamedObjectIndex]
2015-11-16 13:01:45 -08:00
cp [hl]
jr z, .found
inc hl
inc hl
2015-11-16 13:01:45 -08:00
pop af
dec a
2015-12-09 08:38:40 -08:00
jr nz, .ScanMapLoop
2015-11-16 13:01:45 -08:00
and a
ret
.found
pop af
2015-12-09 08:38:40 -08:00
jp .AppendNest
2015-11-16 13:01:45 -08:00
2018-06-24 07:09:41 -07:00
.AppendNest:
2015-11-16 13:01:45 -08:00
push de
call GetWorldMapLocation
ld c, a
hlcoord 0, 0
ld de, SCREEN_WIDTH * SCREEN_HEIGHT
.AppendNestLoop:
2015-11-16 13:01:45 -08:00
ld a, [hli]
cp c
2015-12-09 08:38:40 -08:00
jr z, .found_nest
2015-11-16 13:01:45 -08:00
dec de
ld a, e
or d
2015-12-09 08:38:40 -08:00
jr nz, .AppendNestLoop
2015-11-16 13:01:45 -08:00
ld a, c
pop de
scf
ret
2015-12-09 08:38:40 -08:00
.found_nest
2015-11-16 13:01:45 -08:00
pop de
and a
ret
2018-06-24 07:09:41 -07:00
.RoamMon1:
2015-11-16 13:01:45 -08:00
ld a, [wRoamMon1Species]
ld b, a
ld a, [wNamedObjectIndex]
2015-11-16 13:01:45 -08:00
cp b
ret nz
ld a, [wRoamMon1MapGroup]
ld b, a
ld a, [wRoamMon1MapNumber]
ld c, a
2015-12-09 08:38:40 -08:00
call .AppendNest
2015-11-16 13:01:45 -08:00
ret nc
ld [de], a
inc de
ret
2018-06-24 07:09:41 -07:00
.RoamMon2:
2015-11-16 13:01:45 -08:00
ld a, [wRoamMon2Species]
ld b, a
ld a, [wNamedObjectIndex]
2015-11-16 13:01:45 -08:00
cp b
ret nz
ld a, [wRoamMon2MapGroup]
ld b, a
ld a, [wRoamMon2MapNumber]
ld c, a
2015-12-09 08:38:40 -08:00
call .AppendNest
2015-11-16 13:01:45 -08:00
ret nc
ld [de], a
inc de
ret
2018-06-24 07:09:41 -07:00
TryWildEncounter::
2015-11-16 13:01:45 -08:00
; Try to trigger a wild encounter.
call .EncounterRate
jr nc, .no_battle
call ChooseWildEncounter
jr nz, .no_battle
call CheckRepelEffect
jr nc, .no_battle
xor a
ret
.no_battle
xor a ; BATTLETYPE_NORMAL
2018-01-23 14:39:09 -08:00
ld [wTempWildMonSpecies], a
ld [wBattleType], a
2015-11-16 13:01:45 -08:00
ld a, 1
and a
ret
2018-06-24 07:09:41 -07:00
.EncounterRate:
2015-11-16 13:01:45 -08:00
call GetMapEncounterRate
call ApplyMusicEffectOnEncounterRate
call ApplyCleanseTagEffectOnEncounterRate
call Random
cp b
ret
2018-06-24 07:09:41 -07:00
GetMapEncounterRate:
2015-12-09 08:38:40 -08:00
ld hl, wMornEncounterRate
2015-11-16 13:01:45 -08:00
call CheckOnWater
2018-01-16 14:36:12 -08:00
ld a, wWaterEncounterRate - wMornEncounterRate
2015-11-16 13:01:45 -08:00
jr z, .ok
2018-01-23 14:39:09 -08:00
ld a, [wTimeOfDay]
2015-11-16 13:01:45 -08:00
.ok
ld c, a
ld b, 0
add hl, bc
ld b, [hl]
ret
2018-06-24 07:09:41 -07:00
ApplyMusicEffectOnEncounterRate::
2015-11-16 13:01:45 -08:00
; Pokemon March and Ruins of Alph signal double encounter rate.
; Pokemon Lullaby halves encounter rate.
ld a, [wMapMusic]
cp MUSIC_POKEMON_MARCH
jr z, .double
cp MUSIC_RUINS_OF_ALPH_RADIO
jr z, .double
cp MUSIC_POKEMON_LULLABY
ret nz
srl b
ret
.double
sla b
ret
2018-06-24 07:09:41 -07:00
ApplyCleanseTagEffectOnEncounterRate::
2015-11-16 13:01:45 -08:00
; Cleanse Tag halves encounter rate.
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1Item
2015-11-16 13:01:45 -08:00
ld de, PARTYMON_STRUCT_LENGTH
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
and a
ret z
2015-11-16 13:01:45 -08:00
ld c, a
.loop
ld a, [hl]
cp CLEANSE_TAG
jr z, .cleansetag
add hl, de
dec c
jr nz, .loop
ret
.cleansetag
srl b
ret
2018-06-24 07:09:41 -07:00
ChooseWildEncounter:
2015-11-16 13:01:45 -08:00
call LoadWildMonDataPointer
jp nc, .nowildbattle
call CheckEncounterRoamMon
jp c, .startwildbattle
inc hl
inc hl
inc hl
2015-11-16 13:01:45 -08:00
call CheckOnWater
ld de, WaterMonProbTable
2015-11-16 13:01:45 -08:00
jr z, .watermon
inc hl
inc hl
2018-01-23 14:39:09 -08:00
ld a, [wTimeOfDay]
2018-06-24 10:00:55 -07:00
ld bc, NUM_GRASSMON * 2
2015-11-16 13:01:45 -08:00
call AddNTimes
ld de, GrassMonProbTable
2015-11-16 13:01:45 -08:00
.watermon
; hl contains the pointer to the wild mon data, let's save that to the stack
push hl
.randomloop
call Random
cp 100
jr nc, .randomloop
inc a ; 1 <= a <= 100
ld b, a
ld h, d
ld l, e
; This next loop chooses which mon to load up.
.prob_bracket_loop
ld a, [hli]
cp b
jr nc, .got_it
inc hl
jr .prob_bracket_loop
.got_it
ld c, [hl]
ld b, 0
pop hl
add hl, bc ; this selects our mon
ld a, [hli]
ld b, a
; If the Pokemon is encountered by surfing, we need to give the levels some variety.
call CheckOnWater
jr nz, .ok
; Check if we buff the wild mon, and by how much.
call Random
cp 35 percent
jr c, .ok
inc b
cp 65 percent
jr c, .ok
inc b
cp 85 percent
jr c, .ok
inc b
cp 95 percent
jr c, .ok
inc b
; Store the level
.ok
; BUG: ChooseWildEncounter doesn't really validate the wild Pokemon species (see docs/bugs_and_glitches.md)
2015-11-16 13:01:45 -08:00
ld a, b
2018-01-23 14:39:09 -08:00
ld [wCurPartyLevel], a
2015-11-16 13:01:45 -08:00
ld b, [hl]
call ValidateTempWildMonSpecies
jr c, .nowildbattle
ld a, b
2015-11-16 13:01:45 -08:00
cp UNOWN
jr nz, .done
ld a, [wUnlockedUnowns]
2015-11-16 13:01:45 -08:00
and a
jr z, .nowildbattle
.done
jr .loadwildmon
.nowildbattle
ld a, 1
and a
ret
.loadwildmon
ld a, b
2018-01-23 14:39:09 -08:00
ld [wTempWildMonSpecies], a
2015-11-16 13:01:45 -08:00
.startwildbattle
xor a
ret
INCLUDE "data/wild/probabilities.asm"
2015-11-16 13:01:45 -08:00
2018-06-24 07:09:41 -07:00
CheckRepelEffect::
2015-11-16 13:01:45 -08:00
; If there is no active Repel, there's no need to be here.
ld a, [wRepelEffect]
and a
jr z, .encounter
; Get the first Pokemon in your party that isn't fainted.
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1HP
2015-11-16 13:01:45 -08:00
ld bc, PARTYMON_STRUCT_LENGTH - 1
.loop
ld a, [hli]
or [hl]
jr nz, .ok
add hl, bc
jr .loop
.ok
; to PartyMonLevel
rept 4
dec hl
endr
2018-01-23 14:39:09 -08:00
ld a, [wCurPartyLevel]
2015-11-16 13:01:45 -08:00
cp [hl]
jr nc, .encounter
and a
ret
.encounter
scf
ret
2018-06-24 07:09:41 -07:00
LoadWildMonDataPointer:
2015-11-16 13:01:45 -08:00
call CheckOnWater
jr z, _WaterWildmonLookup
2018-06-24 07:09:41 -07:00
_GrassWildmonLookup:
2015-11-16 13:01:45 -08:00
ld hl, SwarmGrassWildMons
ld bc, GRASS_WILDDATA_LENGTH
call _SwarmWildmonCheck
ret c
ld hl, JohtoGrassWildMons
ld bc, GRASS_WILDDATA_LENGTH
jr _NormalWildmonOK
2018-06-24 07:09:41 -07:00
_WaterWildmonLookup:
2015-11-16 13:01:45 -08:00
ld hl, SwarmWaterWildMons
ld bc, WATER_WILDDATA_LENGTH
call _SwarmWildmonCheck
ret c
ld hl, JohtoWaterWildMons
ld bc, WATER_WILDDATA_LENGTH
jr _NormalWildmonOK
_SwarmWildmonCheck:
2015-11-16 13:01:45 -08:00
call CopyCurrMapDE
push hl
ld hl, wSwarmFlags
2018-01-22 12:40:43 -08:00
bit SWARMFLAGS_DUNSPARCE_SWARM_F, [hl]
2015-11-16 13:01:45 -08:00
pop hl
jr z, .CheckYanma
2015-12-09 08:38:40 -08:00
ld a, [wDunsparceMapGroup]
2015-11-16 13:01:45 -08:00
cp d
jr nz, .CheckYanma
2015-12-09 08:38:40 -08:00
ld a, [wDunsparceMapNumber]
2015-11-16 13:01:45 -08:00
cp e
jr nz, .CheckYanma
call LookUpWildmonsForMapDE
jr nc, _NoSwarmWildmon
scf
ret
.CheckYanma:
2015-11-16 13:01:45 -08:00
push hl
ld hl, wSwarmFlags
2018-01-22 12:40:43 -08:00
bit SWARMFLAGS_YANMA_SWARM_F, [hl]
2015-11-16 13:01:45 -08:00
pop hl
jr z, _NoSwarmWildmon
2015-12-09 08:38:40 -08:00
ld a, [wYanmaMapGroup]
2015-11-16 13:01:45 -08:00
cp d
jr nz, _NoSwarmWildmon
2015-12-09 08:38:40 -08:00
ld a, [wYanmaMapNumber]
2015-11-16 13:01:45 -08:00
cp e
jr nz, _NoSwarmWildmon
call LookUpWildmonsForMapDE
jr nc, _NoSwarmWildmon
scf
ret
_NoSwarmWildmon:
2015-11-16 13:01:45 -08:00
and a
ret
_NormalWildmonOK:
2015-11-16 13:01:45 -08:00
call CopyCurrMapDE
jr LookUpWildmonsForMapDE
2018-06-24 07:09:41 -07:00
CopyCurrMapDE:
2018-01-23 14:39:09 -08:00
ld a, [wMapGroup]
2015-11-16 13:01:45 -08:00
ld d, a
2018-01-23 14:39:09 -08:00
ld a, [wMapNumber]
2015-11-16 13:01:45 -08:00
ld e, a
ret
2018-06-24 07:09:41 -07:00
LookUpWildmonsForMapDE:
2016-01-04 05:43:55 -08:00
.loop
2015-11-16 13:01:45 -08:00
push hl
ld a, [hl]
inc a
jr z, .nope
ld a, d
cp [hl]
jr nz, .next
inc hl
ld a, e
cp [hl]
jr z, .yup
.next
pop hl
add hl, bc
2016-01-04 05:43:55 -08:00
jr .loop
2015-11-16 13:01:45 -08:00
.nope
pop hl
and a
ret
.yup
pop hl
scf
ret
2018-06-24 07:09:41 -07:00
InitRoamMons:
2015-11-16 13:01:45 -08:00
; initialize wRoamMon structs
; species
ld a, RAIKOU
ld [wRoamMon1Species], a
ld a, ENTEI
ld [wRoamMon2Species], a
; level
ld a, 40
ld [wRoamMon1Level], a
ld [wRoamMon2Level], a
; raikou starting map
ld a, GROUP_N_A
2015-11-16 13:01:45 -08:00
ld [wRoamMon1MapGroup], a
ld a, MAP_N_A
2015-11-16 13:01:45 -08:00
ld [wRoamMon1MapNumber], a
; entei starting map
ld a, GROUP_N_A
2015-11-16 13:01:45 -08:00
ld [wRoamMon2MapGroup], a
ld a, MAP_N_A
2015-11-16 13:01:45 -08:00
ld [wRoamMon2MapNumber], a
; hp
xor a ; generate new stats
ld [wRoamMon1HP], a
ld [wRoamMon2HP], a
ret
2018-06-24 07:09:41 -07:00
CheckEncounterRoamMon:
2015-11-16 13:01:45 -08:00
push hl
; Don't trigger an encounter if we're on water.
call CheckOnWater
jr z, .DontEncounterRoamMon
; Load the current map group and number to de
call CopyCurrMapDE
; Randomly select a beast.
call Random
cp 100 ; 25/64 chance
jr nc, .DontEncounterRoamMon
and %00000011 ; Of that, a 3/4 chance. Running total: 75/256, or around 29.3%.
jr z, .DontEncounterRoamMon
dec a ; 1/3 chance that it's Entei, 1/3 chance that it's Raikou
; Compare its current location with yours
ld hl, wRoamMon1MapGroup
ld c, a
ld b, 0
2018-01-16 14:36:12 -08:00
ld a, 7 ; length of the roam_struct
2015-11-16 13:01:45 -08:00
call AddNTimes
ld a, d
cp [hl]
jr nz, .DontEncounterRoamMon
inc hl
ld a, e
cp [hl]
jr nz, .DontEncounterRoamMon
; We've decided to take on a beast, so stage its information for battle.
dec hl
dec hl
dec hl
2015-11-16 13:01:45 -08:00
ld a, [hli]
2018-01-23 14:39:09 -08:00
ld [wTempWildMonSpecies], a
2015-11-16 13:01:45 -08:00
ld a, [hl]
2018-01-23 14:39:09 -08:00
ld [wCurPartyLevel], a
2015-11-16 13:01:45 -08:00
ld a, BATTLETYPE_ROAMING
2018-01-23 14:39:09 -08:00
ld [wBattleType], a
2015-11-16 13:01:45 -08:00
pop hl
scf
ret
.DontEncounterRoamMon:
2015-11-16 13:01:45 -08:00
pop hl
and a
ret
2018-06-24 07:09:41 -07:00
UpdateRoamMons:
2015-11-16 13:01:45 -08:00
ld a, [wRoamMon1MapGroup]
cp GROUP_N_A
jr z, .SkipRaikou
ld b, a
ld a, [wRoamMon1MapNumber]
ld c, a
call .Update
ld a, b
ld [wRoamMon1MapGroup], a
ld a, c
ld [wRoamMon1MapNumber], a
.SkipRaikou:
2015-11-16 13:01:45 -08:00
ld a, [wRoamMon2MapGroup]
cp GROUP_N_A
jr z, .SkipEntei
ld b, a
ld a, [wRoamMon2MapNumber]
ld c, a
call .Update
ld a, b
ld [wRoamMon2MapGroup], a
ld a, c
ld [wRoamMon2MapNumber], a
.SkipEntei:
2015-11-16 13:01:45 -08:00
ld a, [wRoamMon3MapGroup]
cp GROUP_N_A
jr z, .Finished
2015-11-16 13:01:45 -08:00
ld b, a
ld a, [wRoamMon3MapNumber]
ld c, a
call .Update
ld a, b
ld [wRoamMon3MapGroup], a
ld a, c
ld [wRoamMon3MapNumber], a
.Finished:
2015-11-16 13:01:45 -08:00
jp _BackUpMapIndices
2018-06-24 07:09:41 -07:00
.Update:
2015-11-16 13:01:45 -08:00
ld hl, RoamMaps
.loop
; Are we at the end of the table?
ld a, [hl]
cp -1
ret z
; Is this the correct entry?
ld a, b
cp [hl]
jr nz, .next
inc hl
ld a, c
cp [hl]
jr z, .yes
; We don't have the correct entry yet, so let's continue. A 0 terminates each entry.
.next
ld a, [hli]
and a
jr nz, .next
jr .loop
; We have the correct entry now, so let's choose a random map from it.
.yes
inc hl
ld d, h
ld e, l
.update_loop
ld h, d
ld l, e
; Choose which map to warp to.
call Random
2018-01-11 09:00:01 -08:00
and %00011111 ; 1/8n chance it moves to a completely random map, where n is the number of roaming connections from the current map.
2015-11-16 13:01:45 -08:00
jr z, JumpRoamMon
2018-01-11 09:00:01 -08:00
and %11
2015-11-16 13:01:45 -08:00
cp [hl]
jr nc, .update_loop ; invalid index, try again
inc hl
ld c, a
2018-06-24 10:00:55 -07:00
ld b, 0
2015-11-16 13:01:45 -08:00
add hl, bc
add hl, bc
2015-12-09 08:38:40 -08:00
ld a, [wRoamMons_LastMapGroup]
2015-11-16 13:01:45 -08:00
cp [hl]
jr nz, .done
inc hl
2015-12-09 08:38:40 -08:00
ld a, [wRoamMons_LastMapNumber]
2015-11-16 13:01:45 -08:00
cp [hl]
jr z, .update_loop
dec hl
.done
ld a, [hli]
ld b, a
ld c, [hl]
ret
2018-06-24 07:09:41 -07:00
JumpRoamMons:
2015-11-16 13:01:45 -08:00
ld a, [wRoamMon1MapGroup]
cp GROUP_N_A
jr z, .SkipRaikou
call JumpRoamMon
ld a, b
ld [wRoamMon1MapGroup], a
ld a, c
ld [wRoamMon1MapNumber], a
.SkipRaikou:
2015-11-16 13:01:45 -08:00
ld a, [wRoamMon2MapGroup]
cp GROUP_N_A
jr z, .SkipEntei
call JumpRoamMon
ld a, b
ld [wRoamMon2MapGroup], a
ld a, c
ld [wRoamMon2MapNumber], a
.SkipEntei:
2015-11-16 13:01:45 -08:00
ld a, [wRoamMon3MapGroup]
cp GROUP_N_A
jr z, .Finished
2015-11-16 13:01:45 -08:00
call JumpRoamMon
ld a, b
ld [wRoamMon3MapGroup], a
ld a, c
ld [wRoamMon3MapNumber], a
.Finished:
2015-11-16 13:01:45 -08:00
jp _BackUpMapIndices
2018-06-24 07:09:41 -07:00
JumpRoamMon:
2015-11-16 13:01:45 -08:00
.loop
ld hl, RoamMaps
.innerloop1
; 0-15 are all valid indexes into RoamMaps,
; so this retry loop is unnecessary
; since NUM_ROAMMON_MAPS happens to be 16
call Random
maskbits NUM_ROAMMON_MAPS
cp NUM_ROAMMON_MAPS
jr nc, .innerloop1
2015-11-16 13:01:45 -08:00
inc a
ld b, a
.innerloop2 ; Loop to get hl to the address of the chosen roam map.
dec b
jr z, .ok
.innerloop3 ; Loop to skip the current roam map, which is terminated by a 0.
ld a, [hli]
and a
jr nz, .innerloop3
jr .innerloop2
; Check to see if the selected map is the one the player is currently in. If so, try again.
.ok
2018-01-23 14:39:09 -08:00
ld a, [wMapGroup]
2015-11-16 13:01:45 -08:00
cp [hl]
jr nz, .done
inc hl
2018-01-23 14:39:09 -08:00
ld a, [wMapNumber]
2015-11-16 13:01:45 -08:00
cp [hl]
jr z, .loop
dec hl
; Return the map group and number in bc.
.done
ld a, [hli]
ld b, a
ld c, [hl]
ret
2018-06-24 07:09:41 -07:00
_BackUpMapIndices:
2018-09-09 12:09:51 -07:00
ld a, [wRoamMons_CurMapNumber]
2015-12-09 08:38:40 -08:00
ld [wRoamMons_LastMapNumber], a
2018-09-09 12:09:51 -07:00
ld a, [wRoamMons_CurMapGroup]
2015-12-09 08:38:40 -08:00
ld [wRoamMons_LastMapGroup], a
2018-01-23 14:39:09 -08:00
ld a, [wMapNumber]
2018-09-09 12:09:51 -07:00
ld [wRoamMons_CurMapNumber], a
2018-01-23 14:39:09 -08:00
ld a, [wMapGroup]
2018-09-09 12:09:51 -07:00
ld [wRoamMons_CurMapGroup], a
2015-11-16 13:01:45 -08:00
ret
INCLUDE "data/wild/roammon_maps.asm"
2017-12-11 19:59:30 -08:00
2018-06-24 07:09:41 -07:00
ValidateTempWildMonSpecies:
2015-11-16 13:01:45 -08:00
; Due to a development oversight, this function is called with the wild Pokemon's level, not its species, in a.
and a
jr z, .nowildmon ; = 0
cp NUM_POKEMON + 1 ; 252
jr nc, .nowildmon ; >= 252
and a ; 1 <= Species <= 251
ret
.nowildmon
scf
ret
; Finds a rare wild Pokemon in the route of the trainer calling, then checks if it's been Seen already.
; The trainer will then tell you about the Pokemon if you haven't seen it.
2018-06-24 07:09:41 -07:00
RandomUnseenWildMon:
2017-12-24 09:47:30 -08:00
farcall GetCallerLocation
2015-11-16 13:01:45 -08:00
ld d, b
ld e, c
ld hl, JohtoGrassWildMons
ld bc, GRASS_WILDDATA_LENGTH
call LookUpWildmonsForMapDE
jr c, .GetGrassmon
ld hl, KantoGrassWildMons
call LookUpWildmonsForMapDE
jr nc, .done
.GetGrassmon:
2015-11-16 13:01:45 -08:00
push hl
ld bc, 5 + 4 * 2 ; Location of the level of the 5th wild Pokemon in that map
add hl, bc
2018-01-23 14:39:09 -08:00
ld a, [wTimeOfDay]
2018-01-16 14:36:12 -08:00
ld bc, NUM_GRASSMON * 2
2015-11-16 13:01:45 -08:00
call AddNTimes
.randloop1
call Random
2018-01-11 09:00:01 -08:00
and %11
2015-11-16 13:01:45 -08:00
jr z, .randloop1
dec a
ld c, a
2018-06-24 10:00:55 -07:00
ld b, 0
2015-11-16 13:01:45 -08:00
add hl, bc
add hl, bc
2015-11-16 13:01:45 -08:00
; We now have the pointer to one of the last (rarest) three wild Pokemon found in that area.
inc hl
ld c, [hl] ; Contains the species index of this rare Pokemon
pop hl
ld de, 5 + 0 * 2
add hl, de
inc hl ; Species index of the most common Pokemon on that route
ld b, 4
.loop2
ld a, [hli]
cp c ; Compare this most common Pokemon with the rare one stored in c.
jr z, .done
inc hl
dec b
jr nz, .loop2
; This Pokemon truly is rare.
push bc
dec c
ld a, c
call CheckSeenMon
pop bc
jr nz, .done
; Since we haven't seen it, have the caller tell us about it.
2018-01-23 14:39:09 -08:00
ld de, wStringBuffer1
2015-11-16 13:01:45 -08:00
call CopyName1
ld a, c
ld [wNamedObjectIndex], a
2015-11-16 13:01:45 -08:00
call GetPokemonName
ld hl, .JustSawSomeRareMonText
call PrintText2bpp
2015-11-16 13:01:45 -08:00
xor a
2023-09-30 10:12:57 -07:00
ldh [hScriptVar], a
2015-11-16 13:01:45 -08:00
ret
.done
ld a, $1
2023-09-30 10:12:57 -07:00
ldh [hScriptVar], a
2015-11-16 13:01:45 -08:00
ret
.JustSawSomeRareMonText:
text_far _JustSawSomeRareMonText
text_end
2015-11-16 13:01:45 -08:00
2018-06-24 07:09:41 -07:00
RandomPhoneWildMon:
2017-12-24 09:47:30 -08:00
farcall GetCallerLocation
2015-11-16 13:01:45 -08:00
ld d, b
ld e, c
ld hl, JohtoGrassWildMons
ld bc, GRASS_WILDDATA_LENGTH
call LookUpWildmonsForMapDE
jr c, .ok
ld hl, KantoGrassWildMons
call LookUpWildmonsForMapDE
.ok
ld bc, 5 + 0 * 2
add hl, bc
2018-01-23 14:39:09 -08:00
ld a, [wTimeOfDay]
2015-11-16 13:01:45 -08:00
inc a
2018-01-16 14:36:12 -08:00
ld bc, NUM_GRASSMON * 2
2015-11-16 13:01:45 -08:00
.loop
dec a
jr z, .done
add hl, bc
jr .loop
.done
call Random
2018-01-11 09:00:01 -08:00
and %11
2015-11-16 13:01:45 -08:00
ld c, a
2018-06-24 10:00:55 -07:00
ld b, 0
2015-11-16 13:01:45 -08:00
add hl, bc
add hl, bc
2015-11-16 13:01:45 -08:00
inc hl
ld a, [hl]
ld [wNamedObjectIndex], a
2015-11-16 13:01:45 -08:00
call GetPokemonName
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer1
ld de, wStringBuffer4
2018-01-20 09:25:55 -08:00
ld bc, MON_NAME_LENGTH
2015-11-16 13:01:45 -08:00
jp CopyBytes
2018-06-24 07:09:41 -07:00
RandomPhoneMon:
2015-11-16 13:01:45 -08:00
; Get a random monster owned by the trainer who's calling.
2017-12-24 09:47:30 -08:00
farcall GetCallerLocation
2015-11-16 13:01:45 -08:00
ld hl, TrainerGroups
ld a, d
dec a
ld c, a
ld b, 0
add hl, bc
add hl, bc
2015-11-16 13:01:45 -08:00
ld a, BANK(TrainerGroups)
call GetFarWord
2015-11-16 13:01:45 -08:00
.skip_trainer
dec e
jr z, .skipped
.skip
ld a, BANK(Trainers)
call GetFarByte
inc hl
cp -1
jr nz, .skip
jr .skip_trainer
.skipped
.skip_name
ld a, BANK(Trainers)
call GetFarByte
inc hl
cp "@"
jr nz, .skip_name
ld a, BANK(Trainers)
call GetFarByte
inc hl
2018-01-16 14:36:12 -08:00
ld bc, 2 ; level, species
cp TRAINERTYPE_NORMAL
2015-11-16 13:01:45 -08:00
jr z, .got_mon_length
2018-01-16 14:36:12 -08:00
ld bc, 2 + NUM_MOVES ; level, species, moves
cp TRAINERTYPE_MOVES
2015-11-16 13:01:45 -08:00
jr z, .got_mon_length
2018-01-16 14:36:12 -08:00
ld bc, 2 + 1 ; level, species, item
cp TRAINERTYPE_ITEM
2015-11-16 13:01:45 -08:00
jr z, .got_mon_length
2018-01-16 14:36:12 -08:00
; TRAINERTYPE_ITEM_MOVES
ld bc, 2 + 1 + NUM_MOVES ; level, species, item, moves
2015-11-16 13:01:45 -08:00
.got_mon_length
ld e, 0
push hl
.count_mon
inc e
add hl, bc
ld a, BANK(Trainers)
call GetFarByte
cp -1
jr nz, .count_mon
pop hl
.rand
call Random
2018-01-16 14:36:12 -08:00
maskbits PARTY_LENGTH
2015-11-16 13:01:45 -08:00
cp e
jr nc, .rand
inc a
.get_mon
dec a
jr z, .got_mon
add hl, bc
jr .get_mon
.got_mon
inc hl ; species
ld a, BANK(Trainers)
call GetFarByte
ld [wNamedObjectIndex], a
2015-11-16 13:01:45 -08:00
call GetPokemonName
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer1
ld de, wStringBuffer4
2018-01-20 09:25:55 -08:00
ld bc, MON_NAME_LENGTH
2015-11-16 13:01:45 -08:00
jp CopyBytes
INCLUDE "data/wild/johto_grass.asm"
INCLUDE "data/wild/johto_water.asm"
INCLUDE "data/wild/kanto_grass.asm"
INCLUDE "data/wild/kanto_water.asm"
INCLUDE "data/wild/swarm_grass.asm"
INCLUDE "data/wild/swarm_water.asm"