Sorry your browser is not supported!

Rem Project: Net practice2
Rem Created: 5/3/2003 10:13:48 PM

Rem ***** Main Source File ******

set window on
set window size 800,600
set display mode 800,600,16



print "1=make game"
print "2=joingame"
do
if scancode()=2 then goto makegame
if scancode()=3 then goto joingame
loop
joingame:


perform checklist for net connections
sleep 50
for a = 1 to checklist quantity()
print checklist string$(a)
next a

input "---", conn


set net connection conn
sleep 50




perform checklist for net sessions
if checklist quantity()<1 then end
for s=1 to checklist quantity()
print checklist string$(s)
next s
input "Whihc Net game",sc







join net game sc, "Fred"

perform checklist for net players

for p=1 to checklist quantity()
print checklist string$(p)
next p
goto gamebegin


end

makegame:
create net game "harry","nick",2,2
print "oh yeah2"
gamebegin:
box 0,0,40,40
get image 1,0,0,40,40
suspend for key


do
perform checklist for net players
for nums=0 to checklist quantity()

if nums=0 then goto firstplay
if nums=1 then goto secplay
next nums



loop
function firstplay()
`sync on
x1=200
y1=200

do
y1=y1
x1=x1
y2=y2
x2=x2


sprite 1,x1,y1,1

sprite 2,x2,y2,1


if rightkey()=1
x1=x1+1

send net message integer 0,sprite x(1)


else if leftkey()=1
x1=x1+-1

send net message integer 0,sprite x(1)


else if upkey()=1
y1=y1+-1

send net message integer 0,sprite y(1)


else if downkey()=1
y1=y1+1

send net message integer 0,sprite y(1)


endif
endif
endif
endif

get net message
x2=net message integer()
y2=net message integer()




`sync
loop
endfunction

function secplay()
`sync on
x2=100
y2=100

do
y1=y1
x1=x1
y2=y2
x2=x2


sprite 2,x2,y2,1


sprite 1,x1,y1,1

if rightkey()=1
x2=x2+1
send net message integer 0,sprite x(2)


else if leftkey()=1
x2=x2+-1
send net message integer 0,sprite x(2)


else if upkey()=1
y2=y2+-1
send net message integer 0,sprite y(2)


else if downkey()=1
y2=y2+1
send net message integer 0,sprite y(2)


endif
endif
endif
endif

get net message
x1=net message integer()
y1=net message integer()



`sync
loop
endfunction