/zoeplat : revision 21

4

require 'zoetrope'

5

__ = require 'underscore'

6

--inspect = require 'inspect'

7

require 'pepperprof'

8

require 'getopt_alt'

9

10

require 'sprite'

11

require 'animation'

12

require 'player'

13

require 'balloon'

14

15

util = {

16

dim = function(dir)

7

8

Player = Animation:extend {

9

image = 'data/player.png',

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

},

17

collisions = {},

18

onWall = false,

19

onNew = function (self)

20

self.velocity.y = 0

21

self.maxVelocity.y = 400

22

end,

23

doPhysics = function (self, dir, elapsed)

24

local vel = self.velocity

25

local acc = self.acceleration

26

local drag = self.drag

27

local minVel = self.minVelocity

28

local maxVel = self.maxVelocity

29

30

-- check existence of properties

31

32

if STRICT then

33

assert(vel, 'active sprite has no velocity property')

34

assert(acc, 'active sprite has no acceleration property')

35

assert(drag, 'active sprite has no drag property')

36

assert(minVel, 'active sprite has no minVelocity property')

37

assert(maxVel, 'active sprite has no maxVelocity property')

38

assert(__.include({'x','y','rotation'}, dir), 'direction should be x, y, or rotation')

39

end

40

41

vel.x = vel.x or 0

42

vel.y = vel.y or 0

43

vel.rotation = vel.rotation or 0

44

45

-- physics

46

47

if acc[dir] and acc[dir] ~= 0 then

48

vel[dir] = vel[dir] + acc[dir] * elapsed

49

else

50

if drag[dir] then

51

if vel[dir] > 0 then

52

vel[dir] = vel[dir] - drag[dir] * elapsed

53

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

54

elseif vel[dir] < 0 then

55

vel[dir] = vel[dir] + drag[dir] * elapsed

56

if vel[dir] > 0 then vel[dir] = 0 end

57

end

58

end

59

end

60

61

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

62

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

63

64

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

65

end,

66

onStartFrame = function (self)

67

-- this is all in startframe so it happens before

68

-- physics calc at beginning of update

69

70

-- jumping/falling updates could go in EndFrame...

71

self.falling = self.velocity.y > 0

72

if self.falling then self.jumping = false end

73

--print(self.jumping, self.falling)

74

75

if (not self.onGround) and (not self.onWall) then

76

self:play('jump')

77

end

78

79

self.acceleration.y = 800

80

81

if self.onWall then

82

self.acceleration.y = 0

83

84

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

85

self.velocity.y = -200

86

self:play('stand')

87

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

88

self.velocity.y = 200

89

self:play('stand')

90

else

91

self.velocity.y = 0

92

self:play('stand')

93

end

94

end

95

96

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

97

self.velocity.x = -200

98

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

99

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

100

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

101

self.velocity.x = 200

102

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

103

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

104

else

105

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

106

if not self.onWall then

107

self.velocity.x = 0

108

end

109

end

110

111

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

112

self.velocity.y = -400

113

self.jumping = true

114

end

115

end,

116

update = function (self, elapsed)

117

-- NOTE: this is an override, not a callback

118

119

self:doPhysics('x', elapsed)

120

self:collide(the.view.map)

121

122

-- handle X collisions

123

self.onWall = false

124

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

125

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

126

if self.velocity.x > 0 then

127

self.onWall = 'right'

128

elseif self.velocity.x < 0 then

129

self.onWall = 'left'

130

else

131

print 'x ??'

132

end

133

end

134

135

self.onGround = false -- right before Y collision callbacks

136

self:doPhysics('y', elapsed)

137

self:collide(the.view.map)

138

139

-- handle Y collisions

140

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

141

if self.velocity.y > 0 then

142

self.onGround = true

143

end

144

145

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

146

self.velocity.y = 0

147

self.jumping = false

148

end

149

150

Animation.update(self, elapsed)

151

end,

152

collide = function (self, ...)

153

self.collisions = {}

154

Animation.collide(self, ...)

155

-- I could return a true/false value here if I wanted to...

156

end,

157

onCollide = function (self, other, xOverlap, yOverlap)

158

if other == the.view.map then return end

159

160

table.insert(self.collisions, {other = other,

161

xOverlap = xOverlap,

162

yOverlap = yOverlap })

163

end

164

}

165

166

-- displace on a specific axis (monkey patch Sprite)

167

function Sprite:displaceDir(other, dir)

168

if not self.solid or self == other or not other.solid then return end

169

if STRICT then assert(other:instanceOf(Sprite), 'asked to displace a non-sprite') end

170

171

if other.sprites then

172

-- handle groups

173

174

for _, spr in pairs(other.sprites) do

175

self:displace(spr, dir)

176

end

177

else

178

-- handle sprites

179

local dim

17

180

if dir == 'x' then

18

return 'width'

181

dim = 'width'

19

182

elseif dir == 'y' then

20

return 'height'

21

else

22

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

183

dim = 'height'

184

else

185

print 'dir ??'

186

end

187

188

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

189

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

190

191

-- TODO: re-add hinting?

192

if negMove < posMove then

193

chg = - negMove

194

else

195

chg = posMove

23

196

end

24

197

end

25

}

198

199

other[dir] = other[dir] + chg

200

end

26

201

27

202

GameView = View:extend {

28

203

onNew = function (self)

29

204

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

30

205

self.focus = the.player

31

206

self:clampTo(self.map)

32

33

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

34

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

35

if the.app.record then

36

the.recorder:startRecording()

37

elseif the.app.playback then

38

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

39

storage:load()

40

--print(inspect(storage.data))

41

the.recorder.record = storage.data

42

the.recorder:startPlaying()

43

end

44

207

end,

45

208

onUpdate = function (self)

46

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

47

209

--print('tick')

48

210

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

49

211

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

50

end,

51

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

52

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

53

54

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

55

-- end

212

end

56

213

}

57

214

58

215

the.app = App:new {

59

record = true,

60

216

onRun = function (self)

61

217

self.view = GameView:new()

62

if DEBUG then

63

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

64

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

65

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

66

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

67

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

68

end

69

70

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

71

--the.profiler = newProfiler()

72

--the.profiler:start()

218

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

219

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

73

220

end,

74

221

onUpdate = function (self, dt)

75

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

76

if the.profiler then

77

the.profiler:stop()

78

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

79

the.profiler:report( outfile )

80

outfile:close()

81

end

82

83

if self.record then

84

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

85

print('could not remove record.lua')

86

end

87

local storage = Storage:new{

88

data = the.recorder.record,

89

filename = 'record.lua'

90

}

91

storage:save(false)

92

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

93

end

94

222

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

223

not self.console.visible then

95

224

self.quit()

96

225

end

97

end,

98

update = function (self, dt)

99

the.updateStart = love.timer.getMicroTime()

100

App.update(self, dt)

101

if the.updateStart then

102

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

103

end

104

end

105

}

106

107

function love.load (arg)

108

opts = getopt(arg, '')

109

if opts['p'] then

110

the.app.playback = true

111

the.app.record = false

112

elseif opts['r'] then

113

the.app.record = true

114

end

115

116

the.app:run()

117

end

b'\\ No newline at end of file'

226

end

227

}

b'\\ No newline at end of file'