Sorry your browser is not supported!

sync on
backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
`load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
`prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,5
  if rightkey()=1 and x#<385 then inc x#,5
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,15
  dmg=damage*2
  if z#=>10500 then gosub round2
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction











round2:




for all=1 to 102
delete object all
next all
cls
backdrop off
ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Info: Suit-Reduces size"
 wait key
else
 print "You made it to round 2!"

endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,1000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(1000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(1000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0
make object cone 101,40
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,5
  if rightkey()=1 and x#<385 then inc x#,5
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,15
  dmg=damage*2
  if z#=>1500 then gosub round3
  sync
loop


round3:

sync on
backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
`load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
`prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,5
  if rightkey()=1 and x#<385 then inc x#,5
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,15
  dmg=damage*2
  if z#=>1500 then gosub round2
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction











round2:




for all=1 to 102
delete object all
next all
cls
backdrop off
ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Info: Suit-Reduces size"
 wait key
else
 print "You made it to round 2!"

endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,1000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(1000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(1000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0
make object cone 101,40
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,5
  if rightkey()=1 and x#<385 then inc x#,5
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,15
  dmg=damage*2
  if z#=>1500 then gosub round3
  sync
loop

round3:

sync on
backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
`load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
`prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,5
  if rightkey()=1 and x#<385 then inc x#,5
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,15
set cursor 100,100
Print z#
  dmg=damage*2
  if z#=>10500 then gosub round2
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction











round2:
sync off



for all=1 to 102
delete object all
next all
cls
backdrop off
ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Info: Suit-Reduces size"
 wait key
else
 print "You made it to round 2!"

endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,1000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(1000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(1000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0
make object cone 101,40
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200

sync on

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,5
  if rightkey()=1 and x#<385 then inc x#,5
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,15
  dmg=damage*2
  if z#=>1500 then gosub round3
  sync
loop

round3:

sync on
backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
`load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
`prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,5
  if rightkey()=1 and x#<385 then inc x#,5
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,15
set cursor 100,100
Print z#
  dmg=damage*2
  if z#=>10500 then gosub round2
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction











round2:
sync off



for all=1 to 102
delete object all
next all
cls
backdrop off
ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Info: Suit-Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,1000,10,100
position matrix 1,-20,-15,0
`prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(1000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(1000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0
make object cone 101,40
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200

sync on

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,5
  if rightkey()=1 and x#<385 then inc x#,5
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,15
  dmg=damage*2
  if z#=>1500 then gosub round3
  sync
loop

round3:

sync on
backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
`load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
`prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,5
  if rightkey()=1 and x#<385 then inc x#,5
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,15
set cursor 100,100
Print z#
  dmg=damage*2
  if z#=>10500 then gosub round2
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction











round2:
sync off



for all=1 to 102
delete object all
next all
cls
backdrop off
ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Info: Suit-Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
`prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200

sync on

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,5
  if rightkey()=1 and x#<385 then inc x#,5
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,15
  dmg=damage*2
  if z#=>10500 then gosub round3
  sync
loop

round3:

sync on

backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,8
  dmg=damage*2
  if z#=>10500 then gosub round2
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction











round2:
sync off



for all=1 to 102
delete object all
next all
cls
backdrop off
ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Info: Suit-Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200

sync on

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,8
  dmg=damage*2
  if z#=>10500 then gosub round3
  sync
loop

round3:

sync on

backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10500 then gosub round2
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction











round2:
sync off



for all=1 to 102
delete object all
next all
cls
backdrop off
ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Info: Suit-Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200

sync on

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10500 then gosub round3
  sync
loop

round3:

sync on

backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
time=20
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1
  
  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round2
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction











round2:
sync off



for all=1 to 102
delete object all
next all
cls
backdrop off
ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Info: Suit-Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=20
timer#=0
sync on

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

round3:

sync on
zspeed#=23
backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
time=20
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+35
  if rightkey()=1 then n#=n#-35
n#=Wrapvalue(n#)
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1
  
  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
 inc z#,zspeed#

  if upkey()=1 
 inc zspeed#,1
if zspeed#=> 23 then zspeed#=23 

endif
  if upkey()=0 
 dec zspeed#,1
if zspeed#=< 0 then zspeed#=0 

endif
 dmg=damage*2
  if z#=>10050 then gosub round2
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction











round2:
sync off



for all=1 to 102
delete object all
next all
cls
backdrop off
ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Info: Suit-Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=20
timer#=0
sync on

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
inc z#,zspeed#

  if upkey()=1 
 inc zspeed#,1
if zspeed#=> 23 then zspeed#=23 

endif
  if upkey()=0 
 dec zspeed#,1
if zspeed#=< 0 then zspeed#=0 

endif

  dmg=damage*2
  if z#=>10050 then gosub round3
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

round3:

sync on

backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
time=20
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  
  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub score
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction


score:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off
health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=8 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"








round2:

ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Item Type:Suit - Item Effect:Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

round3:


health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=5 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"

sync on

backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
time=20
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  
  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub score
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction


score:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off
health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=8 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"








round2:

ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Item Type:Suit - Item Effect:Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on
damage=0
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

round3:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off


health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=5 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"
wait key

`Cube Game
`By:
`Dark Dragon and Irojo
`
`-Project Goals-
`Level 3 & 4 Ice Levels
`Highscores
`
`-Items List-
`shrinker = Shrinks The character and makes it gold
`
`rainbow = Will make the Character Rainbow and give the ability to go backwards
`rainbow = with the side effect of slowing down the character.
`





sync on

backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
time=20
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  
  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub score
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"
center text 320,320,"Beat the level as fast as you can with as little damage for score bonuses!"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction


score:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off
health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=8 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"








round2:

ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Item Type:Suit - Item Effect:Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on
damage=0
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:rainbow=1:hide object 102
  if object collision(101,0)>0 then inc damage,1

  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

round3:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off


health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=5 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"
wait key

`Cube Game
`By:
`Dark Dragon and Irojo
`
`-Project Goals-
`Level 3 & 4 Ice Levels
`
`
`-Items List-
`shrinker = Shrinks The character and makes it gold
`
`rainbow = Will make the Character Rainbow and give the ability to go backwards
`rainbow = with the side effect of slowing down the character.
`





sync on

backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
time=20
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,1:shrinker=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  
  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub score
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"
center text 320,320,"Beat the level as fast as you can with as little damage for score bonuses!"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction


score:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off
health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=8 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"








round2:

ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Item Type:Suit - Item Effect:Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on
damage=0
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,1:rainbow=1:hide object 102
  if object collision(101,0)>0 then inc damage,1

  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

round3:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off


health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=5 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"
wait key
cls

for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on
damage=0
cls

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:rainbow=1:hide object 102
  if object collision(101,0)>0 then inc damage,1

  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

`Cube Game
`By:
`Dark Dragon and Irojo
`
`-Project Goals-
`Level 3 & 4 Ice Levels
`
`
`-Items List-
`shrinker = Shrinks The character and makes it gold
`
`rainbow = Will make the Character Rainbow and give the ability to go backwards
`rainbow = with the side effect of slowing down the character.
`





sync on

backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
time=20
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,1:shrinker=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  
  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub score
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"
center text 320,320,"Beat the level as fast as you can with as little damage for score bonuses!"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction


score:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off
health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=8 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"








round2:

ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Item Type:Suit - Item Effect:Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on
damage=0
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,1:rainbow=1:hide object 102
  if object collision(101,0)>0 then inc damage,1

  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

round3:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off


health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=5 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"
wait key
cls

for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on
damage=0
cls
backdrop on
sync

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:rainbow=1:hide object 102
  if object collision(101,0)>0 then inc damage,1

  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

`Cube Game
`By:
`Dark Dragon and Irojo
`
`-Project Goals-
`Level 3 & 4 Ice Levels
`
`
`-Items List-
`shrinker = Shrinks The character and makes it gold
`
`rainbow = Will make the Character Rainbow and give the ability to go backwards
`rainbow = with the side effect of slowing down the character.
`





sync on

backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
time=20
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,1:shrinker=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  
  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub score
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"
center text 320,320,"Beat the level as fast as you can with as little damage for score bonuses!"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction


score:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off
health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=8 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"








round2:

ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Item Type:Suit - Item Effect:Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on
damage=0
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,1:rainbow=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  color object 102,rgb(rnd(55)+200,rnd(55)+200,rnd(55+200))
  if wearshrinker=0 then color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

round3:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off


health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=5 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"
wait key
cls
ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Item Type:Suit - Item Effect:Allows you to go Backwards, however, slows you down."
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Rainbow? (y)es or (n)o? (Will unequip all other items)"
 do
  if inkey$()="y" then wearrainbow=1:exit
  if inkey$()="n" then wearrainbow=0:exit
 sync
 loop
endif







for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on
damage=0
backdrop on
cls

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:rainbow=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  if wearrainbow=1 and downkey()=1 then z#=z#-1
  if wearrainbow=1 then color object 101,rgb(rnd(55)+200,rnd(55)+200,rnd(55)+200)
  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

`Cube Game
`By:
`Dark Dragon and Irojo
`
`-Project Goals-
`Level 3 & 4 Ice Levels
`
`
`-Items List-
`shrinker = Shrinks The character and makes it gold
`
`rainbow = Will make the Character Rainbow and give the ability to go backwards
`rainbow = with the side effect of slowing down the character.
`





sync on

backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
time=20
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,1:shrinker=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  
  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub score
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"
center text 320,320,"Beat the level as fast as you can with as little damage for score bonuses!"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction


score:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off
health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=8 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"








round2:

ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Item Type:Suit - Item Effect:Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on
damage=0
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,1:rainbow=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  color object 102,rgb(rnd(55)+200,rnd(55)+200,rnd(55+200))
  if wearshrinker=0 then color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

round3:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off


health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=5 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"
wait key
cls
ink rgb(255,255,255),0
if rainbow=1
 print "You obtained an Item: Rainbow Outfit"
 print "Item Type:Suit - Item Effect:Allows you to go Backwards, however, slows you down."
 wait key
else
 print "You made it to round 3!"
 wait key
endif
cls
if rainbow=1
 print "Equip Rainbow? (y)es or (n)o? (Will unequip all other items)"
 do
  if inkey$()="y" then wearrainbow=1:exit
  if inkey$()="n" then wearrainbow=0:exit
 sync
 loop
endif






if wearrainbow=1 then wearshrinker=0
for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on
damage=0
backdrop on
cls

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if upkey()=1 and wearrainbow=1 then dec x#,1
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,1:rainbow=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  if wearrainbow=1 and downkey()=1 then z#=z#-1
  if wearrainbow=1 then color object 101,rgb(rnd(55)+200,rnd(55)+200,rnd(55)+200)
  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40


  sync
loop

`Cube Game
`By:
`Dark Dragon and Irojo
`
`-Project Goals-
`Level 3 & 4 Ice Levels
`Game over screen
`-Project Ideas-
`Store for upgrades?
`
`-Items List-
`shrinker = Shrinks The character and makes it gold
`
`rainbow = Will make the Character Rainbow and give the ability to go backwards
`rainbow = with the side effect of slowing down the character.
`





sync on

backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
time=20
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,1:shrinker=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  
  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub score
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40
  if time=0 then end
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"
center text 320,320,"Beat the level as fast as you can with as little damage for score bonuses!"
center text 320,360,"If you equip an item you can only replace it with another item."
center text 320,400,"Use the arrow keys to move. Press enter to continue in most parts."
center text 320,440,"Press SPACEBAR to select a menu option."
return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction


score:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off
health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=8 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"








round2:

ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Item Type:Suit - Item Effect:Reduces size"
 wait key
else
 print "You made it to round 2!"
 wait key
endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
wait 1000
sync on

cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on
damage=0
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,1:rainbow=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  color object 102,rgb(rnd(55)+200,rnd(55)+200,rnd(55+200))
  if wearshrinker=0 then color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40
  if time=0 then end

  sync
loop

round3:
sync off
set text size 10


for all=1 to 102
delete object all
next all
cls
backdrop off


health=100-damage
bigtime=time*3
score#=score#+health
score#=score#+bigtime
center text 320,240,"You finished the round with "+str$(time)+" second(s) to spare!"

center text 320,270,"You finished the round with "+str$(100-damage)+"% health!"
if damage<=0 then center text 320,300,"You got a Bonus for no Damage! +100!":score#=score#+100
if time>=5 then center text 320,330,"You got a Bonus for Speed! +200!":score#=score#+200
center text 320,360,"Your Overall Score is:"+str$(score#)+"!"
wait key
cls
ink rgb(255,255,255),0
if rainbow=1
 print "You obtained an Item: Rainbow Outfit"
 print "Item Type:Suit - Item Effect:Allows you to go Backwards, however, slows you down."
 wait key
else
 print "You made it to round 3!"
 wait key
endif
cls
if rainbow=1
 print "Equip Rainbow? (y)es or (n)o? (Will unequip all other items)"
 do
  if inkey$()="y" then wearrainbow=1:exit
  if inkey$()="n" then wearrainbow=0:exit
 sync
 loop
endif






if wearrainbow=1 then wearshrinker=0
for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
  sync
 until object collision(x,0)=0
endif
sync
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
  sync
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0

make object cone 101,30
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200
time=17
timer#=0
sync on
damage=0
backdrop on
cls

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,2
  if rightkey()=1 and x#<385 then inc x#,2
  if upkey()=1 and wearrainbow=1 then dec x#,1
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,1:rainbow=1:hide object 102
  if object collision(101,0)>0 then inc damage,1
  if wearrainbow=1 and downkey()=1 then z#=z#-1
  if wearrainbow=1 then color object 101,rgb(rnd(55)+200,rnd(55)+200,rnd(55)+200)
  `color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  if upkey()=1 then inc z#,8
  dmg=damage*2
  if z#=>10050 then gosub round3
  ink rgb(140,140,140),0
  center text 320,1,"Time:"+str$(time)
  inc timer#,.01
  if timer#>=1 then dec time,1:timer#=0
  if time=10 then set text size 40
  if time=0 then end


  sync
loop