Sorry your browser is not supported!

set camera to follow object position x(1), object position y(1), object position z(1), 90, 90, 290, 1, 0

position camera object position x(1), object position y(1)+190, object position z(1) : point camera object position x(1), object position y(1), object position z(1) : yrotate camera -90

Rem  set camera to follow
autocam off
make matrix 1,4000,4000,100,100
set matrix height 1,50,50,500
update matrix 1
make object box 1, 10,20,30
sync on : sync rate 60
while mouseclick()<>1
    if upkey()=1    then move object 1,4
    if downkey()=1  then move object 1,-4
    if leftkey()=1  then ya#=ya#-2
    if rightkey()=1 then ya#=ya#+2
    if shiftkey()=1   then an#=an#+1
    if controlkey()=1 then an#=an#-1

    rotate object 1, 0,ya#,0
    x#=object position x(1)
    y#=object position y(1)
    z#=object position z(1)
    angle#=object angle y(1)+an#
    distance#=200.0
    height#=100.0
    smooth#=12.0
    set camera to follow x#,y#,z#,angle#,distance#,height#,smooth#,0
    sync
endwhile
end

REM *****************************************
RemStart
*** TITLE - Galactic Math
*** VERSION - 1.0.0 LAST UPDATED - 11.21.2013
*** 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\Gala-Math.bmp"
ink rgb(0,0,0),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 2013"

REM LOAD SOUNDS
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 OptionsSection
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 MAIN SECTION
REM *** MAIN SECTION HEADER
REM OBJECT CREATION

REM FLOOR
Make object box 2, 200,50,200
position object 2, -1,-5,-1
color object 2,rgb(0,255,0)
REM PLAYER
make object sphere 1,50,20,50
color object 1,rgb(255,0,0)
position object 1,15,1,15

position camera -200,350,-200
point camera 15,5,15
yrotate camera -90
rem North Wall
make object box 3,500,300,10
rotate object 3,0,0,0
position object 3, 15,20,15
texture object 3,2

rem East Wall
make object box 4,2000,1000,10
rotate object 4,0,90,0
position object 4, 1005,500,0
texture object 4,3

rem North Wall
make object box 5,2000,1000,10
rotate object 5,0,180,0
position object 5, 0,500,-1005
texture object 5,4

rem West Wall
make object box 6,2000,1000,10
rotate object 6,0,270,0
position object 6, -1005,500,0
texture object 6,5

do
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#+.1 REM control the rotation
if leftkey() then rotation#=rotation#-.1 REM control the rotation
sync
loop