summaryrefslogtreecommitdiff
path: root/engine/search2.asm
diff options
context:
space:
mode:
Diffstat (limited to 'engine/search2.asm')
-rwxr-xr-xengine/search2.asm134
1 files changed, 0 insertions, 134 deletions
diff --git a/engine/search2.asm b/engine/search2.asm
deleted file mode 100755
index b7112f1f8..000000000
--- a/engine/search2.asm
+++ /dev/null
@@ -1,134 +0,0 @@
-_FindPartyMonAboveLevel: ; 4dbd2
- ld hl, wPartyMon1Level
- call FindAboveLevel
- ret
-
-_FindPartyMonAtLeastThatHappy: ; 4dbd9
- ld hl, wPartyMon1Happiness
- call FindAtLeastThatHappy
- ret
-
-_FindPartyMonThatSpecies: ; 4dbe0
- ld hl, wPartyMon1Species
- jp FindThatSpecies
-
-_FindPartyMonThatSpeciesYourTrainerID: ; 4dbe6
- ld hl, wPartyMon1Species
- call FindThatSpecies
- ret z
- ld a, c
- ld hl, wPartyMon1ID
- ld bc, PARTYMON_STRUCT_LENGTH
- call AddNTimes
- ld a, [wPlayerID]
- cp [hl]
- jr nz, .nope
- inc hl
- ld a, [wPlayerID + 1]
- cp [hl]
- jr nz, .nope
- ld a, $1
- and a
- ret
-
-.nope
- xor a
- ret
-
-FindAtLeastThatHappy: ; 4dc0a
-; Sets the bits for the Pokemon that have a happiness greater than or equal to b.
-; The lowest bits are used. Sets z if no Pokemon in your party is at least that happy.
- ld c, $0
- ld a, [wPartyCount]
- ld d, a
-.loop
- ld a, d
- dec a
- push hl
- push bc
- ld bc, PARTYMON_STRUCT_LENGTH
- call AddNTimes
- pop bc
- ld a, b
- cp [hl]
- pop hl
- jr z, .greater_equal
- jr nc, .lower
-
-.greater_equal
- ld a, c
- or $1
- ld c, a
-
-.lower
- sla c
- dec d
- jr nz, .loop
- call RetroactivelyIgnoreEggs
- ld a, c
- and a
- ret
-
-FindAboveLevel: ; 4dc31
- ld c, $0
- ld a, [wPartyCount]
- ld d, a
-.loop
- ld a, d
- dec a
- push hl
- push bc
- ld bc, PARTYMON_STRUCT_LENGTH
- call AddNTimes
- pop bc
- ld a, b
- cp [hl]
- pop hl
- jr c, .greater
- ld a, c
- or $1
- ld c, a
-
-.greater
- sla c
- dec d
- jr nz, .loop
- call RetroactivelyIgnoreEggs
- ld a, c
- and a
- ret
-
-FindThatSpecies: ; 4dc56
-; Find species b in your party.
-; If you have no Pokemon, returns c = -1 and z.
-; If that species is in your party, returns its location in c, and nz.
-; Otherwise, returns z.
- ld c, -1
- ld hl, wPartySpecies
-.loop
- ld a, [hli]
- cp -1
- ret z
- inc c
- cp b
- jr nz, .loop
- ld a, $1
- and a
- ret
-
-RetroactivelyIgnoreEggs: ; 4dc67
- ld e, -2
- ld hl, wPartySpecies
-.loop
- ld a, [hli]
- cp -1
- ret z
- cp EGG
- jr nz, .skip_notegg
- ld a, c
- and e
- ld c, a
-
-.skip_notegg
- rlc e
- jr .loop