mirror of
https://github.com/thornAvery/kep-hack.git
synced 2025-09-17 02:40:50 +12:00
8e5f603a23
The Gift Pokemon from vanilla now use the LGPE levels, which are all far more applicable for general use. With the Move Relearner's existence, it is unnecessary to hold back their levels anymore. This most notably means the Silph Co. Lapras is now Level 34, much more appropriate for general use.
111 lines
1.9 KiB
NASM
111 lines
1.9 KiB
NASM
CinnabarLabFossilRoom_Script:
|
|
jp EnableAutoTextBoxDrawing
|
|
|
|
CinnabarLabFossilRoom_TextPointers:
|
|
dw Lab4Text1
|
|
dw Lab4Text2
|
|
|
|
Lab4Script_GetFossilsInBag:
|
|
; construct a list of all fossils in the player's bag
|
|
xor a
|
|
ld [wFilteredBagItemsCount], a
|
|
ld de, wFilteredBagItems
|
|
ld hl, FossilsList
|
|
.loop
|
|
ld a, [hli]
|
|
and a
|
|
jr z, .done
|
|
push hl
|
|
push de
|
|
ld [wd11e], a
|
|
ld b, a
|
|
predef GetQuantityOfItemInBag
|
|
pop de
|
|
pop hl
|
|
ld a, b
|
|
and a
|
|
jr z, .loop
|
|
|
|
; A fossil's in the bag
|
|
ld a, [wd11e]
|
|
ld [de], a
|
|
inc de
|
|
push hl
|
|
ld hl, wFilteredBagItemsCount
|
|
inc [hl]
|
|
pop hl
|
|
jr .loop
|
|
.done
|
|
ld a, $ff
|
|
ld [de], a
|
|
ret
|
|
|
|
FossilsList:
|
|
db DOME_FOSSIL
|
|
db HELIX_FOSSIL
|
|
db OLD_AMBER
|
|
db WING_FOSSIL
|
|
db 0 ; end
|
|
|
|
Lab4Text1:
|
|
text_asm
|
|
CheckEvent EVENT_GAVE_FOSSIL_TO_LAB
|
|
jr nz, .asm_75d96
|
|
ld hl, Lab4Text_75dc6
|
|
call PrintText
|
|
call Lab4Script_GetFossilsInBag
|
|
ld a, [wFilteredBagItemsCount]
|
|
and a
|
|
jr z, .asm_75d8d
|
|
farcall GiveFossilToCinnabarLab
|
|
jr .asm_75d93
|
|
.asm_75d8d
|
|
ld hl, Lab4Text_75dcb
|
|
call PrintText
|
|
.asm_75d93
|
|
jp TextScriptEnd
|
|
.asm_75d96
|
|
CheckEventAfterBranchReuseA EVENT_LAB_STILL_REVIVING_FOSSIL, EVENT_GAVE_FOSSIL_TO_LAB
|
|
jr z, .asm_75da2
|
|
ld hl, Lab4Text_75dd0
|
|
call PrintText
|
|
jr .asm_75d93
|
|
.asm_75da2
|
|
call LoadFossilItemAndMonNameBank1D
|
|
ld hl, Lab4Text_75dd5
|
|
call PrintText
|
|
SetEvent EVENT_LAB_HANDING_OVER_FOSSIL_MON
|
|
ld a, [wFossilMon]
|
|
ld b, a
|
|
ld c, 44
|
|
call GivePokemon
|
|
jr nc, .asm_75d93
|
|
ResetEvents EVENT_GAVE_FOSSIL_TO_LAB, EVENT_LAB_STILL_REVIVING_FOSSIL, EVENT_LAB_HANDING_OVER_FOSSIL_MON
|
|
jr .asm_75d93
|
|
|
|
Lab4Text_75dc6:
|
|
text_far _Lab4Text_75dc6
|
|
text_end
|
|
|
|
Lab4Text_75dcb:
|
|
text_far _Lab4Text_75dcb
|
|
text_end
|
|
|
|
Lab4Text_75dd0:
|
|
text_far _Lab4Text_75dd0
|
|
text_end
|
|
|
|
Lab4Text_75dd5:
|
|
text_far _Lab4Text_75dd5
|
|
text_end
|
|
|
|
Lab4Text2:
|
|
text_asm
|
|
ld a, TRADE_FOR_JIMBO
|
|
ld [wWhichTrade], a
|
|
predef DoInGameTradeDialogue
|
|
jp TextScriptEnd
|
|
|
|
LoadFossilItemAndMonNameBank1D:
|
|
farjp LoadFossilItemAndMonName
|