ref: 55ca2da25acc0598539eede5359f25f08223de2d
dir: /engine/events/print_unown.asm/
DEF UNOWNSTAMP_BOLD_A EQU "♂" ; $ef DEF UNOWNSTAMP_BOLD_B EQU "♀" ; $f5 _UnownPrinter: ld a, [wUnownDex] and a ret z ldh a, [hInMenu] push af ld a, $1 ldh [hInMenu], a ld a, [wOptions] push af set NO_TEXT_SCROLL, a ld [wOptions], a call ClearBGPalettes call ClearTilemap ld de, UnownDexATile ld hl, vTiles0 tile UNOWNSTAMP_BOLD_A lb bc, BANK(UnownDexATile), 1 call Request1bpp ld de, UnownDexBTile ld hl, vTiles0 tile UNOWNSTAMP_BOLD_B lb bc, BANK(UnownDexBTile), 1 call Request1bpp hlcoord 0, 0 lb bc, 3, 18 call Textbox hlcoord 0, 5 lb bc, 7, 7 call Textbox hlcoord 0, 14 lb bc, 2, 18 call Textbox hlcoord 1, 2 ld de, AlphRuinsStampString call PlaceString hlcoord 1, 16 ld de, UnownDexDoWhatString call PlaceString hlcoord 10, 6 ld de, UnownDexMenuString call PlaceString xor a ld [wJumptableIndex], a call .UpdateUnownFrontpic call WaitBGMap ld a, UNOWN ld [wCurPartySpecies], a xor a ld [wTempMonDVs], a ld [wTempMonDVs + 1], a ld b, SCGB_TRAINER_OR_MON_FRONTPIC_PALS call GetSGBLayout call SetPalettes .joy_loop call JoyTextDelay ldh a, [hJoyPressed] and B_BUTTON jr nz, .pressed_b ldh a, [hJoyPressed] vc_patch Forbid_printing_Unown if DEF(_CRYSTAL11_VC) and 0 else and A_BUTTON endc vc_patch_end jr nz, .pressed_a call .LeftRight call DelayFrame jr .joy_loop .pressed_a ld a, [wJumptableIndex] push af farcall PrintUnownStamp call RestartMapMusic pop af ld [wJumptableIndex], a jr .joy_loop .pressed_b pop af ld [wOptions], a pop af ldh [hInMenu], a call ReturnToMapFromSubmenu ret .LeftRight: ldh a, [hJoyLast] and D_RIGHT jr nz, .press_right ldh a, [hJoyLast] and D_LEFT jr nz, .press_left ret .press_left ld hl, wJumptableIndex ld a, [hl] and a jr nz, .wrap_around_left ld [hl], NUM_UNOWN + 1 .wrap_around_left dec [hl] jr .return .press_right ld hl, wJumptableIndex ld a, [hl] cp NUM_UNOWN jr c, .wrap_around_right ld [hl], -1 .wrap_around_right inc [hl] .return call .UpdateUnownFrontpic ret .UpdateUnownFrontpic: ld a, [wJumptableIndex] cp NUM_UNOWN jr z, .vacant inc a ld [wUnownLetter], a ld a, UNOWN ld [wCurPartySpecies], a xor a ld [wBoxAlignment], a ld de, vTiles2 predef GetMonFrontpic call .Load2bppToSRAM hlcoord 1, 6 xor a ldh [hGraphicStartTile], a lb bc, 7, 7 predef PlaceGraphic ld de, vTiles2 tile $31 farcall RotateUnownFrontpic ret .Load2bppToSRAM: ldh a, [rSVBK] push af ld a, BANK(wDecompressScratch) ldh [rSVBK], a ld a, BANK(sScratch) call OpenSRAM ld de, wDecompressScratch ld hl, sScratch ldh a, [hROMBank] ld b, a ld c, $31 call Get2bpp call CloseSRAM pop af ldh [rSVBK], a ret .vacant hlcoord 1, 6 lb bc, 7, 7 call ClearBox hlcoord 1, 9 ld de, UnownDexVacantString call PlaceString xor a ; sScratch call OpenSRAM ld hl, sScratch ld bc, $31 tiles xor a call ByteFill ld hl, vTiles2 tile $31 ld de, sScratch ld c, $31 ldh a, [hROMBank] ld b, a call Get2bpp call CloseSRAM ld c, 20 call DelayFrames ret AlphRuinsStampString: db " ALPH RUINS STAMP@" UnownDexDoWhatString: db "Do what?@" UnownDexMenuString: db UNOWNSTAMP_BOLD_A, " PRINT" next UNOWNSTAMP_BOLD_B, " CANCEL" next "← PREVIOUS" next "→ NEXT" db "@" UnownDexVacantString: db "VACANT@" UnownDexATile: INCBIN "gfx/printer/bold_a.1bpp" UnownDexBTile: INCBIN "gfx/printer/bold_b.1bpp" PlaceUnownPrinterFrontpic: hlcoord 0, 0 ld bc, SCREEN_WIDTH * SCREEN_HEIGHT ld a, " " call ByteFill hlcoord 7, 11 ld a, $31 ldh [hGraphicStartTile], a lb bc, 7, 7 predef PlaceGraphic ret