mirror of https://github.com/pret/pokecrystal.git
1713 lines
27 KiB
NASM
1713 lines
27 KiB
NASM
DoMysteryGift:
|
|
call ClearTilemap
|
|
call ClearSprites
|
|
call WaitBGMap
|
|
call InitMysteryGiftLayout
|
|
hlcoord 3, 8
|
|
ld de, .String_PressAToLink_BToCancel
|
|
call PlaceString
|
|
call WaitBGMap
|
|
farcall PrepMysteryGiftDataToSend
|
|
call MysteryGift_ClearTrainerData
|
|
ld a, $2
|
|
ld [wca01], a
|
|
ld a, $14
|
|
ld [wca02], a
|
|
ldh a, [rIE]
|
|
push af
|
|
|
|
call Function104a95
|
|
|
|
ld d, a
|
|
xor a
|
|
ldh [rIF], a
|
|
pop af
|
|
ldh [rIE], a
|
|
push de
|
|
call ClearTilemap
|
|
call EnableLCD
|
|
call WaitBGMap
|
|
ld b, SCGB_DIPLOMA
|
|
call GetSGBLayout
|
|
call SetPalettes
|
|
pop de
|
|
hlcoord 2, 8
|
|
ld a, d
|
|
ld de, .MysteryGiftCanceledText ; Link has been canceled
|
|
cp $10
|
|
jp z, .LinkCanceled
|
|
cp $6c
|
|
jp nz, .CommunicationError
|
|
ld a, [wc900]
|
|
cp 3
|
|
jr z, .skip_checks
|
|
call .CheckAlreadyGotFiveGiftsToday
|
|
ld hl, .MysteryGiftFiveADayText ; Only 5 gifts a day
|
|
jp nc, .PrintTextAndExit
|
|
call .CheckAlreadyGotAGiftFromThatPerson
|
|
ld hl, .MysteryGiftOneADayText ; Only one gift a day per person
|
|
jp c, .PrintTextAndExit
|
|
.skip_checks
|
|
ld a, [wMysteryGiftPlayerBackupItem]
|
|
and a
|
|
jp nz, .GiftWaiting
|
|
ld a, [wMysteryGiftPartnerBackupItem]
|
|
and a
|
|
jp nz, .FriendNotReady
|
|
ld a, [wc900]
|
|
cp 3
|
|
jr z, .skip_append_save
|
|
call .AddMysteryGiftPartnerID
|
|
ld a, [wc900]
|
|
cp 4
|
|
jr z, .skip_append_save
|
|
call .SaveMysteryGiftTrainerName
|
|
farcall RestoreMobileEventIndex
|
|
farcall StubbedTrainerRankings_MysteryGift
|
|
farcall BackupMobileEventIndex
|
|
.skip_append_save
|
|
ld a, [wMysteryGiftPartnerSentDeco]
|
|
and a
|
|
jr z, .item
|
|
ld a, [wMysteryGiftPartnerWhichDeco]
|
|
ld c, a
|
|
farcall MysteryGiftGetDecoration
|
|
push bc
|
|
call MysteryGift_CheckAndSetDecorationAlreadyReceived
|
|
pop bc
|
|
jr nz, .item
|
|
callfar GetDecorationName_c
|
|
ld h, d
|
|
ld l, e
|
|
ld de, wStringBuffer1
|
|
ld bc, ITEM_NAME_LENGTH
|
|
call CopyBytes
|
|
ld hl, .MysteryGiftSentHomeText ; sent decoration to home
|
|
jr .PrintTextAndExit
|
|
|
|
.item
|
|
call GetMysteryGiftBank
|
|
ld a, [wMysteryGiftPartnerWhichItem]
|
|
ld c, a
|
|
farcall MysteryGiftGetItemHeldEffect
|
|
ld a, c
|
|
ld [sBackupMysteryGiftItem], a
|
|
ld [wNamedObjectIndexBuffer], a
|
|
call CloseSRAM
|
|
call GetItemName
|
|
ld hl, .MysteryGiftSentText ; sent item
|
|
jr .PrintTextAndExit
|
|
|
|
.LinkCanceled:
|
|
ld hl, .MysteryGiftCanceledText ; Link has been canceled
|
|
jr .PrintTextAndExit
|
|
|
|
.CommunicationError:
|
|
ld hl, .MysteryGiftCommErrorText ; Communication error
|
|
call PrintText
|
|
jp DoMysteryGift
|
|
|
|
.GiftWaiting:
|
|
ld hl, .RetrieveMysteryGiftText ; receive gift at counter
|
|
jr .PrintTextAndExit
|
|
|
|
.FriendNotReady:
|
|
ld hl, .YourFriendIsNotReadyText ; friend not ready
|
|
|
|
.PrintTextAndExit:
|
|
call PrintText
|
|
ld a, LCDC_DEFAULT
|
|
ldh [rLCDC], a
|
|
ret
|
|
|
|
.String_PressAToLink_BToCancel:
|
|
db "Press A to"
|
|
next "link IR-Device"
|
|
next "Press B to"
|
|
next "cancel it."
|
|
db "@"
|
|
|
|
.MysteryGiftCanceledText:
|
|
text_far _MysteryGiftCanceledText
|
|
text_end
|
|
|
|
.MysteryGiftCommErrorText:
|
|
text_far _MysteryGiftCommErrorText
|
|
text_end
|
|
|
|
.RetrieveMysteryGiftText:
|
|
text_far _RetrieveMysteryGiftText
|
|
text_end
|
|
|
|
.YourFriendIsNotReadyText:
|
|
text_far _YourFriendIsNotReadyText
|
|
text_end
|
|
|
|
.MysteryGiftFiveADayText:
|
|
text_far _MysteryGiftFiveADayText
|
|
text_end
|
|
|
|
.MysteryGiftOneADayText:
|
|
text_far _MysteryGiftOneADayText
|
|
text_end
|
|
|
|
.MysteryGiftSentText:
|
|
text_far _MysteryGiftSentText
|
|
text_end
|
|
|
|
.MysteryGiftSentHomeText:
|
|
text_far _MysteryGiftSentHomeText
|
|
text_end
|
|
|
|
.CheckAlreadyGotFiveGiftsToday:
|
|
call GetMysteryGiftBank
|
|
ld a, [sNumDailyMysteryGiftPartnerIDs]
|
|
cp $5
|
|
jp CloseSRAM
|
|
|
|
.CheckAlreadyGotAGiftFromThatPerson:
|
|
call GetMysteryGiftBank
|
|
ld a, [wMysteryGiftPartnerID]
|
|
ld b, a
|
|
ld a, [wMysteryGiftPartnerID + 1]
|
|
ld c, a
|
|
ld a, [sNumDailyMysteryGiftPartnerIDs]
|
|
ld d, a
|
|
ld hl, sDailyMysteryGiftPartnerIDs
|
|
.loop
|
|
ld a, d
|
|
and a
|
|
jr z, .No
|
|
ld a, [hli]
|
|
cp b
|
|
jr nz, .skip
|
|
ld a, [hl]
|
|
cp c
|
|
jr z, .Yes
|
|
.skip
|
|
inc hl
|
|
dec d
|
|
jr .loop
|
|
.Yes:
|
|
scf
|
|
.No:
|
|
jp CloseSRAM
|
|
|
|
.AddMysteryGiftPartnerID:
|
|
call GetMysteryGiftBank
|
|
ld hl, sNumDailyMysteryGiftPartnerIDs
|
|
ld a, [hl]
|
|
inc [hl]
|
|
ld hl, sDailyMysteryGiftPartnerIDs ; inc hl
|
|
ld e, a
|
|
ld d, $0
|
|
add hl, de
|
|
add hl, de
|
|
ld a, [wMysteryGiftPartnerID]
|
|
ld [hli], a
|
|
ld a, [wMysteryGiftPartnerID + 1]
|
|
ld [hl], a
|
|
jp CloseSRAM
|
|
|
|
.SaveMysteryGiftTrainerName:
|
|
call GetMysteryGiftBank
|
|
ld a, $1
|
|
ld [sMysteryGiftTrainerHouseFlag], a
|
|
ld hl, wMysteryGiftPartnerName
|
|
ld de, sMysteryGiftPartnerName
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
ld a, $1
|
|
ld [de], a
|
|
inc de
|
|
ld hl, wMysteryGiftTrainerData
|
|
ld bc, (1 + 1 + NUM_MOVES) * PARTY_LENGTH + 2
|
|
call CopyBytes
|
|
jp CloseSRAM
|
|
|
|
Function104a95:
|
|
di
|
|
farcall ClearChannels
|
|
call Function104d5e
|
|
|
|
.loop2
|
|
call Function104d96
|
|
call Function104ddd
|
|
ldh a, [hMGStatusFlags]
|
|
cp $10
|
|
jp z, Function104bd0
|
|
cp $6c
|
|
jr nz, .loop2
|
|
|
|
ldh a, [hPrintNumBuffer + 8]
|
|
cp $2
|
|
jr z, Function104b22
|
|
ld hl, hPrintNumBuffer
|
|
ld b, $1
|
|
call Function104d56
|
|
jr nz, .ly_loop
|
|
call Function104b49
|
|
jp nz, Function104bd0
|
|
jr Function104b0a
|
|
; Delay frame
|
|
.ly_loop
|
|
ldh a, [rLY]
|
|
cp LY_VBLANK
|
|
jr c, .ly_loop
|
|
ld c, LOW(rRP)
|
|
ld a, $c0
|
|
ldh [c], a
|
|
ld b, 240 ; This might have been intended as a 4-second timeout buffer.
|
|
; However, it is reset with each frame.
|
|
.loop3
|
|
push bc
|
|
call MysteryGift_ReadJoypad
|
|
|
|
ld b, $2
|
|
ld c, LOW(rRP)
|
|
; Delay frame
|
|
.ly_loop2
|
|
ldh a, [c]
|
|
and b
|
|
ld b, a
|
|
ldh a, [rLY]
|
|
cp LY_VBLANK
|
|
jr nc, .ly_loop2
|
|
.ly_loop3
|
|
ldh a, [c]
|
|
and b
|
|
ld b, a
|
|
ldh a, [rLY]
|
|
cp LY_VBLANK
|
|
jr c, .ly_loop3
|
|
|
|
ld a, b
|
|
pop bc
|
|
dec b
|
|
jr z, .loop2 ; we never jump here
|
|
or a
|
|
jr nz, .loop2
|
|
; Check if we've pressed the B button
|
|
ldh a, [hMGJoypadReleased]
|
|
bit B_BUTTON_F, a
|
|
jr z, .loop3
|
|
ld a, $10
|
|
ldh [hMGStatusFlags], a
|
|
jp Function104bd0
|
|
|
|
Function104b04:
|
|
call Function104b40
|
|
jp nz, Function104bd0
|
|
Function104b0a:
|
|
call Function104d38
|
|
jp nz, Function104bd0
|
|
call Function104b88
|
|
jp nz, Function104bd0
|
|
call Function104d43
|
|
jp nz, Function104bd0
|
|
call Function105033
|
|
jp Function104bd0
|
|
|
|
Function104b22:
|
|
call Function104b88
|
|
jp nz, Function104bd0
|
|
call Function104d43
|
|
jp nz, Function104bd0
|
|
call Function104b40
|
|
jp nz, Function104bd0
|
|
call Function104d38
|
|
jp nz, Function104bd0
|
|
call Function10502e
|
|
jp Function104bd0
|
|
|
|
Function104b40:
|
|
ld hl, hPrintNumBuffer
|
|
ld b, $1
|
|
call Function104d56
|
|
ret nz
|
|
|
|
Function104b49:
|
|
call Function105033
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret nz
|
|
ldh a, [hPrintNumBuffer]
|
|
cp $96
|
|
jp nz, Function104d32
|
|
ld a, $90
|
|
ldh [hPrintNumBuffer], a
|
|
call Function104d38
|
|
ret nz
|
|
ld hl, hPrintNumBuffer
|
|
ld b, $1
|
|
call Function104d4e
|
|
ret nz
|
|
call Function10502e
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret nz
|
|
call Function104d43
|
|
ret nz
|
|
ld hl, wMysteryGiftTrainerData
|
|
ld a, [wca02]
|
|
ld b, a
|
|
call Function104d56
|
|
ret nz
|
|
call Function105033
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret
|
|
|
|
Function104b88:
|
|
ld a, $96
|
|
ldh [hPrintNumBuffer], a
|
|
ld hl, hPrintNumBuffer
|
|
ld b, $1
|
|
call Function104d4e
|
|
ret nz
|
|
call Function10502e
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret nz
|
|
call Function104d43
|
|
ret nz
|
|
ld hl, hPrintNumBuffer
|
|
ld b, $1
|
|
call Function104d56
|
|
ret nz
|
|
call Function105033
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret nz
|
|
ldh a, [hPrintNumBuffer]
|
|
cp $90
|
|
jp nz, Function104d32
|
|
call Function104d38
|
|
ret nz
|
|
ld hl, wLinkData
|
|
ld a, [wca02]
|
|
ld b, a
|
|
call Function104d4e
|
|
ret nz
|
|
call Function10502e
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret
|
|
|
|
Function104bd0:
|
|
nop
|
|
ldh a, [hMGStatusFlags]
|
|
cp $10
|
|
jr z, .quit
|
|
cp $6c
|
|
jr nz, .quit
|
|
ld hl, wca01
|
|
dec [hl]
|
|
jr z, .quit
|
|
ld hl, wMysteryGiftTrainerData
|
|
ld de, wMysteryGiftPartnerData
|
|
ld bc, wMysteryGiftPartnerDataEnd - wMysteryGiftPartnerData
|
|
call CopyBytes
|
|
ld a, [wMysteryGiftTrainerData]
|
|
cp $3
|
|
jr nc, .quit
|
|
farcall StagePartyDataForMysteryGift
|
|
call MysteryGift_ClearTrainerData
|
|
ld a, $26
|
|
ld [wca02], a
|
|
ldh a, [hPrintNumBuffer + 8]
|
|
cp $2
|
|
jr z, .asm_104c10
|
|
call Function104d43
|
|
jr nz, Function104bd0
|
|
jp Function104b04
|
|
|
|
.asm_104c10
|
|
call Function104d38
|
|
jr nz, Function104bd0
|
|
jp Function104b22
|
|
|
|
.quit
|
|
ldh a, [hMGStatusFlags]
|
|
push af
|
|
call Function104da0
|
|
xor a
|
|
ldh [rIF], a
|
|
ldh a, [rIE]
|
|
or 1 << VBLANK
|
|
ldh [rIE], a
|
|
ei
|
|
call DelayFrame
|
|
pop af
|
|
ret
|
|
|
|
Function104c2d:
|
|
di
|
|
farcall ClearChannels
|
|
call Function104d5e
|
|
.asm_104c37
|
|
call Function104d96
|
|
call Function104ddd
|
|
ldh a, [hMGStatusFlags]
|
|
cp $10
|
|
jp z, Function104d1c
|
|
cp $6c
|
|
jr nz, .asm_104c37
|
|
ldh a, [hPrintNumBuffer + 8]
|
|
cp $2
|
|
jr z, .asm_104c6c
|
|
call Function104c8a
|
|
jp nz, Function104d1c
|
|
call Function104d38
|
|
jp nz, Function104d1c
|
|
call Function104cd2
|
|
jp nz, Function104d1c
|
|
call Function104d43
|
|
jp nz, Function104d1c
|
|
call Function105033
|
|
jp Function104d1c
|
|
.asm_104c6c
|
|
call Function104cd2
|
|
jp nz, Function104d1c
|
|
call Function104d43
|
|
jp nz, Function104d1c
|
|
call Function104c8a
|
|
jp nz, Function104d1c
|
|
call Function104d38
|
|
jp nz, Function104d1c
|
|
call Function10502e
|
|
jp Function104d1c
|
|
|
|
Function104c8a:
|
|
ld hl, hPrintNumBuffer
|
|
ld b, $1
|
|
call Function104d56
|
|
ret nz
|
|
call Function105033
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret nz
|
|
ldh a, [hPrintNumBuffer]
|
|
cp $3c
|
|
jp nz, Function104d32
|
|
swap a
|
|
ldh [hPrintNumBuffer], a
|
|
call Function104d38
|
|
ret nz
|
|
ld hl, hPrintNumBuffer
|
|
ld b, $1
|
|
call Function104d4e
|
|
ret nz
|
|
call Function10502e
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret nz
|
|
call Function104d43
|
|
ret nz
|
|
ld hl, wMysteryGiftTrainerData
|
|
ld a, [wca02]
|
|
ld b, a
|
|
call Function104d56
|
|
ret nz
|
|
call Function105033
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret
|
|
|
|
Function104cd2:
|
|
ld a, $3c
|
|
ldh [hPrintNumBuffer], a
|
|
ld hl, hPrintNumBuffer
|
|
ld b, $1
|
|
call Function104d4e
|
|
ret nz
|
|
call Function10502e
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret nz
|
|
call Function104d43
|
|
ret nz
|
|
ld hl, hPrintNumBuffer
|
|
ld b, $1
|
|
call Function104d56
|
|
ret nz
|
|
call Function105033
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret nz
|
|
ldh a, [hPrintNumBuffer]
|
|
swap a
|
|
cp $3c
|
|
jp nz, Function104d32
|
|
call Function104d38
|
|
ret nz
|
|
ld hl, wLinkData
|
|
ld a, [wca02]
|
|
ld b, a
|
|
call Function104d4e
|
|
ret nz
|
|
call Function10502e
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret
|
|
|
|
Function104d1c:
|
|
nop
|
|
ldh a, [hMGStatusFlags]
|
|
push af
|
|
call Function104da0
|
|
xor a
|
|
ldh [rIF], a
|
|
ldh a, [rIE]
|
|
or 1 << VBLANK
|
|
ldh [rIE], a
|
|
ei
|
|
call DelayFrame
|
|
pop af
|
|
ret
|
|
|
|
Function104d32:
|
|
ld a, $80
|
|
ldh [hMGStatusFlags], a
|
|
and a
|
|
ret
|
|
|
|
Function104d38:
|
|
call Function104d96
|
|
call Function104e46
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret
|
|
|
|
Function104d43:
|
|
call Function104d96
|
|
call Function104dfe
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret
|
|
|
|
Function104d4e:
|
|
call Function104e93
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret
|
|
|
|
Function104d56:
|
|
call Function104f57
|
|
ldh a, [hMGStatusFlags]
|
|
cp $6c
|
|
ret
|
|
|
|
Function104d5e:
|
|
call Function104d74
|
|
ld a, 1 << TIMER
|
|
ldh [rIE], a
|
|
xor a
|
|
ldh [rIF], a
|
|
call Function104d96
|
|
xor a
|
|
ld b, a
|
|
.asm_104d6d
|
|
inc a
|
|
jr nz, .asm_104d6d
|
|
inc b
|
|
jr nz, .asm_104d6d
|
|
ret
|
|
|
|
Function104d74:
|
|
xor a
|
|
ldh [rTAC], a
|
|
ld a, $fe
|
|
ldh [rTMA], a
|
|
ldh [rTIMA], a
|
|
ld a, $2
|
|
ldh [rTAC], a
|
|
or $4
|
|
ldh [rTAC], a
|
|
ret
|
|
|
|
Function104d86:
|
|
xor a
|
|
ldh [rTAC], a
|
|
ldh [rTMA], a
|
|
ldh [rTIMA], a
|
|
ld a, $2
|
|
ldh [rTAC], a
|
|
or $4
|
|
ldh [rTAC], a
|
|
ret
|
|
|
|
Function104d96:
|
|
ld a, $c0
|
|
call Function104e8c
|
|
ld a, $1
|
|
ldh [hPrintNumBuffer + 8], a
|
|
ret
|
|
|
|
Function104da0:
|
|
xor a
|
|
call Function104e8c
|
|
ld a, $2
|
|
ldh [rTAC], a
|
|
ret
|
|
|
|
Function104da9:
|
|
inc d
|
|
ret z
|
|
xor a
|
|
ldh [rIF], a
|
|
halt
|
|
ldh a, [c]
|
|
bit 1, a
|
|
jr z, Function104da9
|
|
or a
|
|
ret
|
|
|
|
Function104db7:
|
|
inc d
|
|
ret z
|
|
xor a
|
|
ldh [rIF], a
|
|
halt
|
|
ldh a, [c]
|
|
bit 1, a
|
|
jr nz, Function104db7
|
|
or a
|
|
ret
|
|
|
|
Function104dc5:
|
|
ld a, $c1
|
|
ldh [c], a
|
|
.wait
|
|
dec d
|
|
ret z
|
|
xor a
|
|
ldh [rIF], a
|
|
halt
|
|
jr .wait
|
|
|
|
Function104dd1:
|
|
ld a, $c0
|
|
ldh [c], a
|
|
.wait
|
|
dec d
|
|
ret z
|
|
xor a
|
|
ldh [rIF], a
|
|
halt
|
|
jr .wait
|
|
|
|
Function104ddd:
|
|
ld d, $0
|
|
ld e, d
|
|
ld a, $1
|
|
ldh [hPrintNumBuffer + 8], a
|
|
.loop
|
|
call MysteryGift_ReadJoypad
|
|
ld b, $2
|
|
ld c, LOW(rRP)
|
|
ldh a, [hMGJoypadReleased]
|
|
bit B_BUTTON_F, a
|
|
jr z, .next
|
|
ld a, $10
|
|
ldh [hMGStatusFlags], a
|
|
ret
|
|
|
|
.next
|
|
bit 0, a
|
|
jr nz, Function104e3a
|
|
ldh a, [c]
|
|
and b
|
|
jr nz, .loop
|
|
|
|
Function104dfe:
|
|
ld c, LOW(rRP)
|
|
ld d, $0
|
|
ld e, d
|
|
call Function104db7
|
|
jp z, Function104f42
|
|
ld d, e
|
|
call Function104da9
|
|
jp z, Function104f42
|
|
call Function104db7
|
|
jp z, Function104f42
|
|
call Function104da9
|
|
jp z, Function104f42
|
|
ld a, $6c
|
|
ldh [hMGStatusFlags], a
|
|
ld d, $3d
|
|
call Function104dd1
|
|
ld d, $5
|
|
call Function104dc5
|
|
ld d, $15
|
|
call Function104dd1
|
|
ld d, $5
|
|
call Function104dc5
|
|
ld d, $5
|
|
call Function104dd1
|
|
ret
|
|
|
|
Function104e3a:
|
|
; Wait a random amount of time
|
|
call Random
|
|
ld e, a
|
|
and $f
|
|
ld d, a
|
|
.loop
|
|
dec de
|
|
ld a, d
|
|
or e
|
|
jr nz, .loop
|
|
Function104e46:
|
|
ld a, $2
|
|
ldh [hPrintNumBuffer + 8], a
|
|
ld c, LOW(rRP)
|
|
ld d, $0
|
|
ld e, d
|
|
ld d, $3d
|
|
call Function104dd1
|
|
ld d, $5
|
|
call Function104dc5
|
|
ld d, $15
|
|
call Function104dd1
|
|
ld d, $5
|
|
call Function104dc5
|
|
ld d, $5
|
|
call Function104dd1
|
|
ld d, e
|
|
call Function104db7
|
|
jp z, Function104f42
|
|
ld d, e
|
|
call Function104da9
|
|
jp z, Function104f42
|
|
call Function104db7
|
|
jp z, Function104f42
|
|
call Function104da9
|
|
jp z, Function104f42
|
|
ld d, $3d
|
|
call Function104dd1
|
|
ld a, $6c
|
|
ldh [hMGStatusFlags], a
|
|
ret
|
|
|
|
Function104e8c:
|
|
ldh [rRP], a
|
|
ld a, $ff
|
|
ldh [hMGStatusFlags], a
|
|
ret
|
|
|
|
Function104e93:
|
|
xor a
|
|
ldh [hPrintNumBuffer + 4], a
|
|
ldh [hPrintNumBuffer + 5], a
|
|
push hl
|
|
push bc
|
|
ld c, LOW(rRP)
|
|
ld d, $3d
|
|
call Function104dd1
|
|
ld hl, hPrintNumBuffer + 1
|
|
ld a, $5a
|
|
ld [hli], a
|
|
ld [hl], b
|
|
dec hl
|
|
ld b, $2
|
|
call Function104ed6
|
|
pop bc
|
|
pop hl
|
|
call Function104ed6
|
|
ldh a, [hPrintNumBuffer + 4]
|
|
ldh [hPrintNumBuffer + 1], a
|
|
ldh a, [hPrintNumBuffer + 5]
|
|
ldh [hPrintNumBuffer + 2], a
|
|
push hl
|
|
ld hl, hPrintNumBuffer + 1
|
|
ld b, $2
|
|
call Function104ed6
|
|
ld hl, hMGStatusFlags
|
|
ld b, $1
|
|
call Function104faf
|
|
ldh a, [hPrintNumBuffer + 1]
|
|
ldh [hPrintNumBuffer + 4], a
|
|
ldh a, [hPrintNumBuffer + 2]
|
|
ldh [hPrintNumBuffer + 5], a
|
|
pop hl
|
|
ret
|
|
|
|
Function104ed6:
|
|
ld c, LOW(rRP)
|
|
ld d, $5
|
|
call Function104dd1
|
|
ld d, $5
|
|
call Function104dc5
|
|
ld d, $15
|
|
call Function104dd1
|
|
ld a, b
|
|
cpl
|
|
ld b, a
|
|
ld a, $f4
|
|
ldh [rTMA], a
|
|
.asm_104eee
|
|
inc b
|
|
jr z, .asm_104f2e
|
|
ld a, $8
|
|
ldh [hPrintNumBuffer + 3], a
|
|
ld a, [hli]
|
|
ld e, a
|
|
ldh a, [hPrintNumBuffer + 4]
|
|
add e
|
|
ldh [hPrintNumBuffer + 4], a
|
|
ldh a, [hPrintNumBuffer + 5]
|
|
adc 0
|
|
ldh [hPrintNumBuffer + 5], a
|
|
.asm_104f02
|
|
xor a
|
|
ldh [rIF], a
|
|
halt
|
|
ld a, $c1
|
|
ldh [rRP], a
|
|
ld d, $1
|
|
ld a, e
|
|
rlca
|
|
ld e, a
|
|
jr nc, .asm_104f13
|
|
inc d
|
|
.asm_104f13
|
|
ldh a, [rTIMA]
|
|
cp $f8
|
|
jr c, .asm_104f13
|
|
ld a, $c0
|
|
ldh [rRP], a
|
|
dec d
|
|
jr z, .asm_104f25
|
|
xor a
|
|
ldh [rIF], a
|
|
halt
|
|
.asm_104f25
|
|
ldh a, [hPrintNumBuffer + 3]
|
|
dec a
|
|
jr z, .asm_104eee
|
|
ldh [hPrintNumBuffer + 3], a
|
|
jr .asm_104f02
|
|
.asm_104f2e
|
|
ld a, $fe
|
|
ldh [rTMA], a
|
|
xor a
|
|
ldh [rIF], a
|
|
halt
|
|
ld d, $5
|
|
call Function104dc5
|
|
ld d, $11
|
|
call Function104dd1
|
|
ret
|
|
|
|
Function104f42:
|
|
ldh a, [hMGStatusFlags]
|
|
or $2
|
|
ldh [hMGStatusFlags], a
|
|
ret
|
|
|
|
Function104f49:
|
|
ldh a, [hMGStatusFlags]
|
|
or $1
|
|
ldh [hMGStatusFlags], a
|
|
ret
|
|
|
|
Function104f50:
|
|
ldh a, [hMGStatusFlags]
|
|
or $80
|
|
ldh [hMGStatusFlags], a
|
|
ret
|
|
|
|
Function104f57:
|
|
xor a
|
|
ldh [hPrintNumBuffer + 4], a
|
|
ldh [hPrintNumBuffer + 5], a
|
|
push bc
|
|
push hl
|
|
ld hl, hPrintNumBuffer + 1
|
|
ld b, $2
|
|
call Function104faf
|
|
ldh a, [hPrintNumBuffer + 2]
|
|
ldh [hPrintNumBuffer + 7], a
|
|
ld b, a
|
|
pop hl
|
|
pop af
|
|
cp b
|
|
jp c, Function104f50
|
|
ldh a, [hPrintNumBuffer + 1]
|
|
cp $5a
|
|
jp nz, Function104f50
|
|
call Function104faf
|
|
ldh a, [hPrintNumBuffer + 4]
|
|
ld d, a
|
|
ldh a, [hPrintNumBuffer + 5]
|
|
ld e, a
|
|
push hl
|
|
push de
|
|
ld hl, hPrintNumBuffer + 1
|
|
ld b, $2
|
|
call Function104faf
|
|
pop de
|
|
ld hl, hPrintNumBuffer + 1
|
|
ld a, [hli]
|
|
xor d
|
|
ld b, a
|
|
ld a, [hl]
|
|
xor e
|
|
or b
|
|
call nz, Function104f49
|
|
push de
|
|
ld d, $3d
|
|
call Function104dd1
|
|
ld hl, hMGStatusFlags
|
|
ld b, $1
|
|
call Function104ed6
|
|
pop de
|
|
pop hl
|
|
ld a, d
|
|
ldh [hPrintNumBuffer + 4], a
|
|
ld a, e
|
|
ldh [hPrintNumBuffer + 5], a
|
|
ret
|
|
|
|
Function104faf:
|
|
ld c, LOW(rRP)
|
|
ld d, $0
|
|
call Function104db7
|
|
jp z, Function104f42
|
|
ld d, $0
|
|
call Function104da9
|
|
jp z, Function104f42
|
|
ld d, $0
|
|
call Function104db7
|
|
jp z, Function104f42
|
|
ld a, b
|
|
cpl
|
|
ld b, a
|
|
xor a
|
|
ldh [hMGPrevTIMA], a
|
|
call Function104d86
|
|
.asm_104fd2
|
|
inc b
|
|
jr z, .asm_10501a
|
|
ld a, $8
|
|
ldh [hPrintNumBuffer + 3], a
|
|
.asm_104fd9
|
|
ld d, $0
|
|
.asm_104fdb
|
|
inc d
|
|
jr z, .asm_104fe5
|
|
ldh a, [c]
|
|
bit 1, a
|
|
jr z, .asm_104fdb
|
|
ld d, $0
|
|
.asm_104fe5
|
|
inc d
|
|
jr z, .asm_104fed
|
|
ldh a, [c]
|
|
bit 1, a
|
|
jr nz, .asm_104fe5
|
|
.asm_104fed
|
|
ldh a, [hMGPrevTIMA]
|
|
ld d, a
|
|
ldh a, [rTIMA]
|
|
ldh [hMGPrevTIMA], a
|
|
sub d
|
|
cp $12
|
|
jr c, .asm_104ffd
|
|
set 0, e
|
|
jr .asm_104fff
|
|
.asm_104ffd
|
|
res 0, e
|
|
.asm_104fff
|
|
ldh a, [hPrintNumBuffer + 3]
|
|
dec a
|
|
ldh [hPrintNumBuffer + 3], a
|
|
jr z, .asm_10500b
|
|
ld a, e
|
|
rlca
|
|
ld e, a
|
|
jr .asm_104fd9
|
|
.asm_10500b
|
|
ld a, e
|
|
ld [hli], a
|
|
ldh a, [hPrintNumBuffer + 4]
|
|
add e
|
|
ldh [hPrintNumBuffer + 4], a
|
|
ldh a, [hPrintNumBuffer + 5]
|
|
adc 0
|
|
ldh [hPrintNumBuffer + 5], a
|
|
jr .asm_104fd2
|
|
.asm_10501a
|
|
call Function104d74
|
|
xor a
|
|
ldh [rIF], a
|
|
ld d, $0
|
|
call Function104da9
|
|
jp z, Function104f42
|
|
ld d, $10
|
|
call Function104dd1
|
|
ret
|
|
|
|
Function10502e:
|
|
ld b, $0
|
|
jp Function104e93
|
|
|
|
Function105033:
|
|
ld b, $0
|
|
jp Function104f57
|
|
|
|
MysteryGift_ReadJoypad:
|
|
; We can only get four inputs at a time.
|
|
; We take d-pad first for no particular reason.
|
|
ld a, R_DPAD
|
|
ldh [rJOYP], a
|
|
; Read twice to give the request time to take.
|
|
ldh a, [rJOYP]
|
|
ldh a, [rJOYP]
|
|
|
|
; The Joypad register output is in the lo nybble (inversed).
|
|
; We make the hi nybble of our new container d-pad input.
|
|
cpl
|
|
and $f
|
|
swap a
|
|
|
|
; We'll keep this in b for now.
|
|
ld b, a
|
|
|
|
; Buttons make 8 total inputs (A, B, Select, Start).
|
|
; We can fit this into one byte.
|
|
ld a, R_BUTTONS
|
|
ldh [rJOYP], a
|
|
; Wait for input to stabilize.
|
|
rept 6
|
|
ldh a, [rJOYP]
|
|
endr
|
|
; Buttons take the lo nybble.
|
|
cpl
|
|
and $f
|
|
or b
|
|
ld c, a
|
|
; To get the delta we xor the last frame's input with the new one.
|
|
ldh a, [hMGJoypadPressed]
|
|
xor c
|
|
; Released this frame:
|
|
and c
|
|
ldh [hMGJoypadReleased], a
|
|
; Pressed this frame:
|
|
ld a, c
|
|
ldh [hMGJoypadPressed], a
|
|
ld a, $30
|
|
; Reset the joypad register since we're done with it.
|
|
ldh [rJOYP], a
|
|
ret
|
|
|
|
MysteryGift_CheckAndSetDecorationAlreadyReceived:
|
|
call GetMysteryGiftBank
|
|
ld d, $0
|
|
ld b, CHECK_FLAG
|
|
ld hl, sMysteryGiftDecorationsReceived
|
|
lda_predef SmallFarFlagAction
|
|
push hl
|
|
push bc
|
|
call Predef
|
|
call CloseSRAM
|
|
ld a, c
|
|
and a
|
|
pop bc
|
|
pop hl
|
|
ret nz
|
|
call GetMysteryGiftBank
|
|
ld b, SET_FLAG
|
|
predef SmallFarFlagAction
|
|
call CloseSRAM
|
|
xor a
|
|
ret
|
|
|
|
MysteryGift_CopyReceivedDecosToPC:
|
|
call GetMysteryGiftBank
|
|
ld c, $0
|
|
.loop
|
|
push bc
|
|
ld d, $0
|
|
ld b, CHECK_FLAG
|
|
ld hl, sMysteryGiftDecorationsReceived
|
|
predef SmallFarFlagAction
|
|
ld a, c
|
|
and a
|
|
pop bc
|
|
jr z, .skip
|
|
push bc
|
|
callfar SetSpecificDecorationFlag
|
|
pop bc
|
|
.skip
|
|
inc c
|
|
ld a, c
|
|
cp TrophyIDs - DecorationIDs
|
|
jr c, .loop
|
|
jp CloseSRAM
|
|
|
|
UnlockMysteryGift:
|
|
call GetMysteryGiftBank
|
|
ld hl, sMysteryGiftUnlocked
|
|
ld a, [hl]
|
|
inc a
|
|
jr nz, .ok
|
|
ld [hld], a
|
|
ld [hl], a
|
|
.ok
|
|
jp CloseSRAM
|
|
|
|
Function1050c8:
|
|
call GetMysteryGiftBank
|
|
ld a, [sNumDailyMysteryGiftPartnerIDs]
|
|
cp $ff
|
|
jr z, .okay
|
|
xor a
|
|
ld [sNumDailyMysteryGiftPartnerIDs], a
|
|
.okay
|
|
jp CloseSRAM
|
|
|
|
BackupMysteryGift:
|
|
call GetMysteryGiftBank
|
|
ld hl, sMysteryGiftItem
|
|
ld de, sBackupMysteryGiftItem
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
ld a, [hl]
|
|
ld [de], a
|
|
jp CloseSRAM
|
|
|
|
RestoreMysteryGift:
|
|
call GetMysteryGiftBank
|
|
ld hl, sBackupMysteryGiftItem
|
|
ld de, sMysteryGiftItem
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
ld a, [hl]
|
|
ld [de], a
|
|
jp CloseSRAM
|
|
|
|
MysteryGift_ClearTrainerData:
|
|
ld hl, wMysteryGiftTrainerData
|
|
xor a
|
|
ld b, wMysteryGiftTrainerDataEnd - wMysteryGiftTrainerData
|
|
.loop
|
|
ld [hli], a
|
|
dec b
|
|
jr nz, .loop
|
|
ret
|
|
|
|
GetMysteryGiftBank:
|
|
ld a, BANK(sBackupMysteryGiftItem)
|
|
jp GetSRAMBank
|
|
|
|
StagePartyDataForMysteryGift:
|
|
; You will be sending this data to your mystery gift partner.
|
|
; Structure is the same as a trainer with species and moves
|
|
; defined.
|
|
ld a, BANK(sPokemonData)
|
|
call GetSRAMBank
|
|
ld de, wMysteryGiftStaging
|
|
ld bc, sPokemonData + wPartyMons - wPokemonData
|
|
ld hl, sPokemonData + wPartySpecies - wPokemonData
|
|
.loop
|
|
ld a, [hli]
|
|
cp -1
|
|
jr z, .party_end
|
|
cp EGG
|
|
jr z, .next
|
|
push hl
|
|
; copy level
|
|
ld hl, MON_LEVEL
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [de], a
|
|
inc de
|
|
; copy species
|
|
ld hl, MON_SPECIES
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [de], a
|
|
inc de
|
|
; copy moves
|
|
ld hl, MON_MOVES
|
|
add hl, bc
|
|
push bc
|
|
ld bc, NUM_MOVES
|
|
call CopyBytes
|
|
pop bc
|
|
pop hl
|
|
.next
|
|
push hl
|
|
ld hl, PARTYMON_STRUCT_LENGTH
|
|
add hl, bc
|
|
ld b, h
|
|
ld c, l
|
|
pop hl
|
|
jr .loop
|
|
.party_end
|
|
ld a, -1
|
|
ld [de], a
|
|
ld a, $26
|
|
ld [wca00], a
|
|
jp CloseSRAM
|
|
|
|
InitMysteryGiftLayout:
|
|
call ClearBGPalettes
|
|
call DisableLCD
|
|
ld hl, MysteryGiftGFX
|
|
ld de, vTiles2 tile $00
|
|
ld a, BANK(MysteryGiftGFX)
|
|
ld bc, $43 tiles
|
|
call FarCopyBytes
|
|
hlcoord 0, 0
|
|
ld a, $42
|
|
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
|
|
call ByteFill
|
|
hlcoord 3, 7
|
|
lb bc, 9, 15
|
|
call ClearBox
|
|
hlcoord 0, 0
|
|
ld a, $0
|
|
ld [hli], a
|
|
inc a
|
|
ld [hl], a
|
|
hlcoord 0, 1
|
|
inc a
|
|
ld [hli], a
|
|
inc a
|
|
ld [hl], a
|
|
hlcoord 7, 1
|
|
ld a, $12
|
|
call .Load5GFX
|
|
hlcoord 2, 2
|
|
ld a, $17
|
|
call .Load16GFX
|
|
hlcoord 2, 3
|
|
ld a, $27
|
|
call .Load16GFX
|
|
hlcoord 9, 4
|
|
ld a, $37
|
|
ld [hli], a
|
|
inc a
|
|
ld [hl], a
|
|
hlcoord 1, 2
|
|
ld [hl], $4
|
|
hlcoord 1, 3
|
|
ld a, $5
|
|
call .Load14Column
|
|
ld a, $9
|
|
hlcoord 18, 5
|
|
call .Load11Column
|
|
hlcoord 2, 5
|
|
ld a, $b
|
|
call .Load16Row
|
|
hlcoord 2, 16
|
|
ld a, $7
|
|
call .Load16Row
|
|
hlcoord 2, 5
|
|
ld a, $d
|
|
call .Load5GFX
|
|
hlcoord 7, 5
|
|
ld [hl], $c
|
|
hlcoord 18, 5
|
|
ld [hl], $a
|
|
hlcoord 18, 16
|
|
ld [hl], $8
|
|
hlcoord 1, 16
|
|
ld [hl], $6
|
|
hlcoord 2, 6
|
|
ld a, $3a
|
|
call .Load16Row
|
|
hlcoord 2, 15
|
|
ld a, $40
|
|
call .Load16Row
|
|
hlcoord 2, 6
|
|
ld a, $3c
|
|
call .Load9Column
|
|
hlcoord 17, 6
|
|
ld a, $3e
|
|
call .Load9Column
|
|
hlcoord 2, 6
|
|
ld [hl], $39
|
|
hlcoord 17, 6
|
|
ld [hl], $3b
|
|
hlcoord 2, 15
|
|
ld [hl], $3f
|
|
hlcoord 17, 15
|
|
ld [hl], $41
|
|
call EnableLCD
|
|
call WaitBGMap
|
|
ld b, SCGB_MYSTERY_GIFT
|
|
call GetSGBLayout
|
|
call SetPalettes
|
|
ret
|
|
|
|
.Load5GFX:
|
|
ld b, 5
|
|
jr .gfx_loop
|
|
|
|
.Unreferenced_Load6GFX:
|
|
ld b, 6
|
|
jr .gfx_loop
|
|
|
|
.Load16GFX:
|
|
ld b, 16
|
|
|
|
.gfx_loop
|
|
ld [hli], a
|
|
inc a
|
|
dec b
|
|
jr nz, .gfx_loop
|
|
ret
|
|
|
|
.Load9Column:
|
|
ld b, 9
|
|
jr .col_loop
|
|
|
|
.Load11Column:
|
|
ld b, 11
|
|
jr .col_loop
|
|
|
|
.Load14Column:
|
|
ld b, 14
|
|
|
|
.col_loop
|
|
ld [hl], a
|
|
ld de, SCREEN_WIDTH
|
|
add hl, de
|
|
dec b
|
|
jr nz, .col_loop
|
|
ret
|
|
|
|
.Load16Row:
|
|
ld b, 16
|
|
.row_loop
|
|
ld [hli], a
|
|
dec b
|
|
jr nz, .row_loop
|
|
ret
|
|
|
|
MysteryGiftGFX:
|
|
INCBIN "gfx/mystery_gift/mystery_gift.2bpp"
|
|
|
|
Function105688:
|
|
call ClearTilemap
|
|
call ClearSprites
|
|
call WaitBGMap
|
|
call Function1057d7
|
|
hlcoord 3, 8
|
|
ld de, String_PressAToLink_BToCancel_JP
|
|
call PlaceString
|
|
call WaitBGMap
|
|
call Function10578c
|
|
call MysteryGift_ClearTrainerData
|
|
ld a, $24
|
|
ld [wca02], a
|
|
ldh a, [rIE]
|
|
push af
|
|
call Function104c2d
|
|
ld d, a
|
|
xor a
|
|
ldh [rIF], a
|
|
pop af
|
|
ldh [rIE], a
|
|
ld a, d
|
|
cp $10
|
|
jp z, Function105712
|
|
cp $6c
|
|
jp nz, Function10571a
|
|
call Function1056eb
|
|
ld c, 60
|
|
call DelayFrames
|
|
call Function105777
|
|
ld hl, MysteryGiftReceivedCardText
|
|
call PrintText
|
|
ld de, wMysteryGiftTrainerData
|
|
farcall Function8ac70
|
|
ld a, c
|
|
ld [wDeciramBuffer], a
|
|
ld hl, MysteryGiftNotRegisteredCardText
|
|
jr c, PrintTextAndExit_JP
|
|
ld hl, MysteryGiftListedCardText
|
|
jr PrintTextAndExit_JP
|
|
|
|
Function1056eb:
|
|
ld c, 16
|
|
.loop
|
|
ld hl, wVirtualOAMSprite00YCoord
|
|
ld b, 8
|
|
.dec_y_loop
|
|
dec [hl]
|
|
rept SPRITEOAMSTRUCT_LENGTH
|
|
inc hl
|
|
endr
|
|
dec b
|
|
jr nz, .dec_y_loop
|
|
ld hl, wVirtualOAMSprite08YCoord
|
|
ld b, 8
|
|
.inc_y_loop
|
|
inc [hl]
|
|
rept SPRITEOAMSTRUCT_LENGTH
|
|
inc hl
|
|
endr
|
|
dec b
|
|
jr nz, .inc_y_loop
|
|
dec c
|
|
ret z
|
|
push bc
|
|
ld c, 4
|
|
call DelayFrames
|
|
pop bc
|
|
jr .loop
|
|
|
|
Function105712:
|
|
call Function105777
|
|
ld hl, MysteryGiftLinkCancelledText
|
|
jr PrintTextAndExit_JP
|
|
|
|
Function10571a:
|
|
call Function105777
|
|
ld hl, MysteryGiftLinkCommErrorText
|
|
call PrintText
|
|
jp Function105688
|
|
|
|
PrintTextAndExit_JP:
|
|
call PrintText
|
|
ld a, LCDC_DEFAULT
|
|
ldh [rLCDC], a
|
|
ret
|
|
|
|
String_PressAToLink_BToCancel_JP:
|
|
db "エーボタン<WO>おすと"
|
|
next "つうしん<PKMN>おこなわれるよ！"
|
|
next "ビーボタン<WO>おすと"
|
|
next "つうしん<WO>ちゅうし します"
|
|
db "@"
|
|
|
|
MysteryGiftReceivedCardText:
|
|
text_far _MysteryGiftReceivedCardText
|
|
text_end
|
|
|
|
MysteryGiftListedCardText:
|
|
text_far _MysteryGiftListedCardText
|
|
text_end
|
|
|
|
MysteryGiftNotRegisteredCardText:
|
|
text_far _MysteryGiftNotRegisteredCardText
|
|
text_end
|
|
|
|
MysteryGiftLinkCancelledText:
|
|
text_far _MysteryGiftLinkCancelledText
|
|
text_end
|
|
|
|
MysteryGiftLinkCommErrorText:
|
|
text_far _MysteryGiftLinkCommErrorText
|
|
text_end
|
|
|
|
Function105777:
|
|
call ClearSprites
|
|
call ClearTilemap
|
|
call EnableLCD
|
|
call WaitBGMap
|
|
ld b, SCGB_DIPLOMA
|
|
call GetSGBLayout
|
|
call SetPalettes
|
|
ret
|
|
|
|
Function10578c:
|
|
ld de, wLinkData
|
|
ld a, BANK(sPlayerData)
|
|
call GetSRAMBank
|
|
ld hl, sPlayerData + wPlayerName - wPlayerData
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
ld hl, sPlayerData + wPlayerID - wPlayerData
|
|
ld bc, 2
|
|
call CopyBytes
|
|
ld hl, sPlayerData + wSecretID - wPlayerData
|
|
ld bc, 2
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
ld a, BANK(sCrystalData)
|
|
call GetSRAMBank
|
|
ld a, [sCrystalData + 0]
|
|
ld [de], a
|
|
inc de
|
|
ld a, BANK(s4_a603) ; aka BANK(s4_a007) ; MBC30 bank used by JP Crystal; inaccessible by MBC3
|
|
call GetSRAMBank
|
|
ld hl, s4_a603 ; address of MBC30 bank
|
|
ld bc, $8
|
|
call CopyBytes
|
|
ld hl, s4_a007 ; address of MBC30 bank
|
|
ld bc, $c
|
|
call CopyBytes
|
|
call CloseSRAM
|
|
ret
|
|
|
|
Function1057d7:
|
|
call ClearBGPalettes
|
|
call DisableLCD
|
|
ld hl, CardTradeGFX
|
|
ld de, vTiles2 tile $00
|
|
ld a, BANK(CardTradeGFX)
|
|
ld bc, $40 tiles
|
|
call FarCopyBytes
|
|
ld hl, CardTradeSpriteGFX
|
|
ld de, vTiles0 tile $00
|
|
ld a, BANK(CardTradeSpriteGFX)
|
|
ld bc, 8 tiles
|
|
call FarCopyBytes
|
|
hlcoord 0, 0
|
|
ld a, $3f
|
|
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
|
|
call ByteFill
|
|
hlcoord 3, 7
|
|
lb bc, 9, 15
|
|
call ClearBox
|
|
hlcoord 0, 0
|
|
ld a, $0
|
|
ld [hli], a
|
|
inc a
|
|
ld [hl], a
|
|
hlcoord 0, 1
|
|
inc a
|
|
ld [hli], a
|
|
inc a
|
|
ld [hl], a
|
|
hlcoord 4, 2
|
|
ld a, $13
|
|
call .Load11Row
|
|
hlcoord 4, 3
|
|
ld a, $1e
|
|
call .Load12Row
|
|
hlcoord 4, 4
|
|
ld a, $2a
|
|
call .Load12Row
|
|
hlcoord 1, 2
|
|
ld [hl], $4
|
|
hlcoord 1, 3
|
|
ld a, $5
|
|
call .Load14Column
|
|
ld a, $9
|
|
hlcoord 18, 5
|
|
call .Load11Column
|
|
hlcoord 2, 5
|
|
ld a, $b
|
|
call .Load16Row
|
|
hlcoord 2, 16
|
|
ld a, $7
|
|
call .Load16Row
|
|
hlcoord 2, 5
|
|
ld a, $d
|
|
call .Load6Row
|
|
hlcoord 8, 5
|
|
ld [hl], $c
|
|
hlcoord 18, 5
|
|
ld [hl], $a
|
|
hlcoord 18, 16
|
|
ld [hl], $8
|
|
hlcoord 1, 16
|
|
ld [hl], $6
|
|
hlcoord 2, 6
|
|
ld a, $37
|
|
call .Load16Row
|
|
hlcoord 2, 15
|
|
ld a, $3d
|
|
call .Load16Row
|
|
hlcoord 2, 6
|
|
ld a, $39
|
|
call .Load9Column
|
|
hlcoord 17, 6
|
|
ld a, $3b
|
|
call .Load9Column
|
|
hlcoord 2, 6
|
|
ld [hl], $36
|
|
hlcoord 17, 6
|
|
ld [hl], $38
|
|
hlcoord 2, 15
|
|
ld [hl], $3c
|
|
hlcoord 17, 15
|
|
ld [hl], $3e
|
|
ld de, wVirtualOAMSprite00
|
|
ld hl, .OAM_data
|
|
ld bc, 16 * SPRITEOAMSTRUCT_LENGTH
|
|
call CopyBytes
|
|
call EnableLCD
|
|
call WaitBGMap
|
|
ld b, $2
|
|
farcall GetMysteryGift_MobileAdapterLayout
|
|
jp SetPalettes
|
|
|
|
.Load6Row:
|
|
ld b, 6
|
|
jr .row_loop
|
|
|
|
.Load11Row:
|
|
ld b, 11
|
|
jr .row_loop
|
|
|
|
.Load12Row:
|
|
ld b, 12
|
|
|
|
.row_loop
|
|
ld [hli], a
|
|
inc a
|
|
dec b
|
|
jr nz, .row_loop
|
|
ret
|
|
|
|
.Load9Column:
|
|
ld b, 9
|
|
jr .column_loop
|
|
|
|
.Load11Column:
|
|
ld b, 11
|
|
jr .column_loop
|
|
|
|
.Load14Column:
|
|
ld b, 14
|
|
|
|
.column_loop
|
|
ld [hl], a
|
|
ld de, SCREEN_WIDTH
|
|
add hl, de
|
|
dec b
|
|
jr nz, .column_loop
|
|
ret
|
|
|
|
.Load16Row:
|
|
ld b, 16
|
|
.row_loop_no_inc
|
|
ld [hli], a
|
|
dec b
|
|
jr nz, .row_loop_no_inc
|
|
ret
|
|
|
|
.OAM_data:
|
|
dbsprite 6, 2, 4, 1, $00, 0
|
|
dbsprite 7, 2, 4, 1, $01, 0
|
|
dbsprite 8, 2, 4, 1, $02, 0
|
|
dbsprite 9, 2, 4, 1, $03, 0
|
|
dbsprite 6, 3, 4, 1, $04, 0
|
|
dbsprite 7, 3, 4, 1, $05, 0
|
|
dbsprite 8, 3, 4, 1, $06, 0
|
|
dbsprite 9, 3, 4, 1, $07, 0
|
|
dbsprite 11, 0, 4, 1, $00, 0
|
|
dbsprite 12, 0, 4, 1, $01, 0
|
|
dbsprite 13, 0, 4, 1, $02, 0
|
|
dbsprite 14, 0, 4, 1, $03, 0
|
|
dbsprite 11, 1, 4, 1, $04, 0
|
|
dbsprite 12, 1, 4, 1, $05, 0
|
|
dbsprite 13, 1, 4, 1, $06, 0
|
|
dbsprite 14, 1, 4, 1, $07, 0
|
|
|
|
CardTradeGFX:
|
|
INCBIN "gfx/mystery_gift/card_trade.2bpp"
|
|
|
|
CardTradeSpriteGFX:
|
|
INCBIN "gfx/mystery_gift/card_sprite.2bpp"
|