heres the character position
Sync On
Sync Rate 30
hide mouse
Backdrop on
Set camera range 1,5000
Rem texture matrix
Load image "grass_t.bmp",1
rem make dwarf
load object "dwarf1.x",3
scale object 3,5000,5000,5000
position object 3,3000,185,3500
rem make dwarf2
load object "dwarf1.x",4
scale object 4,5000,5000,5000
position object 4,3000,185,4300
rem make dwarf3
load object "dwarf1.x",5
scale object 5,5000,5000,5000
position object 5,4000,185,3200
rem make dwarf4
load object "dwarf1.x",6
scale object 6,5000,5000,5000
position object 6,7000,185,8200
rem make dwarf5
load object "dwarf1.x",7
scale object 7,5000,5000,5000
position object 7,6000,185,7500
rem make dwarf6
load object "dwarf2.x",8
scale object 8,5000,5000,5000
position object 8,6000,185,3300
rem make dwarf7
load object "dwarf2.x",9
scale object 9,5000,5000,5000
position object 9,2000,185,8700
rem make dwarf8
load object "dwarf2.x",10
scale object 10,5000,5000,5000
position object 10,4000,185,4500
rem make dwarf9
load object "dwarf2.x",11
scale object 11,5000,5000,5000
position object 11,5500,185,6700
rem make dwarf10
load object "dwarf2.x",12
scale object 12,5000,5000,5000
position object 12,9000,185,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
loop
www.dragonseige.tk or soon to be www.dss.tk
