spinners

.proc AObject_Spinner
  lda AObjectF2,x
  cmp #2
  bne NotTeleporting

  jsr huge_rand
  and #63
  sub #32
  add AObjectPXH,x
  sta AObjectPXH,x
  add #8
  pha

  jsr huge_rand
  and #63
  sub #32
  add AObjectPYH,x
  sta AObjectPYH,x
  add #8
  and #$f0
  sta 0
  pla
  lsr
  lsr
  lsr
  lsr
  ora 0
  tay
  lda LevelBuf,y
  bne :+
    lda #0
    sta AObjectF2,x
  :

  ldy #ADRAW_HMIRROR
  lda retraces
  and #8
  lsr
  lsr
  add #$74
  jmp AObjectDrawEx
NotTeleporting:
  lda retraces
  and #3
  bne :+
  jsr huge_rand
  and #%111
  bne :+
    jsr AObjectAimAtPlayer
    sta AObjectAngle,x
: lda retraces
  and #7
  bne :+
  jsr huge_rand
  and #%111
  bne :+
    ldy AObjectAngle,x
    lda #8
    jsr AObjectShoot
  :

  jsr AObjectPlayerTouch
  jsr AObjectHurtPlayerIfTouched
  jsr AObjectGetShot
  jsr AObjectGetHurtFromShot
  lda #1
  jsr AObjectUpdateVelocity
  lda #0
  sta 0
  jsr AObjectCheckBounce
  lda 0
  beq :+
    jsr huge_rand
    lsr
    lsr
    and #7
    bne :+
      lda #2
      sta AObjectF2,x
  :
  jsr AObjectApplyVelocity
  ldy #ADRAW_HMIRROR
  lda retraces
  and #8
  lsr
  lsr
  add #$40
  jsr AObjectDrawEx
  rts
.endproc