pokecrystal-board/engine/pokemon/mail.asm

566 lines
8.8 KiB
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
SendMailToPC:
2015-11-17 14:56:49 -08:00
ld a, MON_ITEM
call GetPartyParamLocation
ld d, [hl]
2017-12-24 09:47:30 -08:00
farcall ItemIsMail
2015-11-17 14:56:49 -08:00
jr nc, .full
call GetMailboxCount
cp MAILBOX_CAPACITY
jr nc, .full
ld bc, MAIL_STRUCT_LENGTH
ld hl, sMailbox
call AddNTimes
ld d, h
ld e, l
2018-01-23 14:39:09 -08:00
ld a, [wCurPartyMon]
2015-11-17 14:56:49 -08:00
ld bc, MAIL_STRUCT_LENGTH
ld hl, sPartyMail
call AddNTimes
push hl
ld a, BANK(sMailboxCount)
call GetSRAMBank
ld bc, MAIL_STRUCT_LENGTH
call CopyBytes
pop hl
xor a
ld bc, MAIL_STRUCT_LENGTH
call ByteFill
ld a, MON_ITEM
call GetPartyParamLocation
2015-12-28 14:09:53 -08:00
ld [hl], 0
2015-11-17 14:56:49 -08:00
ld hl, sMailboxCount
inc [hl]
call CloseSRAM
xor a
ret
.full
scf
ret
2018-06-24 07:09:41 -07:00
DeleteMailFromPC:
2015-11-18 07:42:42 -08:00
; Shift all mail messages in the mailbox
2015-11-17 14:56:49 -08:00
ld a, BANK(sMailboxCount)
call GetSRAMBank
ld a, b
push bc
ld hl, sMailbox
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
push hl
add hl, bc
pop de
pop bc
.loop
ld a, b
2015-11-18 07:42:42 -08:00
cp MAILBOX_CAPACITY - 1
2015-11-17 14:56:49 -08:00
jr z, .done
push bc
ld bc, MAIL_STRUCT_LENGTH
call CopyBytes
pop bc
inc b
jr .loop
.done
ld h, d
ld l, e
xor a
ld bc, MAIL_STRUCT_LENGTH
call ByteFill
ld hl, sMailboxCount
dec [hl]
jp CloseSRAM
2018-06-24 07:09:41 -07:00
ReadMailMessage:
2015-11-17 14:56:49 -08:00
ld a, b
ld hl, sMailbox
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
ld d, h
ld e, l
2017-12-24 09:47:30 -08:00
farcall ReadAnyMail
2015-11-17 14:56:49 -08:00
ret
2018-06-24 07:09:41 -07:00
MoveMailFromPCToParty:
2015-11-17 14:56:49 -08:00
ld a, BANK(sMailboxCount)
call GetSRAMBank
push bc
ld a, b
ld bc, MAIL_STRUCT_LENGTH
ld hl, sMailbox
call AddNTimes
push hl
2018-01-23 14:39:09 -08:00
ld a, [wCurPartyMon]
2015-11-17 14:56:49 -08:00
ld bc, MAIL_STRUCT_LENGTH
ld hl, sPartyMail
call AddNTimes
ld d, h
ld e, l
pop hl
push hl
ld bc, MAIL_STRUCT_LENGTH
call CopyBytes
pop hl
ld de, PARTYMON_STRUCT_LENGTH - MON_MOVES
add hl, de
ld d, [hl]
2018-01-23 14:39:09 -08:00
ld a, [wCurPartyMon]
ld hl, wPartyMon1Item
2015-11-17 14:56:49 -08:00
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
ld [hl], d
call CloseSRAM
pop bc
2015-11-18 07:42:42 -08:00
jp DeleteMailFromPC
2015-11-17 14:56:49 -08:00
2018-06-24 07:09:41 -07:00
GetMailboxCount:
2015-11-17 14:56:49 -08:00
ld a, BANK(sMailboxCount)
call GetSRAMBank
ld a, [sMailboxCount]
ld c, a
jp CloseSRAM
2018-06-24 07:09:41 -07:00
CheckPokeMail::
2015-11-17 14:56:49 -08:00
push bc
push de
2017-12-24 09:47:30 -08:00
farcall SelectMonFromParty
2018-01-11 22:40:20 -08:00
ld a, POKEMAIL_REFUSED
2015-11-18 07:42:42 -08:00
jr c, .pop_return
2018-01-23 14:39:09 -08:00
ld a, [wCurPartyMon]
ld hl, wPartyMon1Item
2015-11-17 14:56:49 -08:00
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
ld d, [hl]
2017-12-24 09:47:30 -08:00
farcall ItemIsMail
2018-01-11 22:40:20 -08:00
ld a, POKEMAIL_NO_MAIL
2015-11-18 07:42:42 -08:00
jr nc, .pop_return
2015-11-17 14:56:49 -08:00
ld a, BANK(sPartyMail)
call GetSRAMBank
2018-01-23 14:39:09 -08:00
ld a, [wCurPartyMon]
2015-11-17 14:56:49 -08:00
ld hl, sPartyMail
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
ld d, h
ld e, l
pop hl
pop bc
2015-11-18 07:42:42 -08:00
; Compare the mail message, byte for byte, with the expected message.
ld a, MAIL_MSG_LENGTH
ld [wTempByteValue], a
2015-11-18 07:42:42 -08:00
.loop
2015-11-17 14:56:49 -08:00
ld a, [de]
ld c, a
ld a, b
call GetFarByte
cp "@"
2015-11-18 07:42:42 -08:00
jr z, .done
2015-11-17 14:56:49 -08:00
cp c
2018-01-11 22:40:20 -08:00
ld a, POKEMAIL_WRONG_MAIL
2015-11-18 07:42:42 -08:00
jr nz, .close_sram_return
2015-11-17 14:56:49 -08:00
inc hl
inc de
ld a, [wTempByteValue]
2015-11-17 14:56:49 -08:00
dec a
ld [wTempByteValue], a
2015-11-18 07:42:42 -08:00
jr nz, .loop
2015-11-17 14:56:49 -08:00
2015-11-18 07:42:42 -08:00
.done
2017-12-24 09:47:30 -08:00
farcall CheckCurPartyMonFainted
2018-01-11 22:40:20 -08:00
ld a, POKEMAIL_LAST_MON
2015-11-18 07:42:42 -08:00
jr c, .close_sram_return
xor a ; REMOVE_PARTY
2015-11-17 14:56:49 -08:00
ld [wPokemonWithdrawDepositParameter], a
2017-12-24 09:47:30 -08:00
farcall RemoveMonFromPartyOrBox
2018-01-11 22:40:20 -08:00
ld a, POKEMAIL_CORRECT
2015-11-17 14:56:49 -08:00
2015-11-18 07:42:42 -08:00
.close_sram_return
2015-11-17 14:56:49 -08:00
call CloseSRAM
2015-11-18 07:42:42 -08:00
jr .return
2015-11-17 14:56:49 -08:00
2015-11-18 07:42:42 -08:00
.pop_return
2015-11-17 14:56:49 -08:00
pop de
pop bc
2015-11-18 07:42:42 -08:00
.return
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
2015-11-17 14:56:49 -08:00
ret
2015-11-18 07:42:42 -08:00
2018-06-24 07:09:41 -07:00
GivePokeMail::
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
2015-11-18 07:42:42 -08:00
dec a
push af
push bc
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1Item
2015-11-18 07:42:42 -08:00
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
pop bc
ld [hl], b
pop af
push bc
push af
ld hl, sPartyMail
2015-12-29 10:15:58 -08:00
ld bc, MAIL_STRUCT_LENGTH
2015-11-18 07:42:42 -08:00
call AddNTimes
ld d, h
ld e, l
ld hl, wd002
2015-12-29 10:15:58 -08:00
ld bc, MAIL_MSG_LENGTH + 1
2015-11-18 07:42:42 -08:00
ld a, BANK(sPartyMail)
call GetSRAMBank
call CopyBytes
pop af
push af
2018-01-23 14:39:09 -08:00
ld hl, wPartyMonOT
2015-11-18 07:42:42 -08:00
ld bc, NAME_LENGTH
call AddNTimes
2015-12-29 10:15:58 -08:00
ld bc, NAME_LENGTH - 1
2015-11-18 07:42:42 -08:00
call CopyBytes
pop af
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1ID
2015-11-18 07:42:42 -08:00
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
inc de
2018-01-23 14:39:09 -08:00
ld a, [wCurPartySpecies]
2015-11-18 07:42:42 -08:00
ld [de], a
inc de
pop bc
ld a, b
ld [de], a
jp CloseSRAM
2018-06-24 07:09:41 -07:00
BackupPartyMonMail:
2015-11-18 07:42:42 -08:00
ld a, BANK(sPartyMail)
call GetSRAMBank
ld hl, sPartyMail
ld de, sPartyMailBackup
ld bc, 6 * MAIL_STRUCT_LENGTH
call CopyBytes
ld hl, sMailboxCount
ld de, sMailboxCountBackup
ld bc, 1 + 10 * MAIL_STRUCT_LENGTH
call CopyBytes
jp CloseSRAM
2018-06-24 07:09:41 -07:00
RestorePartyMonMail:
2015-11-18 07:42:42 -08:00
ld a, BANK(sPartyMail)
call GetSRAMBank
ld hl, sPartyMailBackup
ld de, sPartyMail
ld bc, 6 * MAIL_STRUCT_LENGTH
call CopyBytes
ld hl, sMailboxCountBackup
ld de, sMailboxCount
ld bc, 1 + 10 * MAIL_STRUCT_LENGTH
call CopyBytes
jp CloseSRAM
2018-06-24 07:09:41 -07:00
DeletePartyMonMail:
2015-11-18 07:42:42 -08:00
ld a, BANK(sPartyMail)
call GetSRAMBank
xor a
ld hl, sPartyMail
ld bc, 6 * MAIL_STRUCT_LENGTH
call ByteFill
xor a
ld hl, sMailboxCount
ld bc, 1 + 10 * MAIL_STRUCT_LENGTH
call ByteFill
jp CloseSRAM
2018-06-24 07:09:41 -07:00
IsAnyMonHoldingMail:
2018-01-23 14:39:09 -08:00
ld a, [wPartyCount]
2015-11-18 07:42:42 -08:00
and a
2015-11-18 10:01:55 -08:00
jr z, .no_mons
2015-11-18 07:42:42 -08:00
ld e, a
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1Item
2015-11-18 10:01:55 -08:00
.loop
2015-11-18 07:42:42 -08:00
ld d, [hl]
push hl
push de
2017-12-24 09:47:30 -08:00
farcall ItemIsMail
2015-11-18 07:42:42 -08:00
pop de
pop hl
ret c
ld bc, PARTYMON_STRUCT_LENGTH
add hl, bc
dec e
2015-11-18 10:01:55 -08:00
jr nz, .loop
2015-11-18 07:42:42 -08:00
2015-11-18 10:01:55 -08:00
.no_mons
2015-11-18 07:42:42 -08:00
and a
ret
_PlayerMailBoxMenu:
2015-11-18 07:42:42 -08:00
call InitMail
jr z, .nomail
call LoadStandardMenuHeader
2015-11-18 07:42:42 -08:00
call MailboxPC
jp CloseWindow
2015-11-18 07:42:42 -08:00
.nomail
ld hl, .EmptyMailboxText
2019-04-08 05:15:10 -07:00
jp MenuTextboxBackup
2015-11-18 07:42:42 -08:00
.EmptyMailboxText:
text_far _EmptyMailboxText
text_end
2015-11-18 07:42:42 -08:00
InitMail:
2015-11-18 10:01:55 -08:00
; initialize wMailboxCount and beyond with incrementing values, one per mail
2015-11-18 07:42:42 -08:00
; set z if no mail
ld a, BANK(sMailboxCount)
call GetSRAMBank
ld a, [sMailboxCount]
call CloseSRAM
2015-11-18 10:01:55 -08:00
ld hl, wMailboxCount
2015-11-18 07:42:42 -08:00
ld [hli], a
and a
jr z, .done ; if no mail, we're done
2015-11-18 10:01:55 -08:00
; load values in memory with incrementing values starting at wMailboxCount
2015-11-18 07:42:42 -08:00
ld b, a
2015-11-18 10:01:55 -08:00
ld a, 1
2015-11-18 07:42:42 -08:00
.loop
ld [hli], a
inc a
dec b
jr nz, .loop
.done
2015-11-18 10:01:55 -08:00
ld [hl], -1 ; terminate
2015-11-18 07:42:42 -08:00
2015-11-18 10:01:55 -08:00
ld a, [wMailboxCount]
2015-11-18 07:42:42 -08:00
and a
ret
MailboxPC_GetMailAuthor:
2015-11-18 07:42:42 -08:00
dec a
ld hl, sMailbox1Author
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
ld a, BANK(sMailboxCount)
call GetSRAMBank
2018-01-23 14:39:09 -08:00
ld de, wStringBuffer2
2015-11-18 07:42:42 -08:00
push de
ld bc, NAME_LENGTH - 1
call CopyBytes
ld a, "@"
ld [de], a
call CloseSRAM
pop de
ret
MailboxPC_PrintMailAuthor:
2015-11-18 07:42:42 -08:00
push de
2018-01-23 14:39:09 -08:00
ld a, [wMenuSelection]
2015-12-28 14:09:53 -08:00
call MailboxPC_GetMailAuthor
2015-11-18 07:42:42 -08:00
pop hl
jp PlaceString
MailboxPC:
2015-11-18 07:42:42 -08:00
xor a
ld [wCurMessageScrollPosition], a
2015-12-28 14:09:53 -08:00
ld a, 1
2015-11-18 10:01:55 -08:00
ld [wCurMessageIndex], a
2015-11-18 07:42:42 -08:00
.loop
call InitMail
ld hl, .TopMenuHeader
call CopyMenuHeader
2015-11-18 07:42:42 -08:00
xor a
ldh [hBGMapMode], a
2015-11-18 07:42:42 -08:00
call InitScrollingMenu
call UpdateSprites
2015-11-18 10:01:55 -08:00
ld a, [wCurMessageIndex]
2015-11-18 07:42:42 -08:00
ld [wMenuCursorBuffer], a
ld a, [wCurMessageScrollPosition]
2015-11-23 13:04:53 -08:00
ld [wMenuScrollPosition], a
2015-12-17 19:31:16 -08:00
call ScrollingMenu
2015-11-23 13:04:53 -08:00
ld a, [wMenuScrollPosition]
ld [wCurMessageScrollPosition], a
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2015-11-18 10:01:55 -08:00
ld [wCurMessageIndex], a
2015-12-15 15:59:49 -08:00
ld a, [wMenuJoypad]
2015-12-28 14:09:53 -08:00
cp B_BUTTON
2015-11-18 07:42:42 -08:00
jr z, .exit
2015-12-28 14:09:53 -08:00
call .Submenu
2015-11-18 07:42:42 -08:00
jr .loop
.exit
xor a
ret
.Submenu:
ld hl, .SubMenuHeader
call LoadMenuHeader
2015-12-15 15:59:49 -08:00
call VerticalMenu
2015-11-18 07:42:42 -08:00
call ExitMenu
2015-12-28 14:09:53 -08:00
jr c, .subexit
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
2015-11-18 07:42:42 -08:00
dec a
ld hl, .JumpTable
rst JumpTable
2015-12-28 14:09:53 -08:00
.subexit
2015-11-18 07:42:42 -08:00
ret
.JumpTable:
2015-11-18 07:42:42 -08:00
dw .ReadMail
dw .PutInPack
dw .AttachMail
dw .Cancel
.ReadMail:
2015-11-18 07:42:42 -08:00
call FadeToMenu
2018-01-23 14:39:09 -08:00
ld a, [wMenuSelection]
2015-11-18 07:42:42 -08:00
dec a
ld b, a
call ReadMailMessage
jp CloseSubmenu
2015-11-18 07:42:42 -08:00
.PutInPack:
ld hl, .MailMessageLostText
2019-04-08 05:15:10 -07:00
call MenuTextbox
2015-11-18 07:42:42 -08:00
call YesNoBox
call ExitMenu
ret c
2018-01-23 14:39:09 -08:00
ld a, [wMenuSelection]
2015-11-18 07:42:42 -08:00
dec a
call .GetMailType
2015-12-28 14:09:53 -08:00
ld a, 1
2015-11-18 07:42:42 -08:00
ld [wItemQuantityChangeBuffer], a
2018-01-23 14:39:09 -08:00
ld hl, wNumItems
2015-11-18 07:42:42 -08:00
call ReceiveItem
jr c, .put_in_bag
ld hl, .MailPackFullText
2019-04-08 05:15:10 -07:00
jp MenuTextboxBackup
2015-11-18 07:42:42 -08:00
.put_in_bag
2018-01-23 14:39:09 -08:00
ld a, [wMenuSelection]
2015-11-18 07:42:42 -08:00
dec a
ld b, a
call DeleteMailFromPC
ld hl, .MailClearedPutAwayText
2019-04-08 05:15:10 -07:00
jp MenuTextboxBackup
2015-11-18 07:42:42 -08:00
.MailClearedPutAwayText:
text_far _MailClearedPutAwayText
text_end
2015-11-18 07:42:42 -08:00
.MailPackFullText:
text_far _MailPackFullText
text_end
2015-11-18 07:42:42 -08:00
.MailMessageLostText:
text_far _MailMessageLostText
text_end
2015-11-18 07:42:42 -08:00
.GetMailType:
2015-11-18 07:42:42 -08:00
push af
ld a, BANK(sMailboxCount)
call GetSRAMBank
pop af
2015-11-22 21:21:21 -08:00
ld hl, sMailbox1Type
2015-11-18 07:42:42 -08:00
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
ld a, [hl]
2018-01-23 14:39:09 -08:00
ld [wCurItem], a
2015-11-18 07:42:42 -08:00
jp CloseSRAM
.AttachMail:
2015-11-18 07:42:42 -08:00
call FadeToMenu
xor a
2018-01-23 14:39:09 -08:00
ld [wPartyMenuActionText], a
2015-11-18 07:42:42 -08:00
call ClearBGPalettes
.try_again
2017-12-24 09:47:30 -08:00
farcall LoadPartyMenuGFX
farcall InitPartyMenuWithCancel
farcall InitPartyMenuGFX
farcall WritePartyMenuTilemap
farcall PrintPartyMenuText
2015-11-18 07:42:42 -08:00
call WaitBGMap
call SetPalettes
call DelayFrame
2017-12-24 09:47:30 -08:00
farcall PartyMenuSelect
2015-11-18 07:42:42 -08:00
jr c, .exit2
2018-01-23 14:39:09 -08:00
ld a, [wCurPartySpecies]
2015-11-18 07:42:42 -08:00
cp EGG
jr z, .egg
ld a, MON_ITEM
call GetPartyParamLocation
ld a, [hl]
and a
jr z, .attach_mail
ld hl, .MailAlreadyHoldingItemText
2015-11-18 07:42:42 -08:00
call PrintText
jr .try_again
.egg
ld hl, .MailEggText
2015-11-18 07:42:42 -08:00
call PrintText
jr .try_again
.attach_mail
2018-01-23 14:39:09 -08:00
ld a, [wMenuSelection]
2015-11-18 07:42:42 -08:00
dec a
ld b, a
call MoveMailFromPCToParty
ld hl, .MailMovedFromBoxText
2015-11-18 07:42:42 -08:00
call PrintText
.exit2
jp CloseSubmenu
2015-11-18 07:42:42 -08:00
.MailAlreadyHoldingItemText:
text_far _MailAlreadyHoldingItemText
text_end
2015-11-18 07:42:42 -08:00
.MailEggText:
text_far _MailEggText
text_end
2015-11-18 07:42:42 -08:00
.MailMovedFromBoxText:
text_far _MailMovedFromBoxText
text_end
2015-11-18 07:42:42 -08:00
.Cancel:
2015-11-18 07:42:42 -08:00
ret
.TopMenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 8, 1, SCREEN_WIDTH - 2, 10
dw .TopMenuData
2015-11-18 07:42:42 -08:00
db 1 ; default option
.TopMenuData:
db SCROLLINGMENU_DISPLAY_ARROWS ; flags
db 4, 0 ; rows, columns
db SCROLLINGMENU_ITEMS_NORMAL ; item format
2015-11-18 10:01:55 -08:00
dbw 0, wMailboxCount ; text pointer
2015-12-28 14:09:53 -08:00
dba MailboxPC_PrintMailAuthor
dba NULL
dba NULL
2015-11-18 07:42:42 -08:00
.SubMenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 0, 13, 9
dw .SubMenuData
2015-11-18 07:42:42 -08:00
db 1 ; default option
.SubMenuData:
db STATICMENU_CURSOR ; flags
2015-11-18 07:42:42 -08:00
db 4 ; items
db "READ MAIL@"
db "PUT IN PACK@"
db "ATTACH MAIL@"
db "CANCEL@"