pokered/engine/overworld/oaks_aide.asm

OaksAideScript:
	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, [hOaksAideRewardItem]
	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:
	TX_FAR _OaksAideHiText
	db "@"

OaksAideUhOhText:
	TX_FAR _OaksAideUhOhText
	db "@"

OaksAideComeBackText:
	TX_FAR _OaksAideComeBackText
	db "@"

OaksAideHereYouGoText:
	TX_FAR _OaksAideHereYouGoText
	db "@"

OaksAideGotItemText:
	TX_FAR _OaksAideGotItemText
	TX_SFX_ITEM_1
	db "@"

OaksAideNoRoomText:
	TX_FAR _OaksAideNoRoomText
	db "@"
Remove the last address comments except for wram.asm and sram.asm also delete unused yellow file 2016-06-12 07:19:19 +00:00			`OaksAideScript:`
$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 more variables 2015-08-13 05:14:31 +00:00			`ld a, [hOaksAideRewardItem]`
$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`

remove address comments 2016-06-12 00:24:04 +00:00			`OaksAideHiText:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _OaksAideHiText`
			`db "@"`

remove address comments 2016-06-12 00:24:04 +00:00			`OaksAideUhOhText:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _OaksAideUhOhText`
			`db "@"`

remove address comments 2016-06-12 00:24:04 +00:00			`OaksAideComeBackText:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _OaksAideComeBackText`
			`db "@"`

remove address comments 2016-06-12 00:24:04 +00:00			`OaksAideHereYouGoText:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _OaksAideHereYouGoText`
			`db "@"`

remove address comments 2016-06-12 00:24:04 +00:00			`OaksAideGotItemText:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _OaksAideGotItemText`
Clean up text commands 2016-07-18 06:17:03 +00:00			`TX_SFX_ITEM_1`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`db "@"`

remove address comments 2016-06-12 00:24:04 +00:00			`OaksAideNoRoomText:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _OaksAideNoRoomText`
			`db "@"`