Memblocks - Adice Needed - GameCreators Forum

Author

Message

Arutha

20

Years of Service

User Offline

Joined: 13th Jan 2004

Location:

Posted: 18th Mar 2004 18:02

Link

Hi i'm trying to set up a memblock to transfer my players posistions over a network, I anit done memblocks before and have never seen one laid out can anyone offer some examples and advice?

Back to top

Profile PM Email

KC27

20

Years of Service

User Offline

Joined: 18th Mar 2004

Location:

Posted: 18th Mar 2004 22:59

Link

I cannot offer examples nor advice other than this:

Ask Waffle, I srached multiplayer threads and his name has popped up multiple times as a good source for multiplayer knowledge.

Cheers

Subdivision of LSGaming

Back to top

Profile PM

Neil19533

21

Years of Service

User Offline

Joined: 30th Aug 2003

Location: England

Posted: 20th Mar 2004 16:53

Link

firstly you must make a memblock:
this will make a memblock that can have 4 numbers in it. 5 including 0
Make memblock 1,4

then you will have to write information into it. memblock number,position in memblock out of 4,objectxposition

write memblock byte 1,1,object x position
write memblock byte 1,2,object y position
write memblock byte 1,3,object z position
write memblock byte 1,4,angleo bject facing

then useing some network code sent it to the other computer....
then to place the read memblock code. memblock number, position in the memblock

object x position = memblock byte 1,1
object y position = memblock byte 1,2
object z position = memblock byte 1,3
angle object facing = memblock byte 1,4

I wonder where that fish did go, a fish, a fish, a fish, O

Back to top

Profile PM Email

Arutha

20

Years of Service

User Offline

Joined: 13th Jan 2004

Location:

Posted: 22nd Mar 2004 22:23 Edited at: 22nd Mar 2004 22:24

Link

Hey Neil, i've tired what you said and ended up with this

+ Code Snippet

Make memblock 1,2

write memblock byte 1,1,bomberman_positions(this_player,1)=new_x
write memblock byte 1,2,bomberman_positions(this_player,2)=new_y

Read Memblock 1,1
READ MEMBLOCK 1,2
SEND NET MESSAGE MEMBLOCK 1,1
SEND NET MESSAGE MEMBLOCK 3,1
SEND NET MESSAGE MEMBLOCK 4,1
DELETE MEMBLOCK 1

But it still anit working, i've attached my entire game code if you or anyone else can be of anymore help it'll help alot

Back to top

Profile PM Email

Neil19533

21

Years of Service

User Offline

Joined: 30th Aug 2003

Location: England

Posted: 23rd Mar 2004 03:47

Link

Try:

Make memblock 1,2

write memblock byte 1,1,bomberman_positions(this_player,1)
write memblock byte 1,2,bomberman_positions(this_player,2)

SEND NET MESSAGE MEMBLOCK 1,1
SEND NET MESSAGE MEMBLOCK 3,1
SEND NET MESSAGE MEMBLOCK 4,1
DELETE MEMBLOCK 1

I wonder where that fish did go, a fish, a fish, a fish, O

Back to top

Profile PM Email

Neil19533

21

Years of Service

User Offline

Joined: 30th Aug 2003

Location: England

Posted: 23rd Mar 2004 03:49

Link

and to read the memblocks

Newx=memblock byte 1,1
newy=memblock byte 1,2

I wonder where that fish did go, a fish, a fish, a fish, O

Back to top

Profile PM Email

Neil19533

21

Years of Service

User Offline

Joined: 30th Aug 2003

Location: England

Posted: 24th Mar 2004 07:07

Link

Just wondering if it worked?

I wonder where that fish did go, a fish, a fish, a fish, O

Back to top

Profile PM Email

Arutha

20

Years of Service

User Offline

Joined: 13th Jan 2004

Location:

Posted: 25th Mar 2004 02:34

Link

Well typed it in, hit compile and got this msg

#100001: Could not determine parameter type of 'memblock byte 1'

That was for reading the memblock code

Newx=memblock byte 1,1
newy=memblock byte 1,2

any ideas why this is comming up?

Back to top

Profile PM Email

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 25th Mar 2004 02:48

Link

All commands that return values need brackets, so

Newx=memblock byte 1,1
newy=memblock byte 1,2

becomes

Newx=memblock byte(1,1)
newy=memblock byte(1,2)

Back to top

Profile PM Website

Arutha

20

Years of Service

User Offline

Joined: 13th Jan 2004

Location:

Posted: 25th Mar 2004 02:53

Link

Thanks winch, I anit gotta say Read Memblock or anything then I just put what you have put down and the other players computers should recieve the data and posistion the characters accordenly then?

Back to top

Profile PM Email

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 26th Mar 2004 01:37

Link

No, read memblock reads a memblock from an open file.

Some example code

sync on : autocam off : disable escapekey
sync rate 60

make object cube 1,5
color object 1,rgb(255,0,0)
position object 1,-5,0,15
make object cube 2,5
color object 2,rgb(0,255,0)
position object 2,5,0,15

make memblock 1,6

change as integer
change = 0

repeat
  `control red cube
  if upkey() then rotate object 1,object angle x(1)+1,object angle y(1),object angle z(1)    : change = 1
  if downkey() then rotate object 1,object angle x(1)-1,object angle y(1),object angle z(1)  : change = 1
  if leftkey() then rotate object 1,object angle x(1),object angle y(1)+1,object angle z(1)  : change = 1
  if rightkey() then rotate object 1,object angle x(1),object angle y(1)-1,object angle z(1) : change = 1
  
  `if change uddate memblock
  if change = 1
    rotate object 1,wrapvalue(object angle x(1)),wrapvalue(object angle y(1)),wrapvalue(object angle z(1))
    write memblock word 1,0,object angle x(1)
    write memblock word 1,2,object angle y(1)
    write memblock word 1,4,object angle z(1)
  endif
  
  `rotate the green cube
  if change = 1
    rotate object 2,memblock word(1,0),memblock word(1,2),memblock word(1,4)
    change = 0
  endif
  
  text 0,0,"X ang :"+str$(object angle x(1))+" Y ang :"+str$(object angle y(1))+" Z ang :"+str$(object angle z(1))
  sync
until escapekey()

delete object 1
delete object 2
delete memblock 1

+ Code Snippet

sync on : autocam off : disable escapekey
sync rate 60

make object cube 1,5
color object 1,rgb(255,0,0)
position object 1,-5,0,15
make object cube 2,5
color object 2,rgb(0,255,0)
position object 2,5,0,15

make memblock 1,6

change as integer
change = 0

repeat
  `control red cube
  if upkey() then rotate object 1,object angle x(1)+1,object angle y(1),object angle z(1)    : change = 1
  if downkey() then rotate object 1,object angle x(1)-1,object angle y(1),object angle z(1)  : change = 1
  if leftkey() then rotate object 1,object angle x(1),object angle y(1)+1,object angle z(1)  : change = 1
  if rightkey() then rotate object 1,object angle x(1),object angle y(1)-1,object angle z(1) : change = 1
  
  `if change uddate memblock
  if change = 1
    rotate object 1,wrapvalue(object angle x(1)),wrapvalue(object angle y(1)),wrapvalue(object angle z(1))
    write memblock word 1,0,object angle x(1)
    write memblock word 1,2,object angle y(1)
    write memblock word 1,4,object angle z(1)
  endif
  
  `rotate the green cube
  if change = 1
    rotate object 2,memblock word(1,0),memblock word(1,2),memblock word(1,4)
    change = 0
  endif
  
  text 0,0,"X ang :"+str$(object angle x(1))+" Y ang :"+str$(object angle y(1))+" Z ang :"+str$(object angle z(1))
  sync
until escapekey()

delete object 1
delete object 2
delete memblock 1

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Memblocks - Adice Needed