Sorry your browser is not supported!

REM *****************************************
RemStart
*** TITLE - Galactic Math
*** VERSION - 1.3.0 LAST UPDATED - 1.30.2014
*** DEVELOPER - Tristan Green & John Wu
*** COPYRIGHT - Nothing Yet
*** DATE CREATED - 11.22.2013
***
RemEnd
REM *** START SYSTEM SETUP SECTION

hide mouse
autocam off

REM *** STOP SYSTEM SETUP SECTION
REM *****************************************

REM *****************************************
REM *** START INTRO SECTION
REM *** INTRO SECTION HEADER

REM DECLARE VARIABLES
REM SCREEN DISPLAY

cls 0
load bitmap "E:\Edutainment Game\images\Galactic-Math.bmp"
ink rgb(255,255,255),0 : set text font "arial" : set text size 14 : set text to bold : set text transparent
center text 320,420,"Developed by Tristan Green and John Wu"
center text 320,434,"Copyright © Nothing 2014"

REM LOAD MUSIC
REM SOUND EFFECTS
REM SPECIAL EFFECTS
REM REFRESH SCREEN
sync

REM *** INTRO SECTION LOOP

do
REM SCREEN DISPLAY
REM CONTROL INPUT
if Keystate(scancode())=1 then gosub MoonSection
REM REFRESH SCREEN
sync
loop

REM *** END INTRO SECTION
REM *****************************************

REM *****************************************
REM *** START OPTIONS SECTION
REM *** OPTIONS SECTION HEADER

OptionsSection:
REM DECLARE VARIABLES
REM SCREEN DISPLAY
REM SOUND EFFECTS
REM SPECIAL EFFECTS
REM REFRESH SCREEN

REM *** OPTIONS SECTION LOOP

REM CONTROL INPUT
REM REFRESH SCREEN

REM *** END OPTIONS SECTION
REM *****************************************

REM *****************************************
REM *** START MOON SECTION
REM *** MOON SECTION HEADER

MoonSection:
REM DECLARE VARIABLES

MyScore = 0 : rem Starting score is 0

REM SCREEN DISPLAY
cls 0 : backdrop on


REM LOAD IMAGES
load image "E:\Edutainment Game\images/moon_floor.png",2
load image "E:\Edutainment Game\images/starfield-6.jpg",5
load image "E:\Edutainment Game\images/16032727.jpg",1
load image "E:\Edutainment Game\images/Coin.bmp",20
REM OBJECT CREATION

REM FLOOR
Make object box 2, 500,100,5000
position object 2, -5,-10,-5
color object 2,rgb(155,155,155)
texture object 2,2
scale object texture 2,1,10

REM PLAYER
make object sphere 1,50,20,50
color object 1,rgb(255,255,0)
position object 1,15,100,-1000
texture object 1,1

REM NOB #1
make object sphere 10, 50,20,50
position object 10, 15,90,200

REM COINS
   make object cube 20 , 25
   position object 20 , 15, 100, 70
   texture object 20, 20


REM LOAD MODELS
REM SET COLLISIONS
REM SET CAMERA
REM SOUND EFFECTS
REM SPECIAL EFFECTS
REM REFRESH SCREEN
sync

REM *** MOON SECTION LOOP


position camera -200,350,-300
point camera 15,5,15
yrotate camera -90

texture backdrop 5

do

   if object collision (1,20) then MyScore = MyScore + 10
      if object collision (1,20) then position object 20, 15, 1000, 50
         center text 40,10, "Score:"+str$(MyScore)

   xrotate object 20, object angle x (20)+0.2
      yrotate object 20, object angle y (20)+0.2


   yrotate object 1, rotation# REM rotate the object
      set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 190, 290, 100, 0

   if upkey() then move object 1,1
      if downkey() then move object 1,-1
         if rightkey() then rotation#=rotation#+.25 REM control the rotation
            if leftkey() then rotation#=rotation#-.25 REM control the rotation
               if object collision(1,2)=0 then inc FallSpeed#,.015 else FallSpeed#=0
                  if spacekey() then move object up 1,2
                     position object 1,object position x(1),object position y(1)-FallSpeed#,object position z(1)

   scroll object texture 1,0,0.00050

   if object position y(1)<-100 then position object 1, 15,100,-1000


ink rgb(0,255,0),0
   if object collision (1,10) then center text 320,420, "12x12"
      if object collision (1,10) then center text 320,440, "[A]144 [B]24 [C]140"
      if object collision (1,10) then
if Inkey$()="a" and object collision (1,10)
         MyScore = MyScore + 10
         position object 10, 15,900,200
         endif

         if Inkey$()="b" and object collision (1,10)
         MyScore = MyScore = 0
         endif

         if Inkey$()="c" and object collision (1,10)
         MyScore = MyScore = 0
         endif

   if MyScore = 20
      for x = 1 to 20
         if object exist(x) = 1 then delete object x
      next x
      gosub RocketSection
   endif


loop

REM *** STOP MOON SECTION
REM *****************************************

REM *****************************************
REM *** START ROCKET SECTION
REM *** ROCKET SECTION HEADER

RocketSection:

MyScore = 0

REM LOAD IMAGES
load image "E:\Edutainment Game\images/black.bmp",21
REM OBJECT CREATION
sync
REM FLOOR
Make object box 22, 50,100,500
position object 22, 10,30,10
color object 22,rgb(155,155,155)
texture object 22,2
scale object texture 22,1,10

REM PLAYER
make object sphere 1,50,20,50
color object 1,rgb(255,255,0)
position object 1,15,100,-1000
texture object 1,1

REM LOAD MODELS
REM SET COLLISIONS
REM SET CAMERA
REM SOUND EFFECTS
REM SPECIAL EFFECTS
REM REFRESH SCREEN


REM *** ROCKET SECTION LOOP


position camera -200,350,-300
point camera 15,5,15
yrotate camera -90

texture backdrop 21

do

loop

REM *****************************************
REM *** START END SECTION
REM *** END SECTION HEADER

EndSection:
REM DECLARE VARIABLES
REM SCREEN DISPLAY
cls 0
center text 320,240,"LOL YOU FELL LOSER!!! Play Again [Y/N]?"
REM SOUND EFFECTS

REM SPECIAL EFFECTS
REM REFRESH SCREEN
sync

REM *** END SECTION LOOP
do
   if scancode()=0 then exit
loop
do
   REM CONTROL INPUT
   if Inkey$()="y"
      gosub OptionsSection
   endif

   if Inkey$()="n"
      cls : end
   endif
   REM REFRESH SCREEN
   sync
loop

end
REM *** STOP END SECTION
REM *****************************************

REM LOAD IMAGES
load image "E:\Edutainment Game\images/moon_floor.png",2
load image "E:\Edutainment Game\images/starfield-6.jpg",5
load image "E:\Edutainment Game\images/16032727.jpg",1
load image "E:\Edutainment Game\images/Coin.bmp",20
REM OBJECT CREATION

REM FLOOR
Make object box 2, 500,100,5000
position object 2, -5,-10,-5
color object 2,rgb(155,155,155)
texture object 2,2
scale object texture 2,1,10

REM PLAYER
make object sphere 1,50,20,50
color object 1,rgb(255,255,0)
position object 1,15,100,-1000
texture object 1,1

REM NOB #1
make object sphere 10, 50,20,50
position object 10, 15,90,200

REM COINS
   make object cube 20 , 25
   position object 20 , 15, 100, 70
   texture object 20, 20

InitLevel()

function InitLevel()

REM LOAD IMAGES
load image "E:\Edutainment Game\images/moon_floor.png",2
load image "E:\Edutainment Game\images/starfield-6.jpg",5
load image "E:\Edutainment Game\images/16032727.jpg",1
load image "E:\Edutainment Game\images/Coin.bmp",20
REM OBJECT CREATION

REM FLOOR
Make object box 2, 500,100,5000
position object 2, -5,-10,-5
color object 2,rgb(155,155,155)
texture object 2,2
scale object texture 2,1,10

REM PLAYER
make object sphere 1,50,20,50
color object 1,rgb(255,255,0)
position object 1,15,100,-1000
texture object 1,1

REM NOB #1
make object sphere 10, 50,20,50
position object 10, 15,90,200

REM COINS
   make object cube 20 , 25
   position object 20 , 15, 100, 70
   texture object 20, 20

endfunction

function DeInitLevel()

REM LOAD IMAGES
   Delete Image 2
   Delete Image 5
   Delete Image 1
   Delete Image 20
REM OBJECT CREATION

REM FLOOR
   Delete Object 2

REM PLAYER
   Delete Object 1

REM NOB #1
   Delete Object 10
REM COINS
   Delete Object 20

endfunction

backdrop on
DO
if inkey$()="1" then gosub LoadLevelOne
if inkey$()="2" then gosub LoadLevelTwo

set cursor 0,0
print "Press '1' to load Level One"
print
print "Press '2' to load Level Two"
print
print "Current Level: ";Level
LOOP

LoadLevelOne:
if object exist(1) then delete object 1
make object cube 1,1
color backdrop rgb(20,200,20)
Level=1
return

LoadLevelTwo:
if object exist(1) then delete object 1
make object sphere 1,1
color backdrop rgb(200,20,200)
Level=2
return

do
    if mode = 1 then gosub menu
    if mode = 2 then gosub game
    if mode = 3 then gosub credits
loop


menu:
    // display menu options and put some key controls
    if scancode() = 32 then mode = 2
return

game:
    // if user hits ESC during game play, go back to main menu
    if scancode() = 27 then mode = 1
    if gameOver = 1 then mode = 3
return

credits:
    if isCreditsDone = 1 then mode = 1
return

backdrop on
Section1:
DO
if inkey$()="2" then goto Section2
if inkey$()="3" then goto Section3
if inkey$()="4" then goto Section4
set cursor 0,0:print "Press 1-4"
print "This is Loop #1"
LOOP

Section2:
DO
if inkey$()="1" then goto Section1
if inkey$()="3" then goto Section3
if inkey$()="4" then goto Section4
set cursor 0,0:print "Press 1-4"
print "This is Loop #2"
LOOP

Section3:
DO
if inkey$()="1" then goto Section1
if inkey$()="2" then goto Section2
if inkey$()="4" then goto Section4
set cursor 0,0:print "Press 1-4"
print "This is Loop #3"
LOOP

Section4:
DO
if inkey$()="1" then goto Section1
if inkey$()="2" then goto Section2
if inkey$()="3" then goto Section3
set cursor 0,0:print "Press 1-4"
print "This is Loop #4"
LOOP

Do
   GameSpecificFunction()

   UpdateEngine()
Loop
End

Function UpdateEngine()
   UpdateInputs()
   UpdateUI()
   UpdateSound()
EndFunction

#constant GAME_MODE_INTRO = 0
#constant GAME_MODE_MENU = 1
#constant GAME_MODE_GAME = 2
#constant GAME_MODE_GAME_OVER = 3

global gameMode = GAME_MODE_INTRO
do
    updateEnvironment()
    select gameMode
        case GAME_MODE_INTRO 
            splashScreen()
            updateScreen()
        endcase
        
        case GAME_MODE_MENU 
	    updateInput()
            updateMenu()
            updateScreen()
        endcase
        
        case GAME_MODE_GAME 
            updateInput()
	    updateLogic()
            updateScreen()
        endcase
        
        case GAME_MODE_GAME_OVER 
            gameOver()
            updateScreen()
        endcase
    endselect
    debugHUD()
    sync
loop
end

backdrop on
Section1:
DO
if inkey$()="2" then goto Section2
if inkey$()="3" then goto Section3
if inkey$()="4" then goto Section4
set cursor 0,0:print "Press 1-4"
print "This is Loop #1"
LOOP

Section2:
DO
if inkey$()="1" then goto Section1
if inkey$()="3" then goto Section3
if inkey$()="4" then goto Section4
set cursor 0,0:print "Press 1-4"
print "This is Loop #2"
LOOP

Section3:
DO
if inkey$()="1" then goto Section1
if inkey$()="2" then goto Section2
if inkey$()="4" then goto Section4
set cursor 0,0:print "Press 1-4"
print "This is Loop #3"
LOOP

Section4:
DO
if inkey$()="1" then goto Section1
if inkey$()="2" then goto Section2
if inkey$()="3" then goto Section3
set cursor 0,0:print "Press 1-4"
print "This is Loop #4"
LOOP

backdrop on
i = 1
DO
    if inkey$()="1" then i = 1
    if inkey$()="2" then i = 2
    if inkey$()="3" then i = 3
    if inkey$()="4" then i = 4
    set cursor 0,0:print "Press 1-4"
    print "This is Loop #", i
LOOP

backdrop on
sync on



mode = 1

do

    select mode
        case 1 : gosub Section1 : endcase
        case 2 : gosub Section2 : endcase
        case 3 : gosub Section3 : endcase
        case 4 : gosub Section4 : endcase
    endselect
    
    if scancode() = 27 then exit
    sync
loop
end


Section1:
    if inkey$()="2" then mode = 2
    if inkey$()="3" then mode = 3
    if inkey$()="4" then mode = 4
    set cursor 0,0:print "Press 1-4"
    print "This is Loop #1"
RETURN

Section2:
    if inkey$()="1" then mode = 1
    if inkey$()="3" then mode = 3
    if inkey$()="4" then mode = 4
    set cursor 0,0:print "Press 1-4"
    print "This is Loop #2"
RETURN

Section3:
    if inkey$()="1" then mode = 1
    if inkey$()="2" then mode = 2
    if inkey$()="4" then mode = 4
    set cursor 0,0:print "Press 1-4"
    print "This is Loop #3"
RETURN

Section4:
    if inkey$()="1" then mode = 1
    if inkey$()="2" then mode = 2
    if inkey$()="3" then mode = 3
    set cursor 0,0:print "Press 1-4"
    print "This is Loop #4"
RETURN

Rem Project: Dark Basic Pro Project
Rem Created: Saturday, February 22, 2014

Rem ***** Main Source File *****
sync on
sync rate 60
set display mode 640, 480, 32

backdrop on
color backdrop rgb(0, 0, 0)


#constant APP_MODE_MENU 0
#constant APP_MODE_GAME_1 1
#constant APP_MODE_GAME_2 2
#constant GAME_MODE_MENU 0
#constant GAME_MODE_GAME 1
#constant GAME_MODE_HIGH_SCORE 3

global appState = APP_MODE_MENU
global gameState = GAME_MODE_MENU

do
    select appState
        case APP_MODE_MENU
            menuScreen()
        endcase
        
        case APP_MODE_GAME_1
            gameOne()
        endcase
        
        case APP_MODE_GAME_2
            gameTwo()
        endcase
    endselect
    debug()
    sync
loop
end

function menuScreen()
    set cursor 200, 100: print "Please choose a game:"
    set cursor 200, 132: print "Press 1 for Game One"
    set cursor 200, 148: print "Press 2 for Game Two"
    if keystate(2) then appState = APP_MODE_GAME_1
    if keystate(3) then appState = APP_MODE_GAME_2
endfunction

function gameOne()
    select gameState
        case GAME_MODE_MENU
            set cursor 270, 100: print "GAME 1"
            set cursor 200, 132: print "Press Q to return to Menu"
            set cursor 200, 148: print "Press H to view High Scores"
            if keystate(16) then appState = APP_MODE_MENU
            if keystate(35) then gameState = GAME_MODE_HIGH_SCORE
        endcase
        case GAME_MODE_HIGH_SCORE
            highScores(1)
        endcase
    endselect
endfunction

function gameTwo()
    select gameState
        case GAME_MODE_MENU
            set cursor 200, 100: print "GAME 2: Game 1: the Sequel"
            set cursor 200, 132: print "Press Q to return to Menu"
            set cursor 200, 148: print "Press H to view High Scores"
            if keystate(16) then appState = APP_MODE_MENU
            if keystate(35) then gameState = GAME_MODE_HIGH_SCORE
        endcase
        case GAME_MODE_HIGH_SCORE
            highScores(2)
        endcase
    endselect
endfunction

function highScores(gameID)
    set cursor 200, 100: print "High Scores for Game ", gameID
    for i = 0 to 9
        set cursor 200, 132 + (i*16): print "Player ", i + 1, "     ", i * 1000
    next i
    set cursor 200, 375: print "Press Q to return to Main Menu"
    set cursor 200, 391: print "Press G to return to Game Menu"
    if keystate(34) then gameState = GAME_MODE_MENU
    if keystate(16)
        gameState = GAME_MODE_MENU
        appState = APP_MODE_MENU
    endif
endfunction

function debug()
    set cursor 0,0
    print "FPS: ", screen fps()
endfunction

layer (loop) 1 - Main Menu
  layer (loop) 2 - Mini Game 1 Menu
    layer (loop) 3 - Play Mini 1 Game
  layer (loop) 2 - return to mini game 1 menu on way out
layer (loop) 1 - return to main menu on way out
  layer (loop) 2 - Mini Game 2 Menu
    layer (loop) 3 - Play Mini 2 Game
  layer (loop) 2 - return to mini 2 game menu on way out
layer (loop) 1 - return to main menu on way out