Sorry your browser is not supported!

`-------This is a very BAISC gamey thingy bob intended only for newbies!
`-------This is not exactly platinum material!

`set up sync
sync on
sync rate 0

`Set up initial waypoint
waypoint#=1

`Set camera range
set camera range 1,100000

`Make a light
make light 1

`Make players cube
make object cube 1,2
color object 1,RGB(255,0,0)

`Make waypoints
for t=2 to 11
make object cube t,4
position object t,rnd(100),0,rnd(100)
next t

````````````````````````````````````````````````````````````````````````````````````````
do

`Move players box
move object 1,0.05

`position Camera
position camera object position x(1),object position y(1)+20,object position z(1)-50
point camera object position x(1),object position y(1),object position z(1)

`Waypoints

Remstart
Example Waypoint:
If (Waypoint equals the current waypoint)
If (The players box collides with the correct waypoint)
(Color that waypoint green)
(New Waypoint to go for)
Endif
Endif
Remend

`Waypoint 1
if waypoint#=1
if object collision(1,2)=1
color object 2,RGB(0,255,0)
waypoint#=2
endif
endif

`Waypoint 2
if waypoint#=2
if object collision(1,3)=1
color object 3,RGB(0,255,0)
waypoint#=3
endif
endif

`Waypoint 3
if waypoint#=3
if object collision(1,4)=1
color object 4,RGB(0,255,0)
waypoint#=4
endif
endif

`Waypoint 4
if waypoint#=4
if object collision(1,5)=1
color object 5,RGB(0,255,0)
waypoint#=5
endif
endif

`Waypoint 5
if waypoint#=5
if object collision(1,6)=1
waypoint#=6
color object 6,RGB(0,255,0)
endif
endif

`Waypoint 6
if waypoint#=6
if object collision(1,7)=1
waypoint#=7
color object 7,RGB(0,255,0)
endif
endif

`Waypoint 7
if waypoint#=7
if object collision(1,8)=1
waypoint#=8
color object 8,RGB(0,255,0)
endif
endif

`Waypoint 8
if waypoint#=8
if object collision(1,9)=1
waypoint#=9
color object 9,RGB(0,255,0)
endif
endif

`Waypoint 9
if waypoint#=9
if object collision(1,10)=1
waypoint#=10
color object 10,RGB(0,255,0)
endif
endif

`Waypoint 10
if waypoint#=10
if object collision(1,11)=1
waypoint#=11
color object 10,RGB(0,255,0)
endif
endif


`What happens when you win
if waypoint#=11
color object 11,RGB(0,255,0)
sleep 4000
end
endif

`turn block left/right with left/right keys
if rightkey()=1 then turn object right 1,0.25
if leftkey()=1 then turn object left 1,0.25

`Refresh
sync

loop
``````````````````````````````````````````````````````````````````````````````````
sync off

ink rgb(255,0,210),1
	
sync rate 20
sync on

	
	print "Dave: H";
	sync
   print "e";
	sync
   print "l";
   sync
   print "l";
   sync
   print "o!"
	

suspend for key
Ink rgb(200,115,10),1

print "   Joe: Y";
sync
print "o, ";
sync
print "D";
sync
print "a";
sync
print "v";
sync
print "e.";
sync
print "  W";
sync
print "h";
sync
print "a";
sync
print "t'";
sync
print "s  ";
sync
print "U";
sync
print "p?"

suspend for key
ink rgb(255,0,210),1

print "Dave: N";
sync
print "o";
sync
print "t";
sync
print "h";
sync
print "i";
sync
print "n";
sync
Print "g,";
sync
print "  y";
sync
print "o";
sync
Print "u?"

suspend for key
Ink rgb(200,115,10),1

print "   Joe: G";
sync
print "o";
sync
print "t ";
sync
print "a ";
sync
set cursor 255,50
Print "Complete the sentence"

Input "new ",new$

suspend for key
ink rgb(255,0,210),1

print "Dave: A";
sync
print "w";
sync
print "e";
sync
print "s";
sync
print "o";
sync
print "m";
sync
print "e!"
sync

sync off

cls
Print "Keys: Right and left arrow keys. Find the right box and it will turn green! Game will finish when all boxes are green."

suspend for key

cls

hide mouse

`-------This is a very BAISC gamey thingy bob intended only for newbies!
`-------This is not exactly platinum material!

`set up sync
sync on
sync rate 0

`Set up initial waypoint
waypoint#=1

`Set camera range
set camera range 1,100000

`Make a light
make light 1

`Make players cube
make object cube 1,2
color object 1,RGB(255,0,0)

`Make waypoints
for t=2 to 11
make object cube t,4
position object t,rnd(100),0,rnd(100)
next t

````````````````````````````````````````````````````````````````````````````````````````
do

`Move players box
move object 1,0.05

`position Camera
position camera object position x(1),object position y(1)+20,object position z(1)-50
point camera object position x(1),object position y(1),object position z(1)

`Waypoints

Remstart
Example Waypoint:
If (Waypoint equals the current waypoint)
If (The players box collides with the correct waypoint)
(Color that waypoint green)
(New Waypoint to go for)
Endif
Endif
Remend

`Waypoint 1
if waypoint#=1
if object collision(1,2)=1
color object 2,RGB(0,255,0)
waypoint#=2
endif
endif

`Waypoint 2
if waypoint#=2
if object collision(1,3)=1
color object 3,RGB(0,255,0)
waypoint#=3
endif
endif

`Waypoint 3
if waypoint#=3
if object collision(1,4)=1
color object 4,RGB(0,255,0)
waypoint#=4
endif
endif

`Waypoint 4
if waypoint#=4
if object collision(1,5)=1
color object 5,RGB(0,255,0)
waypoint#=5
endif
endif

`Waypoint 5
if waypoint#=5
if object collision(1,6)=1
waypoint#=6
color object 6,RGB(0,255,0)
endif
endif

`Waypoint 6
if waypoint#=6
if object collision(1,7)=1
waypoint#=7
color object 7,RGB(0,255,0)
endif
endif

`Waypoint 7
if waypoint#=7
if object collision(1,8)=1
waypoint#=8
color object 8,RGB(0,255,0)
endif
endif

`Waypoint 8
if waypoint#=8
if object collision(1,9)=1
waypoint#=9
color object 9,RGB(0,255,0)
endif
endif

`Waypoint 9
if waypoint#=9
if object collision(1,10)=1
waypoint#=10
color object 10,RGB(0,255,0)
endif
endif

`Waypoint 10
if waypoint#=10
if object collision(1,11)=1
waypoint#=11
color object 10,RGB(0,255,0)
endif
endif


`What happens when you win
if waypoint#=11
color object 11,RGB(0,255,0)
sleep 4000
end
endif

`turn block left/right with left/right keys
if rightkey()=1 then turn object right 1,0.25
if leftkey()=1 then turn object left 1,0.25

`Refresh
sync

loop
``````````````````````````````````````````````````````````````````````````````````
sync off


end

`-------This is a very BAISC gamey thingy bob intended only for newbies!
`-------This is not exactly platinum material!

`set up sync
sync on
sync rate 60

`Set up initial waypoint
waypoint#=1

`Set camera range
set camera range 1,100000

`**Make the matrix to walk on
make matrix 1,100,100,10,10
`Now we gonna position the matrix
position matrix 1,0,-5,0
`Now the matrix is ready and set up!

`Make a light
make light 1

`Make players cube
make object cube 1,2
color object 1,RGB(255,0,0)

`Make waypoints
for t=2 to 11
make object cube t,4
position object t,rnd(100),0,rnd(100)
next t

`**Now make the timer variable that we gonna use for the time. You can always change the
`Number to get a higher or lower time
time# = 3000

````````````````````````````````````````````````````````````````````````````````````````
do

`here we gonna print the timer
set cursor 0,0
print "Time Left : "; time#

`**here we gonna start the timer
time# = time#-1

`Now if the timer is = 0 then you lose
if time# = 0
end
endif

`Move players box
move object 1,0.05

`position Camera
position camera object position x(1),object position y(1)+20,object position z(1)-50
point camera object position x(1),object position y(1),object position z(1)

`Waypoints

Remstart
Example Waypoint:
If (Waypoint equals the current waypoint)
If (The players box collides with the correct waypoint)
(Color that waypoint green)
(New Waypoint to go for)
Endif
Endif
Remend

`Waypoint 1
if waypoint#=1
if object collision(1,2)=1
color object 2,RGB(0,255,0)
waypoint#=2
endif
endif

`Waypoint 2
if waypoint#=2
if object collision(1,3)=1
color object 3,RGB(0,255,0)
waypoint#=3
endif
endif

`Waypoint 3
if waypoint#=3
if object collision(1,4)=1
color object 4,RGB(0,255,0)
waypoint#=4
endif
endif

`Waypoint 4
if waypoint#=4
if object collision(1,5)=1
color object 5,RGB(0,255,0)
waypoint#=5
endif
endif

`Waypoint 5
if waypoint#=5
if object collision(1,6)=1
waypoint#=6
color object 6,RGB(0,255,0)
endif
endif

`Waypoint 6
if waypoint#=6
if object collision(1,7)=1
waypoint#=7
color object 7,RGB(0,255,0)
endif
endif

`Waypoint 7
if waypoint#=7
if object collision(1,8)=1
waypoint#=8
color object 8,RGB(0,255,0)
endif
endif

`Waypoint 8
if waypoint#=8
if object collision(1,9)=1
waypoint#=9
color object 9,RGB(0,255,0)
endif
endif

`Waypoint 9
if waypoint#=9
if object collision(1,10)=1
waypoint#=10
color object 10,RGB(0,255,0)
endif
endif

`Waypoint 10
if waypoint#=10
if object collision(1,11)=1
waypoint#=11
color object 10,RGB(0,255,0)
endif
endif


`What happens when you win
if waypoint#=11
color object 11,RGB(0,255,0)
sleep 4000
end
endif

`turn block left/right with left/right keys
if rightkey()=1 then turn object right 1,0.25
if leftkey()=1 then turn object left 1,0.25

`Refresh
sync

loop
``````````````````````````````````````````````````````````````````````````````````
sync off

`-------This is a very BAISC gamey thingy bob intended only for newbies!
`-------This is not exactly platinum material!

`set up sync
sync on
sync rate 360

`Set up initial waypoint
waypoint#=1

`Set camera range
set camera range 1,100000

`**Make the matrix to walk on
make matrix 1,100,100,10,10
`Now we gonna position the matrix
position matrix 1,0,-5,0
`Now the matrix is ready and set up!

`Make a light
make light 1

`Make players cube
make object cube 1,2
color object 1,RGB(255,0,0)

`Make waypoints
for t=2 to 11
make object cube t,4
position object t,rnd(100),0,rnd(100)
next t

`**Now make the timer variable that we gonna use for the time. You can always change the
`Number to get a higher or lower time
time# = 3000

````````````````````````````````````````````````````````````````````````````````````````
do


`Move players box
move object 1,0.16

`position Camera
position camera object position x(1),object position y(1)+20,object position z(1)-50
point camera object position x(1),object position y(1),object position z(1)

`Waypoints

Remstart
Example Waypoint:
If (Waypoint equals the current waypoint)
If (The players box collides with the correct waypoint)
(Color that waypoint green)
(New Waypoint to go for)
Endif
Endif
Remend

`Waypoint 1
if waypoint#=1
if object collision(1,2)=1
delete object 2
waypoint#=2
endif
endif

`Waypoint 2
if waypoint#=2
if object collision(1,3)=1
delete object 3
waypoint#=3
endif
endif

`Waypoint 3
if waypoint#=3
if object collision(1,4)=1
delete object 4
waypoint#=4
endif
endif

`Waypoint 4
if waypoint#=4
if object collision(1,5)=1
delete object 5
waypoint#=5
endif
endif

`Waypoint 5
if waypoint#=5
if object collision(1,6)=1
waypoint#=6
delete object 6
endif
endif

`Waypoint 6
if waypoint#=6
if object collision(1,7)=1
waypoint#=7
delete object 7
endif
endif

`Waypoint 7
if waypoint#=7
if object collision(1,8)=1
waypoint#=8
delete object 8
endif
endif

`Waypoint 8
if waypoint#=8
if object collision(1,9)=1
waypoint#=9
delete object 9
endif
endif

`Waypoint 9
if waypoint#=9
if object collision(1,10)=1
waypoint#=10
delete object 10
endif
endif

`Waypoint 10
if waypoint#=10
if object collision(1,11)=1
waypoint#=11
delete object 11
endif
endif


`What happens when you win
if waypoint#=11
delete object 1
sleep 4000
end
endif

`turn block left/right with left/right keys
if rightkey()=1 then turn object right 1,0.75
if leftkey()=1 then turn object left 1,0.75

`Refresh
sync

loop
``````````````````````````````````````````````````````````````````````````````````
sync off

SYNC ON:SYNC RATE 0:HIDE MOUSE:AUTOCAM OFF:SET CAMERA RANGE 1,100000

MAKE LIGHT 1` Make a light

MAKE OBJECT CUBE 1,2` Make our player object
COLOR OBJECT 1,RGB(255,0,0)`Color our player red

MAKE OBJECT CUBE 5000,.1`Create a "dummy" object
MAKE MESH FROM OBJECT 5000,1`Create a mesh or "blue print" of the dummy object
DELETE OBJECT 5000`Delete the dummy object to reduce lag, it's not needed any more
ADD LIMB 1,1,5000`Create a limb from the mesh "blue print" and then add it to object 1, our character
OFFSET LIMB 1,1,0,5,-10`Offset or Position the limb far behind our character (object 1) and slightly in the air
HIDE LIMB 1,1`Hide the limb so we can't see it, it's not supposed to be seen

`Define Variables
Waypoint#=10`Starting Waypoint, 10 is the first object
MaxWaypoints#=20`Ending Waypoint, 20 is the last object.
RemainingWaypoints#=MaxPaypoints#-Waypoint#
CollectedWaypoints#=Waypoint#

FOR t=10 to MaxWaypoints#`Defines a for statement from 10 to 20
MAKE OBJECT CUBE t,4` Makes a cube for the current t
POSITION OBJECT t,-100+RND(200),0,-100+RND(200)` Positions t at rand place
NEXT t` Goes to next t

DO

CollectedWaypoints#=Waypoint#-10

CENTER TEXT 312.5,0,"- Vusay's Box Game -"
TEXT 0,0,"Game Stats"
TEXT 0,15,"Collected Waypoints: "+str$(CollectedWaypoints#)

IF GameOver#=0
MOVE OBJECT 1,.25

POSITION CAMERA LIMB POSITION X(1,1),LIMB POSITION Y(1,1),LIMB POSITION Z(1,1)`Position the camera at the 3rd Person Limb coordinates
POINT CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)`Point the camera at the character object so we can always see it

IF RIGHTKEY()=1 THEN YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+1)` Rotate the object right if the rightkey is pressed
IF LEFTKEY()=1 THEN YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)-1) `Rotate the object left if the leftkey is pressed

FOR i = 10 to MaxWaypoints#
IF i=Waypoint# AND OBJECT COLLISION(1,i) > 0` If the user collides with the current waypoint, i
COLOR OBJECT i,RGB(0,255,0)` Colour the waypoint object green
Waypoint#=Waypoint#+1` Increase the waypoint var to 1
IF Waypoint#=MaxWaypoints#+1 THEN GameOver#=1` If the current waypoint var = maxwaypoints then set gameover to 1
ENDIF
NEXT i
ENDIF

IF GameOver#=1
CENTER TEXT 312.5,190,"Game Over! You collected all of the waypoints!"
CENTER TEXT 312.5,205,"Would you like to restart the game? (Y/N)"
ENDIF

IF KEYSTATE(21)=1 THEN END
IF KEYSTATE(49)=1 THEN END

SYNC
LOOP