Code is very simple, no big maths there:
rem Multiplayer Showcase
rem Load backdrop and blob
load image "face.bmp",1 : load image "blob.bmp",2
rem Start net game
text 20,20,"Getting net game.." : sync
rem Init
sync on : sync rate 80 : draw to back
rem Start net game
PlayerNumber=default net game("gamename","playername",4,1)
if net game exists()=1
rem Show name of player as Window Title
if PlayerNumber=1
set window title "HOST Player "+str$(PlayerNumber)
else
set window title "CLIENT Player "+str$(PlayerNumber)
endif
rem Launch three more sessions as a demo
if PlayerNumber=1
cls 0
okok=0
while okok=0
text 20,20,"Make sure Firewall is configured."
text 20,35,"Launch More MP.EXE clients to"
text 20,50,"see multiplayer in action!"
text 20,65,"Remember to enter your local IP"
text 20,80,"to HOST or JOIN a network game"
text 20,95,"(i.e. 192.168.0.1)"
text 20,110,"Press Any Key"
tscancode=scancode()
if tscancode=31 then okok=1
if tscancode<>0 then okok=2
sync
endwhile
endif
rem Main loop
do
rem Draw Backdrop and handle player blob
paste image 1,0,0
send net message integer 0,mousex()+(mousey()*640)
sprite PlayerNumber, mousex()-32, mousey()-32, 2
rem Draw Others
get net message
while net message exists()=1
PositionValue=net message integer()
OtherNumber=net message player from()
OtherY=PositionValue/640
OtherX=PositionValue-(OtherY*640)
sprite OtherNumber, OtherX, OtherY, 2
get net message
endwhile
rem Update and/or Quit key
sync : if escapekey()=1 then exit
loop
rem End net game
free net game
else
do : cls 0 : center text 160,113,"COULD NOT CREATED NET GAME" : sync : loop
endif
Join The dark Side! We have cookies
