mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-03-21 17:45:52 -05:00
452a322140
Some checks failed
CI / build (push) Has been cancelled
* Split bank $0f into engine/battle/core.asm and engine/overworld/wildmons.asm * Split wildmon probabilities into separate data/wild/probabilities.inc file for consistency
91 lines
1.3 KiB
NASM
91 lines
1.3 KiB
NASM
INCLUDE "constants.asm"
|
|
|
|
SECTION "home/misc_32c8.asm@Unknown 32c8", ROM0
|
|
|
|
Call_GetItemAmount::
|
|
predef GetItemAmount
|
|
ld a, b
|
|
and a
|
|
ret
|
|
|
|
GetTerminatingString::
|
|
ld hl, .EmptyString
|
|
ret
|
|
|
|
.EmptyString:
|
|
db "@"
|
|
|
|
SubtractSigned::
|
|
sub b
|
|
ret nc
|
|
cpl
|
|
add $1
|
|
scf
|
|
ret
|
|
|
|
SECTION "home/misc_32c8.asm@Unknown 3686", ROM0
|
|
|
|
GiveMonToPlayer::
|
|
; Give to the player Pokemon of species b at level c.
|
|
ld a, b
|
|
ld [wCurPartySpecies], a
|
|
ld a, c
|
|
ld [wCurPartyLevel], a
|
|
xor a
|
|
ld [wMonType], a
|
|
farjp Function1130a
|
|
|
|
WaitPressedAny::
|
|
; Waits for one of the buttons in d to be pressed.
|
|
; If bc is negative, waits forever.
|
|
; Otherwise, times out after bc frames then returns z.
|
|
|
|
; Reset hJoypadSum to clear button history
|
|
xor a
|
|
ldh [hJoypadSum], a
|
|
.loop:
|
|
; Wait for joypad polling.
|
|
call DelayFrame
|
|
|
|
; If any of the buttons in d were pressed, return nz.
|
|
ldh a, [hJoypadSum]
|
|
and a
|
|
jr z, .not_pressed
|
|
and d
|
|
ret nz
|
|
.not_pressed:
|
|
|
|
; If bc < 0, don't check timeout.
|
|
bit 7, b
|
|
jr nz, .loop
|
|
|
|
; Count down to timeout.
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .loop
|
|
|
|
; Return z, signifying that the request timed out.
|
|
ret
|
|
|
|
CountSetBits::
|
|
; Count the number of bits set in b bytes at hl.
|
|
; Return to a, c, and wNumSetBits.
|
|
ld c, $0
|
|
.asm_36b3:
|
|
ld a, [hli]
|
|
ld e, a
|
|
ld d, $8
|
|
.asm_36b7:
|
|
srl e
|
|
ld a, $0
|
|
adc c
|
|
ld c, a
|
|
dec d
|
|
jr nz, .asm_36b7
|
|
dec b
|
|
jr nz, .asm_36b3
|
|
ld a, c
|
|
ld [wNumSetBits], a
|
|
ret
|