summaryrefslogtreecommitdiff
path: root/engine/intro.asm
diff options
context:
space:
mode:
Diffstat (limited to 'engine/intro.asm')
-rwxr-xr-xengine/intro.asm164
1 files changed, 0 insertions, 164 deletions
diff --git a/engine/intro.asm b/engine/intro.asm
deleted file mode 100755
index 00e892da..00000000
--- a/engine/intro.asm
+++ /dev/null
@@ -1,164 +0,0 @@
-const_value = -1
- const MOVE_NIDORINO_RIGHT
- const MOVE_GENGAR_RIGHT
- const MOVE_GENGAR_LEFT
-
-ANIMATION_END EQU 80
-
-const_value = 3
- const GENGAR_INTRO_TILES1
- const GENGAR_INTRO_TILES2
- const GENGAR_INTRO_TILES3
-
-PlayIntro:
- xor a
- ld [hJoyHeld], a
- inc a
- ld [H_AUTOBGTRANSFERENABLED], a
- call PlayShootingStar
- callab PlayIntroScene
- xor a
- ld [hSCX], a
- ld [H_AUTOBGTRANSFERENABLED], a
- call ClearSprites
- call DelayFrame
- ret
-
-InitIntroNidorinoOAM:
- ld hl, wOAMBuffer
- ld d, 0
-.loop
- push bc
- ld a, [wBaseCoordY]
- ld e, a
-.innerLoop
- ld a, e
- add 8
- ld e, a
- ld [hli], a ; Y
- ld a, [wBaseCoordX]
- ld [hli], a ; X
- ld a, d
- ld [hli], a ; tile
- ld a, OAM_BEHIND_BG
- ld [hli], a ; attributes
- inc d
- dec c
- jr nz, .innerLoop
- ld a, [wBaseCoordX]
- add 8
- ld [wBaseCoordX], a
- pop bc
- dec b
- jr nz, .loop
- ret
-
-IntroClearScreen:
- ld hl, vBGMap1
- ld bc, BG_MAP_WIDTH * SCREEN_HEIGHT
- jr IntroClearCommon
-
-IntroClearMiddleOfScreen:
-; clear the area of the tile map between the black bars on the top and bottom
- coord hl, 0, 4
- ld bc, SCREEN_WIDTH * 10
-
-IntroClearCommon:
- ld [hl], 0
- inc hl
- dec bc
- ld a, b
- or c
- jr nz, IntroClearCommon
- ret
-
-IntroPlaceBlackTiles:
- ld a, 1
-.loop
- ld [hli], a
- dec c
- jr nz, .loop
- ret
-
-CopyTileIDsFromList_ZeroBaseTileID:
- ld c, 0
- predef_jump CopyTileIDsFromList
-
-PlayShootingStar:
- ld b, SET_PAL_GAME_FREAK_INTRO
- call RunPaletteCommand
- callba LoadCopyrightAndTextBoxTiles
- ldPal a, BLACK, DARK_GRAY, LIGHT_GRAY, WHITE
- ld [rBGP], a
- call UpdateGBCPal_BGP
- ld c, 180
- call DelayFrames
- call ClearScreen
- call DisableLCD
- xor a
- ld [wCurOpponent], a
- call IntroDrawBlackBars
-; write the black and white tiles
- ld hl, vChars2
- ld bc, $10
- xor a
- call FillMemory
- ld hl, vChars2 + $10
- ld bc, $10
- ld a, $ff
- call FillMemory
-; copy gamefreak logo and others
- ld hl, GameFreakIntro
- ld de, vChars2 + $600
- ld bc, GameFreakIntroEnd - GameFreakIntro
- ld a, BANK(GameFreakIntro)
- call FarCopyData
- ld hl, GameFreakIntro
- ld de, vChars1
- ld bc, GameFreakIntroEnd - GameFreakIntro
- ld a, BANK(GameFreakIntro)
- call FarCopyData
-
- call EnableLCD
- ld hl, rLCDC
- res 5, [hl]
- set 3, [hl]
- ld c, 64
- call DelayFrames
- callba AnimateShootingStar
- push af
- pop af
- jr c, .next ; skip the delay if the user interrupted the animation
- ld c, 40
- call DelayFrames
-.next
- call IntroClearMiddleOfScreen
- call ClearSprites
- jp Delay3
-
-IntroDrawBlackBars:
-; clear the screen and draw black bars on the top and bottom
- call IntroClearScreen
- coord hl, 0, 0
- ld c, SCREEN_WIDTH * 4
- call IntroPlaceBlackTiles
- coord hl, 0, 14
- ld c, SCREEN_WIDTH * 4
- call IntroPlaceBlackTiles
- ld hl, vBGMap1
- ld c, BG_MAP_WIDTH * 4
- call IntroPlaceBlackTiles
- ld hl, vBGMap1 + BG_MAP_WIDTH * 14
- ld c, BG_MAP_WIDTH * 4
- jp IntroPlaceBlackTiles
-
-EmptyFunc4:
- ret
-
-GameFreakIntro:
- INCBIN "gfx/gamefreak_intro.2bpp"
- INCBIN "gfx/gamefreak_logo.2bpp"
- rept 16
- db $00 ; blank tile
- endr
-GameFreakIntroEnd: