make boxes with a click-and-drag interface (in darkbasicpro)

Author

Message

Physics coder

20

Years of Service

User Offline

Joined: 25th May 2004

Location: United States

Posted: 10th Jul 2004 15:12 Edited at: 11th Jul 2004 20:28

Link

this is a snippet creates boxes with a couple clicks.

when you first click on the matrix hold the button down and drag the mouse until it's pointing the way you want it, this positions and rotate the box.

Next click and drag again. this program will use the first point on the matrix as the center of the box, and the point you're dragging as a corner, this scales the box. Finally release the mouse and you have a box!

if you click on a box, it will move the box you clicked on instead of making a new one inside it.

here's the code:
EDIT: scroll down for new verion
you can't change the height of the boxes, as that will not be needed in the game i'm making this for.

when selecting the direction for a box to go in, holding shift limits the direction to every 45 degrees.
when scaling the box, holding shift makes the box a square.

If i bother to put up a second version, it will most likely have SAVE/LOAD commands. I'm using Update 5.3 cause i've heard 5.4 has a slow down when using the intersect object command or something.

-----------------------------------
To delete the bug, delete the code.
Specs: Sony VAIO Laptop, Windows XP, P4 2.8Ghz, 512MB RAM, ATI Radeon 64MB video memory, DBP Upgrade 5.3.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 10th Jul 2004 17:30 Edited at: 10th Jul 2004 18:22

Link

how do you set the height of the box?

I just whipped this up. The code in the DO-LOOP is mine, the other code(matrix selection) is someone elses. I feel that this interface is easier to use. Doesn't do rotation, just box creation. But it feels more like 3dsmax.

sync on
autocam off
backdrop on
color backdrop rgb(128,128,128)
randomize timer()

tilesize = 4000/30
fov# = 60
ax#=45
ay#=0
ox#=30/2*tilesize
oy#=0
oz#=30/2*tilesize
r#=1000

set camera fov fov#

make matrix 1, 4000,4000,30,30

make object cube 1, 100
set object cull 1, 0

DO

gosub camera

if mouseclick()=1 and click=0 and done = 0
      ghost object on 1
      color object 1,rgb(255,255,255)
      click = 1
      gosub mmcoord
      x1# = x#
      z1# = z#
   endif

if mouseclick()=0 then done=0

if click = 1
      if mouseclick()=1 and flag=0
         gosub mmcoord
         x2# = x#
         z2# = z#
         sx# = (x2#-x1#)
         sy# = 0
         sz# = (z2#-z1#)
         px# = x1#+(x2#-x1#)/2
         pz# = z1#+(z2#-z1#)/2
         oldmousex = mousex()
         scale object 1,sx#,0,sz#
         position object 1,px#,0,pz#
      endif

if mouseclick() = 0 then flag = 1

if flag = 1
         sy# = sy# + (mousex()-oldmousex)
         oldmousex = mousex()
         py# = sy#/2
         scale object 1,sx#,sy#,sz#
         position object 1,px#,py#,pz#
      endif

if mouseclick()=1 and flag=1
         flag=0
         click=0
         done = 1
         ghost object off 1
         color object 1, rgb(rnd(255),rnd(255),rnd(255))
      endif
   endif

set cursor 0,0
   print oldmousex
   print mousex()

sync
LOOP

camera:

if mouseclick()=2
    ax#=ax#+(my-mousey())
    ay#=wrapvalue(ay#+(mx-mousex()))
    if ax#>85 then ax#=85
    if ax#<5 then ax#=5
  endif

mx=mousex()
  my=mousey()

if upkey()=1
    ox#=ox#-5*sin(ay#)
    oz#=oz#-5*cos(ay#)
  endif
  if downkey()=1
    ox#=ox#+5*sin(ay#)
    oz#=oz#+5*cos(ay#)
  endif
  if leftkey()=1
    ox#=ox#+5*cos(ay#)
    oz#=oz#-5*sin(ay#)
  endif
  if rightkey()=1
    ox#=ox#-5*cos(ay#)
    oz#=oz#+5*sin(ay#)
  endif

if mouseclick()=3
    r#=r#+mousemovey()
    if r#<100 then r#=100
    if r#>2500 then r#=2500
  endif

if inkey$()="+" and FOV#<360
    FOV#=FOV#+0.5
    set camera fov FOV#
  endif
  if inkey$()="-" and FOV#>0
    FOV#=FOV#-0.5
    set camera fov FOV#
  endif

x#=ox#+r#*sin(ay#)*cos(ax#)
  y#=oy#+r#*sin(ax#)
  z#=oz#+r#*cos(ay#)*cos(ax#)

position camera x#,y#,z#
  point camera ox#,oy#,oz#

return

mmcoord:

scrw#  = screen width()
  scrh#  = screen height()
  smax#  = r#*tan(FOV#/2)
  sh#    = (((scrh#/2-mousey())*2)/scrh#)*smax#
  l#     = (sh#*sin(90+atan(sh#/r#)))/sin(ax#-atan(sh#/r#))

smax2# = r#*scrw#/scrh#*tan(FOV#/2)
  sw#    = (((mousex()-scrw#/2)*2)/scrw#)*smax2#
  rsh#   = sqrt(r#^2+sh#^2)
  rl#    = sqrt((camera position x()-(ox#-l#*sin(ay#)))^2+(camera position y()-oy#)^2+(camera position z()-(oz#-l#*cos(ay#)))^2)
  w#     = (sw#*rl#)/rsh#

x#     = ox#-l#*sin(ay#)-w#*cos(ay#)
  y#     = oy#
  z#     = oz#-l#*cos(ay#)+w#*sin(ay#)

return

+ Code Snippet

sync on
autocam off
backdrop on
color backdrop rgb(128,128,128)
randomize timer()

tilesize = 4000/30
fov# = 60
ax#=45
ay#=0
ox#=30/2*tilesize
oy#=0
oz#=30/2*tilesize
r#=1000

set camera fov fov#

make matrix 1, 4000,4000,30,30

make object cube 1, 100
set object cull 1, 0


DO

   gosub camera

   if mouseclick()=1 and click=0 and done = 0
      ghost object on 1
      color object 1,rgb(255,255,255)
      click = 1
      gosub mmcoord
      x1# = x#
      z1# = z#
   endif

   if mouseclick()=0 then done=0

   if click = 1
      if mouseclick()=1 and flag=0
         gosub mmcoord
         x2# = x#
         z2# = z#
         sx# = (x2#-x1#)
         sy# = 0
         sz# = (z2#-z1#)
         px# = x1#+(x2#-x1#)/2
         pz# = z1#+(z2#-z1#)/2
         oldmousex = mousex()
         scale object 1,sx#,0,sz#
         position object 1,px#,0,pz#
      endif

      if mouseclick() = 0 then flag = 1

      if flag = 1
         sy# = sy# + (mousex()-oldmousex)
         oldmousex = mousex()
         py# = sy#/2
         scale object 1,sx#,sy#,sz#
         position object 1,px#,py#,pz#
      endif

      if mouseclick()=1 and flag=1
         flag=0
         click=0
         done = 1
         ghost object off 1
         color object 1, rgb(rnd(255),rnd(255),rnd(255))
      endif
   endif

   set cursor 0,0
   print oldmousex
   print mousex()


   sync
LOOP


camera:

  if mouseclick()=2
    ax#=ax#+(my-mousey())
    ay#=wrapvalue(ay#+(mx-mousex()))
    if ax#>85 then ax#=85
    if ax#<5 then ax#=5
  endif

  mx=mousex()
  my=mousey()

  if upkey()=1
    ox#=ox#-5*sin(ay#)
    oz#=oz#-5*cos(ay#)
  endif
  if downkey()=1
    ox#=ox#+5*sin(ay#)
    oz#=oz#+5*cos(ay#)
  endif
  if leftkey()=1
    ox#=ox#+5*cos(ay#)
    oz#=oz#-5*sin(ay#)
  endif
  if rightkey()=1
    ox#=ox#-5*cos(ay#)
    oz#=oz#+5*sin(ay#)
  endif

  if mouseclick()=3
    r#=r#+mousemovey()
    if r#<100 then r#=100
    if r#>2500 then r#=2500
  endif

  if inkey$()="+" and FOV#<360
    FOV#=FOV#+0.5
    set camera fov FOV#
  endif
  if inkey$()="-" and FOV#>0
    FOV#=FOV#-0.5
    set camera fov FOV#
  endif

  x#=ox#+r#*sin(ay#)*cos(ax#)
  y#=oy#+r#*sin(ax#)
  z#=oz#+r#*cos(ay#)*cos(ax#)

  position camera x#,y#,z#
  point camera ox#,oy#,oz#

return


mmcoord:

  scrw#  = screen width()
  scrh#  = screen height()
  smax#  = r#*tan(FOV#/2)
  sh#    = (((scrh#/2-mousey())*2)/scrh#)*smax#
  l#     = (sh#*sin(90+atan(sh#/r#)))/sin(ax#-atan(sh#/r#))

  smax2# = r#*scrw#/scrh#*tan(FOV#/2)
  sw#    = (((mousex()-scrw#/2)*2)/scrw#)*smax2#
  rsh#   = sqrt(r#^2+sh#^2)
  rl#    = sqrt((camera position x()-(ox#-l#*sin(ay#)))^2+(camera position y()-oy#)^2+(camera position z()-(oz#-l#*cos(ay#)))^2)
  w#     = (sw#*rl#)/rsh#

  x#     = ox#-l#*sin(ay#)-w#*cos(ay#)
  y#     = oy#
  z#     = oz#-l#*cos(ay#)+w#*sin(ay#)

return

"eureka" - Archimedes

Back to top

Profile PM Email Website

Physics coder

20

Years of Service

User Offline

Joined: 25th May 2004

Location: United States

Posted: 11th Jul 2004 01:44

Link

Quote: "how do you set the height of the box?"

in my first post i said

Quote: "you can't change the height of the boxes, as that will not be needed in the game i'm making this for."

Your snippet is nice.

I'm thinking of adding a feature where once you've made a box, you can click on it, and instead of draging it, you could select an option, drag, rotate, or scale the object.

-----------------------------------
To delete the bug, delete the code.
Specs: Sony VAIO Laptop, Windows XP, P4 2.8Ghz, 512MB RAM, ATI Radeon 64MB video memory, DBP Upgrade 5.3.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 11th Jul 2004 02:01

Link

Oh, i missed a part of your post then. If its for a specific game design, then do whatever you want.

"eureka" - Archimedes

Back to top

Profile PM Email Website

genius

21

Years of Service

User Offline

Joined: 16th Oct 2003

Location: Utah, USA

Posted: 11th Jul 2004 16:53

Link

Awesome!

Why do they have BRAIL on Drive-Up ATM Machines?

Back to top

Profile PM Website

Physics coder

20

Years of Service

User Offline

Joined: 25th May 2004

Location: United States

Posted: 11th Jul 2004 20:24 Edited at: 11th Jul 2004 21:17

Link

http://luke.dbspot.com/files/level%20editor.rar

EDIT: I put the http:// thing around the link but it's not making it a hyperlink, just copy it into an adress bar of a new IE window.

EDIT2: extract the rar file into it's own folder.

I've included a level, the dbpro source, and a bmp texture in this 5KB .rar file.

Levels are less than a KB.

controls:

camera movement: W/A/S/D and mouselook.

click and drag on matrix to make a rotate an object
click and drag again to set the size.

When rotating an object, if you press shift you limit the angle to every 45 degrees.

When positioning an object, you can limit the position to every meter by pressing control, or every 5 meters by pressing shift.

When setting the size of an object, you can limit the size to every meter using control, you can force the box to be a square with the shift key.

If you click on an object, it selects it, from there you can position, rotate or set the size of the selected object.

Press tab to show/hide the menu and second camera view

You can save and load levels. If no object is selected, you can see a menu that says ctrl+s for save, ctrl+n for new and ctrl+l for load.

IF you select an object, you can press ctrl+x to delete it, or ctrl+c to copy it.

once you copied it, press ctrl+v+mouse click to paste it where you click your mouse.

the spheres that appear at the corner of each box are way points which will later be used by an A* waypoint pathfinding algorithm.

-----------------------------------
To delete the bug, delete the code.
Specs: Sony VAIO Laptop, Windows XP, P4 2.8Ghz, 512MB RAM, ATI Radeon 64MB video memory, DBP Upgrade 5.3.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 12th Jul 2004 06:10

Link

looking good. what kinda game is this for?

"eureka" - Archimedes

Back to top

Profile PM Email Website

Physics coder

20

Years of Service

User Offline

Joined: 25th May 2004

Location: United States

Posted: 13th Jul 2004 02:37

Link

Right now it's very, very early in development, even the level editor isn't done, if you want to read about it and see the first screen shot, go to http://luke.dbspot.com/unnamed_tank_game.htm

-----------------------------------
To delete the bug, delete the code.
Specs: Sony VAIO Laptop, Windows XP, P4 2.8Ghz, 512MB RAM, ATI Radeon 64MB video memory, DBP Upgrade 5.3.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Code Snippets / make boxes with a click-and-drag interface (in darkbasicpro)