Selecting objects one by one with certain textures

Author

Message

Rims Flames

11

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 15th Jul 2014 00:20

Link

Hello community,

I want to select individual object and assign a texture to them when mouse on them and delete the texture when the mouse not on them, but i seem to have a problem like, when i select an object it will select it but when i select the second object, it doesn't selects, and then when reselecting the first object again, it selects both objects in the scene.

Here is the code:

+ Code Snippet

`TEST!!!
objsel = pick object(mousex(),mousey(), 1, 3000)
if pick object(mousex(),mousey(), 1, 3000) > 0
     delimg = 0
     loadimg = loadimg + 1
        if loadimg = 2
        load image "C:\Users\MateiSoft\Desktop\selectiontest\test.png", 500
        texture object objsel,500
        endif
ENDIF
if pick object(mousex(),mousey(), 1, 3000) = 0
  delimg = delimg + 1
        if delimg = 2
        if image exist(500) = 1
        delete image 500
        endif
        loadimg = 0
        endif
ENDIF
`TEST!!!

Rims Flames

Back to top

Profile PM Email

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 15th Jul 2014 04:30 Edited at: 15th Jul 2014 04:54

Link

Personally, I would do something more like this:

+ Code Snippet

MaxObjects=2
dim Loaded(MaxObjects)
autocam off: move camera -3
make object cube 1,1:move object left 1,1
make object sphere 2,1:move object right 2,1
load image "C:\Users\MateiSoft\Desktop\selectiontest\test.png", 500
White=rgb(255,255,255)

do
objsel = pick object(mousex(),mousey(),1,3000)
for ThisObject=1 to MaxObjects
if objsel=ThisObject and Loaded(objsel)=0 then texture object objsel,500:Loaded(objsel)=1
if objsel<>ThisObject and Loaded(ThisObject)=1 then color object ThisObject,White:Loaded(ThisObject)=0
NEXT
set cursor 0,0
print "Selected Object: ";objsel
loop

This way each object has it own flag to signal whether it has already been textured or not.

(The coloring the object white part may not work for your purposes if you're actually loading and unloading different textures.)

666GO†O666

Back to top

Profile PM

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 15th Jul 2014 06:22

Link

Personally, I am going to shoot the next person I see using absolute paths and the next person responding to a thread and not pointing out it’s evils. Seriously, for you own sanity down the road, learn to use relative paths. For those who may not know, this is a absolute path.

+ Code Snippet

load image "C:\Users\MateiSoft\Desktop\selectiontest\test.png", 500

By all rights your executable and project files should be in the selectiontest folder on your desktop. So the relative path should look like this.

+ Code Snippet

load image "test.png", 500

Most of the time you with see someone put the media files in a sub-folder of the executable and projects root folder. For example say you have the media in the sub-folder; Media, therefore the relative path would be.

+ Code Snippet

load image "Media\test.png", 500

You may have noticed a few apps in you Program Files folder where the executable is in a sub-folder from the root. Usually it will be in a sub-folder named Bin. The media may be in a sub-folder from the root, named Media. In which case the relative path would be.

+ Code Snippet

load image "..\Media\test.png", 500

I realize this is off-topic. Just don’t want to see you pulling your hair out over this down the line.

Back to top

Profile PM Email

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 15th Jul 2014 07:29 Edited at: 15th Jul 2014 07:34

Link

Ok, back on topic. See if this works for you.

+ Code Snippet

randomize timer()

objSelect as integer
objSave as integer

sync on
sync rate 60

backdrop on
color backdrop 0

autocam off

load image "test.png", 1

for i=1 to 10
   make object cube i, 5
   position object i, rnd(50), rnd(50), rnd(50)
next i

do
   control camera using arrowkeys 0, 0.5, 0.5

   objSelect = pick object(mousex(), mousey(), 1, 10)
   if objSelect
      if objSave
         if objSave<>objSelect
            texture object objSave, 0
         endif
      endif
      texture object objSelect, 1
      objSave = objSelect
   else
      if objSave
         texture object objSave, 0
         objSave = 0
      endif
   endif

   sync
loop

end

Back to top

Profile PM Email

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 15th Jul 2014 08:11 Edited at: 15th Jul 2014 08:13

Link

Quote: "I realize this is off-topic. Just don’t want to see you pulling your hair out over this down the line."

LoL... but what's the difference when you're pulling your own hair out over someone else's code?

Programming is a logical process, of course, but it's also an art form that ranges from finger-painting to masterpieces. We all get our feet wet in different ways.

For example, I hate indentations in code - I think it looks like trash, and no amount of 'other opinions' will ever change my mind.

Anyway, I think it's ok to use absolute paths in samples and snippets, because the other user may not have the same graphic anyway, and they can easily type in their own path. Obviously in final form, a program would use paths relative to the program's files, which all users would have at that point.

So, before you shoot us all... y'know, take a deep breath... count to 10, etc.

666GO†O666

Back to top

Profile PM

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 15th Jul 2014 08:34 Edited at: 15th Jul 2014 08:47

Link

To each, his own. No hair pulling going on here.

Quote: "For example, I hate indentations in code - I think it looks like trash, and no amount of 'other opinions' will ever change my mind."

If that works for you, that’s great. I can’t imagine having to edit thousands of lines of code that has no indentation and command after command separated on one line by a colon. It would be just as awful as editing spaghetti code. But, that’s just me.

Back to top

Profile PM Email

Rims Flames

11

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 15th Jul 2014 11:19

Link

Hey guys! Thank You all so very much for your help!

WickedX, i am using simple paths not like "C:\" etc, i was to lasy to delete the extra stuff from the path cuz i copyied from the folder on my desktop.

.

I see that i can return to white color after selection, but is there a way to return to the object's default texture?

Thank You so much again!!!

Rims Flames

Back to top

Profile PM Email

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 15th Jul 2014 21:01

Link

The command Limb Texture can be used to get the objects image texture id. This should do the trick.

+ Code Snippet

randomize timer()

objSelect as integer
objSave as integer
texSave as integer

sync on
sync rate 60

backdrop on
color backdrop 0

autocam off

load image "test1.png", 1
load image "test2.png", 2

for i=1 to 10
   make object cube i, 5
   texture object i, 1
   position object i, rnd(50), rnd(50), rnd(50)
next i

do
   control camera using arrowkeys 0, 0.5, 0.5

   objSelect = pick object(mousex(), mousey(), 1, 10)
   if objSelect
      if objSave<>objSelect
         if objSave
            texture object objSave, texSave
         endif
         objSave = objSelect
         texSave = limb texture(objSelect, 0)
         texture object objSelect, 2
      endif
   else
      if objSave
         texture object objSave, texSave
         objSave = 0
         texSave = 0
      endif
   endif

   sync
loop

end

Back to top

Profile PM Email

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 16th Jul 2014 00:54

Link

I think this is like going back to a programed texture, i meant that every object has its own texture, and the idea was after deselecting, to automatically retrieve the object's unique texture and re apply to it. Is this possible? But hey, thank you for your patience with me!!!

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 16th Jul 2014 01:57 Edited at: 16th Jul 2014 03:04

Link

Quote: "I think this is like going back to a programed texture, i meant that every object has its own texture, and the idea was after deselecting, to automatically retrieve the object's unique texture and re apply to it. Is this possible? But hey, thank you for your patience with me!!!"

If I’m understanding you correctly; Limb Texture is retrieving the objects image ID before changing the texture. You can use 100 objects all texture with a separate image texture and the above snippet will still work.

Edit: Yes, that code will work with object textures not assigned through code, but assigned by the x or dbo file formats. If that's what you want.

Back to top

Profile PM Email

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 16th Jul 2014 11:14

Link

i will try the code with an object that has already a texture and announce you Thank You very much again

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 16th Jul 2014 11:36

Link

I tried, no work sadly

+ Code Snippet

randomize timer()

objSelect as integer
objSave as integer
texSave as integer

sync on
sync rate 60

backdrop on
color backdrop 0

autocam off

   load object "C:\Program Files\The Game Creators\Dark Basic Pro Free\Dark Basic Pro\Projects\New\Glue Engine\Media Packs\Models\User Defined\building13.x", 1
   position object 1, camera position x(0), camera position y(0), camera position z(0)

do
   control camera using arrowkeys 0, 5, 3

   objSelect = pick object(mousex(), mousey(), 1, 10)
   if objSelect
      if objSave<>objSelect
         if objSave
            texture object objSave, texSave
         endif
         objSave = objSelect
         texSave = limb texture(objSelect, 0)
         texture object objSelect, 2
      endif
   else
      if objSave
         texture object objSave, texSave
         objSave = 0
         texSave = 0
      endif
   endif

   sync
loop

end

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Chris Tate

DBPro Master

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 16th Jul 2014 19:05

Link

I am having interpreting the goal: how many objects are allowed to be selected at once? And why do you need your textures loaded at the point of mouse interaction and not during your program start?

Back to top

Profile PM Email Website

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 16th Jul 2014 20:01

Link

Looking at your code, you’re not loading a texture to select the object with. So, I’m guessing you are getting a; image does not exist at line... error. I can’t bring myself to use absolute paths, when I try my fingers cramp on me. But, I don’t see that as the problem. Here is the code I use to confirm that it works. Attached to this post is the complete project.

+ Code Snippet

randomize timer()

objSelect as integer
objSave as integer
texSave as integer

sync on
sync rate 60

backdrop on
color backdrop 0

autocam off

load image "Media\Tex1.png", 1

for i=1 to 10
   if rnd(1)
      load object "Media\cube1.x", i
   else
      load object "Media\cube2.x", i
   endif
   position object i, rnd(50), rnd(50), rnd(50)
next i

do
   set cursor 0, 0
   print "Saved Texture ID: ";texSave
   control camera using arrowkeys 0, 0.5, 0.5

   objSelect = pick object(mousex(), mousey(), 1, 10)
   if objSelect
      if objSave<>objSelect
         if objSave
            texture object objSave, texSave
         endif
         objSave = objSelect
         texSave = limb texture(objSelect, 0)
         texture object objSelect, 1
      endif
   else
      if objSave
         texture object objSave, texSave
         objSave = 0
         texSave = 0
      endif
   endif

   sync
loop

end

Attachments

Login to view attachments

Back to top

Profile PM Email

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 16th Jul 2014 22:05

Link

Well i am running the application not from making a new project just copy and paste the code your provided and load the objects with full paths because they are not near the exe is this the problem? cuz i don't see after texturing the object with a texture when hovered and then when leaving the object with mouse it stays white

randomize timer()

objSelect as integer
objSave as integer
texSave as integer

sync on
sync rate 60

backdrop on
color backdrop 0

autocam off

load image "C:\Program Files\The Game Creators\Dark Basic Pro Free\Dark Basic Pro\Projects\New\Glue Engine\Media Packs\Editor Graphics\Editor\select.png", 1

for i=1 to 10
   if rnd(1)
      load object "C:\Program Files\The Game Creators\Dark Basic Pro Free\Dark Basic Pro\Projects\New\Glue Engine\Media Packs\Models\User Defined\building13.x", i
   else
      load object "C:\Program Files\The Game Creators\Dark Basic Pro Free\Dark Basic Pro\Projects\New\Glue Engine\Media Packs\Models\User Defined\building15.x", i
   endif
   position object i, rnd(50), rnd(50), rnd(50)
next i

do
   set cursor 0, 0
   print "Saved Texture ID: ";texSave
   control camera using arrowkeys 0, 0.5, 0.5

objSelect = pick object(mousex(), mousey(), 1, 10)
   if objSelect
      if objSave<>objSelect
         if objSave
            texture object objSave, texSave
         endif
         objSave = objSelect
         texSave = limb texture(objSelect, 0)
         texture object objSelect, 1
      endif
   else
      if objSave
         texture object objSave, texSave
         objSave = 0
         texSave = 0
      endif
   endif

sync
loop

end

+ Code Snippet

randomize timer()

objSelect as integer
objSave as integer
texSave as integer

sync on
sync rate 60

backdrop on
color backdrop 0

autocam off

load image "C:\Program Files\The Game Creators\Dark Basic Pro Free\Dark Basic Pro\Projects\New\Glue Engine\Media Packs\Editor Graphics\Editor\select.png", 1

for i=1 to 10
   if rnd(1)
      load object "C:\Program Files\The Game Creators\Dark Basic Pro Free\Dark Basic Pro\Projects\New\Glue Engine\Media Packs\Models\User Defined\building13.x", i
   else
      load object "C:\Program Files\The Game Creators\Dark Basic Pro Free\Dark Basic Pro\Projects\New\Glue Engine\Media Packs\Models\User Defined\building15.x", i
   endif
   position object i, rnd(50), rnd(50), rnd(50)
next i

do
   set cursor 0, 0
   print "Saved Texture ID: ";texSave
   control camera using arrowkeys 0, 0.5, 0.5

   objSelect = pick object(mousex(), mousey(), 1, 10)
   if objSelect
      if objSave<>objSelect
         if objSave
            texture object objSave, texSave
         endif
         objSave = objSelect
         texSave = limb texture(objSelect, 0)
         texture object objSelect, 1
      endif
   else
      if objSave
         texture object objSave, texSave
         objSave = 0
         texSave = 0
      endif
   endif

   sync
loop

end

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 16th Jul 2014 22:12

Link

I copied the executable made from this code you provided and used relative paths and still no success

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 17th Jul 2014 00:25 Edited at: 17th Jul 2014 00:30

Link

Does my project not work for you? After painful hand cramps, I change it to use absolute paths. The code still functions as designed. I even separated the models and textures into separate folders within the media folder and moved it to; C:\Program Files\The Game Creators\Dark Basic Professional Online\Projects. The project is on my desktop, still works! I did, change the objects relative texture path in a modeling program.

randomize timer()

objSelect as integer
objSave as integer
texSave as integer

sync on
sync rate 60

backdrop on
color backdrop 0

autocam off

load image "C:\Program Files\The Game Creators\Dark Basic Professional Online\Projects\Media\Textures\Tex1.png", 1

for i=1 to 10
   if rnd(1)
      load object "C:\Program Files\The Game Creators\Dark Basic Professional Online\Projects\Media\Models\cube1.x", i
   else
      load object "C:\Program Files\The Game Creators\Dark Basic Professional Online\Projects\Media\Models\cube2.x", i
   endif
   position object i, rnd(50), rnd(50), rnd(50)
next i

do
   set cursor 0, 0
   print "Saved Texture ID: ";texSave
   control camera using arrowkeys 0, 0.5, 0.5

objSelect = pick object(mousex(), mousey(), 1, 10)
   if objSelect
      if objSave<>objSelect
         if objSave
            texture object objSave, texSave
         endif
         objSave = objSelect
         texSave = limb texture(objSelect, 0)
         texture object objSelect, 1
      endif
   else
      if objSave
         texture object objSave, texSave
         objSave = 0
         texSave = 0
      endif
   endif

sync
loop

end

+ Code Snippet

randomize timer()

objSelect as integer
objSave as integer
texSave as integer

sync on
sync rate 60

backdrop on
color backdrop 0

autocam off

load image "C:\Program Files\The Game Creators\Dark Basic Professional Online\Projects\Media\Textures\Tex1.png", 1

for i=1 to 10
   if rnd(1)
      load object "C:\Program Files\The Game Creators\Dark Basic Professional Online\Projects\Media\Models\cube1.x", i
   else
      load object "C:\Program Files\The Game Creators\Dark Basic Professional Online\Projects\Media\Models\cube2.x", i
   endif
   position object i, rnd(50), rnd(50), rnd(50)
next i

do
   set cursor 0, 0
   print "Saved Texture ID: ";texSave
   control camera using arrowkeys 0, 0.5, 0.5

   objSelect = pick object(mousex(), mousey(), 1, 10)
   if objSelect
      if objSave<>objSelect
         if objSave
            texture object objSave, texSave
         endif
         objSave = objSelect
         texSave = limb texture(objSelect, 0)
         texture object objSelect, 1
      endif
   else
      if objSave
         texture object objSave, texSave
         objSave = 0
         texSave = 0
      endif
   endif

   sync
loop

end

Back to top

Profile PM Email

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 17th Jul 2014 00:37

Link

Really!!! Look at this!

[img]null[/img]

Alex Matei CEO
www.alexmatei.com

Attachments

Login to view attachments

Back to top

Profile PM Email Website

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 17th Jul 2014 00:44 Edited at: 17th Jul 2014 00:45

Link

Does my project work? If it does then maybe its the texture path set up in the model. Without your media, I cannot test.

Back to top

Profile PM Email

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 17th Jul 2014 01:03

Link

No.Well i really think its not your code's fault, i will change the objects that i am importing and i will come back with a message! Big thank you!

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 17th Jul 2014 13:41

Link

I tried with other objects, and still, when deselecting the object, in turns white, without it's texture....

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 17th Jul 2014 21:04

Link

The download on the above post has the media I used. So, if that doesn’t work then the issue is somewhere else. I am using DBPro V7.4 on Windows7 SP1. 7.4 just seems less buggy. I have tried all updates since, it’s just not worth the few new functions.

Back to top

Profile PM Email

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 17th Jul 2014 22:38

Link

I have the latest upgrade from TGC's website. I am also using Windows 7 SP1. I downloaded the file from your post

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 17th Jul 2014 22:50 Edited at: 17th Jul 2014 22:57

Link

And that download does not work?

Edit: If not, then that's something else the updates have broke.

Back to top

Profile PM Email

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 17th Jul 2014 23:46

Link

The files from the download didn't work...

I feel very bad saying this but yeah, i think your right about the update...its strange

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 18th Jul 2014 00:06

Link

You can have multiple version on your computer. I had 4 on my system at one time. Just rename the folder of your current copy. Then install DBPro again and update it to the version your what. You can then rename this folder and change the original back. Create a link to the alternate version and your good to go.

Back to top

Profile PM Email

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 18th Jul 2014 02:57 Edited at: 18th Jul 2014 02:58

Link

Just tested this on my Dark GDK update. Phew, it works

Back to top

Profile PM Email

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 18th Jul 2014 10:26

Link

I will try and retest it later this day(day in my country right now 10:26 AM)

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 18th Jul 2014 21:01

Link

No luck...reinstalled dbpro and stuff... i don't know

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 18th Jul 2014 21:30

Link

Sorry, I don't know either. All I do know, is it working for me.

Back to top

Profile PM Email

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 18th Jul 2014 21:41

Link

Attached is my executable with the media. See if this works for you. If not what if any error or message are you getting.

Attachments

Login to view attachments

Back to top

Profile PM Email

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 19th Jul 2014 03:33

Link

Well, I made a copy of my Dark Basic Professional Online folder and updated to the current official release -DBPro 7.62, and it works. So, it’s not a version issue. I am running this on a HP Netbook with a single core dual threaded processor and an Intel integrated graphics card. If this is not working for you, that is sad!

Back to top

Profile PM Email

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 19th Jul 2014 11:00

Link

Well, now, the executable withouth the project, that you gave to me, worked but when i compile the project with all the files, it doesn't work i will try again cuz thats really interesting whats happening

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 19th Jul 2014 11:05

Link

Well, now it worked.... i don't why until today it didn't worked... Thank You very much for your time WickedX !!!

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

WickedX

16

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 19th Jul 2014 22:27

Link

Happy to hear you have it working. Yah, that is strange…

You’re welcome.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Selecting objects one by one with certain textures

Attachments

Attachments

Attachments