MMORPG

Graphics 320, 480, 0

Local My_server:TSocket=CreateTCPSocket()
BindSocket My_server,1233
SocketListen My_server

Type TClient
	Field sock:TSocket
	Field stream:Tsocketstream
	Field buffer:TBank
	Field data:TList
	Field lastmsg:String
End Type

clients:TList = CreateList()

While Not KeyDown(KEY_ESCAPE)
	'New connection?
	Local sock:TSocket=SocketAccept(My_server)
	If sock
		c:TClient=New TClient
		c.sock = sock
		c.buffer = CreateBank()
		c.data = CreateList()
		ListAddLast clients, c
	EndIf
	'Show connections
	DrawText ">Loops: "+l,10,10
	DrawText ">Connected: "+CountList(clients),10,20
	l:+1
	offset=30
	For c:TClient = EachIn clients
		'Connected?
		If SocketConnected(c.sock) Then
			clientname$ = DottedIP(SocketRemoteIP(c.sock))
			
			'New data/packets?
			buf=SocketReadAvail(c.sock)
			Rem
			bufsize=SizeOf(buf)
			size=BankSize(c.buffer)
			ResizeBank(c.buffer,1000)
			For p=0 To bufsize-1
				b:Byte=Byte(Mid(buf,p,1))
				If b=Null Then
					'Que packets
					ListAddLast c.data, c.buffer
					c.buffer = CreateBank()
				Else
					Print size
					Print bufsize
					Print p
					PokeByte(c.buffer,size+p,b)
				End If
			Next
			
			'Prossess packets
			For d:TBank = EachIn c.data
				data$=""
				For p=0 To BankSize(d)-1
					data=data+Chr(PeekByte(d,p))
				Next
				c.lastmsg=data
			Next
			EndRem
			For p=0 To SizeOf(buf)-1
				c.lastmsg=c.lastmsg+Chr(Int(Mid(buf,p,1)))
			Next
				
			DrawText clientname$+": "+c.lastmsg,10,offset
			offset:+10
		Else
		'Disconnect?
			CloseSocket(c.sock)
			ListRemove clients, c
		End If
	Next
	Flip
	Cls
Wend

For c:TClient = EachIn clients
	'CloseStream(c.stream)
	CloseSocket(c.sock)
	ListRemove clients, c
Next

Const Width=2000,Height=2000
Const ScreenWidth=20,ScreenHeight=20
Type Player
	Field ID
	Field X,Y
	Global List:TList
	Global Map:Player[Width,Height]

	Method New()
		X = Rand(0,Width-1)
		Y = Rand(0,Height-1)
		ID = Player.List.count()
		ListAddLast(Player.List,Self)
		Player.Map[X,Y] = Self
	End Method
End Type
Player.List = CreateList()

For t=0 To 3000
	Local p:Player = New Player
Next

'Loop players
For p:Player = EachIn Player.List
	For i=-ScreenWidth*0.5 To ScreenWidth*0.5-1
		For j=-ScreeHeight*0.5 To ScreenHeight*0.5-1
			If i+p.X>=0 And j+p.Y>=0 And i+p.X<Width And j+p.Y<Height Then
				Local p2:Player = Player.Map[i+p.X,j+p.Y]
				If p2 <> Null And p <> p2 Then
					Print p.ID+" sees "+Player.Map[i+p.X,j+p.Y].ID
				EndIf
			EndIf
		Next
	Next
Next