Meteor Swarm - GameCreators Forum

Author

Message

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 14th Jun 2005 21:11 Edited at: 18th Mar 2006 12:30

Link

This is my first 20-liner (actually 16 lines). It is a simple game but is very fun. It requires no media and the gameplay is endless. Play and enjoy. Here is a picture of the gameplay.

Here is the most recent update

`_______________METEOR_SWARM_______________

`____CONTROLS_____
`USE SLOW MOTION SPECIAL  - DOWN ARROW KEY
`USE LASER SPECIAL        - RIGHT MOUSE CLICK
`FIRE BASIC SHOT          - LEFT MOUSE CLICK
`MOVE BASE                - LEFT/RIGHT ARROW KEYS
`AIM BASE                 - LEFT/RIGHT MOUSE
`PAUSE GAME               - P/CTRL

set display mode 640,480,16:set text size 18 :autocam off:move camera -25:hide mouse:make object sphere 1,1.5:move object down 1,10:make object cone 2,.5:move object down 2,9.5:scale object 2,150,200,100:c2 = rgb(100,100,100):color object 2,c2:color object 1,c2:randomize timer():leveldone = 1:sbn = 15:energy# = 100:level = 0:restart = 0:death=0:laserc#=50:points = 0:t2 = 1:cls:for t = 1 to 320:c1 = rgb(rnd(250),rnd(250),rnd(250)):c2 = rgb(rnd(250),rnd(250),rnd(250)): ink c1,c2:box t,t2,640-t,480-t2:t2 = t2 + 1:next t:get image 1,0,0,640,480:make object cube 14,150:texture object 14,1:set object cull 14,0:c1 = rgb(250,250,250):black=rgb(0,0,0): ink c1,black
sync on:sync rate 60:make object cylinder 13,.1:scale object 13,1000,100000,100:ghost object on 13:red = rgb(200,0,0):fade object 13,75:set object emissive 13,red:make object box 12,3,.5,.01:set object collision off 12:color object 12,rgb(10,200,10):set object emissive 12,rgb(10,200,10):make object box 11,3,.5,.01:set object collision off 11:color object 11,rgb(210,20,210)
do:grey=rgb(200-energy#,50+(energy#/2),50+(energy#/2)):color object 1,grey:color object 2,grey:xrotate object 14,object angle x(14)+speedm#:yrotate object 14,object angle y(14)+speedm#*1.5:if energy# > 100: energy# = 100:endif:set cursor 1,430:print " Level: ";level;"           Energy Left: ";int(energy#);"     Special: ";int((laserc#)*2);"%          Points: ";points
if leveldone = 1:level = level + 1:leveldone = 0:sbn = 15:sne2 = 0:level# = level:make object sphere sbn,2+(level#/5):sne=level:tests = 1:sbnr = sbn:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object sbn,c1:set object emissive sbn,c1:if sne > 4 and sne < 9: sne = 4:sne2=level-sne:tests = 2:endif:if sne > 8: sne = level-4:tests = 2:sne2=sne:endif
px# = rnd(640): py# = rnd(480):point object sbn,px#,py#,0:sbn = sbn + 1:endif:hml=0
for t = sbnr to sbn:if object exist (t) = 1: hml=1:move object t,speedm#*(1+(level#/19)):if object position x(t)< -10 or object position x(t) > 10 or object position y(t) < -10 or object position y(t) > 10: move object t,-speedm#*(1+(level#/19)):zrotate object t,object angle z(t)-rnd(90)-45:endif:endif
if object exist (t) = 1: if object collision(1,t) = 1 or object collision(2,t) = 1: energy# = energy# - speedm#*5:red=rgb(200,10,10):color object 1,red:color object 2,red:endif:endif:if energy# < 1: energy# = 0:endif:if energy# = 0 :ghost object on 1:ghost object on 2:spx# = 0:do:spx# = spx# + 30:scale object 1,spx#,spx#,spx#:scale object 2,spx#,spx#,spx#:if spx# > 900:exit:endif:sync
loop:spx# = 0:scale object 1,100,100,100:scale object 2,150,200,100:ghost object off 1:ghost object off 2:hide object 1:hide object 2:do:set cursor 185,300:print "Game Over-Press Space to play again":if escapekey() = 1:end:endif:if spacekey() = 1:exit:endif:sync
set cursor 1,430:print " Level: ";level;"           Energy Left: ";int(energy#);"     Special: ";int((laserc#)*2);"%          Points: ";points:loop: level = 0:restart = 0:laserc# = 50:energy# = 100:death = 0:points = 0:leveldone = 1:show object 1:show object 2:for t2 = sbnr to sbn:if object exist (t2) = 1: delete object t2:endif:next t2:endif:next t:if hml = 0: leveldone = 1:endif
if death = 0:zrotate object 2,object angle z(2)-mousemovex():if object angle z(2) < -90: zrotate object 2,-90:endif:if object angle z(2) > 90: zrotate object 2,90:endif:lk#=leftkey():rk#=rightkey() :move object left 1,lk#/5:move object right 1,rk#/5:if object position x(1) <-10: move object right 1,.2: move object right 2,.2:endif
if object position x(1) >10: move object left 1,.2:endif:position object 2,object position x(1),-10,0:move object up 2,1:endif:if mouseclick() = 1 and death = 0: if object exist(3) = 0:mt=3:endif:if mt>0: make object sphere mt,.5:zrotate object mt,object angle z(2):position object mt,object position x(2),object position y(2),0:mt = 0:endif:endif
for t = 1 to 3*(1+(lasera*5)):if object exist(3) = 1: move object up 3,.5:if object position x(3) < -10 or object position x(3) > 10 or object position y(3) >10: delete object 3:endif:endif:rex = 0:if object exist(3) = 1:if object collision (3,0)>0:if object collision (3,0) = sbnr: explode = 1:rex = 3:endif:if object collision (3,0) > sbnr and object collision (3,0) < sbnr+sne+1: explode = 2:rex = 3:endif:if object collision (3,0) > sbnr + sne: delete object object collision (3,0):delete object 3:points = points + 1*level:endif:endif:endif
if object collision (13,0)>0 and lasera=1 and rex = 0:if object collision (13,0) = sbnr: explode = 1:rex = 13:endif:if object collision (13,0) > sbnr and object collision (13,0) < sbnr+sne+1 and object position x(object collision(13,0))<>0 and object position y(object collision(13,0))<> 0: explode = 2:rex = 13:endif:if object collision (13,0) > sbnr + sne: delete object object collision (13,0):points = points + 1*level:endif:endif
if explode = 1 and rex >0:rzz=0:energy# = energy# + (level#+.05):points = points + 10*level:for t = sbnr+1 to sbnr+sne:rzx=rnd(50)+rzx+23:make object sphere t,1+(level#/20):sbn = sbn + 1:position object t,object position x(sbnr),object position y(sbnr),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t:delete object sbnr:if rex = 3:delete object 3:endif:explode = 0:endif
if explode = 2 and rex >0:rzx=0:energy# = energy# + (level#*.05):points = points + 5*level:obc3 = object collision(rex,0):for t = sbnr+sbn+1 to sbnr+sne+sne2+sbn:rzx=rnd(50)+rzx+23:make object sphere t,.5+(level#/80):position object t,object position x(object collision(rex,0)),object position y(object collision(rex,0)),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t
sbn = sbn+1+sne2+sne+sbnr:delete object obc3:if rex = 3:delete object 3:endif:explode = 0:endif:next t:zrotate object 13,object angle z(2):position object 13,object position x(2),object position y(2),0:move object up 13,50:scale object 13,100+(laserc#*30),100000,100:lasera=0:hide object 13:if mouseclick()=2 and laserc#>0:show object 13:lasera = 1:laserc#=laserc#-.5:if laserc#<0:laserc#=-2:lasera=0:endif:endif:laserc#=laserc#+.02:if laserc#>50:laserc#=50:endif
if laserc#>0:set object emissive 11,rgb(110,20,210):else:set object emissive 11,rgb(210,20,10):endif:position object 11,object position x(1),-11.5,0:scale object 11,laserc#*2,100,100:position object 12,object position x(1),-11,0:scale object 12,energy#,100,100:if inkey$() = "p" OR CONTROLKEY() = 1 :if pressp = 0:pressp = 1:do:if inkey$()<>"p" and controlkey() = 0:pressp = 0:endif:if inkey$() = "p" or controlkey() = 1: if pressp = 0:pressp = 1:exit:endif:endif:loop:endif:endif:if inkey$()<>"p" AND CONTROLKEY() = 0:pressp = 0:endif:if downkey()=1 and laserc#>0 and mouseclick() <> 2:laserc#=laserc#-.1:if laserc#<0:laserc#=-2:lasera=0:endif: speedm# = .02:else:speedm# = .1:endif:sync
loop

`______HINTS______
`1.) The SLOW MOTION SPECIAL does not affect the speed of your
`    base, use this to your advantage.
`2.) Try and use the LASER only when you can take out multiple
`    meteors at once.
`3.) Move around! Don't let those meteors hit you.

+ Code Snippet

`_______________METEOR_SWARM_______________

`____CONTROLS_____
`USE SLOW MOTION SPECIAL  - DOWN ARROW KEY
`USE LASER SPECIAL        - RIGHT MOUSE CLICK
`FIRE BASIC SHOT          - LEFT MOUSE CLICK
`MOVE BASE                - LEFT/RIGHT ARROW KEYS
`AIM BASE                 - LEFT/RIGHT MOUSE
`PAUSE GAME               - P/CTRL

set display mode 640,480,16:set text size 18 :autocam off:move camera -25:hide mouse:make object sphere 1,1.5:move object down 1,10:make object cone 2,.5:move object down 2,9.5:scale object 2,150,200,100:c2 = rgb(100,100,100):color object 2,c2:color object 1,c2:randomize timer():leveldone = 1:sbn = 15:energy# = 100:level = 0:restart = 0:death=0:laserc#=50:points = 0:t2 = 1:cls:for t = 1 to 320:c1 = rgb(rnd(250),rnd(250),rnd(250)):c2 = rgb(rnd(250),rnd(250),rnd(250)): ink c1,c2:box t,t2,640-t,480-t2:t2 = t2 + 1:next t:get image 1,0,0,640,480:make object cube 14,150:texture object 14,1:set object cull 14,0:c1 = rgb(250,250,250):black=rgb(0,0,0): ink c1,black
sync on:sync rate 60:make object cylinder 13,.1:scale object 13,1000,100000,100:ghost object on 13:red = rgb(200,0,0):fade object 13,75:set object emissive 13,red:make object box 12,3,.5,.01:set object collision off 12:color object 12,rgb(10,200,10):set object emissive 12,rgb(10,200,10):make object box 11,3,.5,.01:set object collision off 11:color object 11,rgb(210,20,210)
do:grey=rgb(200-energy#,50+(energy#/2),50+(energy#/2)):color object 1,grey:color object 2,grey:xrotate object 14,object angle x(14)+speedm#:yrotate object 14,object angle y(14)+speedm#*1.5:if energy# > 100: energy# = 100:endif:set cursor 1,430:print " Level: ";level;"           Energy Left: ";int(energy#);"     Special: ";int((laserc#)*2);"%          Points: ";points
if leveldone = 1:level = level + 1:leveldone = 0:sbn = 15:sne2 = 0:level# = level:make object sphere sbn,2+(level#/5):sne=level:tests = 1:sbnr = sbn:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object sbn,c1:set object emissive sbn,c1:if sne > 4 and sne < 9: sne = 4:sne2=level-sne:tests = 2:endif:if sne > 8: sne = level-4:tests = 2:sne2=sne:endif
px# = rnd(640): py# = rnd(480):point object sbn,px#,py#,0:sbn = sbn + 1:endif:hml=0
for t = sbnr to sbn:if object exist (t) = 1: hml=1:move object t,speedm#*(1+(level#/19)):if object position x(t)< -10 or object position x(t) > 10 or object position y(t) < -10 or object position y(t) > 10: move object t,-speedm#*(1+(level#/19)):zrotate object t,object angle z(t)-rnd(90)-45:endif:endif
if object exist (t) = 1: if object collision(1,t) = 1 or object collision(2,t) = 1: energy# = energy# - speedm#*5:red=rgb(200,10,10):color object 1,red:color object 2,red:endif:endif:if energy# < 1: energy# = 0:endif:if energy# = 0 :ghost object on 1:ghost object on 2:spx# = 0:do:spx# = spx# + 30:scale object 1,spx#,spx#,spx#:scale object 2,spx#,spx#,spx#:if spx# > 900:exit:endif:sync
loop:spx# = 0:scale object 1,100,100,100:scale object 2,150,200,100:ghost object off 1:ghost object off 2:hide object 1:hide object 2:do:set cursor 185,300:print "Game Over-Press Space to play again":if escapekey() = 1:end:endif:if spacekey() = 1:exit:endif:sync
set cursor 1,430:print " Level: ";level;"           Energy Left: ";int(energy#);"     Special: ";int((laserc#)*2);"%          Points: ";points:loop: level = 0:restart = 0:laserc# = 50:energy# = 100:death = 0:points = 0:leveldone = 1:show object 1:show object 2:for t2 = sbnr to sbn:if object exist (t2) = 1: delete object t2:endif:next t2:endif:next t:if hml = 0: leveldone = 1:endif
if death = 0:zrotate object 2,object angle z(2)-mousemovex():if object angle z(2) < -90: zrotate object 2,-90:endif:if object angle z(2) > 90: zrotate object 2,90:endif:lk#=leftkey():rk#=rightkey() :move object left 1,lk#/5:move object right 1,rk#/5:if object position x(1) <-10: move object right 1,.2: move object right 2,.2:endif
if object position x(1) >10: move object left 1,.2:endif:position object 2,object position x(1),-10,0:move object up 2,1:endif:if mouseclick() = 1 and death = 0: if object exist(3) = 0:mt=3:endif:if mt>0: make object sphere mt,.5:zrotate object mt,object angle z(2):position object mt,object position x(2),object position y(2),0:mt = 0:endif:endif
for t = 1 to 3*(1+(lasera*5)):if object exist(3) = 1: move object up 3,.5:if object position x(3) < -10 or object position x(3) > 10 or object position y(3) >10: delete object 3:endif:endif:rex = 0:if object exist(3) = 1:if object collision (3,0)>0:if object collision (3,0) = sbnr: explode = 1:rex = 3:endif:if object collision (3,0) > sbnr and object collision (3,0) < sbnr+sne+1: explode = 2:rex = 3:endif:if object collision (3,0) > sbnr + sne: delete object object collision (3,0):delete object 3:points = points + 1*level:endif:endif:endif
if object collision (13,0)>0 and lasera=1 and rex = 0:if object collision (13,0) = sbnr: explode = 1:rex = 13:endif:if object collision (13,0) > sbnr and object collision (13,0) < sbnr+sne+1 and object position x(object collision(13,0))<>0 and object position y(object collision(13,0))<> 0: explode = 2:rex = 13:endif:if object collision (13,0) > sbnr + sne: delete object object collision (13,0):points = points + 1*level:endif:endif
if explode = 1 and rex >0:rzz=0:energy# = energy# + (level#+.05):points = points + 10*level:for t = sbnr+1 to sbnr+sne:rzx=rnd(50)+rzx+23:make object sphere t,1+(level#/20):sbn = sbn + 1:position object t,object position x(sbnr),object position y(sbnr),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t:delete object sbnr:if rex = 3:delete object 3:endif:explode = 0:endif
if explode = 2 and rex >0:rzx=0:energy# = energy# + (level#*.05):points = points + 5*level:obc3 = object collision(rex,0):for t = sbnr+sbn+1 to sbnr+sne+sne2+sbn:rzx=rnd(50)+rzx+23:make object sphere t,.5+(level#/80):position object t,object position x(object collision(rex,0)),object position y(object collision(rex,0)),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t
sbn = sbn+1+sne2+sne+sbnr:delete object obc3:if rex = 3:delete object 3:endif:explode = 0:endif:next t:zrotate object 13,object angle z(2):position object 13,object position x(2),object position y(2),0:move object up 13,50:scale object 13,100+(laserc#*30),100000,100:lasera=0:hide object 13:if mouseclick()=2 and laserc#>0:show object 13:lasera = 1:laserc#=laserc#-.5:if laserc#<0:laserc#=-2:lasera=0:endif:endif:laserc#=laserc#+.02:if laserc#>50:laserc#=50:endif
if laserc#>0:set object emissive 11,rgb(110,20,210):else:set object emissive 11,rgb(210,20,10):endif:position object 11,object position x(1),-11.5,0:scale object 11,laserc#*2,100,100:position object 12,object position x(1),-11,0:scale object 12,energy#,100,100:if inkey$() = "p" OR CONTROLKEY() = 1 :if pressp = 0:pressp = 1:do:if inkey$()<>"p" and controlkey() = 0:pressp = 0:endif:if inkey$() = "p" or controlkey() = 1: if pressp = 0:pressp = 1:exit:endif:endif:loop:endif:endif:if inkey$()<>"p" AND CONTROLKEY() = 0:pressp = 0:endif:if downkey()=1 and laserc#>0 and mouseclick() <> 2:laserc#=laserc#-.1:if laserc#<0:laserc#=-2:lasera=0:endif: speedm# = .02:else:speedm# = .1:endif:sync
loop



`______HINTS______
`1.) The SLOW MOTION SPECIAL does not affect the speed of your
`    base, use this to your advantage.
`2.) Try and use the LASER only when you can take out multiple
`    meteors at once.
`3.) Move around! Don't let those meteors hit you.

Justin Cannizzaro

Attachments

Login to view attachments

Back to top

Profile PM Email

EvMaster

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Australia

Posted: 15th Jun 2005 00:17 Edited at: 15th Jun 2005 00:18

Link

The source button isn't working, try putting the code in code brackets.
Just press the "code" button at the top above the smilies.

-Ev

Back to top

Profile PM Email Website

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 17th Jun 2005 06:13

Link

Sorry bout that, that was my first time posting. Here is my second try, thx for the help.

Justin Cannizzaro

Back to top

Profile PM Email

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 17th Jun 2005 08:08 Edited at: 17th Jun 2005 08:09

Link

Use the [ code ] button at the top-right of the Post Forum Message area. Put it in front and after your code in the body of the message, like so (without the extra space) ...

[ code]
Print "Hello World"
Wait Key
[ /code]

Edit: Once your newb status is up and your posts start to post immediately, you can start using the Source area to post code.

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 17th Jun 2005 08:19

Link

Ok Thank you both for the help. Here goes another try, im doing the riidii way.

`            Meteor Swarm
`             -Controls-
`MOVE BASE LEFT             Left Key
`MOVE BASE RIGHT            Right Key
`AIM BASE                   Mouse left/right
`FIRE BOMB                  Left Mouse Click
set display mode 640,480,16:set text size 18 :autocam off:move camera -25:hide mouse:sync on:sync rate 60:make object sphere 1,1.5:move object down 1,10:make object cone 2,.5:move object down 2,9.5:scale object 2,150,200,100:c2 = rgb(100,100,100):color object 2,c2:color object 1,c2:randomize timer():leveldone = 1:sbn = 5:energy# = 100
points = 0:t2 = 1:cls:for t = 1 to 320:c1 = rgb(rnd(250),rnd(250),rnd(250)):c2 = rgb(rnd(250),rnd(250),rnd(250)): ink c1,c2:box t,t2,640-t,480-t2:t2 = t2 + 1:next t:get image 1,0,0,640,480:make object cube 4,150:texture object 4,1:set object cull 4,0:x1# = .1:y1# = .15:c1 = rgb(250,250,250):c1 = rgb(250,250,250): ink c1,c2
do:xrotate object 4,object angle x(4)+x1#:yrotate object 4,object angle y(4)+y1#:if energy# > 100: energy# = 100:endif:set cursor 150,1:print "Game Design and Programming: Justin Cannizzaro":set cursor 1,430:print "                            Level: ";level;"                  Energy Left: ";int(energy#);"                    Points: ";points
if leveldone = 1:level = level + 1:leveldone = 0:sbn = 5:sne2 = 0:level# = level:make object sphere sbn,2+(level#/5):sne=level:tests = 1:sbnr = sbn:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object sbn,c1:set object emissive sbn,c1:if sne > 4 and sne < 9: sne = 4:sne2=level-sne:tests = 2:endif:if sne > 8: sne = level-4:tests = 2:sne2=sne:endif
px# = rnd(640): py# = rnd(480):point object sbn,px#,py#,0:sbn = sbn + 1:endif:hml=0
for t = sbnr to sbn:if object exist (t) = 1: hml=1:move object t,.1+(level/20):if object position x(t)< -10 or object position x(t) > 10 or object position y(t) < -10 or object position y(t) > 10: move object t,-.1-(level/20):zrotate object t,object angle z(t)-rnd(90)-45:endif:endif
if object exist (t) = 1: if object collision(1,t) = 1 or object collision(2,t) = 1: energy# = energy# - .5:endif:endif:if energy# < 0:do:set cursor 185,300:print "Game Over-Press Space to play again":if spacekey() = 1:exit:endif:sync
set cursor 150,1:print "Game Design and Programming: Justin Cannizzaro":set cursor 1,430:print "                            Level: ";level;"                  Energy Left: ";int(energy#);"                    Points: ";points:loop: level = 0:energy# = 100:points = 0:leveldone = 1:for t2 = sbnr to sbn:if object exist (t2) = 1: delete object t2:endif:next t2:endif:next t:if hml = 0: leveldone = 1:endif
zrotate object 2,object angle z(2)-mousemovex():if object angle z(2) < -90: zrotate object 2,-90:endif:if object angle z(2) > 90: zrotate object 2,90:endif:lk#=leftkey():rk#=rightkey() :move object left 1,lk#/5:move object right 1,rk#/5:if object position x(1) <-10: move object right 1,.2: move object right 2,.2:endif
if object position x(1) >10: move object left 1,.2:endif:position object 2,object position x(1),-10,0:move object up 2,1:if mouseclick() = 1: if object exist(3) = 0: make object sphere 3,.5:zrotate object 3,object angle z(2):position object 3,object position x(2),object position y(2),0:endif:endif
if object exist(3) = 1: move object up 3,.5:if object position x(3) < -10 or object position x(3) > 10 or object position y(3) >10: delete object 3:endif:endif
if object exist(3) = 1:if object collision (3,0)>0:if object collision (3,0) = sbnr: explode = 1:endif:if object collision (3,0) > sbnr and object collision (3,0) < sbnr+sne+1: explode = 2:endif:if object collision (3,0) > sbnr + sne: delete object object collision (3,0):delete object 3:points = points + 1*level:endif:endif
if explode = 1:rzz=0:energy# = energy# + (level#+.05):points = points + 10*level:for t = sbnr+1 to sbnr+sne:rzx=rnd(50)+rzx+23:make object sphere t,1+(level#/20):sbn = sbn + 1:position object t,object position x(sbnr),object position y(sbnr),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t:delete object sbnr:delete object 3:explode = 0:endif
if explode = 2:rzx=0:energy# = energy# + (level#*.05):points = points + 5*level:obc3 = object collision(3,0):for t = sbnr+sbn+1 to sbnr+sne+sne2+sbn:rzx=rnd(50)+rzx+23:make object sphere t,.5+(level/20#):position object t,object position x(object collision(3,0)),object position y(object collision(3,0)),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t
sbn = sbn+1+sne2+sne+sbnr:delete object obc3:delete object 3:explode = 0:endif:endif:sync
loop

+ Code Snippet

`            Meteor Swarm
`             -Controls-
`MOVE BASE LEFT             Left Key
`MOVE BASE RIGHT            Right Key
`AIM BASE                   Mouse left/right
`FIRE BOMB                  Left Mouse Click
set display mode 640,480,16:set text size 18 :autocam off:move camera -25:hide mouse:sync on:sync rate 60:make object sphere 1,1.5:move object down 1,10:make object cone 2,.5:move object down 2,9.5:scale object 2,150,200,100:c2 = rgb(100,100,100):color object 2,c2:color object 1,c2:randomize timer():leveldone = 1:sbn = 5:energy# = 100
points = 0:t2 = 1:cls:for t = 1 to 320:c1 = rgb(rnd(250),rnd(250),rnd(250)):c2 = rgb(rnd(250),rnd(250),rnd(250)): ink c1,c2:box t,t2,640-t,480-t2:t2 = t2 + 1:next t:get image 1,0,0,640,480:make object cube 4,150:texture object 4,1:set object cull 4,0:x1# = .1:y1# = .15:c1 = rgb(250,250,250):c1 = rgb(250,250,250): ink c1,c2
do:xrotate object 4,object angle x(4)+x1#:yrotate object 4,object angle y(4)+y1#:if energy# > 100: energy# = 100:endif:set cursor 150,1:print "Game Design and Programming: Justin Cannizzaro":set cursor 1,430:print "                            Level: ";level;"                  Energy Left: ";int(energy#);"                    Points: ";points
if leveldone = 1:level = level + 1:leveldone = 0:sbn = 5:sne2 = 0:level# = level:make object sphere sbn,2+(level#/5):sne=level:tests = 1:sbnr = sbn:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object sbn,c1:set object emissive sbn,c1:if sne > 4 and sne < 9: sne = 4:sne2=level-sne:tests = 2:endif:if sne > 8: sne = level-4:tests = 2:sne2=sne:endif
px# = rnd(640): py# = rnd(480):point object sbn,px#,py#,0:sbn = sbn + 1:endif:hml=0
for t = sbnr to sbn:if object exist (t) = 1: hml=1:move object t,.1+(level/20):if object position x(t)< -10 or object position x(t) > 10 or object position y(t) < -10 or object position y(t) > 10: move object t,-.1-(level/20):zrotate object t,object angle z(t)-rnd(90)-45:endif:endif
if object exist (t) = 1: if object collision(1,t) = 1 or object collision(2,t) = 1: energy# = energy# - .5:endif:endif:if energy# < 0:do:set cursor 185,300:print "Game Over-Press Space to play again":if spacekey() = 1:exit:endif:sync
set cursor 150,1:print "Game Design and Programming: Justin Cannizzaro":set cursor 1,430:print "                            Level: ";level;"                  Energy Left: ";int(energy#);"                    Points: ";points:loop: level = 0:energy# = 100:points = 0:leveldone = 1:for t2 = sbnr to sbn:if object exist (t2) = 1: delete object t2:endif:next t2:endif:next t:if hml = 0: leveldone = 1:endif
zrotate object 2,object angle z(2)-mousemovex():if object angle z(2) < -90: zrotate object 2,-90:endif:if object angle z(2) > 90: zrotate object 2,90:endif:lk#=leftkey():rk#=rightkey() :move object left 1,lk#/5:move object right 1,rk#/5:if object position x(1) <-10: move object right 1,.2: move object right 2,.2:endif
if object position x(1) >10: move object left 1,.2:endif:position object 2,object position x(1),-10,0:move object up 2,1:if mouseclick() = 1: if object exist(3) = 0: make object sphere 3,.5:zrotate object 3,object angle z(2):position object 3,object position x(2),object position y(2),0:endif:endif
if object exist(3) = 1: move object up 3,.5:if object position x(3) < -10 or object position x(3) > 10 or object position y(3) >10: delete object 3:endif:endif
if object exist(3) = 1:if object collision (3,0)>0:if object collision (3,0) = sbnr: explode = 1:endif:if object collision (3,0) > sbnr and object collision (3,0) < sbnr+sne+1: explode = 2:endif:if object collision (3,0) > sbnr + sne: delete object object collision (3,0):delete object 3:points = points + 1*level:endif:endif
if explode = 1:rzz=0:energy# = energy# + (level#+.05):points = points + 10*level:for t = sbnr+1 to sbnr+sne:rzx=rnd(50)+rzx+23:make object sphere t,1+(level#/20):sbn = sbn + 1:position object t,object position x(sbnr),object position y(sbnr),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t:delete object sbnr:delete object 3:explode = 0:endif
if explode = 2:rzx=0:energy# = energy# + (level#*.05):points = points + 5*level:obc3 = object collision(3,0):for t = sbnr+sbn+1 to sbnr+sne+sne2+sbn:rzx=rnd(50)+rzx+23:make object sphere t,.5+(level/20#):position object t,object position x(object collision(3,0)),object position y(object collision(3,0)),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t
sbn = sbn+1+sne2+sne+sbnr:delete object obc3:delete object 3:explode = 0:endif:endif:sync
loop

Justin Cannizzaro

Back to top

Profile PM Email

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 18th Jun 2005 02:32

Link

Finally worked hope u guys enjoy.

Justin Cannizzaro

Back to top

Profile PM Email

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 18th Jun 2005 05:57

Link

Here is an updated version which fixes any known problems. Specifically that the game is now actually possible after level 20.

`            Meteor Swarm
`             -Controls-
`MOVE BASE LEFT             Left Key
`MOVE BASE RIGHT            Right Key
`AIM BASE                   Mouse left/right
`FIRE BOMB                  Left Mouse Click
set display mode 640,480,16:set text size 18 :autocam off:move camera -25:hide mouse:sync on:sync rate 60:make object sphere 1,1.5:move object down 1,10:make object cone 2,.5:move object down 2,9.5:scale object 2,150,200,100:c2 = rgb(100,100,100):color object 2,c2:color object 1,c2:randomize timer():leveldone = 1:sbn = 5:energy# = 100
points = 0:t2 = 1:cls:for t = 1 to 320:c1 = rgb(rnd(250),rnd(250),rnd(250)):c2 = rgb(rnd(250),rnd(250),rnd(250)): ink c1,c2:box t,t2,640-t,480-t2:t2 = t2 + 1:next t:get image 1,0,0,640,480:make object cube 4,150:texture object 4,1:set object cull 4,0:x1# = .1:y1# = .15:c1 = rgb(250,250,250):c1 = rgb(250,250,250): ink c1,c2
do:xrotate object 4,object angle x(4)+x1#:yrotate object 4,object angle y(4)+y1#:if energy# > 100: energy# = 100:endif:set cursor 150,1:print "Game Design and Programming: Justin Cannizzaro":set cursor 1,430:print "                            Level: ";level;"                  Energy Left: ";int(energy#);"                    Points: ";points
if leveldone = 1:level = level + 1:leveldone = 0:sbn = 5:sne2 = 0:level# = level:make object sphere sbn,2+(level#/5):sne=level:tests = 1:sbnr = sbn:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object sbn,c1:set object emissive sbn,c1:if sne > 4 and sne < 9: sne = 4:sne2=level-sne:tests = 2:endif:if sne > 8: sne = level-4:tests = 2:sne2=sne:endif
px# = rnd(640): py# = rnd(480):point object sbn,px#,py#,0:sbn = sbn + 1:endif:hml=0
for t = sbnr to sbn:if object exist (t) = 1: hml=1:move object t,.1+(level#/200):if object position x(t)< -10 or object position x(t) > 10 or object position y(t) < -10 or object position y(t) > 10: move object t,-.1-(level/20):zrotate object t,object angle z(t)-rnd(90)-45:endif:endif
if object exist (t) = 1: if object collision(1,t) = 1 or object collision(2,t) = 1: energy# = energy# - .5:endif:endif:if energy# < 0: energy# = 0:endif:if energy# = 0 and death = 0:death = 1:endif:if restart = 1:do:set cursor 185,300:print "Game Over-Press Space to play again":if spacekey() = 1:exit:endif:sync
set cursor 150,1:print "Game Design and Programming: Justin Cannizzaro":set cursor 1,430:print "                            Level: ";level;"                  Energy Left: ";int(energy#);"                    Points: ";points:loop: level = 0:restart = 0:energy# = 100:death = 0:points = 0:leveldone = 1:show object 1:show object 2:for t2 = sbnr to sbn:if object exist (t2) = 1: delete object t2:endif:next t2:endif:next t:if hml = 0: leveldone = 1:endif
if death = 0:zrotate object 2,object angle z(2)-mousemovex():if object angle z(2) < -90: zrotate object 2,-90:endif:if object angle z(2) > 90: zrotate object 2,90:endif:lk#=leftkey():rk#=rightkey() :move object left 1,lk#/5:move object right 1,rk#/5:if object position x(1) <-10: move object right 1,.2: move object right 2,.2:endif
if object position x(1) >10: move object left 1,.2:endif:position object 2,object position x(1),-10,0:move object up 2,1:endif:if mouseclick() = 1 and death = 0: if object exist(3) = 0: make object sphere 3,.5:zrotate object 3,object angle z(2):position object 3,object position x(2),object position y(2),0:endif:endif
if object exist(3) = 1: move object up 3,.5:if object position x(3) < -10 or object position x(3) > 10 or object position y(3) >10: delete object 3:endif:endif
if object exist(3) = 1:if object collision (3,0)>0:if object collision (3,0) = sbnr: explode = 1:endif:if object collision (3,0) > sbnr and object collision (3,0) < sbnr+sne+1: explode = 2:endif:if object collision (3,0) > sbnr + sne: delete object object collision (3,0):delete object 3:points = points + 1*level:endif:endif
if explode = 1:rzz=0:energy# = energy# + (level#+.05):points = points + 10*level:for t = sbnr+1 to sbnr+sne:rzx=rnd(50)+rzx+23:make object sphere t,1+(level#/20):sbn = sbn + 1:position object t,object position x(sbnr),object position y(sbnr),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t:delete object sbnr:delete object 3:explode = 0:endif
if explode = 2:rzx=0:energy# = energy# + (level#*.05):points = points + 5*level:obc3 = object collision(3,0):for t = sbnr+sbn+1 to sbnr+sne+sne2+sbn:rzx=rnd(50)+rzx+23:make object sphere t,.5+(level/20#):position object t,object position x(object collision(3,0)),object position y(object collision(3,0)),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t
sbn = sbn+1+sne2+sne+sbnr:delete object obc3:delete object 3:explode = 0:endif:endif:if death = 1:hide object 1:hide object 2:make object sphere 77777,1:c3 = rgb(150,50,50):ghost object on 77777:color object 77777,c3:set object emissive 77777,c3:szx# = 0:spx# = object position x(1):position object 77777,spx#,-10,0:death = 2:endif:if death = 2:szx# = szx#+30:scale object 77777,szx#,szx#,szx#:if szx# >900:szx# = 0 :delete object 77777:death= 0:restart=1:endif:endif:sync
loop

+ Code Snippet

`            Meteor Swarm
`             -Controls-
`MOVE BASE LEFT             Left Key
`MOVE BASE RIGHT            Right Key
`AIM BASE                   Mouse left/right
`FIRE BOMB                  Left Mouse Click
set display mode 640,480,16:set text size 18 :autocam off:move camera -25:hide mouse:sync on:sync rate 60:make object sphere 1,1.5:move object down 1,10:make object cone 2,.5:move object down 2,9.5:scale object 2,150,200,100:c2 = rgb(100,100,100):color object 2,c2:color object 1,c2:randomize timer():leveldone = 1:sbn = 5:energy# = 100
points = 0:t2 = 1:cls:for t = 1 to 320:c1 = rgb(rnd(250),rnd(250),rnd(250)):c2 = rgb(rnd(250),rnd(250),rnd(250)): ink c1,c2:box t,t2,640-t,480-t2:t2 = t2 + 1:next t:get image 1,0,0,640,480:make object cube 4,150:texture object 4,1:set object cull 4,0:x1# = .1:y1# = .15:c1 = rgb(250,250,250):c1 = rgb(250,250,250): ink c1,c2
do:xrotate object 4,object angle x(4)+x1#:yrotate object 4,object angle y(4)+y1#:if energy# > 100: energy# = 100:endif:set cursor 150,1:print "Game Design and Programming: Justin Cannizzaro":set cursor 1,430:print "                            Level: ";level;"                  Energy Left: ";int(energy#);"                    Points: ";points
if leveldone = 1:level = level + 1:leveldone = 0:sbn = 5:sne2 = 0:level# = level:make object sphere sbn,2+(level#/5):sne=level:tests = 1:sbnr = sbn:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object sbn,c1:set object emissive sbn,c1:if sne > 4 and sne < 9: sne = 4:sne2=level-sne:tests = 2:endif:if sne > 8: sne = level-4:tests = 2:sne2=sne:endif
px# = rnd(640): py# = rnd(480):point object sbn,px#,py#,0:sbn = sbn + 1:endif:hml=0
for t = sbnr to sbn:if object exist (t) = 1: hml=1:move object t,.1+(level#/200):if object position x(t)< -10 or object position x(t) > 10 or object position y(t) < -10 or object position y(t) > 10: move object t,-.1-(level/20):zrotate object t,object angle z(t)-rnd(90)-45:endif:endif
if object exist (t) = 1: if object collision(1,t) = 1 or object collision(2,t) = 1: energy# = energy# - .5:endif:endif:if energy# < 0: energy# = 0:endif:if energy# = 0 and death = 0:death = 1:endif:if restart = 1:do:set cursor 185,300:print "Game Over-Press Space to play again":if spacekey() = 1:exit:endif:sync
set cursor 150,1:print "Game Design and Programming: Justin Cannizzaro":set cursor 1,430:print "                            Level: ";level;"                  Energy Left: ";int(energy#);"                    Points: ";points:loop: level = 0:restart = 0:energy# = 100:death = 0:points = 0:leveldone = 1:show object 1:show object 2:for t2 = sbnr to sbn:if object exist (t2) = 1: delete object t2:endif:next t2:endif:next t:if hml = 0: leveldone = 1:endif
if death = 0:zrotate object 2,object angle z(2)-mousemovex():if object angle z(2) < -90: zrotate object 2,-90:endif:if object angle z(2) > 90: zrotate object 2,90:endif:lk#=leftkey():rk#=rightkey() :move object left 1,lk#/5:move object right 1,rk#/5:if object position x(1) <-10: move object right 1,.2: move object right 2,.2:endif
if object position x(1) >10: move object left 1,.2:endif:position object 2,object position x(1),-10,0:move object up 2,1:endif:if mouseclick() = 1 and death = 0: if object exist(3) = 0: make object sphere 3,.5:zrotate object 3,object angle z(2):position object 3,object position x(2),object position y(2),0:endif:endif
if object exist(3) = 1: move object up 3,.5:if object position x(3) < -10 or object position x(3) > 10 or object position y(3) >10: delete object 3:endif:endif
if object exist(3) = 1:if object collision (3,0)>0:if object collision (3,0) = sbnr: explode = 1:endif:if object collision (3,0) > sbnr and object collision (3,0) < sbnr+sne+1: explode = 2:endif:if object collision (3,0) > sbnr + sne: delete object object collision (3,0):delete object 3:points = points + 1*level:endif:endif
if explode = 1:rzz=0:energy# = energy# + (level#+.05):points = points + 10*level:for t = sbnr+1 to sbnr+sne:rzx=rnd(50)+rzx+23:make object sphere t,1+(level#/20):sbn = sbn + 1:position object t,object position x(sbnr),object position y(sbnr),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t:delete object sbnr:delete object 3:explode = 0:endif
if explode = 2:rzx=0:energy# = energy# + (level#*.05):points = points + 5*level:obc3 = object collision(3,0):for t = sbnr+sbn+1 to sbnr+sne+sne2+sbn:rzx=rnd(50)+rzx+23:make object sphere t,.5+(level/20#):position object t,object position x(object collision(3,0)),object position y(object collision(3,0)),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t
sbn = sbn+1+sne2+sne+sbnr:delete object obc3:delete object 3:explode = 0:endif:endif:if death = 1:hide object 1:hide object 2:make object sphere 77777,1:c3 = rgb(150,50,50):ghost object on 77777:color object 77777,c3:set object emissive 77777,c3:szx# = 0:spx# = object position x(1):position object 77777,spx#,-10,0:death = 2:endif:if death = 2:szx# = szx#+30:scale object 77777,szx#,szx#,szx#:if szx# >900:szx# = 0 :delete object 77777:death= 0:restart=1:endif:endif:sync
loop

Justin Cannizzaro

Back to top

Profile PM Email

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 12th Jul 2005 16:14

Link

Please feel free to post comments, scores, ect.

Justin Cannizzaro

Back to top

Profile PM Email

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 12th Jul 2005 18:52 Edited at: 12th Jul 2005 18:54

Link

Very nice. Very dizzy-ing. The background is great. I made it to level 7. No score to post though - I didn't see one.

Edit: Oh and there is a bug about half way through the 3rd to last line. Then number 20 is written 20#.

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

EvMaster

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Australia

Posted: 12th Jul 2005 21:23

Link

Yeah that's what I meant...
Nice game, I got up to level 4 before I found out they were killing me

Maybe you should make the ship go red or something when they crash into you.

-Ev

AMD939 3500+, Gigabyte PCI-E X800XL 256mb, 1024mb RAM
Logitech Z680 5.1 Speakers

Back to top

Profile PM Email Website

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 13th Jul 2005 16:27 Edited at: 13th Jul 2005 16:32

Link

Thanks for the comments. EvMaster I took your advice and made the ship get red when they crash into the base and I fixed the bug RiiDii found.
Same game for now, maybe i'll add power-ups when I got time. Thanks again.
Here is the code.

`            Meteor Swarm
`             -Controls-
`MOVE BASE LEFT             Left Key
`MOVE BASE RIGHT            Right Key
`AIM BASE                   Mouse left/right
`FIRE BOMB                  Left Mouse Click
set display mode 640,480,16:set text size 18 :autocam off:move camera -25:hide mouse:sync on:sync rate 60:make object sphere 1,1.5:move object down 1,10:make object cone 2,.5:move object down 2,9.5:scale object 2,150,200,100:c2 = rgb(100,100,100):color object 2,c2:color object 1,c2:randomize timer():leveldone = 1:sbn = 5:energy# = 100:level = 0:restart = 0:death=0
points = 0:t2 = 1:cls:for t = 1 to 320:c1 = rgb(rnd(250),rnd(250),rnd(250)):c2 = rgb(rnd(250),rnd(250),rnd(250)): ink c1,c2:box t,t2,640-t,480-t2:t2 = t2 + 1:next t:get image 1,0,0,640,480:make object cube 4,150:texture object 4,1:set object cull 4,0:x1# = .1:y1# = .15:c1 = rgb(250,250,250):c1 = rgb(250,250,250): ink c1,c2
do:grey=rgb(200-energy#,50+(energy#/2),50+(energy#/2)):color object 1,grey:color object 2,grey:xrotate object 4,object angle x(4)+x1#:yrotate object 4,object angle y(4)+y1#:if energy# > 100: energy# = 100:endif:set cursor 150,1:print "Game Design and Programming: Justin Cannizzaro":set cursor 1,430:print "                            Level: ";level;"                  Energy Left: ";int(energy#);"                    Points: ";points
if leveldone = 1:level = level + 1:leveldone = 0:sbn = 5:sne2 = 0:level# = level:make object sphere sbn,2+(level#/5):sne=level:tests = 1:sbnr = sbn:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object sbn,c1:set object emissive sbn,c1:if sne > 4 and sne < 9: sne = 4:sne2=level-sne:tests = 2:endif:if sne > 8: sne = level-4:tests = 2:sne2=sne:endif
px# = rnd(640): py# = rnd(480):point object sbn,px#,py#,0:sbn = sbn + 1:endif:hml=0
for t = sbnr to sbn:if object exist (t) = 1: hml=1:move object t,.1+(level#/200):if object position x(t)< -10 or object position x(t) > 10 or object position y(t) < -10 or object position y(t) > 10: move object t,-.1-(level/20):zrotate object t,object angle z(t)-rnd(90)-45:endif:endif
if object exist (t) = 1: if object collision(1,t) = 1 or object collision(2,t) = 1: energy# = energy# - .5:red=rgb(200,10,10):color object 1,red:color object 2,red:endif:endif:if energy# < 0: energy# = 0:endif:if energy# = 0 and death = 0:death = 1:endif:if restart = 1:do:set cursor 185,300:print "Game Over-Press Space to play again":if spacekey() = 1:exit:endif:sync
set cursor 150,1:print "Game Design and Programming: Justin Cannizzaro":set cursor 1,430:print "                            Level: ";level;"                  Energy Left: ";int(energy#);"                    Points: ";points:loop: level = 0:restart = 0:energy# = 100:death = 0:points = 0:leveldone = 1:show object 1:show object 2:for t2 = sbnr to sbn:if object exist (t2) = 1: delete object t2:endif:next t2:endif:next t:if hml = 0: leveldone = 1:endif
if death = 0:zrotate object 2,object angle z(2)-mousemovex():if object angle z(2) < -90: zrotate object 2,-90:endif:if object angle z(2) > 90: zrotate object 2,90:endif:lk#=leftkey():rk#=rightkey() :move object left 1,lk#/5:move object right 1,rk#/5:if object position x(1) <-10: move object right 1,.2: move object right 2,.2:endif
if object position x(1) >10: move object left 1,.2:endif:position object 2,object position x(1),-10,0:move object up 2,1:endif:if mouseclick() = 1 and death = 0: if object exist(3) = 0: make object sphere 3,.5:zrotate object 3,object angle z(2):position object 3,object position x(2),object position y(2),0:endif:endif
if object exist(3) = 1: move object up 3,.5:if object position x(3) < -10 or object position x(3) > 10 or object position y(3) >10: delete object 3:endif:endif
if object exist(3) = 1:if object collision (3,0)>0:if object collision (3,0) = sbnr: explode = 1:endif:if object collision (3,0) > sbnr and object collision (3,0) < sbnr+sne+1: explode = 2:endif:if object collision (3,0) > sbnr + sne: delete object object collision (3,0):delete object 3:points = points + 1*level:endif:endif
if explode = 1:rzz=0:energy# = energy# + (level#+.05):points = points + 10*level:for t = sbnr+1 to sbnr+sne:rzx=rnd(50)+rzx+23:make object sphere t,1+(level#/20):sbn = sbn + 1:position object t,object position x(sbnr),object position y(sbnr),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t:delete object sbnr:delete object 3:explode = 0:endif
if explode = 2:rzx=0:energy# = energy# + (level#*.05):points = points + 5*level:obc3 = object collision(3,0):for t = sbnr+sbn+1 to sbnr+sne+sne2+sbn:rzx=rnd(50)+rzx+23:make object sphere t,.5+(level#/80):position object t,object position x(object collision(3,0)),object position y(object collision(3,0)),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t
sbn = sbn+1+sne2+sne+sbnr:delete object obc3:delete object 3:explode = 0:endif:endif:if death = 1:hide object 1:hide object 2:make object sphere 77777,1:c3 = rgb(150,50,50):ghost object on 77777:color object 77777,c3:set object emissive 77777,c3:szx# = 0:spx# = object position x(1):position object 77777,spx#,-10,0:death = 2:endif:if death = 2:szx# = szx#+30:scale object 77777,szx#,szx#,szx#:if szx# >900:szx# = 0 :delete object 77777:death= 0:restart=1:endif:endif
sync
loop

+ Code Snippet

`            Meteor Swarm
`             -Controls-
`MOVE BASE LEFT             Left Key
`MOVE BASE RIGHT            Right Key
`AIM BASE                   Mouse left/right
`FIRE BOMB                  Left Mouse Click
set display mode 640,480,16:set text size 18 :autocam off:move camera -25:hide mouse:sync on:sync rate 60:make object sphere 1,1.5:move object down 1,10:make object cone 2,.5:move object down 2,9.5:scale object 2,150,200,100:c2 = rgb(100,100,100):color object 2,c2:color object 1,c2:randomize timer():leveldone = 1:sbn = 5:energy# = 100:level = 0:restart = 0:death=0
points = 0:t2 = 1:cls:for t = 1 to 320:c1 = rgb(rnd(250),rnd(250),rnd(250)):c2 = rgb(rnd(250),rnd(250),rnd(250)): ink c1,c2:box t,t2,640-t,480-t2:t2 = t2 + 1:next t:get image 1,0,0,640,480:make object cube 4,150:texture object 4,1:set object cull 4,0:x1# = .1:y1# = .15:c1 = rgb(250,250,250):c1 = rgb(250,250,250): ink c1,c2
do:grey=rgb(200-energy#,50+(energy#/2),50+(energy#/2)):color object 1,grey:color object 2,grey:xrotate object 4,object angle x(4)+x1#:yrotate object 4,object angle y(4)+y1#:if energy# > 100: energy# = 100:endif:set cursor 150,1:print "Game Design and Programming: Justin Cannizzaro":set cursor 1,430:print "                            Level: ";level;"                  Energy Left: ";int(energy#);"                    Points: ";points
if leveldone = 1:level = level + 1:leveldone = 0:sbn = 5:sne2 = 0:level# = level:make object sphere sbn,2+(level#/5):sne=level:tests = 1:sbnr = sbn:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object sbn,c1:set object emissive sbn,c1:if sne > 4 and sne < 9: sne = 4:sne2=level-sne:tests = 2:endif:if sne > 8: sne = level-4:tests = 2:sne2=sne:endif
px# = rnd(640): py# = rnd(480):point object sbn,px#,py#,0:sbn = sbn + 1:endif:hml=0
for t = sbnr to sbn:if object exist (t) = 1: hml=1:move object t,.1+(level#/200):if object position x(t)< -10 or object position x(t) > 10 or object position y(t) < -10 or object position y(t) > 10: move object t,-.1-(level/20):zrotate object t,object angle z(t)-rnd(90)-45:endif:endif
if object exist (t) = 1: if object collision(1,t) = 1 or object collision(2,t) = 1: energy# = energy# - .5:red=rgb(200,10,10):color object 1,red:color object 2,red:endif:endif:if energy# < 0: energy# = 0:endif:if energy# = 0 and death = 0:death = 1:endif:if restart = 1:do:set cursor 185,300:print "Game Over-Press Space to play again":if spacekey() = 1:exit:endif:sync
set cursor 150,1:print "Game Design and Programming: Justin Cannizzaro":set cursor 1,430:print "                            Level: ";level;"                  Energy Left: ";int(energy#);"                    Points: ";points:loop: level = 0:restart = 0:energy# = 100:death = 0:points = 0:leveldone = 1:show object 1:show object 2:for t2 = sbnr to sbn:if object exist (t2) = 1: delete object t2:endif:next t2:endif:next t:if hml = 0: leveldone = 1:endif
if death = 0:zrotate object 2,object angle z(2)-mousemovex():if object angle z(2) < -90: zrotate object 2,-90:endif:if object angle z(2) > 90: zrotate object 2,90:endif:lk#=leftkey():rk#=rightkey() :move object left 1,lk#/5:move object right 1,rk#/5:if object position x(1) <-10: move object right 1,.2: move object right 2,.2:endif
if object position x(1) >10: move object left 1,.2:endif:position object 2,object position x(1),-10,0:move object up 2,1:endif:if mouseclick() = 1 and death = 0: if object exist(3) = 0: make object sphere 3,.5:zrotate object 3,object angle z(2):position object 3,object position x(2),object position y(2),0:endif:endif
if object exist(3) = 1: move object up 3,.5:if object position x(3) < -10 or object position x(3) > 10 or object position y(3) >10: delete object 3:endif:endif
if object exist(3) = 1:if object collision (3,0)>0:if object collision (3,0) = sbnr: explode = 1:endif:if object collision (3,0) > sbnr and object collision (3,0) < sbnr+sne+1: explode = 2:endif:if object collision (3,0) > sbnr + sne: delete object object collision (3,0):delete object 3:points = points + 1*level:endif:endif
if explode = 1:rzz=0:energy# = energy# + (level#+.05):points = points + 10*level:for t = sbnr+1 to sbnr+sne:rzx=rnd(50)+rzx+23:make object sphere t,1+(level#/20):sbn = sbn + 1:position object t,object position x(sbnr),object position y(sbnr),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t:delete object sbnr:delete object 3:explode = 0:endif
if explode = 2:rzx=0:energy# = energy# + (level#*.05):points = points + 5*level:obc3 = object collision(3,0):for t = sbnr+sbn+1 to sbnr+sne+sne2+sbn:rzx=rnd(50)+rzx+23:make object sphere t,.5+(level#/80):position object t,object position x(object collision(3,0)),object position y(object collision(3,0)),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t
sbn = sbn+1+sne2+sne+sbnr:delete object obc3:delete object 3:explode = 0:endif:endif:if death = 1:hide object 1:hide object 2:make object sphere 77777,1:c3 = rgb(150,50,50):ghost object on 77777:color object 77777,c3:set object emissive 77777,c3:szx# = 0:spx# = object position x(1):position object 77777,spx#,-10,0:death = 2:endif:if death = 2:szx# = szx#+30:scale object 77777,szx#,szx#,szx#:if szx# >900:szx# = 0 :delete object 77777:death= 0:restart=1:endif:endif
sync
loop

Justin Cannizzaro

Back to top

Profile PM Email

Matinuker

20

Years of Service

User Offline

Joined: 25th Mar 2004

Location:

Posted: 15th Sep 2005 22:23 Edited at: 15th Sep 2005 22:24

Link

when I press any of the buttons at the top of the post box it does nothing

is that meant to happen?

Back to top

Profile PM Email Website

soapyfish

20

Years of Service

User Offline

Joined: 24th Oct 2003

Location: Yorkshire, England

Posted: 28th Sep 2005 22:52

Link

I like it, simple but fun. Great background.

*tries to think of witty and original signature*
*fails*

Back to top

Profile PM Email Website

Farchy Man

18

Years of Service

User Offline

Joined: 14th Aug 2005

Location: right here

Posted: 7th Oct 2005 18:28

Link

Nice game!

my score is 2567.

Great backround to.

Back to top

Profile PM

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 14th Oct 2005 21:50

Link

Thanks for the comments.

Justin Cannizzaro

Back to top

Profile PM Email

MMORPG programs

18

Years of Service

User Offline

Joined: 12th Nov 2005

Location:

Posted: 21st Nov 2005 05:57

Link

my scores only 1295. It's addicting though.

There are only two types of people. The ones that agree with me and the ones that are wrong

Back to top

Profile PM Email

Jedi Lord

19

Years of Service

User Offline

Joined: 11th Jun 2004

Location: Jedi Temple

Posted: 4th Dec 2005 07:05

Link

My scores only is 5795. NEW HIGH SCORE IN THE WHOLE GAME!!!!
I will do the honor to take the Blue Ribbion home.

sob...

Let's go to school! yay... hello... HELLOOOOO......

Back to top

Profile PM

sadsack

20

Years of Service

User Offline

Joined: 27th Nov 2003

Location: here

Posted: 6th Dec 2005 03:59

Link

That was fun, I stop after level 5, my mouse started to over heat.

Back to top

Profile PM Email Website

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 6th Dec 2005 18:51

Link

Nice to see people are playing

.
A while back, I made an updated version that is much easier to play which included some new stuff like a laser, but I never got around to posting it

. Im at school right now, so I will post it tomorrow, if I remember. Thanks for playing, and oh yeah, be careful not to let your mouse over heat

Justin Cannizzaro

Back to top

Profile PM Email

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 7th Dec 2005 18:51

Link

Ok here it is

`_______________METEOR_SWARM_______________

`____CONTROLS_____
`USE SLOW MOTION SPECIAL  - DOWN ARROW KEY
`USE LASER SPECIAL        - RIGHT MOUSE CLICK
`FIRE BASIC SHOT          - LEFT MOUSE CLICK
`MOVE BASE                - LEFT/RIGHT ARROW KEYS
`AIM BASE                 - LEFT/RIGHT MOUSE
`PAUSE GAME               - P/CTRL

set display mode 640,480,16:set text size 18 :autocam off:move camera -25:hide mouse:sync on:sync rate 60:make object sphere 1,1.5:move object down 1,10:make object cone 2,.5:move object down 2,9.5:scale object 2,150,200,100:c2 = rgb(100,100,100):color object 2,c2:color object 1,c2:randomize timer():leveldone = 1:sbn = 15:energy# = 100:level = 0:restart = 0:death=0:laserc#=50:points = 0:t2 = 1:cls:for t = 1 to 320:c1 = rgb(rnd(250),rnd(250),rnd(250)):c2 = rgb(rnd(250),rnd(250),rnd(250)): ink c1,c2:box t,t2,640-t,480-t2:t2 = t2 + 1:next t:get image 1,0,0,640,480:make object cube 14,150:texture object 14,1:set object cull 14,0:c1 = rgb(250,250,250):black=rgb(0,0,0): ink c1,black
sync on:sync rate 60:make object cylinder 13,.1:scale object 13,1000,100000,100:ghost object on 13:red = rgb(200,0,0):fade object 13,75:set object emissive 13,red:make object box 12,3,.5,.01:set object collision off 12:color object 12,rgb(10,200,10):set object emissive 12,rgb(10,200,10):make object box 11,3,.5,.01:set object collision off 11:color object 11,rgb(210,20,210)
do:grey=rgb(200-energy#,50+(energy#/2),50+(energy#/2)):color object 1,grey:color object 2,grey:xrotate object 14,object angle x(14)+speedm#:yrotate object 14,object angle y(14)+speedm#*1.5:if energy# > 100: energy# = 100:endif:set cursor 1,430:print "                            Level: ";level;"           Energy Left: ";int(energy#);"     Special: ";int((laserc#)*2);"%          Points: ";points
if leveldone = 1:level = level + 1:leveldone = 0:sbn = 15:sne2 = 0:level# = level:make object sphere sbn,2+(level#/5):sne=level:tests = 1:sbnr = sbn:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object sbn,c1:set object emissive sbn,c1:if sne > 4 and sne < 9: sne = 4:sne2=level-sne:tests = 2:endif:if sne > 8: sne = level-4:tests = 2:sne2=sne:endif
px# = rnd(640): py# = rnd(480):point object sbn,px#,py#,0:sbn = sbn + 1:endif:hml=0
for t = sbnr to sbn:if object exist (t) = 1: hml=1:move object t,speedm#*(1+(level#/19)):if object position x(t)< -10 or object position x(t) > 10 or object position y(t) < -10 or object position y(t) > 10: move object t,-speedm#*(1+(level#/19)):zrotate object t,object angle z(t)-rnd(90)-45:endif:endif
if object exist (t) = 1: if object collision(1,t) = 1 or object collision(2,t) = 1: energy# = energy# - speedm#*5:red=rgb(200,10,10):color object 1,red:color object 2,red:endif:endif:if energy# < 1: energy# = 0:endif:if energy# = 0 :ghost object on 1:ghost object on 2:spx# = 0:do:spx# = spx# + 30:scale object 1,spx#,spx#,spx#:scale object 2,spx#,spx#,spx#:if spx# > 900:exit:endif:sync
loop:spx# = 0:scale object 1,100,100,100:scale object 2,150,200,100:ghost object off 1:ghost object off 2:hide object 1:hide object 2:do:set cursor 185,300:print "Game Over-Press Space to play again":if escapekey() = 1:end:endif:if spacekey() = 1:exit:endif:sync
set cursor 1,430:print "                            Level: ";level;"           Energy Left: ";int(energy#);"     Special: ";int((laserc#)*2);"%          Points: ";points:loop: level = 0:restart = 0:laserc# = 50:energy# = 100:death = 0:points = 0:leveldone = 1:show object 1:show object 2:for t2 = sbnr to sbn:if object exist (t2) = 1: delete object t2:endif:next t2:endif:next t:if hml = 0: leveldone = 1:endif
if death = 0:zrotate object 2,object angle z(2)-mousemovex():if object angle z(2) < -90: zrotate object 2,-90:endif:if object angle z(2) > 90: zrotate object 2,90:endif:lk#=leftkey():rk#=rightkey() :move object left 1,lk#/5:move object right 1,rk#/5:if object position x(1) <-10: move object right 1,.2: move object right 2,.2:endif
if object position x(1) >10: move object left 1,.2:endif:position object 2,object position x(1),-10,0:move object up 2,1:endif:if mouseclick() = 1 and death = 0: if object exist(3) = 0:mt=3:endif:if mt>0: make object sphere mt,.5:zrotate object mt,object angle z(2):position object mt,object position x(2),object position y(2),0:mt = 0:endif:endif
for t = 1 to 3*(1+(lasera*5)):if object exist(3) = 1: move object up 3,.5:if object position x(3) < -10 or object position x(3) > 10 or object position y(3) >10: delete object 3:endif:endif:rex = 0:if object exist(3) = 1:if object collision (3,0)>0:if object collision (3,0) = sbnr: explode = 1:rex = 3:endif:if object collision (3,0) > sbnr and object collision (3,0) < sbnr+sne+1: explode = 2:rex = 3:endif:if object collision (3,0) > sbnr + sne: delete object object collision (3,0):delete object 3:points = points + 1*level:endif:endif:endif
if object collision (13,0)>0 and lasera=1 and rex = 0:if object collision (13,0) = sbnr: explode = 1:rex = 13:endif:if object collision (13,0) > sbnr and object collision (13,0) < sbnr+sne+1 and object position x(object collision(13,0))<>0 and object position y(object collision(13,0))<> 0: explode = 2:rex = 13:endif:if object collision (13,0) > sbnr + sne: delete object object collision (13,0):points = points + 1*level:endif:endif
if explode = 1 and rex >0:rzz=0:energy# = energy# + (level#+.05):points = points + 10*level:for t = sbnr+1 to sbnr+sne:rzx=rnd(50)+rzx+23:make object sphere t,1+(level#/20):sbn = sbn + 1:position object t,object position x(sbnr),object position y(sbnr),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t:delete object sbnr:if rex = 3:delete object 3:endif:explode = 0:endif
if explode = 2 and rex >0:rzx=0:energy# = energy# + (level#*.05):points = points + 5*level:obc3 = object collision(rex,0):for t = sbnr+sbn+1 to sbnr+sne+sne2+sbn:rzx=rnd(50)+rzx+23:make object sphere t,.5+(level#/80):position object t,object position x(object collision(rex,0)),object position y(object collision(rex,0)),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t
sbn = sbn+1+sne2+sne+sbnr:delete object obc3:if rex = 3:delete object 3:endif:explode = 0:endif:next t:zrotate object 13,object angle z(2):position object 13,object position x(2),object position y(2),0:move object up 13,50:scale object 13,100+(laserc#*30),100000,100:lasera=0:hide object 13:if mouseclick()=2 and laserc#>0:show object 13:lasera = 1:laserc#=laserc#-.5:if laserc#<0:laserc#=-2:lasera=0:endif:endif:laserc#=laserc#+.02:if laserc#>50:laserc#=50:endif
if laserc#>0:set object emissive 11,rgb(110,20,210):else:set object emissive 11,rgb(210,20,10):endif:position object 11,object position x(1),-11.5,0:scale object 11,laserc#*2,100,100:position object 12,object position x(1),-11,0:scale object 12,energy#,100,100:if inkey$() = "p" OR CONTROLKEY() = 1 :if pressp = 0:pressp = 1:do:if inkey$()<>"p" and controlkey() = 0:pressp = 0:endif:if inkey$() = "p" or controlkey() = 1: if pressp = 0:pressp = 1:exit:endif:endif:loop:endif:endif:if inkey$()<>"p" AND CONTROLKEY() = 0:pressp = 0:endif:if downkey()=1 and laserc#>0:laserc#=laserc#-.1:if laserc#<0:laserc#=-2:lasera=0:endif: speedm# = .02:else:speedm# = .1:endif:sync
loop

`______HINTS______
`1.) The SLOW MOTION SPECIAL does not affect the speed of your
`    base, use this to your advantage.
`2.) Try and use the LASER only when you can take out multiple
`    meteors at once.
`3.) Move around! Don't let those meteors hit you.

+ Code Snippet

`_______________METEOR_SWARM_______________

`____CONTROLS_____
`USE SLOW MOTION SPECIAL  - DOWN ARROW KEY
`USE LASER SPECIAL        - RIGHT MOUSE CLICK
`FIRE BASIC SHOT          - LEFT MOUSE CLICK
`MOVE BASE                - LEFT/RIGHT ARROW KEYS
`AIM BASE                 - LEFT/RIGHT MOUSE
`PAUSE GAME               - P/CTRL

set display mode 640,480,16:set text size 18 :autocam off:move camera -25:hide mouse:sync on:sync rate 60:make object sphere 1,1.5:move object down 1,10:make object cone 2,.5:move object down 2,9.5:scale object 2,150,200,100:c2 = rgb(100,100,100):color object 2,c2:color object 1,c2:randomize timer():leveldone = 1:sbn = 15:energy# = 100:level = 0:restart = 0:death=0:laserc#=50:points = 0:t2 = 1:cls:for t = 1 to 320:c1 = rgb(rnd(250),rnd(250),rnd(250)):c2 = rgb(rnd(250),rnd(250),rnd(250)): ink c1,c2:box t,t2,640-t,480-t2:t2 = t2 + 1:next t:get image 1,0,0,640,480:make object cube 14,150:texture object 14,1:set object cull 14,0:c1 = rgb(250,250,250):black=rgb(0,0,0): ink c1,black
sync on:sync rate 60:make object cylinder 13,.1:scale object 13,1000,100000,100:ghost object on 13:red = rgb(200,0,0):fade object 13,75:set object emissive 13,red:make object box 12,3,.5,.01:set object collision off 12:color object 12,rgb(10,200,10):set object emissive 12,rgb(10,200,10):make object box 11,3,.5,.01:set object collision off 11:color object 11,rgb(210,20,210)
do:grey=rgb(200-energy#,50+(energy#/2),50+(energy#/2)):color object 1,grey:color object 2,grey:xrotate object 14,object angle x(14)+speedm#:yrotate object 14,object angle y(14)+speedm#*1.5:if energy# > 100: energy# = 100:endif:set cursor 1,430:print "                            Level: ";level;"           Energy Left: ";int(energy#);"     Special: ";int((laserc#)*2);"%          Points: ";points
if leveldone = 1:level = level + 1:leveldone = 0:sbn = 15:sne2 = 0:level# = level:make object sphere sbn,2+(level#/5):sne=level:tests = 1:sbnr = sbn:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object sbn,c1:set object emissive sbn,c1:if sne > 4 and sne < 9: sne = 4:sne2=level-sne:tests = 2:endif:if sne > 8: sne = level-4:tests = 2:sne2=sne:endif
px# = rnd(640): py# = rnd(480):point object sbn,px#,py#,0:sbn = sbn + 1:endif:hml=0
for t = sbnr to sbn:if object exist (t) = 1: hml=1:move object t,speedm#*(1+(level#/19)):if object position x(t)< -10 or object position x(t) > 10 or object position y(t) < -10 or object position y(t) > 10: move object t,-speedm#*(1+(level#/19)):zrotate object t,object angle z(t)-rnd(90)-45:endif:endif
if object exist (t) = 1: if object collision(1,t) = 1 or object collision(2,t) = 1: energy# = energy# - speedm#*5:red=rgb(200,10,10):color object 1,red:color object 2,red:endif:endif:if energy# < 1: energy# = 0:endif:if energy# = 0 :ghost object on 1:ghost object on 2:spx# = 0:do:spx# = spx# + 30:scale object 1,spx#,spx#,spx#:scale object 2,spx#,spx#,spx#:if spx# > 900:exit:endif:sync
loop:spx# = 0:scale object 1,100,100,100:scale object 2,150,200,100:ghost object off 1:ghost object off 2:hide object 1:hide object 2:do:set cursor 185,300:print "Game Over-Press Space to play again":if escapekey() = 1:end:endif:if spacekey() = 1:exit:endif:sync
set cursor 1,430:print "                            Level: ";level;"           Energy Left: ";int(energy#);"     Special: ";int((laserc#)*2);"%          Points: ";points:loop: level = 0:restart = 0:laserc# = 50:energy# = 100:death = 0:points = 0:leveldone = 1:show object 1:show object 2:for t2 = sbnr to sbn:if object exist (t2) = 1: delete object t2:endif:next t2:endif:next t:if hml = 0: leveldone = 1:endif
if death = 0:zrotate object 2,object angle z(2)-mousemovex():if object angle z(2) < -90: zrotate object 2,-90:endif:if object angle z(2) > 90: zrotate object 2,90:endif:lk#=leftkey():rk#=rightkey() :move object left 1,lk#/5:move object right 1,rk#/5:if object position x(1) <-10: move object right 1,.2: move object right 2,.2:endif
if object position x(1) >10: move object left 1,.2:endif:position object 2,object position x(1),-10,0:move object up 2,1:endif:if mouseclick() = 1 and death = 0: if object exist(3) = 0:mt=3:endif:if mt>0: make object sphere mt,.5:zrotate object mt,object angle z(2):position object mt,object position x(2),object position y(2),0:mt = 0:endif:endif
for t = 1 to 3*(1+(lasera*5)):if object exist(3) = 1: move object up 3,.5:if object position x(3) < -10 or object position x(3) > 10 or object position y(3) >10: delete object 3:endif:endif:rex = 0:if object exist(3) = 1:if object collision (3,0)>0:if object collision (3,0) = sbnr: explode = 1:rex = 3:endif:if object collision (3,0) > sbnr and object collision (3,0) < sbnr+sne+1: explode = 2:rex = 3:endif:if object collision (3,0) > sbnr + sne: delete object object collision (3,0):delete object 3:points = points + 1*level:endif:endif:endif
if object collision (13,0)>0 and lasera=1 and rex = 0:if object collision (13,0) = sbnr: explode = 1:rex = 13:endif:if object collision (13,0) > sbnr and object collision (13,0) < sbnr+sne+1 and object position x(object collision(13,0))<>0 and object position y(object collision(13,0))<> 0: explode = 2:rex = 13:endif:if object collision (13,0) > sbnr + sne: delete object object collision (13,0):points = points + 1*level:endif:endif
if explode = 1 and rex >0:rzz=0:energy# = energy# + (level#+.05):points = points + 10*level:for t = sbnr+1 to sbnr+sne:rzx=rnd(50)+rzx+23:make object sphere t,1+(level#/20):sbn = sbn + 1:position object t,object position x(sbnr),object position y(sbnr),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t:delete object sbnr:if rex = 3:delete object 3:endif:explode = 0:endif
if explode = 2 and rex >0:rzx=0:energy# = energy# + (level#*.05):points = points + 5*level:obc3 = object collision(rex,0):for t = sbnr+sbn+1 to sbnr+sne+sne2+sbn:rzx=rnd(50)+rzx+23:make object sphere t,.5+(level#/80):position object t,object position x(object collision(rex,0)),object position y(object collision(rex,0)),0:yrotate object t,90:zrotate object t,rzx:c1 = rgb(rnd(250),rnd(250),rnd(250)):color object t,c1:set object emissive t,c1:next t
sbn = sbn+1+sne2+sne+sbnr:delete object obc3:if rex = 3:delete object 3:endif:explode = 0:endif:next t:zrotate object 13,object angle z(2):position object 13,object position x(2),object position y(2),0:move object up 13,50:scale object 13,100+(laserc#*30),100000,100:lasera=0:hide object 13:if mouseclick()=2 and laserc#>0:show object 13:lasera = 1:laserc#=laserc#-.5:if laserc#<0:laserc#=-2:lasera=0:endif:endif:laserc#=laserc#+.02:if laserc#>50:laserc#=50:endif
if laserc#>0:set object emissive 11,rgb(110,20,210):else:set object emissive 11,rgb(210,20,10):endif:position object 11,object position x(1),-11.5,0:scale object 11,laserc#*2,100,100:position object 12,object position x(1),-11,0:scale object 12,energy#,100,100:if inkey$() = "p" OR CONTROLKEY() = 1 :if pressp = 0:pressp = 1:do:if inkey$()<>"p" and controlkey() = 0:pressp = 0:endif:if inkey$() = "p" or controlkey() = 1: if pressp = 0:pressp = 1:exit:endif:endif:loop:endif:endif:if inkey$()<>"p" AND CONTROLKEY() = 0:pressp = 0:endif:if downkey()=1 and laserc#>0:laserc#=laserc#-.1:if laserc#<0:laserc#=-2:lasera=0:endif: speedm# = .02:else:speedm# = .1:endif:sync
loop


`______HINTS______
`1.) The SLOW MOTION SPECIAL does not affect the speed of your
`    base, use this to your advantage.
`2.) Try and use the LASER only when you can take out multiple
`    meteors at once.
`3.) Move around! Don't let those meteors hit you.

Features-
1.) 2 new special weapons - laser & slow motion
2.) Life/Special bar located under the base
3.) Now able to pause

4.) Still under 20 lines

Justin Cannizzaro

Back to top

Profile PM Email

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 14th Dec 2005 05:19

Link

new high score: 7328

(Great game bro)

-------- The trick to level design is leave you real life behind... follow your imagination in winding path threw fiction.

Back to top

Profile PM

Shadowed Lightning

19

Years of Service

User Offline

Joined: 10th Nov 2004

Location:

Posted: 15th Dec 2005 07:10

Link

High score 9860!!!

real good game

A C.P.U is not smart at all, all it is, is a colleciton of millions of switches (albeit an extremely fast, exceptionally sophisticated collection of switches)/

Back to top

Profile PM

Halo Man

18

Years of Service

User Offline

Joined: 5th Nov 2005

Location:

Posted: 20th Dec 2005 03:50 Edited at: 20th Dec 2005 04:14

Link

Great game! I can't stop playing it.

EDIT: 27,172 on lvl 16 is my high score

Make great games with C++ and OpenGL!
C++ Tutorial: http://www.cplusplus.com/doc/tutorial
OpenGL Tutorial: http://nehe.gamedev.net/lesson.asp?index=01

Back to top

Profile PM

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 20th Dec 2005 17:15

Link

Wow level 16! Way to go. Do you guys use the laser more or the slow mo? I find myself using the laser more, but the slow mo is always good to get out of tight situations. Thanks for playing guys.

Justin Cannizzaro

Back to top

Profile PM Email

flashing snall

18

Years of Service

User Offline

Joined: 8th Oct 2005

Location: Boston

Posted: 3rd Jan 2006 21:45

Link

hahahhaa, fun, very hard, but fuuun

dont assume cause ull make an ass out of you and me!

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 11th Jan 2006 02:08

Link

Nice game!

www.crazyprogrammer.bravehost.com

Back to top

Profile PM Email Website

snuck yo

18

Years of Service

User Offline

Joined: 10th Jan 2006

Location: Oregon

Posted: 15th Jan 2006 06:17

Link

laser is better i think

Back to top

Profile PM Email

Hobgoblin Lord

18

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 17th Mar 2006 23:46

Link

You may want to make it so you cant use both specials at the same time. if you have about 40% special energy you can eliminate an entire level with power to spare by slowing it down and getting them while they are all grouped. I do like it though, but the 2 specials at once made me quit eventually because i was always at 100% energy

Back to top

Profile PM Email Website

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 18th Mar 2006 12:30

Link

Ok, I made it so that you can't use both specials at the same time (see top post). I was a bit surprised to see someone had played, but thanks for playing none the less.

Justin Cannizzaro

Back to top

Profile PM Email

Vincentv

18

Years of Service

User Offline

Joined: 14th Feb 2006

Location: France

Posted: 19th Mar 2006 01:54

Link

Very nice game !
My score is 4954...

Back to top

Profile PM Email

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 19th Mar 2006 11:41

Link

@Vincentv: Thanks

Justin Cannizzaro

Back to top

Profile PM Email

lilgamz

18

Years of Service

User Offline

Joined: 10th Mar 2006

Location:

Posted: 24th Mar 2006 06:43

Link

I keep getting the error line exceed 255 characters.

Is there a work around or clean version that doesnt have such long lines?

Why am I getting this error? Is it my computer or some setting?

thanks

Back to top

Profile PM Website

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 24th Mar 2006 07:58

Link

Quote: "I keep getting the error line exceed 255 character. "

Are you using Dark Basic Pro.?, if not, I don't think this is compatable with Dark Basic Classic. If you are using Pro. though, then you shouldn't get that error at all and I don't know what the problem is. I can post the extended version if you think it will work or I can post the exe.

Justin Cannizzaro

Back to top

Profile PM Email

Tinyschu

18

Years of Service

User Offline

Joined: 31st Dec 2005

Location: Toxin Games Studio

Posted: 27th Mar 2006 09:12

Link

Nice game, I got to level 25! I used both specials, but mainly I used the laser special for the big ball and narrow it down to some small pieces. I hope to program some good games like this! Nice work!!!

Slaughtered - Coming in 2006
AVATAR SAYS: TOXIN GAMES

Back to top

Profile PM Email Website

Super Nova

18

Years of Service

User Offline

Joined: 14th Jun 2005

Location: Earth

Posted: 28th Mar 2006 23:28

Link

@Tinyschu: Level 25! that is very impressive. Thanks alot for the comments and I'm glad you enjoyed it.

Justin Cannizzaro

Back to top

Profile PM Email

Diggsey

17

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 30th Apr 2006 20:28

Link

You said earlier about posting an exe, plz do, I can't wait to have a go!

There are three types of people, those that can count and those that can't.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / Meteor Swarm

Attachments