For some reason i go to connect to someone ive tried 3 people so far and it wont display any sessions going.
cls
set window on
print "1.)host Game"
print "2.)Join Game"
print
input "select option: ",poop
if poop = 1 then goto hosto
if poop = 2 then goto joino
hosto:
cls
perform checklist for net connections
print "CONNECTION SELECTION (";checklist quantity();")"
for n=1 to checklist quantity()
print "[ ";n; " ] ";checklist string$(n)
next n
input "Select Connection: ",connecto
input "Type in your ip address: ",ipaddy$
set net connection connecto,ipaddy$
cls
input "Your name: ",pname1$
input "Game name: ",gname$
input "Max Players(255): ",players1
create net game gname$,pname1$,players1,2
if net game exists() = 1
print "NET GAME "+gname$+" CREATED"
goto getonwiffit
endif
end
joino:
perform checklist for net connections
print "CONNECTION SELECTION (";checklist quantity();")"
for n=1 to checklist quantity()
print "[ ";n; " ] ";checklist string$(n)
next n
input "Select Connection: ",connecto
input "Type in ip address: ",ipaddy$
set net connection connecto,ipaddy$
cls
input "Your name: ",pname1$
perform checklist for net sessions
print "CONNECTION SELECTION (";checklist quantity();")"
for n=1 to checklist quantity()
print "[ ";n; " ] ";checklist string$(n)
next n
input "Session to connect to: ",connecta
join net game connecta,pname1$
if net game exists() = 1
Print "Joined Game!"
goto getonwiffit
endif
end
getonwiffit:
cls
repeat
if inkey$()="s"
input "Message: ",msg1$
send net message string 0,pname1$+" "+msg1$
endif
poopo$ = STR$(net game now hosting())
text 200,200,"Hosting
1-yes,0-no) "+poopo$
get net message
if net message exists() = 1
print net message string$()
endif
until inkey$() = "q"
if god = infinity and infinity = 0 then god = 0
