HELP: What about Limb Select with Mouse?

Author

Message

Nytus Sermus

11

Years of Service

User Offline

Joined: 17th Jan 2013

Location:

Posted: 24th Jan 2013 03:11 Edited at: 14th Mar 2013 04:53

Link

The subtle reality of the universe cannot be described, that which can be described in words is merely a concept of the mind.

Back to top

Profile PM

TheComet

16

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 24th Jan 2013 11:08

Link

No, but you can program one yourself.

For example, you can retrieve the 3D position of where the mouse clicked on the object:

+ Code Snippet

rem get the object the user is clicking
obj = pick object( 1, 1000, mousex(), mousey() )

rem get coordinates
if obj
   click_x# = get pick vector x() + camera position x()
   click_y# = get pick vector y() + camera position y()
   click_z# = get pick vector z() + camera position z()
endif

Since you know where the user clicked in 3D space, it won't be too hard to find the limb closest to the click.

TheComet

http://blankflankstudios.tumblr.com/
"Man being a noob sucks!

" - OBese87

Back to top

Profile PM Email Website

Nytus Sermus

11

Years of Service

User Offline

Joined: 17th Jan 2013

Location:

Posted: 24th Jan 2013 16:30 Edited at: 14th Mar 2013 04:54

Link

The subtle reality of the universe cannot be described, that which can be described in words is merely a concept of the mind.

Back to top

Profile PM

zeroSlave

14

Years of Service

User Offline

Joined: 13th Jun 2009

Location: Springfield

Posted: 24th Jan 2013 20:38 Edited at: 24th Jan 2013 20:40

Link

What about making a transparent dummy cube for each limb, position it to that limb's xyz coords, reference the dummy object to the specific limb's ID, then click the dummy object to select the limb?

It might not be as pretty, but it should work better than trying to find the limb by name in a list.

Some quick Psuedo code for the above method:

+ Code Snippet

type dummyCubeType
   x# as float
   y# as float
   ObjID as integer
   LimbID as integer
endtype

DoAChecklistForLimbs
LimbCount = totalLimbsInObject
Dim DummyObject(LimbCount) as dummyCubeType
for i = 1 to LimbCount
   DummyObject(i).ObjID = 1000 + i
   make object cube, DummyObject(i).ObjID, 10
   DummyObject(i).x# = limb position(i).x#
   DummyObject(i).y# = limb position(i).y#
   DummyObject(i).z# = limb position(i).z#
   DummyObject(i).LimbID = limb(i)
   position object DummyObject(i).ObjID, DummyObject(i).x#, DummyObject(i).y#, DummyObject(i).z#
next i

obj = pick object( 1001, 1000 + LimbCount, mousex(), mousey() )

for i = 1 to LimbCount
   if obj = DummyObject(i).ObjID
      select limb(DummyObject(i).LimbID)
   endif
next i

Just a quick thought on the problem. Good luck!

Everybody is a genius. But if you judge a fish by its ability to climb a tree, it will live its whole life believing that it is stupid.

Back to top

Profile PM Email

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 24th Jan 2013 20:53

Link

Hi there.
What about checking for limb collision...perhaps a little bit slow but works.

autocam off
sync on
hide mouse

`making 10 objects to add as limbs to the main one
for i= 1 to 10
  make object box i,40,2,40
  position object i,rnd(100),rnd(100),rnd(100)
  rotate object i,rnd(360),rnd(360),rnd(360)
  make mesh from object i,i
next i

`making the final object to add all limbs
make object box 11,0,0,0

for i= 1 to 10
   add limb 11,i,i
   offset limb 11,i,object position x(i),object position y(i),object position z(i)
   delete object i
next i
color object 11,rgb(200,0,200)

`intersect object
make object sphere 2,2:color object 2,rgb(255,0,0)

position camera -50,50,-50
do
set cursor 316,230
ink rgb(255,0,0)
print "."
`saving camera coords before moving
x#=camera position x()
y#=camera position y()
z#=camera position z()

`moving camera 1000 units and saving coords. after moving
move camera 1000

lx#=camera position x()
ly#=camera position y()
lz#=camera position z()

`moving camera back after saving coords.
move camera -1000

`distance is checked with both saved coords.
dis= intersect object(11,x#,y#,z#,lx#,ly#,lz#)

`camera control.
control camera using arrowkeys 0,0.1,0.1
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.1
if rightkey() then move camera right 0.1

`positioning object 2 in camera coords and moving it the distance (dis)
position object 2,x#,y#,z#
rotate object 2,cam#,a#,0
move object 2,dis

for i= 1 to 10
  if limb collision(11,i,2,0)>0 then coll=i
next i

set cursor 225,10
ink rgb(255,255,0)
if dis>0 then print "YOU PICK LIMB ",coll ,  "    at distance:" ,dis

turn#=turn#+0.03
rotate limb 11,1,0,turn#,0
sync
loop

+ Code Snippet

autocam off
sync on
hide mouse

`making 10 objects to add as limbs to the main one
for i= 1 to 10
  make object box i,40,2,40
  position object i,rnd(100),rnd(100),rnd(100)
  rotate object i,rnd(360),rnd(360),rnd(360)
  make mesh from object i,i
next i

`making the final object to add all limbs
make object box 11,0,0,0

for i= 1 to 10
   add limb 11,i,i
   offset limb 11,i,object position x(i),object position y(i),object position z(i)
   delete object i
next i
color object 11,rgb(200,0,200)

`intersect object
make object sphere 2,2:color object 2,rgb(255,0,0)

position camera -50,50,-50
do
set cursor 316,230
ink rgb(255,0,0)
print "."
`saving camera coords before moving
x#=camera position x()
y#=camera position y()
z#=camera position z()

`moving camera 1000 units and saving coords. after moving
move camera 1000

lx#=camera position x()
ly#=camera position y()
lz#=camera position z()

`moving camera back after saving coords.
move camera -1000

`distance is checked with both saved coords.
dis= intersect object(11,x#,y#,z#,lx#,ly#,lz#)

`camera control.
control camera using arrowkeys 0,0.1,0.1
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.1
if rightkey() then move camera right 0.1


`positioning object 2 in camera coords and moving it the distance (dis)
position object 2,x#,y#,z#
rotate object 2,cam#,a#,0
move object 2,dis


for i= 1 to 10
  if limb collision(11,i,2,0)>0 then coll=i
next i

set cursor 225,10
ink rgb(255,255,0)
if dis>0 then print "YOU PICK LIMB ",coll ,  "    at distance:" ,dis

turn#=turn#+0.03
rotate limb 11,1,0,turn#,0
sync
loop

Cheers.

I'm not a grumpy grandpa