Selecting an object in an array - GameCreators Forum

Author

Message

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 3rd Mar 2009 10:41

Link

im currently using

+ Code Snippet

		 dim object(T) as Satellite
         screenposx=rx+newxradar
		 screenposy=ry-newzradar
		 if (screenposx-mousex())^2+(screenposy-mousey())^2<4
		 	if Flag=0
		 		Ellipse screenposx,screenposy,10,10
		 	else if Flag=1
		 		Ellipse screenposx,screenposy,5,5
		 	Endif
		 	Endif
		 	if mouseclick()=1 and object(T).selected=0 then object(T).selected=1
// 		 	if object(T).selected=1
// 		 		Ellipse screenposx,screenposy,10,10
// 		 	Endif
		 	if mouseclick()=1 and object(T).selected=1 then object(T).selected=0
		 Endif
		 if object(T).selected=1
		 	Ellipse screenposx,screenposy,10,10
		 Endif

using this i try drawing another ellipse in the same position as the first but it only works when i have the mouse over one of them and the left key down, i would like it to stay selected until another is selected...

any help with this would be greatly appreciated!...

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 3rd Mar 2009 11:20

Link

2 Things.

Firstly you don't need to use else if together like that

+ Code Snippet

if x=20
    do something
else
    do something else
endif

Is how its supposed to work. It took me a while to work out why you had an extra endif command.

This is what you'd put

+ Code Snippet

if Flag=0
    Ellipse screenposx,screenposy,10,10
else if Flag=1
    Ellipse screenposx,screenposy,5,5
Endif
Endif

where as the compiler is seeing it like this...

+ Code Snippet

if Flag=0
    Ellipse screenposx,screenposy,10,10
else 
    if Flag=1
        Ellipse screenposx,screenposy,5,5
    Endif
Endif

and secondly, I didn't really have enough of your code to run it. But I think what your problem is is that you'r reseting the selected variable every loop.

You have these two lines right next to each other, so even on a slow pc we're talking thousandths of a second; not enough time for the user to let go of the button.

+ Code Snippet

if mouseclick()=1 and object(T).selected=0 then object(T).selected=1

if mouseclick()=1 and object(T).selected=1 then object(T).selected=0

Are you sure you want to make object(T).selected=0? Or have I misread your code?

I made a short example of what I think your trying to do; so please look through it and see if it can help in your program

//**************************************
//  Highlighting example
//  For: Lucifer 1101
//  By: =PRoF=
//**************************************

` system stuff
sync on
sync rate 60

` set a variable
selected=0

do
    ` clears the screen
    cls
    
    ` draws some boxes for buttons
    box 10,10,20,20
    box 30,10,40,20
    box 50,10,60,20
    
    ` saves me typing mousex() & mousey() again and again :P
    mx=mousex()
    my=mousey()
    
    ` Is LMB pressed
    if mouseclick()=1
    
        ` check button 1   
        if mx>10 and mx<20 and my>10 and my<20
            selected=1
        endif
    
        ` check button 2    
        if mx>30 and mx<40 and my>10 and my<20
            selected=2
        endif
    
        ` check button 3
        if mx>50 and mx<60 and my>10 and my<20
            selected=3
        endif
    endif
    
    ` draw the ellipses if a button is selected
    if selected=1
        ellipse 14,14,9,9
    endif
    if selected=2
        ellipse 34,14,9,9
    endif
    if selected=3
        ellipse 54,14,9,9
    endif
    
    ` debug information
    text 0,40,str$(selected)

` update screen
    sync
loop

+ Code Snippet

//**************************************
//  Highlighting example
//  For: Lucifer 1101
//  By: =PRoF=
//**************************************

` system stuff
sync on
sync rate 60

` set a variable
selected=0

do
    ` clears the screen
    cls
    
    ` draws some boxes for buttons
    box 10,10,20,20
    box 30,10,40,20
    box 50,10,60,20
    
    ` saves me typing mousex() & mousey() again and again :P
    mx=mousex()
    my=mousey()
    
    ` Is LMB pressed
    if mouseclick()=1
    
        ` check button 1   
        if mx>10 and mx<20 and my>10 and my<20
            selected=1
        endif
    
        ` check button 2    
        if mx>30 and mx<40 and my>10 and my<20
            selected=2
        endif
    
        ` check button 3
        if mx>50 and mx<60 and my>10 and my<20
            selected=3
        endif
    endif
    
    ` draw the ellipses if a button is selected
    if selected=1
        ellipse 14,14,9,9
    endif
    if selected=2
        ellipse 34,14,9,9
    endif
    if selected=3
        ellipse 54,14,9,9
    endif
    
    ` debug information
    text 0,40,str$(selected)

    ` update screen
    sync
loop

Did you want a selected object to become unselected when the user clicks on an empty space?

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

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 3rd Mar 2009 11:24 Edited at: 3rd Mar 2009 11:29

Link

thankyou for posting that up very helpful

Quote: "Did you want a selected object to become unselected when the user clicks on an empty space?"

no, i would like it to deselect the current ellipse when another one is selected.

EDIT1: i just read though what you have given me and its checking the position of the mouse based on a static object, in my game the objects that the ellipses are referencing to are planets in a solar system and i have been trying for some time to get my code working so that i may release another version..

in another case i will provide you with the whole subroutine for drawing the radar and the not working select code..

`Radar range.
G#=RadarRange/(RRadius*1.0)
For T=ObjFrom to ObjTo
   If Object Exist(T)
      ObjX1#=Object Position X(Ship)
      ObjY1#=Object Position Y(Ship)
      ObjZ1#=Object Position Z(Ship)
      ObjX2#=Object Position X(T)
      ObjY2#=Object Position Y(T)
      ObjZ2#=Object Position Z(T)
      Dx#=ABS(ObjX1#-ObjX2#)
      Dy#=ABS(ObjY1#-ObjY2#)
      Dz#=ABS(ObjZ1#-ObjZ2#)
      Dist#=SQRT((Dx#*Dx#)+(Dy#*Dy#)+(Dz#*Dz#))
      `Convert 3d position to 2d position for radar blip.
      XRadar=(Object Position X(T)-Object position X(Ship))/G#
      ZRadar=(Object Position Z(T)-Object position Z(Ship))/G#
      `Angle for radar blip.
      TanAngle=ATANFULL(XRadar,ZRadar)
      If Object Angle X(Ship)>90 and Object Angle X(Ship)<270
         `If the unit is up side down (Reverse the angle).
         Heading=TanAngle-Object Angle Y(Ship)-180
      Else
         Heading=TanAngle-Object Angle Y(Ship)
      EndIf
      `Plot the distance and angle for radar blip.
      NewXRadar=(SIN(Heading)*Dist#)/G#
      NewZRadar=(COS(Heading)*Dist#)/G#
      `Display any objects in radar range.
      If Dist#<=RadarRange
         if Flag=0
            Ink RGB(255,0,0),0
            Ellipse RX+NewXRadar,RY-NewZRadar,5,5
         EndIf
         if Flag=1
            Ink RGB(0,0,255),0
            Ellipse RX+NewXRadar,RY-NewZRadar,2,2
         Endif
         if Flag=2
            Ink RGB(0,255,0),0
            Ellipse RX+NewXRadar,RY-NewZRadar,2,2
         Endif
		 dim object(T) as Satellite
         screenposx=rx+newxradar
		 screenposy=ry-newzradar
		 if (screenposx-mousex())^2+(screenposy-mousey())^2<4
		 	if Flag=0
		 		Ellipse screenposx,screenposy,10,10
		 	else if Flag=1
		 		Ellipse screenposx,screenposy,5,5
		 	Endif
		 	Endif
		 	if mouseclick()=1 and object(T).selected=0 then object(T).selected=1
// 		 	if object(T).selected=1
// 		 		Ellipse screenposx,screenposy,10,10
// 		 	Endif
		 	if mouseclick()=1 and object(T).selected=1 then object(T).selected=0
		 Endif
		 if object(T).selected=1
		 	Ellipse screenposx,screenposy,10,10
		 Endif
      EndIf
   EndIf
Next T
return

+ Code Snippet

`Radar range.
G#=RadarRange/(RRadius*1.0)
For T=ObjFrom to ObjTo
   If Object Exist(T)
      ObjX1#=Object Position X(Ship)
      ObjY1#=Object Position Y(Ship)
      ObjZ1#=Object Position Z(Ship)
      ObjX2#=Object Position X(T)
      ObjY2#=Object Position Y(T)
      ObjZ2#=Object Position Z(T)
      Dx#=ABS(ObjX1#-ObjX2#)
      Dy#=ABS(ObjY1#-ObjY2#)
      Dz#=ABS(ObjZ1#-ObjZ2#)
      Dist#=SQRT((Dx#*Dx#)+(Dy#*Dy#)+(Dz#*Dz#))
      `Convert 3d position to 2d position for radar blip.
      XRadar=(Object Position X(T)-Object position X(Ship))/G#
      ZRadar=(Object Position Z(T)-Object position Z(Ship))/G#
      `Angle for radar blip.
      TanAngle=ATANFULL(XRadar,ZRadar)
      If Object Angle X(Ship)>90 and Object Angle X(Ship)<270
         `If the unit is up side down (Reverse the angle).
         Heading=TanAngle-Object Angle Y(Ship)-180
      Else
         Heading=TanAngle-Object Angle Y(Ship)
      EndIf
      `Plot the distance and angle for radar blip.
      NewXRadar=(SIN(Heading)*Dist#)/G#
      NewZRadar=(COS(Heading)*Dist#)/G#
      `Display any objects in radar range.
      If Dist#<=RadarRange
         if Flag=0
            Ink RGB(255,0,0),0
            Ellipse RX+NewXRadar,RY-NewZRadar,5,5
         EndIf
         if Flag=1
            Ink RGB(0,0,255),0
            Ellipse RX+NewXRadar,RY-NewZRadar,2,2
         Endif
         if Flag=2
            Ink RGB(0,255,0),0
            Ellipse RX+NewXRadar,RY-NewZRadar,2,2
         Endif
		 dim object(T) as Satellite
         screenposx=rx+newxradar
		 screenposy=ry-newzradar
		 if (screenposx-mousex())^2+(screenposy-mousey())^2<4
		 	if Flag=0
		 		Ellipse screenposx,screenposy,10,10
		 	else if Flag=1
		 		Ellipse screenposx,screenposy,5,5
		 	Endif
		 	Endif
		 	if mouseclick()=1 and object(T).selected=0 then object(T).selected=1
// 		 	if object(T).selected=1
// 		 		Ellipse screenposx,screenposy,10,10
// 		 	Endif
		 	if mouseclick()=1 and object(T).selected=1 then object(T).selected=0
		 Endif
		 if object(T).selected=1
		 	Ellipse screenposx,screenposy,10,10
		 Endif
      EndIf
   EndIf
Next T
return

thankyou for your help and time..

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 3rd Mar 2009 14:20

Link

have you tried just removing this line?

+ Code Snippet

if mouseclick()=1 and object(T).selected=1 then object(T).selected=0

What happens when you do?

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

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 3rd Mar 2009 23:51

Link

it does nothing at all, so ill leave it out.

i just changed the array (object(T).selected) to rselect and it now keeps the ellipse there but draws it on all of them not just the one. i may need to change how they were created so that i can better look for which one is being clicked on, but i wouldnt know where to start...

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 4th Mar 2009 00:02

Link

In my example, with the static buttons; the variable selected contains the number of the object pressed.

It then checks this, and draws a circle round the relevent object.

I'd assume it'd work the same way with yours? Use a variable to store the number of the selected object, then outside of the "checking to see if its been clicked" bit; check to see which object has been selected, then draw a circle round it.

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

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 4th Mar 2009 00:38

Link

the problem im having is that the code to check my mouse position

+ Code Snippet

if (screenposx-mousex())^2+(screenposy-mousey())^2<4

is updating every loop and that checks for all of the ellipses so there are no real identifiers.

i need a way of adding an identifier to each of the ellipses so that i can then check which one was clicked, i had thaught about using 3d objects instead to do this but it would up the poly count heaps and become quite annoying to actually make them stay with the screen and move about the radar at the same time...

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 4th Mar 2009 02:15 Edited at: 4th Mar 2009 02:16

Link

I think I'd be able to help you more if I could see your entire code (and media so I can run it); but I can't imagine how you've been trying to do this without a numerical identifier for each object.

To set up the stars/planets/moons; I'd probly use a type set up roughly like this.

+ Code Snippet

type body
    x as integer
    y as integer
    z as integer
    orbiting as integer :` the body its orbiting
    range as integer: ` orbit radius
endtype

dim planets(100) as body

this would allow me to represent them either in 2d with boxes/sprites or in 3d with objects.

I'd then either compare mouse/object co'ords in 2d (like I did with the buttons, it'll still work even if the're moving) or if I were using 3D objects then maybe the pick object command will tell me what object is under the mouse in 3d space.

So, if the LMB is pressed whilst over a valid object, then set the value of the selected variable to which ever object you just pressed on.

Using this value, you can reference the co'ords to draw the circle round it.

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

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 4th Mar 2009 08:48

Link

is there a way that i can send you my project without anybody else viewing?

p.s. i already have the planets set up with a type, so thanks anyway. I also have the 'objto' and 'objfrom' variables used to reference the planet/moon objects and even the camera to show up...

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 4th Mar 2009 10:59 Edited at: 4th Mar 2009 11:00

Link

I've added my email address to my forum details, so you should just be able to zip up your project and email it to me

But if your using a dim'd array to store the planets data, can you not use its array index (the n in planet(n) in the type example I gave earlier) to identify which planet you need to draw the circle around?

Anyway, send me your project and I'll have a look and see whats going on

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

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 4th Mar 2009 11:48

Link

im sending it now.

my planets are not in an array and i am drawing these ellipses around another ellipse wich is reperesenting the position of the planet on a 2d radar...

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 6th Mar 2009 18:04

Link

Ok, well, It's taken me a little while. Lol

You really could have put some more comments in, It took me the 1st day just working out what all the variables and gosubs did.

It now however, highlights a planet on the radar when u click on it, and it stays highlighted until you select another planet.

I've commented the code so u can see what I've done.

//
        // Start of my changes
        // 
         
        ` not sure why u had this here? You don't need to constantly Dim arrays every loop
        `dim object(T) as Satellite
        
        ` screenposx&y are where object is to be drawn 
        screenposx=rx+newxradar
        screenposy=ry-newzradar
		 
		` if mouse over planet on radar 
        if (screenposx-mousex())^2+(screenposy-mousey())^2<4
		 	` and the button pressed
            if mouseclick()=1 
                ` selected=object being drawn
                selected=T:
            endif   
        endif
        
        //
        //  Moved this out of the "if mouse over planet" bit
        //
	 	
        ` If current planet is selected, highlight it
        if selected=T
        
            if Flag=0
                Ellipse screenposx,screenposy,10,10
            Endif
		 	
            if Flag=1
                Ellipse screenposx,screenposy,5,5
            Endif
	endif
		
        //
        //  End of my changes
        //

+ Code Snippet

        //
        // Start of my changes
        // 
         
        ` not sure why u had this here? You don't need to constantly Dim arrays every loop
        `dim object(T) as Satellite
        
        ` screenposx&y are where object is to be drawn 
        screenposx=rx+newxradar
        screenposy=ry-newzradar
		 
		` if mouse over planet on radar 
        if (screenposx-mousex())^2+(screenposy-mousey())^2<4
		 	` and the button pressed
            if mouseclick()=1 
                ` selected=object being drawn
                selected=T:
            endif   
        endif
        
        //
        //  Moved this out of the "if mouse over planet" bit
        //
	 	
        ` If current planet is selected, highlight it
        if selected=T
        
            if Flag=0
                Ellipse screenposx,screenposy,10,10
            Endif
		 	
            if Flag=1
                Ellipse screenposx,screenposy,5,5
            Endif
	endif
		
        //
        //  End of my changes
        //

Hope thats more like what your after.

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

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 7th Mar 2009 01:37

Link

thankyou soo much, i knew that the problem would be small...

i can now move on to other things.

one question is there a way to get the mouse position for where it is clickable to have a radius so that i dont have to click in the center??

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 7th Mar 2009 12:28

Link

The planet checking line in your code is this

+ Code Snippet

if (screenposx-mousex())^2+(screenposy-mousey())^2<4

Which checks if you've clicked 2 pixels radius from the centre of the elipse. (2^2=4), so for a larger radius, just increase the number at the end. 25 (5 squared) will give you a 5 pixel radius.

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

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 7th Mar 2009 12:41

Link

thanks for that heaps..

i actually got in in a pile of snippets and didnt fully understand it....

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 7th Mar 2009 18:35

Link

No worries

Glad you got it all working now

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 / Selecting an object in an array