pokecrystal-board/engine/events/pokerus/check_pokerus.asm

_CheckPokerus:
; Return carry if a monster in your party has Pokerus

; Get number of monsters to iterate over
	ld a, [wPartyCount]
	and a
	jr z, .NoPokerus
	ld b, a
; Check each monster in the party for Pokerus
	ld hl, wPartyMon1PokerusStatus
	ld de, PARTYMON_STRUCT_LENGTH
.Check:
	ld a, [hl]
	and $0f ; only the bottom nybble is used
	jr nz, .HasPokerus
; Next PartyMon
	add hl, de
	dec b
	jr nz, .Check
.NoPokerus:
	and a
	ret
.HasPokerus:
	scf
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`_CheckPokerus:`
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-24 16:35:35 -08:00			`; Return carry if a monster in your party has Pokerus`

			`; Get number of monsters to iterate over`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wPartyCount]`
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-24 16:35:35 -08:00			`and a`
			`jr z, .NoPokerus`
			`ld b, a`
			`; Check each monster in the party for Pokerus`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPartyMon1PokerusStatus`
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-24 16:35:35 -08:00			`ld de, PARTYMON_STRUCT_LENGTH`
			`.Check:`
			`ld a, [hl]`
			`and $0f ; only the bottom nybble is used`
			`jr nz, .HasPokerus`
			`; Next PartyMon`
			`add hl, de`
			`dec b`
			`jr nz, .Check`
			`.NoPokerus:`
			`and a`
			`ret`
			`.HasPokerus:`
			`scf`
			`ret`