Drag and drop level editor - GameCreators Forum

Author

Message

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 9th Jan 2005 23:54 Edited at: 27th Jan 2005 12:13

Link

<edit 26/1/05 - added a snap to grid option to help with alignment>

I'm sure it's been done a hundred times, but here's a very straight forward level editor to help position and scale your objects in your game.

`editor

sync on
autocam off
color backdrop 0
make matrix 1,1100,1100,20,20
position matrix 1,0,-50,0
r#=10 `cam distance
CamSpeed#=2

dim filename$(3001000)
dim scale#(3001000)

`***** load objects from editor *******

if file exist ("level.dat")=1
open to read 10,"level.dat"
read file 10,numberoftsos

for object=3000001 to 3000000+numberoftsos

read string 10,filename$(object)
  read float 10,tsox#
  read float 10,tsoy#
  read float 10,tsoz#
  read float 10,scale#(object)

load object filename$(object),object
  position object object,tsox#,tsoy#,tsoz#
  scale object object,100+scale#(object),100+scale#(object),100+scale#(object)

next object

close file 10
endif

do

if inkey$()="l" then gosub newobject

if inkey$()="s" then gosub writedata

gosub textguide

gosub camera

gosub moveobject

sync
loop

writedata:
if numberoftsos>0
delete file "level.dat"
open to write 10,"level.dat"
write file 10,numberoftsos

for object=3000001 to 3000000+numberoftsos

write string 10,filename$(object)
  write float 10,object position x(object)
  write float 10,object position y(object)
  write float 10,object position z(object)
  write float 10,scale#(object)

next object
endif
text 0,100,"Data saved"
sync
wait 1000
return

newobject:
object=3000001
while object exist (object)=1
inc object
endwhile
sync
text 0,0,"Enter filename of new object: "
sync
wait 1000
input filename$(object)

load object filename$(object),object
position object object,camera position x(),camera position y(),camera position z()
yrotate object object,camera angle y()
move object object,20
yrotate object object,0
inc numberoftsos
return

textguide:

if texton=0
text 0,0,"Press 'h' for help"
if inkey$()="h" then texton=1
endif

if texton=1
cls
text 0,0,"Press l to load new object"
text 0,20,"Press s to save datafile"
text 0,40,"Mouse and arrow keys control camera"
text 0,80,"When object is selected with left mouse button:-"
text 0,100,"Move object by dragging with mouse"
text 0,120,"Up and down arrow keys move object up and down"
text 0,140,"Left and right arrow keys scale object"
text 0,160,"Press "a" to align object to grid"
text 0,180,"Press any key to return to editor"
sync
wait key
texton=0
endif

return

camera:
if mouseclick()=0 then 3D_Move_Cam(CamSpeed#)
return

FUNCTION 3D_Move_Cam(CamSpeed#)

IF CamSpeed# = 0 THEN EXITFUNCTION

cam_x# = CAMERA ANGLE X() + MOUSEMOVEY() * .2
      cam_y# = CAMERA ANGLE Y() + MOUSEMOVEX() * .2
      cam_z# = CAMERA ANGLE Z() + MOUSEMOVEZ() * .2

IF upkey() = 1
        polarity=1
        MOVE CAMERA CamSpeed#
        XROTATE CAMERA cam_x#
      ENDIF

IF downkey() = 1
      polarity=-1
        MOVE CAMERA -CamSpeed#
        XROTATE CAMERA cam_x#
      ENDIF

IF leftkey() = 1
        ROTATE CAMERA 0, cam_y#-90, 0
        MOVE CAMERA CamSpeed#
        ROTATE CAMERA cam_x#, cam_y#, 0
      ENDIF

IF rightkey() = 1
        ROTATE CAMERA 0, cam_y#+90, 0
        MOVE CAMERA CamSpeed#
        ROTATE CAMERA cam_x#, cam_y#, 0
      ENDIF

ROTATE CAMERA cam_x#, cam_y#, cam_z#

ENDFUNCTION

moveobject:

if picked=0 then object = pick object(mousex(),mousey(),3000001,3001000)

if object>0 and mouseclick()=1 then picked=1
if mouseclick()=2 then picked=0

if picked=1 and mouseclick()=1

hide mouse

text 0,20,"Current object: "+filename$(object)
  text 0,40,"Number of objects: "+str$(numberoftsos)

recentobject=object
  set object emissive object,rgb(255,255,255)

y#=0
  if  upkey()=1 then y#=0.1
  if  downkey()=1 then  y#=-0.1
  if  leftkey()=1 then dec scale#(object)
  if  rightkey()=1 then inc scale#(object)

ang#=object angle y(object)
   yrotate object object,camera angle y():move object object,-mousemovey()
   yrotate object object,camera angle y()+90:move object object,mousemovex()
   yrotate object object,ang#

position object object,object position x(object),object position y(object)+y#,object position z(object)
  if inkey$()="a"
    position object object,int(object position x(object)/10)*10,int(object position y(object)/10)*10,int(object position z(object)/10)*10
    make object cube 4000001,1
    position object 4000001,object position x(object)-100,object position y(object),object position z(object)
    make object cube 4000002,1
    position object 4000002,object position x(object)+100,object position y(object),object position z(object)
    make object cube 4000003,1
    position object 4000003,object position x(object),object position y(object),object position z(object)-100
    make object cube 4000004,1
    position object 4000004,object position x(object),object position y(object),object position z(object)+100

line object screen x(4000001),object screen y(4000001),object screen x(4000002),object screen y(4000002)
    line object screen x(4000003),object screen y(4000003),object screen x(4000004),object screen y(4000004)
    delete object 4000001
    delete object 4000002
    delete object 4000003
    delete object 4000004
    endif
  scale object object,100+scale#(object),100+scale#(object),100+scale#(object)
endif

if picked=0
  show mouse
  text 0,20,"No object selected"
  y#=0
  if recentobject>0 then set object emissive recentobject,rgb(0,0,0)
endif

return

+ Code Snippet

`editor

sync on
autocam off
color backdrop 0
make matrix 1,1100,1100,20,20
position matrix 1,0,-50,0
r#=10 `cam distance
CamSpeed#=2

dim filename$(3001000)
dim scale#(3001000)

`***** load objects from editor *******

if file exist ("level.dat")=1
open to read 10,"level.dat"
read file 10,numberoftsos

for object=3000001 to 3000000+numberoftsos

  read string 10,filename$(object)
  read float 10,tsox#
  read float 10,tsoy#
  read float 10,tsoz#
  read float 10,scale#(object)

  load object filename$(object),object
  position object object,tsox#,tsoy#,tsoz#
  scale object object,100+scale#(object),100+scale#(object),100+scale#(object)

next object

close file 10
endif


do

if inkey$()="l" then gosub newobject

if inkey$()="s" then gosub writedata

gosub textguide

gosub camera

gosub moveobject

sync
loop

writedata:
if numberoftsos>0
delete file "level.dat"
open to write 10,"level.dat"
write file 10,numberoftsos

for object=3000001 to 3000000+numberoftsos

  write string 10,filename$(object)
  write float 10,object position x(object)
  write float 10,object position y(object)
  write float 10,object position z(object)
  write float 10,scale#(object)

next object
endif
text 0,100,"Data saved"
sync
wait 1000
return

newobject:
object=3000001
while object exist (object)=1
inc object
endwhile
sync
text 0,0,"Enter filename of new object: "
sync
wait 1000
input filename$(object)

load object filename$(object),object
position object object,camera position x(),camera position y(),camera position z()
yrotate object object,camera angle y()
move object object,20
yrotate object object,0
inc numberoftsos
return

textguide:

if texton=0
text 0,0,"Press 'h' for help"
if inkey$()="h" then texton=1
endif

if texton=1
cls
text 0,0,"Press l to load new object"
text 0,20,"Press s to save datafile"
text 0,40,"Mouse and arrow keys control camera"
text 0,80,"When object is selected with left mouse button:-"
text 0,100,"Move object by dragging with mouse"
text 0,120,"Up and down arrow keys move object up and down"
text 0,140,"Left and right arrow keys scale object"
text 0,160,"Press "a" to align object to grid"
text 0,180,"Press any key to return to editor"
sync
wait key
texton=0
endif

return

camera:
if mouseclick()=0 then 3D_Move_Cam(CamSpeed#)
return

FUNCTION 3D_Move_Cam(CamSpeed#)

      IF CamSpeed# = 0 THEN EXITFUNCTION

      cam_x# = CAMERA ANGLE X() + MOUSEMOVEY() * .2
      cam_y# = CAMERA ANGLE Y() + MOUSEMOVEX() * .2
      cam_z# = CAMERA ANGLE Z() + MOUSEMOVEZ() * .2

      IF upkey() = 1
        polarity=1
        MOVE CAMERA CamSpeed#
        XROTATE CAMERA cam_x#
      ENDIF

      IF downkey() = 1
      polarity=-1
        MOVE CAMERA -CamSpeed#
        XROTATE CAMERA cam_x#
      ENDIF

      IF leftkey() = 1
        ROTATE CAMERA 0, cam_y#-90, 0
        MOVE CAMERA CamSpeed#
        ROTATE CAMERA cam_x#, cam_y#, 0
      ENDIF

      IF rightkey() = 1
        ROTATE CAMERA 0, cam_y#+90, 0
        MOVE CAMERA CamSpeed#
        ROTATE CAMERA cam_x#, cam_y#, 0
      ENDIF

      ROTATE CAMERA cam_x#, cam_y#, cam_z#


    ENDFUNCTION



moveobject:

if picked=0 then object = pick object(mousex(),mousey(),3000001,3001000)


if object>0 and mouseclick()=1 then picked=1
if mouseclick()=2 then picked=0

if picked=1 and mouseclick()=1

  hide mouse

  text 0,20,"Current object: "+filename$(object)
  text 0,40,"Number of objects: "+str$(numberoftsos)

  recentobject=object
  set object emissive object,rgb(255,255,255)

  y#=0
  if  upkey()=1 then y#=0.1
  if  downkey()=1 then  y#=-0.1
  if  leftkey()=1 then dec scale#(object)
  if  rightkey()=1 then inc scale#(object)

   ang#=object angle y(object)
   yrotate object object,camera angle y():move object object,-mousemovey()
   yrotate object object,camera angle y()+90:move object object,mousemovex()
   yrotate object object,ang#

  position object object,object position x(object),object position y(object)+y#,object position z(object)
  if inkey$()="a"
    position object object,int(object position x(object)/10)*10,int(object position y(object)/10)*10,int(object position z(object)/10)*10
    make object cube 4000001,1
    position object 4000001,object position x(object)-100,object position y(object),object position z(object)
    make object cube 4000002,1
    position object 4000002,object position x(object)+100,object position y(object),object position z(object)
    make object cube 4000003,1
    position object 4000003,object position x(object),object position y(object),object position z(object)-100
    make object cube 4000004,1
    position object 4000004,object position x(object),object position y(object),object position z(object)+100

    line object screen x(4000001),object screen y(4000001),object screen x(4000002),object screen y(4000002)
    line object screen x(4000003),object screen y(4000003),object screen x(4000004),object screen y(4000004)
    delete object 4000001
    delete object 4000002
    delete object 4000003
    delete object 4000004
    endif
  scale object object,100+scale#(object),100+scale#(object),100+scale#(object)
endif

if picked=0
  show mouse
  text 0,20,"No object selected"
  y#=0
  if recentobject>0 then set object emissive recentobject,rgb(0,0,0)
endif



return

Then, in your game, paste this code before your main program loop to autoload your level:

+ Code Snippet


`***** autoload from editor *******

dim filename$(3001000)
dim scale#(3001000)

if file exist ("level.dat")=1
open to read 10,"level.dat"
read file 10,numberoftsos

for object=3000001 to 3000000+numberoftsos

  read string 10,filename$(object)
  read float 10,tsox#
  read float 10,tsoy#
  read float 10,tsoz#
  read float 10,scale#(object)

  load object filename$(object),object
  position object object,tsox#,tsoy#,tsoz#
  scale object object,100+scale#(object),100+scale#(object),100+scale#(object)

next object

close file 10
endif

Attachments

Login to view attachments

Back to top

Profile PM Email Website

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 10th Jan 2005 03:32

Link

Nice one. A lot of beginners will find this useful.

http://www.freewebs.com/elbsoftware/index.htm

Back to top

Profile PM Email

FXTC

20

Years of Service

User Offline

Joined: 3rd Jul 2004

Location: CzechRepublic

Posted: 19th Jan 2005 04:32

Link

make this with buegui2

AMD 2,4 512MB RAM,2x200GB hdd,GforceFX5700GT128MB

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 19th Jan 2005 07:08

Link

??

Back to top

Profile PM Email Website

No budget games

21

Years of Service

User Offline

Joined: 26th Feb 2004

Location:

Posted: 20th Jan 2005 00:42

Link

I think he means use bluegui 2 because it will give it a more windows like appearnce which users like.

Back to top

Profile PM Email Website

Advancement Games

20

Years of Service

User Offline

Joined: 6th Jan 2005

Location:

Posted: 20th Jan 2005 05:29

Link

That would not be a bad thought. How do you add different terrains? If you cannot, then you should try that in another version.

Comming soon: www.mworksstudios.com
Opening in MARCH OF 2005

Back to top

Profile PM Email

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 20th Jan 2005 06:15 Edited at: 20th Jan 2005 06:16

Link

There is something like that already which has menus and terrain options: http://forum.thegamecreators.com/?m=forum_view&t=46111&b=5 I think it's a free download.

The only real advantage of my code over others is if people want to see how it works, and fiddle with the code to expand upon it themselves.

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 26th Jan 2005 10:53 Edited at: 26th Jan 2005 10:54

Link

Two easy ways of making allignment easier, are probably not assigning movement to keys, but:

1. Slow the mouse movement down:

The movement of the objects is done in the two lines near the bottom:

+ Code Snippet

yrotate object object,camera angle y():move object object,-mousemovey()
   yrotate object object,camera angle y()+90:move object object,mousemovex()

you could change it to, say,

+ Code Snippet

yrotate object object,camera angle y():move object object,-mousemovey()/2
   yrotate object object,camera angle y()+90:move object object,mousemovex()/2

2. Write a 'snap to grid' routine for object placement. Should be just a few lines, of the form :

+ Code Snippet


position object obnum,int(object position x(obnum))

That would, for example, snap objects to integer values on the x axis.

To snap to 10ths of integer values, you'd say:

+ Code Snippet


position object obnum,int(object position x(obnum)*10)/10

Then you'd do the same for y and z values.

Hope that helps. Glad that at least someone is using the editor, though!

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 27th Jan 2005 12:05

Link

I did have a look at that, but I didn't spot the problem. I'd suggest just ripping the save/load routines out of my code above, as they work.

As for the snapping to grid, I've added it into the code at the top of this thread. Whilst an object is selected by holding the left mouse button, press "a" to align it. I've got it programmed to snap to integer*10 values, but you can easily change that.

Back to top

Profile PM Email Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 30th Jan 2005 05:02

Link

When I get DBP I'm gonna try this thing out. It looks nice.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Random 69

20

Years of Service

User Offline

Joined: 24th Aug 2004

Location: Marshmellowland

Posted: 23rd Feb 2005 10:35

Link

Could you please fix the scaling it doesnt work

Either than that this is friggin great Thanks Ric

[ 21.27GB / 74.52GB ] [ 235MB / 511MB ] [ RADEON 9500 PRO / 9700 @ 1280x934 ] [ Windows XP ][ Intel Pentium 4 CPU 2.00GHz @ 1993MHz ]

Back to top

Profile PM Email Website

Sol462

20

Years of Service

User Offline

Joined: 12th Sep 2004

Location: playing with the spazookeedoo

Posted: 24th Feb 2005 10:07

Link

that's awesome, spazuh! great work!

[url=www.spazuh.tk]

[/url]

Back to top

Profile PM Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 25th Feb 2005 09:17

Link

Quote: "Could you please fix the scaling it doesnt work"

Seems to work fine here. This was written in DBPro, by the way, not sure if it works in Classic. Also, check you have the left mouse button pressed down before using the left and right arrow keys to adjust the scale. Finally, you could make it scale up and down by larger increments by making these changes:

+ Code Snippet

if  leftkey()=1 then dec scale#(object),5
if  rightkey()=1 then inc scale#(object),5

where the 5 can be changed to any number you want.

Back to top

Profile PM Email Website

Random 69

20

Years of Service

User Offline

Joined: 24th Aug 2004

Location: Marshmellowland

Posted: 25th Feb 2005 10:34

Link

I changed the 5 to 20 works fine now. Thanks alot also is it possible you could add some commands to flip objects like alot of objects are sideways

u should have like a flip thing to flip verticle horizintal and any others ;D

If you have time

this is a awsome editor though

[ 21.27GB / 74.52GB ] [ 235MB / 511MB ] [ RADEON 9500 PRO / 9700 @ 1280x934 ] [ Windows XP ][ Intel Pentium 4 CPU 2.00GHz @ 1993MHz ]

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 25th Feb 2005 10:44

Link

I'll try to get around to making some improvements, including flip/rotation of objects during the next week.

Back to top

Profile PM Email Website

Random 69

20

Years of Service

User Offline

Joined: 24th Aug 2004

Location: Marshmellowland

Posted: 25th Feb 2005 23:18

Link

Awsome your the best Ric

[ 21.27GB / 74.52GB ] [ 235MB / 511MB ] [ RADEON 9500 PRO / 9700 @ 1280x934 ] [ Windows XP ][ Intel Pentium 4 CPU 2.00GHz @ 1993MHz ]

Back to top

Profile PM Email Website

Freddy 007

20

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 27th Feb 2005 22:08

Link

wow

I like it, man! That's really some great work you've done there!

Check out PanzerGames at: http://www.freewebs.com/panzergames
æ ø å

Back to top

Profile PM Email

Digital Dragon

20

Years of Service

User Offline

Joined: 17th Dec 2004

Location: ...

Posted: 4th Apr 2005 05:28

Link

I have my world maker but how would i put save and load in because i have had a go at it but it is just mucked up now!

Here it is

sync on
sync rate 30
make directory "c:\World Builder"
set dir "c:\World Builder"

x#=400
y#=400
z#=400

make matrix 1,5000,5000,50,50
position matrix 1,0,-5,0

total_object = 0

make camera 1

open to write 10,"level.mrnaughty"
do

set cursor 0,0
print "press n to make a new object(write what the object number should be)"
print "press s to write the object number you wanna select"
print "You can also press left mousebutton to select between objects"
print "Current object selected : "; obj_numb
if c#=0 then print "CAMERA MODE"
if c#=1 then print "Editing Mode"

if inkey$() = "n"
input file$
input obj_numb
total_object = total_object+1
load object file$,obj_numb
position object obj_numb,0,0,-30
position camera object position x(obj_numb), object position y(obj_numb)+5, object position z(obj_numb)-30
scale object obj_numb,x#,y#,z#
endif

if inkey$() = "p"
input obj_numb
endif

if inkey$()="c" then c#=0

if c#=0 then control camera using arrowkeys 1,1.5,1

if inkey$()="e" then c#=1

if upkey() = 1 and c#=1
move object obj_numb,0.5
endif

if downkey() = 1 and c#=1
move object obj_numb,-0.5
endif

if leftkey() = 1 and c#=1
turn object left obj_numb,2
endif

if rightkey() = 1 and c#=1
turn object right obj_numb,2
endif

if inkey$()="+" then x#=x#+10,y#=y#+20,z#=z#+10 : scale object obj_numb,x#,y#,z#

if inkey$()="-" then x#=x#-10,y#=y#-20,z#=z#-10 : scale object obj_numb,x#,y#,z#

if inkey$()="1" then move object up obj_numb,0.5

if inkey$()="2" then move object down obj_numb,0.5

if inkey$()="3" then roll object right obj_numb,0.5

if inkey$()="4" then roll object left obj_numb,0.5

if inkey$()="l" then gosub load

if spacekey()=1 then gosub writedata

if mouseclick() = 1 and c#=1
obj_numb = obj_numb+1
if obj_numb > total_object
obj_numb = 1
endif
endif

sync
loop

writedata:

write string 10,file$
  write float 10,obj_numb
  write float 10,object position x(obj_numb)
  write float 10,object position y(obj_numb)
  write float 10,object position z(obj_numb)
  write float 10,x#
  write float 10,y#
  write float 10,z#

return

load:
open to read 11,"level.mrnaughty"

read string 11,file$
  read float 11,obj_numb
  read float 11,ox#
  read float 11,oy#
  read float 11,oz#
  read float 11,xx#
  read float 11,yy#
  read float 11,zz#
  load object file$,1
  position object 1,ox#,oy#,oz#
  scale object 1,xx#,yy#,zz#

read string 11,filee$
  read float 11,obj_numbbe
  read float 11,oxoe#
  read float 11,oyoe#
  read float 11,ozoe#
  read float 11,xxoe#
  read float 11,yyoe#
  read float 11,zzoe#
  load object filee$,2
  position object 2,oxoe#,oyoe#,ozoe#
  scale object 2,xxoe#,yyoe#,zzoe#

read string 11,fileeer$
  read float 11,obj_numbbr
  read float 11,oxor#
  read float 11,oyor#
  read float 11,ozor#
  read float 11,xxor#
  read float 11,yyor#
  read float 11,zzor#
  load object fileeer$,3
  position object 3,oxor#,oyor#,ozor#
  scale object 3,xxor#,yyor#,zzor#

read string 11,fileeet$
  read float 11,obj_numbbt
  read float 11,oxot#
  read float 11,oyot#
  read float 11,ozot#
  read float 11,xxot#
  read float 11,yyot#
  read float 11,zzot#
  load object fileeet$,4
  position object 4,oxot#,oyot#,ozot#
  scale object 4,xxot#,yyot#,zzot#

close file 11
return

+ Code Snippet

sync on
sync rate 30
make directory "c:\World Builder"
set dir "c:\World Builder"


x#=400
y#=400
z#=400


make matrix 1,5000,5000,50,50
position matrix 1,0,-5,0

total_object = 0

make camera 1

open to write 10,"level.mrnaughty"
do

set cursor 0,0
print "press n to make a new object(write what the object number should be)"
print "press s to write the object number you wanna select"
print "You can also press left mousebutton to select between objects"
print "Current object selected : "; obj_numb
if c#=0 then print "CAMERA MODE"
if c#=1 then print "Editing Mode"

if inkey$() = "n"
input file$
input obj_numb
total_object = total_object+1
load object file$,obj_numb
position object obj_numb,0,0,-30
position camera object position x(obj_numb), object position y(obj_numb)+5, object position z(obj_numb)-30
scale object obj_numb,x#,y#,z#
endif

if inkey$() = "p"
input obj_numb
endif

if inkey$()="c" then c#=0

if c#=0 then control camera using arrowkeys 1,1.5,1

if inkey$()="e" then c#=1

if upkey() = 1 and c#=1
move object obj_numb,0.5
endif

if downkey() = 1 and c#=1
move object obj_numb,-0.5
endif

if leftkey() = 1 and c#=1
turn object left obj_numb,2
endif

if rightkey() = 1 and c#=1
turn object right obj_numb,2
endif


if inkey$()="+" then x#=x#+10,y#=y#+20,z#=z#+10 : scale object obj_numb,x#,y#,z#

if inkey$()="-" then x#=x#-10,y#=y#-20,z#=z#-10 : scale object obj_numb,x#,y#,z#

if inkey$()="1" then move object up obj_numb,0.5

if inkey$()="2" then move object down obj_numb,0.5

if inkey$()="3" then roll object right obj_numb,0.5

if inkey$()="4" then roll object left obj_numb,0.5

if inkey$()="l" then gosub load

if spacekey()=1 then gosub writedata

if mouseclick() = 1 and c#=1
obj_numb = obj_numb+1
if obj_numb > total_object
obj_numb = 1
endif
endif

sync
loop





writedata:

  write string 10,file$
  write float 10,obj_numb
  write float 10,object position x(obj_numb)
  write float 10,object position y(obj_numb)
  write float 10,object position z(obj_numb)
  write float 10,x#
  write float 10,y#
  write float 10,z#

return

load:
open to read 11,"level.mrnaughty"

  read string 11,file$
  read float 11,obj_numb
  read float 11,ox#
  read float 11,oy#
  read float 11,oz#
  read float 11,xx#
  read float 11,yy#
  read float 11,zz#
  load object file$,1
  position object 1,ox#,oy#,oz#
  scale object 1,xx#,yy#,zz#

  read string 11,filee$
  read float 11,obj_numbbe
  read float 11,oxoe#
  read float 11,oyoe#
  read float 11,ozoe#
  read float 11,xxoe#
  read float 11,yyoe#
  read float 11,zzoe#
  load object filee$,2
  position object 2,oxoe#,oyoe#,ozoe#
  scale object 2,xxoe#,yyoe#,zzoe#

  read string 11,fileeer$
  read float 11,obj_numbbr
  read float 11,oxor#
  read float 11,oyor#
  read float 11,ozor#
  read float 11,xxor#
  read float 11,yyor#
  read float 11,zzor#
  load object fileeer$,3
  position object 3,oxor#,oyor#,ozor#
  scale object 3,xxor#,yyor#,zzor#

  read string 11,fileeet$
  read float 11,obj_numbbt
  read float 11,oxot#
  read float 11,oyot#
  read float 11,ozot#
  read float 11,xxot#
  read float 11,yyot#
  read float 11,zzot#
  load object fileeet$,4
  position object 4,oxot#,oyot#,ozot#
  scale object 4,xxot#,yyot#,zzot#





close file 11
return

Thx if you can help

Back to top

Profile PM Email

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 4th Apr 2005 07:58 Edited at: 4th Apr 2005 07:59

Link

Wrong forum for asking questions, really, but:

1. I'd suggest studying my code a bit longer to see exactly how I did it.
2. Be careful with 'if spacekey()=1 then gosub writedata' - if you hold the spacekey down to long it will repeat the process continually until you lift it back up again - notice I added in 'wait' commands to prevent this.
3. On first glance at your code, it seems that you are reading 4 times more information than you have written. You can only read what you have put there in the first place.

Back to top

Profile PM Email Website

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 5th Apr 2005 23:39

Link

Too bad the pick object() command doesn't work in DBC...

Back to top

Profile PM Email

Digital Dragon

20

Years of Service

User Offline

Joined: 17th Dec 2004

Location: ...

Posted: 6th Apr 2005 02:06

Link

I have read more through your code but I just don't get how you loaded a a filename by doing read string 10,filename$(object)
because when I tryed it, it said parameter for "read string" does not match `filename`,`variable string` at line 12 for me

How is this possible since your code worked?

Back to top

Profile PM Email

Benjamin

22

Years of Service

User Offline

Joined: 24th Nov 2002

Location: France

Posted: 6th Apr 2005 06:41

Link

If that is the exact code you used, then it didn't work because the array hasn't been created.

"Lets migrate like bricks" - Me

Back to top

Profile PM Email

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 6th Apr 2005 10:37

Link

Post your whole code in the DBP forum, and I'll take a look at it for you.

Back to top

Profile PM Email Website

Erick G

Retired Moderator

20

Years of Service

User Offline

Joined: 2nd Oct 2004

Location: Texas, USA

Posted: 6th Apr 2005 15:33

Link

Man ric, you never cease to amaze me !!!

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / Drag and drop level editor

Attachments