1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
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
|
