DBC Landscape DEMO! Try 2... - GameCreators Forum

Author

Message

PiratSS

21

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 28th Feb 2003 02:01

Link

Hello,

This is my first public game.(Second try...)

Here is some info and features:

-Move your aircraft with mouse

Features:
-Unlimited landscape
-Shadows
-Water(With tide)
-Smoke trail effect
-Trees
-Moon and backdrop
-Fog
-Music!(Yep, all under 200kbs!)

Code:

`*****************************************************************
`GREETINGS FELLOW DB'ers!!! This is my first public game on DB!
`It might be a little bit hard to understand, so
`if you have any questions at all, please feel free to contact me!
`Email+MSN:piratss@hotmail.com
`*****************************************************************
`CUSTOMIZABLE PART!
sync rate 0:trees=26
`*******************

`THE HEAVY 19 LINES!
sync on:hide mouse:load image "grass.JPG",1:load image "smoke.JPG",3:load image "dark.JPG",4
load image "moon.JPG",6:load image "stars.JPG",7:load music "music.mid",1:loop music 1:make object plain 12500,25,25
texture object 12500,6:ghost object on 12500:scale object 12500,300,300,300:set object 12500,1,0,0,0,0,0,0
for i=2 to 3:make object plain i,25,25:texture object i,3:ghost object on i:xrotate object i,90
fix object pivot i:scale object i,3,100,100:next i:make matrix 1,1000,1000,20,20:prepare matrix texture 1,1,2,2
fill matrix 1,10,1:randomize matrix 1,2*10:make matrix 3,1000,1000,20,20:prepare matrix texture 3,4,2,2:fill matrix 3,10,4
randomize matrix 3,2:ghost matrix on 3:color backdrop rgb(0,0,0):texture backdrop 7:fog on
fog distance 300:load object "air.x",1:scale object 1,10,10,10:yrotate object 1,270:load object "air.x",100
scale object 100,10,0,10:yrotate object 100,270:color object 100,rgb(12,12,12):set object 100,1,1,0,0,0,0,0:fix object pivot 1
fix object pivot 100:for i=4 to trees+4:load object "tree2.x",i:scale object i,1000+rnd(1000),1000+rnd(1000),1000+rnd(1000):X2#=500+rnd(500)-250
Z2#=500+rnd(500)-250:Y2#=get ground height(1,X2#,Z2#)+20:position object i,X2#,Y2#,Z2#:next i:do
oldx#=x#:scroll object texture 2,0,-0.01:scroll object texture 3,0,-0.01:sz#=sz#-5.0:x#=x#+(mousemoveX()/9)
if sz#506 then x#=oldx#
center text 320,0,"Landscape 20 Lines DBC Speedy Demo":center text 320,20,"Frames per second: "+str$(screen fps())
position matrix 1,sx#,0,sz#:position matrix 3,sx#,5,sz#:position camera 500,50,Z#+500:sync:loop
`*********************

+ Code Snippet

`*****************************************************************
`GREETINGS FELLOW DB'ers!!! This is my first public game on DB!
`It might be a little bit hard to understand, so
`if you have any questions at all, please feel free to contact me!
`Email+MSN:piratss@hotmail.com
`*****************************************************************
`CUSTOMIZABLE PART!
sync rate 0:trees=26
`*******************

`THE HEAVY 19 LINES!
sync on:hide mouse:load image "grass.JPG",1:load image "smoke.JPG",3:load image "dark.JPG",4
load image "moon.JPG",6:load image "stars.JPG",7:load music "music.mid",1:loop music 1:make object plain 12500,25,25
texture object 12500,6:ghost object on 12500:scale object 12500,300,300,300:set object 12500,1,0,0,0,0,0,0
for i=2 to 3:make object plain i,25,25:texture object i,3:ghost object on i:xrotate object i,90
fix object pivot i:scale object i,3,100,100:next i:make matrix 1,1000,1000,20,20:prepare matrix texture 1,1,2,2
fill matrix 1,10,1:randomize matrix 1,2*10:make matrix 3,1000,1000,20,20:prepare matrix texture 3,4,2,2:fill matrix 3,10,4
randomize matrix 3,2:ghost matrix on 3:color backdrop rgb(0,0,0):texture backdrop 7:fog on
fog distance 300:load object "air.x",1:scale object 1,10,10,10:yrotate object 1,270:load object "air.x",100
scale object 100,10,0,10:yrotate object 100,270:color object 100,rgb(12,12,12):set object 100,1,1,0,0,0,0,0:fix object pivot 1
fix object pivot 100:for i=4 to trees+4:load object "tree2.x",i:scale object i,1000+rnd(1000),1000+rnd(1000),1000+rnd(1000):X2#=500+rnd(500)-250
Z2#=500+rnd(500)-250:Y2#=get ground height(1,X2#,Z2#)+20:position object i,X2#,Y2#,Z2#:next i:do
oldx#=x#:scroll object texture 2,0,-0.01:scroll object texture 3,0,-0.01:sz#=sz#-5.0:x#=x#+(mousemoveX()/9)
if sz#506 then x#=oldx#
center text 320,0,"Landscape 20 Lines DBC Speedy Demo":center text 320,20,"Frames per second: "+str$(screen fps())
position matrix 1,sx#,0,sz#:position matrix 3,sx#,5,sz#:position camera 500,50,Z#+500:sync:loop
`*********************

Media link: http://piratss.freewebspace.com/main.html

http://web.utanet.at/nkehrer/m_ldrun.jpg[/img]
Toughest line of code

col$=asc(left(Pcol$)),1+str$(rev)+chr(80)+left(right(mid(name$),1),1)

Back to top

Profile PM

PiratSS

21

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 28th Feb 2003 02:04

Link

If the above code didn't work:

`*****************************************************************
`GREETINGS FELLOW DB'ers!!! This is my first public game on DB!
`It might be a little bit hard to understand, so
`if you have any questions at all, please feel free to contact me!
`Email+MSN:piratss@hotmail.com
`*****************************************************************
`CUSTOMIZABLE PART!
sync rate 0:trees=26
`*******************

`THE HEAVY 19 LINES!
sync on:hide mouse:load image "grass.JPG",1:load image "smoke.JPG",3:load image "dark.JPG",4
load image "moon.JPG",6:load image "stars.JPG",7:load music "music.mid",1:loop music 1:make object plain 12500,25,25
texture object 12500,6:ghost object on 12500:scale object 12500,300,300,300:set object 12500,1,0,0,0,0,0,0
for i=2 to 3:make object plain i,25,25:texture object i,3:ghost object on i:xrotate object i,90
fix object pivot i:scale object i,3,100,100:next i:make matrix 1,1000,1000,20,20:prepare matrix texture 1,1,2,2
fill matrix 1,10,1:randomize matrix 1,2*10:make matrix 3,1000,1000,20,20:prepare matrix texture 3,4,2,2:fill matrix 3,10,4
randomize matrix 3,2:ghost matrix on 3:color backdrop rgb(0,0,0):texture backdrop 7:fog on
fog distance 300:load object "air.x",1:scale object 1,10,10,10:yrotate object 1,270:load object "air.x",100
scale object 100,10,0,10:yrotate object 100,270:color object 100,rgb(12,12,12):set object 100,1,1,0,0,0,0,0:fix object pivot 1
fix object pivot 100:for i=4 to trees+4:load object "tree2.x",i:scale object i,1000+rnd(1000),1000+rnd(1000),1000+rnd(1000):X2#=500+rnd(500)-250
Z2#=500+rnd(500)-250:Y2#=get ground height(1,X2#,Z2#)+20:position object i,X2#,Y2#,Z2#:next i:do
oldx#=x#:scroll object texture 2,0,-0.01:scroll object texture 3,0,-0.01:sz#=sz#-5.0:x#=x#+(mousemoveX()/9)
if sz#<0.0:shift matrix up 1:sz#=sz#+50.0:endif:for i=4 to trees+4
Z2#=object position Z(i)-5:if object position Z(i)<=400:X2#=500+rnd(500)-250:Z2#=900+rnd(500)-250:Y2#=get ground height(1,X2#,Z2#)
position object i,X2#,Y2#,Z2#:scale object i,1000+rnd(1000),1000+rnd(1000),1000+rnd(1000):endif:position object i,object position x(i),object position y(i),Z2#:next i
position object 1,X#+500,50-5,Z#+500+7:position object 2,X#+500-.2,50-5,Z#+500-6:position object 3,X#+500+.2,50-5,Z#+500-6:position object 12500,700,150-5,900
position object 100,X#+500,50-15,Z#+500+7+10:if object position x(1)<494 or object position x(1)>506 then x#=oldx#
center text 320,0,"Landscape 20 Lines DBC Speedy Demo":center text 320,20,"Frames per second: "+str$(screen fps())
position matrix 1,sx#,0,sz#:position matrix 3,sx#,5,sz#:position camera 500,50,Z#+500:sync:loop
`*********************

+ Code Snippet

`*****************************************************************
`GREETINGS FELLOW DB'ers!!! This is my first public game on DB!
`It might be a little bit hard to understand, so
`if you have any questions at all, please feel free to contact me!
`Email+MSN:piratss@hotmail.com
`*****************************************************************
`CUSTOMIZABLE PART!
sync rate 0:trees=26
`*******************

`THE HEAVY 19 LINES!
sync on:hide mouse:load image "grass.JPG",1:load image "smoke.JPG",3:load image "dark.JPG",4
load image "moon.JPG",6:load image "stars.JPG",7:load music "music.mid",1:loop music 1:make object plain 12500,25,25
texture object 12500,6:ghost object on 12500:scale object 12500,300,300,300:set object 12500,1,0,0,0,0,0,0
for i=2 to 3:make object plain i,25,25:texture object i,3:ghost object on i:xrotate object i,90
fix object pivot i:scale object i,3,100,100:next i:make matrix 1,1000,1000,20,20:prepare matrix texture 1,1,2,2
fill matrix 1,10,1:randomize matrix 1,2*10:make matrix 3,1000,1000,20,20:prepare matrix texture 3,4,2,2:fill matrix 3,10,4
randomize matrix 3,2:ghost matrix on 3:color backdrop rgb(0,0,0):texture backdrop 7:fog on
fog distance 300:load object "air.x",1:scale object 1,10,10,10:yrotate object 1,270:load object "air.x",100
scale object 100,10,0,10:yrotate object 100,270:color object 100,rgb(12,12,12):set object 100,1,1,0,0,0,0,0:fix object pivot 1
fix object pivot 100:for i=4 to trees+4:load object "tree2.x",i:scale object i,1000+rnd(1000),1000+rnd(1000),1000+rnd(1000):X2#=500+rnd(500)-250
Z2#=500+rnd(500)-250:Y2#=get ground height(1,X2#,Z2#)+20:position object i,X2#,Y2#,Z2#:next i:do
oldx#=x#:scroll object texture 2,0,-0.01:scroll object texture 3,0,-0.01:sz#=sz#-5.0:x#=x#+(mousemoveX()/9)
if sz#<0.0:shift matrix up 1:sz#=sz#+50.0:endif:for i=4 to trees+4
Z2#=object position Z(i)-5:if object position Z(i)<=400:X2#=500+rnd(500)-250:Z2#=900+rnd(500)-250:Y2#=get ground height(1,X2#,Z2#)
position object i,X2#,Y2#,Z2#:scale object i,1000+rnd(1000),1000+rnd(1000),1000+rnd(1000):endif:position object i,object position x(i),object position y(i),Z2#:next i
position object 1,X#+500,50-5,Z#+500+7:position object 2,X#+500-.2,50-5,Z#+500-6:position object 3,X#+500+.2,50-5,Z#+500-6:position object 12500,700,150-5,900
position object 100,X#+500,50-15,Z#+500+7+10:if object position x(1)<494 or object position x(1)>506 then x#=oldx#
center text 320,0,"Landscape 20 Lines DBC Speedy Demo":center text 320,20,"Frames per second: "+str$(screen fps())
position matrix 1,sx#,0,sz#:position matrix 3,sx#,5,sz#:position camera 500,50,Z#+500:sync:loop
`*********************

Toughest line of code

col$=asc(left(Pcol$)),1+str$(rev)+chr(80)+left(right(mid(name$),1),1)

Back to top

Profile PM

PiratSS

21

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 2nd Mar 2003 06:41

Link

did anyone try this yet?

I want to hear some feedback if possible.

Toughest line of code

col$=asc(left(Pcol$)),1+str$(rev)+chr(80)+left(right(mid(name$),1),1)

Back to top

Profile PM

indi

21

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 8th Mar 2003 10:42

Link

49 fps

pentium 3
933
512 ram
tnt2 m64

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

Andy Igoe

21

Years of Service

User Offline

Joined: 6th Oct 2002

Location: United Kingdom

Posted: 8th Mar 2003 16:13

Link

100-120fps

AMD 2Ghz
512mb Ram
GeForce 2

Suffered from intermittant major screen jerking. Was flying in a strait line because I didn't read the instructions....

Pneumatic Dryll, Outrageous epic cleric of EQ/Xev
God made the world in 7 days, but we're still waiting for the patch.

Back to top

Profile PM Email Website

LLX

21

Years of Service

User Offline

Joined: 17th Feb 2003

Location:

Posted: 9th Mar 2003 03:07

Link

60-160 fps, pentium 4 1.6 ghz 1gb ram, radon 900

Back to top

Profile PM

IanM

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 9th Mar 2003 16:55

Link

Bah! I can't get the media.

I get this message:

Forbidden
Remote Host: [*.*.*.*]
You do not have permission to access http://piratss.freewebspace.com/mediascr.zip
Data files must be stored on the same site they are linked from.

Can someone email the media to me please? I'd love to try it out.

Back to top

Profile PM Email Website

PiratSS

21

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 12th Mar 2003 21:59

Link

First goto piratss.freewebspace.com then click on the link. It works.

Toughest line of code

col$=asc(left(Pcol$)),1+str$(rev)+chr(80)+left(right(mid(name$),1),1)

Back to top

Profile PM

Jimmy Cool

21

Years of Service

User Offline

Joined: 6th Mar 2003

Location: United States

Posted: 13th Mar 2003 01:07

Link

I LOVE IT, couldn't stop dodging trees, someone give this guy a dollar!

75 fps

***********************************************
Me, i'll just be here crying my brains out

Back to top

Profile PM Email Website

PiratSS

21

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 13th Mar 2003 20:37

Link

Thx. You can try making em bigger, that's more fun

Toughest line of code

col$=asc(left(Pcol$)),1+str$(rev)+chr(80)+left(right(mid(name$),1),1)

Back to top

Profile PM

Dave J

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Feb 2003

Location: Secret Military Pub, Down Under

Posted: 14th Mar 2003 14:27

Link

Hmm, I may be wrong about this but shouldn't the shadows be the other way around? Providing there is a light source, if it was directly above you the shadow would be directly below you (like seen when the plane is positioned right in the middle) but if you move to the left then I believe the shadows would actually move further left then you rather then you moving further then them. The same goes for when moving right.

Other then that, it's a great game and much better then what my first program ever was.

"Computers are useless they can only give you answers."

Back to top

Profile PM Email

PiratSS

21

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 14th Mar 2003 18:08

Link

I agree Exeat, but if you look closely the back side of the plane is more contrasted than the front. I had to make shadows on front, that would mean that there is a light source from behind. It all works out in the end since my smoke would look too fake if the plane was too far from the camera.

Cheers.

Toughest line of code

col$=asc(left(Pcol$)),1+str$(rev)+chr(80)+left(right(mid(name$),1),1)

Back to top

Profile PM

Sorry your browser is not supported!

The 20 Line Challenge / DBC Landscape DEMO! Try 2...