Hi,
I have a little 2Dimensional Game, but when I try to launch the client ( connect to server ) it's crashing ! and server crash with this ( error type : [img]www.fightersonline.info/winerror.PNG[/img] )
And how can I send EASLY and fastly informations ? ( if my code is not good I've saied this )
Thanks a lot !
Server source code :
set window on : set window title "serveur"
net$="127.0.0.1" : connexion=net host(20,net$) : net stack on
if connexion=0 then print "raté" : if connexion=1 then print "connecté"
load image "cube.bmp",1 : sprite 1,1,1,1 : sprite 2,1,1,1 : hide sprite 2
do
if upkey()=1 : dec ay#,1 : net push float y# : endif : if downkey()=1 : inc ay#,1 : net push float y# : endif
if leftkey()=1 : dec ax#,1 : net push float x# : endif : if rightkey()=1 : inc ax#,1 : net push float x# : endif
nouveau_joueur=net new player()
if nouveau_joueur=1 : show sprite 2 : playermade=1 : endif
stateJ1=net get player state(1)
if sprite exist(2)
if stateJ1=0 : hide sprite 1 : else : show sprite 1 : endif
state=net get player state(1)
if state
x#=sprite x(1) : y#=sprite y(1)
net send 1
endif
if net receive(1)
msg=net get msg amount()
for x=1 to msg
net get msg
ax#=net pop float() : ay#=net pop float()
sprite 2,ax#,ay#,1
next x
endif : endif
sprite 1,x#,y#,1
sprite 2,ax#,ay#,1
loop
Client source code :
set window on : set window title "serveur"
net$="127.0.0.1" : connexion=net join(net$) : net stack on
if connexion=0 then print "raté" : if connexion=1 then print "connecté"
load image "cube.bmp",1
do
if upkey()=1 : dec ay#,1 : net push float ay# : endif : if downkey()=1 : inc ay#,1 : net push float ay# : endif
if leftkey()=1 : dec ax#,1 : net push float ax# : endif : if rightkey()=1 : inc ax#,1 : net push float ax# : endif
nouveau_joueur=net new player()
if nouveau_joueur=1 : show sprite 1 : playermade=1 : endif
stateJ1=net get player state(1)
if sprite exist(1)
if stateJ1=0 : hide sprite 2 : else : show sprite 2 : endif
state=net get player state(1)
if state
ax#=sprite x(2) : ay#=sprite y(2)
net send 1
endif
if net receive(1)
msg=net get msg amount()
for x=1 to msg
net get msg
x#=net pop float() : y#=net pop float()
sprite 1,ax#,ay#,1
next x
endif : endif
sprite 1,x#,y#,1
sprite 2,ax#,ay#,1
loop
I love dbpro's !
