Mouse coordinates. - GameCreators Forum

Author

Message

Regnuar

15

Years of Service

User Offline

Joined: 25th Dec 2008

Location:

Posted: 4th Jan 2009 21:19

Link

I have a small problem with mouse coordinates. so can someone give me a helping hand and tell exactly what's wrong in my code, i know this needs lots of more code, but i'm not quite sure what.

code goes like this:

my = mousey()
mx = mousex()

blablablabla..

if my > object position y(1) and mx > object position x(1)
scale object 1,100,100,100
yrotate object 1, object angle y (1)-0.9
set cursor 295,20
print "New file"
else
scale object 1,80,80,80
endif

by the way, as i am a noob around here, how i can make "code snippet"?

Back to top

Profile PM Email

May0naise

15

Years of Service

User Offline

Joined: 16th Nov 2008

Location: Lost in Time

Posted: 4th Jan 2009 21:39

Link

Well im pretty much a noob too, but i can already see your positioning an object you never made.

For doing the code snipits, there is a button in the top right of the box where you post that says "code". You click it, copy an past your code after it, then click it again.

+ Code Snippet

my = mousey()
mx = mousex()

blablablabla..

if my > object position y(1) and mx > object position x(1)
scale object 1,100,100,100
yrotate object 1, object angle y (1)-0.9
set cursor 295,20
print "New file"
else
scale object 1,80,80,80
endif

And whats blablablabla..?

Be patient....everything takes time.

Back to top

Profile PM

Regnuar

15

Years of Service

User Offline

Joined: 25th Dec 2008

Location:

Posted: 4th Jan 2009 22:23

Link

oh yeah, i have done the object, that was just one part of the code and i thought it would be enough =) anyhow, here is the full code you need to see, i allready figer something out but it's not still working.

+ Code Snippet


Load object "Media\kanto\new.x" ,1 : position object 1,0,-1,3  
Load object "Media\aukko\exit.x",2 : position object 2,2,0,0
Load object "Media\aukko\load.x",3 : position object 3,-2,0,0

yrotate object 2, 170
yrotate object 3, 80

mousey() = my
mousex() = mx
mousez() = mz

sync on
sync rate 60
Color backdrop RGB(0,0,0)
do


print "mousemovex "+str$(mousemovex())
print "mousemovey "+str$(mousemovey())
print "mousemovez "+str$(mousemovez())
print "mouse position x "+str$(mousex())
print "mouse position y "+str$(mousey())
print "mouse position z "+str$(mousez())


if my > object position y(1) and mx > object position x(1)
scale object 1,100,100,100
yrotate object 1, object angle y (1)-0.9
set cursor 295,20
print "New file"
else
scale object 1,80,80,80
endif

sync
loop

Back to top

Profile PM Email

Regnuar

15

Years of Service

User Offline

Joined: 25th Dec 2008

Location:

Posted: 4th Jan 2009 22:29

Link

Oh! i forgot the media, sorry. they are now attached.

Attachments

Login to view attachments

Back to top

Profile PM Email

Dabbler

17

Years of Service

User Offline

Joined: 3rd Mar 2007

Location: Minnesota

Posted: 5th Jan 2009 00:53

Link

I'm not sure what you are trying to do, but I went through your code and made some comments:

`Load object "Media\kanto\new.x" ,1 : position object 1,0,-1,3
`Load object "Media\aukko\exit.x",2 : position object 2,2,0,0
`Load object "Media\aukko\load.x",3 : position object 3,-2,0,0

`disabled the existing objects and made a new one
make object cube 1,10
position object 1,0,-1,3

`yrotate object 2, 170
`yrotate object 3, 80

sync on
sync rate 60
Color backdrop RGB(0,0,0)

`used indentation to make it more readable
do

`moved the variables to the left side of the equal sign
   `also moved this to within the do loop,
   `would never change if they were outside the main loop.
   my=mousey()
   mx=mousex()
   mz=mousez()

set cursor 0,0
   print "mousemovex "+str$(mousemovex())
   print "mousemovey "+str$(mousemovey())
   print "mousemovez "+str$(mousemovez())
   print "mouse position x "+str$(mousex())
   print "mouse position y "+str$(mousey())
   print "mouse position z "+str$(mousez())

`I am not sure what you are trying to do here
   `mouse coordinates are screen coordinates
   `object coordinates are 3d space coordinates
   if my > object position y(1) and mx > object position x(1)
      scale object 1,100,100,100
      yrotate object 1, object angle y (1)-0.9
      set cursor 295,20
      print "New file"
   else
      scale object 1,80,80,80
   endif

sync
loop

+ Code Snippet

`Load object "Media\kanto\new.x" ,1 : position object 1,0,-1,3
`Load object "Media\aukko\exit.x",2 : position object 2,2,0,0
`Load object "Media\aukko\load.x",3 : position object 3,-2,0,0

`disabled the existing objects and made a new one
make object cube 1,10
position object 1,0,-1,3

`yrotate object 2, 170
`yrotate object 3, 80

sync on
sync rate 60
Color backdrop RGB(0,0,0)

`used indentation to make it more readable
do

   `moved the variables to the left side of the equal sign
   `also moved this to within the do loop,
   `would never change if they were outside the main loop.
   my=mousey()
   mx=mousex()
   mz=mousez()

   set cursor 0,0
   print "mousemovex "+str$(mousemovex())
   print "mousemovey "+str$(mousemovey())
   print "mousemovez "+str$(mousemovez())
   print "mouse position x "+str$(mousex())
   print "mouse position y "+str$(mousey())
   print "mouse position z "+str$(mousez())

   `I am not sure what you are trying to do here
   `mouse coordinates are screen coordinates
   `object coordinates are 3d space coordinates
   if my > object position y(1) and mx > object position x(1)
      scale object 1,100,100,100
      yrotate object 1, object angle y (1)-0.9
      set cursor 295,20
      print "New file"
   else
      scale object 1,80,80,80
   endif

sync
loop

I hope it helps. Maybe you can tell us more about what you are trying to accomplish.

Whatever...

Back to top

Profile PM

Phantom 2590

17

Years of Service

User Offline

Joined: 19th Apr 2007

Location: Earth...

Posted: 5th Jan 2009 02:46 Edited at: 5th Jan 2009 03:13

Link

from what i can see just by glancing at it he's trying create a menu.
I'll take a look at it soon as i get a chance to download your media

@Dabbler
I don't see why you commented out his load object commends. I mean the code is to help him out so he's gona need that in his code and he might not know well enough to uncomment them if you can understand what I'm saying. He did say he was rather new.

Edit:
Put this code inside the do loop

+ Code Snippet

mousey() = my
mousex() = mx
mousez() = mz

+ Code Snippet

Load object "Media\kanto\new.x" ,1 : position object 1,0,-1,3
Load object "Media\aukko\exit.x",2 : position object 2,2,0,0
Load object "Media\aukko\load.x",3 : position object 3,-2,0,0

yrotate object 2, 170
yrotate object 3, 80

sync on
sync rate 60
Color backdrop RGB(0,0,0)
do

mousey() = my
mousex() = mx
mousez() = mz

print "mousemovex "+str$(mousemovex())
print "mousemovey "+str$(mousemovey())
print "mousemovez "+str$(mousemovez())
print "mouse position x "+str$(mousex())
print "mouse position y "+str$(mousey())
print "mouse position z "+str$(mousez())


if my > object position y(1) and mx > object position x(1)
scale object 1,100,100,100
yrotate object 1, object angle y (1)-0.9
set cursor 295,20
print "New file"
else
scale object 1,80,80,80
endif

sync
loop

Like so
and may I suggest positioning and pointing the camera correctly or else all your going to see is a black screen most likely.
The code for that is

+ Code Snippet

Position Camera 0,-10,-10,-10 : Point Camera 0,0,0,0

Alternatively you can create your own camera with Make Camera and then the camera number. 0 is just the default camera.

The code for when the mouse is on top of the new file object still isn't working right. I'll see what I can do.

I was therefore I can be.

Back to top

Profile PM Email

Dabbler

17

Years of Service

User Offline

Joined: 3rd Mar 2007

Location: Minnesota

Posted: 5th Jan 2009 05:39

Link

I think you may be looking for something like the pick command.

Try this:

Load object "Media\kanto\new.x" ,1 : position object 1,0,-1,3
Load object "Media\aukko\exit.x",2 : position object 2,2,0,0
Load object "Media\aukko\load.x",3 : position object 3,-2,0,0

yrotate object 2, 170
yrotate object 3, 80

sync on
sync rate 60
Color backdrop RGB(0,0,0)

`used indentation to make it more readable
do

`moved the variables to the left side of the equal sign
   `also moved this to within the do loop,
   `would never change if they were outside the main loop.
   my=mousey()
   mx=mousex()
   mz=mousez()

set cursor 0,0
   print "mousemovex "+str$(mousemovex())
   print "mousemovey "+str$(mousemovey())
   print "mousemovez "+str$(mousemovez())
   print "mouse position x "+str$(mousex())
   print "mouse position y "+str$(mousey())
   print "mouse position z "+str$(mousez())

`I am not sure what you are trying to do here
   `mouse coordinates are screen coordinates
   `object coordinates are 3d space coordinates
   `if my > object position y(1) and mx > object position x(1)
   if pick object(mx,my,1,1)=1
      scale object 1,100,100,100
      yrotate object 1, object angle y (1)-0.9
      set cursor 295,20
      print "New file"
   else
      scale object 1,80,80,80
   endif

sync
loop

+ Code Snippet


Load object "Media\kanto\new.x" ,1 : position object 1,0,-1,3
Load object "Media\aukko\exit.x",2 : position object 2,2,0,0
Load object "Media\aukko\load.x",3 : position object 3,-2,0,0

yrotate object 2, 170
yrotate object 3, 80

sync on
sync rate 60
Color backdrop RGB(0,0,0)

`used indentation to make it more readable
do

   `moved the variables to the left side of the equal sign
   `also moved this to within the do loop,
   `would never change if they were outside the main loop.
   my=mousey()
   mx=mousex()
   mz=mousez()

   set cursor 0,0
   print "mousemovex "+str$(mousemovex())
   print "mousemovey "+str$(mousemovey())
   print "mousemovez "+str$(mousemovez())
   print "mouse position x "+str$(mousex())
   print "mouse position y "+str$(mousey())
   print "mouse position z "+str$(mousez())

   `I am not sure what you are trying to do here
   `mouse coordinates are screen coordinates
   `object coordinates are 3d space coordinates
   `if my > object position y(1) and mx > object position x(1)
   if pick object(mx,my,1,1)=1
      scale object 1,100,100,100
      yrotate object 1, object angle y (1)-0.9
      set cursor 295,20
      print "New file"
   else
      scale object 1,80,80,80
   endif

sync
loop

I hope it works for you.

Whatever...

Back to top

Profile PM

Regnuar

15

Years of Service

User Offline

Joined: 25th Dec 2008

Location:

Posted: 5th Jan 2009 11:21

Link

Great thanks to you dabbler! if pick object(mx,my,1,1)=1 is the code i was looking for. And sorry i forgot to tell what i was trying to do =D i try to tell it next time when i ask some help.

and ofc thanks to you all who even bothered help me

Back to top

Profile PM Email

Phantom 2590

17

Years of Service

User Offline

Joined: 19th Apr 2007

Location: Earth...

Posted: 5th Jan 2009 21:13

Link

Glad we or Dabble rather could help you out.

I was therefore I can be.

Back to top

Profile PM Email

Tom0001

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location:

Posted: 7th Jan 2009 11:10

Link

@Regnuar,

Couldn't you just use 'IF mousex() > object positionblabla' instead of assigning the mousex() value to a variable and checking if the variable is greater than it?

Back to top

Profile PM

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 7th Jan 2009 20:16

Link

Its faster to refer to a variable, than to make repeated calls to a function.

This way mousex() needs only be called once a loop.

I do this a lot with things like screen width(), which I may call dozens of times drawing a hud or something.

Some commands like screen fps() can only be called once a loop, or else it returns an incorrect value, so assigning it to a variable is a good way of using the data more than once per loop.

Without Music or Love the world would be a very empty place... Thank god I still have music.. --'-<@

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Mouse coordinates.

Attachments