Sorry your browser is not supported!

always active on
set window on

`determine if we are hosting or joining
input "Press h for Host and j for join... ",HostJoin$

perform checklist for net connections
`display connection types
for Num = 1 to checklist quantity()
   print str$(Num) + " " + checklist string$(Num)
next Num
input "Select a connection type... ",ConnectType

input "Enter host IP ",Adress$
set net connection ConnectType,Adress$

`if we are hosting
if HostJoin$ = "h"
   create net game "MultyTest", "Player 1", 2,1
endif


if HostJoin$ = "j"
   empty checklist
   perform checklist for net sessions

   `don't try to join anything until there is a game
   repeat
   until checklist quantity() > 0

   `display games
   for Num = 1 to checklist quantity()
      print str$(num) + " " + checklist string$(Num)
   next Num
   input "Select a game... ",GameNum

   `join the selected game
   join net game GameNum,"Player 2"
endif

`clear the screen
cls


do

perform checklist for net players
for Num = 1 to checklist quantity()
   text 0,15*Num + 15,checklist string$(Num)
next Num

while net message exists() = 1
   `get net message
   `if net message type() = 3
      `ink 0,0
      `box 0,0,50,50
      `ink rgb(255,255,255),0
      `cls6
      text 0,0,str$(net message integer())
      get net message
   `endif
endwhile
`MSG$ = MSG$ + inkey$()
`if returnkey() = 1 then Send net message string 0,MSG$ : MSG$ = ""
send net message integer 0,rnd(456)
randomize timer()
loop