bzr branch
http://9ix.org/bzr/zoeplat
|
2
by Josh C
basic tiles, map, player, movement |
1 |
STRICT = true |
2 |
DEBUG = true |
|
3 |
||
4 |
require 'zoetrope' |
|
|
12
by Josh C
only jump when you're on the ground |
5 |
--inspect = require 'inspect' |
6 |
--_ = require 'underscore' |
|
|
2
by Josh C
basic tiles, map, player, movement |
7 |
|
|
10
by Josh C
make player an animation |
8 |
Player = Animation:extend {
|
|
2
by Josh C
basic tiles, map, player, movement |
9 |
image = 'data/player.png', |
|
10
by Josh C
make player an animation |
10 |
height = 32, |
11 |
width = 32, |
|
12 |
sequences = {
|
|
13 |
stand = { frames = { 1 }, fps = 1 },
|
|
14 |
walk = { frames = { 2, 3 }, fps = 5 },
|
|
15 |
jump = { frames = { 4 }, fps = 1 }
|
|
16 |
}, |
|
|
3
by Josh C
jump |
17 |
onNew = function (self) |
18 |
self.velocity.y = 0 |
|
|
5
by Josh C
use built-in maxVelocity system |
19 |
self.maxVelocity.y = 400 |
|
3
by Josh C
jump |
20 |
end, |
|
4
by Josh C
fix jitter caused by focus shift happening in the wrong order. Looks |
21 |
onStartFrame = function (self) |
22 |
-- this is all in startframe so it happens before |
|
23 |
-- physics calc at beginning of update |
|
|
3
by Josh C
jump |
24 |
|
|
12
by Josh C
only jump when you're on the ground |
25 |
-- jumping/falling updates could go in EndFrame... |
26 |
self.falling = self.velocity.y > 0 |
|
27 |
if self.falling then self.jumping = false end |
|
28 |
--print(self.jumping, self.falling) |
|
29 |
||
|
13
by Josh C
reapply jump animation after Y collision. (there's a frame of no |
30 |
if not self:onGround() then |
31 |
self:play('jump')
|
|
32 |
end |
|
33 |
||
|
6
by Josh C
whitespace cleanup |
34 |
self.velocity.x = 0 |
35 |
self.acceleration.y = 800 |
|
36 |
||
37 |
if the.keys:pressed('left') then
|
|
38 |
self.velocity.x = -200 |
|
|
12
by Josh C
only jump when you're on the ground |
39 |
if self:onGround() then self:play('walk') end
|
|
6
by Josh C
whitespace cleanup |
40 |
elseif the.keys:pressed('right') then
|
41 |
self.velocity.x = 200 |
|
|
12
by Josh C
only jump when you're on the ground |
42 |
if self:onGround() then self:play('walk') end
|
|
10
by Josh C
make player an animation |
43 |
else |
|
12
by Josh C
only jump when you're on the ground |
44 |
if self:onGround() then self:play('stand') end
|
|
6
by Josh C
whitespace cleanup |
45 |
end |
46 |
||
|
12
by Josh C
only jump when you're on the ground |
47 |
if the.keys:justPressed('up') and self:onGround() then
|
|
6
by Josh C
whitespace cleanup |
48 |
self.velocity.y = -400 |
|
12
by Josh C
only jump when you're on the ground |
49 |
self.jumping = true |
|
6
by Josh C
whitespace cleanup |
50 |
end |
51 |
end, |
|
|
12
by Josh C
only jump when you're on the ground |
52 |
onEndFrame = function (self) |
53 |
--print(self.velocity.y) |
|
54 |
end, |
|
|
8
by Josh C
some basic collision (and workarounds) |
55 |
onCollide = function (self, other, xOverlap, yOverlap) |
56 |
-- seriously, why does this even fire? |
|
57 |
if other == the.view.map then return end |
|
58 |
||
59 |
--print(string.format('col s{x=%i y=%i w=%i h=%i} %s', self.x, self.y, self.width, self.height, tostring(other)))
|
|
60 |
--print('vel.x:'..self.velocity.x.." vel.y:"..self.velocity.y)
|
|
61 |
||
62 |
-- assumption: any other collision is with a solid map tile |
|
63 |
if yOverlap > xOverlap then |
|
64 |
other:displace(self) |
|
65 |
elseif xOverlap > yOverlap then |
|
66 |
-- check if we've moved since collisions were generated |
|
67 |
local xov, yov = self:overlap(other.x, other.y, |
|
68 |
other.width, other.height) |
|
69 |
if xov ~= 0 and yov ~= 0 then |
|
70 |
self.velocity.y = 0 |
|
71 |
other:displace(self) |
|
|
12
by Josh C
only jump when you're on the ground |
72 |
self.jumping = false |
|
8
by Josh C
some basic collision (and workarounds) |
73 |
end |
74 |
else |
|
75 |
print('??')
|
|
76 |
end |
|
77 |
||
|
12
by Josh C
only jump when you're on the ground |
78 |
end, |
79 |
onGround = function (self) |
|
80 |
return (not self.jumping) and (not self.falling) |
|
81 |
end |
|
|
2
by Josh C
basic tiles, map, player, movement |
82 |
} |
83 |
||
84 |
GameView = View:extend {
|
|
85 |
onNew = function (self) |
|
86 |
self:loadLayers('data/map.lua')
|
|
87 |
self.focus = the.player |
|
88 |
self:clampTo(self.map) |
|
|
8
by Josh C
some basic collision (and workarounds) |
89 |
end, |
90 |
onUpdate = function (self) |
|
91 |
--print('tick')
|
|
92 |
the.player:collide(self.map) |
|
93 |
--self.map:collide(the.player) |
|
94 |
end |
|
|
2
by Josh C
basic tiles, map, player, movement |
95 |
} |
96 |
||
97 |
the.app = App:new {
|
|
98 |
onRun = function (self) |
|
99 |
self.view = GameView:new() |
|
|
12
by Josh C
only jump when you're on the ground |
100 |
--print(inspect(_(the.app):keys())) |
|
2
by Josh C
basic tiles, map, player, movement |
101 |
end, |
102 |
onUpdate = function (self, dt) |
|
|
12
by Josh C
only jump when you're on the ground |
103 |
-- TODO: make this not work if debug console is active |
104 |
if the.keys:justPressed('escape') then
|
|
105 |
love.event.quit() |
|
106 |
end |
|
|
2
by Josh C
basic tiles, map, player, movement |
107 |
end |
108 |
} |