BlitzNet Optica availiable now!

Import "Network.bmx"


Local server:TServer = TServer.Create(5555 )

Local player:TClass = Tclass.create("Ship")
player.AddFloat("X",100,False)
player.AddFloat("Y",100,False)
Local nl:TLogger = Tlogger.Create("Server")

server.addClassTemplate( player )

Local fc=0
Local play:TClass
Repeat

	nl.update()
	server.update()

	
	Delay 20
Forever

Strict
Import "Network.bmx"

Local ip$=Input("Network I.P(Leave blank for 127.0.0.1)")
If ip=""
	ip="127.0.0.1"
EndIf
Global name:String =  Input("Name>")
Local nl:TLogger = Tlogger.Create(name)

'Set up client.
Global client:TClient = TClient.Create( name,ip,5555 )

'Create player class template
Local ship:TClass = Tclass.create("Ship")
ship.addFloat("X",100,False)
ship.addFloat("Y",100,False)
client.addClassTemplate( ship )

'---Wait till connected
SeedRnd( MilliSecs() )


'Register Event call back

client.RegisterEventCallBack( New DemoCallBack )

'---Create Event callback class.
Type DemoCallBack Extends NEventCallBack
	Method OnNewClass( event:NEvent )
		
		Select event.own.class
			Case "Ship"
				Print "Spawned "+event.own.name
				Local b:Bot = CreateBot( event.own.name,event.own )
				event.own.setData( b )
				
		End Select
	
	End Method
	
	Method OnDeleteClass( event:NEvent )
		netlog.log "On delete called."
		
		Select event.own.class
			Case "Ship"
				netlog.log "Disconnecting"
				Local b:bot = Bot( event.own.getData() )
				If b = Null
					Print " no data to remove "
				EndIf
				bots.remove( b )
				
				Print event.own.name+" Disconnected"
		End Select
	
	End Method
	
	Method OnConnect( event:NEvent )

		Print "Connected.."
		Local play:TClass = client.SpawnClass("Ship",name )
		Player = CreateBot( name,play )
		player.loc = True
		play.SetData( Object( Player ) )
				
	End Method
	
	Method OnUpdateVar( event:NEvent )
	
		Local b:Bot = Bot( event.own.getData() )
		
		Select event.varo.name
		
			Case "X"
				
				b.x = event.varo.val
				Print "Updated X To:"+b.x		
			Case "Y"
			
				b.y = event.varo.val
				Print "Updated Y To:"+b.y
		
		End Select
	
	End Method

End Type


'Bot List and Local Player object
Global Bots:Tlist = CreateList()
Global Player:Bot

Type bot
	
	Field net:TClass
	Field x#,y#
	Field loc
	Method Draw()
		DrawRect x-10,y-10,20,20
	End Method

End Type

Graphics 320,240,0


Repeat
Cls
	
	nl.update()
	client.update()
	
	If MouseDown(1)
		If player.net<>Null
		client.deleteClass( player.net )
		player.net = Null
		EndIf
		
	End If
	
	If player<>Null And player.net<>Null
		player.x:+1
		player.y:+1
		player.x = MouseX()
		player.y = MouseY()	
		'If player.x>320
	'		player.x=0
	'	EndIf
	'	If player.y>240
	'		player.y=0
	'	End If
		player.net.setfloat("X",player.x,True )
		player.net.setfloat("Y",player.y,True )
	EndIf
	
	
	
	
	
	
	
	client.ClearEvents()
	For Local b:Bot = EachIn bots
		
		
		b.draw()
	Next
	If player<>Null
		DrawText "X:"+player.x+" Y:"+Player.y,1,1
	EndIf
	
Flip

Until KeyDown(KEY_ESCAPE)
	
Function CreateBot:Bot( name:String,class:TClass )
	
	Local b:Bot = New bot
	b.net = class
	bots.addlast( b )
	Return b
	
End Function

Procedure.s ETNA_RC4(Inp.s,Key.s)
  Dim S.w(255)
  Dim K.w(255)
  i.l=0: j.l=0: t.l=0: x.l=0
  temp.w=0: Y.w=0
  Outp.s=""

    For i = 0 To 255
        S(i) = i
    Next

    j = 1
    For i = 0 To 255
        If j > Len(key)
            j = 1
        EndIf
        K(i) = Asc(Mid(key, j, 1))
        j = j + 1
    Next i

    j = 0
    For i = 0 To 255
        j = (j + S(i) + K(i)) & 255
        temp = S(i)
        S(i) = S(j)
        S(j) = temp
    Next i

    i = 0
    j = 0
    For x = 1 To Len(inp)
        i = (i + 1) & 255
        j = (j + S(i)) & 255
        temp = S(i)
        S(i) = S(j)
        S(j) = temp
        t = (S(i) + (S(j) & 255)) & 255
        Y = S(t)
        Outp = Outp + Chr(Asc(Mid(inp, x, 1))!Y)
    Next
  ProcedureReturn Outp
EndProcedure

; Specify to ETNA the server address where are located the PHP files. 
; server = Server address.
Function ETNA_Initialise(server)
End Function 

	function encrypt ($pwd, $data)
		{

			$key[] = '';
			$box[] = '';
			$cipher = '';

			$pwd_length = strlen($pwd);
			$data_length = strlen($data);

			for ($i = 0; $i < 256; $i++)
			{
				$key[$i] = ord($pwd[$i % $pwd_length]);
				$box[$i] = $i;
			}
			for ($j = $i = 0; $i < 256; $i++)
			{
				$j = ($j + $box[$i] + $key[$i]) % 256;
				$tmp = $box[$i];
				$box[$i] = $box[$j];
				$box[$j] = $tmp;
			}
			for ($a = $j = $i = 0; $i < $data_length; $i++)
			{
				$a = ($a + 1) % 256;
				$j = ($j + $box[$a]) % 256;
				$tmp = $box[$a];
				$box[$a] = $box[$j];
				$box[$j] = $tmp;
				$k = $box[(($box[$a] + $box[$j]) % 256)];
				$cipher .= chr(ord($data[$i]) ^ $k);
			}
			return $cipher;
		}
	


		function decrypt ($pwd, $data)
		{
			return rc4crypt::encrypt($pwd, $data);
		}