diff options
| -rw-r--r-- | client/main.lua | 56 | ||||
| -rw-r--r-- | server/server.lua | 55 |
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 |