// Evento ORBES 1 (Movimiento)
//

IF H = 1
  IF F = 0
      IF Y <= 9
        LET F = 1
      ENDIF
      SUBTRACT 2 TO Y
      SUBTRACT 2 TO X
      ADD 1 TO S 
    IF CUSTOM
      LET F = 1
    ENDIF
  ELSE
    IF F = 1
      IF Y > 232
        LET F = 0
      ENDIF
      ADD 2 TO Y
      SUBTRACT 2 TO X
      ADD 1 TO S
      IF CUSTOM
        LET F = 0
      ENDIF
    ENDIF
  ENDIF
ENDIF
IF S > 12
  LET H = 0
  IF F = 1
    ADD 2 TO Y
    ADD 2 TO X
    ADD 1 TO S
    IF Y > 232
      LET F = 0
    ENDIF
  ELSE
    SUBTRACT 2 TO Y
    ADD 2 TO X
    ADD 1 TO S
    IF Y <= 9
      LET F = 1
    ENDIF
  ENDIF
ENDIF

IF S = 26
    REMOVE
    SPRITEINK 6
    LET S = 0
    SPAWN 8 9
    EXIT
 ENDIF
[EOF]