mirror of
https://github.com/thornAvery/jep-hack.git
synced 2026-02-08 00:55:28 +13:00
First Commit
Upload literally everything from the pokecrystal16 expand-move-ID branch
This commit is contained in:
Zeta_Null
commit
2f8a41f833
4618 changed files with 480386 additions and 0 deletions
430
engine/events/magnet_train.asm
Normal file
430
engine/events/magnet_train.asm
Normal file
|
|
@ -0,0 +1,430 @@
|
|||
MagnetTrain:
|
||||
ld a, [wScriptVar]
|
||||
and a
|
||||
jr nz, .ToGoldenrod
|
||||
ld a, 1 ; forwards
|
||||
lb bc, 8 * TILE_WIDTH, 12 * TILE_WIDTH
|
||||
lb de, (11 * TILE_WIDTH) - (11 * TILE_WIDTH + 4), -12 * TILE_WIDTH
|
||||
jr .continue
|
||||
|
||||
.ToGoldenrod:
|
||||
ld a, -1 ; backwards
|
||||
lb bc, -8 * TILE_WIDTH, -12 * TILE_WIDTH
|
||||
lb de, (11 * TILE_WIDTH) + (11 * TILE_WIDTH + 4), 12 * TILE_WIDTH
|
||||
|
||||
.continue
|
||||
ld h, a
|
||||
ldh a, [rSVBK]
|
||||
push af
|
||||
ld a, BANK(wMagnetTrain)
|
||||
ldh [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
|
||||
|
||||
ldh a, [hSCX]
|
||||
push af
|
||||
ldh a, [hSCY]
|
||||
push af
|
||||
call MagnetTrain_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
|
||||
ldh [hVBlank], a
|
||||
call ClearBGPalettes
|
||||
xor a
|
||||
ldh [hLCDCPointer], a
|
||||
ldh [hLYOverrideStart], a
|
||||
ldh [hLYOverrideEnd], a
|
||||
ldh [hSCX], a
|
||||
ld [wRequested2bppSource], a
|
||||
ld [wRequested2bppSource + 1], a
|
||||
ld [wRequested2bppDest], a
|
||||
ld [wRequested2bppDest + 1], a
|
||||
ld [wRequested2bppSize], a
|
||||
call ClearTilemap
|
||||
|
||||
pop af
|
||||
ldh [hSCY], a
|
||||
pop af
|
||||
ldh [hSCX], a
|
||||
xor a
|
||||
ldh [hBGMapMode], a
|
||||
|
||||
pop af
|
||||
ldh [rSVBK], a
|
||||
ret
|
||||
|
||||
MagnetTrain_UpdateLYOverrides:
|
||||
ld hl, wLYOverridesBackup
|
||||
ld c, 6 * TILE_WIDTH - 1
|
||||
ld a, [wMagnetTrainOffset]
|
||||
add a
|
||||
ldh [hSCX], a
|
||||
call .loadloop
|
||||
ld c, 6 * TILE_WIDTH
|
||||
ld a, [wMagnetTrainPosition]
|
||||
call .loadloop
|
||||
ld c, 6 * TILE_WIDTH + 1
|
||||
ld a, [wMagnetTrainOffset]
|
||||
add a
|
||||
call .loadloop
|
||||
|
||||
ld a, [wMagnetTrainDirection]
|
||||
ld d, a
|
||||
ld hl, wMagnetTrainOffset
|
||||
ld a, [hl]
|
||||
add d
|
||||
add d
|
||||
ld [hl], a
|
||||
ret
|
||||
|
||||
.loadloop
|
||||
ld [hli], a
|
||||
dec c
|
||||
jr nz, .loadloop
|
||||
ret
|
||||
|
||||
MagnetTrain_LoadGFX_PlayMusic:
|
||||
call ClearBGPalettes
|
||||
call ClearSprites
|
||||
call DisableLCD
|
||||
callfar ClearSpriteAnims
|
||||
call SetMagnetTrainPals
|
||||
call DrawMagnetTrain
|
||||
ld a, SCREEN_HEIGHT_PX
|
||||
ldh [hWY], a
|
||||
call EnableLCD
|
||||
xor a
|
||||
ldh [hBGMapMode], a
|
||||
ldh [hSCX], a
|
||||
ldh [hSCY], a
|
||||
|
||||
; Load the player sprite's standing frames
|
||||
ldh a, [rSVBK]
|
||||
push af
|
||||
ld a, BANK(wPlayerGender)
|
||||
ldh [rSVBK], a
|
||||
farcall GetPlayerIcon
|
||||
pop af
|
||||
ldh [rSVBK], a
|
||||
ld hl, vTiles0
|
||||
ld c, 4
|
||||
call Request2bpp
|
||||
|
||||
; Load the player sprite's walking frames
|
||||
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 ; wJumptableIndex
|
||||
ld a, [wMagnetTrainInitPosition]
|
||||
ld [hli], a ; wMagnetTrainOffset
|
||||
ld [hli], a ; wMagnetTrainPosition
|
||||
ld [hli], a ; wMagnetTrainWaitCounter
|
||||
|
||||
ld de, MUSIC_MAGNET_TRAIN
|
||||
call PlayMusic2
|
||||
ret
|
||||
|
||||
DrawMagnetTrain:
|
||||
hlbgcoord 0, 0
|
||||
xor a
|
||||
.loop
|
||||
call GetMagnetTrainBGTiles
|
||||
ld b, BG_MAP_WIDTH / 2
|
||||
call .FillAlt
|
||||
inc a
|
||||
cp SCREEN_HEIGHT
|
||||
jr c, .loop
|
||||
|
||||
hlbgcoord 0, 6
|
||||
ld de, MagnetTrainTilemap
|
||||
ld c, SCREEN_WIDTH
|
||||
call .FillLine
|
||||
hlbgcoord 0, 7
|
||||
ld de, MagnetTrainTilemap + SCREEN_WIDTH
|
||||
ld c, SCREEN_WIDTH
|
||||
call .FillLine
|
||||
hlbgcoord 0, 8
|
||||
ld de, MagnetTrainTilemap + (SCREEN_WIDTH * 2)
|
||||
ld c, SCREEN_WIDTH
|
||||
call .FillLine
|
||||
hlbgcoord 0, 9
|
||||
ld de, MagnetTrainTilemap + (SCREEN_WIDTH * 3)
|
||||
ld c, SCREEN_WIDTH
|
||||
call .FillLine
|
||||
ret
|
||||
|
||||
.FillLine:
|
||||
ld a, [de]
|
||||
inc de
|
||||
ld [hli], a
|
||||
dec c
|
||||
jr nz, .FillLine
|
||||
ret
|
||||
|
||||
.FillAlt:
|
||||
ld [hl], e
|
||||
inc hl
|
||||
ld [hl], d
|
||||
inc hl
|
||||
dec b
|
||||
jr nz, .FillAlt
|
||||
ret
|
||||
|
||||
GetMagnetTrainBGTiles:
|
||||
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
|
||||
|
||||
MagnetTrainBGTiles:
|
||||
; 2x18 tilemap, repeated in vertical strips for the background.
|
||||
INCBIN "gfx/overworld/magnet_train_bg.tilemap"
|
||||
|
||||
MagnetTrain_InitLYOverrides:
|
||||
ld hl, wLYOverrides
|
||||
ld bc, wLYOverridesEnd - wLYOverrides
|
||||
ld a, [wMagnetTrainInitPosition]
|
||||
call ByteFill
|
||||
ld hl, wLYOverridesBackup
|
||||
ld bc, wLYOverridesBackupEnd - wLYOverridesBackup
|
||||
ld a, [wMagnetTrainInitPosition]
|
||||
call ByteFill
|
||||
ld a, LOW(rSCX)
|
||||
ldh [hLCDCPointer], a
|
||||
ret
|
||||
|
||||
SetMagnetTrainPals:
|
||||
ld a, 1
|
||||
ldh [rVBK], a
|
||||
|
||||
; bushes
|
||||
hlbgcoord 0, 0
|
||||
ld bc, 4 * BG_MAP_WIDTH
|
||||
ld a, PAL_BG_GREEN
|
||||
call ByteFill
|
||||
|
||||
; train
|
||||
hlbgcoord 0, 4
|
||||
ld bc, 10 * BG_MAP_WIDTH
|
||||
xor a ; PAL_BG_GRAY
|
||||
call ByteFill
|
||||
|
||||
; more bushes
|
||||
hlbgcoord 0, 14
|
||||
ld bc, 4 * BG_MAP_WIDTH
|
||||
ld a, PAL_BG_GREEN
|
||||
call ByteFill
|
||||
|
||||
; train window
|
||||
hlbgcoord 7, 8
|
||||
ld bc, 6
|
||||
ld a, PAL_BG_YELLOW
|
||||
call ByteFill
|
||||
|
||||
ld a, 0
|
||||
ldh [rVBK], a
|
||||
ret
|
||||
|
||||
MagnetTrain_Jumptable:
|
||||
jumptable .Jumptable, wJumptableIndex
|
||||
|
||||
.Jumptable:
|
||||
dw .InitPlayerSpriteAnim
|
||||
dw .WaitScene
|
||||
dw .MoveTrain1
|
||||
dw .WaitScene
|
||||
dw .MoveTrain2
|
||||
dw .WaitScene
|
||||
dw .TrainArrived
|
||||
|
||||
.Next:
|
||||
ld hl, wJumptableIndex
|
||||
inc [hl]
|
||||
ret
|
||||
|
||||
.InitPlayerSpriteAnim:
|
||||
ld d, (8 + 2) * TILE_WIDTH + 5
|
||||
ld a, [wMagnetTrainPlayerSpriteInitX]
|
||||
ld e, a
|
||||
ld b, SPRITE_ANIM_INDEX_MAGNET_TRAIN_RED
|
||||
ldh a, [rSVBK]
|
||||
push af
|
||||
ld a, BANK(wPlayerGender)
|
||||
ldh [rSVBK], a
|
||||
ld a, [wPlayerGender]
|
||||
bit PLAYERGENDER_FEMALE_F, a
|
||||
jr z, .got_gender
|
||||
ld b, SPRITE_ANIM_INDEX_MAGNET_TRAIN_BLUE
|
||||
.got_gender
|
||||
pop af
|
||||
ldh [rSVBK], a
|
||||
ld a, b
|
||||
call InitSpriteAnimStruct
|
||||
ld hl, SPRITEANIMSTRUCT_TILE_ID
|
||||
add hl, bc
|
||||
ld [hl], 0
|
||||
call .Next
|
||||
ld a, 128
|
||||
ld [wMagnetTrainWaitCounter], a
|
||||
ret
|
||||
|
||||
.MoveTrain1:
|
||||
ld hl, wMagnetTrainHoldPosition
|
||||
ld a, [wMagnetTrainPosition]
|
||||
cp [hl]
|
||||
jr z, .PrepareToHoldTrain
|
||||
ld e, a
|
||||
ld a, [wMagnetTrainDirection]
|
||||
xor $ff
|
||||
inc a
|
||||
add e
|
||||
ld [wMagnetTrainPosition], a
|
||||
ld hl, wGlobalAnimXOffset
|
||||
ld a, [wMagnetTrainDirection]
|
||||
add [hl]
|
||||
ld [hl], a
|
||||
ret
|
||||
|
||||
.PrepareToHoldTrain:
|
||||
call .Next
|
||||
ld a, 128
|
||||
ld [wMagnetTrainWaitCounter], a
|
||||
ret
|
||||
|
||||
.WaitScene:
|
||||
ld hl, wMagnetTrainWaitCounter
|
||||
ld a, [hl]
|
||||
and a
|
||||
jr z, .DoneWaiting
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
.DoneWaiting:
|
||||
call .Next
|
||||
ret
|
||||
|
||||
.MoveTrain2:
|
||||
ld hl, wMagnetTrainFinalPosition
|
||||
ld a, [wMagnetTrainPosition]
|
||||
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 [wMagnetTrainPosition], 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
|
||||
|
||||
.TrainArrived:
|
||||
ld a, $80
|
||||
ld [wJumptableIndex], a
|
||||
ld de, SFX_TRAIN_ARRIVED
|
||||
call PlaySFX
|
||||
ret
|
||||
|
||||
MagnetTrain_Jumptable_FirstRunThrough:
|
||||
farcall PlaySpriteAnimations
|
||||
call MagnetTrain_Jumptable
|
||||
call MagnetTrain_UpdateLYOverrides
|
||||
call PushLYOverrides
|
||||
call DelayFrame
|
||||
|
||||
ldh a, [rSVBK]
|
||||
push af
|
||||
ld a, BANK(wEnvironment)
|
||||
ldh [rSVBK], a
|
||||
ld a, [wTimeOfDayPal]
|
||||
push af
|
||||
ld a, [wEnvironment]
|
||||
push af
|
||||
|
||||
ld a, [wTimeOfDay]
|
||||
maskbits NUM_DAYTIMES
|
||||
ld [wTimeOfDayPal], a
|
||||
ld a, TOWN
|
||||
ld [wEnvironment], a
|
||||
ld b, SCGB_MAPPALS
|
||||
call GetSGBLayout
|
||||
call UpdateTimePals
|
||||
|
||||
ldh a, [rBGP]
|
||||
ld [wBGP], a
|
||||
ldh a, [rOBP0]
|
||||
ld [wOBP0], a
|
||||
ldh a, [rOBP1]
|
||||
ld [wOBP1], a
|
||||
|
||||
pop af
|
||||
ld [wEnvironment], a
|
||||
pop af
|
||||
ld [wTimeOfDayPal], a
|
||||
pop af
|
||||
ldh [rSVBK], a
|
||||
ret
|
||||
|
||||
MagnetTrainTilemap:
|
||||
; 20x4 tilemap
|
||||
INCBIN "gfx/overworld/magnet_train_fg.tilemap"
|
||||
Loading…
Add table
Add a link
Reference in a new issue