TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Basic 3D

Version: 1.0

Information

Uploaded: 3rd Jun 2004 22:28

Modified: 1st Jan 1970 01:00

Author: MikeS

Summary

This tutorial will show you how to pick objects in 3D.

Full Description

This tutorial will show you how to pick objects in 3D. You'll be utilizing the pick object command provided in Dark Basic Pro.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` This tutorial was created by Yellow -MikeS- 6-4-04

` Although not necessary, it would be nice to be credited and

` notified at yellow1dbp@hotmail.com if this was used in a game

` Thanks, and I hope the tutorial helps.

`In this example, you'll be learning how to pick objects in 3D space.

sync on : sync rate 60       `Set the refresh rate to 60

set display mode 1024,768,32 `We set our display mode up

set text size 22   `Since we'll be using text in a high resolution, we'll make it bigger.

`In this section of code, we're making 5 spheres and

`randomly placing them. These are our "dummy" objects we'll

`be using to pick.

for a = 1 to 5

make object sphere a,2

position object a,rnd(10),0,rnd(10)

next a

`We'll want to be able to control the camera, so we'll do that here.

control camera using arrowkeys 0,1,1

`The way the pick object command works, is you'll want to set something eqaul to it.

`In this case we use "p" (For pick if you didn't guess. ;)), so we can identify

`whatever object is picked with p.

`To find out which object we're picking, we'll use the mousex() and mousey() commands

`in the first two spaces for the pick object command. After that, we put the range of

`objects we'll be using. In this case we have five objects, so our range is 0-5.

`If you had 500 objects, it would be 0-500. Or maybe you only want to select the first

`100, then 0-100. In any case, the last two spaces for syntax are for the objects you

`want to pick.

`(**NOTE This is a handy place to put variables if you'll be periodically be

`creating objects.**)

p=pick object(mousex(),mousey(),0,5)

set cursor 0,0

`If p isn't picked, this is what we'll do. We'll say nothing is picked

`and color all the objects white.

if  p=0

print "No objects selected"

for a = 1 to 5

color object a,rgb(255,255,255)

next a

`If an object is picked, we'll print which one is picked, and color it yellow.

else

print "Object ";p;" is selected."

color object p,rgb(155,155,0)

endif

sync

loop

`Now run the example and see what you find. :)

`I hope this tutorial helps you.

`Curved Basic 2004

Download

Please login to download

Comments

No comments yet.

CodeBase - Pick 3D object