/zoeplat : revision 29

1

STRICT = true

2

DEBUG = true

3

RECORD = true

4

PLAYBACK = false

3

5

4

6

require 'zoetrope'

5

7

__ = require 'underscore'

6

8

--inspect = require 'inspect'

9

require 'pepperprof'

10

11

util = {

12

dim = function(dir)

13

if dir == 'x' then

14

return 'width'

15

elseif dir == 'y' then

16

return 'height'

17

else

18

if STRICT then error('dir '..dir) end

19

end

20

end

21

}

7

22

8

23

Player = Animation:extend {

9

24

image = 'data/player.png',

12

27

sequences = {

13

28

stand = { frames = { 1 }, fps = 1 },

14

29

walk = { frames = { 2, 3 }, fps = 5 },

15

jump = { frames = { 4 }, fps = 1 }

30

jump = { frames = { 4 }, fps = 1 },

31

climbLeft = { frames = { 5, 6 }, fps = 5 },

32

climbRight = { frames = { 7, 8 }, fps = 5 }

16

33

},

17

34

collisions = {},

18

35

onWall = false,

36

leftWallAt = 0,

19

37

onNew = function (self)

20

38

self.velocity.y = 0

21

39

self.maxVelocity.y = 400

61

79

if minVel[dir] and vel[dir] < minVel[dir] then vel[dir] = minVel[dir] end

62

80

if maxVel[dir] and vel[dir] > maxVel[dir] then vel[dir] = maxVel[dir] end

63

81

82

-- ugly hack for falling through floor on really slow frames

83

if math.abs(vel[dir] * elapsed) > 32 then

84

print('skip')

85

return

86

end

87

64

88

if vel[dir] ~= 0 then self[dir] = self[dir] + vel[dir] * elapsed end

89

90

if self[dir] < 0 then self[dir] = 0 end

91

local edge = the.view.map[util.dim(dir)] -

92

the.player[util.dim(dir)]

93

-- TODO: take map position into account

94

if self[dir] > edge then self[dir] = edge end

65

95

end,

66

96

onStartFrame = function (self)

67

97

-- this is all in startframe so it happens before

76

106

self:play('jump')

77

107

end

78

108

79

self.velocity.x = 0

80

109

self.acceleration.y = 800

81

110

82

111

if self.onWall then

83

112

self.acceleration.y = 0

84

113

114

if self.onWall == 'right' then

115

self:play('climbRight')

116

elseif self.onWall == 'left' then

117

self:play('climbLeft')

118

end

119

85

120

if the.keys:pressed('up') then

86

121

self.velocity.y = -200

87

self:play('stand')

88

122

elseif the.keys:pressed('down') then

89

123

self.velocity.y = 200

90

self:play('stand')

91

124

else

92

125

self.velocity.y = 0

93

self:play('stand')

126

self:freeze(self.sequences[self.currentName].frames[1])

94

127

end

95

128

end

96

129

97

130

if the.keys:pressed('left') then

98

131

self.velocity.x = -200

99

132

if self.onGround then self:play('walk') end

100

if self.onWall == 'right' then self.onWall = false end

101

if self.onWall == 'right' then self.onWall = false end

133

if self.onWall == 'right' then

134

self.onWall = false

135

self.leftWallAt = love.timer.getTime()

136

end

102

137

elseif the.keys:pressed('right') then

103

138

self.velocity.x = 200

104

139

if self.onGround then self:play('walk') end

105

if self.onWall == 'left' then self.onWall = false end

140

if self.onWall == 'left' then

141

self.onWall = false

142

self.leftWallAt = love.timer.getTime()

143

end

106

144

else

107

if self.onGround then self:play('stand') end

145

if not self.onWall then

146

if self.onGround then self:play('stand') end

147

self.velocity.x = 0

148

end

108

149

end

109

150

110

if the.keys:justPressed('up') and self.onGround then

151

if the.keys:justPressed('up') and

152

(self.onGround or the.console.visible or

153

(love.timer.getTime() - self.leftWallAt < .1) ) then

111

154

self.velocity.y = -400

112

155

self.jumping = true

113

156

end

119

162

self:collide(the.view.map)

120

163

121

164

-- handle X collisions

165

self.onWall = false

122

166

for _, col in ipairs(self.collisions) do

123

167

col.other:displaceDir(self, 'x')

124

168

if self.velocity.x > 0 then

174

218

end

175

219

else

176

220

-- handle sprites

177

local dim

178

if dir == 'x' then

179

dim = 'width'

180

elseif dir == 'y' then

181

dim = 'height'

182

else

183

print 'dir ??'

184

end

221

local dim = util.dim(dir)

185

222

186

223

local negMove = (other[dir] - self[dir]) + other[dim]

187

224

local posMove = (self[dir] + self[dim]) - other[dir]

197

234

other[dir] = other[dir] + chg

198

235

end

199

236

237

-- don't use zoetrope physics

238

function Sprite:update (elapsed)

239

if self.onUpdate then self:onUpdate(elapsed) end

240

end

241

200

242

GameView = View:extend {

201

243

onNew = function (self)

202

244

self:loadLayers('data/map.lua')

203

245

self.focus = the.player

204

246

self:clampTo(self.map)

247

248

the.recorder = Recorder:new{mousePosInterval = 9999}

249

the.app.meta:add(the.recorder)

250

if RECORD then

251

the.recorder:startRecording()

252

elseif PLAYBACK then

253

local storage = Storage:new{filename = 'record.lua'}

254

storage:load()

255

--print(inspect(storage.data))

256

the.recorder.record = storage.data

257

the.recorder:startPlaying()

258

end

205

259

end,

206

260

onUpdate = function (self)

261

--print('drawTook: ', the.drawTook)

207

262

--print('tick')

208

263

--the.player:collide(self.map)

209

264

--self.map:collide(the.player)

210

end

265

end,

266

-- draw = function (self, x, y)

267

-- View.draw(self, x, y)

268

269

-- love.graphics.print('FPS:' .. love.timer.getFPS(), 20, 20)

270

-- end

211

271

}

212

272

213

273

the.app = App:new {

215

275

self.view = GameView:new()

216

276

self.console:watch('onGround', 'the.player.onGround')

217

277

self.console:watch('onWall', 'the.player.onWall')

278

self.console:watch('updateTook', 'the.updateTook')

279

self.console:watch('drawTook', 'the.drawTook')

280

self.console:watch('recorder state', 'the.recorder.state')

281

282

--the.profiler = newProfiler('time', 2000)

283

--the.profiler = newProfiler()

284

--the.profiler:start()

218

285

end,

219

286

onUpdate = function (self, dt)

220

if the.keys:justPressed('escape') and

221

not self.console.visible then

287

if the.keys:justPressed('escape') then

288

if the.profiler then

289

the.profiler:stop()

290

local outfile = io.open( "profile.txt", "w+" )

291

the.profiler:report( outfile )

292

outfile:close()

293

end

294

295

if RECORD then

296

if not love.filesystem.remove('record.lua') then

297

error('could not remove record.lua')

298

end

299

local storage = Storage:new{

300

data = the.recorder.record,

301

filename = 'record.lua'

302

}

303

storage:save(false)

304

--print(inspect(the.recorder.record))

305

end

306

222

307

self.quit()

223

308

end

224

end

225

}

b'\\ No newline at end of file'

309

end,

310

update = function (self, dt)

311

the.updateStart = love.timer.getMicroTime()

312

App.update(self, dt)

313

if the.updateStart then

314

the.updateTook = love.timer.getMicroTime() - the.updateStart

315

end

316

end

317

}