metaplayer.s

SpecialMiscList:
  .byt Metatiles::COIN
  .byt Metatiles::SPRING
  .byt Metatiles::SIGNPOST
  .byt Metatiles::DOOR_BOTTOM
  .byt Metatiles::SPRING_DOWN
  .byt Metatiles::KEY_RED
  .byt Metatiles::KEY_GREEN
  .byt Metatiles::KEY_BLUE
  .byt Metatiles::TOGGLE_SWITCH
  .byt Metatiles::TELEPORTER
  .byt Metatiles::CLONE_SWITCH
  .byt Metatiles::GENERIC_SWITCH
  .byt Metatiles::FORCE_LEFT
  .byt Metatiles::FORCE_RIGHT
  .byt Metatiles::FORCE_UP
  .byt Metatiles::FORCE_DOWN
  .byt Metatiles::CHIP
  .byt Metatiles::CHERRY_BOMB
  .byt Metatiles::CAMPFIRE
  .byt Metatiles::RED_BOOTS
  .byt Metatiles::GREEN_BOOTS
  .byt Metatiles::GRAY_BOOTS
  .byt Metatiles::BLUE_BOOTS

SpecialMiscLo:
  .byt <(TouchedCoin-1)
  .byt <(TouchedSpring-1)
  .byt <(TouchedSignpost-1)
  .byt <(TouchedDoorBottom-1)
  .byt <(TouchedSpringDown-1)
  .byt <(TouchedKey-1)
  .byt <(TouchedKey-1)
  .byt <(TouchedKey-1)
  .byt <(TouchedToggleSwitch-1)
  .byt <(TouchedTeleporter-1)
  .byt <(TouchedCloneSwitch-1)
  .byt <(TouchedGenericSwitch-1)
  .byt <(TouchedForce-1)
  .byt <(TouchedForce-1)
  .byt <(TouchedForce-1)
  .byt <(TouchedForce-1)
  .byt <(TouchedChip-1)
  .byt <(TouchedCherryBomb-1)
  .byt <(TouchedCampfire-1)
  .byt <(TouchedBoots-1)
  .byt <(TouchedBoots-1)
  .byt <(TouchedBoots-1)
  .byt <(TouchedBoots-1)

SpecialMiscHi:
  .byt >(TouchedCoin-1)
  .byt >(TouchedSpring-1)
  .byt >(TouchedSignpost-1)
  .byt >(TouchedDoorBottom-1)
  .byt >(TouchedSpringDown-1)
  .byt >(TouchedKey-1)
  .byt >(TouchedKey-1)
  .byt >(TouchedKey-1)
  .byt >(TouchedToggleSwitch-1)
  .byt >(TouchedTeleporter-1)
  .byt >(TouchedCloneSwitch-1)
  .byt >(TouchedGenericSwitch-1)
  .byt >(TouchedForce-1)
  .byt >(TouchedForce-1)
  .byt >(TouchedForce-1)
  .byt >(TouchedForce-1)
  .byt >(TouchedChip-1)
  .byt >(TouchedCherryBomb-1)
  .byt >(TouchedCampfire-1)
  .byt >(TouchedBoots-1)
  .byt >(TouchedBoots-1)
  .byt >(TouchedBoots-1)
  .byt >(TouchedBoots-1)

.proc TouchedCoin
  lda #0
  jsr ChangeBlock
  lda #SFX::COIN
  jsr PlaySound
  jmp AddCoin
.endproc

.proc TouchedSpring
  inc HandlePlayer::SkipFourCorners
  lda #-1
  sta PlayerVYH
  lda #-$70
  sta PlayerVYL
  lda #30
  sta PlayerJumpCancelLock
  lda #SFX::SPRING
  jsr PlaySoundDebounce

  ldy TempSpace
  ; animate the spring
  lda #1
  sta 0
  lda #Metatiles::SPRING
  jsr DelayChangeBlock
  lda #Metatiles::SPRING_PRESSED
  jmp ChangeBlock
.endproc

.proc TouchedSignpost
  rts
.endproc

.proc TouchedDoorBottom
  rts
.endproc

.proc TouchedSpringDown
  rts
.endproc

.proc TouchedKey
  rts
.endproc

.proc TouchedToggleSwitch
  rts
.endproc

.proc TouchedTeleporter
  rts
.endproc

.proc TouchedCloneSwitch
  rts
.endproc

.proc TouchedGenericSwitch
  rts
.endproc

.proc TouchedForce
  rts
.endproc

.proc TouchedChip
  rts
.endproc

.proc TouchedCherryBomb
  rts
.endproc

.proc TouchedCampfire
  rts
.endproc

.proc TouchedBoots
  rts
.endproc

SpecialWallList:
  .byt Metatiles::LOCK_RED
  .byt Metatiles::LOCK_GREEN
  .byt Metatiles::LOCK_BLUE
  .byt Metatiles::CHIP_SOCKET
  .byt Metatiles::PICKUP_BLOCK
  .byt Metatiles::PUSHABLE_BLOCK

SpecialCeilingList:
  .byt Metatiles::PRIZE

SpecialFloorList:
  .byt Metatiles::SPIKES

.proc DoSpecialMisc
  sty TempY
  sta TempVal
  ldy #0
: cmp SpecialMiscList,y ; unrolled a bit
  beq Yes
  iny
  cmp SpecialMiscList,y
  beq Yes
  iny
  cmp SpecialMiscList,y
  beq Yes
  iny
  bne :-
Yes:
  lda SpecialMiscHi,y
  pha
  lda SpecialMiscLo,y
  pha
  ldy TempY
  lda TempVal
  rts
.endproc

.proc DoSpecialWall
  rts
.endproc