pokecrystal/event/magnet_train.asm

Special_MagnetTrain: ; 8cc04
	ld a, [ScriptVar]
	and a
	jr nz, .ToGoldenrod
	ld a, 1 ; forwards
	lb bc,  $40,  $60
	lb de, (11 * 8) - (11 * 8 + 4), -$60
	jr .continue

.ToGoldenrod:
	ld a, -1 ; backwards
	lb bc, -$40, -$60
	lb de, (11 * 8) + (11 * 8 + 4), $60

.continue
	ld h, a
	ld a, [rSVBK]
	push af
	ld a, $5
	ld [rSVBK], a

	ld a, h
	ld [wMagnetTrainDirection], a
	ld a, c
	ld [wMagnetTrainInitPosition], a
	ld a, b
	ld [wMagnetTrainHoldPosition], a
	ld a, e
	ld [wMagnetTrainFinalPosition], a
	ld a, d
	ld [wMagnetTrainPlayerSpriteInitX], a

	ld a, [hSCX]
	push af
	ld a, [hSCY]
	push af
	call MagntTrain_LoadGFX_PlayMusic
	ld hl, hVBlank
	ld a, [hl]
	push af
	ld [hl], $1
.loop
	ld a, [wJumptableIndex]
	and a
	jr z, .initialize
	bit 7, a
	jr nz, .done
	callfar PlaySpriteAnimations
	call MagnetTrain_Jumptable
	call MagnetTrain_UpdateLYOverrides
	call PushLYOverrides
	call DelayFrame
	jr .loop

.initialize
	call MagnetTrain_Jumptable_FirstRunThrough
	jr .loop

.done
	pop af
	ld [hVBlank], a
	call ClearBGPalettes
	xor a
	ld [hLCDCPointer], a
	ld [hLYOverrideStart], a
	ld [hLYOverrideEnd], a
	ld [hSCX], a
	ld [Requested2bppSource], a
	ld [Requested2bppSource + 1], a
	ld [Requested2bppDest], a
	ld [Requested2bppDest + 1], a
	ld [Requested2bpp], a
	call ClearTileMap

	pop af
	ld [hSCY], a
	pop af
	ld [hSCX], a
	xor a
	ld [hBGMapMode], a
	pop af
	ld [rSVBK], a
	ret
; 8cc99

MagnetTrain_UpdateLYOverrides: ; 8cc99
	ld hl, LYOverridesBackup
	ld c, $2f
	ld a, [wcf64]
	add a
	ld [hSCX], a
	call .loadloop
	ld c, $30
	ld a, [wcf65]
	call .loadloop
	ld c, $31
	ld a, [wcf64]
	add a
	call .loadloop
	ld a, [wMagnetTrainDirection]
	ld d, a
	ld hl, wcf64
	ld a, [hl]
	add d
	add d
	ld [hl], a
	ret

.loadloop
	ld [hli], a
	dec c
	jr nz, .loadloop
	ret
; 8ccc9

MagntTrain_LoadGFX_PlayMusic: ; 8ccc9
	call ClearBGPalettes
	call ClearSprites
	call DisableLCD
	callfar ClearSpriteAnims
	call SetMagnetTrainPals
	call DrawMagnetTrain
	ld a, $90
	ld [hWY], a
	call EnableLCD
	xor a
	ld [hBGMapMode], a
	ld [hSCX], a
	ld [hSCY], a
	ld a, [rSVBK]
	push af
	ld a, $1
	ld [rSVBK], a
	farcall GetPlayerIcon
	pop af
	ld [rSVBK], a
	ld hl, VTiles0
	ld c, 4
	call Request2bpp
	ld hl, 12 tiles
	add hl, de
	ld d, h
	ld e, l
	ld hl, VTiles0 tile $04
	ld c, 4
	call Request2bpp
	call MagnetTrain_InitLYOverrides
	ld hl, wJumptableIndex
	xor a
	ld [hli], a
	ld a, [wMagnetTrainInitPosition]
	ld [hli], a
	ld [hli], a
	ld [hli], a
	ld de, MUSIC_MAGNET_TRAIN
	call PlayMusic2
	ret
; 8cd27

DrawMagnetTrain: ; 8cd27
	hlbgcoord 0, 0
	xor a
.loop
	call GetMagnetTrainBGTiles
	ld b, 32 / 2
	call .FillAlt
	inc a
	cp $12
	jr c, .loop
	hlbgcoord 0, 6
	ld de, MagnetTrainTilemap1
	ld c, 20
	call .FillLine
	hlbgcoord 0, 7
	ld de, MagnetTrainTilemap2
	ld c, 20
	call .FillLine
	hlbgcoord 0, 8
	ld de, MagnetTrainTilemap3
	ld c, 20
	call .FillLine
	hlbgcoord 0, 9
	ld de, MagnetTrainTilemap4
	ld c, 20
	call .FillLine
	ret
; 8cd65

.FillLine: ; 8cd65
	ld a, [de]
	inc de
	ld [hli], a
	dec c
	jr nz, .FillLine
	ret
; 8cd6c

.FillAlt: ; 8cd6c
	ld [hl], e
	inc hl
	ld [hl], d
	inc hl
	dec b
	jr nz, .FillAlt
	ret
; 8cd74

GetMagnetTrainBGTiles: ; 8cd74
	push hl
	ld e, a
	ld d, 0
	ld hl, MagnetTrainBGTiles
	add hl, de
	add hl, de
	ld e, [hl]
	inc hl
	ld d, [hl]
	pop hl
	ret
; 8cd82

MagnetTrainBGTiles: ; 8cd82
; Alternating tiles for each line
; of the Magnet Train tilemap.
	db $4c, $4d ; bush
	db $5c, $5d ; bush
	db $4c, $4d ; bush
	db $5c, $5d ; bush
	db $08, $08 ; fence
	db $18, $18 ; fence
	db $1f, $1f ; track
	db $31, $31 ; track
	db $11, $11 ; track
	db $11, $11 ; track
	db $0d, $0d ; track
	db $31, $31 ; track
	db $04, $04 ; fence
	db $18, $18 ; fence
	db $4c, $4d ; bush
	db $5c, $5d ; bush
	db $4c, $4d ; bush
	db $5c, $5d ; bush
; 8cda6

MagnetTrain_InitLYOverrides: ; 8cda6
	ld hl, LYOverrides
	ld bc, LYOverridesEnd - LYOverrides
	ld a, [wMagnetTrainInitPosition]
	call ByteFill
	ld hl, LYOverridesBackup
	ld bc, LYOverridesBackupEnd - LYOverridesBackup
	ld a, [wMagnetTrainInitPosition]
	call ByteFill
	ld a, rSCX - $ff00
	ld [hLCDCPointer], a
	ret
; 8cdc3

SetMagnetTrainPals: ; 8cdc3
	ld a, $1
	ld [rVBK], a

	; bushes
	hlbgcoord 0, 0
	ld bc, 4 bgrows
	ld a, $2
	call ByteFill

	; train
	hlbgcoord 0, 4
	ld bc, 10 bgrows
	xor a
	call ByteFill

	; more bushes
	hlbgcoord 0, 14
	ld bc, 4 bgrows
	ld a, $2
	call ByteFill

	; train window
	hlbgcoord 7, 8
	ld bc, 6
	ld a, $4
	call ByteFill

	ld a, $0
	ld [rVBK], a
	ret
; 8cdf7

MagnetTrain_Jumptable: ; 8cdf7
	ld a, [wJumptableIndex]
	ld e, a
	ld d, 0
	ld hl, .Jumptable
	add hl, de
	add hl, de
	ld a, [hli]
	ld h, [hl]
	ld l, a
	jp hl
; 8ce06

.Jumptable: ; 8ce06

	dw .InitPlayerSpriteAnim
	dw .WaitScene
	dw .MoveTrain1
	dw .WaitScene
	dw .MoveTrain2
	dw .WaitScene
	dw .TrainArrived
; 8ce14

.Next: ; 8ce14
	ld hl, wJumptableIndex
	inc [hl]
	ret
; 8ce19

.InitPlayerSpriteAnim: ; 8ce19
	ld d, 10 * 8 + 5
	ld a, [wMagnetTrainPlayerSpriteInitX]
	ld e, a
	ld b, SPRITE_ANIM_INDEX_MAGNET_TRAIN_RED
	ld a, [rSVBK]
	push af
	ld a, $1
	ld [rSVBK], a
	ld a, [PlayerGender]
	bit 0, a
	jr z, .got_gender
	ld b, SPRITE_ANIM_INDEX_MAGNET_TRAIN_BLUE

.got_gender
	pop af
	ld [rSVBK], a
	ld a, b
	call _InitSpriteAnimStruct
	ld hl, SPRITEANIMSTRUCT_TILE_ID
	add hl, bc
	ld [hl], $0
	call .Next
	ld a, $80
	ld [wcf66], a
	ret
; 8ce47

.MoveTrain1: ; 8ce47
	ld hl, wMagnetTrainHoldPosition
	ld a, [wcf65]
	cp [hl]
	jr z, .PrepareToHoldTrain
	ld e, a
	ld a, [wMagnetTrainDirection]
	xor $ff
	inc a
	add e
	ld [wcf65], a
	ld hl, wGlobalAnimXOffset
	ld a, [wMagnetTrainDirection]
	add [hl]
	ld [hl], a
	ret

.PrepareToHoldTrain:
	call .Next
	ld a, $80
	ld [wcf66], a
	ret
; 8ce6d

.WaitScene: ; 8ce6d
	ld hl, wcf66
	ld a, [hl]
	and a
	jr z, .DoneWaiting
	dec [hl]
	ret

.DoneWaiting:
	call .Next
	ret
; 8ce7a

.MoveTrain2: ; 8ce7a
	ld hl, wMagnetTrainFinalPosition
	ld a, [wcf65]
	cp [hl]
	jr z, .PrepareToFinishAnim
	ld e, a
	ld a, [wMagnetTrainDirection]
	xor $ff
	inc a
	ld d, a
	ld a, e
	add d
	add d
	ld [wcf65], a
	ld hl, wGlobalAnimXOffset
	ld a, [wMagnetTrainDirection]
	ld d, a
	ld a, [hl]
	add d
	add d
	ld [hl], a
	ret

	ret

.PrepareToFinishAnim:
	call .Next
	ret
; 8cea2

.TrainArrived: ; 8cea2
	ld a, $80
	ld [wJumptableIndex], a
	ld de, SFX_TRAIN_ARRIVED
	call PlaySFX
	ret
; 8ceae

MagnetTrain_Jumptable_FirstRunThrough: ; 8ceae
	farcall PlaySpriteAnimations
	call MagnetTrain_Jumptable
	call MagnetTrain_UpdateLYOverrides
	call PushLYOverrides
	call DelayFrame
	ld a, [rSVBK]
	push af
	ld a, $1
	ld [rSVBK], a
	ld a, [TimeOfDayPal]
	push af
	ld a, [wEnvironment]
	push af
	ld a, [TimeOfDay]
	and $3
	ld [TimeOfDayPal], a
	ld a, $1
	ld [wEnvironment], a
	ld b, SCGB_MAPPALS
	call GetSGBLayout
	call UpdateTimePals
	ld a, [rBGP]
	ld [wBGP], a
	ld a, [rOBP0]
	ld [wOBP0], a
	ld a, [rOBP1]
	ld [wOBP1], a
	pop af
	ld [wEnvironment], a
	pop af
	ld [TimeOfDayPal], a
	pop af
	ld [rSVBK], a
	ret
; 8ceff

MagnetTrainTilemap1:
	db $1f, $05, $06, $0a, $0a
	db $0a, $09, $0a, $0a, $0a
	db $0a, $0a, $0a, $09, $0a
	db $0a, $0a, $0b, $0c, $1f
MagnetTrainTilemap2:
	db $14, $15, $16, $1a, $1a
	db $1a, $19, $1a, $1a, $1a
	db $1a, $1a, $1a, $19, $1a
	db $1a, $1a, $1b, $1c, $1d
MagnetTrainTilemap3:
	db $24, $25, $26, $27, $07
	db $2f, $29, $28, $28, $28
	db $28, $28, $28, $29, $07
	db $2f, $2a, $2b, $2c, $2d
MagnetTrainTilemap4:
	db $20, $1f, $2e, $1f, $17
	db $00, $2e, $1f, $1f, $1f
	db $1f, $1f, $1f, $2e, $17
	db $00, $1f, $2e, $1f, $0f
; 8cf4f
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`Special_MagnetTrain: ; 8cc04`
			`ld a, [ScriptVar]`
			`and a`
			`jr nz, .ToGoldenrod`
			`ld a, 1 ; forwards`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`lb bc, $40, $60`
			`lb de, (11 * 8) - (11 * 8 + 4), -$60`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`jr .continue`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.ToGoldenrod:`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, -1 ; backwards`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`lb bc, -$40, -$60`
			`lb de, (11 * 8) + (11 * 8 + 4), $60`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00
			`.continue`
			`ld h, a`
			`ld a, [rSVBK]`
			`push af`
			`ld a, $5`
			`ld [rSVBK], a`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, h`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld [wMagnetTrainDirection], a`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, c`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld [wMagnetTrainInitPosition], a`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, b`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld [wMagnetTrainHoldPosition], a`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, e`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld [wMagnetTrainFinalPosition], a`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, d`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld [wMagnetTrainPlayerSpriteInitX], a`

Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, [hSCX]`
			`push af`
			`ld a, [hSCY]`
			`push af`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call MagntTrain_LoadGFX_PlayMusic`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld hl, hVBlank`
			`ld a, [hl]`
			`push af`
			`ld [hl], $1`
			`.loop`
			`ld a, [wJumptableIndex]`
			`and a`
			`jr z, .initialize`
			`bit 7, a`
			`jr nz, .done`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`callfar PlaySpriteAnimations`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call MagnetTrain_Jumptable`
			`call MagnetTrain_UpdateLYOverrides`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 16:31:49 +00:00			`call PushLYOverrides`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`call DelayFrame`
			`jr .loop`

			`.initialize`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call MagnetTrain_Jumptable_FirstRunThrough`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`jr .loop`

			`.done`
			`pop af`
			`ld [hVBlank], a`
			`call ClearBGPalettes`
			`xor a`
hLCDCPointer and InitList 2016-06-14 02:53:33 +00:00			`ld [hLCDCPointer], a`
Mobile and more battle anims 2016-05-05 19:07:37 +00:00			`ld [hLYOverrideStart], a`
			`ld [hLYOverrideEnd], a`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld [hSCX], a`
			`ld [Requested2bppSource], a`
			`ld [Requested2bppSource + 1], a`
			`ld [Requested2bppDest], a`
			`ld [Requested2bppDest + 1], a`
			`ld [Requested2bpp], a`
			`call ClearTileMap`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`pop af`
			`ld [hSCY], a`
			`pop af`
			`ld [hSCX], a`
			`xor a`
			`ld [hBGMapMode], a`
			`pop af`
			`ld [rSVBK], a`
			`ret`
			`; 8cc99`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`MagnetTrain_UpdateLYOverrides: ; 8cc99`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld hl, LYOverridesBackup`
			`ld c, $2f`
			`ld a, [wcf64]`
			`add a`
			`ld [hSCX], a`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call .loadloop`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld c, $30`
			`ld a, [wcf65]`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call .loadloop`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld c, $31`
			`ld a, [wcf64]`
			`add a`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call .loadloop`
			`ld a, [wMagnetTrainDirection]`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld d, a`
			`ld hl, wcf64`
			`ld a, [hl]`
			`add d`
More splitting of main.asm; remove unneeded rept 2 2016-05-04 15:46:23 +00:00			`add d`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld [hl], a`
			`ret`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`.loadloop`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld [hli], a`
			`dec c`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`jr nz, .loadloop`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ret`
			`; 8ccc9`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`MagntTrain_LoadGFX_PlayMusic: ; 8ccc9`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`call ClearBGPalettes`
			`call ClearSprites`
			`call DisableLCD`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`callfar ClearSpriteAnims`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`call SetMagnetTrainPals`
			`call DrawMagnetTrain`
			`ld a, $90`
			`ld [hWY], a`
			`call EnableLCD`
			`xor a`
			`ld [hBGMapMode], a`
			`ld [hSCX], a`
			`ld [hSCY], a`
			`ld a, [rSVBK]`
			`push af`
			`ld a, $1`
			`ld [rSVBK], a`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall GetPlayerIcon`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`pop af`
			`ld [rSVBK], a`
			`ld hl, VTiles0`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld c, 4`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`call Request2bpp`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld hl, 12 tiles`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`add hl, de`
			`ld d, h`
			`ld e, l`
			`ld hl, VTiles0 tile $04`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld c, 4`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`call Request2bpp`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call MagnetTrain_InitLYOverrides`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld hl, wJumptableIndex`
			`xor a`
			`ld [hli], a`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld a, [wMagnetTrainInitPosition]`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld [hli], a`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 16:31:49 +00:00			`ld [hli], a`
			`ld [hli], a`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld de, MUSIC_MAGNET_TRAIN`
			`call PlayMusic2`
			`ret`
			`; 8cd27`

			`DrawMagnetTrain: ; 8cd27`
bgcoord 2015-11-20 16:47:52 +00:00			`hlbgcoord 0, 0`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`xor a`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`.loop`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`call GetMagnetTrainBGTiles`
			`ld b, 32 / 2`
			`call .FillAlt`
			`inc a`
			`cp $12`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`jr c, .loop`
bgcoord 2015-11-20 16:47:52 +00:00			`hlbgcoord 0, 6`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld de, MagnetTrainTilemap1`
			`ld c, 20`
			`call .FillLine`
bgcoord 2015-11-20 16:47:52 +00:00			`hlbgcoord 0, 7`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld de, MagnetTrainTilemap2`
			`ld c, 20`
			`call .FillLine`
bgcoord 2015-11-20 16:47:52 +00:00			`hlbgcoord 0, 8`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld de, MagnetTrainTilemap3`
			`ld c, 20`
			`call .FillLine`
bgcoord 2015-11-20 16:47:52 +00:00			`hlbgcoord 0, 9`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld de, MagnetTrainTilemap4`
			`ld c, 20`
			`call .FillLine`
			`ret`
			`; 8cd65`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.FillLine: ; 8cd65`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, [de]`
			`inc de`
			`ld [hli], a`
			`dec c`
			`jr nz, .FillLine`
			`ret`
			`; 8cd6c`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.FillAlt: ; 8cd6c`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld [hl], e`
			`inc hl`
			`ld [hl], d`
			`inc hl`
			`dec b`
			`jr nz, .FillAlt`
			`ret`
			`; 8cd74`

			`GetMagnetTrainBGTiles: ; 8cd74`
			`push hl`
			`ld e, a`
			`ld d, 0`
			`ld hl, MagnetTrainBGTiles`
			`add hl, de`
More splitting of main.asm; remove unneeded rept 2 2016-05-04 15:46:23 +00:00			`add hl, de`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld e, [hl]`
			`inc hl`
			`ld d, [hl]`
			`pop hl`
			`ret`
			`; 8cd82`

			`MagnetTrainBGTiles: ; 8cd82`
			`; Alternating tiles for each line`
			`; of the Magnet Train tilemap.`
			`db $4c, $4d ; bush`
			`db $5c, $5d ; bush`
			`db $4c, $4d ; bush`
			`db $5c, $5d ; bush`
			`db $08, $08 ; fence`
			`db $18, $18 ; fence`
			`db $1f, $1f ; track`
			`db $31, $31 ; track`
			`db $11, $11 ; track`
			`db $11, $11 ; track`
			`db $0d, $0d ; track`
			`db $31, $31 ; track`
			`db $04, $04 ; fence`
			`db $18, $18 ; fence`
			`db $4c, $4d ; bush`
			`db $5c, $5d ; bush`
			`db $4c, $4d ; bush`
			`db $5c, $5d ; bush`
			`; 8cda6`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`MagnetTrain_InitLYOverrides: ; 8cda6`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld hl, LYOverrides`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld bc, LYOverridesEnd - LYOverrides`
			`ld a, [wMagnetTrainInitPosition]`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`call ByteFill`
			`ld hl, LYOverridesBackup`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld bc, LYOverridesBackupEnd - LYOverridesBackup`
			`ld a, [wMagnetTrainInitPosition]`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`call ByteFill`
hLCDCPointer and InitList 2016-06-14 02:53:33 +00:00			`ld a, rSCX - $ff00`
			`ld [hLCDCPointer], a`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ret`
			`; 8cdc3`

			`SetMagnetTrainPals: ; 8cdc3`
			`ld a, $1`
			`ld [rVBK], a`

			`; bushes`
bgcoord 2015-11-20 16:47:52 +00:00			`hlbgcoord 0, 0`
			`ld bc, 4 bgrows`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, $2`
			`call ByteFill`

			`; train`
bgcoord 2015-11-20 16:47:52 +00:00			`hlbgcoord 0, 4`
			`ld bc, 10 bgrows`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`xor a`
			`call ByteFill`

			`; more bushes`
bgcoord 2015-11-20 16:47:52 +00:00			`hlbgcoord 0, 14`
			`ld bc, 4 bgrows`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, $2`
			`call ByteFill`

			`; train window`
bgcoord 2015-11-20 16:47:52 +00:00			`hlbgcoord 7, 8`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld bc, 6`
			`ld a, $4`
			`call ByteFill`

			`ld a, $0`
			`ld [rVBK], a`
			`ret`
			`; 8cdf7`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`MagnetTrain_Jumptable: ; 8cdf7`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, [wJumptableIndex]`
			`ld e, a`
			`ld d, 0`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld hl, .Jumptable`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`add hl, de`
More splitting of main.asm; remove unneeded rept 2 2016-05-04 15:46:23 +00:00			`add hl, de`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`
Replace ‘jp [hl]’ with ‘jp hl’ The former is arguably misleading (as you don’t access the memory location in hl to retrieve the jump location), and is consequently deprecated in newer versions of rgbds. This fix silences these deprecation warnings. 2017-06-09 21:01:10 +00:00			`jp hl`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`; 8ce06`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`.Jumptable: ; 8ce06`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00
jumptable macro repurposed 2015-12-27 02:59:03 +00:00			`dw .InitPlayerSpriteAnim`
			`dw .WaitScene`
			`dw .MoveTrain1`
			`dw .WaitScene`
			`dw .MoveTrain2`
			`dw .WaitScene`
			`dw .TrainArrived`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`; 8ce14`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`.Next: ; 8ce14`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld hl, wJumptableIndex`
			`inc [hl]`
			`ret`
			`; 8ce19`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`.InitPlayerSpriteAnim: ; 8ce19`
			`ld d, 10 * 8 + 5`
			`ld a, [wMagnetTrainPlayerSpriteInitX]`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld e, a`
Document constants with comments, actual names, and more thorough usage 2017-12-09 05:50:59 +00:00			`ld b, SPRITE_ANIM_INDEX_MAGNET_TRAIN_RED`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, [rSVBK]`
			`push af`
			`ld a, $1`
			`ld [rSVBK], a`
			`ld a, [PlayerGender]`
			`bit 0, a`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`jr z, .got_gender`
Document constants with comments, actual names, and more thorough usage 2017-12-09 05:50:59 +00:00			`ld b, SPRITE_ANIM_INDEX_MAGNET_TRAIN_BLUE`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`.got_gender`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`pop af`
			`ld [rSVBK], a`
			`ld a, b`
			`call _InitSpriteAnimStruct`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld hl, SPRITEANIMSTRUCT_TILE_ID`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`add hl, bc`
			`ld [hl], $0`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call .Next`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, $80`
			`ld [wcf66], a`
			`ret`
			`; 8ce47`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`.MoveTrain1: ; 8ce47`
			`ld hl, wMagnetTrainHoldPosition`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, [wcf65]`
			`cp [hl]`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`jr z, .PrepareToHoldTrain`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld e, a`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld a, [wMagnetTrainDirection]`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`xor $ff`
			`inc a`
			`add e`
			`ld [wcf65], a`
Crystal Intro 2015-12-02 22:59:05 +00:00			`ld hl, wGlobalAnimXOffset`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld a, [wMagnetTrainDirection]`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`add [hl]`
			`ld [hl], a`
			`ret`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.PrepareToHoldTrain:`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call .Next`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, $80`
			`ld [wcf66], a`
			`ret`
			`; 8ce6d`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`.WaitScene: ; 8ce6d`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld hl, wcf66`
			`ld a, [hl]`
			`and a`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`jr z, .DoneWaiting`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`dec [hl]`
			`ret`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.DoneWaiting:`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call .Next`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ret`
			`; 8ce7a`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`.MoveTrain2: ; 8ce7a`
			`ld hl, wMagnetTrainFinalPosition`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, [wcf65]`
			`cp [hl]`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`jr z, .PrepareToFinishAnim`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld e, a`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld a, [wMagnetTrainDirection]`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`xor $ff`
			`inc a`
			`ld d, a`
			`ld a, e`
			`add d`
More splitting of main.asm; remove unneeded rept 2 2016-05-04 15:46:23 +00:00			`add d`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld [wcf65], a`
Crystal Intro 2015-12-02 22:59:05 +00:00			`ld hl, wGlobalAnimXOffset`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld a, [wMagnetTrainDirection]`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld d, a`
			`ld a, [hl]`
			`add d`
More splitting of main.asm; remove unneeded rept 2 2016-05-04 15:46:23 +00:00			`add d`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld [hl], a`
			`ret`

			`ret`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.PrepareToFinishAnim:`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call .Next`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ret`
			`; 8cea2`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`.TrainArrived: ; 8cea2`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, $80`
			`ld [wJumptableIndex], a`
			`ld de, SFX_TRAIN_ARRIVED`
			`call PlaySFX`
			`ret`
			`; 8ceae`

Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`MagnetTrain_Jumptable_FirstRunThrough: ; 8ceae`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall PlaySpriteAnimations`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call MagnetTrain_Jumptable`
			`call MagnetTrain_UpdateLYOverrides`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 16:31:49 +00:00			`call PushLYOverrides`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`call DelayFrame`
			`ld a, [rSVBK]`
			`push af`
			`ld a, $1`
			`ld [rSVBK], a`
			`ld a, [TimeOfDayPal]`
			`push af`
Rename "map permissions" to "map environment" (fix #396) 2017-12-24 18:08:38 +00:00			`ld a, [wEnvironment]`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`push af`
			`ld a, [TimeOfDay]`
			`and $3`
			`ld [TimeOfDayPal], a`
			`ld a, $1`
Rename "map permissions" to "map environment" (fix #396) 2017-12-24 18:08:38 +00:00			`ld [wEnvironment], a`
Color fns, some more address decoding in link/mobile 2015-12-22 23:03:00 +00:00			`ld b, SCGB_MAPPALS`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`call GetSGBLayout`
			`call UpdateTimePals`
			`ld a, [rBGP]`
Battle Anim Object struct constants 2015-12-23 19:00:29 +00:00			`ld [wBGP], a`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, [rOBP0]`
Battle Anim Object struct constants 2015-12-23 19:00:29 +00:00			`ld [wOBP0], a`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`ld a, [rOBP1]`
Battle Anim Object struct constants 2015-12-23 19:00:29 +00:00			`ld [wOBP1], a`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`pop af`
Rename "map permissions" to "map environment" (fix #396) 2017-12-24 18:08:38 +00:00			`ld [wEnvironment], a`
Split up some more banks in main.asm 2015-11-17 02:46:36 +00:00			`pop af`
			`ld [TimeOfDayPal], a`
			`pop af`
			`ld [rSVBK], a`
			`ret`
			`; 8ceff`

			`MagnetTrainTilemap1:`
			`db $1f, $05, $06, $0a, $0a`
			`db $0a, $09, $0a, $0a, $0a`
			`db $0a, $0a, $0a, $09, $0a`
			`db $0a, $0a, $0b, $0c, $1f`
			`MagnetTrainTilemap2:`
			`db $14, $15, $16, $1a, $1a`
			`db $1a, $19, $1a, $1a, $1a`
			`db $1a, $1a, $1a, $19, $1a`
			`db $1a, $1a, $1b, $1c, $1d`
			`MagnetTrainTilemap3:`
			`db $24, $25, $26, $27, $07`
			`db $2f, $29, $28, $28, $28`
			`db $28, $28, $28, $29, $07`
			`db $2f, $2a, $2b, $2c, $2d`
			`MagnetTrainTilemap4:`
			`db $20, $1f, $2e, $1f, $17`
			`db $00, $2e, $1f, $1f, $1f`
			`db $1f, $1f, $1f, $2e, $17`
			`db $00, $1f, $2e, $1f, $0f`
			`; 8cf4f`