mirrors
/
AbePralle-FGB
mirror of https://github.com/AbePralle/FGB.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
AbePralle-FGB/Source/Levels/L1103.asm

783 lines
20 KiB
NASM
Raw Permalink Blame History

; L1103.asm wedding / gyro pops from tree
; Generated 08.03.2000 by mlevel
; Modified 08.03.2000 by Abe Pralle
INCLUDE "Source/Defs.inc"
INCLUDE "Source/Levels.inc"
;from L0505
VAR_HERO EQU 11
;---------------------------------------------------------------------
SECTION "Level1103Gfx1",ROMX
;---------------------------------------------------------------------
gyro_tree_bg:
INCBIN "Data/Cinema/Wedding/gyro_tree.bg"
gyro_costume_sp:
INCBIN "Data/Cinema/Wedding/gyro_costume.sp"
gang_watches_wedding_bg:
INCBIN "Data/Cinema/Wedding/gang_watches_wedding.bg"
;---------------------------------------------------------------------
SECTION "Level1103Gfx2",ROMX
;---------------------------------------------------------------------
preacher_bg:
INCBIN "Data/Cinema/Wedding/preacher.bg"
wedding_panoramic_bg:
INCBIN "Data/Cinema/Wedding/wedding_panoramic.bg"
flour_at_wedding_bg:
INCBIN "Data/Cinema/Wedding/flour_at_wedding.bg"
;---------------------------------------------------------------------
SECTION "Level1103Gfx3",ROMX
;---------------------------------------------------------------------
flower_at_wedding_bg:
INCBIN "Data/Cinema/Wedding/flower_at_wedding.bg"
gang_watches_front_bg::
INCBIN "Data/Cinema/Wedding/gang_watches_front.bg"
gyro_big_bg:
INCBIN "Data/Cinema/Wedding/gyro_big.bg"
;---------------------------------------------------------------------
SECTION "Level1103Dialog",ROMX
;---------------------------------------------------------------------
dialog:
preacher_blah_gtx:
INCBIN "Data/Dialog/Wedding/preacher_blah.gtx"
preacher_reasons_gtx:
INCBIN "Data/Dialog/Wedding/preacher_reasons.gtx"
hero_reasons_gtx:
INCBIN "Data/Dialog/Wedding/hero_reasons.gtx"
captain_thanks_gtx:
INCBIN "Data/Dialog/Wedding/captain_thanks.gtx"
captain_cake_gtx:
INCBIN "Data/Dialog/Wedding/captain_cake.gtx"
lady_byallmeans_gtx:
INCBIN "Data/Dialog/Wedding/lady_byallmeans.gtx"
lady_radio_gtx:
INCBIN "Data/Dialog/Wedding/lady_radio.gtx"
preacher_takebegonia_gtx:
INCBIN "Data/Dialog/Wedding/preacher_takebegonia.gtx"
gyro_bs_gtx:
INCBIN "Data/Dialog/Wedding/gyro_bs.gtx"
preacher_takesack_gtx:
INCBIN "Data/Dialog/Wedding/preacher_takesack.gtx"
gyro_ba_gtx:
INCBIN "Data/Dialog/Wedding/gyro_ba.gtx"
preacher_pronounce_gtx:
INCBIN "Data/Dialog/Wedding/preacher_pronounce.gtx"
gyro_haiku_gtx:
INCBIN "Data/Dialog/Wedding/gyro_haiku.gtx"
preacher_married_gtx:
INCBIN "Data/Dialog/Wedding/preacher_married.gtx"
gyro_notsofast_gtx:
INCBIN "Data/Dialog/Wedding/gyro_notsofast.gtx"
captain_why_gtx:
INCBIN "Data/Dialog/Wedding/captain_why.gtx"
gyro_reveals_gtx:
INCBIN "Data/Dialog/Wedding/gyro_reveals.gtx"
captain_thankyou_gtx:
INCBIN "Data/Dialog/Wedding/captain_thankyou.gtx"
gyro_notyummy_gtx:
INCBIN "Data/Dialog/Wedding/gyro_notyummy.gtx"
gyro_recall_gtx:
INCBIN "Data/Dialog/Wedding/gyro_recall.gtx"
gyro_surrender_gtx:
INCBIN "Data/Dialog/Wedding/gyro_surrender.gtx"
gyro_difficult_gtx:
INCBIN "Data/Dialog/Wedding/gyro_difficult.gtx"
captain_okay_gtx:
INCBIN "Data/Dialog/Wedding/captain_okay.gtx"
lady_dontbesilly_gtx:
INCBIN "Data/Dialog/Wedding/lady_dontbesilly.gtx"
;---------------------------------------------------------------------
SECTION "Level1103Section",ROMX
;---------------------------------------------------------------------
L1103_Contents::
DW L1103_Load
DW L1103_Init
DW L1103_Check
DW L1103_Map
;---------------------------------------------------------------------
; Load
;---------------------------------------------------------------------
L1103_Load:
DW ((L1103_LoadFinished - L1103_Load2)) ;size
L1103_Load2:
ld a,BANK(dialog)
ld [dialogBank],a
ld a,BANK(wedding_panoramic_bg)
ld hl,wedding_panoramic_bg
call LoadCinemaBG
ld a,EXIT_D
ld hl,$1103
call YankRemotePlayer
;set state of 0505 in case I was yanked from elsewhere
ld a,LEVELSTATEBANK
ldio [$ff70],a
ld a,2 ;STATE_AFTERWEDDING
ld [levelState+$55],a
xor a
ld [hero0_health],a
ld [hero1_health],a
ld a,15
call SetupFadeFromStandard
call WaitFade
ld de,((.endCinema-L1103_Load2)+levelCheckRAM)
call SetDialogSkip
ld de,((.preacher_blah-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld a,BANK(wedding_panoramic_bg)
ld a,80
call Delay
.preacher_blah
call ((.quickToBlack-L1103_Load2)+levelCheckRAM)
ld a,BANK(preacher_bg)
ld hl,preacher_bg
call LoadCinemaBG
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld de,((.preacher_reasons-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld c,0
DIALOGBOTTOM preacher_blah_gtx
ld d,3
LONGCALLNOARGS AnimatePreacher
.preacher_reasons
ld c,0
DIALOGBOTTOM preacher_reasons_gtx
ld de,((.hero_reasons-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld d,4
LONGCALLNOARGS AnimatePreacher
.hero_reasons
call ((.quickToBlack-L1103_Load2)+levelCheckRAM)
call ClearDialog
ld de,((.captainThanks-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld a,[levelVars+VAR_HERO]
ld [dialogSpeakerIndex],a
cp HERO_BS_FLAG
jr z,.hero_bs
cp HERO_HAIKU_FLAG
jr z,.hero_haiku
.hero_ba
ld a,BANK(ba_bg)
ld hl,ba_bg
call LoadCinemaBG
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM hero_reasons_gtx
ld d,4
LONGCALLNOARGS AnimateBA
jr .captainThanks
.hero_bs
ld a,BANK(bs_bg)
ld hl,bs_bg
call LoadCinemaBG
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM hero_reasons_gtx
ld d,4
LONGCALLNOARGS AnimateBS
jr .captainThanks
.hero_haiku
ld a,BANK(haiku_bg)
ld hl,haiku_bg
call LoadCinemaBG
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM hero_reasons_gtx
LONGCALLNOARGS AnimateHaiku
.captainThanks
call ((.loadCaptain-L1103_Load2)+levelCheckRAM)
ld de,((.captainCake-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld c,0
DIALOGBOTTOM captain_thanks_gtx
ld d,4
LONGCALLNOARGS AnimateCaptainAtWedding
.captainCake
ld c,0
DIALOGBOTTOM captain_cake_gtx
ld de,((.lady_byallmeans-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld d,4
LONGCALLNOARGS AnimateCaptainAtWedding
.lady_byallmeans
call ((.quickToBlack-L1103_Load2)+levelCheckRAM)
call ClearDialog
ld a,BANK(flower_at_wedding_bg)
ld hl,flower_at_wedding_bg
call LoadCinemaBG
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM lady_byallmeans_gtx
ld de,((.lady_radio-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld d,4
LONGCALLNOARGS AnimateLadyAtWedding
.lady_radio
ld c,0
DIALOGBOTTOM lady_radio_gtx
ld de,((.minutesLater-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld d,4
LONGCALLNOARGS AnimateLadyAtWedding
.minutesLater
call ((.quickToBlack-L1103_Load2)+levelCheckRAM)
call ClearDialog
ld a,BANK(gang_watches_front_bg)
ld hl,gang_watches_front_bg
call LoadCinemaBG
ld de,((.preacherTakeBegonia-L1103_Load2)+levelCheckRAM)
call SetDialogForward
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld a,90
call Delay
.preacherTakeBegonia
ld hl,$0704
call ((.loadGang-L1103_Load2)+levelCheckRAM)
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM preacher_takebegonia_gtx
ld de,((.gyro_bs-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld a,150
call Delay
.gyro_bs
call ((.gyroPopOut-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM gyro_bs_gtx
ld de,((.takeCaptain-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld c,11
call ((.animateGyroSprite-L1103_Load2)+levelCheckRAM)
.takeCaptain
ld hl,$1400
call ((.loadGang-L1103_Load2)+levelCheckRAM)
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM preacher_takesack_gtx
ld de,((.gyro_ba-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld a,150
call Delay
.gyro_ba
call ((.gyroPopOut-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM gyro_ba_gtx
ld de,((.pronounce-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld c,11
call ((.animateGyroSprite-L1103_Load2)+levelCheckRAM)
.pronounce
ld hl,$1406
call ((.loadGang-L1103_Load2)+levelCheckRAM)
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM preacher_pronounce_gtx
ld de,((.gyro_haiku-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld a,150
call Delay
.gyro_haiku
call ((.gyroPopOut-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM gyro_haiku_gtx
ld de,((.married-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld c,11
call ((.animateGyroSprite-L1103_Load2)+levelCheckRAM)
.married
ld hl,$140c
call ((.loadGang-L1103_Load2)+levelCheckRAM)
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM preacher_married_gtx
ld de,((.notSoFast-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld a,150
call Delay
.notSoFast
call ((.setupGyroSpritesInOpen-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM gyro_notsofast_gtx
ld de,((.captainWhyNot-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld c,5
call ((.animateGyroSprite-L1103_Load2)+levelCheckRAM)
.captainWhyNot
call ((.loadCaptain-L1103_Load2)+levelCheckRAM)
ld de,((.because-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld c,0
DIALOGBOTTOM captain_why_gtx
ld d,2
LONGCALLNOARGS AnimateCaptainAtWedding
.because
call ((.setupGyroSpritesInOpen-L1103_Load2)+levelCheckRAM)
ld a,30
call Delay
call ((.shedCostume-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM gyro_reveals_gtx
ld de,((.captainThankYou-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld c,11
call ((.animateGyroSprite-L1103_Load2)+levelCheckRAM)
.captainThankYou
call ((.loadCaptain-L1103_Load2)+levelCheckRAM)
ld de,((.notYummy-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld c,0
DIALOGBOTTOM captain_thankyou_gtx
ld d,3
LONGCALLNOARGS AnimateCaptainAtWedding
.notYummy
call ((.quickToBlack-L1103_Load2)+levelCheckRAM)
call ClearDialog
ld a,BANK(gyro_big_bg)
ld hl,gyro_big_bg
call LoadCinemaBG
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM gyro_notyummy_gtx
ld de,((.recall-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld d,4
LONGCALLNOARGS AnimateGyroAtWedding
.recall
ld c,0
DIALOGBOTTOM gyro_recall_gtx
ld de,((.surrender-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld d,4
LONGCALLNOARGS AnimateGyroAtWedding
.surrender
ld c,0
DIALOGBOTTOM gyro_surrender_gtx
ld de,((.difficult-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld d,4
LONGCALLNOARGS AnimateGyroAtWedding
.difficult
ld c,0
DIALOGBOTTOM gyro_difficult_gtx
ld de,((.captainOkay-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld d,4
LONGCALLNOARGS AnimateGyroAtWedding
.captainOkay
call ((.loadCaptain-L1103_Load2)+levelCheckRAM)
ld de,((.ladyDontBeSilly-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld c,0
DIALOGBOTTOM captain_okay_gtx
ld d,3
LONGCALLNOARGS AnimateCaptainAtWedding
.ladyDontBeSilly
call ((.quickToBlack-L1103_Load2)+levelCheckRAM)
call ClearDialog
ld a,BANK(flower_at_wedding_bg)
ld hl,flower_at_wedding_bg
call LoadCinemaBG
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld c,0
DIALOGBOTTOM lady_dontbesilly_gtx
ld de,((.endCinema-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld d,4
LONGCALLNOARGS AnimateLadyAtWedding
.endCinema
call ((.quickToBlack-L1103_Load2)+levelCheckRAM)
ld hl,2400 ;captain flour
ld a,l
ld [hero0_class],a
ld a,h
ld [hero0_class+1],a
ld a,HERO_FLOUR_FLAG
ld [hero0_type],a
ld hl,2398 ;haiku
ld a,l
ld [hero1_class],a
ld a,h
ld [hero1_class+1],a
ld a,HERO_FLOWER_FLAG
ld [hero1_type],a
ld a,EXIT_S
ld [hero0_enterLevelFacing],a
ld [hero1_enterLevelFacing],a
ld hl,$0604
ld a,l
ld [curLevelIndex],a
ld a,h
ld [curLevelIndex+1],a
ld a,1
ld [timeToChangeLevel],a
ret
.shedCostume
ld b,30
.shedCostumeLoop
;move sprites 12-29 3 pixels right and 1 down
ld c,18
ld de,3
ld hl,spriteOAMBuffer+12*4
.shedCostumeSpriteLoop
inc [hl]
inc hl
inc [hl]
inc [hl]
inc [hl]
add hl,de
dec c
jr nz,.shedCostumeSpriteLoop
ld a,1
call Delay
dec b
jr nz,.shedCostumeLoop
ret
.loadCaptain
call ((.quickToBlack-L1103_Load2)+levelCheckRAM)
call ClearDialog
call ResetSprites
ld a,BANK(flour_at_wedding_bg)
ld hl,flour_at_wedding_bg
call LoadCinemaBG
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ret
.setupGyroSpritesInOpen
call ((.prepGyroSprites-L1103_Load2)+levelCheckRAM)
ld d,$4c
call ScrollSpritesRight
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ret
.animateGyroSprite
;ld c,11
.animateGyroSpriteLoop
ld b,8
call ((.shiftSpritePatterns-L1103_Load2)+levelCheckRAM)
ld a,5
call Delay
ld b,-8
call ((.shiftSpritePatterns-L1103_Load2)+levelCheckRAM)
ld a,5
call Delay
dec c
jr nz,.animateGyroSpriteLoop
ld a,50
call Delay
ret
.shiftSpritePatterns
push bc
ld hl,spriteOAMBuffer+4*4+2
ld de,4
ld c,4
.shiftSpriteLoop
ld a,[hl]
add b
ld [hl],a
add hl,de
dec c
jr nz,.shiftSpriteLoop
pop bc
ret
.loadGang
push hl
call ((.quickToBlack-L1103_Load2)+levelCheckRAM)
call ClearDialog
call ResetSprites
ld a,BANK(gang_watches_wedding_bg)
ld hl,gang_watches_wedding_bg
call LoadCinemaBG
pop hl
ld bc,$0d06
ld de,$0704
call CinemaBlitRect
ret
.gyroPopOut
call ((.prepGyroSprites-L1103_Load2)+levelCheckRAM)
call ((.quickFromBlack-L1103_Load2)+levelCheckRAM)
ld de,((.poppedOut-L1103_Load2)+levelCheckRAM)
call SetDialogForward
ld a,30
call Delay
ld c,48
.popOutLoop
ld d,1
call ScrollSpritesRight
ld a,2
call Delay
dec c
jr nz,.popOutLoop
.poppedOut
ld de,0
call SetDialogForward
ld a,[spriteOAMBuffer+1] ;1st sprite xpos should be $4c
cpl
add $4d
ld d,a
call ScrollSpritesRight
ret
.prepGyroSprites
call ((.quickToBlack-L1103_Load2)+levelCheckRAM)
call ResetSprites
ld a,BANK(gyro_tree_bg)
ld hl,gyro_tree_bg
call LoadCinemaBG
ld a,BANK(gyro_costume_sp)
ld hl,gyro_costume_sp
call LoadCinemaSprite
;kill sprites 8-11 (alternate mouth)
ld hl,spriteOAMBuffer + 4 * 8
xor a
ld de,3
ld c,4
.kill8to11
ld [hl+],a ;sprite 8 y pos to zero
add hl,de
dec c
jr nz,.kill8to11
;move sprites 12-29 40 pixels up and 8 pixels left
ld c,18
.scootCostume
ld a,[hl]
sub 40
ld [hl+],a
ld a,[hl]
sub 8
ld [hl],a
add hl,de
dec c
jr nz,.scootCostume
ld d,20
call ScrollSpritesRight
ld d,40
call ScrollSpritesDown
;set the priority of all sprites to appear behind BG
ld hl,spriteOAMBuffer + 3
ld de,3
ld c,40
.setPriorityLoop
ld a,[hl]
or %10000000
ld [hl+],a
add hl,de
dec c
jr nz,.setPriorityLoop
ret
.quickToBlack
call BlackoutPalette
call ClearDialog
jp ResetSprites
.quickFromBlack
ld a,1
jp SetupFadeFromBlack
L1103_LoadFinished:
;---------------------------------------------------------------------
; Map
;---------------------------------------------------------------------
L1103_Map:
;---------------------------------------------------------------------
; Init
;---------------------------------------------------------------------
L1103_Init:
DW ((L1103_InitFinished - L1103_Init2)) ;size
L1103_Init2:
ret
L1103_InitFinished:
;---------------------------------------------------------------------
; Check
;---------------------------------------------------------------------
L1103_Check:
DW ((L1103_CheckFinished - L1103_Check2)) ;size
L1103_Check2:
ret
L1103_CheckFinished:
PRINT "1103 Script Sizes (Load/Init/Check) (of $500): "
PRINT (L1103_LoadFinished - L1103_Load2)
PRINT " / "
PRINT (L1103_InitFinished - L1103_Init2)
PRINT " / "
PRINT (L1103_CheckFinished - L1103_Check2)
PRINT "\n"
Reference in New Issue View Git Blame Copy Permalink