ill try that out
well the whole codes abit messy but here it is...
rem Matrix
make matrix 1,3000.0,3000.0,25,25
load bitmap "mossy05.bmp",1
get image 1,0,0,256,256
delete bitmap 1
prepare matrix texture 1,1,2,2
set matrix texture 1,2,0
randomize matrix 1,75.0
rem Backdrop
Color backdrop 1
rem Music
Load Music "music/lonewolf.mid",1
Loop Music 1
rem Lan
load bitmap "lan.png",2
Get Image 3,0,0,50,50
Get Image 4,0,50,50,100
Get Image 5,0,100,50,150
Get Image 6,0,150,50,200
Get Image 7,0,200,50,250
Get Image 8,0,250,50,300
Get Image 9,0,300,50,350
Get Image 10,50,0,100,50
Delete Bitmap 2
rem hud
Load Bitmap "Pet.png",3
get image 11,0,0,78,69
sprite 1,10,400,11
delete bitmap 3
rem
Fog on
Fog color 1
Fog distance 1500
rem Create blob character to follow
make object plain 1,45,45
set object 1,1,0,1,1,1,0
scale object 1,170,170,0
texture object 1,3
rem Set variables for character position
x#=2000
z#=2000
rem Activate manual sync
sync on
rem make object tree
Load Bitmap "treeback.bmp",12
get image 12,0,0,256,256
delete bitmap 12
make object plain 2,256,256
set object 2,1,0,0,1,1,1
texture object 2,12
position object 2,2500,100,2500
rem make object treeotherside
make object plain 3,256,256
set object 3,1,0,0,1,1,1
texture object 3,12
position object 3,2500,100,2500
yrotate object 3,90
rem Begin loop
do
rem Control camera with arrow keys(Actions)
rem Control camera with arrow keys(Walk)
stage=0
if upkey()=1 then x#=newxvalue(x#,a#,2) : z#=newzvalue(z#,a#,2) : stage=1
if downkey()=1 then x#=newxvalue(x#,a#,-2) : z#=newzvalue(z#,a#,-2) : stage=1
if leftkey()=1 then a#=wrapvalue(a#-2.0)
if rightkey()=1 then a#=wrapvalue(a#+2.0)
rem Character Animation
while stage<>oldstage
if stage=0
texture object 1,3
endif
if stage=1
texture object 1,4
wait (90)
texture object 1,5
wait (90)
texture object 1,6
wait (90)
texture object 1,7
wait (90)
texture object 1,8
wait (90)
texture object 1,9
ENDif
oldstage=stage
ENDwhile
rem Control camera with arrow keys(Run)
if upkey()=1 and shiftkey()=1 then x#=newxvalue(x#,a#,5) : z#=newzvalue(z#,a#,5)
if downkey()=1 and shiftkey()=1 then x#=newxvalue(x#,a#,-5) : z#=newzvalue(z#,a#,-5)
if leftkey()=1 and shiftkey()=1 then a#=wrapvalue(a#-5.0)
if rightkey()=1 and shiftkey()=1 then a#=wrapvalue(a#+5.0)
rem Update character
y#=get ground height(1,x#,z#)+27.5
position object 1,x#,y#,z#
yrotate object 1,a#
rem Position camera to the back of the character
ca#=wrapvalue(curveangle(a#,ca#,12.0))
cx#=newxvalue(x#,wrapvalue(ca#+180),300)
cz#=newzvalue(z#,wrapvalue(ca#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#,cz#
yrotate camera wrapvalue(ca#)
rem Syncronise
sync
rem End loop
loop
[img][/img]
