Rem Project: MMORPG
Rem Created: 9/29/2002 3:54:01 PM
sync on : sync rate 80 : draw to back
cls rgb(150,40,80)
get image 1,0,0,30,30
cls rgb(150,0,0)
get image 2,0,0,10,100
cls rgb(0,0,150)
get image 3,0,0,10,100
cls rgb(0,0,0)
rem Start net game
CREATE NET GAME "Gamename","Playername",2,1
playernumber=1
if net game exists()=1
rem Show name of player as Window Title
if PlayerNumber=1
set window title "HOST Player "+str$(PlayerNumber)
else
set window title "CLIENT Player "+str$(PlayerNumber)
endif
SET CAMERA VIEW 0, 0, screen width(),screen height()
make object cube PlayerNumber,40
position object PlayerNumber,0,6,20
color object PlayerNumber,rgb(150,0,0)
make matrix 1,500,500,10,10
rem Main loop
make memblock 1,8
make memblock 2,8
Health#=100
Magic#=100
sprite 1,0,0,2
sprite 2,30,0,3
text$ = ""
finaltext$ = ""
chatmode = 0
set text opaque
ink rgb(150,0,0),rgb(0,0,0)
do
text 0,screen height()-20,chat$
`gosub CheckInput
gosub handle_player
gosub handle_others
rem Update and/or Quit key
sync : if escapekey()=1 then exit
loop
rem End net game
free net game
else
do : cls 0 : center text 160,113,"COULD NOT CREATE NET GAME" : sync : loop
endif
handle_player:
`CONTROLS
if leftkey()=1 then position object PlayerNumber,Object Position x(PlayerNumber)-1,6,object position z(PlayerNumber)
if rightkey()=1 then position object PlayerNumber,Object Position x(PlayerNumber)+1,6,object position z(PlayerNumber)
if upkey()=1 then position object PlayerNumber,Object Position x(PlayerNumber),6,object position z(PlayerNumber)+1
if downkey()=1 then position object PlayerNumber,Object Position x(PlayerNumber),6,object position z(PlayerNumber)-1
data$=str$(playernumber)+","+str$(object position x(playernumber))+","+str$(object position z(playernumber))
send net message string 0,data$
position camera object position x(PlayerNumber),40,object position z(PlayerNumber)-70
point camera object position x(PlayerNumber),6,object position z(PlayerNumber)
`STATS
scale sprite 1,Health#
scale sprite 2,Magic#
return
handle_others:
rem Draw Others
get net message
while net message exists()=1
OtherNumber$=MID$(data$,1)
OtherX$=MID$(data$,2)
OtherZ$=MID$(data$,3)
if object exist(val(OtherNumber$))=0 then make object cube val(OtherNumber$),40
color object OtherNumber,rgb(0,0,150)
position object val(OtherNumber$),val(OtherX$),6,val(OtherZ$)
get net message
endwhile
return
for some reson if I leave this on for a while it says:
number needs to be from 1 to 60000whatever, then it hightlights sync : if escapekey()=1 then exit, what wrong, plese try join the game too and see whats wronge about that
ps: the code command wont work
As I walk through the vally of the shadow of death, I will fear no evil.
- Psalms 23:4
