First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

engine/events/print_unown.asm

@@ -0,0 +1,238 @@
+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 hl, UNOWN
+	call GetPokemonIDFromIndex
+	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(_CRYSTAL_VC)
+	and NO_INPUT
+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 hl, UNOWN
+	call GetPokemonIDFromIndex
+	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