pokecrystal-board/engine/events/odd_egg.asm

GiveOddEgg: ; 1fb4b6
	; 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.
	ld a, [hRandom + 1]
	cp d
	jr c, .done
	jr z, .ok
	jr .next
.ok
	ld a, [hRandom + 0]
	cp e
	jr c, .done
	jr z, .done
.next
	inc bc
	jr .loop
.done

	ld hl, OddEggs
	ld a, OddEgg2 - OddEgg1
	call AddNTimes

	ld de, OddEggSpecies
	ld bc, PARTYMON_STRUCT_LENGTH + 2 * MON_NAME_LENGTH
	call CopyBytes

	ld a, EGG_TICKET
	ld [CurItem], a
	ld a, 1
	ld [wItemQuantityChangeBuffer], a
	ld a, -1
	ld [CurItemQuantity], a
	ld hl, NumItems
	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 OddEggSpecies in wMobileMonStructurePointerBuffer
	ld a, LOW(OddEggSpecies)
	ld [wMobileMonStructurePointerBuffer], a
	ld a, HIGH(OddEggSpecies)
	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
; 1fb546

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

INCLUDE "data/odd_eggs.asm"
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			`GiveOddEgg: ; 1fb4b6`
			`; 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.`
			`ld a, [hRandom + 1]`
			`cp d`
			`jr c, .done`
			`jr z, .ok`
			`jr .next`
			`.ok`
			`ld a, [hRandom + 0]`
			`cp e`
			`jr c, .done`
			`jr z, .done`
			`.next`
			`inc bc`
			`jr .loop`
			`.done`

			`ld hl, OddEggs`
			`ld a, OddEgg2 - OddEgg1`
			`call AddNTimes`

			`ld de, OddEggSpecies`
PARTY_LENGTH; MON_NAME; sgb_border.bin 2018-01-20 09:25:55 -08:00			`ld bc, PARTYMON_STRUCT_LENGTH + 2 * 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`

			`ld a, EGG_TICKET`
			`ld [CurItem], a`
			`ld a, 1`
			`ld [wItemQuantityChangeBuffer], a`
			`ld a, -1`
			`ld [CurItemQuantity], a`
			`ld hl, NumItems`
			`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`
			`; load pointer to OddEggSpecies in wMobileMonStructurePointerBuffer`
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(OddEggSpecies)`
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`
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(OddEggSpecies)`
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`
			`; 1fb546`

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

			`INCLUDE "data/odd_eggs.asm"`