Sorry your browser is not supported!

Rem Project: Launch
Rem Created: Friday, March 18, 2016

Rem ***** Main Source File *****

#CONSTANT ship 1
#CONSTANT earth 2
#CONSTANT moon 3
#CONSTANT sun 4
#CONSTANT octa 13
#CONSTANT octb 14
#CONSTANT octc 15
#CONSTANT nofuel 16
#CONSTANT map 17
#CONSTANT mapship 18

GLOBAL angle AS FLOAT
GLOBAL keypressed AS BYTE
GLOBAL fuel AS INTEGER

Setup()
Space()

fuel = 50000

REPEAT
	ScrollV()
	ScrollH()
	HandleKeys()
	FuelLeft()
	PrintFuel()
UNTIL fuel = 0
END

FUNCTION Setup()
	SET DISPLAY MODE 1440,900,32
	COLOR BACKDROP RGB(79,74,89)
	BACKDROP ON
ENDFUNCTION

FUNCTION Space()
   LOAD IMAGE "earth.png",2
   SPRITE earth, SCREEN WIDTH()/2, SCREEN HEIGHT()/2,2
   OFFSET SPRITE earth,SPRITE WIDTH(earth)/2,SPRITE HEIGHT(earth)/2

   LOAD IMAGE "moon.png",3
   SPRITE moon, SCREEN WIDTH()/2 + 200, SCREEN HEIGHT()/2 - 200,3
   OFFSET SPRITE moon,SPRITE WIDTH(moon)/2,SPRITE HEIGHT(moon)/2

   LOAD IMAGE "ship.png",1
   SPRITE ship, SCREEN WIDTH()/2, SCREEN HEIGHT()/2,1
   OFFSET SPRITE ship,SPRITE WIDTH(ship)/2,SPRITE HEIGHT(ship)/2
   SET SPRITE PRIORITY ship,1

   LOAD IMAGE "sun.png",4
   SPRITE sun, 8640, SCREEN HEIGHT()/2,4
   OFFSET SPRITE sun,SPRITE WIDTH(sun)/2,SPRITE HEIGHT(sun)/2

   LOAD IMAGE "octa.png",13
   LOAD IMAGE "octb.png",14
   LOAD IMAGE "octc.png",15
   LOAD IMAGE "nofuel.png",16

   LOAD IMAGE "map.png",17
   SPRITE map, 222, 64,17
   OFFSET SPRITE map,SPRITE WIDTH(map)/2,SPRITE HEIGHT(map)/2

   LOAD IMAGE "mapship.png",18
   SPRITE mapship, SPRITE WIDTH(map)/2 + 1,SPRITE HEIGHT(map)/2 + 1,18
   OFFSET SPRITE mapship,SPRITE WIDTH(mapship)/2,SPRITE HEIGHT(mapship)/2
   
ENDFUNCTION
 
FUNCTION HandleKeys()
   IF KEYSTATE(30) = 1
      angle = WRAPVALUE(angle - 0.3)
   ELSE
      IF KEYSTATE(32) = 1
         angle = WRAPVALUE(angle + 0.3)
      ENDIF
   ENDIF
   IF KEYSTATE(57) = 1
      MOVE SPRITE ship,1
   ENDIF
   ROTATE SPRITE ship,angle
ENDFUNCTION

FUNCTION ScrollV()
   IF SPRITE Y(ship) < 30
      spaceoffsety = spaceoffsety - 1
      MOVE SPRITE ship,-1
      MOVE SPRITE mapship,0.01
      MOVE SPRITE sun,-0.5
      MOVE SPRITE earth,-0.5
      MOVE SPRITE moon,-0.5
   ELSE
      IF SPRITE Y(ship) > 870
         spaceoffsety = spaceoffsety + 1
         MOVE SPRITE ship,-1
         MOVE SPRITE mapship,-0.01
         MOVE SPRITE sun,0.5
         MOVE SPRITE earth,0.5
         MOVE SPRITE moon,0.5
      ENDIF
   ENDIF
ENDFUNCTION

FUNCTION ScrollH()
   IF SPRITE X(ship) < 30
      spaceoffsetx = spaceoffsetx - 1
      MOVE SPRITE ship,-1
      ROTATE SPRITE mapship,270
      ROTATE SPRITE sun,90
      ROTATE SPRITE earth,90
      ROTATE SPRITE moon,90
      MOVE SPRITE mapship,0.02
      MOVE SPRITE sun,1
      MOVE SPRITE earth,1
      MOVE SPRITE moon,1
      ROTATE SPRITE mapship,0
      ROTATE SPRITE sun,0
      ROTATE SPRITE earth,0
      ROTATE SPRITE moon,0
      SYNC
   ELSE
      IF SPRITE X(ship) > 1410
         spaceoffsetx = spaceoffsetx + 1
         MOVE SPRITE ship,-1
         ROTATE SPRITE mapship,90
         ROTATE SPRITE sun,270
         ROTATE SPRITE earth,270
         ROTATE SPRITE moon,270
         MOVE SPRITE mapship,0.02
         MOVE SPRITE sun,1
         MOVE SPRITE earth,1
         MOVE SPRITE moon,1
         ROTATE SPRITE mapship,0
         ROTATE SPRITE sun,0
         ROTATE SPRITE earth,0
         ROTATE SPRITE moon,0
         SYNC
      ENDIF
   ENDIF
ENDFUNCTION

FUNCTION FuelLeft()
   IF KEYSTATE(57) = 1
      fuel = fuel - 1
   ENDIF
ENDFUNCTION

FUNCTION PrintFuel()
   SET CURSOR 50,100
   PRINT "Fuel: "
   SET CURSOR 150,100
   PRINT fuel
ENDFUNCTION