summaryrefslogtreecommitdiff
path: root/server/server.lua
diff options
context:
space:
mode:
Diffstat (limited to 'server/server.lua')
-rw-r--r--server/server.lua55
1 files changed, 55 insertions, 0 deletions
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