Pull map scripts out of main.asm

1 files changed, 414 insertions, 0 deletions

diff --git a/scripts/mtmoon3.asm b/scripts/mtmoon3.asm
new file mode 100755
index 00000000..669d6fe4
--- /dev/null
+++ b/scripts/mtmoon3.asm
@@ -0,0 +1,414 @@
+MtMoon3Script: ; 49d0b (12:5d0b)
+	call EnableAutoTextBoxDrawing
+	ld hl, MtMoon3TrainerHeader0 ; $5e48
+	ld de, MtMoon3ScriptPointers
+	ld a, [W_MTMOON3CURSCRIPT]
+	call ExecuteCurMapScriptInTable
+	ld [W_MTMOON3CURSCRIPT], a
+	ld a, [$d7f6]
+	bit 1, a
+	ret z
+	ld hl, CoordsData_49d37
+	call ArePlayerCoordsInArray
+	jr nc, .asm_49d31 ; 0x49d29 $6
+	ld hl, $d72e
+	set 4, [hl]
+	ret
+.asm_49d31
+	ld hl, $d72e
+	res 4, [hl]
+	ret
+
+CoordsData_49d37: ; 49d37 (12:5d37)
+	db $05,$0B
+	db $05,$0C
+	db $05,$0D
+	db $05,$0E
+	db $06,$0B
+	db $06,$0C
+	db $06,$0D
+	db $06,$0E
+	db $07,$0B
+	db $07,$0C
+	db $07,$0D
+	db $07,$0E
+	db $08,$0B
+	db $08,$0C
+	db $08,$0D
+	db $08,$0E
+	db $FF
+
+MtMoon3Script_49d58: ; 49d58 (12:5d58)
+	xor a
+	ld [wJoypadForbiddenButtonsMask], a
+	ld [W_MTMOON3CURSCRIPT], a
+	ld [W_CURMAPSCRIPT], a
+	ret
+
+MtMoon3ScriptPointers: ; 49d63 (12:5d63)
+	dw MtMoon3Script0
+	dw Func_324c
+	dw EndTrainerBattle
+	dw MtMoon3Script3
+	dw MtMoon3Script4
+	dw MtMoon3Script5
+
+MtMoon3Script0: ; 49d6f (12:5d6f)
+	ld a, [$d7f6]
+	bit 1, a
+	jp nz, MtMoon3Script_49d91
+	ld a, [W_YCOORD] ; $d361
+	cp $8
+	jp nz, MtMoon3Script_49d91
+	ld a, [W_XCOORD] ; $d362
+	cp $d
+	jp nz, MtMoon3Script_49d91
+	xor a
+	ld [H_CURRENTPRESSEDBUTTONS], a
+	ld a, $1
+	ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
+	jp DisplayTextID
+
+MtMoon3Script_49d91: ; 49d91 (12:5d91)
+	ld a, [$d7f6]
+	and $c0
+	jp z, CheckFightingMapTrainers
+	ret
+
+MtMoon3Script3: ; 49d9a (12:5d9a)
+	ld a, [W_ISINBATTLE] ; $d057
+	cp $ff
+	jp z, MtMoon3Script_49d58
+	call UpdateSprites
+	call Delay3
+	ld hl, $d7f6
+	set 1, [hl]
+	xor a
+	ld [wJoypadForbiddenButtonsMask], a
+	ld a, $0
+	ld [W_MTMOON3CURSCRIPT], a
+	ld [W_CURMAPSCRIPT], a
+	ret
+
+MtMoon3Script4: ; 49dba (12:5dba)
+	ld a, $1
+	ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
+	call SetSpriteMovementBytesToFF
+	ld hl, CoordsData_49dea
+	call ArePlayerCoordsInArray
+	jr c, .asm_49dd7
+	ld hl, CoordsData_49df1
+	call ArePlayerCoordsInArray
+	jp nc, CheckFightingMapTrainers
+	ld de, MovementData_49df9
+	jr .asm_49dda
+.asm_49dd7
+	ld de, MovementData_49df8
+.asm_49dda
+	ld a, $1
+	ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
+	call MoveSprite
+	ld a, $5
+	ld [W_MTMOON3CURSCRIPT], a
+	ld [W_CURMAPSCRIPT], a
+	ret
+
+CoordsData_49dea: ; 49dea (12:5dea)
+	db $07,$0C
+	db $06,$0B
+	db $05,$0C
+	db $FF
+
+CoordsData_49df1: ; 49df1 (12:5df1)
+	db $07,$0D
+	db $06,$0E
+	db $05,$0E
+	db $FF
+
+MovementData_49df8: ; 49df8 (12:5df8)
+	db $C0
+
+MovementData_49df9: ; 49df9 (12:5df9)
+	db $40,$FF
+
+MtMoon3Script5: ; 49dfb (12:5dfb)
+	ld a, [$d730]
+	bit 0, a
+	ret nz
+	ld a, $f0
+	ld [wJoypadForbiddenButtonsMask], a
+	ld a, $1
+	ld [$cc3c], a
+	ld a, $a
+	ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
+	call DisplayTextID
+	ld a, [$d7f6]
+	bit 6, a
+	jr z, .asm_49e1d
+	ld a, $6e
+	jr .asm_49e1f
+.asm_49e1d
+	ld a, $6d
+.asm_49e1f
+	ld [$cc4d], a
+	ld a, $11
+	call Predef ; indirect jump to RemoveMissableObject (f1d7 (3:71d7))
+	xor a
+	ld [wJoypadForbiddenButtonsMask], a
+	ld a, $0
+	ld [W_MTMOON3CURSCRIPT], a
+	ld [W_CURMAPSCRIPT], a
+	ret
+
+MtMoon3TextPointers: ; 49e34 (12:5e34)
+	dw MtMoon3Text1
+	dw MtMoon3Text2
+	dw MtMoon3Text3
+	dw MtMoon3Text4
+	dw MtMoon3Text5
+	dw MtMoon3Text6
+	dw MtMoon3Text7
+	dw Predef5CText
+	dw Predef5CText
+	dw MtMoon3Text_49f99
+
+MtMoon3TrainerHeaders: ; 49e48 (12:5e48)
+MtMoon3TrainerHeader0: ; 49e48 (12:5e48)
+	db $2 ; flag's bit
+	db ($4 << 4) ; trainer's view range
+	dw $d7f6 ; flag's byte
+	dw MtMoon3BattleText2 ; 0x5f9f TextBeforeBattle
+	dw MtMoon3AfterBattleText2 ; 0x5fa9 TextAfterBattle
+	dw MtMoon3EndBattleText2 ; 0x5fa4 TextEndBattle
+	dw MtMoon3EndBattleText2 ; 0x5fa4 TextEndBattle
+
+MtMoon3TrainerHeader2: ; 49e54 (12:5e54)
+	db $3 ; flag's bit
+	db ($4 << 4) ; trainer's view range
+	dw $d7f6 ; flag's byte
+	dw MtMoon3BattleText3 ; 0x5fae TextBeforeBattle
+	dw MtMoon3AfterBattleText3 ; 0x5fb8 TextAfterBattle
+	dw MtMoon3EndBattleText3 ; 0x5fb3 TextEndBattle
+	dw MtMoon3EndBattleText3 ; 0x5fb3 TextEndBattle
+
+MtMoon3TrainerHeader3: ; 49e60 (12:5e60)
+	db $4 ; flag's bit
+	db ($4 << 4) ; trainer's view range
+	dw $d7f6 ; flag's byte
+	dw MtMoon3BattleText4 ; 0x5fbd TextBeforeBattle
+	dw MtMoon3AfterBattleText4 ; 0x5fc7 TextAfterBattle
+	dw MtMoon3EndBattleText4 ; 0x5fc2 TextEndBattle
+	dw MtMoon3EndBattleText4 ; 0x5fc2 TextEndBattle
+
+MtMoon3TrainerHeader4: ; 49e6c (12:5e6c)
+	db $5 ; flag's bit
+	db ($4 << 4) ; trainer's view range
+	dw $d7f6 ; flag's byte
+	dw MtMoon3BattleText5 ; 0x5fcc TextBeforeBattle
+	dw MtMoon3AfterBattleText5 ; 0x5fd6 TextAfterBattle
+	dw MtMoon3EndBattleText5 ; 0x5fd1 TextEndBattle
+	dw MtMoon3EndBattleText5 ; 0x5fd1 TextEndBattle
+
+	db $ff
+
+MtMoon3Text1: ; 49e79 (12:5e79)
+	db $08 ; asm
+	ld a, [$d7f6]
+	bit 1, a
+	jr z, .asm_be1e0 ; 0x49e7f
+	and $c0
+	jr nz, .asm_f8cd4 ; 0x49e83
+	ld hl, MtMoon3Text_49f8f
+	call PrintText
+	jr .asm_f1fba ; 0x49e8b
+.asm_be1e0 ; 0x49e8d
+	ld hl, MtMoon3Text_49f85
+	call PrintText
+	ld hl, $d72d
+	set 6, [hl]
+	set 7, [hl]
+	ld hl, MtMoon3Text_49f8a
+	ld de, MtMoon3Text_49f8a
+	call PreBattleSaveRegisters
+	ldh a, [$8c]
+	ld [$cf13], a
+	call EngageMapTrainer
+	call InitBattleEnemyParameters
+	ld a, $3
+	ld [W_MTMOON3CURSCRIPT], a
+	ld [W_CURMAPSCRIPT], a
+	jr .asm_f1fba ; 0x49eb6
+.asm_f8cd4 ; 0x49eb8
+	ld hl, MtMoon3Text_49f94
+	call PrintText
+.asm_f1fba ; 0x49ebe
+	jp TextScriptEnd
+
+MtMoon3Text2: ; 49ec1 (12:5ec1)
+	db $08 ; asm
+	ld hl, MtMoon3TrainerHeader0
+	call TalkToTrainer
+	jp TextScriptEnd
+
+MtMoon3Text3: ; 49ecb (12:5ecb)
+	db $08 ; asm
+	ld hl, MtMoon3TrainerHeader2
+	call TalkToTrainer
+	jp TextScriptEnd
+
+MtMoon3Text4: ; 49ed5 (12:5ed5)
+	db $08 ; asm
+	ld hl, MtMoon3TrainerHeader3
+	call TalkToTrainer
+	jp TextScriptEnd
+
+MtMoon3Text5: ; 49edf (12:5edf)
+	db $08 ; asm
+	ld hl, MtMoon3TrainerHeader4 ; $5e6c
+	call TalkToTrainer
+	jp TextScriptEnd
+
+MtMoon3Text6: ; 49ee9 (12:5ee9)
+	db $08 ; asm
+	ld a, $1
+	ld [$cc3c], a
+	ld hl, MtMoon3Text_49f24
+	call PrintText
+	call YesNoChoice
+	ld a, [$cc26]
+	and a
+	jr nz, .asm_1fa5e ; 0x49efc
+	ld bc,(DOME_FOSSIL << 8) | 1
+	call GiveItem
+	jp nc, MtMoon3Script_49f76
+	call MtMoon3Script_49f69
+	ld a, $6d
+	ld [$cc4d], a
+	ld a, $11
+	call Predef
+	ld hl, $d7f6
+	set 6, [hl]
+	ld a, $4
+	ld [W_MTMOON3CURSCRIPT], a
+	ld [W_CURMAPSCRIPT], a
+.asm_1fa5e ; 0x49f21
+	jp TextScriptEnd
+
+MtMoon3Text_49f24: ; 49f24 (12:5f24)
+	TX_FAR _MtMoon3Text_49f24
+	db "@"
+
+MtMoon3Text7: ; 49f29 (12:5f29)
+	db $08 ; asm
+	ld a, $1
+	ld [$cc3c], a
+	ld hl, MtMoon3Text_49f64
+	call PrintText
+	call YesNoChoice
+	ld a, [$cc26]
+	and a
+	jr nz, .asm_8e988 ; 0x49f3c
+	ld bc, (HELIX_FOSSIL << 8) | 1
+	call GiveItem
+	jp nc, MtMoon3Script_49f76
+	call MtMoon3Script_49f69
+	ld a, $6e
+	ld [$cc4d], a
+	ld a, $11
+	call Predef
+	ld hl, $d7f6
+	set 7, [hl]
+	ld a, $4
+	ld [W_MTMOON3CURSCRIPT], a
+	ld [W_CURMAPSCRIPT], a
+.asm_8e988 ; 0x49f61
+	jp TextScriptEnd
+
+MtMoon3Text_49f64: ; 49f64 (12:5f64)
+	TX_FAR _MtMoon3Text_49f64
+	db "@"
+
+MtMoon3Script_49f69: ; 49f69 (12:5f69)
+	ld hl, MtMoon3Text_49f6f
+	jp PrintText
+
+MtMoon3Text_49f6f: ; 49f6f (12:5f6f)
+	TX_FAR _MtMoon3Text_49f6f ; 0x80995
+	db $11, $d, "@"
+
+MtMoon3Script_49f76: ; 49f76 (12:5f76)
+	ld hl, MtMoon3Text_49f7f
+	call PrintText
+	jp TextScriptEnd
+
+MtMoon3Text_49f7f: ; 49f7f (12:5f7f)
+	TX_FAR _MtMoon3Text_49f7f ; 0x809a8
+	db $d, "@"
+
+MtMoon3Text_49f85: ; 49f85 (12:5f85)
+	TX_FAR _MtMoon3Text_49f85
+	db "@"
+
+MtMoon3Text_49f8a: ; 49f8a (12:5f8a)
+	TX_FAR _MtMoon3Text_49f8a
+	db "@"
+
+MtMoon3Text_49f8f: ; 49f8f (12:5f8f)
+	TX_FAR _MtMoon3Text_49f8f
+	db "@"
+
+MtMoon3Text_49f94: ; 49f94 (12:5f94)
+	TX_FAR _MtMoon3Text_49f94
+	db "@"
+
+MtMoon3Text_49f99: ; 49f99 (12:5f99)
+	TX_FAR _MtMoon3Text_49f99
+	db $11, "@"
+
+MtMoon3BattleText2: ; 49f9f (12:5f9f)
+	TX_FAR _MtMoon3BattleText2
+	db "@"
+
+MtMoon3EndBattleText2: ; 49fa4 (12:5fa4)
+	TX_FAR _MtMoon3EndBattleText2
+	db "@"
+
+MtMoon3AfterBattleText2: ; 49fa9 (12:5fa9)
+	TX_FAR _MtMoon3AfterBattleText2
+	db "@"
+
+MtMoon3BattleText3: ; 49fae (12:5fae)
+	TX_FAR _MtMoon3BattleText3
+	db "@"
+
+MtMoon3EndBattleText3: ; 49fb3 (12:5fb3)
+	TX_FAR _MtMoon3EndBattleText3
+	db "@"
+
+MtMoon3AfterBattleText3: ; 49fb8 (12:5fb8)
+	TX_FAR _MtMoon3AfterBattleText3
+	db "@"
+
+MtMoon3BattleText4: ; 49fbd (12:5fbd)
+	TX_FAR _MtMoon3BattleText4
+	db "@"
+
+MtMoon3EndBattleText4: ; 49fc2 (12:5fc2)
+	TX_FAR _MtMoon3EndBattleText4
+	db "@"
+
+MtMoon3AfterBattleText4: ; 49fc7 (12:5fc7)
+	TX_FAR _MtMoon3AfterBattleText4
+	db "@"
+
+MtMoon3BattleText5: ; 49fcc (12:5fcc)
+	TX_FAR _MtMoon3BattleText5
+	db "@"
+
+MtMoon3EndBattleText5: ; 49fd1 (12:5fd1)
+	TX_FAR _MtMoon3EndBattleText5
+	db "@"
+
+MtMoon3AfterBattleText5: ; 49fd6 (12:5fd6)
+	TX_FAR _MtMoon3AfterBattleText5
+	db "@"