Map16Definitions = $0F8000
Overworld_DrawMap16_Persist = $1BC97C
Overworld_DrawMap16_Anywhere = $1BC983
Interface_PrepAndDisplayMessage = $0FFDAA
Overworld_EntranceTileIndex = $1BBA71
Overworld_EntranceScreens = $1BB96F
Overworld_Entrance_ID = $1BBB73

pushpc
org $1BBBF4
  JSL Overworld_UseEntranceEntry
  RTL
pullpc


Overworld_UseEntranceEntry:
{
  PHB : PHK : PLB
  JSL Overworld_UseEntrance
  PLB 
  RTL
}

Overworld_UseEntrance:
{
  REP #$31

  LDA.b $20 : CLC : ADC.w #$0007 : STA.b $00
  SEC : SBC.w $0708 : AND.w $070A
  ASL #3
  STA.b $06

  LDA.b $22 : LSR #3 : STA.b $02
  SEC : SBC.w $070C : AND.w $070E
  CLC : ADC.b $06

  TAY
  TAX

  LDA.l $7E2000, X
  ASL #3
  TAX

  LDA.b $2F : AND.w #$00FF : BNE .not_facing_up

    LDA.l Map16Definitions+2, X 
    AND.w #$41FF : CMP.w #$00E9 : BEQ .open_door
    CMP.w #$0149 : BEQ .left_side_castle_door
    CMP.w #$0169 : BEQ .left_side_castle_door

    TYX

    LDA.l $7E2002, X
    ASL #3
    TAX

    LDA.l Map16Definitions+0, X
    AND.w #$41FF : CMP.w #$4149 : BEQ .right_side_castle_door

    CMP.w #$4169 : BEQ .right_side_castle_door

    CMP.w #$40E9 :  BNE .check_door_type

    DEY
    DEY

    .open_door
    TYX

    LDA.w #$0DA4 : JSL Overworld_DrawMap16_Persist

    LDA.w #$0DA6 : STA.l $7E2002, X

    LDY.w #$0002
    JSL Overworld_DrawMap16_Anywhere

    SEP #$30

    ; SFX3.15
    LDA.b #$15 : STA.w $012F

    LDA.b #$01 : STA.b $14

    RTL

  .not_facing_up
  BRA .check_door_type

  .right_side_castle_door
  DEY
  DEY

  .left_side_castle_door
  STZ.w $0692 : AND.w #$03FF : CMP.w #$0169 : BNE .open_this_castle_door
    LDA.l $7EF3C5 : AND.w #$000F : CMP.w #$0003 : BCS .check_door_type
      LDA.w #$0018 : STA.w $0692
  .open_this_castle_door
  TYA : SEC : SBC.w #$0080 : STA.w $0698

  SEP #$20

  ; SFX3.15
  LDA.b #$15 : STA.w $012F

  STZ.b $B0
  STZ.w $0690

  LDA.b #$0C : STA.b $11

  SEP #$30

  RTL

  .check_door_type
  LDA.l Map16Definitions+4, X : AND.w #$01FF : STA.b $00
  LDA.l Map16Definitions+6, X : AND.w #$01FF : STA.b $02

  ; Size of ValidDoorTypes
  LDX.w #$0060

  .check_next
    LDA.b $00 : CMP.l ValidDoorTypesExpanded_low, X : BNE .low_byte_fail
      LDA.b $02 : CMP.l ValidDoorTypesExpanded_high, X : BEQ FindEntrance

    .low_byte_fail
    DEX
    DEX
  BPL .check_next

  STZ.w $04B8

  .message_received
  SEP #$30

  RTL
}

#Overworld_ForbidEntry:
{
  LDA.w $04B8 : BNE .message_received

  INC.w $04B8

  ; MESSAGE 0005
  LDA.w #$0005 : STA.w $1CF0

  SEP #$30

  JML Interface_PrepAndDisplayMessage
}

FindEntrance:
{
  TYA
  STA.b $00

  LDX.w #$0102

  .next_check
  LDA.b $00

  .tile_fail
  DEX
  DEX
  BMI .no_entrance_found

  CMP.l Overworld_EntranceTileIndex, X : BNE .tile_fail

  LDA.w $040A : CMP.l Overworld_EntranceScreens, X : BNE .next_check

  LDA.l $7EF3D3 : AND.w #$00FF : BNE .entry_allowed

  LDA.w $02DA : AND.w #$00FF : CMP.w #$0001 : BEQ Overworld_ForbidEntry

  LDA.l $7EF3CC : AND.w #$00FF : BEQ .entry_allowed

  ; FOLLOWER 05
  CMP.w #$05 : BEQ .entry_allowed

  ; FOLLOWER 0E
  CMP.w #$0E : BEQ .entry_allowed

  ; FOLLOWER 01
  CMP.w #$01 : BEQ .entry_allowed

  ; FOLLOWER 07
  CMP.w #$07 : BEQ .check_single_entrance

  CMP.w #$08 ; FOLLOWER 08

  BNE Overworld_ForbidEntry

  .check_single_entrance
  CPX.w #$0076 : BCC Overworld_ForbidEntry


  .entry_allowed
  TXA
  LSR A
  TAX

  SEP #$20

  LDA.l Overworld_Entrance_ID,X
  STA.w $010E

  STZ.b $4D : STZ.b $46

  LDA.b #$0F : STA.b $10

  LDA.b #$06 : STA.w $010C

  STZ.b $11 : STZ.b $B0

  .no_entrance_found
  print pc 
  SEP #$30

  RTL
}


; $DB8BF-$DB916 - chr types indicating door entrances

ValidDoorTypesExpanded_low:
 dw $00FE, $00C5, $00FE, $0114 ; 00: ???, House Door, ???, ???
 dw $0115, $0175, $0156, $00F5 ; 01: 
 dw $00E2, $01EF, $0119, $00FE ; 02: ???, ???, ???, Desert Door
 dw $0172, $0177, $013F, $0172 ; 03: 
 dw $0112, $0161, $0172, $014C ; 04: ???, ???, Dam Door, ???
 dw $0156, $01EF, $00FE, $00FE ; 05:
 dw $00FE, $010B, $0173, $0143 ; 06: ???, ???, ???, Tower of Hera
 dw $0149, $0175, $0103, $0100 ; 07:
 dw $01C6, $015E, $0167, $0128 ; 08: Waterfall, ???, ???, ???
 dw $0131, $0112, $016D, $0163 ; 09:
 dw $0173, $00FE, $0113, $0177 ; 10:
 dw $00EA, $013B               ; 11: Lava Land Large, Lava Land Small

ValidDoorTypesExpanded_high:
 dw $014A, $00C4, $014F, $0115 ; ???, House Door, ???, ???
 dw $0114, $0174, $0155, $00F5 ; 01:
 dw $00EE, $01EB, $0118, $0146 ; ???, ???, ???, Desert Door
 dw $0171, $0155, $0137, $0174 ; 03:
 dw $0173, $0121, $0164, $0155 ; ???, ???, Dam Door, ???
 dw $0157, $0128, $0114, $0123 ; 05:
 dw $0113, $0109, $0118, $0161 ; ???, ???, ???, Tower of Hera
 dw $0149, $0117, $0174, $0101 ; 07:
 dw $01C6, $0131, $0051, $014E ; Waterfall, ???, ???, ???
 dw $0131, $0112, $017A, $0163 ; 09:
 dw $0172, $01BD, $0152, $0167 ; 10:
 dw $00EB, $013A

pushpc

; $DB8BF (0x2C entries, 2 bytes each) - valid map8 (CHR) values for entrances (left side)
; $DB917 (0x2C entries, 2 bytes each) - valid map8 (CHR) values for entrances (right side)

; $DB8BF-$DB916 - chr types indicating door entrances
org $1BB8BF
ValidDoorTypes_low:
 dw $00FE, $00C5, $00FE, $0114 ; 00: ???, House Door, ???, ???
 dw $0115, $0175, $0156, $00F5 ; 01: 
 dw $00E2, $01EF, $0119, $00FE ; 02: ???, ???, ???, Desert Door
 dw $0172, $0177, $013F, $0172 ; 03: 
 dw $0112, $0161, $0172, $014C ; 04: ???, ???, Dam Door, ???
 dw $0156, $01EF, $00FE, $00FE ; 05:
 dw $00FE, $010B, $0173, $0143 ; 06: ???, ???, ???, Tower of Hera
 dw $0149, $0175, $0103, $0100 ; 07:
 dw $01C6, $015E, $0167, $0128 ; 08: Waterfall, ???, ???, ???
 dw $0131, $0112, $016D, $0163 ; 09:
 dw $0173, $00FE, $0113, $0177 ; 10:



ValidDoorTypes_high:
 dw $014A, $00C4, $014F, $0115 ; ???, House Door, ???, ???
 dw $0114, $0174, $0155, $00F5 ; 01:
 dw $00EE, $01EB, $0118, $0146 ; ???, ???, ???, Desert Door
 dw $0171, $0155, $0137, $0174 ; 03:
 dw $0173, $0121, $0164, $0155 ; ???, ???, Dam Door, ???
 dw $0157, $0128, $0114, $0123 ; 05:
 dw $0113, $0109, $0118, $0161 ; ???, ???, ???, Tower of Hera
 dw $0149, $0117, $0174, $0101 ; 07:
 dw $01C6, $0131, $0051, $014E ; Waterfall, ???, ???, ???
 dw $0131, $0112, $017A, $0163 ; 09:
 dw $0172, $01BD, $0152, $0167 ; 10:



; 0x00 - OW 
; 0x01 - OW 32 - Link's House
; 0x02 - OW 0E - Hall of Secrets
; 0x03 - OW 4B - Shrine of Power
; 0x04 - OW 
; 0x05 - OW 4B - Shrine of Power
; 0x06 - OW 15 - Mountain to Witch Shop Cave Start
; 0x07 - OW 0D - Mountain to Witch Shop Cave End
; 0x08 - OW XX - Available 
; 0x09 - OW 4B - Shrine of Power
; 0x0A - OW 0B - Kalyxo Castle Secret Courtyard
; 0x0B - OW 4B - Shrine of Power
; 0x0C - OW 50 - Shrine of Courage 
; 0x0D - OW 18 - Mushroom House
; 0x0E - OW 18 - Old Woman House
; 0x0F - OW 
; 0x10 - OW 
; 0x11 - OW 0B - 1/2 Magic Cave
; 0x12 - OW 02 - Hall of Secrets Pyramid Route
; 0x13 - OW 15 - Deluxe Fairy Fountain Pond
; 0x14 - OW 15 - Deluxe Fairy Fountain Start
; 0x15 - OW 2F - Tail Palace
; 0x16 - OW 07 - Snow Mountain Cave East Peak
; 0x17 - OW 05 - Snow Mountain Cave to the East Peak
; 0x18 - OW 40 - Master Sword Cave
; 0x19 - OW 40 - Master Sword Cave
; 0x1A - OW 32 - Beach Cave Route
; 0x1B - OW    - Beach Cave End
; 0x1C - OW 33 - Beach Cave Intro
; 0x1D - OW 
; 0x1E - OW 0D - Snow Mountain Cave Start
; 0x1F - OW 05 - Snow Mountain Cave Portal
; 0x20 - OW 0D - Snow Mountain Cave End
; 0x21 - OW 25 - Kalyxo Field Cave Start
; 0x22 - OW 25 - Kalyxo Field Cave River
; 0x23 - OW 25 - Kalyxo Field Cave End
; 0x24 - OW 46 - Final Boss Route
; 0x25 - OW 1E - Zora Temple
; 0x26 - OW 10 - Mushroom Grotto
; 0x27 - OW 36 - Goron Mines
; 0x28 - OW 0B - Kalyxo Castle West Entrance
; 0x29 - OW XX - Available
; 0x2A - OW 0B - Kalyxo Castle Basement Route
; 0x2B - OW 0B - Kalyxo Castle Main Entrance
; 0x2C - OW 18 - Toadstool Woods Log Cave
; 0x2D - OW 40 - Master Sword Cave
; 0x2E - OW 2D - Tail Palace Cave Route Start
; 0x2F - OW 2E - Tail Palace Cave Route End
; 0x30 - OW 07 - Snow Mountain East Peak To West Peak
; 0x31 - OW 04 - Snow Mountain West Peak To East Peak
; 0x32 - OW 0B - Kalyxo Castle Prison Entrance
; 0x33 - OW 63 - Shrine of Wisdom
; 0x34 - OW 06 - Glacia Estate
; 0x35 - OW 30 - Dragon Ship
; 0x36 - OW 
; 0x37 - OW 5E - Fortress of Secrets
; 0x38 - OW 11 - Healing Fairy Cave (Exit)
; 0x39 - OW 
; 0x3A - OW 1D - Deluxe Fairy Fountain East
; 0x3B - OW 1D - Deluxe Fairy Fountain South
; 0x3C - OW 
; 0x3D - OW 
; 0x3E - OW 00 - Ranch Shed
; 0x3F - OW 00 - Ocarina Girls House
; 0x40 - OW 23 - Sick Boys House
; 0x41 - OW 
; 0x42 - OW 23 - Village Tavern
; 0x43 - OW 
; 0x44 - OW 23 - Village House
; 0x45 - OW 1E - Zora Princess House
; 0x46 - OW 23 - Village Shop
; 0x47 - OW 
; 0x48 - OW 
; 0x49 - OW 23 - Village Library
; 0x4A - OW 
; 0x4B - OW 00 - Chicken House
; 0x4C - OW 0D - Witch Shop
; 0x4D - OW 
; 0x4E - OW 1E - Zora Temple Waterfall
; 0x4F - OW 43 - Lava Cave Start
; 0x50 - OW 0E - Cave of Secrets
; 0x51 - OW 15 - Rock Heart Piece Cave
; 0x52 - OW 43 - Lava Cave End
; 0x53 - OW 
; 0x54 - OW 
; 0x55 - OW 
; 0x56 - OW 
; 0x57 - OW 
; 0x58 - OW 
; 0x59 - OW 1A - Archery Minigame
; 0x5A - OW 
; 0x5B - OW 0F - Hidden Grave
; 0x5C - OW 0F - Graveyard Waterfall
; 0x5D - OW 
; 0x5E - OW 
; 0x5F - OW 36 - Mines Shed
; 0x60 - OW 0A - West Hotel
; 0x61 - OW 23 - Village Mayors House
; 0x62 - OW 
; 0x63 - OW 
; 0x64 - OW 22 - Smiths House
; 0x65 - OW Fortune Teller 
; 0x66 - OW Fortune Teller 
; 0x67 - OW 18 - Chest Minigame
; 0x68 - OW 18 - Bonzai House
; 0x69 - OW 
; 0x6A - OW 
; 0x6B - OW 2D - Happy Mask Salesman Shop
; 0x6C - OW 
; 0x6D - OW 
; 0x6E - OW 
; 0x6F - OW 
; 0x70 - OW 
; 0x71 - OW 
; 0x72 - OW 
; 0x73 - OW 
; 0x74 - OW 
; 0x75 - OW 
; 0x76 - OW 
; 0x77 - OW 
; 0x78 - OW 
; 0x79 - OW 
; 0x7A - OW 
; 0x7B - OW 
; 0x7C - OW 
; 0x7D - OW 
; 0x7E - OW 
; 0x7F - OW 
; 0x80 - OW