quick question =-) - GameCreators Forum

Author

Message

slicer 4 ever

18

Years of Service

User Offline

Joined: 11th Jul 2006

Location: currently: planet gamma3295

Posted: 31st Oct 2006 00:32

Link

ok i have developed half mine/half someone elses code to create a moderate mouse for rts's which works ok if the camera yrotation is between 270 - 45 degrees but now i'm working on an rpg that requires a full 360 degrees working mouse heres the code i'm using:

+ Code Snippet

make object sphere 1,5 rem 5 so you can see it for testing purposes)

rem there code which really helped(note not my full code i used as i added some of my own)

if object screen x(1) <= mousex()
position object 1,object position x(1) - 1,0,object position z(1)
endif

if object screen x(1) >= mousex()
position object 1,object position x(1) + 1,0,object position z(1)
endif

if object screen z(1) <= mousey()
move object 1,-1
endif

if object screen z(1) >= mousey()
move object 1,1
endif

rem my part of code
if object screen x(1) < 0
position object 1,camera position x(1),0,camera position z(1)
endif
if object screen x(1) > screen width()
position object 1,camera position x(1),0,camera position z(1)
endif
if object screen y(1) < 0
position object 1,camera position x(1),0,camera position z(1)
endif
if object screen y(1) > screen height()
position object 1,camera position x(1),0,camera position z(1)
endif

now then i've been doing some tests but can't make an appropiate 3d mouse that works like this one does so i ask can some one please help me =-)

my smiles love me =-)=-)=-)(-=(-=(-=

Back to top

Profile PM Website

slicer 4 ever

18

Years of Service

User Offline

Joined: 11th Jul 2006

Location: currently: planet gamma3295

Posted: 31st Oct 2006 23:10 Edited at: 31st Oct 2006 23:10

Link

ok well nvm i modifed the code so now it is a full 360 degrees mouse

so this should help for rpgs and/or rts's i'll be adding it to the code base(both forum and live one) so here it is:

make matrix 1,1000,1000,25,25
autocam off
position camera 0,50,0
point camera 20,0,20

make object sphere 1,5

sync on
sync rate 0
angle# = 0

do
gosub camera
gosub text
gosub move_cursor

sync
loop

camera:
if leftkey()=1 
angle# = wrapvalue(angle# - 1)
endif
if rightkey()=1
angle# = wrapvalue(angle# + 1)
endif
yrotate camera angle#
return

move_cursor:
if angle# < 70
if mousex() < object screen x(1)
	position object 1,object position x(1)-1,object position y(1),object position z(1)
endif
if mousex() > object screen x(1)
	position object 1,object position x(1)+1,object position y(1),object position z(1)
endif
if mousey() > object screen y(1)
	move object 1,-1
endif
if mousey() < object screen y(1)
	move object 1,1
endif
endif
if angle# >= 70 and angle# < 170
if mousex() < object screen x(1)
	move object 1,1
endif
if mousex() > object screen x(1)
	move object 1,-1
endif
if mousey() > object screen y(1)
	position object 1,object position x(1)-1,object position y(1),object position z(1)
endif
if mousey() < object screen y(1)
	position object 1,object position x(1)+1,object position y(1),object position z(1)
endif
endif
if angle# >= 170 and angle# < 260
if mousex() < object screen x(1)
	position object 1,object position x(1)+1,object position y(1),object position z(1)
endif
if mousex() > object screen x(1)
	position object 1,object position x(1)-1,object position y(1),object position z(1)
endif
if mousey() > object screen y(1)
	move object 1,1
endif
if mousey() < object screen y(1)
	move object 1,-1
endif
endif
if angle# >= 260
if mousex() < object screen x(1)
	move object 1,-1
endif
if mousex() > object screen x(1)
	move object 1,1
endif
if mousey() > object screen y(1)
	position object 1,object position x(1)+1,object position y(1),object position z(1)
endif
if mousey() < object screen y(1)
	position object 1,object position x(1)-1,object position y(1),object position z(1)
endif
endif
return

text:
set cursor 0,0
print "camera angle y: ",camera angle y()
print "object angle y: ",object angle y(1)
return

+ Code Snippet

make matrix 1,1000,1000,25,25
autocam off
position camera 0,50,0
point camera 20,0,20

make object sphere 1,5

sync on
sync rate 0
angle# = 0

do
gosub camera
gosub text
gosub move_cursor

sync
loop

camera:
if leftkey()=1 
angle# = wrapvalue(angle# - 1)
endif
if rightkey()=1
angle# = wrapvalue(angle# + 1)
endif
yrotate camera angle#
return


move_cursor:
if angle# < 70
if mousex() < object screen x(1)
	position object 1,object position x(1)-1,object position y(1),object position z(1)
endif
if mousex() > object screen x(1)
	position object 1,object position x(1)+1,object position y(1),object position z(1)
endif
if mousey() > object screen y(1)
	move object 1,-1
endif
if mousey() < object screen y(1)
	move object 1,1
endif
endif
if angle# >= 70 and angle# < 170
if mousex() < object screen x(1)
	move object 1,1
endif
if mousex() > object screen x(1)
	move object 1,-1
endif
if mousey() > object screen y(1)
	position object 1,object position x(1)-1,object position y(1),object position z(1)
endif
if mousey() < object screen y(1)
	position object 1,object position x(1)+1,object position y(1),object position z(1)
endif
endif
if angle# >= 170 and angle# < 260
if mousex() < object screen x(1)
	position object 1,object position x(1)+1,object position y(1),object position z(1)
endif
if mousex() > object screen x(1)
	position object 1,object position x(1)-1,object position y(1),object position z(1)
endif
if mousey() > object screen y(1)
	move object 1,1
endif
if mousey() < object screen y(1)
	move object 1,-1
endif
endif
if angle# >= 260
if mousex() < object screen x(1)
	move object 1,-1
endif
if mousex() > object screen x(1)
	move object 1,1
endif
if mousey() > object screen y(1)
	position object 1,object position x(1)+1,object position y(1),object position z(1)
endif
if mousey() < object screen y(1)
	position object 1,object position x(1)-1,object position y(1),object position z(1)
endif
endif
return


text:
set cursor 0,0
print "camera angle y: ",camera angle y()
print "object angle y: ",object angle y(1)
return

my smiles love me =-)=-)=-)(-=(-=(-=

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Discussion / quick question =-)