First Commit

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

engine/events/elevator.asm

@@ -0,0 +1,216 @@
+Elevator::
+	call .LoadPointer
+	call .FindCurrentFloor
+	jr c, .quit
+	ld [wElevatorOriginFloor], a
+	call Elevator_AskWhichFloor
+	jr c, .quit
+	ld hl, wElevatorOriginFloor
+	cp [hl]
+	jr z, .quit
+	call Elevator_GoToFloor
+	and a
+	ret
+
+.quit
+	scf
+	ret
+
+.LoadPointer:
+	ld a, b
+	ld [wElevatorPointerBank], a
+	ld a, e
+	ld [wElevatorPointer], a
+	ld a, d
+	ld [wElevatorPointer + 1], a
+	call .LoadFloors
+	ret
+
+.LoadFloors:
+	ld de, wCurElevatorCount
+	ld bc, wElevatorDataEnd - wElevatorData
+	ld hl, wElevatorPointer
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld a, [wElevatorPointerBank]
+	call GetFarByte
+	inc hl
+	ld [de], a
+	inc de
+	assert wCurElevatorCount + 1 == wCurElevatorFloors
+.loop
+	ld a, [wElevatorPointerBank]
+	call GetFarByte
+	ld [de], a
+	inc de
+	add hl, bc
+	cp -1
+	jr nz, .loop
+	ret
+
+.FindCurrentFloor:
+	ld hl, wElevatorPointer
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld a, [wElevatorPointerBank]
+	call GetFarByte
+	ld c, a
+	inc hl
+	ld a, [wBackupMapGroup]
+	ld d, a
+	ld a, [wBackupMapNumber]
+	ld e, a
+	ld b, 0
+.loop2
+	ld a, [wElevatorPointerBank]
+	call GetFarByte
+	cp -1
+	jr z, .fail
+	inc hl
+	inc hl
+	ld a, [wElevatorPointerBank]
+	call GetFarByte
+	inc hl
+	cp d
+	jr nz, .next1
+	ld a, [wElevatorPointerBank]
+	call GetFarByte
+	inc hl
+	cp e
+	jr nz, .next2
+	jr .done
+
+.next1
+	inc hl
+.next2
+	inc b
+	jr .loop2
+
+.done
+	xor a
+	ld a, b
+	ret
+
+.fail
+	scf
+	ret
+
+Elevator_GoToFloor:
+	push af
+	ld hl, wElevatorPointer
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	inc hl
+	pop af
+	ld bc, wElevatorDataEnd - wElevatorData
+	call AddNTimes
+	inc hl
+	ld de, wBackupWarpNumber
+	ld a, [wElevatorPointerBank]
+	ld bc, wElevatorDataEnd - wElevatorData - 1
+	call FarCopyBytes
+	ret
+
+Elevator_AskWhichFloor:
+	call LoadStandardMenuHeader
+	ld hl, AskFloorElevatorText
+	call PrintText
+	call Elevator_GetCurrentFloorText
+	ld hl, Elevator_MenuHeader
+	call CopyMenuHeader
+	call InitScrollingMenu
+	call UpdateSprites
+	xor a
+	ld [wMenuScrollPosition], a
+	call ScrollingMenu
+	call CloseWindow
+	ld a, [wMenuJoypad]
+	cp B_BUTTON
+	jr z, .cancel
+	xor a
+	ld a, [wScrollingMenuCursorPosition]
+	ret
+
+.cancel
+	scf
+	ret
+
+AskFloorElevatorText:
+	text_far _AskFloorElevatorText
+	text_end
+
+Elevator_GetCurrentFloorText:
+	ld hl, wOptions
+	ld a, [hl]
+	push af
+	set NO_TEXT_SCROLL, [hl]
+	hlcoord 0, 0
+	ld b, 4
+	ld c, 8
+	call Textbox
+	hlcoord 1, 2
+	ld de, Elevator_CurrentFloorText
+	call PlaceString
+	hlcoord 4, 4
+	call Elevator_GetCurrentFloorString
+	pop af
+	ld [wOptions], a
+	ret
+
+Elevator_CurrentFloorText:
+	db "Now on:@"
+
+Elevator_GetCurrentFloorString:
+	push hl
+	ld a, [wElevatorOriginFloor]
+	ld e, a
+	ld d, 0
+	ld hl, wCurElevatorFloors
+	add hl, de
+	ld a, [hl]
+	pop de
+	call GetFloorString
+	ret
+
+Elevator_MenuHeader:
+	db MENU_BACKUP_TILES ; flags
+	menu_coords 12, 1, 18, 9
+	dw Elevator_MenuData
+	db 1 ; default option
+
+Elevator_MenuData:
+	db SCROLLINGMENU_DISPLAY_ARROWS ; flags
+	db 4, 0 ; rows, columns
+	db SCROLLINGMENU_ITEMS_NORMAL ; item format
+	dbw 0, wCurElevatorCount
+	dba GetElevatorFloorStrings
+	dba NULL
+	dba NULL
+
+GetElevatorFloorStrings:
+	ld a, [wMenuSelection]
+GetFloorString:
+	push de
+	call FloorToString
+	ld d, h
+	ld e, l
+	pop hl
+	jp PlaceString
+
+FloorToString:
+	push de
+	ld e, a
+	ld d, 0
+	ld hl, ElevatorFloorNames
+	add hl, de
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	pop de
+	ret
+
+INCLUDE "data/events/elevator_floors.asm"