// Evento ORBES 2 (Movimiento)
//

LET IMAGE = 9
IF B = 2
  ANIMATE
  GETRANDOM 8
  IF RND <> 0
    SPRITEINK RND
  ENDIF
ENDIF
IF COLLISION 0
  SPRITEINK 6
  LET E = 1
        beep 80   // Sonido cuando lo recogemos
        beep 120
        delay 4
        beep 130
        beep 140
        beep 150
  REMOVE
  ADD 1 TO R
  ADD 1 TO T
  LET LINE = 0
  LET COLUMN = T
  PUTBLOCK 29
ENDIF
[EOF]