pokecrystal-board/engine/events/prof_oaks_pc.asm
2019-11-03 20:17:04 -05:00

194 lines
2.5 KiB
NASM

ProfOaksPC:
ld hl, OakPCText1
call MenuTextbox
call YesNoBox
jr c, .shutdown
call ProfOaksPCBoot ; player chose "yes"?
.shutdown
ld hl, OakPCText4
call PrintText
call JoyWaitAorB
call ExitMenu
ret
ProfOaksPCBoot:
ld hl, OakPCText2
call PrintText
call Rate
call PlaySFX ; sfx loaded by previous Rate function call
call JoyWaitAorB
call WaitSFX
ret
ProfOaksPCRating:
call Rate
push de
ld de, MUSIC_NONE
call PlayMusic
pop de
call PlaySFX
call JoyWaitAorB
call WaitSFX
ret
Rate:
; calculate Seen/Owned
ld hl, wPokedexSeen
ld b, wEndPokedexSeen - wPokedexSeen
call CountSetBits
ld [wd002], a
ld hl, wPokedexCaught
ld b, wEndPokedexCaught - wPokedexCaught
call CountSetBits
ld [wd003], a
; print appropriate rating
call .UpdateRatingBuffers
ld hl, OakPCText3
call PrintText
call JoyWaitAorB
ld a, [wd003]
ld hl, OakRatings
call FindOakRating
push de
call PrintText
pop de
ret
.UpdateRatingBuffers:
ld hl, wStringBuffer3
ld de, wd002
call .UpdateRatingBuffer
ld hl, wStringBuffer4
ld de, wd003
call .UpdateRatingBuffer
ret
.UpdateRatingBuffer:
push hl
ld a, "@"
ld bc, ITEM_NAME_LENGTH
call ByteFill
pop hl
lb bc, PRINTNUM_LEFTALIGN | 1, 3
call PrintNum
ret
FindOakRating:
; return sound effect in de
; return text pointer in hl
nop
ld c, a
.loop
ld a, [hli]
cp c
jr nc, .match
rept 4
inc hl
endr
jr .loop
.match
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ld h, [hl]
ld l, a
ret
INCLUDE "data/events/pokedex_ratings.asm"
OakPCText1:
text_far _OakPCText1
text_end
OakPCText2:
text_far _OakPCText2
text_end
OakPCText3:
text_far _OakPCText3
text_end
OakRating01:
text_far _OakRating01
text_end
OakRating02:
text_far _OakRating02
text_end
OakRating03:
text_far _OakRating03
text_end
OakRating04:
text_far _OakRating04
text_end
OakRating05:
text_far _OakRating05
text_end
OakRating06:
text_far _OakRating06
text_end
OakRating07:
text_far _OakRating07
text_end
OakRating08:
text_far _OakRating08
text_end
OakRating09:
text_far _OakRating09
text_end
OakRating10:
text_far _OakRating10
text_end
OakRating11:
text_far _OakRating11
text_end
OakRating12:
text_far _OakRating12
text_end
OakRating13:
text_far _OakRating13
text_end
OakRating14:
text_far _OakRating14
text_end
OakRating15:
text_far _OakRating15
text_end
OakRating16:
text_far _OakRating16
text_end
OakRating17:
text_far _OakRating17
text_end
OakRating18:
text_far _OakRating18
text_end
OakRating19:
text_far _OakRating19
text_end
OakPCText4:
text_far _OakPCText4
text_end