pokecrystal/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 the random word <= the next probability in de.
	ldh a, [hRandomSub]
	cp d
	jr c, .done
	jr z, .ok
	jr .next
.ok
	ldh a, [hRandomAdd]
	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 wOddEggOT,
	; even though OddEggs does not have data for wOddEggOT
	ld de, wOddEgg
	ld bc, NICKNAMED_MON_STRUCT_LENGTH + NAME_LENGTH
	call CopyBytes

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

	; load species in wMobileMonSpecies
	ld a, EGG
	ld [wMobileMonSpecies], a

	; load pointer to (wMobileMonSpecies - 1) in wMobileMonSpeciesPointer
	ld a, LOW(wMobileMonSpecies - 1)
	ld [wMobileMonSpeciesPointer], a
	ld a, HIGH(wMobileMonSpecies - 1)
	ld [wMobileMonSpeciesPointer + 1], a
	; load pointer to wOddEgg in wMobileMonStructPointer
	ld a, LOW(wOddEgg)
	ld [wMobileMonStructPointer], a
	ld a, HIGH(wOddEgg)
	ld [wMobileMonStructPointer + 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 wMobileMonOTPointer
	ld a, LOW(wTempOddEggNickname)
	ld [wMobileMonOTPointer], a
	ld a, HIGH(wTempOddEggNickname)
	ld [wMobileMonOTPointer + 1], a
	; load pointer to wOddEggName in wMobileMonNicknamePointer
	ld a, LOW(wOddEggName)
	ld [wMobileMonNicknamePointer], a
	ld a, HIGH(wOddEggName)
	ld [wMobileMonNicknamePointer + 1], a
	farcall AddMobileMonToParty
	ret

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

INCLUDE "data/events/odd_eggs.asm"
Remove all address comments 2018-06-24 14:09:41 +00: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 18:47:58 +00: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 18:40:10 +00: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 18:47:58 +00: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 18:40:10 +00: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 18:47:58 +00:00			`jr z, .done`
			`.not_done`

Comment more ROM labels as unreferenced (Some unreferenced labels are above code which is still used via fallthrough!) 2020-06-21 22:33:31 +00:00			`; Break when the random word <= the next probability in de.`
Fix #709 miscellaneous issues 2020-04-16 13:30:50 +00:00			`ldh a, [hRandomSub]`
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 18:47:58 +00:00			`cp d`
			`jr c, .done`
			`jr z, .ok`
			`jr .next`
			`.ok`
Fix #709 miscellaneous issues 2020-04-16 13:30:50 +00:00			`ldh a, [hRandomAdd]`
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 18:47:58 +00: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-03 00:04:50 +00: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 18:47:58 +00:00			`call AddNTimes`

Consistent labels for each nickname in RAM 2021-03-17 20:16:02 +00:00			`; Writes to wOddEgg, wOddEggName, and wOddEggOT,`
			`; even though OddEggs does not have data for wOddEggOT`
Clean up some Odd Egg and Battle Tower code and data Fixes #589 2019-01-03 00:04:50 +00:00			`ld de, wOddEgg`
MON_NAME_LENGTH -> NAME_LENGTH 2019-01-03 12:30:44 +00: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 18:47:58 +00:00			`call CopyBytes`

			`ld a, EGG_TICKET`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00: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 18:47:58 +00:00			`ld a, 1`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 21:29:30 +00:00			`ld [wItemQuantityChange], 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 18:47:58 +00:00			`ld a, -1`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00: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 18:47:58 +00:00			`call TossItem`

Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 21:29:30 +00:00			`; load species in wMobileMonSpecies`
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 18:47:58 +00:00			`ld a, EGG`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 21:29:30 +00:00			`ld [wMobileMonSpecies], 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 18:47:58 +00:00
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 21:29:30 +00:00			`; load pointer to (wMobileMonSpecies - 1) in wMobileMonSpeciesPointer`
			`ld a, LOW(wMobileMonSpecies - 1)`
			`ld [wMobileMonSpeciesPointer], a`
			`ld a, HIGH(wMobileMonSpecies - 1)`
			`ld [wMobileMonSpeciesPointer + 1], a`
			`; load pointer to wOddEgg in wMobileMonStructPointer`
Clean up some Odd Egg and Battle Tower code and data Fixes #589 2019-01-03 00:04:50 +00:00			`ld a, LOW(wOddEgg)`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 21:29:30 +00:00			`ld [wMobileMonStructPointer], a`
Clean up some Odd Egg and Battle Tower code and data Fixes #589 2019-01-03 00:04:50 +00:00			`ld a, HIGH(wOddEgg)`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 21:29:30 +00:00			`ld [wMobileMonStructPointer + 1], 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 18:47:58 +00:00
			`; load Odd Egg Name in wTempOddEggNickname`
			`ld hl, .Odd`
			`ld de, wTempOddEggNickname`
PARTY_LENGTH; MON_NAME; sgb_border.bin 2018-01-20 17:25:55 +00: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 18:47:58 +00:00			`call CopyBytes`

Consistent labels for each nickname in RAM 2021-03-17 20:16:02 +00:00			`; load pointer to wTempOddEggNickname in wMobileMonOTPointer`
Resolve #428: Use `HIGH(X)` and `LOW(X)` instead of `X / $100` and `X % $100` or `X >> 8` and `X & $ff` 2017-12-25 18:40:10 +00:00			`ld a, LOW(wTempOddEggNickname)`
Consistent labels for each nickname in RAM 2021-03-17 20:16:02 +00:00			`ld [wMobileMonOTPointer], 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 18:40:10 +00:00			`ld a, HIGH(wTempOddEggNickname)`
Consistent labels for each nickname in RAM 2021-03-17 20:16:02 +00:00			`ld [wMobileMonOTPointer + 1], a`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 21:29:30 +00:00			`; load pointer to wOddEggName in wMobileMonNicknamePointer`
Resolve #428: Use `HIGH(X)` and `LOW(X)` instead of `X / $100` and `X % $100` or `X >> 8` and `X & $ff` 2017-12-25 18:40:10 +00:00			`ld a, LOW(wOddEggName)`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 21:29:30 +00:00			`ld [wMobileMonNicknamePointer], 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 18:40:10 +00:00			`ld a, HIGH(wOddEggName)`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 21:29:30 +00:00			`ld [wMobileMonNicknamePointer + 1], a`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00: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 18:47:58 +00:00			`ret`

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

Move event data to data/events/ 2018-01-26 03:19:24 +00:00			`INCLUDE "data/events/odd_eggs.asm"`