Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

DarkBASIC Professional Discussion / Boolean code screwy?

Author

Message

Mugen Wizardry

User Banned

Posted: 26th Jan 2011 19:38 Edited at: 26th Jan 2011 19:39

Hi all. I'm having a bit of a problem fixing selecting and unselecting a 3D object.

i have it to where u can click the background to unselect it, but when u click ON the object itself AFTER the object is selected, it WON'T unselect.

Here's what I have:

    if _picked <>  0


        if  mouseclick()=1 and sk = 0
            sk = 1
            for i = 1 to _objectCount
                
            if _picked<>0

            if object exist(_picked)=i
               
                if sk<>0
                    if _picked<>0 then show object bounds _picked,1 : else sk=0 : _picked=0
                endif
                    
               if PICK OBJECT(mousex(), mousey(), _picked, _picked)=0 then hide object bounds _picked : sk=0 : _oldpicked=0 : _picked=0

            endif
            endif
            
            next i
        else
            if mouseclick()=0
                sk = 0
            endif
        endif
        
        
    endif

yes i've already tried putting them in text form to see if they were working. they aren't.

btw. i is <= to the amount of objects currently on the screen. _picked is the object to be selected. _oldpicked is the object that has already been selected.

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD AT Amazon.com!

Back to top

Profile

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 26th Jan 2011 21:05

Wrote this pretty quick to give you an idea:

global _mouseclick as integer
global _oldMouseclick as integer

global _picked as integer
global _oldPicked as integer

global _selectedObject as integer

sync on : sync rate 60
autocam off

// setup objects to select
for n = 1 to 50
    make object cube n,2
    position object n,rnd(42)-21,rnd(42)-21,rnd(36)+20
    rotate object n,rnd(360),rnd(360),rnd(360)
next

do
    // update input
    _oldMouseclick = _mouseclick
    _mouseclick = mouseclick()

_oldPicked = _picked
    _picked = pick object(mousex(), mousey(), 1, 50)

// update selection
    if _picked <>  0
        
        show object bounds _picked,1
        
        if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
        
            if _selectedObject
                // if an object is already select, reset it and set the new one
                hide object bounds _selectedObject
                set object emissive _selectedObject,rgb(0, 0, 0)
                set object emissive _picked,rgb(0, 255, 64)
            else
                // if no object is selected, just update the selected one
                set object emissive _picked,rgb(0, 255, 64)
            endif
            _selectedObject = _picked
        endif
        
    else
    
        // if theres no pick but a mouse call, reset last selected object
        if _selectedObject
            if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
                hide object bounds _selectedObject
                set object emissive _selectedObject,rgb(0, 0, 0)
                _selectedObject = 0
            endif
        endif
        
    endif
    
    // unselect objects that the mouse had just been over unless already selected
    if _oldPicked <> 0 and _oldPicked <> _picked
        if _oldPicked <> _selectedObject
            hide object bounds _oldPicked
        endif
    endif

sync
loop

global _mouseclick as integer
global _oldMouseclick as integer

global _picked as integer
global _oldPicked as integer

global _selectedObject as integer

sync on : sync rate 60
autocam off

// setup objects to select
for n = 1 to 50
    make object cube n,2
    position object n,rnd(42)-21,rnd(42)-21,rnd(36)+20
    rotate object n,rnd(360),rnd(360),rnd(360)
next

do
    // update input
    _oldMouseclick = _mouseclick
    _mouseclick = mouseclick()

    _oldPicked = _picked
    _picked = pick object(mousex(), mousey(), 1, 50)

    // update selection
    if _picked <>  0
        
        show object bounds _picked,1
        
        if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
        
            if _selectedObject
                // if an object is already select, reset it and set the new one
                hide object bounds _selectedObject
                set object emissive _selectedObject,rgb(0, 0, 0)
                set object emissive _picked,rgb(0, 255, 64)
            else
                // if no object is selected, just update the selected one
                set object emissive _picked,rgb(0, 255, 64)
            endif
            _selectedObject = _picked
        endif
        
    else
    
        // if theres no pick but a mouse call, reset last selected object
        if _selectedObject
            if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
                hide object bounds _selectedObject
                set object emissive _selectedObject,rgb(0, 0, 0)
                _selectedObject = 0
            endif
        endif
        
    endif
    
    // unselect objects that the mouse had just been over unless already selected
    if _oldPicked <> 0 and _oldPicked <> _picked
        if _oldPicked <> _selectedObject
            hide object bounds _oldPicked
        endif
    endif

    sync
loop

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 27th Jan 2011 03:44

Sasuke - Nice piece of code!
I will have to play with it, learn from it, and use it in something
Thanks

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 27th Jan 2011 05:17

Thanks alot Sasuke! Is there any way I can make it so when I click on an object for the second time, it will turn off wireframe and highlighting?

Thanks!

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD AT Amazon.com!

Back to top

Profile

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 27th Jan 2011 12:18

Here's another way of using pick object:

set display mode desktop width(), desktop height(), 32, 1
sync on: sync rate 60: sync

autocam off
position camera 0, 50, -300
point camera 0, 0, 0

dim selected(2)

make object sphere 1, 100
position object 1, -100, 0, 0
color object 1, rgb(255, 0, 0)

make object sphere 2, 100
position object 2, 100, 0, 0
color object 2, rgb(255, 0, 0)

click = 0

repeat
  clickNow = mouseClick()
  objId = pick object(mouseX(), mouseY(), 1, 2)
  if objId > 0
    if clickNow = 1
      if click = 0
        click = 1
        selected(objId) = 1 - selected(objId)
        color object objId, rgb(255*(1-selected(objId)), 255*selected(objId), 0)
      endif
    else
      click = 0
    endif
  else
    click = 0
  endif
  sync
until spacekey()

end

That snippet allows you to independently select or unselect each individual object by clicking.

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 27th Jan 2011 14:01

Here's how to do what you asked on my bit of code, although I think the code can be improved, more efficient:

global _mouseclick as integer
global _oldMouseclick as integer

global _picked as integer
global _oldPicked as integer

global _selectedObject as integer

sync on : sync rate 60
autocam off

// setup objects to select
for n = 1 to 50
    make object cube n,2
    position object n,rnd(42)-21,rnd(42)-21,rnd(36)+20
    rotate object n,rnd(360),rnd(360),rnd(360)
next

do
    // update input
    _oldMouseclick = _mouseclick
    _mouseclick = mouseclick()

_oldPicked = _picked
    _picked = pick object(mousex(), mousey(), 1, 50)

// update selection
    if _picked <>  0
        
        show object bounds _picked,1
        
        if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
            if _selectedObject
                if _selectedObject = _picked
                    hide object bounds _selectedObject
                    set object emissive _selectedObject,rgb(0, 0, 0)
                    _selectedObject = 0
                else
                    hide object bounds _selectedObject
                    set object emissive _selectedObject,rgb(0, 0, 0)
                    set object emissive _picked,rgb(0, 255, 64)
                    _selectedObject = _picked
                endif
            else
                set object emissive _picked,rgb(0, 255, 64)
                _selectedObject = _picked
            endif

endif
        
    else
    
        // if theres no pick but a mouse call, reset last selected object
        if _selectedObject
            if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
                hide object bounds _selectedObject
                set object emissive _selectedObject,rgb(0, 0, 0)
                _selectedObject = 0
            endif
        endif
        
    endif
    
    // unselect objects that the mouse had just been over unless already selected
    if _oldPicked <> 0 and _oldPicked <> _picked
        if _oldPicked <> _selectedObject
            hide object bounds _oldPicked
        endif
    endif
    
    text 0,0,"Selected Object: "+str$(_selectedObject)
    text 0,12,"Picked Object: "+str$(_picked)

sync
loop

global _mouseclick as integer
global _oldMouseclick as integer

global _picked as integer
global _oldPicked as integer

global _selectedObject as integer

sync on : sync rate 60
autocam off

// setup objects to select
for n = 1 to 50
    make object cube n,2
    position object n,rnd(42)-21,rnd(42)-21,rnd(36)+20
    rotate object n,rnd(360),rnd(360),rnd(360)
next

do
    // update input
    _oldMouseclick = _mouseclick
    _mouseclick = mouseclick()

    _oldPicked = _picked
    _picked = pick object(mousex(), mousey(), 1, 50)

    // update selection
    if _picked <>  0
        
        show object bounds _picked,1
        
        if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
            if _selectedObject
                if _selectedObject = _picked
                    hide object bounds _selectedObject
                    set object emissive _selectedObject,rgb(0, 0, 0)
                    _selectedObject = 0
                else
                    hide object bounds _selectedObject
                    set object emissive _selectedObject,rgb(0, 0, 0)
                    set object emissive _picked,rgb(0, 255, 64)
                    _selectedObject = _picked
                endif
            else
                set object emissive _picked,rgb(0, 255, 64)
                _selectedObject = _picked
            endif

        endif
        
    else
    
        // if theres no pick but a mouse call, reset last selected object
        if _selectedObject
            if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
                hide object bounds _selectedObject
                set object emissive _selectedObject,rgb(0, 0, 0)
                _selectedObject = 0
            endif
        endif
        
    endif
    
    // unselect objects that the mouse had just been over unless already selected
    if _oldPicked <> 0 and _oldPicked <> _picked
        if _oldPicked <> _selectedObject
            hide object bounds _oldPicked
        endif
    endif
    
    text 0,0,"Selected Object: "+str$(_selectedObject)
    text 0,12,"Picked Object: "+str$(_picked)

    sync
loop

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 27th Jan 2011 17:46

Thanks guys!

Thanks Sasuke! This is PERFECT!

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD AT Amazon.com!

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 28th Jan 2011 23:18

Hi guys. I found a SMALL glitch where if you have too many objects and you click on some of them, then mouse over them, the object bounds seems to stay on a few of them.

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD AT Amazon.com!

Back to top

Profile

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 28th Jan 2011 23:41

Well I just tried 2000 objects with that bit of code I post and couldn't reproduce the issue. Can you show us a bit of the code your using unless it's the same?

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 28th Jan 2011 23:57

// update input
    _oldMouseclick = _mouseclick
    _mouseclick = mouseclick()

_oldPicked = _picked
    _picked = pick object(mousex(), mousey(), 1, 0xFFFFF)

// update selection
    if _picked <>  0
                
        show object bounds _picked,1
        
        if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
            if _selectedObject
                if _selectedObject = _picked
                    hide object bounds _selectedObject
                    set object emissive _selectedObject,rgb(0, 0, 0)
                    _selectedObject = 0
                else
                    hide object bounds _selectedObject
                    set object emissive _selectedObject,rgb(0, 0, 0)
                    set object emissive _picked,rgb(0, 255, 64)
                    _selectedObject = _picked
                endif
            else
                set object emissive _picked,rgb(0, 255, 64)
                _selectedObject = _picked
            endif

endif
        
    else
    
        // if theres no pick but a mouse call, reset last selected object
        if _selectedObject
            if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
                hide object bounds _selectedObject
                set object emissive _selectedObject,rgb(0, 0, 0)
                _selectedObject = 0
            endif
        endif
        
    endif
    
    // unselect objects that the mouse had just been over unless already selected
    if _oldPicked <> 0 and _oldPicked <> _picked
        if _oldPicked <> _selectedObject
            hide object bounds _oldPicked
        endif
    endif

    // update input
    _oldMouseclick = _mouseclick
    _mouseclick = mouseclick()

    _oldPicked = _picked
    _picked = pick object(mousex(), mousey(), 1, 0xFFFFF)

    // update selection
    if _picked <>  0
                
        show object bounds _picked,1
        
        if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
            if _selectedObject
                if _selectedObject = _picked
                    hide object bounds _selectedObject
                    set object emissive _selectedObject,rgb(0, 0, 0)
                    _selectedObject = 0
                else
                    hide object bounds _selectedObject
                    set object emissive _selectedObject,rgb(0, 0, 0)
                    set object emissive _picked,rgb(0, 255, 64)
                    _selectedObject = _picked
                endif
            else
                set object emissive _picked,rgb(0, 255, 64)
                _selectedObject = _picked
            endif

        endif
        
    else
    
        // if theres no pick but a mouse call, reset last selected object
        if _selectedObject
            if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
                hide object bounds _selectedObject
                set object emissive _selectedObject,rgb(0, 0, 0)
                _selectedObject = 0
            endif
        endif
        
    endif
    
    // unselect objects that the mouse had just been over unless already selected
    if _oldPicked <> 0 and _oldPicked <> _picked
        if _oldPicked <> _selectedObject
            hide object bounds _oldPicked
        endif
    endif

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD AT Amazon.com!

Back to top

Profile

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 29th Jan 2011 00:13

0xFFFFF is pretty high isn't it. That's more than a millon, that could be the issue, though I don't see why it would be.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 29th Jan 2011 06:27

well the thing is. i CAN show u the real code, but its part of my level editor. so chances are u wont know what the BLEEEEEEEEEEEP im talking about. lol

but here's the code:

function TriggerKeyEvent( event as dword )
    select event
        case DELETE_OBJECT
        
           if _picked>0
        
             delete object _picked
                             
           Endif
              
        endcase

case COPY_OBJECT
            if _selectedObject>0 and _picked>0
             if object exist(_picked)
                _copyObjData.id = _picked
                _copyObjData.x = object position x(_picked)
                _copyObjData.y = object position y(_picked)
                _copyObjData.z = object position z(_picked)
             
             Endif

endif
        endcase

case PASTE_OBJECT
        if _copyObjData.id<>0
            if object exist(_copyObjData.id)
                repeat : inc n : until object exist(n)=0
                clone object n,_copyObjData.id
                sc_setupobject n,0,2
                if n>_lastobject then _lastobject=n
                pick screen mousex(),mousey(),128
                position object n, get pick vector x()+camera position x(),get pick vector y()+camera position y(),get pick vector z()+camera position z()
                rotate object n, object angle x(n),camera angle y(),camera angle z()
                sc_updateobject n
                inc _objectCount
            Endif
          endif

endcase
        
        case PASTE_OBJECT2
        if _copyObjData.id<>0
                repeat : inc n : until object exist(n)=0
                clone object n,_copyObjData.id
                if object exist(n)
                sc_setupobject n,0,2
                if n>_lastobject then _lastobject=n
                position object n, camera position x(), camera position y(), camera position z()
                rotate object n, object angle x(n),camera angle y(),camera angle z()
                move object n, object size(n)+5
                sc_updateobject n
                endif
                inc _objectCount

Endif

Endcase
                  
    endselect
    
Endfunction event

function TriggerKeyEvent( event as dword )
    select event
        case DELETE_OBJECT
        
           if _picked>0
        
             delete object _picked
                             
           Endif
              
        endcase

        case COPY_OBJECT
            if _selectedObject>0 and _picked>0
             if object exist(_picked)
                _copyObjData.id = _picked
                _copyObjData.x = object position x(_picked)
                _copyObjData.y = object position y(_picked)
                _copyObjData.z = object position z(_picked)
             
             Endif

            endif
        endcase

        case PASTE_OBJECT
        if _copyObjData.id<>0
            if object exist(_copyObjData.id)
                repeat : inc n : until object exist(n)=0
                clone object n,_copyObjData.id
                sc_setupobject n,0,2
                if n>_lastobject then _lastobject=n
                pick screen mousex(),mousey(),128
                position object n, get pick vector x()+camera position x(),get pick vector y()+camera position y(),get pick vector z()+camera position z()
                rotate object n, object angle x(n),camera angle y(),camera angle z()
                sc_updateobject n
                inc _objectCount
            Endif
          endif

        endcase
        
        case PASTE_OBJECT2
        if _copyObjData.id<>0
                repeat : inc n : until object exist(n)=0
                clone object n,_copyObjData.id
                if object exist(n)
                sc_setupobject n,0,2
                if n>_lastobject then _lastobject=n
                position object n, camera position x(), camera position y(), camera position z()
                rotate object n, object angle x(n),camera angle y(),camera angle z()
                move object n, object size(n)+5
                sc_updateobject n
                endif
                inc _objectCount

        Endif

        Endcase
                  
    endselect
    
Endfunction event

Here's what I call when the user either holds control and presses C,X or V. which will either Copy (C), Cut (X), or Paste (V), the object to another area, copy it to paste to another area, or cut the object out of the scene.

When I make a copy of an object a few times, SOMETIMES the bounds stays on it.

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD AT Amazon.com!

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 29th Jan 2011 14:13

Anyone? :/

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD AT Amazon.com!

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 30th Jan 2011 00:02

Sasuke, can you help?

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD AT Amazon.com!

Back to top

Profile

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 30th Jan 2011 04:15

Sorry for the delay, my nets on the fritz. As of your issue, I can't seem to replicate it, meaning I have to guess. I wonder if it's an order issue, try this instead:

// update input
    _oldMouseclick = _mouseclick
    _mouseclick = mouseclick()

_oldPicked = _picked
    _picked = pick object(mousex(), mousey(), 1, 0xFFFFF)

// unselect objects that the mouse had just been over unless already selected
    if _oldPicked <> 0 and _oldPicked <> _picked
        if _oldPicked <> _selectedObject
            hide object bounds _oldPicked
        endif
    endif

// update selection
    if _picked <>  0
                
        show object bounds _picked,1
        
        if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
            if _selectedObject
                if _selectedObject = _picked
                    hide object bounds _selectedObject
                    set object emissive _selectedObject,rgb(0, 0, 0)
                    _selectedObject = 0
                else
                    hide object bounds _selectedObject
                    set object emissive _selectedObject,rgb(0, 0, 0)
                    set object emissive _picked,rgb(0, 255, 64)
                    _selectedObject = _picked
                endif
            else
                set object emissive _picked,rgb(0, 255, 64)
                _selectedObject = _picked
            endif

endif
        
    else
    
        // if theres no pick but a mouse call, reset last selected object
        if _selectedObject
            if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
                hide object bounds _selectedObject
                set object emissive _selectedObject,rgb(0, 0, 0)
                _selectedObject = 0
            endif
        endif
        
    endif

 // update input
    _oldMouseclick = _mouseclick
    _mouseclick = mouseclick()

    _oldPicked = _picked
    _picked = pick object(mousex(), mousey(), 1, 0xFFFFF)

    // unselect objects that the mouse had just been over unless already selected
    if _oldPicked <> 0 and _oldPicked <> _picked
        if _oldPicked <> _selectedObject
            hide object bounds _oldPicked
        endif
    endif 

    // update selection
    if _picked <>  0
                
        show object bounds _picked,1
        
        if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
            if _selectedObject
                if _selectedObject = _picked
                    hide object bounds _selectedObject
                    set object emissive _selectedObject,rgb(0, 0, 0)
                    _selectedObject = 0
                else
                    hide object bounds _selectedObject
                    set object emissive _selectedObject,rgb(0, 0, 0)
                    set object emissive _picked,rgb(0, 255, 64)
                    _selectedObject = _picked
                endif
            else
                set object emissive _picked,rgb(0, 255, 64)
                _selectedObject = _picked
            endif

        endif
        
    else
    
        // if theres no pick but a mouse call, reset last selected object
        if _selectedObject
            if _mouseclick <> 0 and _oldMouseclick <> _mouseclick
                hide object bounds _selectedObject
                set object emissive _selectedObject,rgb(0, 0, 0)
                _selectedObject = 0
            endif
        endif
        
    endif

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 30th Jan 2011 17:48

Thanks Sasuke! Works like a charm man!

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD AT Amazon.com!

Back to top

Profile

Back to top

Login to post a reply

Server time is: 2026-07-19 01:26:31
Your offset time is: 2026-07-19 01:26:31