DBC Landscape Demo! - GameCreators Forum

Author

Message

PiratSS

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 25th Feb 2003 02:58

Link

Hello,

This is my first public game.

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!)

`*****************************************************************
`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

`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
`*********************

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

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 25th Feb 2003 02:59

Link

sorry,

second try:

`*****************************************************************
`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

Richard Davey

Retired Moderator

22

Years of Service

User Offline

Joined: 30th Apr 2002

Location: On the Jupiter Probe

Posted: 25th Feb 2003 03:01

Link

You might want to upload that to some webspace somewhere so we can all benefit from parts like "load image smoke.jpg"

Cheers,

Rich

"Gentlemen, we are about to short-circuit the Universe!"
DB Team / Atari ST / DarkForge / Retro Gaming

Back to top

Profile PM Email Website

PiratSS

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 25th Feb 2003 03:03

Link

and here is all the media:

http://http://www.realgametools.net/forums/attachments/media20l.zip

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

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 25th Feb 2003 03:03

Link

sry...
double Http thingy!
http://www.realgametools.net/forums/attachments/media20l.zip

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

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 25th Feb 2003 03:06

Link

That's weird. Here's one again...

http://www.realgametools.net/forums/attachments/mediascr.zip

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

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 25th Feb 2003 03:08

Link

Cool, It all works!

Weird, I never had these problems...

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

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 25th Feb 2003 03:11

Link

Note: Only works for DBC!

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

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 25th Feb 2003 16:15

Link

did anyone try it?

I want to hear some feed back.

Toughest line of code

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

Back to top

Profile PM

D Man

22

Years of Service

User Offline

Joined: 3rd Oct 2002

Location: Germany

Posted: 25th Feb 2003 17:48

Link

The server is not available for me.

"If you can't make it good
make it look good."
Bill Gates

Back to top

Profile PM Email

PiratSS

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 25th Feb 2003 20:54

Link

Yea, download mediascr.zip, not media20l.zip.

Thx

Toughest line of code

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

Back to top

Profile PM

Bishop

21

Years of Service

User Offline

Joined: 18th Dec 2002

Location: In my favorite chair...

Posted: 27th Feb 2003 05:11

Link

the media download isn't there.

"When you were born, you cried and the world rejoiced. Live so when you die, the world cries and you rejoice."

Back to top

Profile PM Email

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 27th Feb 2003 07:26

Link

bad link here also.

http://www.lunarpixel.com

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

Back to top

Profile PM Email

Benjamin

22

Years of Service

User Offline

Joined: 24th Nov 2002

Location: France

Posted: 27th Feb 2003 17:42

Link

doesnt seem to work.

xxxpetratxxx
B. R. W

Back to top

Profile PM Email

The Darthster

22

Years of Service

User Offline

Joined: 25th Sep 2002

Location: United Kingdom

Posted: 27th Feb 2003 22:19

Link

Can't download the media.

Once I was but the learner,
now, I am the Master.

Back to top

Profile PM Email Website

PiratSS

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 28th Feb 2003 00:47

Link

here.

try this: http://http://piratss.freewebspace.com/mediascr.zip

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

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 28th Feb 2003 00:47

Link

http://piratss.freewebspace.com/mediascr.zip

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

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 28th Feb 2003 01:00

Link

Ok,

here is the final post:
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#<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
`*********************

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

Toughest line of code

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

Back to top

Profile PM

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 4th Mar 2003 22:37

Link

Worked for me. Thats excellent for 20 lines, I've never seem anything like that in 20 lines. One thing I fixed was the scrolling of the ship, it was in massive steps. I put...

move_x#=mousemovex()
move_x#=move_x#/10
x#=x#+move_x#

rather than...

x#=x#+mousemovex()/9

The mousemovex() function seems to return an integer so you get an integer when dividing it, so you have to store the value as a real number and then divide it to get smaller steps and smoother movement.

`*****************************************************************
`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:move_x#=mousemovex():move_x#=move_x#/10
x#=x#+move_x#: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:move_x#=mousemovex():move_x#=move_x#/10
x#=x#+move_x#: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
`*********************

Yum! Yum! Yum! Yum!

Back to top

Profile PM Email Website

PiratSS

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 5th Mar 2003 00:40

Link

cool, thx alot.

Thx for that little addition, I was wondering why it moved in such huge steps.

Btw, I didn't look at any tutorials for the landscape,

I just sat down, and decided that it's time to make a 20 liner

Toughest line of code

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

Back to top

Profile PM

TheMaster

21

Years of Service

User Offline

Joined: 14th Mar 2003

Location: United States

Posted: 21st Mar 2003 20:52

Link

Pretty Good Programming!

Were did your learn that?

Destroyer's are not killers they are programmers!

Back to top

Profile PM Email Website

PiratSS

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 21st Mar 2003 23:23

Link

Can't say that I learned it from a tutorial or something.

Just "my way " of programming.

BTW,

I will put up a new demo soon.

Current project for RGT:

ALL MY STUFF ARE GONE!! ALL OF IT!!!

Back to top

Profile PM

Sorry your browser is not supported!

The 20 Line Challenge / DBC Landscape Demo!