1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
|
SendMailToPC:
ld a, MON_ITEM
call GetPartyParamLocation
ld d, [hl]
farcall ItemIsMail
jr nc, .full
call GetMailboxCount
cp MAILBOX_CAPACITY
jr nc, .full
ld bc, MAIL_STRUCT_LENGTH
ld hl, sMailboxes
call AddNTimes
ld d, h
ld e, l
ld a, [wCurPartyMon]
ld bc, MAIL_STRUCT_LENGTH
ld hl, sPartyMail
call AddNTimes
push hl
ld a, BANK(sMailboxCount)
call OpenSRAM
ld bc, MAIL_STRUCT_LENGTH
call CopyBytes
pop hl
xor a
ld bc, MAIL_STRUCT_LENGTH
call ByteFill
ld a, MON_ITEM
call GetPartyParamLocation
ld [hl], 0
ld hl, sMailboxCount
inc [hl]
call CloseSRAM
xor a
ret
.full
scf
ret
DeleteMailFromPC:
; Shift all mail messages in the mailbox
ld a, BANK(sMailboxCount)
call OpenSRAM
ld a, b
push bc
ld hl, sMailboxes
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
push hl
add hl, bc
pop de
pop bc
.loop
ld a, b
cp MAILBOX_CAPACITY - 1
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
ReadMailMessage:
ld a, b
ld hl, sMailboxes
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
ld d, h
ld e, l
farcall ReadAnyMail
ret
MoveMailFromPCToParty:
ld a, BANK(sMailboxCount)
call OpenSRAM
push bc
ld a, b
ld bc, MAIL_STRUCT_LENGTH
ld hl, sMailboxes
call AddNTimes
push hl
ld a, [wCurPartyMon]
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]
ld a, [wCurPartyMon]
ld hl, wPartyMon1Item
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
ld [hl], d
call CloseSRAM
pop bc
jp DeleteMailFromPC
GetMailboxCount:
ld a, BANK(sMailboxCount)
call OpenSRAM
ld a, [sMailboxCount]
ld c, a
jp CloseSRAM
CheckPokeMail::
push bc
push de
farcall SelectMonFromParty
ld a, POKEMAIL_REFUSED
jr c, .pop_return
ld a, [wCurPartyMon]
ld hl, wPartyMon1Item
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
ld d, [hl]
farcall ItemIsMail
ld a, POKEMAIL_NO_MAIL
jr nc, .pop_return
ld a, BANK(sPartyMail)
call OpenSRAM
ld a, [wCurPartyMon]
ld hl, sPartyMail
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
ld d, h
ld e, l
pop hl
pop bc
; Compare the mail message, byte for byte, with the expected message.
ld a, MAIL_MSG_LENGTH
ld [wTempByteValue], a
.loop
ld a, [de]
ld c, a
ld a, b
call GetFarByte
cp "@"
jr z, .done
cp c
ld a, POKEMAIL_WRONG_MAIL
jr nz, .close_sram_return
inc hl
inc de
ld a, [wTempByteValue]
dec a
ld [wTempByteValue], a
jr nz, .loop
.done
farcall CheckCurPartyMonFainted
ld a, POKEMAIL_LAST_MON
jr c, .close_sram_return
xor a ; REMOVE_PARTY
ld [wPokemonWithdrawDepositParameter], a
farcall RemoveMonFromPartyOrBox
ld a, POKEMAIL_CORRECT
.close_sram_return
call CloseSRAM
jr .return
.pop_return
pop de
pop bc
.return
ld [wScriptVar], a
ret
GivePokeMail::
ld a, [wPartyCount]
dec a
push af
push bc
ld hl, wPartyMon1Item
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
pop bc
ld [hl], b
pop af
push bc
push af
ld hl, sPartyMail
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
ld d, h
ld e, l
ld hl, wMonMailMessageBuffer
ld bc, MAIL_MSG_LENGTH + 1
ld a, BANK(sPartyMail)
call OpenSRAM
call CopyBytes
pop af
push af
ld hl, wPartyMonOTs
ld bc, NAME_LENGTH
call AddNTimes
ld bc, NAME_LENGTH - 1
call CopyBytes
pop af
ld hl, wPartyMon1ID
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
inc de
ld a, [wCurPartySpecies]
ld [de], a
inc de
pop bc
ld a, b
ld [de], a
jp CloseSRAM
BackupPartyMonMail:
ld a, BANK(sPartyMail)
call OpenSRAM
ld hl, sPartyMail
ld de, sPartyMailBackup
ld bc, PARTY_LENGTH * MAIL_STRUCT_LENGTH
call CopyBytes
ld hl, sMailboxCount
ld de, sMailboxCountBackup
ld bc, 1 + MAILBOX_CAPACITY * MAIL_STRUCT_LENGTH
call CopyBytes
jp CloseSRAM
RestorePartyMonMail:
ld a, BANK(sPartyMail)
call OpenSRAM
ld hl, sPartyMailBackup
ld de, sPartyMail
ld bc, PARTY_LENGTH * MAIL_STRUCT_LENGTH
call CopyBytes
ld hl, sMailboxCountBackup
ld de, sMailboxCount
ld bc, 1 + MAILBOX_CAPACITY * MAIL_STRUCT_LENGTH
call CopyBytes
jp CloseSRAM
DeletePartyMonMail:
ld a, BANK(sPartyMail)
call OpenSRAM
xor a
ld hl, sPartyMail
ld bc, PARTY_LENGTH * MAIL_STRUCT_LENGTH
call ByteFill
xor a
ld hl, sMailboxCount
ld bc, 1 + MAILBOX_CAPACITY * MAIL_STRUCT_LENGTH
call ByteFill
jp CloseSRAM
IsAnyMonHoldingMail:
ld a, [wPartyCount]
and a
jr z, .no_mons
ld e, a
ld hl, wPartyMon1Item
.loop
ld d, [hl]
push hl
push de
farcall ItemIsMail
pop de
pop hl
ret c
ld bc, PARTYMON_STRUCT_LENGTH
add hl, bc
dec e
jr nz, .loop
.no_mons
and a
ret
_PlayerMailBoxMenu:
call InitMail
jr z, .nomail
call LoadStandardMenuHeader
call MailboxPC
jp CloseWindow
.nomail
ld hl, .EmptyMailboxText
jp MenuTextboxBackup
.EmptyMailboxText:
text_far _EmptyMailboxText
text_end
InitMail:
; return z if no mail
ld a, BANK(sMailboxCount)
call OpenSRAM
ld a, [sMailboxCount]
call CloseSRAM
; initialize wMailboxCount from sMailboxCount
ld hl, wMailboxCount
ld [hli], a
assert wMailboxCount + 1 == wMailboxItems
and a
jr z, .done ; if no mail, we're done
; initialize wMailboxItems with incrementing values starting at 1
ld b, a
ld a, 1
.loop
ld [hli], a
inc a
dec b
jr nz, .loop
.done
ld [hl], -1 ; terminate
ld a, [wMailboxCount]
and a
ret
MailboxPC_GetMailAuthor:
dec a
ld hl, sMailbox1Author
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
ld a, BANK(sMailboxCount)
call OpenSRAM
ld de, wStringBuffer2
push de
ld bc, NAME_LENGTH - 1
call CopyBytes
ld a, "@"
ld [de], a
call CloseSRAM
pop de
ret
MailboxPC_PrintMailAuthor:
push de
ld a, [wMenuSelection]
call MailboxPC_GetMailAuthor
pop hl
jp PlaceString
MailboxPC:
xor a
ld [wCurMessageScrollPosition], a
ld a, 1
ld [wCurMessageIndex], a
.loop
call InitMail
ld hl, .TopMenuHeader
call CopyMenuHeader
xor a
ldh [hBGMapMode], a
call InitScrollingMenu
call UpdateSprites
ld a, [wCurMessageIndex]
ld [wMenuCursorPosition], a
ld a, [wCurMessageScrollPosition]
ld [wMenuScrollPosition], a
call ScrollingMenu
ld a, [wMenuScrollPosition]
ld [wCurMessageScrollPosition], a
ld a, [wMenuCursorY]
ld [wCurMessageIndex], a
ld a, [wMenuJoypad]
cp B_BUTTON
jr z, .exit
call .Submenu
jr .loop
.exit
xor a
ret
.Submenu:
ld hl, .SubMenuHeader
call LoadMenuHeader
call VerticalMenu
call ExitMenu
jr c, .subexit
ld a, [wMenuCursorY]
dec a
ld hl, .Jumptable
rst JumpTable
.subexit
ret
.Jumptable:
dw .ReadMail
dw .PutInPack
dw .AttachMail
dw .Cancel
.ReadMail:
call FadeToMenu
ld a, [wMenuSelection]
dec a
ld b, a
call ReadMailMessage
jp CloseSubmenu
.PutInPack:
ld hl, .MailMessageLostText
call MenuTextbox
call YesNoBox
call ExitMenu
ret c
ld a, [wMenuSelection]
dec a
call .GetMailType
ld a, 1
ld [wItemQuantityChange], a
ld hl, wNumItems
call ReceiveItem
jr c, .put_in_bag
ld hl, .MailPackFullText
jp MenuTextboxBackup
.put_in_bag
ld a, [wMenuSelection]
dec a
ld b, a
call DeleteMailFromPC
ld hl, .MailClearedPutAwayText
jp MenuTextboxBackup
.MailClearedPutAwayText:
text_far _MailClearedPutAwayText
text_end
.MailPackFullText:
text_far _MailPackFullText
text_end
.MailMessageLostText:
text_far _MailMessageLostText
text_end
.GetMailType:
push af
ld a, BANK(sMailboxCount)
call OpenSRAM
pop af
ld hl, sMailbox1Type
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
ld a, [hl]
ld [wCurItem], a
jp CloseSRAM
.AttachMail:
call FadeToMenu
xor a
ld [wPartyMenuActionText], a
call ClearBGPalettes
.try_again
farcall LoadPartyMenuGFX
farcall InitPartyMenuWithCancel
farcall InitPartyMenuGFX
farcall WritePartyMenuTilemap
farcall PrintPartyMenuText
call WaitBGMap
call SetPalettes
call DelayFrame
farcall PartyMenuSelect
jr c, .exit2
ld a, [wCurPartySpecies]
cp EGG
jr z, .egg
ld a, MON_ITEM
call GetPartyParamLocation
ld a, [hl]
and a
jr z, .attach_mail
ld hl, .MailAlreadyHoldingItemText
call PrintText
jr .try_again
.egg
ld hl, .MailEggText
call PrintText
jr .try_again
.attach_mail
ld a, [wMenuSelection]
dec a
ld b, a
call MoveMailFromPCToParty
ld hl, .MailMovedFromBoxText
call PrintText
.exit2
jp CloseSubmenu
.MailAlreadyHoldingItemText:
text_far _MailAlreadyHoldingItemText
text_end
.MailEggText:
text_far _MailEggText
text_end
.MailMovedFromBoxText:
text_far _MailMovedFromBoxText
text_end
.Cancel:
ret
.TopMenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 8, 1, SCREEN_WIDTH - 2, 10
dw .TopMenuData
db 1 ; default option
.TopMenuData:
db SCROLLINGMENU_DISPLAY_ARROWS ; flags
db 4, 0 ; rows, columns
db SCROLLINGMENU_ITEMS_NORMAL ; item format
dbw 0, wMailboxCount
dba MailboxPC_PrintMailAuthor
dba NULL
dba NULL
.SubMenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 0, 13, 9
dw .SubMenuData
db 1 ; default option
.SubMenuData:
db STATICMENU_CURSOR ; flags
db 4 ; items
db "READ MAIL@"
db "PUT IN PACK@"
db "ATTACH MAIL@"
db "CANCEL@"
|
