home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / examples / multiplayer / multiplayer1-example.dba < prev    next >
Encoding:
Text File  |  2004-09-22  |  1.4 KB  |  54 lines
  1. rem Multiplayer Showcase
  2. sync on : sync rate 80 : draw to back
  3.  
  4. rem Load backdrop and blob
  5. load image "face.bmp",1 : load image "blob.bmp",2
  6.  
  7. rem Start net game
  8. PlayerNumber=default net game("gamename","playername",4,1)
  9. if net game exists()=1
  10.  
  11.  rem Show name of player as Window Title
  12.  if PlayerNumber=1
  13.   set window title "HOST Player "+str$(PlayerNumber)
  14.  else
  15.   set window title "CLIENT Player "+str$(PlayerNumber)
  16.  endif
  17.  
  18.  rem Launch three more sessions as a demo
  19.  if PlayerNumber<4 then execute file "mp.exe","",""
  20.  if PlayerNumber=2 then set window position 320,0
  21.  if PlayerNumber=3 then set window position 0,240
  22.  if PlayerNumber=4 then set window position 320,240
  23.  
  24.  rem Main loop
  25.  do
  26.  
  27.   rem Draw Backdrop and handle player blob
  28.   paste image 1,0,0
  29.   send net message integer 0,mousex()+(mousey()*640)
  30.   sprite PlayerNumber, mousex()-32, mousey()-32, 2
  31.  
  32.   rem Draw Others
  33.   get net message
  34.   while net message exists()=1
  35.    PositionValue=net message integer()
  36.    OtherNumber=net message player from()
  37.    OtherY=PositionValue/640
  38.    OtherX=PositionValue-(OtherY*640)
  39.    sprite OtherNumber, OtherX, OtherY, 2
  40.    get net message
  41.   endwhile
  42.  
  43.   rem Update and/or Quit key
  44.   sync : if escapekey()=1 then exit
  45.  
  46.  loop
  47.  
  48.  rem End net game
  49.  free net game
  50.  
  51. else
  52.  do : cls 0 : center text 160,113,"COULD NOT CREATED NET GAME" : sync : loop
  53. endif
  54.