sync rate 0
set window on
perform checklist for net connections
sleep 1000
o = checklist quantity()
for i=0 to o-1
print checklist string$(o)
sleep 1000
next i
sleep 1000
input "What type of net connection do you want? ",nc
set net connection nc
sleep 1000
perform checklist for net sessions
q = checklist quantity()
for w=0 to q-1
print checklist string$(q)
sleep 1000
next w
if q=0
input "Create net game y/n? ",yn$
input "Gamename? ",gn$
input "Player name? ",pn$
input "Max number of players? (max 255) ",np
sleep 1000
create net game gn$,pn$,np
if net game exists()=1
print "Net game sucessfully created!"
sleep 1000
cls
endif
endif
do
npc = 2
if inkey$() = "p"
cls
endif
if inkey$() = "q"
set cursor 5,420
input "Command: ",cmd$
if cmd$ = "send string"
input "text to send: ",tts$
send net message string nvc,tts$
endif
if cmd$ = "send integer"
input "value to send: ",tvs
send net message integer nvc,tvs
endif
if cmd$ = "send float"
input "value to send: (using .) ",fts#
send net message float npc,fts#
endif
if cmd$ = "get message"
get net message
if net message exists() = 1
if net message type() = 3
print "STRING: ";
print net message string$()
endif
if net message type() = 2
print "FLOAT: ";
print net message float()
endif
if net message type() = 1
print "INTEGER: ";
print net message integer()
endif
endif
endif
endif

get net message

if net message exists() = 1
` message types
` 1 = integer
` 2 = float
` 3 = string
` 4 = memblock
if net message type() = 3
print "STRING: ";
print net message string$()
endif
if net message type() = 2
print "FLOAT: ";
print net message float()
endif
if net message type() = 1
print "INTEGER: ";
print net message integer()
endif
` i'll add memblocks soon :)
endif
sync
loop