pokecrystal-board/engine/link/link_trade.asm

343 lines
5.0 KiB
NASM
Raw Normal View History

LinkCommsBorderGFX:
INCBIN "gfx/trade/border_tiles.2bpp"
__LoadTradeScreenBorderGFX:
ld de, LinkCommsBorderGFX
2017-12-28 04:32:33 -08:00
ld hl, vTiles2
lb bc, BANK(LinkCommsBorderGFX), 70
2015-12-21 11:10:16 -08:00
call Get2bpp
ret
LoadMobileTradeBorderTilemap:
ld hl, MobileTradeBorderTilemap
2015-12-21 11:10:16 -08:00
decoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
call CopyBytes
ret
TestMobileTradeBorderTilemap: ; unreferenced
; Loads the mobile trade border graphics and tilemap,
; with a placeholder CGB_DIPLOMA layout, and exits
; after pressing A or B. Possibly used for testing.
call LoadStandardMenuHeader
2015-12-21 11:10:16 -08:00
call ClearBGPalettes
call ClearTilemap
2015-12-21 11:10:16 -08:00
call ClearSprites
farcall __LoadTradeScreenBorderGFX ; useless to farcall
farcall LoadMobileTradeBorderTilemap ; useless to farcall
ld b, CGB_DIPLOMA
call GetCGBLayout
2015-12-21 11:10:16 -08:00
call SetPalettes
call WaitBGMap
call JoyWaitAorB
call Call_ExitMenu
ret
MobileTradeBorderTilemap:
INCBIN "gfx/trade/border_mobile.tilemap"
2015-12-21 11:10:16 -08:00
CableTradeBorderTopTilemap:
INCBIN "gfx/trade/border_cable_top.tilemap"
2015-12-21 11:10:16 -08:00
CableTradeBorderBottomTilemap:
INCBIN "gfx/trade/border_cable_bottom.tilemap"
2015-12-21 11:10:16 -08:00
2018-06-24 07:09:41 -07:00
_LinkTextbox:
2015-12-21 11:10:16 -08:00
ld h, d
ld l, e
push bc
push hl
call .PlaceBorder
2015-12-21 11:10:16 -08:00
pop hl
pop bc
ld de, wAttrmap - wTilemap
2015-12-21 11:10:16 -08:00
add hl, de
inc b
inc b
inc c
inc c
ld a, PAL_BG_TEXT
.row
2015-12-21 11:10:16 -08:00
push bc
push hl
.col
2015-12-21 11:10:16 -08:00
ld [hli], a
dec c
jr nz, .col
2015-12-21 11:10:16 -08:00
pop hl
ld de, SCREEN_WIDTH
add hl, de
pop bc
dec b
jr nz, .row
2015-12-21 11:10:16 -08:00
ret
2018-06-24 07:09:41 -07:00
.PlaceBorder
2015-12-21 11:10:16 -08:00
push hl
ld a, $30
ld [hli], a
inc a
call .PlaceRow
2015-12-21 11:10:16 -08:00
inc a
ld [hl], a
pop hl
ld de, SCREEN_WIDTH
add hl, de
.loop
2015-12-21 11:10:16 -08:00
push hl
ld a, $33
ld [hli], a
ld a, " "
call .PlaceRow
2015-12-21 11:10:16 -08:00
ld [hl], $34
pop hl
ld de, SCREEN_WIDTH
add hl, de
dec b
jr nz, .loop
2015-12-21 11:10:16 -08:00
ld a, $35
ld [hli], a
ld a, $36
call .PlaceRow
2015-12-21 11:10:16 -08:00
ld [hl], $37
ret
2018-06-24 07:09:41 -07:00
.PlaceRow
2015-12-21 11:10:16 -08:00
ld d, c
.row_loop
2015-12-21 11:10:16 -08:00
ld [hli], a
dec d
jr nz, .row_loop
2015-12-21 11:10:16 -08:00
ret
2018-06-24 07:09:41 -07:00
InitTradeSpeciesList:
call _LoadTradeScreenBorderGFX
call LoadCableTradeBorderTilemap
2017-12-24 09:47:30 -08:00
farcall InitMG_Mobile_LinkTradePalMap
farcall PlaceTradePartnerNamesAndParty
2015-12-21 11:10:16 -08:00
hlcoord 10, 17
ld de, .CancelString
2015-12-21 11:10:16 -08:00
call PlaceString
ret
.CancelString:
2015-12-21 11:10:16 -08:00
db "CANCEL@"
_LoadTradeScreenBorderGFX:
call __LoadTradeScreenBorderGFX
2015-12-21 11:10:16 -08:00
ret
2018-06-24 07:09:41 -07:00
LinkComms_LoadPleaseWaitTextboxBorderGFX:
ld de, LinkCommsBorderGFX + $30 tiles
2018-01-19 17:48:33 -08:00
ld hl, vTiles2 tile $76
lb bc, BANK(LinkCommsBorderGFX), 8
2015-12-21 11:10:16 -08:00
call Get2bpp
ret
LoadTradeRoomBGPals:
farcall _LoadTradeRoomBGPals
2015-12-21 11:10:16 -08:00
ret
LoadCableTradeBorderTilemap:
call LoadMobileTradeBorderTilemap
ld hl, CableTradeBorderTopTilemap
2015-12-21 11:10:16 -08:00
decoord 0, 0
ld bc, 2 * SCREEN_WIDTH
call CopyBytes
ld hl, CableTradeBorderBottomTilemap
2015-12-21 11:10:16 -08:00
decoord 0, 16
ld bc, 2 * SCREEN_WIDTH
call CopyBytes
ret
2018-06-24 07:09:41 -07:00
LinkTextbox:
2015-12-21 11:10:16 -08:00
call _LinkTextbox
ret
PrintWaitingTextAndSyncAndExchangeNybble:
call LoadStandardMenuHeader
call .PrintWaitingText
2017-12-24 09:47:30 -08:00
farcall WaitLinkTransfer
2015-12-21 11:10:16 -08:00
call Call_ExitMenu
call WaitBGMap2
ret
.PrintWaitingText:
2015-12-21 11:10:16 -08:00
hlcoord 4, 10
ld b, 1
ld c, 10
predef LinkTextboxAtHL
2015-12-21 11:10:16 -08:00
hlcoord 5, 11
ld de, .Waiting
call PlaceString
call WaitBGMap
call WaitBGMap2
ld c, 50
jp DelayFrames
2018-06-24 07:09:41 -07:00
.Waiting:
2015-12-21 11:10:16 -08:00
db "WAITING..!@"
2018-06-24 07:09:41 -07:00
LinkTradeMenu:
2015-12-21 11:10:16 -08:00
call .MenuAction
call .GetJoypad
ret
2018-06-24 07:09:41 -07:00
.GetJoypad:
2015-12-21 11:10:16 -08:00
push bc
push af
ldh a, [hJoyLast]
2015-12-21 11:10:16 -08:00
and D_PAD
ld b, a
ldh a, [hJoyPressed]
2015-12-21 11:10:16 -08:00
and BUTTONS
or b
ld b, a
pop af
ld a, b
pop bc
ld d, a
ret
2018-06-24 07:09:41 -07:00
.MenuAction:
2015-12-21 11:10:16 -08:00
ld hl, w2DMenuFlags2
res 7, [hl]
ldh a, [hBGMapMode]
2015-12-21 11:10:16 -08:00
push af
call .loop
pop af
ldh [hBGMapMode], a
2015-12-21 11:10:16 -08:00
ret
.loop
call .UpdateCursor
call .UpdateBGMapAndOAM
call .loop2
jr nc, .done
2017-12-24 09:47:30 -08:00
farcall _2DMenuInterpretJoypad
2015-12-21 11:10:16 -08:00
jr c, .done
ld a, [w2DMenuFlags1]
bit 7, a
jr nz, .done
call .GetJoypad
ld b, a
ld a, [wMenuJoypadFilter]
and b
jr z, .loop
.done
ret
2018-06-24 07:09:41 -07:00
.UpdateBGMapAndOAM:
ldh a, [hOAMUpdate]
2015-12-21 11:10:16 -08:00
push af
ld a, $1
ldh [hOAMUpdate], a
2015-12-21 11:10:16 -08:00
call WaitBGMap
pop af
ldh [hOAMUpdate], a
2015-12-21 11:10:16 -08:00
xor a
ldh [hBGMapMode], a
2015-12-21 11:10:16 -08:00
ret
.loop2
call UpdateTimeSensitivePals
2015-12-21 11:10:16 -08:00
call .TryAnims
ret c
ld a, [w2DMenuFlags1]
bit 7, a
jr z, .loop2
and a
ret
2018-06-24 07:09:41 -07:00
.UpdateCursor:
2015-12-21 11:10:16 -08:00
ld hl, wCursorCurrentTile
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [hl]
cp $1f
jr nz, .not_currently_selected
ld a, [wCursorOffCharacter]
ld [hl], a
push hl
push bc
2018-01-20 09:25:55 -08:00
ld bc, MON_NAME_LENGTH
2015-12-21 11:10:16 -08:00
add hl, bc
ld [hl], a
pop bc
pop hl
.not_currently_selected
ld a, [w2DMenuCursorInitY]
ld b, a
ld a, [w2DMenuCursorInitX]
ld c, a
call Coord2Tile
ld a, [w2DMenuCursorOffsets]
swap a
and $f
ld c, a
ld a, [wMenuCursorY]
ld b, a
xor a
dec b
jr z, .skip
.loop3
add c
dec b
jr nz, .loop3
.skip
ld c, SCREEN_WIDTH
call AddNTimes
ld a, [w2DMenuCursorOffsets]
and $f
ld c, a
ld a, [wMenuCursorX]
ld b, a
xor a
dec b
jr z, .skip2
.loop4
add c
dec b
jr nz, .loop4
.skip2
ld c, a
add hl, bc
ld a, [hl]
cp $1f
jr z, .cursor_already_there
ld [wCursorOffCharacter], a
ld [hl], $1f
push hl
push bc
2018-01-20 09:25:55 -08:00
ld bc, MON_NAME_LENGTH
2015-12-21 11:10:16 -08:00
add hl, bc
ld [hl], $1f
pop bc
pop hl
.cursor_already_there
ld a, l
ld [wCursorCurrentTile], a
ld a, h
ld [wCursorCurrentTile + 1], a
ret
2018-06-24 07:09:41 -07:00
.TryAnims:
2015-12-21 11:10:16 -08:00
ld a, [w2DMenuFlags1]
bit 6, a
jr z, .skip_anims
2017-12-24 09:47:30 -08:00
farcall PlaySpriteAnimationsAndDelayFrame
2015-12-21 11:10:16 -08:00
.skip_anims
call JoyTextDelay
call .GetJoypad
and a
ret z
scf
ret