First Commit

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

engine/events/unown_walls.asm

@@ -0,0 +1,270 @@
+HoOhChamber:
+	ld hl, wPartySpecies
+	ld a, [hl]
+	; is Ho-oh the first Pokémon in the party? If not, we're done
+	call GetPokemonIndexFromID
+	ld a, l
+	sub LOW(HO_OH)
+	if HIGH(HO_OH) == 0
+		or h
+	else
+		ret nz
+		if HIGH(HO_OH) == 1
+			dec h
+		else
+			ld a, h
+			cp HIGH(HO_OH)
+		endc
+	endc
+	ret nz
+	call GetMapAttributesPointer ; pointless?
+	ld de, EVENT_WALL_OPENED_IN_HO_OH_CHAMBER
+	ld b, SET_FLAG
+	jp EventFlagAction
+
+OmanyteChamber:
+	call GetMapAttributesPointer ; pointless?
+	ld de, EVENT_WALL_OPENED_IN_OMANYTE_CHAMBER
+	ld b, CHECK_FLAG
+	call EventFlagAction
+	ld a, c
+	and a
+	jr nz, .nope
+
+	ld a, WATER_STONE
+	ld [wCurItem], a
+	ld hl, wNumItems
+	call CheckItem
+	jr c, .open
+
+	ld a, [wPartyCount]
+	ld b, a
+	inc b
+.loop
+	dec b
+	jr z, .nope
+	ld a, b
+	dec a
+	ld [wCurPartyMon], a
+	push bc
+	ld a, MON_ITEM
+	call GetPartyParamLocation
+	pop bc
+	ld a, [hl]
+	cp WATER_STONE
+	jr nz, .loop
+
+.open
+	call GetMapAttributesPointer ; pointless?
+	ld de, EVENT_WALL_OPENED_IN_OMANYTE_CHAMBER
+	ld b, SET_FLAG
+	call EventFlagAction
+
+.nope
+	ret
+
+SpecialAerodactylChamber:
+	push de
+	push bc
+
+	call GetMapAttributesPointer
+	ld a, h
+	cp HIGH(RuinsOfAlphAerodactylChamber_MapAttributes)
+	jr nz, .nope
+	ld a, l
+	cp LOW(RuinsOfAlphAerodactylChamber_MapAttributes)
+	jr nz, .nope
+
+	ld de, EVENT_WALL_OPENED_IN_AERODACTYL_CHAMBER
+	ld b, SET_FLAG
+	call EventFlagAction
+
+	scf
+	jr .done
+
+.nope
+	and a
+
+.done
+	pop bc
+	pop de
+	ret
+
+SpecialKabutoChamber:
+	push hl
+	push de
+
+	call GetMapAttributesPointer
+	ld a, h
+	cp HIGH(RuinsOfAlphKabutoChamber_MapAttributes)
+	jr nz, .done
+	ld a, l
+	cp LOW(RuinsOfAlphKabutoChamber_MapAttributes)
+	jr nz, .done
+
+	ld de, EVENT_WALL_OPENED_IN_KABUTO_CHAMBER
+	ld b, SET_FLAG
+	call EventFlagAction
+
+.done
+	pop de
+	pop hl
+	ret
+
+DisplayUnownWords:
+	ld a, [wScriptVar]
+	ld hl, MenuHeaders_UnownWalls
+	and a
+	jr z, .load
+
+	ld d, $0
+	ld e, $5
+.loop
+	add hl, de
+	dec a
+	jr nz, .loop
+
+.load
+	call LoadMenuHeader
+	xor a
+	ldh [hBGMapMode], a
+	call MenuBox
+	call UpdateSprites
+	call ApplyTilemap
+	call MenuBoxCoord2Tile
+	inc hl
+	ld d, 0
+	ld e, SCREEN_WIDTH
+	add hl, de
+	add hl, de
+	ld a, [wScriptVar]
+	ld c, a
+	ld de, UnownWalls
+	and a
+	jr z, .copy
+.loop2
+	ld a, [de]
+	inc de
+	cp -1
+	jr nz, .loop2
+	dec c
+	jr nz, .loop2
+.copy
+	call _DisplayUnownWords_CopyWord
+	ld bc, wAttrmap - wTilemap
+	add hl, bc
+	call _DisplayUnownWords_FillAttr
+	call WaitBGMap2
+	call JoyWaitAorB
+	call PlayClickSFX
+	call CloseWindow
+	ret
+
+INCLUDE "data/events/unown_walls.asm"
+
+_DisplayUnownWords_FillAttr:
+	ld a, [de]
+	cp $ff
+	ret z
+	cp $60
+	ld a, VRAM_BANK_1 | PAL_BG_BROWN
+	jr c, .got_pal
+	ld a, PAL_BG_BROWN
+
+.got_pal
+	call .PlaceSquare
+	inc hl
+	inc hl
+	inc de
+	jr _DisplayUnownWords_FillAttr
+
+.PlaceSquare:
+	push hl
+	ld [hli], a
+	ld [hld], a
+	ld b, 0
+	ld c, SCREEN_WIDTH
+	add hl, bc
+	ld [hli], a
+	ld [hl], a
+	pop hl
+	ret
+
+_DisplayUnownWords_CopyWord:
+	push hl
+	push de
+.word_loop
+	ld a, [de]
+	cp $ff
+	jr z, .word_done
+	ld c, a
+	call .ConvertChar
+	inc hl
+	inc hl
+	inc de
+	jr .word_loop
+
+.word_done
+	pop de
+	pop hl
+	ret
+
+.ConvertChar:
+	push hl
+	ld a, c
+	cp $60
+	jr z, .Tile60
+	cp $62
+	jr z, .Tile62
+	cp $64
+	jr z, .Tile64
+	ld [hli], a
+	inc a
+	ld [hld], a
+	dec a
+	ld b, 0
+	ld c, SCREEN_WIDTH
+	add hl, bc
+	ld c, $10
+	add c
+	ld [hli], a
+	inc a
+	ld [hl], a
+	pop hl
+	ret
+
+.Tile60:
+	ld [hl], $5b
+	inc hl
+	ld [hl], $5c
+	ld bc, SCREEN_WIDTH - 1
+	add hl, bc
+	ld [hl], $4d
+	inc hl
+	ld [hl], $5d
+	pop hl
+	ret
+
+.Tile62:
+	ld [hl], $4e
+	inc hl
+	ld [hl], $4f
+	ld bc, SCREEN_WIDTH - 1
+	add hl, bc
+	ld [hl], $5e
+	inc hl
+	ld [hl], $5f
+	pop hl
+	ret
+
+.Tile64:
+	ld [hl], $2
+	inc hl
+	ld [hl], $3
+	ld bc, SCREEN_WIDTH - 1
+	add hl, bc
+	ld [hl], $3
+	inc hl
+	ld [hl], $2
+	pop hl
+	ret