initial

2 files changed, 111 insertions, 0 deletions

diff --git a/client/main.lua b/client/main.lua
new file mode 100644
index 0000000..dbef847
--- /dev/null
+++ b/client/main.lua
@@ -0,0 +1,56 @@
+local G = love.graphics
+local Camera = require'r.camera'
+local Pos = require'r.pos'
+local class = require'r.class'
+local enet = require'enet'
+local pprint = require'pprint'
+local json = require'dkjson'
+
+local host = enet.host_create()
+local conn = host:connect('localhost:19683')
+
+local players = {}
+local chunks = {}
+local colors = {[true]={141/255,128/255,22/255}, [false]={71/255,50/255,122/255}}
+return chunk and chunk[1+p.x*64+p.y] end
+
+local function draw_player(p, c) G.setColor(c) G.circle('fill',p.x,p.y,0.3) end
+
+local SPEED = 8 -- tiles per second
+local lp = { pos=Pos(0,0), movetimer=0, dir=nil } -- local player
+local directions = {w=Pos(0,-1),a=Pos(-1,0),s=Pos(0,1),d=Pos(1,0)}
+function love.keypressed(k,s,r) if directions[s] then lp.dir=s end end
+function love.keyreleased(k,s)  if s==lp.dir then lp.dir=nil end end
+function lp.update(dt)
+	lp.movetimer = lp.movetimer - dt
+	if lp.movetimer <= 0 and lp.dir then
+		local d = directions[lp.dir] local newpos = lp.pos+d
+		if tile(newpos) == false then
+			lp.pos = newpos
+			conn:send(json.encode{type='move',x=newpos.x,y=newpos.y})
+			lp.movetimer = 1 / SPEED  end end end
+function lp.draw() draw_player(lp.pos, {0,1,0}) end
+
+local cam = Camera(nil, 64)
+function love.update(dt)
+	lp.update(dt)
+	local ev = host:service()  while ev do
+		-- pprint(ev)
+		if ev.type == 'receive' then local j = json.decode(ev.data)
+				if j.type == 'player' 	then players[j.name] = {name=j.name,pos=Pos(j.x,j.y)}
+			elseif j.type == 'unplayer' then players[j.from] = nil
+			elseif j.type == 'move' 	then players[j.from].pos = Pos(j.x,j.y)
+			elseif j.type == 'chunk'	then chunk = j.d
+			end
+		end
+		ev = host:service()
+	end
+end
+function love.draw()
+	G.clear(1,1,1); G.origin()
+	cam.pos = lp.pos; cam:apply_trans()
+	if chunk then for x=0,63 do for y=0,63 do
+		G.setColor(colors[chunk[1+x*64+y]]) G.rectangle('fill',x-0.5,y-0.5,1,1) end end end
+	lp.draw()
+	for _,player in pairs(players) do draw_player(player.pos,{0,1,1}) end
+end
diff --git a/server/server.lua b/server/server.lua
new file mode 100644
index 0000000..fa7f82f
--- /dev/null
+++ b/server/server.lua
@@ -0,0 +1,55 @@
+local pprint = require'pprint'
+local enet = require'enet'
+local json = require'dkjson'
+local Pos = require'r.pos'
+local pairs_except = require'r.pairs_except'
+local class = require'r.class'
+
+local host = enet.host_create('*:19683')
+
+local n = 0
+local function next_name() n=n+1  return 'helen'..n end
+
+local Player = class()
+function Player.make(cls, obj) return setmetatable(obj,cls) end
+function Player.packet(self,packet_type) return json.encode     {
+	name=self.name, x=self.pos.x, y=self.pos.y, type=packet_type } end
+
+local size = 64
+local chunk = {}
+for i=1,size*size do chunk[i] = 1 == math.random(3) end
+function chunk.packet(self,packet_type)
+	local r = {type=packet_type,d={}}  for i,t in ipairs(self) do r.d[i]=t end
+	return json.encode(r) end
+
+local players = {}
+local function find_player(arg) local k,v = next(arg)
+	for pl in pairs(players) do if pl[k] == v then return pl end end end
+local function other_players(player) return pairs_except(players, player) end
+
+local function send_others(player,data)
+	data.from = player.name   local packet = json.encode(data)
+	for player2 in other_players(player) do player2.peer:send(packet) end end
+
+local function greet(player)
+	for player2 in other_players(player) do
+		player.peer:send(player2:packet'player')
+		player2.peer:send(player:packet'player') end
+	player.peer:send(chunk:packet'chunk')        end
+
+while true do  local ev = host:service(100)  if ev then
+	local peer = ev.peer  local player = find_player{peer=peer}
+	if ev.type=='connect' then
+		print('connecting',peer)
+		local player = Player{pos=Pos(0,0), peer=peer, name=next_name()}
+		players[player] = true;  greet(player)
+	elseif ev.type=='disconnect' then
+		print('disconnecting',peer)
+		send_others(player, {type='unplayer'})
+		players[player] = nil 
+	else local j = json.decode(ev.data)
+		-- todo handle json error
+		if j.type == 'move' then player.pos=Pos(j.x,j.y)  send_others(player, j)
+		end
+	end
+end end