mirror of
https://github.com/pret/pokeyellow.git
synced 2026-05-12 05:35:36 -05:00
1000 lines
17 KiB
NASM
1000 lines
17 KiB
NASM
const_def
|
|
const PRINTER_STATUS_BLANK
|
|
const PRINTER_STATUS_CHECKING_LINK
|
|
const PRINTER_STATUS_TRANSMITTING
|
|
const PRINTER_STATUS_PRINTING
|
|
const PRINTER_ERROR_1
|
|
const PRINTER_ERROR_2
|
|
const PRINTER_ERROR_3
|
|
const PRINTER_ERROR_4
|
|
const PRINTER_ERROR_WRONG_DEVICE
|
|
|
|
INCLUDE "engine/printer/serial.asm"
|
|
|
|
PrintPokedexEntry: ; e8b74 (3a:4b74)
|
|
ld a, [wUpdateSpritesEnabled]
|
|
push af
|
|
xor a
|
|
ld [wUpdateSpritesEnabled], a
|
|
ld [hCanceledPrinting], a
|
|
call Printer_PlayPrinterMusic
|
|
ld a, [rIE]
|
|
push af
|
|
xor a
|
|
ld [rIF], a
|
|
ld a, $9
|
|
ld [rIE], a
|
|
xor a
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
call Printer_GetDexEntryRegisters
|
|
call Printer_StartTransmission
|
|
ld a, [wPrinterPokedexMonIsOwned]
|
|
and a
|
|
jr z, .not_caught
|
|
ld a, 16
|
|
jr .got_size
|
|
|
|
.not_caught
|
|
ld a, 19
|
|
.got_size
|
|
ld [wcae2], a
|
|
call Printer_CopyTileMapToPrinterTileBuffer
|
|
call ClearScreen
|
|
callab Pokedex_DrawInterface
|
|
callab Pokedex_PlacePokemonList
|
|
ld a, $1
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
call .TryPrintPage
|
|
jr c, .finish_printing
|
|
ld a, [wPrinterPokedexMonIsOwned]
|
|
and a
|
|
jr z, .finish_printing
|
|
xor a
|
|
ld [wPrinterConnectionOpen], a
|
|
ld [wPrinterOpcode], a
|
|
ld c, $c
|
|
call DelayFrames
|
|
call SaveScreenTilesToBuffer1
|
|
xor a
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
call Printer_PrepareDexEntryForPrinting
|
|
ld a, $7
|
|
call Printer_StartTransmission
|
|
ld a, $3
|
|
ld [wcae2], a
|
|
call Printer_CopyTileMapToPrinterTileBuffer
|
|
call LoadScreenTilesFromBuffer1
|
|
ld a, $1
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
call .TryPrintPage
|
|
.finish_printing
|
|
xor a
|
|
ld [wPrinterConnectionOpen], a
|
|
ld [wPrinterOpcode], a
|
|
xor a
|
|
ld [rIF], a
|
|
pop af
|
|
ld [rIE], a
|
|
call ReloadMapAfterPrinter
|
|
call Printer_PlayMapMusic
|
|
pop af
|
|
ld [wUpdateSpritesEnabled], a
|
|
ret
|
|
|
|
.TryPrintPage:
|
|
call Printer_ResetJoypadHRAM
|
|
.print_loop
|
|
call JoypadLowSensitivity
|
|
call Printer_CheckPressingB
|
|
jr c, .pressed_b
|
|
ld a, [wPrinterSendState]
|
|
bit 7, a
|
|
jr nz, .completed
|
|
call PrinterTransmissionJumptable
|
|
call GBPrinter_CheckForErrors
|
|
call GBPrinter_UpdateStatusMessage
|
|
call DelayFrame
|
|
jr .print_loop
|
|
|
|
.completed
|
|
and a
|
|
ret
|
|
|
|
.pressed_b
|
|
scf
|
|
ret
|
|
|
|
Printer_GetDexEntryRegisters:
|
|
callab DrawDexEntryOnScreen
|
|
ld a, l
|
|
ld [wPrinterPokedexEntryTextPointer], a
|
|
ld a, h
|
|
ld [wPrinterPokedexEntryTextPointer + 1], a
|
|
ld a, $0
|
|
rla ; copy carry flag state to bit 0
|
|
ld [wPrinterPokedexMonIsOwned], a
|
|
and a
|
|
jr z, .not_caught
|
|
ld a, $5
|
|
jr .got_num_rows
|
|
|
|
.not_caught
|
|
ld a, $9
|
|
.got_num_rows
|
|
ret
|
|
|
|
Printer_PrepareDexEntryForPrinting:
|
|
call ClearScreen
|
|
callab Pokedex_PrepareDexEntryForPrinting
|
|
ret
|
|
|
|
PrintSurfingMinigameHighScore:
|
|
xor a
|
|
ld [hCanceledPrinting], a
|
|
call Printer_PlayPrinterMusic
|
|
call Printer_PrepareSurfingMinigameHighScoreTileMap
|
|
ld a, [rIE]
|
|
push af
|
|
xor a
|
|
ld [rIF], a
|
|
ld a, $9
|
|
ld [rIE], a
|
|
call StartTransmission_Send9Rows
|
|
ld a, $13
|
|
ld [wcae2], a
|
|
call Printer_CopyTileMapToPrinterTileBuffer
|
|
call Printer_ResetJoypadHRAM
|
|
.loop
|
|
call JoypadLowSensitivity
|
|
call Printer_CheckPressingB
|
|
jr c, .quit
|
|
ld a, [wPrinterSendState]
|
|
bit 7, a
|
|
jr nz, .quit
|
|
call PrinterTransmissionJumptable
|
|
call GBPrinter_CheckForErrors
|
|
call GBPrinter_UpdateStatusMessage
|
|
call DelayFrame
|
|
jr .loop
|
|
|
|
.quit
|
|
xor a
|
|
ld [wPrinterConnectionOpen], a
|
|
ld [wPrinterOpcode], a
|
|
call Printer_CopyTileMapFromPrinterTileBuffer
|
|
xor a
|
|
ld [rIF], a
|
|
pop af
|
|
ld [rIE], a
|
|
call ReloadMapAfterPrinter
|
|
call Printer_PlayMapMusic
|
|
ret
|
|
|
|
PrintDiploma:
|
|
xor a
|
|
ld [hCanceledPrinting], a
|
|
call Printer_PlayPrinterMusic
|
|
call _DisplayDiploma
|
|
ld a, [rIE]
|
|
push af
|
|
xor a
|
|
ld [rIF], a
|
|
ld a, $9
|
|
ld [rIE], a
|
|
call StartTransmission_Send9Rows
|
|
ld a, $10
|
|
ld [wcae2], a
|
|
call Printer_CopyTileMapToPrinterTileBuffer
|
|
call Func_e8d11
|
|
jr c, .asm_e8cfa
|
|
xor a
|
|
ld [wPrinterConnectionOpen], a
|
|
ld [wPrinterOpcode], a
|
|
ld c, $c
|
|
call DelayFrames
|
|
call SaveScreenTilesToBuffer1
|
|
xor a
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
call Func_e9ad3
|
|
call StartTransmission_Send9Rows
|
|
ld a, $3
|
|
ld [wcae2], a
|
|
call Printer_CopyTileMapToPrinterTileBuffer
|
|
call LoadScreenTilesFromBuffer1
|
|
call Func_e8d11
|
|
.asm_e8cfa
|
|
xor a
|
|
ld [wPrinterConnectionOpen], a
|
|
ld [wPrinterOpcode], a
|
|
call Printer_CopyTileMapFromPrinterTileBuffer
|
|
xor a
|
|
ld [rIF], a
|
|
pop af
|
|
ld [rIE], a
|
|
call ReloadMapAfterPrinter
|
|
call Printer_PlayMapMusic
|
|
ret
|
|
|
|
Func_e8d11:
|
|
call Printer_ResetJoypadHRAM
|
|
.asm_e8d14
|
|
call JoypadLowSensitivity
|
|
call Printer_CheckPressingB
|
|
jr c, .asm_e8d33
|
|
ld a, [wPrinterSendState]
|
|
bit 7, a
|
|
jr nz, .asm_e8d31
|
|
call PrinterTransmissionJumptable
|
|
call GBPrinter_CheckForErrors
|
|
call GBPrinter_UpdateStatusMessage
|
|
call DelayFrame
|
|
jr .asm_e8d14
|
|
|
|
.asm_e8d31
|
|
and a
|
|
ret
|
|
|
|
.asm_e8d33
|
|
scf
|
|
ret
|
|
|
|
PrintPCBox:: ; e8d35 (3a:4e79)
|
|
ld a, [wBoxDataStart]
|
|
and a
|
|
jp z, Func_e8df4
|
|
ld a, [wUpdateSpritesEnabled]
|
|
push af
|
|
xor a
|
|
ld [wUpdateSpritesEnabled], a
|
|
ld [hCanceledPrinting], a
|
|
call Printer_PlayPrinterMusic
|
|
ld a, [rIE]
|
|
push af
|
|
xor a
|
|
ld [rIF], a
|
|
ld a, $9
|
|
ld [rIE], a
|
|
call SaveScreenTilesToBuffer1
|
|
xor a
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
call Func_e988a
|
|
call StartTransmission_Send9Rows
|
|
ld a, $10
|
|
ld [wcae2], a
|
|
call Printer_CopyTileMapToPrinterTileBuffer
|
|
call LoadScreenTilesFromBuffer1
|
|
call Func_e8dfb
|
|
jr c, .asm_e8ddc
|
|
xor a
|
|
ld [wPrinterConnectionOpen], a
|
|
ld [wPrinterOpcode], a
|
|
ld c, 12
|
|
call DelayFrames
|
|
xor a
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
call Func_e98ec
|
|
call StartTransmission_Send9Rows
|
|
ld a, $0
|
|
ld [wcae2], a
|
|
call Printer_CopyTileMapToPrinterTileBuffer
|
|
call LoadScreenTilesFromBuffer1
|
|
call Func_e8dfb
|
|
jr c, .asm_e8ddc
|
|
xor a
|
|
ld [wPrinterConnectionOpen], a
|
|
ld [wPrinterOpcode], a
|
|
ld c, 12
|
|
call DelayFrames
|
|
xor a
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
call Func_e9907
|
|
call StartTransmission_Send9Rows
|
|
ld a, $0
|
|
ld [wcae2], a
|
|
call Printer_CopyTileMapToPrinterTileBuffer
|
|
call LoadScreenTilesFromBuffer1
|
|
call Func_e8dfb
|
|
jr c, .asm_e8ddc
|
|
xor a
|
|
ld [wPrinterConnectionOpen], a
|
|
ld [wPrinterOpcode], a
|
|
ld c, 12
|
|
call DelayFrames
|
|
xor a
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
call Func_e9922
|
|
call StartTransmission_Send9Rows
|
|
ld a, $3
|
|
ld [wcae2], a
|
|
call Printer_CopyTileMapToPrinterTileBuffer
|
|
call LoadScreenTilesFromBuffer1
|
|
call Func_e8dfb
|
|
.asm_e8ddc
|
|
xor a
|
|
ld [wPrinterConnectionOpen], a
|
|
ld [wPrinterOpcode], a
|
|
xor a
|
|
ld [rIF], a
|
|
pop af
|
|
ld [rIE], a
|
|
call ReloadMapAfterPrinter
|
|
call Printer_PlayMapMusic
|
|
pop af
|
|
ld [wUpdateSpritesEnabled], a
|
|
ret
|
|
|
|
Func_e8df4: ; e8df4
|
|
ld hl, String_e8e1f
|
|
call PrintText
|
|
ret
|
|
|
|
Func_e8dfb: ; e8dfb
|
|
call Printer_ResetJoypadHRAM
|
|
.asm_e8dfe
|
|
call JoypadLowSensitivity
|
|
call Printer_CheckPressingB
|
|
jr c, .asm_e8e1d
|
|
ld a, [wPrinterSendState]
|
|
bit 7, a
|
|
jr nz, .asm_e8e1b
|
|
call PrinterTransmissionJumptable
|
|
call GBPrinter_CheckForErrors
|
|
call GBPrinter_UpdateStatusMessage
|
|
call DelayFrame
|
|
jr .asm_e8dfe
|
|
|
|
.asm_e8e1b
|
|
and a
|
|
ret
|
|
|
|
.asm_e8e1d
|
|
scf
|
|
ret
|
|
|
|
String_e8e1f: ; e8e1f
|
|
TX_FAR _NoPokemonText
|
|
db "@"
|
|
|
|
PrintFanClubPortrait: ; e8e24
|
|
xor a
|
|
ld [hCanceledPrinting], a
|
|
call Printer_PlayPrinterMusic
|
|
call Func_ea3ea
|
|
ld a, [rIE]
|
|
push af
|
|
xor a
|
|
ld [rIF], a
|
|
ld a, $9
|
|
ld [rIE], a
|
|
call StartTransmission_Send9Rows
|
|
ld a, $13
|
|
ld [wcae2], a
|
|
call Printer_CopyTileMapToPrinterTileBuffer
|
|
call Printer_ResetJoypadHRAM
|
|
.asm_e8e45
|
|
call JoypadLowSensitivity
|
|
call Printer_CheckPressingB
|
|
jr c, .asm_e8e62
|
|
ld a, [wPrinterSendState]
|
|
bit 7, a
|
|
jr nz, .asm_e8e62
|
|
call PrinterTransmissionJumptable
|
|
call GBPrinter_CheckForErrors
|
|
call GBPrinter_UpdateStatusMessage
|
|
call DelayFrame
|
|
jr .asm_e8e45
|
|
|
|
.asm_e8e62
|
|
xor a
|
|
ld [wPrinterConnectionOpen], a
|
|
ld [wPrinterOpcode], a
|
|
call Printer_CopyTileMapFromPrinterTileBuffer
|
|
xor a
|
|
ld [rIF], a
|
|
pop af
|
|
ld [rIE], a
|
|
call ReloadMapAfterPrinter
|
|
call Printer_PlayMapMusic
|
|
ret
|
|
|
|
Func_e8e79: ; e8e79 (3a:4e79)
|
|
push af
|
|
push bc
|
|
push de
|
|
push hl
|
|
call StopAllMusic
|
|
ld a, [rIE]
|
|
push af
|
|
xor a
|
|
ld [rIF], a
|
|
ld a, $9
|
|
ld [rIE], a
|
|
call StartTransmission_Send9Rows
|
|
ld a, $13
|
|
ld [wcae2], a
|
|
ld a, $1
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
call Printer_CopyTileMapToPrinterTileBuffer
|
|
call Func_ea573
|
|
.loop
|
|
ld a, [wPrinterSendState]
|
|
bit 7, a
|
|
jr nz, .quit
|
|
call Func_ea5d1
|
|
call Func_ea5b7
|
|
call DelayFrame
|
|
jr .loop
|
|
|
|
.quit
|
|
xor a
|
|
ld [wPrinterConnectionOpen], a
|
|
ld [wPrinterOpcode], a
|
|
ld hl, wOAMBuffer + 32 * 4
|
|
ld bc, 8 * 4
|
|
xor a
|
|
call FillMemory
|
|
xor a
|
|
ld [rIF], a
|
|
pop af
|
|
ld [rIE], a
|
|
pop hl
|
|
pop de
|
|
pop bc
|
|
pop af
|
|
ret
|
|
|
|
Printer_CheckPressingB: ; e8eca (3a:4eca)
|
|
ld a, [hJoyHeld]
|
|
and B_BUTTON
|
|
jr nz, .quit
|
|
and a
|
|
ret
|
|
|
|
.quit
|
|
ld a, [wPrinterSendState]
|
|
cp $c
|
|
jr nz, .already_done
|
|
.wait_current_task
|
|
ld a, [wPrinterOpcode]
|
|
and a
|
|
jr nz, .wait_current_task
|
|
ld a, $16
|
|
ld [wPrinterOpcode], a
|
|
ld a, $88
|
|
ld [rSB], a
|
|
ld a, $1
|
|
ld [rSC], a
|
|
ld a, $81
|
|
ld [rSC], a
|
|
.wait_send_cancel
|
|
ld a, [wPrinterOpcode]
|
|
and a
|
|
jr nz, .wait_send_cancel
|
|
.already_done
|
|
ld a, $1
|
|
ld [hCanceledPrinting], a
|
|
scf
|
|
ret
|
|
|
|
Printer_CopyTileMapToPrinterTileBuffer: ; e8efc (3a:4efc)
|
|
coord hl, 0, 0
|
|
coord de, 0, 0, wPrinterTileBuffer
|
|
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
|
|
call CopyData
|
|
ret
|
|
|
|
Printer_CopyTileMapFromPrinterTileBuffer: ; e8f09 (3a:4f09)
|
|
coord hl, 0, 0, wPrinterTileBuffer
|
|
coord de, 0, 0
|
|
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
|
|
call CopyData
|
|
ret
|
|
|
|
Printer_ResetJoypadHRAM: ; e8f16 (3a:4f16)
|
|
xor a
|
|
ld [hJoyLast], a
|
|
ld [hJoyReleased], a
|
|
ld [hJoyPressed], a
|
|
ld [hJoyHeld], a
|
|
ld [hJoy5], a
|
|
ld [hJoy6], a
|
|
ret
|
|
|
|
Printer_PlayPrinterMusic: ; e8f24 (3a:4f24)
|
|
call Printer_FadeOutMusicAndWait
|
|
ld a, [wAudioROMBank]
|
|
ld [wAudioSavedROMBank], a
|
|
ld a, BANK(Music_GBPrinter)
|
|
ld [wAudioROMBank], a
|
|
ld a, MUSIC_GB_PRINTER
|
|
ld [wNewSoundID], a
|
|
call PlaySound
|
|
ret
|
|
|
|
Printer_PlayMapMusic: ; e8f3b (3a:4f3b)
|
|
call Printer_FadeOutMusicAndWait
|
|
call PlayDefaultMusic
|
|
ret
|
|
|
|
Printer_FadeOutMusicAndWait: ; e8f42 (3a:4f42)
|
|
ld a, $4
|
|
ld [wAudioFadeOutControl], a
|
|
call StopAllMusic
|
|
.wait_music_stop
|
|
ld a, [wAudioFadeOutControl]
|
|
and a
|
|
jr nz, .wait_music_stop
|
|
ret
|
|
|
|
GBPrinter_CheckForErrors: ; e8f51 (3a:4f51)
|
|
ld a, [wPrinterHandshake]
|
|
cp $81
|
|
jr z, .check_other_errors
|
|
ld a, [wPrinterStatusFlags]
|
|
cp $ff
|
|
jr z, .error2
|
|
xor a
|
|
jr .load_status
|
|
|
|
.check_other_errors
|
|
ld a, [wPrinterStatusFlags]
|
|
and %11100000
|
|
ret z
|
|
bit 7, a
|
|
jr nz, .error1
|
|
bit 6, a
|
|
jr nz, .error4
|
|
; error 3
|
|
ld a, PRINTER_ERROR_3
|
|
jr .load_status
|
|
|
|
.error4
|
|
ld a, PRINTER_ERROR_4
|
|
jr .load_status
|
|
|
|
.error1
|
|
ld a, PRINTER_ERROR_1
|
|
jr .load_status
|
|
|
|
.error2
|
|
ld a, PRINTER_ERROR_2
|
|
.load_status
|
|
ld [wPrinterStatusIndicator], a
|
|
ret
|
|
|
|
GBPrinter_UpdateStatusMessage:
|
|
ld a, [wPrinterStatusIndicator]
|
|
and a
|
|
ret z
|
|
push af
|
|
xor a
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
coord hl, 0, 5
|
|
lb bc, 10, 18
|
|
call TextBoxBorder
|
|
pop af
|
|
ld e, a
|
|
ld d, $0
|
|
ld hl, .PrinterStatusMessages
|
|
add hl, de
|
|
add hl, de
|
|
ld e, [hl]
|
|
inc hl
|
|
ld d, [hl]
|
|
coord hl, 1, 7
|
|
call PlaceString
|
|
coord hl, 2, 15
|
|
ld de, .PressBToCancel
|
|
call PlaceString
|
|
ld a, $1
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
xor a
|
|
ld [wPrinterStatusIndicator], a
|
|
ret
|
|
|
|
.PressBToCancel:
|
|
db "Press B to Cancel@"
|
|
|
|
.PrinterStatusMessages:
|
|
dw .Blank
|
|
dw .CheckingLink
|
|
dw .Transmitting
|
|
dw .Printing
|
|
dw .Error1
|
|
dw .Error2
|
|
dw .Error3
|
|
dw .Error4
|
|
dw .WrongDevice
|
|
|
|
.Blank:
|
|
db "@"
|
|
.CheckingLink:
|
|
db ""
|
|
next " CHECKING LINK...@"
|
|
.Transmitting:
|
|
db ""
|
|
next " TRANSMITTING...@"
|
|
.Printing:
|
|
db ""
|
|
next " PRINTING...@"
|
|
.Error1:
|
|
db " Printer Error 1"
|
|
next ""
|
|
next "Check the Game Boy"
|
|
next "Printer Manual.@"
|
|
.Error2:
|
|
db " Printer Error 2"
|
|
next ""
|
|
next "Check the Game Boy"
|
|
next "Printer Manual.@"
|
|
.Error3:
|
|
db " Printer Error 3"
|
|
next ""
|
|
next "Check the Game Boy"
|
|
next "Printer Manual.@"
|
|
.Error4:
|
|
db " Printer Error 4"
|
|
next ""
|
|
next "Check the Game Boy"
|
|
next "Printer Manual.@"
|
|
.WrongDevice:
|
|
db "This is not the"
|
|
next "Game Boy Printer!@"
|
|
|
|
Printer_PrepareSurfingMinigameHighScoreTileMap:
|
|
call GBPalWhiteOutWithDelay3
|
|
call ClearScreen
|
|
ld de, SurfingPikachu2Graphics
|
|
ld hl, vChars2
|
|
lb bc, BANK(SurfingPikachu2Graphics), (SurfingPikachu2GraphicsEnd - SurfingPikachu2Graphics) / $10
|
|
call CopyVideoData
|
|
coord hl, 0, 0
|
|
call .PlaceRowAlternatingTiles
|
|
coord hl, 0, 17
|
|
call .PlaceRowAlternatingTiles
|
|
coord hl, 0, 0
|
|
call .PlaceColumnAlternatingTiles
|
|
coord hl, 19, 0
|
|
call .PlaceColumnAlternatingTiles
|
|
ld a, $4
|
|
coord hl, 0, 0
|
|
ld [hl], a
|
|
coord hl, 0, 17
|
|
ld [hl], a
|
|
coord hl, 19, 0
|
|
ld [hl], a
|
|
coord hl, 19, 17
|
|
ld [hl], a
|
|
ld de, .Tilemap1
|
|
coord hl, 10, 8
|
|
lb bc, 3, 8
|
|
call Diploma_Surfing_CopyBox
|
|
ld de, .Tilemap2
|
|
coord hl, 2, 11
|
|
lb bc, 6, 16
|
|
call Diploma_Surfing_CopyBox
|
|
ld de, .PikachusBeachString
|
|
coord hl, 3, 2
|
|
call PlaceString
|
|
ld de, .HiScoreString
|
|
coord hl, 9, 4
|
|
call PlaceString
|
|
ld de, .PointsString
|
|
coord hl, 12, 6
|
|
call PlaceString
|
|
ld de, wPlayerName
|
|
ld hl, wPlayerName
|
|
ld bc, 0
|
|
.find_end_of_name
|
|
ld a, [hli]
|
|
inc c
|
|
cp "@"
|
|
jr nz, .find_end_of_name
|
|
ld a, 8
|
|
sub c
|
|
jr nc, .got_name_length
|
|
xor a
|
|
.got_name_length
|
|
ld c, a
|
|
coord hl, 2, 4
|
|
add hl, bc
|
|
call PlaceString
|
|
call CopySurfingMinigameScore
|
|
ld b, 8
|
|
call RunPaletteCommand
|
|
ld a, $1
|
|
ld [H_AUTOBGTRANSFERENABLED], a
|
|
call Delay3
|
|
call GBPalNormal
|
|
ret
|
|
|
|
.PlaceRowAlternatingTiles:
|
|
ld c, SCREEN_WIDTH / 2
|
|
.row_loop
|
|
ld [hl], $0
|
|
inc hl
|
|
ld [hl], $1
|
|
inc hl
|
|
dec c
|
|
jr nz, .row_loop
|
|
ret
|
|
|
|
.PlaceColumnAlternatingTiles:
|
|
ld c, SCREEN_HEIGHT / 2
|
|
ld de, SCREEN_WIDTH
|
|
.col_loop
|
|
ld [hl], $2
|
|
add hl, de
|
|
ld [hl], $3
|
|
add hl, de
|
|
dec c
|
|
jr nz, .col_loop
|
|
ret
|
|
|
|
.Tilemap1:
|
|
db $7f, $7f, $10, $11, $12, $13, $14, $15
|
|
db $0f, $3c, $3d, $3e, $20, $21, $30, $31
|
|
db $4c, $4d, $4e, $50, $34, $1a, $51, $2d
|
|
|
|
.Tilemap2:
|
|
db $7f, $7f, $7f, $7f, $7f, $7f, $16, $17, $18, $19, $7f, $1b, $1c, $1d, $1e, $1f
|
|
db $7f, $7f, $22, $23, $24, $25, $26, $27, $28, $29, $2a, $2b, $2c, $7f, $2e, $2f
|
|
db $7f, $7f, $32, $33, $33, $35, $36, $37, $38, $39, $3a, $3b, $7f, $7f, $7f, $3f
|
|
db $40, $41, $42, $43, $44, $45, $46, $47, $48, $49, $4a, $4b, $40, $40, $40, $4f
|
|
db $52, $52, $52, $53, $54, $55, $56, $57, $58, $59, $5a, $5b, $5c, $5d, $5d, $5e
|
|
db $7f, $7f, $7f, $05, $06, $07, $08, $09, $0a, $0b, $0c, $0d, $0e, $7f, $7f, $7f
|
|
|
|
.PikachusBeachString:
|
|
db "Pikachu's Beach@"
|
|
.HiScoreString:
|
|
db "'s Hi-Score@"
|
|
.PointsString:
|
|
db "Points@"
|
|
|
|
Diploma_Surfing_CopyBox:
|
|
.y
|
|
push bc
|
|
push hl
|
|
.x
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .x
|
|
pop hl
|
|
ld bc, SCREEN_WIDTH
|
|
add hl, bc
|
|
pop bc
|
|
dec b
|
|
jr nz, .y
|
|
ret
|
|
|
|
CopySurfingMinigameScore:
|
|
ld de, wSurfingMinigameHiScore + 1
|
|
coord hl, 7, 6
|
|
ld a, [de]
|
|
call .BCDConvertScore
|
|
ld a, [de]
|
|
.BCDConvertScore:
|
|
ld c, a
|
|
swap a
|
|
and $f
|
|
add -10
|
|
ld [hli], a
|
|
ld a, c
|
|
and $f
|
|
add -10
|
|
ld [hli], a
|
|
dec de
|
|
ret
|
|
|
|
SurfingPikachu2Graphics: INCBIN "gfx/surfing_pikachu_2.2bpp"
|
|
SurfingPikachu2GraphicsEnd:
|
|
|
|
Func_e988a:
|
|
xor a
|
|
ld [wBoxNumString], a
|
|
call ClearScreen
|
|
call Func_e99de
|
|
coord hl, 0, 0
|
|
ld bc, 11 * SCREEN_WIDTH
|
|
ld a, " "
|
|
call FillMemory
|
|
call Func_e99b9
|
|
call Func_e99a7
|
|
coord hl, 4, 4
|
|
ld de, String_e98db
|
|
call PlaceString
|
|
coord hl, 7, 6
|
|
ld de, String_e98e8
|
|
call PlaceString
|
|
coord hl, 11, 6
|
|
ld a, [wCurrentBoxNum]
|
|
and $7f
|
|
cp 9
|
|
jr c, .asm_e98cc
|
|
sub 9
|
|
ld [hl], "1"
|
|
inc hl
|
|
add "0"
|
|
jr .asm_e98ce
|
|
|
|
.asm_e98cc
|
|
add "1"
|
|
.asm_e98ce
|
|
ld [hl], a
|
|
coord hl, 4, 9
|
|
ld de, wBoxSpecies
|
|
ld c, $3
|
|
call Func_e994e
|
|
ret
|
|
|
|
String_e98db: db "POKéMON LIST@"
|
|
String_e98e8: db "BOX@"
|
|
|
|
Func_e98ec:
|
|
call ClearScreen
|
|
call Func_e99de
|
|
call Func_e99b9
|
|
ld a, [wBoxDataStart]
|
|
cp 4
|
|
ret c
|
|
coord hl, 4, 0
|
|
ld de, wBoxSpecies + 3
|
|
ld c, 6
|
|
call Func_e994e
|
|
ret
|
|
|
|
Func_e9907:
|
|
call ClearScreen
|
|
call Func_e99de
|
|
call Func_e99b9
|
|
ld a, [wBoxDataStart]
|
|
cp 10
|
|
ret c
|
|
coord hl, 4, 0
|
|
ld de, wBoxSpecies + 9
|
|
ld c, 6
|
|
call Func_e994e
|
|
ret
|
|
|
|
Func_e9922:
|
|
call ClearScreen
|
|
call Func_e99de
|
|
call Func_e99b9
|
|
coord hl, 0, 15
|
|
call Func_e99cf
|
|
coord hl, 0, 16
|
|
ld bc, 2 * SCREEN_WIDTH
|
|
ld a, " "
|
|
call FillMemory
|
|
ld a, [wBoxDataStart]
|
|
cp 16
|
|
ret c
|
|
coord hl, 4, 0
|
|
ld de, wBoxSpecies + 15
|
|
ld c, 5
|
|
call Func_e994e
|
|
ret
|
|
|
|
Func_e994e:
|
|
.asm_e994e
|
|
ld a, c
|
|
and a
|
|
jr z, .asm_e99a6
|
|
dec c
|
|
ld a, [de]
|
|
cp $ff
|
|
jr z, .asm_e99a6
|
|
ld [wd11e], a
|
|
push bc
|
|
push hl
|
|
push de
|
|
push hl
|
|
ld bc, 12
|
|
ld a, " "
|
|
call FillMemory
|
|
pop hl
|
|
push hl
|
|
ld de, SCREEN_WIDTH
|
|
add hl, de
|
|
ld bc, 12
|
|
ld a, " "
|
|
call FillMemory
|
|
pop hl
|
|
push hl
|
|
call GetMonName
|
|
pop hl
|
|
call PlaceString
|
|
push hl
|
|
ld hl, wBoxMonNicks
|
|
ld bc, NAME_LENGTH
|
|
ld a, [wBoxNumString]
|
|
call AddNTimes
|
|
ld e, l
|
|
ld d, h
|
|
pop hl
|
|
ld bc, SCREEN_WIDTH + 1
|
|
add hl, bc
|
|
ld [hl], " "
|
|
inc hl
|
|
call PlaceString
|
|
ld hl, wBoxNumString
|
|
inc [hl]
|
|
pop de
|
|
pop hl
|
|
ld bc, 3 * SCREEN_WIDTH
|
|
add hl, bc
|
|
pop bc
|
|
inc de
|
|
jr .asm_e994e
|
|
|
|
.asm_e99a6
|
|
ret
|
|
|
|
Func_e99a7:
|
|
coord hl, 0, 0
|
|
ld a, $79
|
|
ld [hli], a
|
|
ld a, $7a
|
|
ld c, SCREEN_WIDTH - 2
|
|
.asm_e99b1
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .asm_e99b1
|
|
ld a, $7b
|
|
ld [hl], a
|
|
ret
|
|
|
|
Func_e99b9:
|
|
coord hl, 0, 0
|
|
ld de, SCREEN_WIDTH - 1
|
|
ld c, SCREEN_HEIGHT
|
|
.asm_e99c1
|
|
ld a, $7c
|
|
ld [hl], a
|
|
add hl, de
|
|
ld a, $7c
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .asm_e99c1
|
|
ret
|
|
|
|
Func_e99cc:
|
|
coord hl, 0, 17
|
|
Func_e99cf:
|
|
ld a, $7d
|
|
ld [hli], a
|
|
ld a, $7a
|
|
ld c, SCREEN_WIDTH - 2
|
|
.asm_e99b1
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .asm_e99b1
|
|
ld a, $7e
|
|
ld [hl], a
|
|
ret
|
|
|
|
Func_e99de:
|
|
coord hl, 4, 0
|
|
ld c, 6
|
|
call Func_e99eb
|
|
coord hl, 6, 1
|
|
ld c, 6
|
|
Func_e99eb:
|
|
.asm_e99eb
|
|
push bc
|
|
push hl
|
|
ld de, String_e99fd
|
|
call PlaceString
|
|
pop hl
|
|
ld bc, 3 * SCREEN_WIDTH
|
|
add hl, bc
|
|
pop bc
|
|
dec c
|
|
jr nz, .asm_e99eb
|
|
ret
|
|
|
|
String_e99fd:
|
|
db "----------@"
|