Yet another Semi-n00b with a question.....

Author

Message

Skybax

21

Years of Service

User Offline

Joined: 20th May 2003

Location: United States

Posted: 10th Mar 2004 02:11

Link

Hello all,

I am a DBC user and I've run into a bit of a fix......I am trying to retain the hill effect without the program randomizing and I can't seem to make a cave on it for the player to go in. I have tried to make strafing code and jumping code but no matter what I do nothing will work.

I am at a loss as of what to do. Any help that could be offered would help me a great deal. Here is the peice of code that is giving me such trouble.

set display mode 1024,768,16

rem village wall
Load image "cottag02.bmp",2
make object plain 1,2025,714
texture object 1,2
position object 1,5000,20,5900

rem village
Load image "aztec01.bmp",2
Make object box 10,300,400,300
Texture object 10,2
position object 10,6240,20,6269

rem village 
Load image "aztec01.bmp",2
Make object box 12,300,400,300
Texture object 12,2
position object 12,5789,20,6699

rem village
Load image "aztec01.bmp",2
Make object box 13,300,400,300
Texture object 13,2
position object 13,6849,20,6869

rem load music into file 1
Load music "Field.mid",1

rem play midi 1
play music 1

Sync On 
Sync Rate 34
Hide Mouse
Backdrop On
set camera range 1,10000

Fog on
Fog distance 400
Fog color RGB(128,128,499)
Color Backdrop RGB(128,128,499)

rem make matrix
make matrix 1,10000,10000,20,20

rem fill matrix
Load image "creep02.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem radomize matrix
randomize matrix 1,125
X#=5000
Z#=5000

rem Main Loop
Do
OldCamAngleY#=CameraAngleY#
OldCamAngleX#=CameraAngleX#
CameraAngleY#=Wrapvalue(CameraAngleY#+MousemoveX()*0.2)
CameraAngleX#=Wrapvalue(CameraAngleX#+MousemoveY()*0.2)

rem Control input for Camera
If Upkey()=1
XTest#=Newxvalue(X#,CameraAngleY#,10)
ZTest#=Newzvalue(Z#,CameraAngleY#,10)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif

If Downkey()=1
XTest#=Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10)
ZTest#=Newzvalue(X#,Wrapvalue(CameraAngleY#-180),10)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif

+ Code Snippet

set display mode 1024,768,16

rem village wall
Load image "cottag02.bmp",2
make object plain 1,2025,714
texture object 1,2
position object 1,5000,20,5900

rem village
Load image "aztec01.bmp",2
Make object box 10,300,400,300
Texture object 10,2
position object 10,6240,20,6269

rem village 
Load image "aztec01.bmp",2
Make object box 12,300,400,300
Texture object 12,2
position object 12,5789,20,6699

rem village
Load image "aztec01.bmp",2
Make object box 13,300,400,300
Texture object 13,2
position object 13,6849,20,6869

rem load music into file 1
Load music "Field.mid",1

rem play midi 1
play music 1

Sync On 
Sync Rate 34
Hide Mouse
Backdrop On
set camera range 1,10000

Fog on
Fog distance 400
Fog color RGB(128,128,499)
Color Backdrop RGB(128,128,499)

rem make matrix
make matrix 1,10000,10000,20,20

rem fill matrix
Load image "creep02.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem radomize matrix
randomize matrix 1,125
X#=5000
Z#=5000

rem Main Loop
Do
OldCamAngleY#=CameraAngleY#
OldCamAngleX#=CameraAngleX#
CameraAngleY#=Wrapvalue(CameraAngleY#+MousemoveX()*0.2)
CameraAngleX#=Wrapvalue(CameraAngleX#+MousemoveY()*0.2)

rem Control input for Camera
If Upkey()=1
XTest#=Newxvalue(X#,CameraAngleY#,10)
ZTest#=Newzvalue(Z#,CameraAngleY#,10)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif

If Downkey()=1
XTest#=Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10)
ZTest#=Newzvalue(X#,Wrapvalue(CameraAngleY#-180),10)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif

There is no king who has not had a slave among his ancestors, and no slave who has not had a king among his

Ph33r the Ringwraiths

Back to top

Profile PM

BearCDPOLD

20

Years of Service

User Offline

Joined: 16th Oct 2003

Location: AZ,USA

Posted: 10th Mar 2004 03:13

Link

The camera code should be fixed, I didn't see much though because the matrix wouldn't show up.

Crazy Donut Productions
Current Project: KillZone

Back to top

Profile PM Email Website

DarkSin

21

Years of Service

User Offline

Joined: 23rd Jul 2003

Location: Under your bed

Posted: 10th Mar 2004 08:10 Edited at: 10th Mar 2004 08:11

Link

hmm i could be wrong but arent the images supppost to have diffrent numbers? not really sure though since I never used DBC, just DBP.
"rem village wall
Load image "cottag02.bmp",2
make object plain 1,2025,714
texture object 1,2
position object 1,5000,20,5900

rem village
Load image "aztec01.bmp",2
Make object box 10,300,400,300
Texture object 10,2
position object 10,6240,20,6269

rem village
Load image "aztec01.bmp",2
Make object box 12,300,400,300
Texture object 12,2
position object 12,5789,20,6699

rem village
Load image "aztec01.bmp",2
Make object box 13,300,400,300
Texture object 13,2
position object 13,6849,20,6869"

+ Code Snippet

Example:
rem village wall
Load image "cottag02.bmp",3
make object plain 1,2025,714
texture object 1,2
position object 1,5000,20,5900

rem village
Load image "aztec01.bmp",4
Make object box 10,300,400,300
Texture object 10,2
position object 10,6240,20,6269

rem village 
Load image "aztec01.bmp",5
Make object box 12,300,400,300
Texture object 12,2
position object 12,5789,20,6699

rem village
Load image "aztec01.bmp",6
Make object box 13,300,400,300
Texture object 13,2
position object 13,6849,20,6869

[url=www.bloodnest.net]

[/url]

Back to top

Profile PM Email Website

Skybax

21

Years of Service

User Offline

Joined: 20th May 2003

Location: United States

Posted: 10th Mar 2004 08:16

Link

The matrix didn't show up?!

Weird! Urgh....how badly did I kill that code?!

Odd..now the screen is only showing up blue.......

There is no king who has not had a slave among his ancestors, and no slave who has not had a king among his

Ph33r the Ringwraiths

Back to top

Profile PM

Skybax

21

Years of Service

User Offline

Joined: 20th May 2003

Location: United States

Posted: 10th Mar 2004 08:19

Link

Thanks, Dark Skin

There is no king who has not had a slave among his ancestors, and no slave who has not had a king among his

Ph33r the Ringwraiths

Back to top

Profile PM

Skybax

21

Years of Service

User Offline

Joined: 20th May 2003

Location: United States

Posted: 10th Mar 2004 22:06

Link

Ok....I've managed to fix up the code so it looks like this:

Sync On 
Sync Rate 40 
hide mouse 
Backdrop on 
Set camera range 1,15000

Fog on 
Fog distance 2000 
Fog color RGB(128,128,128) 
Color Backdrop RGB(128,128,128)

Rem make matrix 
Make matrix 1,10000,10000,20,20

Rem texture matrix 
Load image "moss01.bmp",1 
Prepare matrix texture 1,1,1,1 
Fill matrix 1,0,1

rem Randomize the matrix 
randomize matrix 1,125 
X#=5000 
Z#=5000 
Rem Main loop 
Do 
 OldCamAngleY# = CameraAngleY# 
 OldCamAngleX# = CameraAngleX#

CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2) 
 CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)

Rem  Control input for camera 
 If Upkey()=1 
  XTest# = Newxvalue(X#,CameraAngleY#,10) 
  ZTest# = Newzvalue(Z#,CameraAngleY#,10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif

If Downkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 
  
 If Leftkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif

If Rightkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif

Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24) 
 Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)

Y# = Get ground height(1,X#,Z#) 
 Position Camera X#,Y#+50,Z#

Rem Refresh Screen 
 Sync

+ Code Snippet

Sync On 
Sync Rate 40 
hide mouse 
Backdrop on 
Set camera range 1,15000 

Fog on 
Fog distance 2000 
Fog color RGB(128,128,128) 
Color Backdrop RGB(128,128,128) 

Rem make matrix 
Make matrix 1,10000,10000,20,20 

Rem texture matrix 
Load image "moss01.bmp",1 
Prepare matrix texture 1,1,1,1 
Fill matrix 1,0,1 

rem Randomize the matrix 
randomize matrix 1,125 
X#=5000 
Z#=5000 
Rem Main loop 
Do 
 OldCamAngleY# = CameraAngleY# 
 OldCamAngleX# = CameraAngleX# 

 CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2) 
 CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2) 

 Rem  Control input for camera 
 If Upkey()=1 
  XTest# = Newxvalue(X#,CameraAngleY#,10) 
  ZTest# = Newzvalue(Z#,CameraAngleY#,10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 

 If Downkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 
  
 If Leftkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 

 If Rightkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 
  

 Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24) 
 Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24) 
  

 Y# = Get ground height(1,X#,Z#) 
 Position Camera X#,Y#+50,Z# 

 Rem Refresh Screen 
 Sync

Now, the only problem is that I cannot figure out how to keep the matrix's hilly appearence without having it change......

Thank you all!

Clear skies and fair weather!

There is no king who has not had a slave among his ancestors, and no slave who has not had a king among his

Ph33r the Ringwraiths

Back to top

Profile PM

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 11th Mar 2004 08:26 Edited at: 11th Mar 2004 08:39

Link

you just want one hill? thank red_eye this is from the code base

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

Rem Make_hill function
rem By ReD_eYe

sync on
sync rate 50

make matrix 1,1000,1000,100,100

rem h=height
rem s=smoothing effect
rem r=radius(in tiles)
rem matnum=matrix number
rem x/z tile coordinates
h=200
s=30
r=10
matnum=1
x=50
z=50

make_hill(matnum,x,z,r,h,s)

do

control camera using arrowkeys 0,10,2
position camera camera position x(),100,camera position z()
sync
loop

function make_hill(matnum,xpos,zpos,r,h,s)

for x=xpos-r to xpos+r
for z=zpos-r to zpos+r
if x>0 and z>0
set matrix height matnum,x,z,h
endif
next z
next x

for t=1 to s
for x=xpos-r to xpos+r
for z=zpos-r to zpos+r
if x>0 and z>0
a=get matrix height(matnum,x-1,z+1)
b=get matrix height(matnum,x,z+1)
c=get matrix height(matnum,x+1,z+1)
d=get matrix height(matnum,x+1,z)
e=get matrix height(matnum,x+1,z-1)
f=get matrix height(matnum,x,z-1)
g=get matrix height(matnum,x-1,z-1)
h=get matrix height(matnum,x-1,z)
total=a+b+c+d+e+f+g+h
av#=total/8
set matrix height matnum,x,z,av#
endif

next z
next x
next t

update matrix matnum
endfunction

+ Code Snippet

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

Rem Make_hill function
rem By ReD_eYe

sync on
sync rate 50


make matrix 1,1000,1000,100,100


rem h=height
rem s=smoothing effect
rem r=radius(in tiles)
rem matnum=matrix number
rem x/z tile coordinates
h=200
s=30
r=10
matnum=1
x=50
z=50

make_hill(matnum,x,z,r,h,s)

do

control camera using arrowkeys 0,10,2
position camera camera position x(),100,camera position z()
sync
loop

function make_hill(matnum,xpos,zpos,r,h,s)

for x=xpos-r to xpos+r
for z=zpos-r to zpos+r
if x>0 and z>0
set matrix height matnum,x,z,h
endif
next z
next x

for t=1 to s
for x=xpos-r to xpos+r
for z=zpos-r to zpos+r
if x>0 and z>0
a=get matrix height(matnum,x-1,z+1)
b=get matrix height(matnum,x,z+1)
c=get matrix height(matnum,x+1,z+1)
d=get matrix height(matnum,x+1,z)
e=get matrix height(matnum,x+1,z-1)
f=get matrix height(matnum,x,z-1)
g=get matrix height(matnum,x-1,z-1)
h=get matrix height(matnum,x-1,z)
total=a+b+c+d+e+f+g+h
av#=total/8
set matrix height matnum,x,z,av#
endif

next z
next x
next t

update matrix matnum
endfunction

Sync On
Sync Rate 40
hide mouse
Backdrop on
Set camera range 1,15000

Fog on
Fog distance 2000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)

Rem make matrix
Make matrix 1,10000,10000,100,100

rem h=height
rem s=smoothing effect
rem r=radius(in tiles)
rem matnum=matrix number
rem x/z tile coordinates
h=200
s=30
r=10
matnum=1
x=50
z=50

make_hill(matnum,x,z,r,h,s)
Rem texture matrix
Load image "moss01.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1
X#=5000
Z#=5000
Rem Main loop
Do
 OldCamAngleY# = CameraAngleY#
 OldCamAngleX# = CameraAngleX#

CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2)
 CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)

Rem  Control input for camera
 If Upkey()=1
  XTest# = Newxvalue(X#,CameraAngleY#,10)
  ZTest# = Newzvalue(Z#,CameraAngleY#,10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

If Downkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

If Leftkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

If Rightkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)
 Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)

Y# = Get ground height(1,X#,Z#)
 Position Camera X#,Y#+50,Z#

Rem Refresh Screen
 Sync
 loop
function make_hill(matnum,xpos,zpos,r,h,s)

for x=xpos-r to xpos+r
for z=zpos-r to zpos+r
if x>0 and z>0
set matrix height matnum,x,z,h
endif
next z
next x

for t=1 to s
for x=xpos-r to xpos+r
for z=zpos-r to zpos+r
if x>0 and z>0
a=get matrix height(matnum,x-1,z+1)
b=get matrix height(matnum,x,z+1)
c=get matrix height(matnum,x+1,z+1)
d=get matrix height(matnum,x+1,z)
e=get matrix height(matnum,x+1,z-1)
f=get matrix height(matnum,x,z-1)
g=get matrix height(matnum,x-1,z-1)
h=get matrix height(matnum,x-1,z)
total=a+b+c+d+e+f+g+h
av#=total/8
set matrix height matnum,x,z,av#
endif

next z
next x
next t

update matrix matnum
endfunction

+ Code Snippet

Sync On
Sync Rate 40
hide mouse
Backdrop on
Set camera range 1,15000

Fog on
Fog distance 2000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)

Rem make matrix
Make matrix 1,10000,10000,100,100

rem h=height
rem s=smoothing effect
rem r=radius(in tiles)
rem matnum=matrix number
rem x/z tile coordinates
h=200
s=30
r=10
matnum=1
x=50
z=50

make_hill(matnum,x,z,r,h,s)
Rem texture matrix
Load image "moss01.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1
X#=5000
Z#=5000
Rem Main loop
Do
 OldCamAngleY# = CameraAngleY#
 OldCamAngleX# = CameraAngleX#

 CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2)
 CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)

 Rem  Control input for camera
 If Upkey()=1
  XTest# = Newxvalue(X#,CameraAngleY#,10)
  ZTest# = Newzvalue(Z#,CameraAngleY#,10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

 If Downkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

 If Leftkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

 If Rightkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif


 Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)
 Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)


 Y# = Get ground height(1,X#,Z#)
 Position Camera X#,Y#+50,Z#

 Rem Refresh Screen
 Sync
 loop
function make_hill(matnum,xpos,zpos,r,h,s)

for x=xpos-r to xpos+r
for z=zpos-r to zpos+r
if x>0 and z>0
set matrix height matnum,x,z,h
endif
next z
next x

for t=1 to s
for x=xpos-r to xpos+r
for z=zpos-r to zpos+r
if x>0 and z>0
a=get matrix height(matnum,x-1,z+1)
b=get matrix height(matnum,x,z+1)
c=get matrix height(matnum,x+1,z+1)
d=get matrix height(matnum,x+1,z)
e=get matrix height(matnum,x+1,z-1)
f=get matrix height(matnum,x,z-1)
g=get matrix height(matnum,x-1,z-1)
h=get matrix height(matnum,x-1,z)
total=a+b+c+d+e+f+g+h
av#=total/8
set matrix height matnum,x,z,av#
endif

next z
next x
next t

update matrix matnum
endfunction

and here is your code fixed well maybe you can work with this
thank red_eye for this.HOPE THIS HELPS

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

Skybax

21

Years of Service

User Offline

Joined: 20th May 2003

Location: United States

Posted: 11th Mar 2004 08:53

Link

WOW! Awesome code! There's only one problem.....when I run it, the editor says: Runtime error at line 98. Matrix does not exist.

What does that mean? I put in the code correctly.

By the way: Thank you red_eye!

There is no king who has not had a slave among his ancestors, and no slave who has not had a king among his

Ph33r the Ringwraiths

Back to top

Profile PM

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 11th Mar 2004 14:37

Link

maybe it is because im using dbpro and you have db.it works when i cut and paste it.anyway if someone doesnt fix it first .i will look at it again tonight with db trial version.but right now im at work.

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

Skybax

21

Years of Service

User Offline

Joined: 20th May 2003

Location: United States

Posted: 12th Mar 2004 09:14

Link

Thank you very much! It's a pleasure knowing that I can ask for help without feeling foolish.....

There is no king who has not had a slave among his ancestors, and no slave who has not had a king among his

Ph33r the Ringwraiths

Back to top

Profile PM

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 12th Mar 2004 16:01

Link

sorry i didnt get a chance and i have to give my wife attension tonight so no db for me.maybe sat night if you still have problems

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

Skybax

21

Years of Service

User Offline

Joined: 20th May 2003

Location: United States

Posted: 14th Mar 2004 09:56

Link

Fret not, diablo fan. I can wait....and it WILL be worth it!

Don't worry, do what needs to be done first.

There is no king who has not had a slave among his ancestors, and no slave who has not had a king among his

Ph33r the Ringwraiths

Back to top

Profile PM

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 14th Mar 2004 21:37

Link

ok ok tonight for sure i hope i get it done.

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 15th Mar 2004 00:12

Link

see if you can work with this if not let me know.sorry about the wait.

load bitmap "moss01.bmp",1
get image 1,0,0,256,256
delete bitmap 1

rem Make a matrix
make matrix 1,1000,1000,11,11

rem Prepare matrix with a texture cut into a 2x2 texture grid 
prepare matrix texture 1,1,2,2

rem Set matrix to use a mipmap
set matrix texture 1,0,1

rem Fill matrix with first texture tile
fill matrix 1,200.0,1
for x=0 to 10
	for y=0 to 10
		set matrix height 1,x,5,0.0
		set matrix height 1,x,6,0.0
		set matrix height 1,x+1,5,0.0
		set matrix height 1,x+1,6,0.0
		set matrix height 1,5,y,0.0
		set matrix height 1,6,y,0.0
		set matrix height 1,5,y+1,0.0
		set matrix height 1,6,y+1,0.0
		set matrix tile 1,x,5,2
		set matrix tile 1,5,y,2
	next y
next x
update matrix 1
Do
 OldCamAngleY# = CameraAngleY#
 OldCamAngleX# = CameraAngleX#

CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2)
 CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)

Rem  Control input for camera
 If Upkey()=1
  XTest# = Newxvalue(X#,CameraAngleY#,10)
  ZTest# = Newzvalue(Z#,CameraAngleY#,10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

If Downkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

If Leftkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

If Rightkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)
 Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)

Y# = Get ground height(1,X#,Z#)
 Position Camera X#,Y#+50,Z#

Rem Refresh Screen
 Sync
 loop

+ Code Snippet

load bitmap "moss01.bmp",1
get image 1,0,0,256,256
delete bitmap 1

rem Make a matrix
make matrix 1,1000,1000,11,11

rem Prepare matrix with a texture cut into a 2x2 texture grid 
prepare matrix texture 1,1,2,2

rem Set matrix to use a mipmap
set matrix texture 1,0,1

rem Fill matrix with first texture tile
fill matrix 1,200.0,1
for x=0 to 10
	for y=0 to 10
		set matrix height 1,x,5,0.0
		set matrix height 1,x,6,0.0
		set matrix height 1,x+1,5,0.0
		set matrix height 1,x+1,6,0.0
		set matrix height 1,5,y,0.0
		set matrix height 1,6,y,0.0
		set matrix height 1,5,y+1,0.0
		set matrix height 1,6,y+1,0.0
		set matrix tile 1,x,5,2
		set matrix tile 1,5,y,2
	next y
next x
update matrix 1
Do
 OldCamAngleY# = CameraAngleY#
 OldCamAngleX# = CameraAngleX#

 CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2)
 CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)

 Rem  Control input for camera
 If Upkey()=1
  XTest# = Newxvalue(X#,CameraAngleY#,10)
  ZTest# = Newzvalue(Z#,CameraAngleY#,10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

 If Downkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

 If Leftkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

 If Rightkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif


 Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)
 Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)


 Y# = Get ground height(1,X#,Z#)
 Position Camera X#,Y#+50,Z#

 Rem Refresh Screen
 Sync
 loop

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

Skybax

21

Years of Service

User Offline

Joined: 20th May 2003

Location: United States

Posted: 15th Mar 2004 00:48

Link

No problem! That code is AWESOME.

Hmm....now all I have to do is figure out how to "glue" the following codes together.

rem load music into file 1
Load music "Dance of Darkness.mid",1

rem play midi 1
play music 1

rem tree
Load image "bark02.bmp",2
Make object cylinder 5,47
Texture object 5,2
position object 5,6800,60,7990

Load image "bark02.bmp",2
Make object cylinder 6,47
Texture object 6,2
position object 6,6800,100,7990

Load image "bark02.bmp",2
Make object cylinder 7,47
Texture object 7,2
position object 7,6800,140,7990

rem village wall
Load image "cottag02.bmp",2
make object plain 1,2025,714
texture object 1,2
position object 1,5000,20,5900

Load image "cottag02.bmp",2
make object plain 4,2025,714
texture object 4,2
position object 4,6000,20,9000

rem village
Load image "aztec01.bmp",2
Make object box 10,300,400,300
Texture object 10,2
position object 10,6240,20,6269

rem village 
Load image "aztec01.bmp",2
Make object box 12,300,400,300
Texture object 12,2
position object 12,5789,20,6699

rem village
Load image "aztec01.bmp",2
Make object box 13,300,400,300
Texture object 13,2
position object 13,6790,20,6899

Sync On 
Sync Rate 34 
hide mouse 
Backdrop on 
Set camera range 1,5000

Fog on 
Fog distance 1400 
Fog color RGB(128,128,128) 
Color Backdrop RGB(128,128,128)

Rem make matrix 
Make matrix 1,10000,10000,20,20

Rem texture matrix 
Load image "grass09.bmp",1 
Prepare matrix texture 1,1,1,1 
Fill matrix 1,0,1

rem Randomize the matrix 
randomize matrix 1,125 
X#=5000 
Z#=5000 
Rem Main loop 
Do 
 OldCamAngleY# = CameraAngleY# 
 OldCamAngleX# = CameraAngleX#

CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2) 
 CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)

Rem  Control input for camera 
 If Upkey()=1 
  XTest# = Newxvalue(X#,CameraAngleY#,10) 
  ZTest# = Newzvalue(Z#,CameraAngleY#,10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif

If Downkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 
  
 If Leftkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif

If Rightkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif

Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24) 
 Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)

Y# = Get ground height(1,X#,Z#) 
 Position Camera X#,Y#+50,Z#

Rem Refresh Screen 
 Sync 
Loop

+ Code Snippet

rem load music into file 1
Load music "Dance of Darkness.mid",1

rem play midi 1
play music 1

rem tree
Load image "bark02.bmp",2
Make object cylinder 5,47
Texture object 5,2
position object 5,6800,60,7990

Load image "bark02.bmp",2
Make object cylinder 6,47
Texture object 6,2
position object 6,6800,100,7990

Load image "bark02.bmp",2
Make object cylinder 7,47
Texture object 7,2
position object 7,6800,140,7990

rem village wall
Load image "cottag02.bmp",2
make object plain 1,2025,714
texture object 1,2
position object 1,5000,20,5900

Load image "cottag02.bmp",2
make object plain 4,2025,714
texture object 4,2
position object 4,6000,20,9000

rem village
Load image "aztec01.bmp",2
Make object box 10,300,400,300
Texture object 10,2
position object 10,6240,20,6269

rem village 
Load image "aztec01.bmp",2
Make object box 12,300,400,300
Texture object 12,2
position object 12,5789,20,6699

rem village
Load image "aztec01.bmp",2
Make object box 13,300,400,300
Texture object 13,2
position object 13,6790,20,6899

Sync On 
Sync Rate 34 
hide mouse 
Backdrop on 
Set camera range 1,5000 

Fog on 
Fog distance 1400 
Fog color RGB(128,128,128) 
Color Backdrop RGB(128,128,128) 

Rem make matrix 
Make matrix 1,10000,10000,20,20 

Rem texture matrix 
Load image "grass09.bmp",1 
Prepare matrix texture 1,1,1,1 
Fill matrix 1,0,1 

rem Randomize the matrix 
randomize matrix 1,125 
X#=5000 
Z#=5000 
Rem Main loop 
Do 
 OldCamAngleY# = CameraAngleY# 
 OldCamAngleX# = CameraAngleX# 

 CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2) 
 CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2) 

 Rem  Control input for camera 
 If Upkey()=1 
  XTest# = Newxvalue(X#,CameraAngleY#,10) 
  ZTest# = Newzvalue(Z#,CameraAngleY#,10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 

 If Downkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 
  
 If Leftkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 

 If Rightkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 
  

 Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24) 
 Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24) 
  

 Y# = Get ground height(1,X#,Z#) 
 Position Camera X#,Y#+50,Z# 

 Rem Refresh Screen 
 Sync 
Loop

load bitmap "grass09.bmp",1
get image 1,0,0,256,256
delete bitmap 1