pokecrystal-board/engine/events/odd_egg.asm

_GiveOddEgg:
	; Figure out which egg to give.

	; Compare a random word to
	; probabilities out of 0xffff.
	call Random
	ld hl, OddEggProbabilities
	ld c, 0
	ld b, c
.loop
	ld a, [hli]
	ld e, a
	ld a, [hli]
	ld d, a

	; Break on $ffff.
	ld a, d
	cp HIGH($ffff)
	jr nz, .not_done
	ld a, e
	cp LOW($ffff)
	jr z, .done
.not_done

	; Break when [hRandom] <= de.
	ldh a, [hRandom + 1]
	cp d
	jr c, .done
	jr z, .ok
	jr .next
.ok
	ldh a, [hRandom + 0]
	cp e
	jr c, .done
	jr z, .done
.next
	inc bc
	jr .loop
.done

	ld hl, OddEggs
	ld a, NICKNAMED_MON_STRUCT_LENGTH
	call AddNTimes

	; Writes to wOddEgg, wOddEggName, and wOddEggOTName,
	; even though OddEggs does not have data for wOddEggOTName
	ld de, wOddEgg
	ld bc, NICKNAMED_MON_STRUCT_LENGTH + NAME_LENGTH
	call CopyBytes

	ld a, EGG_TICKET
	ld [wCurItem], a
	ld a, 1
	ld [wItemQuantityChangeBuffer], a
	ld a, -1
	ld [wCurItemQuantity], a
	ld hl, wNumItems
	call TossItem

	; load species in wcd2a
	ld a, EGG
	ld [wMobileMonSpeciesBuffer], a

	; load pointer to (wMobileMonSpeciesBuffer - 1) in wMobileMonSpeciesPointerBuffer
	ld a, LOW(wMobileMonSpeciesBuffer - 1)
	ld [wMobileMonSpeciesPointerBuffer], a
	ld a, HIGH(wMobileMonSpeciesBuffer - 1)
	ld [wMobileMonSpeciesPointerBuffer + 1], a
	; load pointer to wOddEgg in wMobileMonStructurePointerBuffer
	ld a, LOW(wOddEgg)
	ld [wMobileMonStructurePointerBuffer], a
	ld a, HIGH(wOddEgg)
	ld [wMobileMonStructurePointerBuffer + 1], a

	; load Odd Egg Name in wTempOddEggNickname
	ld hl, .Odd
	ld de, wTempOddEggNickname
	ld bc, MON_NAME_LENGTH
	call CopyBytes

	; load pointer to wTempOddEggNickname in wMobileMonOTNamePointerBuffer
	ld a, LOW(wTempOddEggNickname)
	ld [wMobileMonOTNamePointerBuffer], a
	ld a, HIGH(wTempOddEggNickname)
	ld [wMobileMonOTNamePointerBuffer + 1], a
	; load pointer to wOddEggName in wMobileMonNicknamePointerBuffer
	ld a, LOW(wOddEggName)
	ld [wMobileMonNicknamePointerBuffer], a
	ld a, HIGH(wOddEggName)
	ld [wMobileMonNicknamePointerBuffer + 1], a
	farcall AddMobileMonToParty
	ret

.Odd:
	db "ODD@@@@@@@@@"

INCLUDE "data/events/odd_eggs.asm"
Remove all address comments 2018-06-24 07:09:41 -07:00			`_GiveOddEgg:`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`; Figure out which egg to give.`

			`; Compare a random word to`
			`; probabilities out of 0xffff.`
			`call Random`
			`ld hl, OddEggProbabilities`
			`ld c, 0`
			`ld b, c`
			`.loop`
			`ld a, [hli]`
			`ld e, a`
			`ld a, [hli]`
			`ld d, a`

			`; Break on $ffff.`
			`ld a, d`
Resolve #428: Use `HIGH(X)` and `LOW(X)` instead of `X / $100` and `X % $100` or `X >> 8` and `X & $ff` 2017-12-25 10:40:10 -08:00			`cp HIGH($ffff)`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`jr nz, .not_done`
			`ld a, e`
Resolve #428: Use `HIGH(X)` and `LOW(X)` instead of `X / $100` and `X % $100` or `X >> 8` and `X & $ff` 2017-12-25 10:40:10 -08:00			`cp LOW($ffff)`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`jr z, .done`
			`.not_done`

			`; Break when [hRandom] <= de.`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh a, [hRandom + 1]`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`cp d`
			`jr c, .done`
			`jr z, .ok`
			`jr .next`
			`.ok`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh a, [hRandom + 0]`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`cp e`
			`jr c, .done`
			`jr z, .done`
			`.next`
			`inc bc`
			`jr .loop`
			`.done`

			`ld hl, OddEggs`
Clean up some Odd Egg and Battle Tower code and data Fixes #589 2019-01-02 16:04:50 -08:00			`ld a, NICKNAMED_MON_STRUCT_LENGTH`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`call AddNTimes`

Clean up some Odd Egg and Battle Tower code and data Fixes #589 2019-01-02 16:04:50 -08:00			`; Writes to wOddEgg, wOddEggName, and wOddEggOTName,`
			`; even though OddEggs does not have data for wOddEggOTName`
			`ld de, wOddEgg`
MON_NAME_LENGTH -> NAME_LENGTH 2019-01-03 04:30:44 -08:00			`ld bc, NICKNAMED_MON_STRUCT_LENGTH + NAME_LENGTH`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`call CopyBytes`

			`ld a, EGG_TICKET`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurItem], a`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`ld a, 1`
			`ld [wItemQuantityChangeBuffer], a`
			`ld a, -1`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurItemQuantity], a`
			`ld hl, wNumItems`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`call TossItem`

			`; load species in wcd2a`
			`ld a, EGG`
			`ld [wMobileMonSpeciesBuffer], a`

			`; load pointer to (wMobileMonSpeciesBuffer - 1) in wMobileMonSpeciesPointerBuffer`
Resolve #428: Use `HIGH(X)` and `LOW(X)` instead of `X / $100` and `X % $100` or `X >> 8` and `X & $ff` 2017-12-25 10:40:10 -08:00			`ld a, LOW(wMobileMonSpeciesBuffer - 1)`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`ld [wMobileMonSpeciesPointerBuffer], a`
Resolve #428: Use `HIGH(X)` and `LOW(X)` instead of `X / $100` and `X % $100` or `X >> 8` and `X & $ff` 2017-12-25 10:40:10 -08:00			`ld a, HIGH(wMobileMonSpeciesBuffer - 1)`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`ld [wMobileMonSpeciesPointerBuffer + 1], a`
Clean up some Odd Egg and Battle Tower code and data Fixes #589 2019-01-02 16:04:50 -08:00			`; load pointer to wOddEgg in wMobileMonStructurePointerBuffer`
			`ld a, LOW(wOddEgg)`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`ld [wMobileMonStructurePointerBuffer], a`
Clean up some Odd Egg and Battle Tower code and data Fixes #589 2019-01-02 16:04:50 -08:00			`ld a, HIGH(wOddEgg)`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`ld [wMobileMonStructurePointerBuffer + 1], a`

			`; load Odd Egg Name in wTempOddEggNickname`
			`ld hl, .Odd`
			`ld de, wTempOddEggNickname`
PARTY_LENGTH; MON_NAME; sgb_border.bin 2018-01-20 09:25:55 -08:00			`ld bc, MON_NAME_LENGTH`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`call CopyBytes`

			`; load pointer to wTempOddEggNickname in wMobileMonOTNamePointerBuffer`
Resolve #428: Use `HIGH(X)` and `LOW(X)` instead of `X / $100` and `X % $100` or `X >> 8` and `X & $ff` 2017-12-25 10:40:10 -08:00			`ld a, LOW(wTempOddEggNickname)`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`ld [wMobileMonOTNamePointerBuffer], a`
Resolve #428: Use `HIGH(X)` and `LOW(X)` instead of `X / $100` and `X % $100` or `X >> 8` and `X & $ff` 2017-12-25 10:40:10 -08:00			`ld a, HIGH(wTempOddEggNickname)`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`ld [wMobileMonOTNamePointerBuffer + 1], a`
			`; load pointer to wOddEggName in wMobileMonNicknamePointerBuffer`
Resolve #428: Use `HIGH(X)` and `LOW(X)` instead of `X / $100` and `X % $100` or `X >> 8` and `X & $ff` 2017-12-25 10:40:10 -08:00			`ld a, LOW(wOddEggName)`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`ld [wMobileMonNicknamePointerBuffer], a`
Resolve #428: Use `HIGH(X)` and `LOW(X)` instead of `X / $100` and `X % $100` or `X >> 8` and `X & $ff` 2017-12-25 10:40:10 -08:00			`ld a, HIGH(wOddEggName)`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`ld [wMobileMonNicknamePointerBuffer + 1], a`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall AddMobileMonToParty`
Move lots of data tables into individual data/ files (This is not expected to be their final location, but it makes them easier to relocate when necessary, and easier for users to edit until the whole project's file structure is finalized.) 2017-12-11 10:47:58 -08:00			`ret`

			`.Odd:`
			`db "ODD@@@@@@@@@"`

Move event data to data/events/ 2018-01-25 19:19:24 -08:00			`INCLUDE "data/events/odd_eggs.asm"`