TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 3D

Version: 1.0

Information

Uploaded: 22nd Jan 2005 09:56

Modified: 1st Jan 1970 01:00

Author: Rasdini

Summary

A 3D mimic of the old atari's Gravitar.

Full Description

Have Fun

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: GravityMaster

Rem Created: 1/5/05 7:52:03 AM

Rem ***** Main Source File *****

Rem Beginning project GravityMaster: Test save here.

cls

set display mode 800,600,16

set physics frame rate 60

autocam off

sync on

hide mouse

backdrop on

color backdrop RGB(0,0,0)

load music "The_Grand_Illusion.mid",1

load image "gmastertextur1.bmp",2

open to read 1,"gmastermat1"

read long 1,matsizex:read long 1,matsizez

read long 1,matsegx:read long 1,matsegz

read long 1,finalcount

dim height#(finalcount):dim xpos(finalcount):dim zpos(finalcount):dim tile(finalcount)

for x=1 to finalcount

read long 1,xpos(x)

read long 1,zpos(x)

read float 1,height#(x)

read long 1,tile(x)

next x

close file 1

make matrix 1,matsizex,matsizez,matsegx,matsegz

prepare matrix texture 1,2,1,1

for x=1 to finalcount

set matrix height 1,xpos(x),zpos(x),height#(x)

if xpos(x)<matsegx and zpos(x)<matsegz

set matrix tile 1,xpos(x),zpos(x),tile(x)

endif

next x

update matrix 1

undim height#(0):undim xpos(0):undim zpos(0):undim tile(0)

make object sphere 1,-10000

move object right 1,5000

move object up 1,1000

turn object left 1,90

scale object 1,100,50,100

set object collision off 1

load image "space station.bmp",1

texture object 1,1

position object 1,5000,500,500

load image "shiptexture.bmp",110

make object cone 2,30

texture object 2,110

enumber=20

shipx#=9600

shipangz#=0:landed=1

shipdirx#=0:shipdiry#=0

dim buldur(5):dim bulimpact(40)

dim imx(40):dim imy(40)

position object 2,shipx#,0,250

shipy#=get ground height(1,shipx#,250)+25

position object 2,shipx#,shipy#,250

set camera range 1,10000

make object box 3,40,10,40

position object 3,shipx#,shipy#-25,250

set object collision off 3

color object 3,RGB(255,0,0)

make particles 1,0,14,16

color particles 1,242,13,13

set particle emissions 1,0

set particle gravity 1,0

set particle floor 1,0

set particle velocity 1,14

set particle life 1,5

set particle speed 1,.007

load image "guntexture1.bmp",6

make object cylinder 5,8:scale object 5,100,300,100:make mesh from object 1,5

delete object 5

make object cube 5,10:make mesh from object 2,5:delete object 5

make object sphere 5,5:make mesh from object 3,5:delete object 5

make object sphere 6,40

add limb 6,1,1

offset limb 6,1,0,20,0

texture object 6,6

hide object 6

dim ebdur(10)

dim estat(100):dim eex(100):dim eey(100):dim eedur(100)

distance=9000/enumber

start=1000:enumber1=1

for x=501 to (500+enumber-1)

clone object x,6

position object x,start,0,250

ht=get ground height(1,object position x(x),250)

position object x,start,ht+10,250

inc start,distance

inc enumber1

next x

edead=0

make object cube 10,30:clone object 11,10

load image "fuelup.bmp",10

load image "shieldup.bmp",11

texture object 10,10:hide object 10

texture object 11,11:hide object 11

xrotate object 10,-90:zrotate object 10,180:fix object pivot 10

xrotate object 11,-90:zrotate object 11,180:fix object pivot 11

set object collision off 10:set object collision off 11

set object transparency 10,1:set object transparency 11,1

ghost object on 10:ghost object on 11

make object sphere 12,60

load image "shields.bmp",12

texture object 12,12

set object transparency 12,1

ghost object on 12

set object collision off 12

hide object 12

shstat=-1

epresent13=0

epresent14=0

dim spsize(100):dim spcheck(100)

lives=5:fuel#=300:shields#=100

shldup=0:fuelup=0

osetx1=10:osety1=20:osetx2=10:osety2=20:odirx1=1:odiry1=-1

odirx2=1:odiry2=-1

lrot1=0:lrot2=0

make object sphere 13,15

add limb 13,1,1

scale limb 13,1,300,20,280

add limb 13,2,3

scale limb 13,2,150,150,150

texture object 13,6

color limb 13,1,RGB(255,255,255):color limb 13,2,rgb(0,255,255)

clone object 14,13

hide object 13:hide object 14

set object collision off 13

set object collision off 14

load image "gameover.bmp",15

make object box 15,100,50,5

texture object 15,15

set object collision off 15

ghost object on 15

set object transparency 15,1

fade object 15,40

hide object 15

rem load more sounds

load sound "thrust2.wav",2

set sound volume 2,84

load sound "shields.wav",12

set sound volume 12,84

for x=200 to 204

load sound "gunshot.wav",x

set sound volume x,92

next x

load sound "fuelbonus.wav",10

set sound volume 10,75

load sound "shieldbonus.wav",11

set sound volume 11,65

load sound "implosion.wav",3

set sound volume 3,73

load sound "implosion2.wav",4

set sound volume 4,65

load sound "implosion2.wav",13

set sound volume 13,63

load sound "implosion2.wav",14

set sound volume 14,65

for x=701 to 714

load sound "SHIELDBLAST.wav",x

set sound volume x,84

next x

load sound "laser.wav",23

set sound volume 23,66

for x=30 to 34

load sound "laserimpact.wav",x

set sound volume x,63

next x

load image "instructions.bmp",20

load image "laser.bmp",21

for x=22 to 24

make object cylinder x,6

set object collision off x

hide object x

next x

scale object 23,100,2500,100

texture object 23,21

ghost object on 23

scale object 22,200,100,200

scale object 24,200,100,200

texture object 22,6

texture object 24,6

make object plain 16,50,50

load image "starblast.bmp",16

texture object 16,16

set object transparency 16,1

hide object 16:set object collision off 16

ghost object on 16

make object plain 20,150,300

texture object 20,20

set object transparency 20,1

ghost object on 20

set object collision off 20

x=1002

make object sphere x,50

load image "shipexpltexture.bmp",x

texture object x,x

set object collision off x

ghost object on x

hide object x

x=0

fade#=100:tiltang#=0:tiltdir#=.025

ghost=1

inst=1

laserpresent=0

load sound "killall.wav",8

set sound volume 8,70

load sound "bonusship.wav",9

set sound volume 9,85

load sound "lowfuel.wav",7

set sound volume 7,85

rem main loop

sync

boost#=1

dim epresentdead(14)

make gravity effector 2000

set gravity effector 2000,0,-230,0

load image "expltexture.bmp",100

volume#=65:song=4

goto skipfirsttime

startover:

boost#=1:laserpresent=0

lives=5:fuel#=300:shields#=100

shldup=0:fuelup=0

osetx1=10:osety1=20:osetx2=10:osety2=20:odirx1=1:odiry1=-1

odirx2=1:odiry2=-1:edead=0

lrot1=0:lrot2=0

shstat=-1

epresent13=0

epresent14=0

enumber=20

shipx#=9600

shipangz#=0:landed=1

shipdirx#=0:shipdiry#=0

position object 2,shipx#,0,250

shipy#=get ground height(1,shipx#,250)+25

position object 2,shipx#,shipy#,250

distance=9000/enumber

start=1000:enumber1=1

for x=501 to (500+enumber-1)

clone object x,6

position object x,start,0,250

ht=get ground height(1,object position x(x),250)

position object x,start,ht+10,250

inc start,distance

inc enumber1

next x

skipfirsttime:

innum=2000:killall=0

bonusship=0:lowfuel=0

rem main loop

if edead>=50 and bonusship=0

inc lives

bonusship=1

play sound 9

endif

if edead>=150 and bonusship=1

inc lives:bonusship=2

play sound 9

endif

if edead>=250 and bonusship=2

inc lives:bonusship=3

play sound 9

endif

chmusic=music playing(1)

if chmusic=1

if inkey$()="," and volume#>0

dec volume#,.25

if volume#<0 then volume#=0

set music volume 1,volume#

endif

if inkey$()="." and volume#<100

inc volume#,.25

if volume#>100 then volume#=100

set music volume 1,volume#

endif

if stall>0 then dec stall:goto skipmusic

if chmusic=0

inc song:if song>7 then song=5

delete music 1

if song=5 then load music "The_Grand_Illusion.mid",1

if song=6 then load music "pressure.mid",1

if song=7 then load music "Live_And_Let_Die.mid",1

set music volume 1,volume#

play music 1

stall=500

endif

skipmusic:

if killall=0 and inst=-1 and landed=0

intro=rnd(1000)

if intro=500

killall=1

trykillagain:

kx#=shipx#+rnd(1200)-600:ky#=400+rnd(400)

if kx#<1000 or kx#>9500 then goto trykillagain

t1011=object collision(16,0)

if t1011=10 or t1011=11 then goto trykillagain

position object 16,kx#,ky#,250

show object 16:set object collision on 16

killscale#=20:killscdir#=5:killdur=3000

scale object 16,killscale#,killscale#,100

point object 16,camera position x(0),camera position y(0),camera position z(0)

endif

if killall<0 then inc killall

if killall=1 and inst=-1 and landed<>1

inc killscale#,killscdir#

if killscale#<20 or killscale#>280 then killscdir#=killscdir#*-1

position object 16,kx#,ky#,250

scale object 16,killscale#,killscale#,100

point object 16,camera position x(0),camera position y(0),camera position z(0)

dec killdur

if killdur=0 or landed=2

killall=0

hide object 16:set object collision off 16

goto leaving

endif

if killdur>0

for x=200 to 204

if object exist(x)=1

if object position x(x)>object position x(16)-10 and object position x(x)<object position x(16)+10

if object position y(x)>object position y(16)-10 and object position y(x)<object position y(16)+10

play sound 8

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(16):imy(pick-209)=object position y(16)

make spherical emitter pick,20

set object collision off pick

bind effector to object 2000,pick

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,8000

set emitter particle life pick,12,50

set emitter particle velocity pick,200,50

set emitter particle color pick,255,255,255,255

set emitter particle size pick,1.75,100

bulimpact(pick-209)=204

delete object x:pick=250:x=204

endif

next pick

hide object 16:set object collision off 16:killall=-5000

for chkill=501 to 500+enumber-1

if object exist(chkill)=1 and eedur(chkill-500)=0

if object in screen(chkill)=1

inc edead

play sound 4

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(chkill):imy(pick-209)=object position y(chkill)

make spherical emitter pick,20

set object collision off pick

bind effector to object 2000,pick

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,8000

set emitter particle life pick,12,50

set emitter particle velocity pick,200,50

set emitter particle color pick,255,255,255,255

set emitter particle size pick,1.75,50

bulimpact(pick-209)=204

delete object chkill:pick=250

endif

next pick

endif

next chkill

for chkill=701 to 710

if object exist(chkill)=1

if object in screen(chkill)=1

play sound 3

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(chkill):imy(pick-209)=object position y(chkill)

make spherical emitter pick,20

set object collision off pick

bind effector to object 2000,pick

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,8000

set emitter particle life pick,12,50

set emitter particle velocity pick,200,50

set emitter particle color pick,255,255,255,255

set emitter particle size pick,1.75,50

bulimpact(pick-209)=204

delete object chkill:pick=250

endif

next pick

endif

next chkill

for chkill=13 to 14

if object exist(chkill)=1 and epresentdead(chkill)=1

if object in screen(chkill)=1

inc edead

if sound playing(4)=0 then play sound 4

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(chkill):imy(pick-209)=object position y(chkill)

make spherical emitter pick,20

set object collision off pick

bind effector to object 2000,pick

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,8000

set emitter particle life pick,12,50

set emitter particle velocity pick,200,50

set emitter particle color pick,255,255,255,255

set emitter particle size pick,1.75,50

bulimpact(pick-209)=204

hide object chkill:set object collision off chkill

if chkill=13 then epresent13=0

if chkill=14 then epresent14=0

pick=250

endif

next pick

endif

next chkill

endif

next x

endif

leaving:

endif

if edead>30 and laserpresent=0 and inst=-1 and landed=0

rem innum=5000-edead*100:if innum<100 then innum=100

intro=rnd(innum)

if intro=(innum-50)

loop sound 23

di=rnd(10)

if di<6 then posx#=-800 else posx#=800

l#=object position x(2)

lasx#=l#+posx#

lasy#=600+200-rnd(200)

pulse=40:pulsedir=2

turn5=0

for x=22 to 24

show object x

set object collision on x

next x

laserpresent=1

endif

if laserpresent=1

inc pulse,pulsedir:if pulse<40 or pulse>220 then pulsedir=pulsedir*-1

scale object 23,pulse,2500,pulse

turn object right 23,90-rnd(45)

endif

if laserpresent=1 and inst=-1 and landed=0

if lasx#>9900 then lasx#=2000+rnd(1000)

if lasy#<object position y(2) then inc lasy#,.25 else dec lasy#,.25

if lasy#<get ground height(1,object position x(23),object position z(23))+250 then inc lasy#,.25

if lasy#>650 then dec lasy#,.25

rep=rnd(7)

if rep=3

if lasy#<object position y(2) then inc lasy#,.25 else dec lasy#,.25

if lasy#<get ground height(1,object position x(23),object position z(23))+350 then inc lasy#,.25

if lasy#>850 then dec lasy#,.25

endif

if object position x(23)<(object position x(2)-600) or object position x(23)>(object position x(2)+600) then oset=5 else oset=0

if object position x(23)<object position x(2)

for x=22 to 24

inc lasx#,.25+oset

if rep=3

inc lasx#,.25+oset

endif

next x

for x=22 to 24

position object x,lasx#,lasy#,250

next x

move object up 22,80

move object down 24,80

endif

if object position x(23)>object position x(2)

for x=22 to 24

dec lasx#,.25+oset

if rep=3

dec lasx#,.25+oset

endif

next x

for x=22 to 24

position object x,lasx#,lasy#,250

next x

move object up 22,80

move object down 24,80

endif

for x=200 to 204

if object exist(x)=1

t10=object collision(x,23)

if t10=1

for snd=30 to 34

if sound playing(snd)=0 then play sound snd:snd=34

next snd

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(x):imy(pick-209)=object position y(x)

make spherical emitter pick,60

set object collision off pick

bind effector to object 2000,pick

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,5000

set emitter particle life pick,10,100

set emitter particle velocity pick,200,50

set emitter particle color pick,0,100,255,255

set emitter particle size pick,.75,75

bulimpact(pick-209)=204

delete object x:pick=250

endif

next pick

endif

if object exist(x)=1

t11=object collision(x,0)

if t11=22 or t11=24

play sound 4

stop sound 23

for j=1 to 2

for pick=210 to 250

if object exist(pick)=0

if j=1 then imx(pick-209)=object position x(22):imy(pick-209)=object position y(22)

if j=2 then imx(pick-209)=object position x(24):imy(pick-209)=object position y(24)

make spherical emitter pick,200

set object collision off pick

bind effector to object 2000,pick

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,5000

set emitter particle life pick,8,50

set emitter particle velocity pick,200,50

set emitter particle color pick,249,255,0,255

set emitter particle size pick,.5,50

bulimpact(pick-209)=203

pick=250

endif

next pick

next j

delete object x

hide object 22:hide object 23:hide object 24:set object collision off 22

set object collision off 23:set object collision off 24

laserpresent=0

endif

next x

endif

if inst=1

inc tiltang#,tiltdir#

if tiltang#<-5 or tiltang#>5 then tiltdir#=tiltdir#*-1

dec fade#,.25

if fade#<25

fade#=100

ghost=ghost*-1

if ghost=-1 then ghost object off 20

if ghost=1 then ghost object on 20

endif

camx=camera position x(0):camy=camera position y(0)-(200+(object position y(2)/8))

position object 20,camx,camy+50,-100+object position y(2)/12

point object 20,camera position x(0),camera position y(0),camera position z(0)

move object up 20,tiltang#*5

roll object left 20,-tiltang#

pitch object up 20,tiltang#

turn object left 20,tiltang#*5

fade object 20,fade#

endif

if inkey$()<>"i" then release20=0

if inkey$()="i" and release20=0

release20=1

inst=inst*-1

if inst=-1

hide object 20

endif

if inst=1

tiltang#=0:tiltdir#=.025

camx=camera position x(0):camy=camera position y(0)-(200+(object position y(2)/8))

position object 20,camx,camy,170-object position y(2)/8

point object 20,camera position x(0),camera position y(0),camera position z(0)

show object 20

endif

rem rotate enemy limbs

dec lrot2,5:if lrot2<0 then lrot2=359

osetx1=sin(lrot2)*30:osety1=cos(lrot2)*30

osetx2=osetx1:osety2=osety1

offset limb 13,2,osetx1,osety1,0

offset limb 14,2,osetx2,osety2,0

rotate limb 13,1,lrot2+30,lrot2+45,lrot2+90

rotate limb 14,1,lrot2+30,lrot2+45,lrot2+90

rem intro sky enemies

if epresent13=0 and inst=-1

intro=rnd(500)

if intro=250

epresent13=1:epresentdead(13)=1

position object 13,object position x(2)-1500,900,250

show object 13:set object collision on 13

endif

if epresent14=0 and inst=-1

intro=rnd(500)

if intro=250

epresent14=1:epresentdead(14)=1

position object 14,object position x(2)+1500,900,250

show object 14:set object collision on 14

endif

rem move sky aliens

if epresent13=1 and inst=-1

move object right 13,.5

if object position y(13)>object position y(2)

if object position y(13)>350

move object down 13,.25

ran=rnd(3)

if ran=2

if object position y(13)>400 then move object down 13,.25

endif

if object position y(13)<object position y(2)

if object position y(13)<750

move object up 13,.25

ran=rnd(3)

if ran=2

if object position y(13)<750 then move object up 13,.25

endif

if object position x(13)>object position x(2)+1500

position object 13,object position x(13)-3000,object position y(13),250

endif

if epresent14=1 and inst=-1

move object left 14,.5

if object position y(14)>object position y(2)

if object position y(14)>350

move object down 14,.25

ran=rnd(3)

if ran=2

if object position y(14)>350 then move object down 14,.25

endif

if object position y(14)<object position y(2)

if object position y(14)<750

move object up 14,.25

ran=rnd(3)

if ran=2

if object position y(14)<750 then move object up 14,.25

endif

if object position x(14)<object position x(2)-1500

position object 14,object position x(14)+3000,object position y(14),250

endif

rem activate shields

if downkey()=0 and joystick fire c()=0 then release1=0

if downkey()=1 and release1=0 and landed<2 and lives>0 and inst=-1 or joystick fire c()=1 and release1=0 and landed<2 and lives>0 and inst=-1

release1=1:shstat=shstat*-1

if shstat=-1 and landed<>1

stop sound 12

hide object 12

set object collision off 12

set object collision on 2

endif

if shstat=1 and landed<>1

loop sound 12

show object 12

set object collision off 2

set object collision on 12

endif

rem check shields

if shstat=1 and inst=-1

dec shields#,.025

t6=object collision(12,0)

if t6>700 and t6<711

dec shields#,50

play sound t6

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(t6):imy(pick-209)=object position y(t6)

make spherical emitter pick,60

set object collision off pick

bind effector to object 2000,pick

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,5000

set emitter particle life pick,10,100

set emitter particle velocity pick,200,50

set emitter particle color pick,0,100,255,255

set emitter particle size pick,.75,75

bulimpact(pick-209)=204

delete object t6:pick=250

endif

next pick

endif

if t6>500 and t6<500+enumber

play sound 4

eex(t6-500)=object position x(t6):eey(t6-500)=object position y(t6)

delete object t6

make basic emitter t6,200

make object sphere t6+400,25

position object t6+400,eex(t6-500),eey(t6-500),250

ghost object on t6+400

texture object t6+400,100

fade object t6+400,200

spsize(t6-500)=100:spcheck(t6-500)=200

set object collision off t6+400

set object collision off t6

bind effector to object 2000,t6

set object collision off t6

position object t6,eex(t6-500),eey(t6-500),250

set emitter rate t6,5000

set emitter particle velocity t6,200,50

set emitter particle color t6,9,255,9,255

set emitter particle size t6,1.25,75

eedur(t6-500)=510

inc edead

dec shields#,100

endif

if t6=13 or t6=14

inc edead

epresentdead(t6)=0

dec shields#,100

play sound t6

play sound 700+t6

hide object t6:set object collision off t6

if t6=13 then epresent13=0

if t6=14 then epresent14=0

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(t6):imy(pick-209)=object position y(t6)

make spherical emitter pick,200

set object collision off pick

bind effector to object 2000,pick

set emitter particle life pick,10,100

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,5000

set emitter particle velocity pick,200,50

set emitter particle color pick,0,0,255,255

set emitter particle size pick,1,75

bulimpact(pick-209)=204

pick=250

endif

next pick

endif

rem check shields by numbers

if shstat=1 and inst=-1

if shields#<30

shstat=-1

stop sound 12

hide object 12

set object collision off 12

set object collision on 2

endif

if shstat=1

for x=701 to 710

if object exist(x)=1

if object position x(x)>object position x(12)-20 and object position x(x)<object position x(12)+20

if object position y(x)>object position y(12)-20 and object position y(x)<object position y(12)+20

play sound x

dec shields#,50

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(x):imy(pick-209)=object position y(x)

make basic emitter pick,60

set object collision off pick

bind effector to object 2000,pick

set emitter particle life pick,10,100

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,3000

set emitter particle velocity pick,200,50

set emitter particle color pick,0,0,255,255

set emitter particle size pick,.75,75

bulimpact(pick-209)=205

delete object x:pick=250

endif

next pick

endif

next x

endif

rem shield bonus

if shldup=0 and inst=-1

intro=rnd(300)

if intro=50

set object collision on 11

tryagain11:

shldx=object position x(2)+rnd(500)-250

shldy=400+200-rnd(100)

position object 11,shldx,shldy,250

t=object collision(11,0)

if t=10 or t=2 or t=12 then goto tryagain11

show object 11

shldup=1500

endif

if shldup>0 and shldup<1550 and inst=-1

t4=object collision(11,0)

if t4=2 or t4=12

play sound 11

shldup=2000:point object 11,camera position x(0),camera position y(0),camera position z(0)

goto leaving1

endif

pitch object up 11,1

dec shldup

if shldup=0

hide object 11

set object collision off 11

endif

leaving1:

endif

if shldup>1550 and inst=-1

point object 11,camera position x(0),camera position y(0),camera position z(0)

move object 11,4+rnd(3)

if object position z(11)<50

move object 11,-5

move object left 11,shipdirx#*2

pitch object up 11,1

dec shldup

if shldup=1560

hide object 11:set object collision off 11

inc shields#,250

if shields#>1000 then shields#=1000

shldup=0

endif

rem fuel bonus

if fuelup=0 and inst=-1

intro=rnd(300)

if intro=50

set object collision on 10

tryagain10:

fuelx=object position x(2)+rnd(500)-250

fuely=400+200-rnd(100)

position object 10,fuelx,fuely,250

t=object collision(10,0)

if t=11 or t=2 or t=12 then goto tryagain10

show object 10

rem fade object 10,100

fuelup=1500

endif

if fuelup>0 and fuelup<1550 and inst=-1

t5=object collision(10,0)

if t5=2 or t5=12

play sound 10

fuelup=2000:point object 10,camera position x(0),camera position y(0),camera position z(0)

rem fade object 10,30

goto leaving2

endif

pitch object up 10,1

dec fuelup

if fuelup=0

hide object 10

set object collision off 10

endif

leaving2:

endif

if fuelup>1550 and inst=-1

point object 10,camera position x(0),camera position y(0),camera position z(0)

move object 10,4+rnd(3)

if object position z(10)<50

move object 10,-5

move object left 10,shipdirx#*2

pitch object up 10,1

dec fuelup

if fuelup=1560

hide object 10:set object collision off 10

if fuel#<100 then lowfuel=0

inc fuel#,250

if fuel#>1000 then fuel#=1000

fuelup=0

endif

rem enemy shoot

checknew=0

if inst=-1

for x=501 to 501+enumber-1

if object exist(x)=1

inc checknew

if object position x(x)>object position x(2)-(2000-edead*8) and object position x(x)<object position x(2)+(2000-edead*8) and eedur(x-500)=0

dif=100-edead:if dif<5 then dif=5

shoot=rnd(5+dif)

if shoot=5

for y=701 to 710

if object exist(y)=0

factor=rnd(10):ebdur(y-700)=600

make object sphere y,8

color object y,RGB(255,164,72)

position object y,object position x(x),object position y(x)+30,250

pitch object up y,90:turn object left y,rnd(90)-45

ght=get ground height(1,object position x(y),object position z(y))

if ght>object position y(y) then delete object y:ebdur(y-700)=0

y=710

endif

next y

endif

next x

endif

rem move and check enemy bullets for hit

check3=0

for x=701 to 710

if object exist(x)=1 and inst=-1

t2=0

move object x,1.5

dec ebdur(x-700)

if ebdur(x-700)=0 then delete object x

if object exist(x)=1

if object position y(x)<get ground height(1,object position x(x),250) then delete object x

endif

if object exist(x)=1

t2=object collision(x,2)

if t2=1

play sound 3

inc check3

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(x):imy(pick-209)=object position y(x)

make basic emitter pick,60

set object collision off pick

bind effector to object 2000,pick

set emitter particle life pick,10,100

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,3000

set emitter particle velocity pick,200,50

set emitter particle color pick,255,180,50,255

set emitter particle size pick,2,75

bulimpact(pick-209)=211

delete object x:pick=250

endif

next pick

x=710

endif

next x

if checknew=0 and inst=-1

inc enumber,3:if enumber>99 then enumber=99

distance=8500/enumber

start=1000:enumber1=1

for x=501 to (500+enumber-1)

clone object x,6

position object x,start,0,250

ht=get ground height(1,object position x(x),250)

position object x,start,ht+10,250

inc start,distance

inc enumber1

next x

endif

if landed<2 and lives>0

if shipx#>9700 then shipx#=9700

if shipx#<300 then shipx#=300

position object 2,shipx#,shipy#,250

rotate object 2,0,0,shipangz#

if shipangz#>349 or shipangz#<11

rotate object 2,0,0,0

endif

position particles 1,object position x(2),object position y(2),object position z(2)

rotate particles 1,0,0,wrapvalue(shipangz#-180)

position object 12,object position x(2),object position y(2),250

turn object right 12,rnd(12)-4

pitch object up 12,rnd(12)-4

endif

if landed=0 and shipdiry#>-2 and inst=-1 then dec shipdiry#,.0025

check=get ground height(1,object position x(2),object position z(2))

check2=0

if shstat=1

t8=object collision(12,23)

if t8=1

shields#=0

hide object 12

set object collision off 12

set object collision on 2

shstat=-1

endif

t7=object collision(2,0)

if inst=-1

if shipy#<check+25 and landed<2 or check3>0 and landed<2 or t7>12 and t7<15 and landed<2 or t7=23 and landed<2

landed=2

play sound 3

if sound playing(12)=1 then stop sound 12

dec lives

if shstat=1

hide object 12

set object collision off 12

set object collision on 2

shstat=-1

endif

hide object 2:set object collision off 2

ex#=shipx#:ey#=shipy#:ez#=250

make spherical emitter 1000,500

set object collision off 1000

set emitter particle color 1000,255,0,0,255

set emitter particle velocity 1000,180,35

set emitter particle size 1000,1.75,50

set emitter particle mass 1000,3,100

set spawn radius 1000,50,52

rem set emitter explode 1000,0.7

rem set spawn hemisphere 1000,1

set emitter particle life 1000,30,100

make gravity effector 1001

set gravity effector 1001,0,-110,0

bind effector to object 1001,1000

position object 1000,ex#,ey#,ez#

position object 1002,ex#,ey#,ez#

show object 1002

fade=200

fade object 1002,fade*4

scale1002=100:scdir1002=3

set emitter rate 1000,5000

emcount=20

endif

if scale1002>0

inc scale1002,scdir1002

if scale1002>500 then scdir1002=scdir1002*-1

scale object 1002,scale1002*.75,scale1002*.75,scale1002*.75

if scale1002<450 and scdir1002<0

dec fade,5

if fade<1 then fade=1

fade object 1002,fade*4

endif

if scale1002<300 and scdir1002<0 and fade<2

hide object 1002

scale1002=0

endif

if emcount>0 and landed=2

position object 1000,ex#,ey#,ez#

dec emcount

if lives=0 then move camera -2

if emcount=17

set emitter particle color 1000,0,105,200,255

endif

if emcount=0

set emitter rate 1000,0

done=800

if laserpresent=1

if sound playing(23)=1 then stop sound 23

for erase=22 to 24

hide object erase

set object collision off erase

next erase

laserpresent=0

endif

dec emcount

camback=350

endif

if done>0 and landed=2

dec done

if done=0 and lives>0

shipx#=9600

shipangz#=0

shipdirx#=0:shipdiry#=0

fuel#=500

position object 2,shipx#,0,250

shipy#=get ground height(1,shipx#,250)+25

position object 2,shipx#,shipy#,250

landed=1:show object 2:set object collision on 2

delete emitter 1000:delete effector 1001

endif

if landed=2 and lives=0 and done=0 and emcount=-1

set cursor screen width()/2-100,screen height()/2

ink RGB(255,0,0),0

print "Game Over!! PLay Again(Y/N)?";

if inkey$()="n" then end

rem fireworks

fw=rnd(200)

if fw=100

if sound playing(3)=0 then play sound 3 else play sound 4

typ=rnd(3)

for pick=210 to 250

if object exist(pick)=0

pickagain:

imx(pick-209)=object position x(2)+rnd(500)-250:imy(pick-209)=object position y(2)+rnd(1000)-500

ht=get ground height(1,object position x(2),250)

if imy(pick-209)<ht+300 or imy(pick-209)>1000 then goto pickagain

make spherical emitter pick,80

set object collision off pick

bind effector to object 2000,pick

set emitter particle life pick,14,100

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,3000

if typ<>2 then set emitter particle velocity pick,250,0

if typ=2 then set emitter particle velocity pick,200,50

if typ=3 then set emitter explode pick,1

set emitter particle color pick,100+rnd(155),100+rnd(155),100+rnd(155),255

set emitter particle size pick,2,75

bulimpact(pick-209)=214

pick=250

endif

next pick

endif

if camback>0

move camera -2

dec camback

if camback=0

bouncing=300

show object 15

position object 15,object position x(2),object position y(2),300

point object 15,camera position x(0),camera position y(0),camera position z(0)

endif

if camback=0 and bouncing>0

move object 15,10

if object position z(15)<camera position z(0)+80 then move object 15,-10

dec bouncing

if bouncing=0

camback=-1

bounce=0:bouncedir=-1

endif

if camback=-1

move object 15,(bouncedir*-1)*.5

inc bounce,bouncedir

if bounce<-60 or bounce>60 then bouncedir=bouncedir*-1

rotate object 15,30,0,bounce/3

endif

if inkey$()="y"

for j=500 to 600:if object exist(j)=1 then delete object j

if object exist(1000)=1 then delete object 1000:delete effector 1001

show object 2

set object collision on 2

next j

if laserpresent=1

stop sound 23

hide object 22:hide object 23:hide object 24

set object collision off 22:set object collision off 23:set object collision off 24

endif

goto startover

endif

if keystate(48)=0 and joystick fire b()=0 and boost#=1.5

boost#=1:set particle life 1,5:set particle emissions 1,3

if sound playing(2)=1 then stop sound 2

endif

if fuel#<1

set particle emissions 1,0:fuel#=0

if sound playing(2)=1 then stop sound 2

endif

if inst=-1

if keystate(48)=1 and boost#=1 or joystick fire b()=1 and boost#=1

if fuel#>100 then boost#=1.5 else boost#=1

if boost#=1.5

set particle life 1,9

if sound playing(2)=1 then set sound volume 2,92

if sound playing(2)=0 and landed<2

set sound volume 2,92

loop sound 2

endif

if landed=2 or joystick up()=0 and upkey()=0 and keystate(48)=0

set particle emissions 1,0

if sound playing(2)=1 and boost#=1 then stop sound 2

endif

if boost#=1 then set sound volume 2,82

if inst=-1

if upkey()=1 and landed<2 and fuel#>0 or joystick up()=1 and landed<2 and fuel#>0 or boost#=1.5 and landed<2 and fuel#>0

dec fuel#,.175

if sound playing(2)=0 then loop sound 2

if boost#=1.5 then dec fuel#,.175

if boost#=1.5 then boostval=1 else boostval=0

set particle emissions 1,3+boostval#

if shipangz#<11 and shipangz#>-1 or shipangz#<361 and shipangz#>349 then vect#=1.5

if shipangz#>10 and shipangz#<30 or shipangz#<350 and shipangz#>329 then vect#=3

if shipangz#<60 and shipangz#>29 or shipangz#<330 and shipangz#>299 then vect#=4

if shipangz#<91 and shipangz#>59 or shipangz#<300 and shipangz#>269 then vect#=5

if shipangz#>-1 and shipangz#<90 or shipangz#>270 and shipangz<361

if shipdiry#<1 then inc shipdiry#,(.025/vect#)*boost#

if shipdiry#>.1 and landed=1 then landed=0

endif

if shipangz#>120 and shipangz#<240 then dec shipdiry#,.005

if shipangz#>130 and shipangz#<230 then dec shipdiry#,.005

rem vevt1#

if landed=0

if shipangz#>79 and shipangz#<101 then vect1#=1

if shipangz#<80 and shipangz#>60 or shipangz#>100 and shipangz#<121 then vect1#=2

if shipangz#<60 and shipangz#>29 or shipangz#>120 and shipangz#<151 then vect1#=3

if shipangz#<30 and shipangz#>-1 or shipangz#>150 and shipangz#<181 then vect1#=4

endif

if shipangz#>0 and shipangz#<180

if shipdirx#>-1.5 then dec shipdirx#,(.025/vect1#)*boost#

if shipangz#>349 or shipangz#<10 then inc shipdirx#,(.025/vect1#)*boost#

endif

if shipangz#>180 and shipangz#<360

if shipdirx#<1.5 then inc shipdirx#,(.025/vect1#)*boost#

if shipangz#>349 or shipangz#<10 then dec shipdirx#,(.025/vect1#)*boost#

endif

if landed=0

if rightkey()=1 or joystick right()=1

dec shipangz#,1.5

if shipangz#<0 then shipangz#=359

endif

if leftkey()=1 or joystick left()=1

inc shipangz#,1.5

if shipangz#>360 then shipangz#=1

endif

if firedelay1>0 then dec firedelay1:goto skipfire1

if spacekey()=1 and landed=0 or joystick fire a()=1 and landed=0

for x=200 to 204

if object exist(x)=0

play sound x

make object sphere x,6

color object x,rgb(255,180,50)

position object x,object position x(2),object position y(2),250

pitch object up x,90:turn object left x,shipangz#

move object x,10

buldur(x-199)=300

x=204:firedelay1=30

endif

next x

endif

skipfire1:

for x=200 to 204

if object exist(x)=1

dec buldur(x-199)

move object x,3

check2=get ground height(1,object position x(x),object position z(x))

t1=object collision(x,0)

if check2>object position y(x) or t1>500 and t1<600 or t1>12 and t1<15

move object x,-3

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(x):imy(pick-209)=object position y(x)

make basic emitter pick,60

set object collision off pick

bind effector to object 2000,pick

set emitter particle life pick,10,100

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,3000

set emitter particle velocity pick,200,50

set emitter particle color pick,5,255,155,255

set emitter particle size pick,.75,75

bulimpact(pick-209)=205

delete object x:pick=250

endif

next pick

if t1>500 and t1<500+enumber

play sound 4

eex(t1-500)=object position x(t1):eey(t1-500)=object position y(t1)

delete object t1

make basic emitter t1,200

make object sphere t1+400,25

position object t1+400,eex(t1-500),eey(t1-500),250

ghost object on t1+400

texture object t1+400,100

fade object t1+400,200

spsize(t1-500)=100:spcheck(t1-500)=200

set object collision off t1+400

set object collision off t1

set emitter particle life t1,10,100

bind effector to object 2000,t1

position object t1,eex(t1-500),eey(t1-500),250

set emitter rate t1,5000

set emitter particle velocity t1,200,50

set emitter particle color t1,9,255,9,255

set emitter particle size t1,1.25,75

eedur(t1-500)=510

if object exist(x)=1 then delete object x

inc edead

endif

if t1>12 and t1<15

inc edead

epresentdead(t1)=0

play sound t1

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(t1):imy(pick-209)=object position y(t1)

make spherical emitter pick,200

set object collision off pick

set emitter particle life pick,10,100

bind effector to object 2000,pick

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,5000

set emitter particle velocity pick,200,50

set emitter particle color pick,5,18,255,255

set emitter particle size pick,1.5,100

bulimpact(pick-209)=205

hide object t1:set object collision off t1:pick=250

if t1=13 then epresent13=0

if t1=14 then epresent14=0

endif

next pick

endif

if buldur(x-199)=0

if object exist(x)=1 then delete object x

endif

if object exist(x)=1

for dbc2=501 to 501+enumber-1

if object exist(dbc2)=1 and eedur(dbc2-500)=0 and object exist(x)=1

if object position x(x)>object position x(dbc2)-15 and object position x(x)<object position x(dbc2)+15

if object position y(x)>object position y(dbc2)-15 and object position y(x)<object position y(dbc2)+15

play sound 4

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(x):imy(pick-209)=object position y(x)

make basic emitter pick,60

set object collision off pick

set emitter particle life pick,10,100

bind effector to object 2000,pick

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,3000

set emitter particle velocity pick,200,50

set emitter particle color pick,55,108,255,255

set emitter particle size pick,.75,75

bulimpact(pick-209)=205

delete object x:pick=250

endif

next pick

eex(dbc2-500)=object position x(dbc2):eey(dbc2-500)=object position y(dbc2)

delete object dbc2

make basic emitter dbc2,200

make object sphere dbc2+400,25

position object dbc2+400,eex(dbc2-500),eey(dbc2-500),250

ghost object on dbc2+400

texture object dbc2+400,100

fade object dbc2+400,200

spsize(dbc2-500)=100:spcheck(dbc2-500)=200

set object collision off dbc2+400

set object collision off dbc2

set emitter particle life dbc2,10,100

bind effector to object 2000,dbc2

set object collision off dbc2

position object dbc2,eex(dbc2-500),eey(dbc2-500),250

set emitter rate dbc2,5000

set emitter particle velocity dbc2,200,50

set emitter particle color dbc2,9,255,9,255

set emitter particle size dbc2,1.25,75

eedur(dbc2-500)=510

if object exist(x)=1 then delete object x

inc edead

endif

next dbc2

if object exist(x)=1

for dbc3=13 to 14

if object position x(x)>object position x(dbc3)-10 and object position x(x)<object position x(dbc3)+10

if object position y(x)>object position y(dbc3)-10 and object position y(x)<object position y(dbc3)+10

if dbc3=13 and epresent13=1 or dbc3=14 and epresent14=1

play sound dbc3

epresentdead(dbc3)=0

inc edead

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(x):imy(pick-209)=object position y(x)

make basic emitter pick,60

set object collision off pick

bind effector to object 2000,pick

set emitter particle life pick,10,100

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,3000

set emitter particle velocity pick,200,50

set emitter particle color pick,50,108,255,255

set emitter particle size pick,.75,75

bulimpact(pick-209)=205

delete object x:pick=250

endif

next pick

for pick=210 to 250

if object exist(pick)=0

imx(pick-209)=object position x(dbc3):imy(pick-209)=object position y(dbc3)

make spherical emitter pick,200

set object collision off pick

set emitter particle life pick,10,100

bind effector to object 2000,pick

position object pick,imx(pick-209),imy(pick-209),250

set emitter rate pick,5000

set emitter particle velocity pick,200,50

set emitter particle color pick,255,140,50,255

set emitter particle size pick,1.5,100

bulimpact(pick-209)=205

hide object dbc3:set object collision off dbc3:pick=250

if dbc3=13 then epresent13=0

if dbc3=14 then epresent14=0

endif

next pick

endif

dbc3=14

endif

next dbc3

endif

next x

endif

for x=501 to 501+enumber-1

if eedur(x-500)>0

position object x,eex(x-500),eey(x-500),250

if eedur(x-500)=505 then set emitter particle color x,5,62,255,255

if eedur(x-500)=502 then set emitter particle color x,0,255,255,255

if eedur(x-500)=499 then set emitter rate x,0

dec eedur(x-500)

if eedur(x-500)=0 then delete emitter x

endif

next x

for x=210 to 240

if object exist(x)=1

position object x,imx(x-209),imy(x-209),250

dec bulimpact(x-209)

if bulimpact(x-209)=208 then set emitter particle color x,43,226,247,255

if bulimpact(x-209)=200 then set emitter rate x,0

if bulimpact(x-209)=0 then delete emitter x

endif

next x

for x=901 to 900+enumber-1

if object exist(x)=1

inc spsize(x-900),5

if spsize(x-900)>600 then dec spsize(x-900),5 else scale object x,spsize(x-900),spsize(x-900),spsize(x-900)

if spsize(x-900)=600

dec spcheck(x-900),2

scale object x,spsize(x-900)-(200-spcheck(x-900)),spsize(x-900)-(200-spcheck(x-900)),spsize(x-900)-(200-spcheck(x-900))

fade object x,spcheck(x-900)

if spcheck(x-900)<2 then delete object x:spsize(x-900)=0:spcheck(x-900)=0

endif

next x

if landed<2 and inst=-1

inc shipx#,shipdirx#:inc shipy#,shipdiry#

if shipy#>900 then dec shipy#,shipdiry#

endif

if lives>0 and landed<2

position camera shipx#,shipy#+300,-380

point camera shipx#+(shipdirx#*50),shipy#+50-(shipy#/4),250

endif

set cursor 0,0

ink RGB(0,255,0),0

set cursor 0,0:print "ENEMIES DESTROYED->";edead;

ink rgb(rnd(255),rnd(255),rnd(255)),0

set cursor screen width()/2-60,0

print "GRAVITY MASTER"

set cursor screen width()/2-75,15

print "By:Richard Sardini"

ink RGB(0,255,0),0

set cursor screen width()/2-65,30

print "VOLUME ADJUST'<>'"

line screen width()/2-65,45,(screen width()/2)-65+volume#,45

set cursor 600,0:print "SHIPS REMAINING->";lives;

set cursor 0,520

if inst=-1

if shields#<100 then ink rgb(255,0,0),0 else ink rgb(0,255,0),0

print "SHIELDS->"

for y=520 to 530

line 100,y,100+(shields#*.5),y

next y

set cursor 0,550

if fuel#<100 then ink rgb(255,0,0),0 else ink rgb(0,255,0),0

if fuel#<100 and lowfuel=0

play sound 7

lowfuel=1

endif

print "FUEL---->"

for y=550 to 560

line 100,y,100+(fuel#*.5),y

next y

endif

update physics

sync

loop

Download

Please login to download

Comments

No comments yet.

CodeBase - gravity master

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Rasdini
CodeBase Entries:	13