Pull map scripts out of main.asm

1 files changed, 263 insertions, 0 deletions

diff --git a/scripts/celadonmartroof.asm b/scripts/celadonmartroof.asm
new file mode 100755
index 00000000..d1765575
--- /dev/null
+++ b/scripts/celadonmartroof.asm
@@ -0,0 +1,263 @@
+CeladonMartRoofScript: ; 483d5 (12:43d5)
+	jp EnableAutoTextBoxDrawing
+
+CeladonMartRoofScript_483d8: ; 483d8 (12:43d8)
+	xor a
+	ld [$cd37], a
+	ld de, $cc5b
+	ld hl, CeladonMartRoofDrinkList ; $4408
+.asm_483e2
+	ld a, [hli]
+	and a
+	jr z, .asm_48404
+	push hl
+	push de
+	ld [$d11e], a
+	ld b, a
+	ld a, $1c
+	call Predef ; indirect jump to Func_f8a5 (f8a5 (3:78a5))
+	pop de
+	pop hl
+	ld a, b
+	and a
+	jr z, .asm_483e2
+	ld a, [$d11e]
+	ld [de], a
+	inc de
+	push hl
+	ld hl, $cd37
+	inc [hl]
+	pop hl
+	jr .asm_483e2
+.asm_48404
+	ld a, $ff
+	ld [de], a
+	ret
+
+CeladonMartRoofDrinkList: ; 48408 (12:4408)
+	db FRESH_WATER
+	db SODA_POP
+	db LEMONADE
+	db $00
+
+CeladonMartRoofScript_4840c: ; 4840c (12:440c)
+	ld hl, $d730
+	set 6, [hl]
+	ld hl, CeladonMartRoofText_484ee ; $44ee
+	call PrintText
+	xor a
+	ld [wCurrentMenuItem], a ; $cc26
+	ld a, $3
+	ld [wMenuWatchedKeys], a ; $cc29
+	ld a, [$cd37]
+	dec a
+	ld [wMaxMenuItem], a ; $cc28
+	ld a, $2
+	ld [wTopMenuItemY], a ; $cc24
+	ld a, $1
+	ld [wTopMenuItemX], a ; $cc25
+	ld a, [$cd37]
+	dec a
+	ld bc, $2
+	ld hl, $3
+	call AddNTimes
+	dec l
+	ld b, l
+	ld c, $c
+	ld hl, wTileMap
+	call TextBoxBorder
+	call UpdateSprites
+	call CeladonMartRoofScript_48532
+	ld hl, $d730
+	res 6, [hl]
+	call HandleMenuInput
+	bit 1, a
+	ret nz
+	ld hl, $cc5b
+	ld a, [wCurrentMenuItem] ; $cc26
+	ld d, $0
+	ld e, a
+	add hl, de
+	ld a, [hl]
+	ld [$ffdb], a
+	cp FRESH_WATER
+	jr z, .asm_484b6
+	cp SODA_POP
+	jr z, .asm_48492
+	ld a, [$d778]
+	bit 6, a
+	jr nz, .asm_484e0
+	ld hl, CeladonMartRoofText_48515 ; $4515
+	call PrintText
+	call RemoveItemByIDBank12
+	ld bc, (TM_49 << 8) | 1
+	call GiveItem
+	jr nc, .BagFull
+	ld hl, ReceivedTM49Text
+	call PrintText
+	ld hl, $d778
+	set 6, [hl]
+	ret
+.asm_48492
+	ld a, [$d778]
+	bit 5, a
+	jr nz, .asm_484e0
+	ld hl, CeladonMartRoofText_48504 ; $4504
+	call PrintText
+	call RemoveItemByIDBank12
+	ld bc, (TM_48 << 8) | 1
+	call GiveItem
+	jr nc, .BagFull
+	ld hl, CeladonMartRoofText_4850a ; $450a
+	call PrintText
+	ld hl, $d778
+	set 5, [hl]
+	ret
+.asm_484b6
+	ld a, [$d778]
+	bit 4, a
+	jr nz, .asm_484e0
+	ld hl, CeladonMartRoofText_484f3 ; $44f3
+	call PrintText
+	call RemoveItemByIDBank12
+	ld bc, (TM_13 << 8) | 1
+	call GiveItem
+	jr nc, .BagFull
+	ld hl, CeladonMartRoofText_484f9 ; $44f9
+	call PrintText
+	ld hl, $d778
+	set 4, [hl]
+	ret
+.BagFull
+	ld hl, CeladonMartRoofText_48526 ; $4526
+	jp PrintText
+.asm_484e0
+	ld hl, CeladonMartRoofText_4852c ; $452c
+	jp PrintText
+
+RemoveItemByIDBank12: ; 484e6 (12:44e6)
+	ld b, BANK(RemoveItemByID)
+	ld hl, RemoveItemByID
+	jp Bankswitch
+
+CeladonMartRoofText_484ee: ; 484ee (12:44ee)
+	TX_FAR _CeladonMartRoofText_484ee
+	db "@"
+
+CeladonMartRoofText_484f3: ; 484f3 (12:44f3)
+	TX_FAR _CeladonMartRoofText_484f3
+	db $0d
+	db "@"
+
+CeladonMartRoofText_484f9: ; 484f9 (12:44f9)
+	TX_FAR _CeladonMartRoofText_484f9
+	db $0b
+	TX_FAR _CeladonMartRoofText_484fe
+	db $0d
+	db "@"
+
+CeladonMartRoofText_48504: ; 48504 (12:4504)
+	TX_FAR _CeladonMartRoofText_48504
+	db $0d
+	db "@"
+
+CeladonMartRoofText_4850a: ; 4850a (12:450a)
+	TX_FAR _CeladonMartRoofText_4850a
+	db $0b
+	TX_FAR _CeladonMartRoofText_4850f
+	db $0d
+	db "@"
+
+CeladonMartRoofText_48515: ; 48515 (12:4515)
+	TX_FAR _CeladonMartRoofText_48515
+	db $0d
+	db "@"
+
+ReceivedTM49Text: ; 4851b (12:451b)
+	TX_FAR _ReceivedTM49Text
+	db $0b
+	TX_FAR _CeladonMartRoofText_48520
+	db $0d
+	db "@"
+
+CeladonMartRoofText_48526: ; 48526 (12:4526)
+	TX_FAR _CeladonMartRoofText_48526
+	db $0d
+	db "@"
+
+CeladonMartRoofText_4852c: ; 4852c (12:452c)
+	TX_FAR _CeladonMartRoofText_4852c
+	db $0d
+	db "@"
+
+CeladonMartRoofScript_48532: ; 48532 (12:4532)
+	ld hl, $cc5b
+	xor a
+	ld [$ffdb], a
+.asm_48538
+	ld a, [hli]
+	cp $ff
+	ret z
+	push hl
+	ld [$d11e], a
+	call GetItemName
+	FuncCoord 2, 2 ; $c3ca
+	ld hl, Coord
+	ld a, [$ffdb]
+	ld bc, $28
+	call AddNTimes
+	ld de, $cd6d
+	call PlaceString
+	ld hl, $ffdb
+	inc [hl]
+	pop hl
+	jr .asm_48538
+
+CeladonMartRoofTextPointers: ; 4855b (12:455b)
+	dw CeladonMartRoofText1
+	dw CeladonMartRoofText2
+	dw CeladonMartRoofText5
+	dw CeladonMartRoofText5
+	dw CeladonMartRoofText5
+	dw CeladonMartRoofText6
+
+CeladonMartRoofText1: ; 48567 (12:4567)
+	TX_FAR _CeladonMartRoofText1
+	db "@"
+
+CeladonMartRoofText2: ; 4856c (12:456c)
+	db $08 ; asm
+	call CeladonMartRoofScript_483d8
+	ld a, [$cd37]
+	and a
+	jr z, .asm_914b9 ; 0x48574
+	ld a, $1
+	ld [$cc3c], a
+	ld hl, CeladonMartRoofText4
+	call PrintText
+	call YesNoChoice
+	ld a, [$cc26]
+	and a
+	jr nz, .asm_05aa4 ; 0x48588
+	call CeladonMartRoofScript_4840c
+	jr .asm_05aa4 ; 0x4858d
+.asm_914b9 ; 0x4858f
+	ld hl, CeladonMartRoofText3
+	call PrintText
+.asm_05aa4 ; 0x48595
+	jp TextScriptEnd
+
+CeladonMartRoofText3: ; 48598 (12:4598)
+	TX_FAR _CeladonMartRoofText_48598
+	db "@"
+
+CeladonMartRoofText4: ; 4859d (12:459d)
+	TX_FAR _CeladonMartRoofText4
+	db "@"
+
+CeladonMartRoofText5: ; 485a2 (12:45a2)
+	db $f5
+
+CeladonMartRoofText6: ; 485a3 (12:45a3)
+	TX_FAR _CeladonMartRoofText6
+	db "@"