Effects of Clicks not doing what it meant to

Author

Message

Flamertor

13

Years of Service

User Offline

Joined: 12th Oct 2011

Location:

Posted: 12th Apr 2013 17:08 Edited at: 12th Apr 2013 18:16

Link

Here's the code

do
                Rem Bottom window
                Hide sprite 12
                Paste sprite 12,0,0
                RotationLockTimer=RotationLockTimer+1
                ink rgb(0,0,0),rgb(0,0,0)
                set cursor 4,247 : print \"Information:\"
                set cursor 4,410 
                If RotationLock=0 then print \"Rotation Mode:Free Mode\"
                If RotationLock=1 then print \"Rotation Mode:Lock Mode\"
                set cursor 225,410 : print \"Previous Sketches\"
                ink rgb (255,255,255),rgb (255,255,255) 
                    Rem Inventory 
                    If mousex()=>326 and mousex()=<357 and mousey()=>200 and mousey()=>210 and mouseclick()=1  then InventoryShipConstruction=1
                        Rem Rotation Lock
                        If mousex()=>2 and mousex()=<189 and mousey()=>390 and mousey()=>400 and mouseclick()=1 and RotationLock=0 and RotationLockTimer=>20 then RotationLock=1 : RotationLockTimer=0
                        If mousex()=>2 and mousex()=<189 and mousey()=>390 and mousey()=>400 and mouseclick()=1 and RotationLock=1 and RotationLockTimer=>20 then RotationLock=0 : RotationLockTimer=0
                            Rem Previous Sketch
                            If mousex()=>223 and mousex()=<240 and mousey()=>390 and mousey()=>400 and mouseclick()=1 then PreviousSketchSearch=1
                    Rem Previous Sketch Menu
                    If PreviousSketchSearch=1
                    
                    hide sprite 13
                    paste sprite 13,0,0
                    endif 
               
LOOP

+ Code Snippet

 
do
                Rem Bottom window
                Hide sprite 12
                Paste sprite 12,0,0
                RotationLockTimer=RotationLockTimer+1
                ink rgb(0,0,0),rgb(0,0,0)
                set cursor 4,247 : print \"Information:\"
                set cursor 4,410 
                If RotationLock=0 then print \"Rotation Mode:Free Mode\"
                If RotationLock=1 then print \"Rotation Mode:Lock Mode\"
                set cursor 225,410 : print \"Previous Sketches\"
                ink rgb (255,255,255),rgb (255,255,255) 
                    Rem Inventory 
                    If mousex()=>326 and mousex()=<357 and mousey()=>200 and mousey()=>210 and mouseclick()=1  then InventoryShipConstruction=1
                        Rem Rotation Lock
                        If mousex()=>2 and mousex()=<189 and mousey()=>390 and mousey()=>400 and mouseclick()=1 and RotationLock=0 and RotationLockTimer=>20 then RotationLock=1 : RotationLockTimer=0
                        If mousex()=>2 and mousex()=<189 and mousey()=>390 and mousey()=>400 and mouseclick()=1 and RotationLock=1 and RotationLockTimer=>20 then RotationLock=0 : RotationLockTimer=0
                            Rem Previous Sketch
                            If mousex()=>223 and mousex()=<240 and mousey()=>390 and mousey()=>400 and mouseclick()=1 then PreviousSketchSearch=1
                    Rem Previous Sketch Menu
                    If PreviousSketchSearch=1
                    
                    hide sprite 13
                    paste sprite 13,0,0
                    endif 
               
LOOP

Everything works fine except the bottom left corner. I have got the coordinates correct as far as I can tell but it isn\'t working. Anyone know why?? I have used three different camera if that makes any difference

Back to top

Profile PM

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 12th Apr 2013 18:12

Link

Is it possible you could trim your code down to demonstrate the problem.

There is a lot of code there we can't run due to missing images.

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

Flamertor

13

Years of Service

User Offline

Joined: 12th Oct 2011

Location:

Posted: 12th Apr 2013 18:16

Link

I think I have trimmed it down to the bare minimal

Back to top

Profile PM

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 12th Apr 2013 18:41

Link

I'd change your code to check for the mouse button being released, rather than checking for a mouse down. Whats probably happenning is your clicking on a button, and the framerate's so fast that it's changing again whilst your finger's still on the button.

I'd probably do this..

do
   `Mobiius's better mouse checking code
   OldMouse = NewMouse : NewMouse = mouseclick()
   MouseUp = 0 : If OldMouse = 1 And NewMouse = 0 Then MouseUp = 1
   `==========
   
   Rem Bottom window
   Hide sprite 12
   Paste sprite 12,0,0
   RotationLockTimer=RotationLockTimer+1
   ink rgb(0,0,0),rgb(0,0,0)
   set cursor 4,247 : print \"Information:\"
   set cursor 4,410 
   If RotationLock=0 then print \"Rotation Mode:Free Mode\"
   If RotationLock=1 then print \"Rotation Mode:Lock Mode\"
   set cursor 225,410 : print \"Previous Sketches\"
   ink rgb (255,255,255),rgb (255,255,255) 
   Rem Inventory 
   If mousex()=>326 and mousex()=<357 and mousey()=>200 and mousey()=>210 and MouseUp=1  then InventoryShipConstruction=1
   Rem Rotation Lock
   If mousex()=>2 and mousex()=<189 and mousey()=>390 and mousey()=>400 and MouseUp=1
      If RotationLock=0
         RotationLock=1
      Else
         RotationLock=0
      EndIf
      RotationLockTimer=0
   EndIf
   If mousex()=>2 and mousex()=<189 and mousey()=>390 and mousey()=>400 and MouseUp=1 and RotationLock=1 and RotationLockTimer=>20 then RotationLock=0 : RotationLockTimer=0
   Rem Previous Sketch
   If mousex()=>223 and mousex()=<240 and mousey()=>390 and mousey()=>400 and MouseUp=1 then PreviousSketchSearch=1
   Rem Previous Sketch Menu
   If PreviousSketchSearch=1
      hide sprite 13
      paste sprite 13,0,0
   endif 
LOOP

+ Code Snippet

do
   `Mobiius's better mouse checking code
   OldMouse = NewMouse : NewMouse = mouseclick()
   MouseUp = 0 : If OldMouse = 1 And NewMouse = 0 Then MouseUp = 1
   `==========
   
   Rem Bottom window
   Hide sprite 12
   Paste sprite 12,0,0
   RotationLockTimer=RotationLockTimer+1
   ink rgb(0,0,0),rgb(0,0,0)
   set cursor 4,247 : print \"Information:\"
   set cursor 4,410 
   If RotationLock=0 then print \"Rotation Mode:Free Mode\"
   If RotationLock=1 then print \"Rotation Mode:Lock Mode\"
   set cursor 225,410 : print \"Previous Sketches\"
   ink rgb (255,255,255),rgb (255,255,255) 
   Rem Inventory 
   If mousex()=>326 and mousex()=<357 and mousey()=>200 and mousey()=>210 and MouseUp=1  then InventoryShipConstruction=1
   Rem Rotation Lock
   If mousex()=>2 and mousex()=<189 and mousey()=>390 and mousey()=>400 and MouseUp=1
      If RotationLock=0
         RotationLock=1
      Else
         RotationLock=0
      EndIf
      RotationLockTimer=0
   EndIf
   If mousex()=>2 and mousex()=<189 and mousey()=>390 and mousey()=>400 and MouseUp=1 and RotationLock=1 and RotationLockTimer=>20 then RotationLock=0 : RotationLockTimer=0
   Rem Previous Sketch
   If mousex()=>223 and mousex()=<240 and mousey()=>390 and mousey()=>400 and MouseUp=1 then PreviousSketchSearch=1
   Rem Previous Sketch Menu
   If PreviousSketchSearch=1
      hide sprite 13
      paste sprite 13,0,0
   endif 
LOOP

I've added code to report only when the mouse button has been released.

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

Flamertor

13

Years of Service

User Offline

Joined: 12th Oct 2011

Location:

Posted: 12th Apr 2013 19:10

Link

Thanks for the reply but it still doesn't work. It mainly to do with the bottom of the screen half way between the "Previous Sketches" text.

Back to top

Profile PM

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 12th Apr 2013 19:13

Link

Can you explain what you mean by "it doesn't work"
What is actually happening?

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

Flamertor

13

Years of Service

User Offline

Joined: 12th Oct 2011

Location:

Posted: 12th Apr 2013 19:44

Link

Well when I put it in the code it had the same result as it had before.

[img]

[/img]

The purple bit which goes down isn't meant to go down according to the coordinates or the actual function of the program. I got the coordinates from the mouse cords which you can see are coded to show up in the top right of the program.

Back to top

Profile PM

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 12th Apr 2013 21:16

Link

But you didn't explain what actually happens? Or what should happen?

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

Flamertor

13

Years of Service

User Offline

Joined: 12th Oct 2011

Location:

Posted: 12th Apr 2013 21:27 Edited at: 12th Apr 2013 21:38

Link

Oh sorry. The thing which is meant to happen is a menu will open to allow the user to select a different design. The thing which happens at the moment is it opens a different menu than the one required which is to spawn in items.

E.g this variable is meant to be PreviousSketchSearch=1 but instead InventoryShipConstruction=1 is done.

I'm not the best at describing it.

Back to top

Profile PM

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 12th Apr 2013 22:37

Link

I don't know if it'll help, but change all the => and =< to be >= and <=. (Switch the characters around.)

I always do it >= rather than => so it may be a cause.

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

29 games

19

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 13th Apr 2013 02:32

Link

Hi,

Where you're checking to see if the mouse is in the right area, the way you're doing the y boundaries seems wrong to me. For instance:

If mousex()=>326 and mousex()=<357 and mousey()=>200 and mousey()=>210 and mouseclick()=1 then InventoryShipConstruction=1

I.e. mousey() has to be greater than or equal to 200 and mousey() has to be greater than or equal to 210. To my mind this should be: mousey() has to be greater than or equal to 200 and mousey() has to be LESS than or equal to 210.

This does seem to fit the area you highlighted as a problem. Your current code has the bounding box stretching all the way down to the bottom of the screen and overlapping any buttons below it. Because the "InventoryShipConstruction=1" check appears first in the code this would execute first thus giving the issue you described.

Anyway, I hope this helps.

one of these days I'll come up with a better signature

Back to top

Profile PM Email

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 13th Apr 2013 02:45

Link

Quote: "mousey()=>200 and mousey()=>210"

I never spotted that. Good call.

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

Flamertor

13

Years of Service

User Offline

Joined: 12th Oct 2011

Location:

Posted: 13th Apr 2013 14:24

Link

Hi,
thanks for the reply but It still dosn't work (both suggestions)

Back to top

Profile PM

29 games

19

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 13th Apr 2013 22:13

Link

Does it not work in the same way as before or is it not working in some new way?

I've had another look and, using Mobiius' suggestion of detecting when the mouse button has been released, come up with a short piece of test code and it works how I imagine it should but I've had to make a few assumptions as to what you're code is doing and what effect you are looking for (for instance, I don't know what RotationLockTimer is supposed to do).

sync on
sync rate 60
set window off
randomize timer()

do

cls

`some boxes so I can see where the buttons are
	box 326,200, 357,210
	box 2,390, 189,400
	box 223,390, 240,400

`manage mouse click
	OldMouse = NewMouse : NewMouse = mouseclick()
	MouseUp = 0 : If OldMouse = 1 And NewMouse = 0 Then MouseUp = 1

`reset variables (these will need to be reset at some point otherwise they will be permanently stuck on 1 once the button is selected)
	InventoryShipConstruction = 0
	PreviousSketchSearch = 0

`what is this for and does it ever need to be reset?
 	RotationLockTimer=RotationLockTimer+1
 	
 	`only a single check to see if the left mouse button has been pressed
	if MouseUp = 1
		
		`select ship construction button
		If mousex()=>326 and mousex()=<357 and mousey()=>200 and mousey()=<210
			InventoryShipConstruction=1
		endif
		
		`select rotation lock button (not entirely sure what RotationLockTimer and RotationLock do, what effect are you looking for?)
		`I have assumed that you want to latch RotationLock to be either 1 or zero when the button is selected (I could be wrong)
		If mousex()=>2 and mousex()=<189 and mousey()=>390 and mousey()=<400 and RotationLockTimer=>20
			if RotationLock = 0
				RotationLock = 1
			else
				RotationLock = 0
			endif
		endif
		
		`select previous sketh button
		If mousex()=>223 and mousex()=<240 and mousey()=>390 and mousey()=<400
			PreviousSketchSearch=1
		endif
		
	endif

`I'm guessing InventoryShipConstruction and PreviousSketchSearch are flags that are used to go to some other menu item code.
	`I will use them to change the ink colour purely so we can see they have an effect
	if InventoryShipConstruction = 1
		`change foreground colour to a random shade of red
		ink rgb(rnd(15*10)+100,0,0),0
	endif
	if PreviousSketchSearch = 1
		`change foreground colour to a random shade of green
		ink rgb(0,rnd(15*10)+100,0),0
	endif

set cursor 0,0
	print "RotationLockTimer : ", RotationLockTimer
	print "RotationLock : ", RotationLock

sync
               
loop

+ Code Snippet

sync on
sync rate 60
set window off
randomize timer()


do

	cls

	`some boxes so I can see where the buttons are
	box 326,200, 357,210
	box 2,390, 189,400
	box 223,390, 240,400


	`manage mouse click
	OldMouse = NewMouse : NewMouse = mouseclick()
	MouseUp = 0 : If OldMouse = 1 And NewMouse = 0 Then MouseUp = 1

	`reset variables (these will need to be reset at some point otherwise they will be permanently stuck on 1 once the button is selected)
	InventoryShipConstruction = 0
	PreviousSketchSearch = 0

	`what is this for and does it ever need to be reset?
 	RotationLockTimer=RotationLockTimer+1
 	
 	`only a single check to see if the left mouse button has been pressed
	if MouseUp = 1
		
		`select ship construction button
		If mousex()=>326 and mousex()=<357 and mousey()=>200 and mousey()=<210
			InventoryShipConstruction=1
		endif
		
		`select rotation lock button (not entirely sure what RotationLockTimer and RotationLock do, what effect are you looking for?)
		`I have assumed that you want to latch RotationLock to be either 1 or zero when the button is selected (I could be wrong)
		If mousex()=>2 and mousex()=<189 and mousey()=>390 and mousey()=<400 and RotationLockTimer=>20
			if RotationLock = 0
				RotationLock = 1
			else
				RotationLock = 0
			endif
		endif
		
		`select previous sketh button
		If mousex()=>223 and mousex()=<240 and mousey()=>390 and mousey()=<400
			PreviousSketchSearch=1
		endif
		
	endif

	`I'm guessing InventoryShipConstruction and PreviousSketchSearch are flags that are used to go to some other menu item code.
	`I will use them to change the ink colour purely so we can see they have an effect
	if InventoryShipConstruction = 1
		`change foreground colour to a random shade of red
		ink rgb(rnd(15*10)+100,0,0),0
	endif
	if PreviousSketchSearch = 1
		`change foreground colour to a random shade of green
		ink rgb(0,rnd(15*10)+100,0),0
	endif


	set cursor 0,0
	print "RotationLockTimer : ", RotationLockTimer
	print "RotationLock : ", RotationLock

	
	sync
               
loop

In the demo I've drawn boxes to show where then selection areas are and the coordinates you're using for the Previous Sketches "button" is look too small (it doesn't seem to be the same size as the text judging by the picture you posted).

one of these days I'll come up with a better signature

Back to top

Profile PM Email

Flamertor

13

Years of Service

User Offline

Joined: 12th Oct 2011

Location:

Posted: 13th Apr 2013 23:56 Edited at: 13th Apr 2013 23:56

Link

I copied your code for the box and is this what you get?

Sorry it isn't very clear.

Also I am still having the same error

[/img]

Back to top

Profile PM

Chris Tate

DBPro Master

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 14th Apr 2013 13:41 Edited at: 14th Apr 2013 13:43

Link

The approach you've taken here is not very flexible because you've used literals coordinates; what happens when the screen resolution on a player's machine is different? The coordinates will be off, unless you want to use the same resolution no matter the monitor size, be it laptop or 40 inch.

You should simplify the process; always best to keep it simple. Use sprites and put a pixel sprite under the mouse and test for collision. Each of those screen elements could be sprites. Additionally, screen GUI could also be 3D, using a UI camera and object masking, a hit test object could be placed at the mouse location or you could use Pick Object.

If you fancy sticking to images; use variables instead of literals for user interface elements. Treat each UI element as a UDT; search the forum and Code Corner for UI snippets, there are loads freely available. Perform your hit test from the origin of each UI element.

Back to top

Profile PM Email Website

Flamertor

13

Years of Service

User Offline

Joined: 12th Oct 2011

Location:

Posted: 14th Apr 2013 13:53 Edited at: 14th Apr 2013 13:53

Link

Hi Chris Tate,

I thought you had to write new bits of code for each resolution

I'll try with the objects now then

edit: Forgot to say thanks

Back to top

Profile PM

Flamertor

13

Years of Service

User Offline

Joined: 12th Oct 2011

Location:

Posted: 14th Apr 2013 17:15 Edited at: 14th Apr 2013 17:22

Link

Thanks Chris Tate it worked just can't turn them invisible; any ideas?

Edit:

here's the code and the previous sketches dosn't work still

Rem Bottom window
                Hide sprite 12
                Paste sprite 12,0,0
                RotationLockTimer=RotationLockTimer+1
                ink rgb(0,0,0),rgb(0,0,0)
                set cursor 4,247 : print "Information:"
                set cursor 4,410 
                If RotationLock=0 then print "Rotation Mode:Free Mode"
                If RotationLock=1 then print "Rotation Mode:Lock Mode"
                set cursor 225,410 : print "Previous Sketches"
                ink rgb (255,255,255),rgb (255,255,255) 
                If mousex()<screen width()/1.75 and mousey()>screen height()/2 then set current camera 4
                    Rem Inventory 
                    If object exist(1000000)=0 then make object box 1000000,10,1,10 : position object 1000000,192,50,282 : hide object 1000000
                    OptionMenu = pick object (Mousex(),Mousey(),1000000,1000002) 
                    If OptionMenu=1000000 and mouseclick()=1 then InventoryShipConstruction=1
                        Rem Rotation Lock
                        If object exist(1000001)=0 then make object box 1000001,40,1,5 : position object 1000001,140,50,242 : hide object 1000001
                        If OptionMenu=1000001 and mouseclick()=1 and RotationLock=0 and RotationLockTimer=>20 then RotationLock=1 : RotationLockTimer=0
                        If OptionMenu=1000001 and mouseclick()=1 and RotationLock=1 and RotationLockTimer=>20 then RotationLock=0 : RotationLockTimer=0
                            Rem Previous Sketch
                            If object exist(1000002)=0 then make object box 1000002,30,1,5 : position object 1000002,182,50,242
                            If OptionMenu=1000002 and mouseclick()=1 then PreviousSketchSearch=1
                    Rem Previous Sketch Menu
                    If PreviousSketchSearch=1
                    
                    hide sprite 12
                    paste sprite 12,0,0
                    endif

+ Code Snippet

Rem Bottom window
                Hide sprite 12
                Paste sprite 12,0,0
                RotationLockTimer=RotationLockTimer+1
                ink rgb(0,0,0),rgb(0,0,0)
                set cursor 4,247 : print "Information:"
                set cursor 4,410 
                If RotationLock=0 then print "Rotation Mode:Free Mode"
                If RotationLock=1 then print "Rotation Mode:Lock Mode"
                set cursor 225,410 : print "Previous Sketches"
                ink rgb (255,255,255),rgb (255,255,255) 
                If mousex()<screen width()/1.75 and mousey()>screen height()/2 then set current camera 4
                    Rem Inventory 
                    If object exist(1000000)=0 then make object box 1000000,10,1,10 : position object 1000000,192,50,282 : hide object 1000000
                    OptionMenu = pick object (Mousex(),Mousey(),1000000,1000002) 
                    If OptionMenu=1000000 and mouseclick()=1 then InventoryShipConstruction=1
                        Rem Rotation Lock
                        If object exist(1000001)=0 then make object box 1000001,40,1,5 : position object 1000001,140,50,242 : hide object 1000001
                        If OptionMenu=1000001 and mouseclick()=1 and RotationLock=0 and RotationLockTimer=>20 then RotationLock=1 : RotationLockTimer=0
                        If OptionMenu=1000001 and mouseclick()=1 and RotationLock=1 and RotationLockTimer=>20 then RotationLock=0 : RotationLockTimer=0
                            Rem Previous Sketch
                            If object exist(1000002)=0 then make object box 1000002,30,1,5 : position object 1000002,182,50,242
                            If OptionMenu=1000002 and mouseclick()=1 then PreviousSketchSearch=1
                    Rem Previous Sketch Menu
                    If PreviousSketchSearch=1
                    
                    hide sprite 12
                    paste sprite 12,0,0
                    endif

Please help

Back to top

Profile PM

Chris Tate

DBPro Master

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 14th Apr 2013 20:07

Link

If you can't pick an invisible object, set the object alpha mapping to 0; or try masking the object using Set Object Mask.

As a note; an easy way to use screen coordinates is to use the Pick screen command, and place the objects in screen space.

Back to top

Profile PM Email Website

Flamertor

13

Years of Service

User Offline

Joined: 12th Oct 2011

Location:

Posted: 15th Apr 2013 09:38

Link

This is where I got my boxes for the collision (there is one where the inventory is) but the "PreviousSketchSearch" one still dosn't work. It just doesn't do anything; got any ideas?

Rem Bottom window
                Hide sprite 12
                Paste sprite 12,0,0
                RotationLockTimer=RotationLockTimer+1
                ink rgb(0,0,0),rgb(0,0,0)
                set cursor 4,247 : print "Information:"
                set cursor 4,410 
                If RotationLock=0 then print "Rotation Mode:Free Mode"
                If RotationLock=1 then print "Rotation Mode:Lock Mode"
                set cursor 225,410 : print "Previous Sketches"
                ink rgb (255,255,255),rgb (255,255,255) 
                If mousex()<screen width()/1.75 and mousey()>screen height()/2 then set current camera 4
                    Rem Inventory 
                    If object exist(1000000)=0 then make object box 1000000,10,1,10 : position object 1000000,192,50,282 : hide object 1000000
                    OptionMenu = pick object (Mousex(),Mousey(),1000000,1000002) 
                    If OptionMenu=1000000 and mouseclick()=1 then InventoryShipConstruction=1
                        Rem Rotation Lock
                        If object exist(1000001)=0 then make object box 1000001,40,1,5 : position object 1000001,140,50,242 : hide object 1000001
                        If OptionMenu=1000001 and mouseclick()=1 and RotationLock=0 and RotationLockTimer=>20 then RotationLock=1 : RotationLockTimer=0
                        If OptionMenu=1000001 and mouseclick()=1 and RotationLock=1 and RotationLockTimer=>20 then RotationLock=0 : RotationLockTimer=0
                            Rem Previous Sketch
                            If object exist(1000002)=0 then make object box 1000002,30,1,5 : position object 1000002,182,50,242
                            If OptionMenu=1000002 and mouseclick()=1 then PreviousSketchSearch=1
                    Rem Previous Sketch Menu
                    If PreviousSketchSearch=1
                    
                    hide sprite 12
                    paste sprite 12,0,0
                    endif

+ Code Snippet

Rem Bottom window
                Hide sprite 12
                Paste sprite 12,0,0
                RotationLockTimer=RotationLockTimer+1
                ink rgb(0,0,0),rgb(0,0,0)
                set cursor 4,247 : print "Information:"
                set cursor 4,410 
                If RotationLock=0 then print "Rotation Mode:Free Mode"
                If RotationLock=1 then print "Rotation Mode:Lock Mode"
                set cursor 225,410 : print "Previous Sketches"
                ink rgb (255,255,255),rgb (255,255,255) 
                If mousex()<screen width()/1.75 and mousey()>screen height()/2 then set current camera 4
                    Rem Inventory 
                    If object exist(1000000)=0 then make object box 1000000,10,1,10 : position object 1000000,192,50,282 : hide object 1000000
                    OptionMenu = pick object (Mousex(),Mousey(),1000000,1000002) 
                    If OptionMenu=1000000 and mouseclick()=1 then InventoryShipConstruction=1
                        Rem Rotation Lock
                        If object exist(1000001)=0 then make object box 1000001,40,1,5 : position object 1000001,140,50,242 : hide object 1000001
                        If OptionMenu=1000001 and mouseclick()=1 and RotationLock=0 and RotationLockTimer=>20 then RotationLock=1 : RotationLockTimer=0
                        If OptionMenu=1000001 and mouseclick()=1 and RotationLock=1 and RotationLockTimer=>20 then RotationLock=0 : RotationLockTimer=0
                            Rem Previous Sketch
                            If object exist(1000002)=0 then make object box 1000002,30,1,5 : position object 1000002,182,50,242
                            If OptionMenu=1000002 and mouseclick()=1 then PreviousSketchSearch=1
                    Rem Previous Sketch Menu
                    If PreviousSketchSearch=1
                    
                    hide sprite 12
                    paste sprite 12,0,0
                    endif

Back to top

Profile PM

Chris Tate

DBPro Master

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 15th Apr 2013 11:03

Link

The code would work if the object is in the right place. I doubt the object is in the right place. Make sure camera 4 has the same FOV (field of view) as the screen camera otherwise the object will appear in a completely different position in that camera.

Why not try replacing the position object with something like this:

+ Code Snippet

Function ProjectObject( o, iCam, iScreenX, iScreenY, fDistance# )
  iOldCam = Current Camera() : Set Current Camera iCam
  Pick Screen( iScreenX, iScreenY, fDistance# )
  Position Object o, Get Pick Vector X(), Get Pick Vector Y(), Get Pick Vector Z()
  Set Current Camera iOldCam
EndFunction

Functions like this lighten the work. All you do is specify the screen position, object , distance and camera; and it does the rest.

Back to top

Profile PM Email Website

Flamertor

13

Years of Service

User Offline

Joined: 12th Oct 2011

Location:

Posted: 16th Apr 2013 19:15

Link

Sorry I don't understand; do I move the object or check for collision of the object with the mouse?

The object collision thing seems to work except the bottom right box. As it work fine with the rest.

Back to top

Profile PM

Chris Tate

DBPro Master

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 16th Apr 2013 22:06 Edited at: 16th Apr 2013 22:07

Link

Basically replace things like this:

Quote: " If object exist(1000001)=0 then make object box 1000001,40,1,5 : position object 1000001,140,50,242 : hide object 1000001"

with

Quote: "ProjectObject(1000001, Camera, ScreenXPosition, ScreenYPosition, DistanceFromScreen)"

So that you are 100% sure the object is at the correct location from the correct camera, which is 4 in your case. And be sure that Camera 4 has the same FOV as camera 0. Use the function I gave you. Make all objects visible while debugging. And make use of the Set Object Mask command to set what camera objects should render to.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Effects of Clicks not doing what it meant to