Will do
[EDIT]
How's the work going? I haven't had any time really to do anything noticable on the program. :/
[EDIT]
The third level still lags, but I made up for it... I'm starting to lose interest in this... It's not... fun enough. I want to make something... new.
`Cube Game
`By:
`Dark Dragon and Irojo
`
`-Project Goals-
`Fire level
`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
load image "twigs02.bmp",2
`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,2,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? (You can only wear an item once)"
do
if inkey$()="y" then wearrainbow=1:exit
if inkey$()="n" then wearrainbow=0:exit
sync
loop
endif
sync rate 0
if wearrainbow=1 then wearshrinker=0
for x=1 to 140
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
if object exist(142) then delete object 142
make object cylinder 142,10
position object 142,rnd(400),0,rnd(5000)
while object collision(142,0)>0
position object 142,rnd(400),0,rnd(5000)
sync
endwhile
while object collision(142,0)>0
position object 142,rnd(400),0,rnd(5000)
sync
endwhile
color object 142,rgb(255,255,0)
if wearshrinker=1
if object exist(141) then delete object 141
make object cone 141,20
color object 141,rgb(255,255,0)
endif
if wearshrinker=1
if object exist(141) then delete object 141
make object cone 141,30
color object 141,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 141,x#,y#,z#
if leftkey()=1 and x#>0 then dec x#,4
if rightkey()=1 and x#<385 then inc x#,4
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(141,142)>0 then dec damage,1:magic_hat=1:hide object 142
if object collision(141,0)>0 then inc damage,1
if wearrainbow=1 and downkey()=1 then z#=z#-1
if wearrainbow=1 then color object 141,rgb(rnd(55)+200,rnd(55)+200,rnd(55)+200)
`color object 141,rgb(255-dmg,255-dmg,255-dmg)
rotate object 141,0,14+n#,0
position camera x#,y#+50,z#-100
set cursor 0,0
if object collision(141,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#,16
dmg=damage*2
if z#=>10050 then gosub round4
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
round4:
`flame
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>=6 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 magic_hat=1
print "You obtained an Item: Magic hat!"
`----------------------item description---------
else
print "You made it to round 4!"
wait key
endif
if magic_hat=1
print "Equip Magic Hat? (y)es or (n)o? (Will NOT unequip all other items)"
do
if inkey$()="y" then wearmagic=1:exit
if inkey$()="n" then wearmagic=0:exit
sync
loop
endif
I urge you to watch the film "Who killed the electric car". Support electric cars! Did you know their used to be more electric cars then gassoline cars?
