I've been trying to make a very simple connection in DB. The computers connect, but the message is never sent. The checklist is just to make sure the computers are connected.
This is the server...
sync rate 45
set net connection 3, "24.84.34.143"
create net game "Chat Client", "Server Side", 8
Print "Server Established!"
Do
if net message exists() = 1
get net message
playerfrom = net message player from()
recmess$ = net message string$()
send net message string 0, "Client #" + str$(playerfrom) + ": " + remcmess$
print recmess$
endif
Loop
And this is the client...
sync rate 45
sync off
input "Enter Name: ", playername$
set net connection 3, "24.84.34.143"
join net game 1, playername$
if net game exists() = 1
Print "Joined Server!"
else
Print "Cannot Connect..."
endif
msg$ = ""
do
remstart
msg$ = msg$ + entry$()
clear entry buffer
if returnkey() = 1
send net message string 1, msg$
msg$ = ""
endif
remend
if upkey() = 1
perform checklist for net players
total = checklist quantity()
for a = 1 to total
print checklist string$(a) + " " + str$(checklist value a(a)) + " " + str$(checklist value b(a)) + " " + str$(checklist value c(a)) + " " + str$(checklist value d(a))
next a
endif
if downkey() = 1 then send net message string 0, "This is a test."
if net message exists() = 1
get net message
recmess$ = net message string$()
print recmess$
endif
loop
