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