two enemy implementations

.proc ObjectGoomba
  jsr EnemyFall
  lda #$10
  jsr EnemyWalk
  jsr EnemyAutoBump
;  jsr EnemyPlayerTouchHurt

  ; cycle between four frames
  lda retraces
  lsr
  lsr
  lsr
  and #3
  tay
  lda Frames,y
  ldy #OAM_COLOR_2
  jsr DispEnemyWide

  ; check if the player is touching the Goomba and whether to hurt the player or flatten
  jsr EnemyPlayerTouch
  bcc NoTouch
  lda PlayerDrawY
  add #8
  cmp O_RAM::OBJ_DRAWY
  bcc FlattenGoomba
  jsr HurtPlayer
  jsr EnemyTurnAround
NoTouch:
  rts
Frames:
  .byt $0c, $10, $14, $10
.endproc

.proc ObjectOwl
  lda #$10
  jsr EnemyWalkOnPlatform

  ; cycle between two frames
  lda retraces
  and #4
  add #$18
  ldy #OAM_COLOR_2
  jsr DispEnemyWide
  jmp EnemyPlayerTouchHurt
.endproc