It doesent work - GameCreators Forum

Author

Message

o0 Static 0o

21

Years of Service

User Offline

Joined: 27th Aug 2003

Location: Belgium

Posted: 2nd Jun 2004 16:27

Link

Why doesent it work.
The cubes are always on a other place, or is it the camera???

Plz help me

make object cube 1,20
make object cube 2,20
position object 1,rnd(500),0,rnd(500)
position object 2,rnd(500),0,rnd(500)

position camera -100,200,-100
point camera 250,0,250

if file exist("data.abc") then delete file "data.abc"
open to write 1,"data.abc"

make memblock 1,1024
write memblock word 1,1,object position x(1)
write memblock word 1,5,object position y(1)
write memblock word 1,9,object position z(1)
write memblock word 1,13,object position x(2)
write memblock word 1,17,object position y(2)
write memblock word 1,21,object position z(2)
write memblock float 1,25,camera position x()
write memblock float 1,29,camera position y()
write memblock float 1,33,camera position z()

write memblock 1,1

suspend for key

delete memblock 1
delete object 1
delete object 2
close file 1

open to read 1,"data.abc"
read memblock 1,1

make object cube 1,20
make object cube 2,20
position object 1,memblock word(1,1),memblock word(1,5),memblock word(1,9)
position object 2,memblock word(1,13),memblock word(1,17),memblock word(1,21)
position camera memblock float(1,25),memblock float(1,29),memblock float(1,33)

suspend for key

+ Code Snippet

make object cube 1,20
make object cube 2,20
position object 1,rnd(500),0,rnd(500)
position object 2,rnd(500),0,rnd(500)

position camera -100,200,-100
point camera 250,0,250

if file exist("data.abc") then delete file "data.abc"
open to write 1,"data.abc"

make memblock 1,1024
write memblock word 1,1,object position x(1)
write memblock word 1,5,object position y(1)
write memblock word 1,9,object position z(1)
write memblock word 1,13,object position x(2)
write memblock word 1,17,object position y(2)
write memblock word 1,21,object position z(2)
write memblock float 1,25,camera position x()
write memblock float 1,29,camera position y()
write memblock float 1,33,camera position z()

write memblock 1,1

suspend for key

delete memblock 1
delete object 1
delete object 2
close file 1

open to read 1,"data.abc"
read memblock 1,1

make object cube 1,20
make object cube 2,20
position object 1,memblock word(1,1),memblock word(1,5),memblock word(1,9)
position object 2,memblock word(1,13),memblock word(1,17),memblock word(1,21)
position camera memblock float(1,25),memblock float(1,29),memblock float(1,33)

suspend for key

Back to top

Profile PM Email

zircher

22

Years of Service

User Offline

Joined: 27th Dec 2002

Location: Oklahoma

Posted: 2nd Jun 2004 17:56 Edited at: 2nd Jun 2004 17:57

Link

make object cube 1,20
make object cube 2,20
rem You are not seeding your random number functions. So, they
rem will repeat the same values. Is this oversight or design?
position object 1,rnd(500),0,rnd(500)
position object 2,rnd(500),0,rnd(500)

position camera -100,200,-100
point camera 250,0,250

if file exist("data.abc") then delete file "data.abc"
open to write 1,"data.abc"

make memblock 1,1024
rem Coordinates are floats and not integer word values.
write memblock word 1,1,object position x(1)
write memblock word 1,5,object position y(1)
write memblock word 1,9,object position z(1)
write memblock word 1,13,object position x(2)
write memblock word 1,17,object position y(2)
write memblock word 1,21,object position z(2)
write memblock float 1,25,camera position x()
write memblock float 1,29,camera position y()
write memblock float 1,33,camera position z()

History did not begin with PONG. -- Greg Costikyan

Game Beavers

Back to top

Profile PM Email Website

o0 Static 0o

21

Years of Service

User Offline

Joined: 27th Aug 2003

Location: Belgium

Posted: 3rd Jun 2004 10:05 Edited at: 3rd Jun 2004 10:08

Link

Even if i try to make floats of it.
It doesent work.

The second time the cubes are standing in another position then the first time.

Rem first time
make object cube 1,20
make object cube 2,20
position object 1,rnd(500),0,rnd(500)
position object 2,rnd(500),0,rnd(500)

position camera -100,200,-100
point camera 250,0,250

if file exist("data.abc") then delete file "data.abc"
open to write 1,"data.abc"

make memblock 1,1024
write memblock word 1,1,object position x(1)
write memblock word 1,5,object position y(1)
write memblock word 1,9,object position z(1)
write memblock word 1,13,object position x(2)
write memblock word 1,17,object position y(2)
write memblock word 1,21,object position z(2)
write memblock float 1,25,camera position x()
write memblock float 1,29,camera position y()
write memblock float 1,33,camera position z()

write memblock 1,1

suspend for key

Rem Second time
delete memblock 1
delete object 1
delete object 2
close file 1

open to read 1,"data.abc"
read memblock 1,1

make object cube 1,20
make object cube 2,20
position object 1,memblock word(1,1),memblock word(1,5),memblock word(1,9)
position object 2,memblock word(1,13),memblock word(1,17),memblock word(1,21)
position camera memblock float(1,25),memblock float(1,29),memblock float(1,33)

suspend for key

Back to top

Profile PM Email

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Jun 2004 17:10

Link

It would help if you told us what you're trying to do exactly.

"eureka" - Archimedes

Back to top

Profile PM Email Website

o0 Static 0o

21

Years of Service

User Offline

Joined: 27th Aug 2003

Location: Belgium

Posted: 3rd Jun 2004 22:40

Link

I just want to save te positions of some objects to i file.
And load them back at a other moment.

I want to make a multiplayer game with 'sending memblocks'.

Back to top

Profile PM Email

BadMonkey91

21

Years of Service

User Offline

Joined: 13th Jan 2004

Location:

Posted: 3rd Jun 2004 22:55

Link

what do you mean by seeding? I have a problem with rnd() numbers.
They come up with sequential values, when exported.

[email protected]

Back to top

Profile PM Email

o0 Static 0o

21

Years of Service

User Offline

Joined: 27th Aug 2003

Location: Belgium

Posted: 4th Jun 2004 10:01

Link

Yeah what do you mean by seeding.
I dont work much with rnd numbers.
EXPLAIN

Back to top

Profile PM Email

DeepBlue

22

Years of Service

User Offline

Joined: 17th May 2003

Location: A little box in the UK

Posted: 4th Jun 2004 10:54 Edited at: 4th Jun 2004 10:59

Link

Here ya go

Following modified & works, main problem is that you had the autocam on. Also tidied the code a little & put comments in where required.

rem RANDOMISE SEED VALUE OF RND
randomize timer()

Rem first time
make object cube 1,20
make object cube 2,20
position object 1,rnd(500),0,rnd(500)
position object 2,rnd(500),0,rnd(500)

rem SET AUTOCAM TO OFF, OTHERWISE WILL POINT TO CREATED OBJECTS
autocam off
position camera -100,200,-100
point camera 250,0,250

if file exist("data.abc") then delete file "data.abc"
open to write 1,"data.abc"

rem OBJECT POSITIONS ARE FLOATS NOT WORDS
rem Not so important but start memblocks at 0 easier to read
rem 9 FLOATS @ 4 BYTES EACH=36 BYTES
make memblock 1,36
write memblock float 1,0,object position x(1)
write memblock float 1,4,object position y(1)
write memblock float 1,8,object position z(1)
write memblock float 1,12,object position x(2)
write memblock float 1,16,object position y(2)
write memblock float 1,20,object position z(2)
write memblock float 1,24,camera position x()
write memblock float 1,28,camera position y()
write memblock float 1,32,camera position z()

write memblock 1,1

suspend for key

Rem Second time
delete memblock 1
delete object 1
delete object 2
close file 1

open to read 1,"data.abc"
read memblock 1,1

make object cube 1,20
make object cube 2,20
position object 1,memblock float(1,0),memblock float(1,4),memblock float(1,8)
position object 2,memblock float(1,12),memblock float(1,16),memblock float(1,20)
position camera memblock float(1,24),memblock float(1,28),memblock float(1,32)

suspend for key

+ Code Snippet


rem RANDOMISE SEED VALUE OF RND
randomize timer()

Rem first time
make object cube 1,20
make object cube 2,20
position object 1,rnd(500),0,rnd(500)
position object 2,rnd(500),0,rnd(500)

rem SET AUTOCAM TO OFF, OTHERWISE WILL POINT TO CREATED OBJECTS
autocam off
position camera -100,200,-100
point camera 250,0,250

if file exist("data.abc") then delete file "data.abc"
open to write 1,"data.abc"

rem OBJECT POSITIONS ARE FLOATS NOT WORDS
rem Not so important but start memblocks at 0 easier to read
rem 9 FLOATS @ 4 BYTES EACH=36 BYTES
make memblock 1,36
write memblock float 1,0,object position x(1)
write memblock float 1,4,object position y(1)
write memblock float 1,8,object position z(1)
write memblock float 1,12,object position x(2)
write memblock float 1,16,object position y(2)
write memblock float 1,20,object position z(2)
write memblock float 1,24,camera position x()
write memblock float 1,28,camera position y()
write memblock float 1,32,camera position z()

write memblock 1,1

suspend for key

Rem Second time
delete memblock 1
delete object 1
delete object 2
close file 1

open to read 1,"data.abc"
read memblock 1,1

make object cube 1,20
make object cube 2,20
position object 1,memblock float(1,0),memblock float(1,4),memblock float(1,8)
position object 2,memblock float(1,12),memblock float(1,16),memblock float(1,20)
position camera memblock float(1,24),memblock float(1,28),memblock float(1,32)

suspend for key

Twynklet

Back to top

Profile PM Email

o0 Static 0o

21

Years of Service

User Offline

Joined: 27th Aug 2003

Location: Belgium

Posted: 4th Jun 2004 19:37

Link

Thanks finnaly what i need.

Thanks,Thanks,Thanks,...

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / It doesent work