; L0811.asm ssa nw goblin module
; Generated 04.26.2001 by mlevel
; Modified  04.26.2001 by Abe Pralle

INCLUDE "Source/Defs.inc"
INCLUDE "Source/Levels.inc"

STATE_DEFUSED EQU 2


;---------------------------------------------------------------------
SECTION "Level0811Section",ROMX
;---------------------------------------------------------------------

L0811_Contents::
  DW L0811_Load
  DW L0811_Init
  DW L0811_Check
  DW L0811_Map

;---------------------------------------------------------------------
;  Load
;---------------------------------------------------------------------
L0811_Load:
        DW ((L0811_LoadFinished - L0811_Load2))  ;size
L0811_Load2:
        call    ParseMap
        ret

L0811_LoadFinished:
;---------------------------------------------------------------------
;  Map
;---------------------------------------------------------------------
L0811_Map:
INCBIN "Data/Levels/L0811_ssa_nw.lvl"

;---------------------------------------------------------------------
;  Init
;---------------------------------------------------------------------
L0811_Init:
        DW ((L0811_InitFinished - L0811_Init2))  ;size
L0811_Init2:
        ld      a,BANK(L0012_defused_gtx)
        ld      [dialogBank],a
        call    SetPressBDialog

        ldio    a,[mapState]
        cp      STATE_DEFUSED
        jr      nz,.afterRemoveBomb

        ;remove bomb
        ld      a,MAPBANK
        ldio    [$ff70],a
        xor     a
        ld      hl,$d042
        ld      [hl+],a
        ld      [hl],a
        ld      hl,$d062
        ld      [hl+],a
        ld      [hl],a

.afterRemoveBomb
        ret

L0811_InitFinished:
;---------------------------------------------------------------------
;  Check
;---------------------------------------------------------------------
L0811_Check:
        DW ((L0811_CheckFinished - L0811_Check2))  ;size
L0811_Check2:
        call    ((.checkAtBomb-L0811_Check2)+levelCheckRAM)
        ret

.checkAtBomb
        ldio    a,[mapState]
        cp      STATE_DEFUSED
        ret     z

        ld      hl,((.checkHeroAtBomb-L0811_Check2)+levelCheckRAM)
        xor     a
        call    CheckEachHero
        ret

.checkHeroAtBomb
        ld      c,a
        call    GetFirst
        call    GetCurZone
        cp      2
        jr      z,.atBomb

        xor     a
        ret

.atBomb
        ld      a,STATE_DEFUSED
        ldio    [mapState],a

        call    UpdateState

        ;remove bomb
        ld      a,MAPBANK
        ldio    [$ff70],a
        xor     a
        ld      hl,$d042
        ld      [hl+],a
        ld      [hl],a
        ld      hl,$d062
        ld      [hl+],a
        ld      [hl],a

        ;check all defused
        ld      d,0
        ld      a,LEVELSTATEBANK
        ldio    [$ff70],a
        ld      a,[levelState+$b8]
        cp      2
        jr      nz,.check2
        inc     d
.check2
        ld      a,[levelState+$b9]
        cp      2
        jr      nz,.check3
        inc     d
.check3
        ld      a,[levelState+$ba]
        cp      2
        jr      nz,.check4
        inc     d
.check4
        ld      a,[levelState+$bb]
        cp      2
        jr      nz,.checkTotal
        inc     d
.checkTotal
        ;if 3 bombs were defused before this one then that's all
        ld      a,d
        cp      3
        jr      nz,.bombsRemain

        ld      hl,L0012_alldefused_gtx
        jr      .dialog

.bombsRemain
        ld      hl,L0012_defused_gtx

.dialog
        call    MakeIdle
        ld      de,((.afterDialog-L0811_Check2)+levelCheckRAM)
        call    SetDialogSkip
        
        ld      d,h
        ld      e,l

        call    SetSpeakerFromHeroIndex
        call    ShowDialogAtBottom

.afterDialog
        call    ClearDialogSkipForward
        call    MakeNonIdle
 
        ld      a,1
        ret
        

L0811_CheckFinished:
PRINT "0811 Script Sizes (Load/Init/Check) (of $500):  "
PRINT (L0811_LoadFinished - L0811_Load2)
PRINT " / "
PRINT (L0811_InitFinished - L0811_Init2)
PRINT " / "
PRINT (L0811_CheckFinished - L0811_Check2)
PRINT "\n"