5
5
__ = require 'underscore'
6
6
--inspect = require 'inspect'
8
Player = Animation:extend {
9
image = 'data/player.png',
13
stand = { frames = { 1 }, fps = 1 },
14
walk = { frames = { 2, 3 }, fps = 5 },
15
jump = { frames = { 4 }, fps = 1 },
16
climbLeft = { frames = { 5, 6 }, fps = 5 },
17
climbRight = { frames = { 7, 8 }, fps = 5 }
22
onNew = function (self)
24
self.maxVelocity.y = 400
26
doPhysics = function (self, dir, elapsed)
27
local vel = self.velocity
28
local acc = self.acceleration
29
local drag = self.drag
30
local minVel = self.minVelocity
31
local maxVel = self.maxVelocity
33
-- check existence of properties
36
assert(vel, 'active sprite has no velocity property')
37
assert(acc, 'active sprite has no acceleration property')
38
assert(drag, 'active sprite has no drag property')
39
assert(minVel, 'active sprite has no minVelocity property')
40
assert(maxVel, 'active sprite has no maxVelocity property')
41
assert(__.include({'x','y','rotation'}, dir), 'direction should be x, y, or rotation')
46
vel.rotation = vel.rotation or 0
50
if acc[dir] and acc[dir] ~= 0 then
51
vel[dir] = vel[dir] + acc[dir] * elapsed
55
vel[dir] = vel[dir] - drag[dir] * elapsed
56
if vel[dir] < 0 then vel[dir] = 0 end
57
elseif vel[dir] < 0 then
58
vel[dir] = vel[dir] + drag[dir] * elapsed
59
if vel[dir] > 0 then vel[dir] = 0 end
64
if minVel[dir] and vel[dir] < minVel[dir] then vel[dir] = minVel[dir] end
65
if maxVel[dir] and vel[dir] > maxVel[dir] then vel[dir] = maxVel[dir] end
67
if vel[dir] ~= 0 then self[dir] = self[dir] + vel[dir] * elapsed end
69
onStartFrame = function (self)
70
-- this is all in startframe so it happens before
71
-- physics calc at beginning of update
73
-- jumping/falling updates could go in EndFrame...
74
self.falling = self.velocity.y > 0
75
if self.falling then self.jumping = false end
76
--print(self.jumping, self.falling)
78
if (not self.onGround) and (not self.onWall) then
82
self.acceleration.y = 800
85
self.acceleration.y = 0
87
if self.onWall == 'right' then
88
self:play('climbRight')
89
elseif self.onWall == 'left' then
90
self:play('climbLeft')
93
if the.keys:pressed('up') then
94
self.velocity.y = -200
95
elseif the.keys:pressed('down') then
99
self:freeze(self.sequences[self.currentName].frames[1])
103
if the.keys:pressed('left') then
104
self.velocity.x = -200
105
if self.onGround then self:play('walk') end
106
if self.onWall == 'right' then
108
self.leftWallAt = love.timer.getTime()
110
elseif the.keys:pressed('right') then
111
self.velocity.x = 200
112
if self.onGround then self:play('walk') end
113
if self.onWall == 'left' then
115
self.leftWallAt = love.timer.getTime()
118
if not self.onWall then
119
if self.onGround then self:play('stand') end
124
if the.keys:justPressed('up') and
126
(love.timer.getTime() - self.leftWallAt < .1) ) then
127
self.velocity.y = -400
131
update = function (self, elapsed)
132
-- NOTE: this is an override, not a callback
134
self:doPhysics('x', elapsed)
135
self:collide(the.view.map)
137
-- handle X collisions
139
for _, col in ipairs(self.collisions) do
140
col.other:displaceDir(self, 'x')
141
if self.velocity.x > 0 then
142
self.onWall = 'right'
143
elseif self.velocity.x < 0 then
150
self.onGround = false -- right before Y collision callbacks
151
self:doPhysics('y', elapsed)
152
self:collide(the.view.map)
154
-- handle Y collisions
155
for _, col in ipairs(self.collisions) do
156
if self.velocity.y > 0 then
160
col.other:displaceDir(self, 'y')
165
Animation.update(self, elapsed)
167
collide = function (self, ...)
169
Animation.collide(self, ...)
170
-- I could return a true/false value here if I wanted to...
172
onCollide = function (self, other, xOverlap, yOverlap)
173
if other == the.view.map then return end
175
table.insert(self.collisions, {other = other,
177
yOverlap = yOverlap })
181
function Sprite:displaceDir(other, dir)
182
if not self.solid or self == other or not other.solid then return end
183
if STRICT then assert(other:instanceOf(Sprite), 'asked to displace a non-sprite') end
185
if other.sprites then
188
for _, spr in pairs(other.sprites) do
189
self:displace(spr, dir)
194
12
if dir == 'x' then
196
14
elseif dir == 'y' then
202
local negMove = (other[dir] - self[dir]) + other[dim]
203
local posMove = (self[dir] + self[dim]) - other[dir]
205
-- TODO: re-add hinting?
206
if negMove < posMove then
17
if STRICT then error('dir '..dir) end
213
other[dir] = other[dir] + chg
216
22
GameView = View:extend {
217
23
onNew = function (self)
218
24
self:loadLayers('data/map.lua')
219
25
self.focus = the.player
220
26
self:clampTo(self.map)
28
the.recorder = Recorder:new{mousePosInterval = 9999}
29
the.app.meta:add(the.recorder)
30
if the.app.record then
31
the.recorder:startRecording()
32
elseif the.app.playback then
33
local storage = Storage:new{filename = 'record.lua'}
35
--print(inspect(storage.data))
36
the.recorder.record = storage.data
37
the.recorder:startPlaying()
222
40
onUpdate = function (self)
41
--print('drawTook: ', the.drawTook)
224
43
--the.player:collide(self.map)
225
44
--self.map:collide(the.player)
46
-- draw = function (self, x, y)
47
-- View.draw(self, x, y)
49
-- love.graphics.print('FPS:' .. love.timer.getFPS(), 20, 20)
229
53
the.app = App:new {
230
55
onRun = function (self)
231
56
self.view = GameView:new()
232
57
self.console:watch('onGround', 'the.player.onGround')
233
58
self.console:watch('onWall', 'the.player.onWall')
59
self.console:watch('updateTook', 'the.updateTook')
60
self.console:watch('drawTook', 'the.drawTook')
61
self.console:watch('recorder state', 'the.recorder.state')
63
--the.profiler = newProfiler('time', 2000)
64
--the.profiler = newProfiler()
65
--the.profiler:start()
235
67
onUpdate = function (self, dt)
236
if the.keys:justPressed('escape') and
237
not self.console.visible then
68
if the.keys:justPressed('escape') then
71
local outfile = io.open( "profile.txt", "w+" )
72
the.profiler:report( outfile )
77
if not love.filesystem.remove('record.lua') then
78
print('could not remove record.lua')
80
local storage = Storage:new{
81
data = the.recorder.record,
82
filename = 'record.lua'
85
--print(inspect(the.recorder.record))
b'\\ No newline at end of file'
91
update = function (self, dt)
92
the.updateStart = love.timer.getMicroTime()
94
if the.updateStart then
95
the.updateTook = love.timer.getMicroTime() - the.updateStart
100
function love.load (arg)
101
opts = getopt(arg, '')
103
the.app.playback = true
104
the.app.record = false
105
elseif opts['r'] then
106
the.app.record = true
b'\\ No newline at end of file'