pokered/engine/overworld/oaks_aide.asm

OaksAideScript: ; 0x59035
	ld hl, OaksAideHiText
	call PrintText
	call YesNoChoice
	ld a, [wCurrentMenuItem]
	and a
	jr nz, .choseNo
	ld hl, wPokedexOwned
	ld b, wPokedexOwnedEnd - wPokedexOwned
	call CountSetBits
	ld a, [wNumSetBits]
	ld [hOaksAideNumMonsOwned], a
	ld b, a
	ld a, [hOaksAideRequirement]
	cp b
	jr z, .giveItem
	jr nc, .notEnoughOwnedMons
.giveItem
	ld hl, OaksAideHereYouGoText
	call PrintText
	ld a, [hOaksAideItemReward]
	ld b, a
	ld c, 1
	call GiveItem
	jr nc, .bagFull
	ld hl, OaksAideGotItemText
	call PrintText
	ld a, $1
	jr .done
.bagFull
	ld hl, OaksAideNoRoomText
	call PrintText
	xor a
	jr .done
.notEnoughOwnedMons
	ld hl, OaksAideUhOhText
	call PrintText
	ld a, $80
	jr .done
.choseNo
	ld hl, OaksAideComeBackText
	call PrintText
	ld a, $ff
.done
	ld [hOaksAideResult], a
	ret

OaksAideHiText: ; 59091 (16:5091)
	TX_FAR _OaksAideHiText
	db "@"

OaksAideUhOhText: ; 59096 (16:5096)
	TX_FAR _OaksAideUhOhText
	db "@"

OaksAideComeBackText: ; 5909b (16:509b)
	TX_FAR _OaksAideComeBackText
	db "@"

OaksAideHereYouGoText: ; 590a0 (16:50a0)
	TX_FAR _OaksAideHereYouGoText
	db "@"

OaksAideGotItemText: ; 590a5 (16:50a5)
	TX_FAR _OaksAideGotItemText
	db $0b
	db "@"

OaksAideNoRoomText: ; 590ab (16:50ab)
	TX_FAR _OaksAideNoRoomText
	db "@"
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`OaksAideScript: ; 0x59035`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, OaksAideHiText`
			`call PrintText`
			`call YesNoChoice`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wCurrentMenuItem]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and a`
named CountSetBits output variable 2015-08-07 11:24:06 +00:00			`jr nz, .choseNo`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, wPokedexOwned`
			`ld b, wPokedexOwnedEnd - wPokedexOwned`
			`call CountSetBits`
named CountSetBits output variable 2015-08-07 11:24:06 +00:00			`ld a, [wNumSetBits]`
			`ld [hOaksAideNumMonsOwned], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, a`
named CountSetBits output variable 2015-08-07 11:24:06 +00:00			`ld a, [hOaksAideRequirement]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`cp b`
named CountSetBits output variable 2015-08-07 11:24:06 +00:00			`jr z, .giveItem`
			`jr nc, .notEnoughOwnedMons`
			`.giveItem`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, OaksAideHereYouGoText`
			`call PrintText`
named CountSetBits output variable 2015-08-07 11:24:06 +00:00			`ld a, [hOaksAideItemReward]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, a`
			`ld c, 1`
			`call GiveItem`
named CountSetBits output variable 2015-08-07 11:24:06 +00:00			`jr nc, .bagFull`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, OaksAideGotItemText`
			`call PrintText`
			`ld a, $1`
named CountSetBits output variable 2015-08-07 11:24:06 +00:00			`jr .done`
			`.bagFull`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, OaksAideNoRoomText`
			`call PrintText`
			`xor a`
named CountSetBits output variable 2015-08-07 11:24:06 +00:00			`jr .done`
			`.notEnoughOwnedMons`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, OaksAideUhOhText`
			`call PrintText`
			`ld a, $80`
named CountSetBits output variable 2015-08-07 11:24:06 +00:00			`jr .done`
			`.choseNo`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, OaksAideComeBackText`
			`call PrintText`
			`ld a, $ff`
named CountSetBits output variable 2015-08-07 11:24:06 +00:00			`.done`
			`ld [hOaksAideResult], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret`

			`OaksAideHiText: ; 59091 (16:5091)`
			`TX_FAR _OaksAideHiText`
			`db "@"`

			`OaksAideUhOhText: ; 59096 (16:5096)`
			`TX_FAR _OaksAideUhOhText`
			`db "@"`

			`OaksAideComeBackText: ; 5909b (16:509b)`
			`TX_FAR _OaksAideComeBackText`
			`db "@"`

			`OaksAideHereYouGoText: ; 590a0 (16:50a0)`
			`TX_FAR _OaksAideHereYouGoText`
			`db "@"`

			`OaksAideGotItemText: ; 590a5 (16:50a5)`
			`TX_FAR _OaksAideGotItemText`
			`db $0b`
			`db "@"`

			`OaksAideNoRoomText: ; 590ab (16:50ab)`
			`TX_FAR _OaksAideNoRoomText`
			`db "@"`