mirror of
https://github.com/thornAvery/jep-hack.git
synced 2026-02-07 08:35:23 +13:00
First Commit
Upload literally everything from the pokecrystal16 expand-move-ID branch
This commit is contained in:
Zeta_Null
commit
2f8a41f833
4618 changed files with 480386 additions and 0 deletions
947
engine/pokemon/mail_2.asm
Normal file
947
engine/pokemon/mail_2.asm
Normal file
|
|
@ -0,0 +1,947 @@
|
|||
; MailGFXPointers indexes
|
||||
; LoadMailPalettes.MailPals indexes (see gfx/mail/mail.pal)
|
||||
const_def
|
||||
const FLOWER_MAIL_INDEX ; 0
|
||||
const SURF_MAIL_INDEX ; 1
|
||||
const LITEBLUEMAIL_INDEX ; 2
|
||||
const PORTRAITMAIL_INDEX ; 3
|
||||
const LOVELY_MAIL_INDEX ; 4
|
||||
const EON_MAIL_INDEX ; 5
|
||||
const MORPH_MAIL_INDEX ; 6
|
||||
const BLUESKY_MAIL_INDEX ; 7
|
||||
const MUSIC_MAIL_INDEX ; 8
|
||||
const MIRAGE_MAIL_INDEX ; 9
|
||||
DEF NUM_MAIL EQU const_value
|
||||
|
||||
ReadPartyMonMail:
|
||||
ld a, [wCurPartyMon]
|
||||
ld hl, sPartyMail
|
||||
ld bc, MAIL_STRUCT_LENGTH
|
||||
call AddNTimes
|
||||
ld d, h
|
||||
ld e, l
|
||||
ReadAnyMail:
|
||||
push de
|
||||
call ClearBGPalettes
|
||||
call ClearSprites
|
||||
call ClearTilemap
|
||||
call DisableLCD
|
||||
call LoadFontsExtra
|
||||
pop de
|
||||
push de
|
||||
ld a, BANK(sPartyMail)
|
||||
call OpenSRAM
|
||||
farcall ParseMailLanguage
|
||||
call CloseSRAM
|
||||
ld a, c
|
||||
ld de, StandardEnglishFont
|
||||
or a ; MAIL_LANG_ENGLISH
|
||||
jr z, .got_font
|
||||
ld de, FrenchGermanFont
|
||||
sub MAIL_LANG_ITALIAN
|
||||
jr c, .got_font
|
||||
ld de, SpanishItalianFont
|
||||
|
||||
.got_font
|
||||
ld hl, vTiles1
|
||||
lb bc, BANK(StandardEnglishFont), $80
|
||||
call Get1bpp
|
||||
pop de
|
||||
call .LoadGFX
|
||||
call EnableLCD
|
||||
call WaitBGMap
|
||||
ld a, [wCurMailIndex]
|
||||
ld e, a
|
||||
farcall LoadMailPalettes
|
||||
call SetPalettes
|
||||
xor a
|
||||
ldh [hJoyPressed], a
|
||||
call .loop
|
||||
call ClearBGPalettes
|
||||
call DisableLCD
|
||||
call LoadStandardFont
|
||||
jp EnableLCD
|
||||
|
||||
.loop
|
||||
call GetJoypad
|
||||
ldh a, [hJoyPressed]
|
||||
and A_BUTTON | B_BUTTON | START
|
||||
jr z, .loop
|
||||
vc_patch Forbid_printing_mail
|
||||
if DEF(_CRYSTAL_VC)
|
||||
and NO_INPUT
|
||||
else
|
||||
and START
|
||||
endc
|
||||
vc_patch_end
|
||||
jr nz, .pressed_start
|
||||
ret
|
||||
|
||||
.pressed_start
|
||||
ld a, [wJumptableIndex]
|
||||
push af
|
||||
callfar PrintMailAndExit ; printer
|
||||
pop af
|
||||
ld [wJumptableIndex], a
|
||||
jr .loop
|
||||
|
||||
.LoadGFX:
|
||||
ld h, d
|
||||
ld l, e
|
||||
push hl
|
||||
ld a, BANK(sPartyMail)
|
||||
call OpenSRAM
|
||||
ld de, sPartyMon1MailAuthorID - sPartyMon1Mail
|
||||
add hl, de
|
||||
ld a, [hli] ; author id
|
||||
ld [wCurMailAuthorID], a
|
||||
ld a, [hli]
|
||||
ld [wCurMailAuthorID + 1], a
|
||||
ld a, [hli] ; species
|
||||
ld [wCurPartySpecies], a
|
||||
ld b, [hl] ; type
|
||||
call CloseSRAM
|
||||
ld hl, MailGFXPointers
|
||||
ld c, 0
|
||||
.loop2
|
||||
ld a, [hli]
|
||||
cp b
|
||||
jr z, .got_pointer
|
||||
cp -1
|
||||
jr z, .invalid
|
||||
inc c
|
||||
inc hl
|
||||
inc hl
|
||||
jr .loop2
|
||||
|
||||
.invalid
|
||||
ld hl, MailGFXPointers
|
||||
inc hl
|
||||
|
||||
.got_pointer
|
||||
ld a, c
|
||||
ld [wCurMailIndex], a
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
ld de, .done
|
||||
pop bc
|
||||
push de
|
||||
jp hl
|
||||
.done
|
||||
ret
|
||||
|
||||
MailGFXPointers:
|
||||
; entries correspond to *MAIL_INDEX constants
|
||||
table_width 3, MailGFXPointers
|
||||
dbw FLOWER_MAIL, LoadFlowerMailGFX
|
||||
dbw SURF_MAIL, LoadSurfMailGFX
|
||||
dbw LITEBLUEMAIL, LoadLiteBlueMailGFX
|
||||
dbw PORTRAITMAIL, LoadPortraitMailGFX
|
||||
dbw LOVELY_MAIL, LoadLovelyMailGFX
|
||||
dbw EON_MAIL, LoadEonMailGFX
|
||||
dbw MORPH_MAIL, LoadMorphMailGFX
|
||||
dbw BLUESKY_MAIL, LoadBlueSkyMailGFX
|
||||
dbw MUSIC_MAIL, LoadMusicMailGFX
|
||||
dbw MIRAGE_MAIL, LoadMirageMailGFX
|
||||
assert_table_length NUM_MAIL
|
||||
db -1 ; end
|
||||
|
||||
LoadSurfMailGFX:
|
||||
push bc
|
||||
ld hl, vTiles2 tile $31
|
||||
ld de, SurfMailBorderGFX
|
||||
ld c, 8 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, MailLaprasGFX
|
||||
ld c, 6 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color3
|
||||
ld de, SurfMailWaveGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
jr FinishLoadingSurfLiteBlueMailGFX
|
||||
|
||||
LoadLiteBlueMailGFX:
|
||||
push bc
|
||||
ld hl, vTiles2 tile $31
|
||||
ld de, LiteBlueMailBorderGFX
|
||||
ld c, 8 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, MailDratiniGFX
|
||||
ld c, 6 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color3
|
||||
ld de, PortraitMailUnderlineGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
|
||||
FinishLoadingSurfLiteBlueMailGFX:
|
||||
ld de, SurfLiteBlueMailSmallShapesGFX
|
||||
ld c, 2 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld c, 2 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, SurfLiteBlueMailLargeShapesGFX
|
||||
ld c, 8 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld c, 8 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
|
||||
call DrawMailBorder
|
||||
hlcoord 2, 15
|
||||
ld a, $3f
|
||||
call Mail_Draw16TileRow
|
||||
ld a, $39
|
||||
hlcoord 15, 14
|
||||
call Mail_Draw3x2Graphic
|
||||
ld a, $44
|
||||
hlcoord 2, 2
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 15, 11
|
||||
call Mail_Draw2x2Graphic
|
||||
ld a, $4c
|
||||
hlcoord 3, 12
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 15, 2
|
||||
call Mail_Draw2x2Graphic
|
||||
ld a, $50
|
||||
hlcoord 6, 3
|
||||
call Mail_Draw2x2Graphic
|
||||
ld a, $40
|
||||
hlcoord 13, 2
|
||||
ld [hli], a
|
||||
hlcoord 6, 14
|
||||
ld [hl], a
|
||||
ld a, $41
|
||||
hlcoord 4, 5
|
||||
ld [hli], a
|
||||
hlcoord 17, 5
|
||||
ld [hli], a
|
||||
hlcoord 13, 12
|
||||
ld [hl], a
|
||||
ld a, $42
|
||||
hlcoord 9, 2
|
||||
ld [hli], a
|
||||
hlcoord 14, 5
|
||||
ld [hli], a
|
||||
hlcoord 3, 10
|
||||
ld [hl], a
|
||||
ld a, $43
|
||||
hlcoord 6, 11
|
||||
ld [hli], a
|
||||
pop hl
|
||||
jp MailGFX_PlaceMessage
|
||||
|
||||
LoadEonMailGFX:
|
||||
push bc
|
||||
ld hl, vTiles2 tile $31
|
||||
ld de, EonMailBorder1GFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, EonMailBorder2GFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, EonMailBorder2GFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, EonMailBorder1GFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, SurfMailBorderGFX + 6 * LEN_1BPP_TILE
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, MailEeveeGFX
|
||||
ld c, 6 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color3
|
||||
ld hl, vTiles2 tile $3d
|
||||
ld de, MailLargeCircleGFX
|
||||
ld c, 4 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, EonMailBorder2GFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
|
||||
ld a, $31
|
||||
hlcoord 0, 0
|
||||
call Mail_Place18TileAlternatingRow
|
||||
hlcoord 1, 17
|
||||
call Mail_Place18TileAlternatingRow
|
||||
ld a, $33
|
||||
hlcoord 0, 1
|
||||
call Mail_Place16TileAlternatingColumn
|
||||
hlcoord 19, 0
|
||||
call Mail_Place16TileAlternatingColumn
|
||||
hlcoord 2, 15
|
||||
ld a, $35
|
||||
call Mail_Draw16TileRow
|
||||
inc a
|
||||
hlcoord 15, 14
|
||||
call Mail_Draw3x2Graphic
|
||||
call LovelyEonMail_PlaceIcons
|
||||
pop hl
|
||||
jp MailGFX_PlaceMessage
|
||||
|
||||
LoadLovelyMailGFX:
|
||||
push bc
|
||||
ld hl, vTiles2 tile $31
|
||||
ld de, LovelyMailBorderGFX
|
||||
ld c, 5 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, MailPoliwagGFX
|
||||
ld c, 6 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color3
|
||||
ld de, LovelyMailUnderlineGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, LovelyMailLargeHeartGFX
|
||||
ld c, 4 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, LovelyMailSmallHeartGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
|
||||
call DrawMailBorder2
|
||||
hlcoord 2, 15
|
||||
ld a, $3c
|
||||
call Mail_Draw16TileRow
|
||||
ld a, $36
|
||||
hlcoord 15, 14
|
||||
call Mail_Draw3x2Graphic
|
||||
call LovelyEonMail_PlaceIcons
|
||||
pop hl
|
||||
jp MailGFX_PlaceMessage
|
||||
|
||||
LovelyEonMail_PlaceIcons:
|
||||
ld a, $3d
|
||||
hlcoord 2, 2
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 16, 2
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 9, 4
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 2, 11
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 6, 12
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 12, 11
|
||||
call Mail_Draw2x2Graphic
|
||||
ld a, $41
|
||||
hlcoord 5, 4
|
||||
ld [hl], a
|
||||
hlcoord 6, 2
|
||||
ld [hl], a
|
||||
hlcoord 12, 4
|
||||
ld [hl], a
|
||||
hlcoord 14, 2
|
||||
ld [hl], a
|
||||
hlcoord 3, 13
|
||||
ld [hl], a
|
||||
hlcoord 9, 11
|
||||
ld [hl], a
|
||||
hlcoord 16, 12
|
||||
ld [hl], a
|
||||
ret
|
||||
|
||||
LoadMorphMailGFX:
|
||||
push bc
|
||||
ld hl, vTiles2 tile $31
|
||||
ld bc, 5 * LEN_1BPP_TILE
|
||||
call MailGFX_GenerateMonochromeTilesColor2
|
||||
ld de, MorphMailBorderCornerGFX + 3 * LEN_1BPP_TILE
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, MorphMailBorderCornerGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, MorphMailBorderGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, EonMailBorder1GFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, MorphMailDividerGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, MailDittoGFX
|
||||
ld c, 6 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color3
|
||||
call DrawMailBorder2
|
||||
ld a, $31
|
||||
hlcoord 1, 1
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 17, 15
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 1, 3
|
||||
ld [hl], a
|
||||
hlcoord 3, 1
|
||||
ld [hl], a
|
||||
hlcoord 16, 16
|
||||
ld [hl], a
|
||||
hlcoord 18, 14
|
||||
ld [hl], a
|
||||
ld a, $36
|
||||
hlcoord 1, 4
|
||||
ld [hl], a
|
||||
hlcoord 2, 3
|
||||
ld [hl], a
|
||||
hlcoord 3, 2
|
||||
ld [hl], a
|
||||
hlcoord 4, 1
|
||||
ld [hl], a
|
||||
inc a
|
||||
hlcoord 15, 16
|
||||
ld [hl], a
|
||||
hlcoord 16, 15
|
||||
ld [hl], a
|
||||
hlcoord 17, 14
|
||||
ld [hl], a
|
||||
hlcoord 18, 13
|
||||
ld [hl], a
|
||||
inc a
|
||||
hlcoord 2, 15
|
||||
ld b, $e
|
||||
call Mail_DrawRowLoop
|
||||
inc a
|
||||
hlcoord 2, 11
|
||||
call Mail_Draw16TileRow
|
||||
hlcoord 2, 5
|
||||
call Mail_Draw16TileRow
|
||||
inc a
|
||||
hlcoord 6, 1
|
||||
call Mail_Draw13TileRow
|
||||
hlcoord 1, 16
|
||||
call Mail_Draw13TileRow
|
||||
inc a
|
||||
hlcoord 3, 13
|
||||
call Mail_Draw3x2Graphic
|
||||
pop hl
|
||||
jp MailGFX_PlaceMessage
|
||||
|
||||
LoadBlueSkyMailGFX:
|
||||
push bc
|
||||
ld hl, vTiles2 tile $31
|
||||
ld de, EonMailBorder1GFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld a, $ff
|
||||
ld bc, 1 tiles
|
||||
call ByteFill
|
||||
ld de, BlueSkyMailGrassGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color3
|
||||
ld de, MailDragoniteAndSentretGFX
|
||||
ld c, 23 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color3
|
||||
ld de, MailCloudGFX
|
||||
ld c, 6 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, FlowerMailBorderGFX + 6 * LEN_1BPP_TILE
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, MailCloudGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, MailCloudGFX + 2 * LEN_1BPP_TILE
|
||||
ld c, 2 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, MailCloudGFX + 5 * LEN_1BPP_TILE
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
|
||||
ld a, $31
|
||||
hlcoord 0, 0
|
||||
call Mail_DrawFullWidthBorder
|
||||
hlcoord 0, 1
|
||||
call Mail_DrawLeftRightBorder
|
||||
hlcoord 19, 1
|
||||
call Mail_DrawLeftRightBorder
|
||||
inc a
|
||||
hlcoord 0, 17
|
||||
call Mail_DrawFullWidthBorder
|
||||
inc a
|
||||
hlcoord 0, 16
|
||||
call Mail_DrawFullWidthBorder
|
||||
inc a
|
||||
hlcoord 2, 2
|
||||
call Mail_Place6TileRow
|
||||
hlcoord 3, 3
|
||||
call Mail_Place6TileRow
|
||||
hlcoord 4, 4
|
||||
call Mail_Place6TileRow
|
||||
dec hl
|
||||
ld [hl], $7f
|
||||
dec a
|
||||
hlcoord 15, 14
|
||||
call Mail_Draw2x2Graphic
|
||||
add $4
|
||||
hlcoord 15, 16
|
||||
ld [hli], a
|
||||
inc a
|
||||
ld [hl], a
|
||||
inc a
|
||||
push af
|
||||
hlcoord 12, 1
|
||||
call Mail_Draw3x2Graphic
|
||||
pop af
|
||||
hlcoord 15, 4
|
||||
call Mail_Draw3x2Graphic
|
||||
inc a
|
||||
hlcoord 2, 11
|
||||
call Mail_Draw16TileRow
|
||||
inc a
|
||||
hlcoord 10, 3
|
||||
call Mail_Draw2x2Graphic
|
||||
pop hl
|
||||
jp MailGFX_PlaceMessage
|
||||
|
||||
Mail_Place6TileRow:
|
||||
ld b, $6
|
||||
.loop
|
||||
ld [hli], a
|
||||
inc a
|
||||
dec b
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
LoadFlowerMailGFX:
|
||||
push bc
|
||||
ld hl, vTiles2 tile $31
|
||||
ld de, FlowerMailBorderGFX
|
||||
ld c, 8 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, MailOddishGFX
|
||||
ld c, 4 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color3
|
||||
ld de, FlowerMailBorderGFX + 6 * LEN_1BPP_TILE
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, FlowerMailFlowerGFX
|
||||
ld c, 4 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld c, 4 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
|
||||
call DrawMailBorder
|
||||
hlcoord 2, 15
|
||||
ld a, $3d ; underline
|
||||
call Mail_Draw16TileRow
|
||||
ld a, $39 ; oddish
|
||||
hlcoord 16, 13
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 2, 13
|
||||
call Mail_Draw2x2Graphic
|
||||
ld a, $3e
|
||||
hlcoord 2, 2
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 5, 3
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 10, 2
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 16, 3
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 5, 11
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 16, 10
|
||||
call Mail_Draw2x2Graphic
|
||||
ld a, $42
|
||||
hlcoord 3, 4
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 12, 3
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 14, 2
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 2, 10
|
||||
call Mail_Draw2x2Graphic
|
||||
hlcoord 14, 11
|
||||
call Mail_Draw2x2Graphic
|
||||
pop hl
|
||||
jp MailGFX_PlaceMessage
|
||||
|
||||
LoadPortraitMailGFX:
|
||||
push bc
|
||||
ld hl, vTiles2 tile $31
|
||||
ld de, PortraitMailBorderGFX
|
||||
ld c, 5 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, PortraitMailUnderlineGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld hl, vTiles2 tile $3d
|
||||
ld de, PortraitMailLargePokeballGFX
|
||||
ld c, 4 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, PortraitMailSmallPokeballGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
|
||||
call DrawMailBorder2
|
||||
hlcoord 8, 15
|
||||
ld a, $36
|
||||
ld b, $a
|
||||
call Mail_DrawRowLoop
|
||||
call LovelyEonMail_PlaceIcons
|
||||
ld a, $1
|
||||
ld [wUnownLetter], a
|
||||
hlcoord 1, 10
|
||||
call PrepMonFrontpic
|
||||
pop hl
|
||||
jp MailGFX_PlaceMessage
|
||||
|
||||
LoadMusicMailGFX:
|
||||
push bc
|
||||
ld hl, vTiles2 tile $31
|
||||
ld de, MusicMailBorderGFX
|
||||
ld c, 4 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, MorphMailBorderGFX
|
||||
ld c, 2 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, MailNatuGFX
|
||||
ld c, 6 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color3
|
||||
xor a
|
||||
ld bc, 1 tiles
|
||||
call ByteFill
|
||||
ld de, MusicMailLargeNoteGFX
|
||||
ld c, 3 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, MusicMailSmallNoteGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
|
||||
ld a, $31
|
||||
hlcoord 0, 0
|
||||
call Mail_Place18TileAlternatingRow
|
||||
hlcoord 1, 17
|
||||
call Mail_Place18TileAlternatingRow
|
||||
ld a, $33
|
||||
hlcoord 0, 1
|
||||
call Mail_Place16TileAlternatingColumn
|
||||
hlcoord 19, 0
|
||||
call Mail_Place16TileAlternatingColumn
|
||||
ld a, $35
|
||||
hlcoord 2, 15
|
||||
call Mail_Place14TileAlternatingRow
|
||||
ld a, $37
|
||||
hlcoord 15, 14
|
||||
call Mail_Draw3x2Graphic
|
||||
call LovelyEonMail_PlaceIcons
|
||||
pop hl
|
||||
jp MailGFX_PlaceMessage
|
||||
|
||||
LoadMirageMailGFX:
|
||||
push bc
|
||||
ld hl, vTiles2 tile $31
|
||||
ld bc, 5 * LEN_1BPP_TILE
|
||||
call MailGFX_GenerateMonochromeTilesColor2
|
||||
ld de, BlueSkyMailGrassGFX
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, MailMewGFX
|
||||
ld c, 18 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color2
|
||||
ld de, LiteBlueMailBorderGFX + 1 * LEN_1BPP_TILE
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
ld de, LiteBlueMailBorderGFX + 6 * LEN_1BPP_TILE
|
||||
ld c, 1 * LEN_1BPP_TILE
|
||||
call LoadMailGFX_Color1
|
||||
|
||||
call DrawMailBorder2
|
||||
ld a, $36
|
||||
hlcoord 1, 16
|
||||
call Mail_DrawTopBottomBorder
|
||||
inc a
|
||||
hlcoord 15, 14
|
||||
call Mail_Draw3x2Graphic
|
||||
inc a
|
||||
hlcoord 15, 16
|
||||
ld [hli], a
|
||||
inc a
|
||||
ld [hl], a
|
||||
ld a, $3f
|
||||
hlcoord 1, 1
|
||||
call Mail_Place18TileAlternatingRow
|
||||
ld a, $41
|
||||
hlcoord 0, 2
|
||||
call Mail_Place14TileAlternatingColumn
|
||||
ld a, $43
|
||||
hlcoord 19, 2
|
||||
call Mail_Place14TileAlternatingColumn
|
||||
ld a, $45
|
||||
hlcoord 0, 1
|
||||
ld [hl], a
|
||||
inc a
|
||||
hlcoord 19, 1
|
||||
ld [hl], a
|
||||
inc a
|
||||
hlcoord 0, 16
|
||||
ld [hl], a
|
||||
inc a
|
||||
hlcoord 19, 16
|
||||
ld [hl], a
|
||||
inc a
|
||||
hlcoord 2, 5
|
||||
call Mail_Draw16TileRow
|
||||
inc a
|
||||
hlcoord 2, 11
|
||||
call Mail_Draw16TileRow
|
||||
pop hl
|
||||
jp MailGFX_PlaceMessage
|
||||
|
||||
MailGFX_GenerateMonochromeTilesColor2:
|
||||
.loop
|
||||
xor a
|
||||
ld [hli], a
|
||||
ld a, $ff
|
||||
ld [hli], a
|
||||
dec bc
|
||||
ld a, b
|
||||
or c
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
MailGFX_PlaceMessage:
|
||||
ld bc, MAIL_STRUCT_LENGTH
|
||||
ld de, wTempMail
|
||||
ld a, BANK(sPartyMail)
|
||||
call OpenSRAM
|
||||
call CopyBytes
|
||||
call CloseSRAM
|
||||
ld hl, wTempMailAuthor
|
||||
ld de, wMonOrItemNameBuffer
|
||||
ld bc, NAME_LENGTH - 1
|
||||
call CopyBytes
|
||||
ld a, "@"
|
||||
ld [wTempMailAuthor], a
|
||||
ld [wMonOrItemNameBuffer + NAME_LENGTH - 1], a
|
||||
ld de, wTempMailMessage
|
||||
hlcoord 2, 7
|
||||
call PlaceString
|
||||
ld de, wMonOrItemNameBuffer
|
||||
ld a, [de]
|
||||
and a
|
||||
ret z
|
||||
ld a, [wCurMailIndex]
|
||||
hlcoord 8, 14
|
||||
cp PORTRAITMAIL_INDEX
|
||||
jr z, .place_author
|
||||
hlcoord 6, 14
|
||||
cp MORPH_MAIL_INDEX
|
||||
jr z, .place_author
|
||||
hlcoord 5, 14
|
||||
|
||||
.place_author
|
||||
jp PlaceString
|
||||
|
||||
InvertBytes: ; unreferenced
|
||||
; invert bc bytes starting at hl
|
||||
.loop
|
||||
ld a, [hl]
|
||||
xor $ff
|
||||
ld [hli], a
|
||||
dec bc
|
||||
ld a, b
|
||||
or c
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
DrawMailBorder:
|
||||
hlcoord 0, 0
|
||||
ld a, $31
|
||||
ld [hli], a
|
||||
inc a
|
||||
call Mail_DrawTopBottomBorder
|
||||
inc a
|
||||
ld [hli], a
|
||||
inc a
|
||||
call Mail_DrawLeftRightBorder
|
||||
ld a, $36
|
||||
ld [hli], a
|
||||
inc a
|
||||
call Mail_DrawTopBottomBorder
|
||||
hlcoord 19, 1
|
||||
ld a, $35
|
||||
call Mail_DrawLeftRightBorder
|
||||
ld a, $38
|
||||
ld [hl], a
|
||||
ret
|
||||
|
||||
DrawMailBorder2:
|
||||
hlcoord 0, 0
|
||||
ld a, $31
|
||||
ld [hli], a
|
||||
inc a
|
||||
call Mail_DrawTopBottomBorder
|
||||
ld [hl], $31
|
||||
inc hl
|
||||
inc a
|
||||
call Mail_DrawLeftRightBorder
|
||||
ld [hl], $31
|
||||
inc hl
|
||||
inc a
|
||||
call Mail_DrawTopBottomBorder
|
||||
hlcoord 19, 1
|
||||
ld a, $35
|
||||
call Mail_DrawLeftRightBorder
|
||||
ld [hl], $31
|
||||
ret
|
||||
|
||||
Mail_Place14TileAlternatingRow:
|
||||
push af
|
||||
ld b, 14 / 2
|
||||
jr Mail_PlaceAlternatingRow
|
||||
|
||||
Mail_Place16TileAlternatingRow: ; unreferenced
|
||||
push af
|
||||
ld b, 16 / 2
|
||||
jr Mail_PlaceAlternatingRow
|
||||
|
||||
Mail_Place18TileAlternatingRow:
|
||||
push af
|
||||
ld b, 18 / 2
|
||||
; fallthrough
|
||||
|
||||
Mail_PlaceAlternatingRow:
|
||||
.loop
|
||||
ld [hli], a
|
||||
inc a
|
||||
ld [hli], a
|
||||
dec a
|
||||
dec b
|
||||
jr nz, .loop
|
||||
ld [hl], a
|
||||
pop af
|
||||
ret
|
||||
|
||||
Mail_Place14TileAlternatingColumn:
|
||||
push af
|
||||
ld b, 14 / 2
|
||||
jr Mail_PlaceAlternatingColumn
|
||||
|
||||
Mail_Place16TileAlternatingColumn:
|
||||
push af
|
||||
ld b, 16 / 2
|
||||
|
||||
Mail_PlaceAlternatingColumn:
|
||||
.loop
|
||||
ld [hl], a
|
||||
ld de, SCREEN_WIDTH
|
||||
add hl, de
|
||||
inc a
|
||||
ld [hl], a
|
||||
add hl, de
|
||||
dec a
|
||||
dec b
|
||||
jr nz, .loop
|
||||
ld [hl], a
|
||||
pop af
|
||||
ret
|
||||
|
||||
Mail_Draw7TileRow: ; unreferenced
|
||||
ld b, 7
|
||||
jr Mail_DrawRowLoop
|
||||
|
||||
Mail_Draw13TileRow:
|
||||
ld b, 13
|
||||
jr Mail_DrawRowLoop
|
||||
|
||||
Mail_Draw16TileRow:
|
||||
ld b, 16
|
||||
jr Mail_DrawRowLoop
|
||||
|
||||
Mail_DrawTopBottomBorder:
|
||||
ld b, SCREEN_WIDTH - 2
|
||||
jr Mail_DrawRowLoop
|
||||
|
||||
Mail_DrawFullWidthBorder:
|
||||
ld b, SCREEN_WIDTH
|
||||
; fallthrough
|
||||
|
||||
Mail_DrawRowLoop:
|
||||
.loop
|
||||
ld [hli], a
|
||||
dec b
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
Mail_DrawLeftRightBorder:
|
||||
ld b, SCREEN_HEIGHT - 2
|
||||
ld de, SCREEN_WIDTH
|
||||
.loop
|
||||
ld [hl], a
|
||||
add hl, de
|
||||
dec b
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
Mail_Draw2x2Graphic:
|
||||
push af
|
||||
ld [hli], a
|
||||
inc a
|
||||
ld [hl], a
|
||||
ld bc, SCREEN_WIDTH - 1
|
||||
add hl, bc
|
||||
inc a
|
||||
ld [hli], a
|
||||
inc a
|
||||
ld [hl], a
|
||||
pop af
|
||||
ret
|
||||
|
||||
Mail_Draw3x2Graphic:
|
||||
ld [hli], a
|
||||
inc a
|
||||
ld [hli], a
|
||||
inc a
|
||||
ld [hl], a
|
||||
ld bc, SCREEN_WIDTH - 2
|
||||
add hl, bc
|
||||
inc a
|
||||
ld [hli], a
|
||||
inc a
|
||||
ld [hli], a
|
||||
inc a
|
||||
ld [hl], a
|
||||
ret
|
||||
|
||||
LoadMailGFX_Color1:
|
||||
.loop
|
||||
ld a, [de]
|
||||
inc de
|
||||
ld [hli], a
|
||||
xor a
|
||||
ld [hli], a
|
||||
dec c
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
LoadMailGFX_Color2:
|
||||
.loop
|
||||
xor a
|
||||
ld [hli], a
|
||||
ld a, [de]
|
||||
inc de
|
||||
ld [hli], a
|
||||
dec c
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
LoadMailGFX_Color3:
|
||||
.loop
|
||||
ld a, [de]
|
||||
inc de
|
||||
ld [hli], a
|
||||
ld [hli], a
|
||||
dec c
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
INCLUDE "gfx/mail.asm"
|
||||
|
||||
ItemIsMail:
|
||||
ld a, d
|
||||
ld hl, MailItems
|
||||
ld de, 1
|
||||
jp IsInArray
|
||||
|
||||
INCLUDE "data/items/mail_items.asm"
|
||||
Loading…
Add table
Add a link
Reference in a new issue