Hello DB comuunity!
This is my first time on the forums. I know a little about Dark basic but am still a noob.
Anyway, I am making an RTS game and am having a little trouble figuring out the coordinates of the mouse in a 3D space.
(If you don't know what an rts is, think Age of Empires)
I want to be able to select a character with the left mouse button, click in a different location with the right mouse button, and have the character move there. The problem is, I cant figure out how to get the coordinates of the mouse on the 3D map for the character to move to! help?
rem ******************************
rem * RTS by Amax125 *
rem ******************************
rem ===============================================
rem |you can use the arrow keys to move the camera|
rem ===============================================
rem Make a simple scene for the camera to look at
make matrix 1,10000.0,10000.0,25,25
load bitmap "Lime01.bmp",1
get image 1,0,0,256,256
delete bitmap 1
prepare matrix texture 1,1,2,2
randomize matrix 1,50.0
set matrix height 1,12,12,300.0
update matrix 1
rem define character variables
oldmousex#=0
oldmousez#=0
mousex#=4300
mousez#=4600
mousey#=0
walking=0
characterselected=0
rem define camera variables
x#=4000
y#=600
z#=4500
rem Load your object
load object "idle.x",1
rem Add walk animation data to your object appending to frame 100
append object "walk.x",1,100
rem Update character
mousey#=get ground height(1,mousex#,mousez#)
position object 1,mousex#,mousey#,mousez#
yrotate object 1,mousea#
rem Reset model so character faces Y angle of zero
rotate object 1,0,180,0
fix object pivot 1
rem Rotate model to face right
yrotate object 1,90
rem set character
set object 1,1,0,0,1
rem Set new speed for your model
set object speed 1,20
rem Animate your object
loop object 1
rem Set object to interpolate to a new frame at a speed of 25%
set object interpolation 1,25
rem Activate manual sync
sync on
GOTO MAINLOOP
ANIMATE:
rem If walk animation required, make sure can perform animation
if animpause=0
animpause=4
if walking=1
if animstate=0
rem then slowly interpolate to the first walk frame
animstate=1
stop object 1
set object frame 1,105
endif
else
if animstate=1
rem else slowly interpolate to the first idle frame
animstate=0
stop object 1
set object frame 1,0
endif
endif
else
rem Count down until the interpolation has finished
animpause=animpause-1
if animpause=0
if animstate=0 then loop object 1,0,20
if animstate=1 then loop object 1,105,125
endif
endif
RETURN
MAINLOOP:
rem Begin loop
do
GOSUB ANIMATE
rem Control camera with arrow keys
if rightkey()=1 then x#=x#+10:z#=z#-10
if leftkey()=1 then x#=x#-10:z#=z#+10
if upkey()=1 then z#=z#+10:x#=x#+10
if downkey()=1 then z#=z#-10:x#=x#-10
rem position camera
position camera x#,600,z#
point camera x#+300,0,z#+300
rem check if left mouse is pressed
if mouseclick()=1
rem if so, then get values of mouse
rem oldmousex#=OBJECT POSITION X(2)
rem oldmousez#=OBJECT POSITION Z(2)
rem if OBJECT COLLISION(2,1)=1
characterselected=1
rem endif
endif
rem check if right mouse is pressed
if mouseclick()=2
rem mousex#=OBJECT POSITION X(2)
rem mousez#=OBJECT POSITION Z(2)
rem if so, move character to that area
walking = 1
rem test = 0
rem POINT OBJECT 1,mousex#,OBJECT SIZE Y(1),mousez#
rem while test < abs(mousex#+mousez#-oldmousex#+oldmousez#)
rem GOSUB ANIMATE
rem MOVE OBJECT 1,10
rem Update character
rem mousey#=get ground height(1,mousex#,mousez#)
rem position object 1,mousex#,mousey#,mousez#
rem yrotate object 1,mousea#
rem test=test+10
rem endwhile
walking=0
endif
SET CURSOR 50, 50
print "Mousex#: "; mousex()
SET CURSOR 50, 70
print "Mousey#: "; mousey()
SET CURSOR 50, 90
print "Mousez#: "; mousez()
rem Syncronise
sync
rem End loop
loop
BTW, how do you delete posts?
