mirror of https://github.com/pret/pokecrystal.git
395 lines
5.6 KiB
NASM
395 lines
5.6 KiB
NASM
Kurt_PrintTextWhichApricorn:
|
||
ld hl, .WhichApricornText
|
||
call PrintText
|
||
ret
|
||
|
||
.WhichApricornText:
|
||
text_far _WhichApricornText
|
||
text_end
|
||
|
||
Kurt_PrintTextHowMany:
|
||
ld hl, .HowManyShouldIMakeText
|
||
call PrintText
|
||
ret
|
||
|
||
.HowManyShouldIMakeText:
|
||
text_far _HowManyShouldIMakeText
|
||
text_end
|
||
|
||
SelectApricornForKurt:
|
||
call LoadStandardMenuHeader
|
||
ld c, $1
|
||
xor a
|
||
ld [wMenuScrollPosition], a
|
||
ld [wKurtApricornQuantity], a
|
||
.loop
|
||
push bc
|
||
call Kurt_PrintTextWhichApricorn
|
||
pop bc
|
||
ld a, c
|
||
ld [wMenuSelection], a
|
||
call Kurt_SelectApricorn
|
||
ld a, c
|
||
ld [wScriptVar], a
|
||
and a
|
||
jr z, .done
|
||
ld [wCurItem], a
|
||
ld a, [wMenuCursorY]
|
||
ld c, a
|
||
push bc
|
||
call Kurt_PrintTextHowMany
|
||
call Kurt_SelectQuantity
|
||
pop bc
|
||
jr nc, .loop
|
||
ld a, [wItemQuantityChangeBuffer]
|
||
ld [wKurtApricornQuantity], a
|
||
call Kurt_GiveUpSelectedQuantityOfSelectedApricorn
|
||
|
||
.done
|
||
call Call_ExitMenu
|
||
ret
|
||
|
||
Kurt_SelectApricorn:
|
||
farcall FindApricornsInBag
|
||
jr c, .nope
|
||
ld hl, .MenuHeader
|
||
call CopyMenuHeader
|
||
ld a, [wMenuSelection]
|
||
ld [wMenuCursorBuffer], a
|
||
xor a
|
||
ldh [hBGMapMode], a
|
||
call InitScrollingMenu
|
||
call UpdateSprites
|
||
call ScrollingMenu
|
||
ld a, [wMenuJoypad]
|
||
cp B_BUTTON
|
||
jr z, .nope
|
||
ld a, [wMenuSelection]
|
||
cp -1
|
||
jr nz, .done
|
||
|
||
.nope
|
||
xor a ; FALSE
|
||
|
||
.done
|
||
ld c, a
|
||
ret
|
||
|
||
.MenuHeader:
|
||
db MENU_BACKUP_TILES ; flags
|
||
menu_coords 1, 1, 13, 10
|
||
dw .MenuData
|
||
db 1 ; default option
|
||
|
||
db 0 ; XXX
|
||
|
||
.MenuData:
|
||
db SCROLLINGMENU_DISPLAY_ARROWS ; flags
|
||
db 4, 7 ; rows, columns
|
||
db SCROLLINGMENU_ITEMS_NORMAL ; item format
|
||
dbw 0, wBuffer1
|
||
dba .Name
|
||
dba .Quantity
|
||
dba NULL
|
||
|
||
.Name:
|
||
ld a, [wMenuSelection]
|
||
and a
|
||
ret z
|
||
farcall PlaceMenuItemName
|
||
ret
|
||
|
||
.Quantity:
|
||
ld a, [wMenuSelection]
|
||
ld [wCurItem], a
|
||
call Kurt_GetQuantityOfApricorn
|
||
ret z
|
||
ld a, [wItemQuantityChangeBuffer]
|
||
ld [wMenuSelectionQuantity], a
|
||
farcall PlaceMenuItemQuantity
|
||
ret
|
||
|
||
Kurt_SelectQuantity:
|
||
ld a, [wCurItem]
|
||
ld [wMenuSelection], a
|
||
call Kurt_GetQuantityOfApricorn
|
||
jr z, .done
|
||
ld a, [wItemQuantityChangeBuffer]
|
||
ld [wItemQuantityBuffer], a
|
||
ld a, $1
|
||
ld [wItemQuantityChangeBuffer], a
|
||
ld hl, .MenuHeader
|
||
call LoadMenuHeader
|
||
.loop
|
||
xor a
|
||
ldh [hBGMapMode], a
|
||
call MenuBox
|
||
call UpdateSprites
|
||
call .PlaceApricornName
|
||
call PlaceApricornQuantity
|
||
call ApplyTilemap
|
||
farcall Kurt_SelectQuantity_InterpretJoypad
|
||
jr nc, .loop
|
||
|
||
push bc
|
||
call PlayClickSFX
|
||
pop bc
|
||
ld a, b
|
||
cp -1
|
||
jr z, .done
|
||
ld a, [wItemQuantityChangeBuffer]
|
||
ld [wItemQuantityChangeBuffer], a ; What is the point of this operation?
|
||
scf
|
||
|
||
.done
|
||
call CloseWindow
|
||
ret
|
||
|
||
.MenuHeader:
|
||
db MENU_BACKUP_TILES ; flags
|
||
menu_coords 6, 9, SCREEN_WIDTH - 1, 12
|
||
dw NULL
|
||
db -1 ; default option
|
||
db 0
|
||
|
||
.PlaceApricornName:
|
||
call MenuBoxCoord2Tile
|
||
ld de, SCREEN_WIDTH + 1
|
||
add hl, de
|
||
ld d, h
|
||
ld e, l
|
||
farcall PlaceMenuItemName
|
||
ret
|
||
|
||
PlaceApricornQuantity:
|
||
call MenuBoxCoord2Tile
|
||
ld de, 2 * SCREEN_WIDTH + 10
|
||
add hl, de
|
||
ld [hl], "×"
|
||
inc hl
|
||
ld de, wItemQuantityChangeBuffer
|
||
lb bc, PRINTNUM_LEADINGZEROS | 1, 2
|
||
jp PrintNum
|
||
|
||
Kurt_GetQuantityOfApricorn:
|
||
push bc
|
||
ld hl, wNumItems
|
||
ld a, [wCurItem]
|
||
ld c, a
|
||
ld b, $0
|
||
.loop
|
||
inc hl
|
||
ld a, [hli]
|
||
cp -1
|
||
jr z, .done
|
||
cp c
|
||
jr nz, .loop
|
||
ld a, [hl]
|
||
add b
|
||
ld b, a
|
||
jr nc, .loop
|
||
ld b, -1
|
||
|
||
.done
|
||
ld a, b
|
||
sub 99
|
||
jr c, .done2
|
||
ld b, 99
|
||
|
||
.done2
|
||
ld a, b
|
||
ld [wItemQuantityChangeBuffer], a
|
||
and a
|
||
pop bc
|
||
ret
|
||
|
||
Kurt_GiveUpSelectedQuantityOfSelectedApricorn:
|
||
; Get the quantity of Apricorns of type [wCurItem]
|
||
; in the bag. Compatible with multiple stacks.
|
||
|
||
; Initialize the search.
|
||
push de
|
||
push bc
|
||
ld hl, wNumItems
|
||
ld a, [wCurItem]
|
||
ld c, a
|
||
ld e, $0
|
||
xor a
|
||
ld [wCurItemQuantity], a
|
||
ld a, -1
|
||
ld [wApricorns], a
|
||
|
||
; Search for [wCurItem] in the bag.
|
||
.loop1
|
||
; Increase the total count.
|
||
ld a, [wCurItemQuantity]
|
||
inc a
|
||
ld [wCurItemQuantity], a
|
||
; Get the index of the next item.
|
||
inc hl
|
||
ld a, [hli]
|
||
; If we've reached the end of the pocket, break.
|
||
cp -1
|
||
jr z, .okay1
|
||
; If we haven't found what we're looking for, continue.
|
||
cp c
|
||
jr nz, .loop1
|
||
; Increment the result counter and store the bag index of the match.
|
||
ld d, $0
|
||
push hl
|
||
ld hl, wApricorns
|
||
add hl, de
|
||
inc e
|
||
ld a, [wCurItemQuantity]
|
||
dec a
|
||
ld [hli], a
|
||
ld a, -1
|
||
ld [hl], a
|
||
pop hl
|
||
jr .loop1
|
||
|
||
.okay1
|
||
; How many stacks have we found?
|
||
ld a, e
|
||
and a
|
||
jr z, .done
|
||
dec a
|
||
jr z, .OnlyOne
|
||
ld hl, wApricorns
|
||
|
||
.loop2
|
||
ld a, [hl]
|
||
ld c, a
|
||
push hl
|
||
.loop3
|
||
inc hl
|
||
ld a, [hl]
|
||
cp -1
|
||
jr z, .okay2
|
||
ld b, a
|
||
ld a, c
|
||
call Kurt_GetAddressOfApricornQuantity
|
||
ld e, a
|
||
ld a, b
|
||
call Kurt_GetAddressOfApricornQuantity
|
||
sub e
|
||
jr z, .equal
|
||
jr c, .less
|
||
jr .loop3
|
||
|
||
.equal
|
||
ld a, c
|
||
sub b
|
||
jr nc, .loop3
|
||
|
||
.less
|
||
ld a, c
|
||
ld c, b
|
||
ld [hl], a
|
||
ld a, c
|
||
pop hl
|
||
ld [hl], a
|
||
push hl
|
||
jr .loop3
|
||
|
||
.okay2
|
||
pop hl
|
||
inc hl
|
||
ld a, [hl]
|
||
cp -1
|
||
jr nz, .loop2
|
||
|
||
.OnlyOne:
|
||
ld hl, wApricorns
|
||
.loop4
|
||
ld a, [hl]
|
||
cp -1
|
||
jr z, .done
|
||
push hl
|
||
ld [wCurItemQuantity], a
|
||
call Kurt_GetRidOfItem
|
||
pop hl
|
||
ld a, [wItemQuantityChangeBuffer]
|
||
and a
|
||
jr z, .done
|
||
push hl
|
||
ld a, [hli]
|
||
ld c, a
|
||
.loop5
|
||
ld a, [hli]
|
||
cp -1
|
||
jr z, .okay3
|
||
cp c
|
||
jr c, .loop5
|
||
dec a
|
||
dec hl
|
||
ld [hli], a
|
||
jr .loop5
|
||
|
||
.okay3
|
||
pop hl
|
||
inc hl
|
||
jr .loop4
|
||
|
||
.done
|
||
ld a, [wItemQuantityChangeBuffer]
|
||
and a
|
||
pop bc
|
||
pop de
|
||
ret
|
||
|
||
Kurt_GetAddressOfApricornQuantity:
|
||
push hl
|
||
push bc
|
||
ld hl, wNumItems
|
||
inc hl
|
||
ld c, a
|
||
ld b, $0
|
||
add hl, bc
|
||
add hl, bc
|
||
inc hl
|
||
ld a, [hl]
|
||
pop bc
|
||
pop hl
|
||
ret
|
||
|
||
Kurt_GetRidOfItem:
|
||
push bc
|
||
ld hl, wNumItems
|
||
ld a, [wCurItemQuantity]
|
||
ld c, a
|
||
ld b, $0
|
||
inc hl
|
||
add hl, bc
|
||
add hl, bc
|
||
ld a, [wCurItem]
|
||
ld c, a
|
||
ld a, [hli]
|
||
cp -1
|
||
jr z, .done
|
||
cp c
|
||
jr nz, .done
|
||
ld a, [wItemQuantityChangeBuffer]
|
||
ld c, a
|
||
ld a, [hl]
|
||
sub c
|
||
ld b, c
|
||
jr nc, .okay
|
||
add c
|
||
ld b, a
|
||
|
||
.okay
|
||
push bc
|
||
ld hl, wNumItems
|
||
ld a, b
|
||
ld [wItemQuantityChangeBuffer], a
|
||
call TossItem
|
||
pop bc
|
||
ld a, c
|
||
sub b
|
||
|
||
.done
|
||
ld [wItemQuantityChangeBuffer], a
|
||
pop bc
|
||
ret
|