Dumb question about using plains

Author

Message

squids

21

Years of Service

User Offline

Joined: 1st May 2003

Location: United Kingdom

Posted: 6th Jun 2003 22:56 Edited at: 7th Jun 2003 01:18

Link

Second try,

Can anyone explain,. or give an example of using plains. How to create and position them. I am interested in finding out how to create and position plains for a HUD. Can anyone help?

Many Thanks
Ash.

.Arf..

Back to top

Profile PM

LoKiDeCaT

22

Years of Service

User Offline

Joined: 28th Aug 2002

Location: United States

Posted: 7th Jun 2003 01:17

Link

if you create something, and don't position it, it will appear at 0,0,0 as you've surmised.

Try this:

`setup system
autocam off
sync on
sync rate 0
randomize timer()

`make plane
make object plain 1,50,50
color object 1,rgb(200,0,0)
position object 1,50,0,50

do

gosub _debug
gosub _positions
gosub _movement

if spacekey()=1 and hold=0
   hold=1
   if rotate=0
      rotate=1
   else
      rotate=0
   endif
endif

if rotate=1 then gosub _rotate

if scancode()=0 then hold=0

sync
loop

_debug:
set cursor 0,0
print "Left Mouse Button moves Forward"
print "Right Mouse Button moves Backward"
print "Press SpaceBar to Activate Plane"
if rotate=0 then print "Plane is Not Active"
if rotate=1 then print "Plane is Active"

_positions:
x1#=object position x(1)
y1#=object position y(1)
z1#=object position z(1)

cx#=camera position x()
cy#=camera position y()
cz#=camera position z()
return

_movement:
if mouseclick()=1 then move camera 3
if mouseclick()=2 then move camera -3
xrotate camera wrapvalue(camera angle x()+mousemovey() )
yrotate camera wrapvalue(camera angle y()+mousemovex() )
return

_rotate:
if rotate=1
   xrotate object 1,wrapvalue(object angle x(1)+5)
   yrotate object 1,wrapvalue(object angle y(1)+5)
   zrotate object 1,wrapvalue(object angle z(1)+5)
   color object 1,rgb(100+rnd(155),100+rnd(155),100+rnd(155))
endif

return

+ Code Snippet

`setup system
autocam off
sync on
sync rate 0
randomize timer()

`make plane
make object plain 1,50,50
color object 1,rgb(200,0,0)
position object 1,50,0,50

do

gosub _debug
gosub _positions
gosub _movement

if spacekey()=1 and hold=0
   hold=1
   if rotate=0
      rotate=1
   else
      rotate=0
   endif
endif

if rotate=1 then gosub _rotate

if scancode()=0 then hold=0

sync
loop

_debug:
set cursor 0,0
print "Left Mouse Button moves Forward"
print "Right Mouse Button moves Backward"
print "Press SpaceBar to Activate Plane"
if rotate=0 then print "Plane is Not Active"
if rotate=1 then print "Plane is Active"


_positions:
x1#=object position x(1)
y1#=object position y(1)
z1#=object position z(1)

cx#=camera position x()
cy#=camera position y()
cz#=camera position z()
return

_movement:
if mouseclick()=1 then move camera 3
if mouseclick()=2 then move camera -3
xrotate camera wrapvalue(camera angle x()+mousemovey() )
yrotate camera wrapvalue(camera angle y()+mousemovex() )
return

_rotate:
if rotate=1
   xrotate object 1,wrapvalue(object angle x(1)+5)
   yrotate object 1,wrapvalue(object angle y(1)+5)
   zrotate object 1,wrapvalue(object angle z(1)+5)
   color object 1,rgb(100+rnd(155),100+rnd(155),100+rnd(155))
endif

return

Loki D'Cat - Modeller, Composer, Animator
Nerdsoft Creations
Machine Specs: Athlon XP1800+, ATi Radeon 8500 64mb, 1GB RAM, Windows 2000 AdvSvr

Back to top

Profile PM Email Website

squids

21

Years of Service

User Offline

Joined: 1st May 2003

Location: United Kingdom

Posted: 7th Jun 2003 01:23

Link

Thanks LoKiDeCaT,

Thats great, it appears and works,. wow! Just have one other question >.< I cant figure out how to position the plain so it sticks to say, the top right of the screen as a HUD. Sorry for being a pain

Ash.

.Arf..

Back to top

Profile PM

LoKiDeCaT

22

Years of Service

User Offline

Joined: 28th Aug 2002

Location: United States

Posted: 7th Jun 2003 01:43 Edited at: 7th Jun 2003 01:56

Link

well, you're trying to do a 3d object to 2d. the only way to do that, is to use: "LOCK OBJECT ON 1" (1 being the object number)

then it does that.

But most people use Sprites for their HUD's.

heh generic test:

+ Code Snippet

autocam off
sync on
sync rate 0
randomize timer()

`make a generic matrix texture
color backdrop rgb(0,150,0)
get image 1,0,0,639,439
`color backdrop rgb(0,0,0)

`make land to walk on
make matrix 1,1000,1000,20,20
randomize matrix 1,30
position matrix 1,0,0,0
PREPARE MATRIX TEXTURE 1,1,1,1

`make HUD plain
make object plain 1,100,100
color object 1,rgb(200,0,0)
position object 1,0,10,400
lock object on 1

position camera 300,50,300

do
set cursor 0,0
print screen fps()
print x#
print z#

x#=camera position x()
y#=camera position y()
z#=camera position z()


if mouseclick()=1 then move camera 3
if mouseclick()=2 then move camera -3
xrotate camera wrapvalue(camera angle x()+mousemovey() )
yrotate camera wrapvalue(camera angle y()+mousemovex() )

position camera x#,y#,z#

sync
loop

edit: ignore my matrix texturing code.. it's all messed up.. but the important thing is the lock object on command

Loki D'Cat - Modeller, Composer, Animator
Nerdsoft Creations
Machine Specs: Athlon XP1800+, ATi Radeon 8500 64mb, 1GB RAM, Windows 2000 AdvSvr

Back to top

Profile PM Email Website

Phoenix

21

Years of Service

User Offline

Joined: 22nd Feb 2003

Location:

Posted: 7th Jun 2003 02:59

Link

If your trying to use it for a hud then just use

box 0,0,1000,1000

and color the box black and put it at the end of your main loop it will still work even though it is a 3d game
then you can put what ever you want on the screen.

position object myFoot,object position x(yourFace),object position y(yourFace),object position z(yourFace)

Back to top

Profile PM

squids

21

Years of Service

User Offline

Joined: 1st May 2003

Location: United Kingdom

Posted: 7th Jun 2003 13:58

Link

I like the Sig Fez =O)

Okay,

Both examples work great,. Thanks a lot,. I wont ask anymore questions about it for a bit,. ill try and figure out how to texture it or use a sprite etc etc,. thanks a lot for your help, much appreciated

Ash.

.Arf..

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Dumb question about using plains