I'm back from hiatus and guess what? The worst thing in the world has happend: my computer crashed......and erased most of my program!!!!!
Please don't think that I'm a lazy person. I've been at this for a year and I figured out most of the coding you see by myself. I've had help in the past and I'm open to all advice and suggestions!!! Thanks again everyone!!!
So.......here is the code that managed to survive:
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
*sigh* What I need to do is
1) enable foward/backward movement, strafing and jumping
2) keep the hills from randomizing and add a river...
3) redo my 'village' and it's walls
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