/traderous

To get this branch, use:
bzr branch http://9ix.org/bzr/traderous
3 by Josh C
basecode main.lua
1
STRICT = true
2
DEBUG = true
3
4
require 'zoetrope'
13 by Josh C
constant velocity for bullets. using hump.vector e9b86ef
5
vector = require 'vector'
35 by Josh C
fix double-removing sprites (and subsequent zombie mirror bullets).
6
--inspect = require 'inspect'
3 by Josh C
basecode main.lua
7
24 by Josh C
monkey patch group to add onRemove hook. remove mirrors on remove.
8
require 'group'
9
3 by Josh C
basecode main.lua
10
require 'version'
21 by Josh C
extract wrapping behavior, wrap bullets
11
require 'wrap_tile'
27 by Josh C
try to not spawn rocks where you can see them. not working if screen
12
require 'mirror'
4 by Josh C
trying some movement styles. derivatives on crystal quest movement.
13
require 'player'
7 by Josh C
enemy
14
require 'enemy'
8 by Josh C
targeting cursor (manual switch to start)
15
require 'cursor'
11 by Josh C
pew pew!
16
require 'bullet'
26 by Josh C
rocks!
17
require 'rock'
30 by Josh C
explosions
18
require 'boom'
7 by Josh C
enemy
19
20
util = {
21
   signOf = function(value)
22
               if value >= 0 then
23
                  return 1
24
               else
25
                  return -1
26
               end
27 by Josh C
try to not spawn rocks where you can see them. not working if screen
27
            end,
28
   shortestVector = function(from, to)
29
                       if STRICT then
30
                          if from.x < the.app.width / 2 or
31
                             from.x > the.bg.width - the.app.width / 2 or
32
                             from.y < the.app.height / 2 or
33
                             from.y > the.bg.height - the.app.height / 2 then
34
                             error('"from" coordinate out of bounds: X='..from.x..' Y='..from.y)
35
                          end
36
37
                          if to.x < the.app.width / 2 or
38
                             to.x > the.bg.width - the.app.width / 2 or
39
                             to.y < the.app.height / 2 or
40
                             to.y > the.bg.height - the.app.height / 2 then
41
                             error('"to" coordinate out of bounds: X='..to.x..' Y='..to.y)
42
                          end
43
                       end
44
45
                       -- normalize grid to account for mirror zones
46
                       local fx = from.x - the.app.width / 2
47
                       local fy = from.y - the.app.height / 2
48
                       local tx = to.x - the.app.width / 2
49
                       local ty = to.y - the.app.height / 2
50
51
                       local short = {}
52
53
                       -- pick shorter x
54
                       if math.abs(tx - fx) < math.abs(tx - fx - (the.bg.width - the.app.width)) then
55
                          -- straight path is shorter
56
                          short.x = tx - fx
57
                       else
58
                          short.x = tx - fx - (the.bg.width - the.app.width)
59
                       end
60
61
                       -- pick shorter y
62
                       if math.abs(ty - fy) < math.abs(ty - fy - (the.bg.height - the.app.height)) then
63
                          -- straight path is shorter
64
                          short.y = ty - fy
65
                       else
66
                          short.y = ty - fy - (the.bg.height - the.app.height)
67
                       end
68
69
                       return vector.new(short.x, short.y)
70
                    end
7 by Josh C
enemy
71
}
3 by Josh C
basecode main.lua
72
73
GameView = View:extend {
26 by Josh C
rocks!
74
   lastRock = 0,
75
   rockInterval = 1,
76
   gameStart = 0,
3 by Josh C
basecode main.lua
77
   onNew = function (self)
18 by Josh C
starry background
78
              -- for x = 1,30 do
79
              --    for y = 1,30 do
80
              --       self:add(Fill:new{x=x*400, y=y*400,
81
              --                         width = 32, height = 32,
82
              --                         fill = {0,0,255}
83
              --                      })
84
              --    end
85
              -- end
86
34 by Josh C
record high scores
87
              the.storage = Storage:new{filename = 'scores.lua'}
88
              the.storage:load()
89
              if not the.storage.data.highScore then
90
                 print('initializing storage')
91
                 the.storage.data = {highScore = 0}
92
              end
93
29 by Josh C
shoot things!
94
              the.rockColliders = Group:new()
95
              the.bullets = Group:new()
32 by Josh C
stick things into layers
96
              the.mirrors = Group:new()
97
              the.rocks = Group:new()
39 by Josh C
some instructions at game over
98
              the.interface = Group:new()
28 by Josh C
prepare a collision box for the rocks
99
19 by Josh C
move player around looping world
100
              the.bg = Tile:new{
101
                 image = 'data/stars3.png',
102
                 -- 1366x768 * 3
103
                 width = 4098,
104
                 height = 2304
18 by Josh C
starry background
105
              }
19 by Josh C
move player around looping world
106
              self:add(the.bg)
4 by Josh C
trying some movement styles. derivatives on crystal quest movement.
107
108
              --the.player = CrystalPlayer:new{x=400,y=300}
19 by Josh C
move player around looping world
109
              the.player = SpacePlayer:new{x=1366,y=768}
4 by Josh C
trying some movement styles. derivatives on crystal quest movement.
110
              self:add(the.player)
111
27 by Josh C
try to not spawn rocks where you can see them. not working if screen
112
              --self:add(Enemy:new{x=400, y=300})
7 by Josh C
enemy
113
32 by Josh C
stick things into layers
114
              self:add(the.bullets)
115
              self:add(the.rockColliders)
116
              self:add(the.mirrors)
117
              self:add(the.rocks)
39 by Josh C
some instructions at game over
118
              self:add(the.interface)
32 by Josh C
stick things into layers
119
14 by Josh C
only fire if cursor is in target area. change cursor to reflect this.
120
              the.cursor = Cursor:new()
121
              self:add(the.cursor)
8 by Josh C
targeting cursor (manual switch to start)
122
33 by Josh C
keep score, center mouse on start
123
              the.score = Text:new{
39 by Josh C
some instructions at game over
124
                 x = 8,
125
                 y = 8,
33 by Josh C
keep score, center mouse on start
126
                 width = the.app.width,
38 by Josh C
remove fps counter
127
                 --align = 'center',
33 by Josh C
keep score, center mouse on start
128
                 font = 25}
39 by Josh C
some instructions at game over
129
              the.interface:add(the.score)
33 by Josh C
keep score, center mouse on start
130
34 by Josh C
record high scores
131
              local hs = the.storage.data.highScore
132
              local m = hs / 60
133
              local s = hs % 60
134
135
              the.highScore = Text:new{
39 by Josh C
some instructions at game over
136
                 x = -8,
137
                 y = 8,
34 by Josh C
record high scores
138
                 width = the.app.width,
139
                 align = 'right',
140
                 font = 25,
141
                 text = string.format('High Score: %d:%02d', m, s)
142
              }
39 by Josh C
some instructions at game over
143
              the.interface:add(the.highScore)
144
145
              the.over = Text:new{
146
                 y = the.app.height / 2,
147
                 width = the.app.width,
148
                 align = 'center',
149
                 font = 25,
150
                 text = "Game Over",
151
                 visible = false
152
              }
153
              the.interface:add(the.over)
154
155
156
              the.instructions = Text:new{
157
                 y = the.app.height / 2 + 32,
158
                 width = the.app.width,
159
                 align = 'center',
160
                 font = 12,
161
                 text = "Press Enter to start a new game\nPress Q to quit",
162
                 visible = false
163
              }
164
              the.interface:add(the.instructions)
34 by Josh C
record high scores
165
4 by Josh C
trying some movement styles. derivatives on crystal quest movement.
166
              love.mouse.setGrab(true)
8 by Josh C
targeting cursor (manual switch to start)
167
              love.mouse.setVisible(false)
33 by Josh C
keep score, center mouse on start
168
              love.mouse.setPosition(the.app.width / 2, the.app.height / 2)
3 by Josh C
basecode main.lua
169
170
              --self:loadLayers('data/map.lua')
4 by Josh C
trying some movement styles. derivatives on crystal quest movement.
171
              self.focus = the.player
3 by Josh C
basecode main.lua
172
              --self:clampTo(self.map)
26 by Josh C
rocks!
173
174
              self.gameStart = love.timer.getTime()
3 by Josh C
basecode main.lua
175
           end,
26 by Josh C
rocks!
176
   onUpdate = function(self, dt)
36 by Josh C
don't keep spawning rocks after death.
177
                 if the.player.active and love.timer.getTime() > self.lastRock + self.rockInterval then
27 by Josh C
try to not spawn rocks where you can see them. not working if screen
178
                    local unseenRock = nil
179
                    while not unseenRock do
180
                       local rock = Rock:new{
181
                          x = math.random(the.app.width / 2,
182
                                          the.bg.width - the.app.width / 2),
183
                          y = math.random(the.app.height / 2,
184
                                          the.bg.height - the.app.height / 2),
185
                          velocity = {
186
                             x = math.random(-300, 300),
187
                             y = math.random(-300, 300),
188
                             rotation = math.random(-7, 7)
189
                          },
190
                          scale = math.random() + 0.5
191
                       }
192
193
                       local rockToPlayer = util.shortestVector(rock, the.player)
194
                       if math.abs(rockToPlayer.x) > the.app.width / 2 + rock.width * rock.scale and
195
                           math.abs(rockToPlayer.y) > the.app.height / 2 + rock.height * rock.scale then
196
                         unseenRock = rock
197
                        end
198
                    end
199
32 by Josh C
stick things into layers
200
                    the.rocks:add(unseenRock)
26 by Josh C
rocks!
201
202
                    self.lastRock = love.timer.getTime()
203
                 end
29 by Josh C
shoot things!
204
205
                 the.bullets:collide(the.rockColliders)
35 by Josh C
fix double-removing sprites (and subsequent zombie mirror bullets).
206
207
                 -- for _, mirror in ipairs(the.mirrors.sprites) do
208
                 --    if not mirror.of then
209
                 --       print('mirror:' .. inspect(mirror))
210
                 --       error('mirror OF NOTHING')
211
                 --    end
212
                 -- end
26 by Josh C
rocks!
213
              end,
33 by Josh C
keep score, center mouse on start
214
   onEndFrame = function(self)
39 by Josh C
some instructions at game over
215
                   the.interface.translate.x = the.player.x - the.app.width / 2 + the.player.width / 2
216
                   the.interface.translate.y = the.player.y - the.app.height / 2 + the.player.height / 2
217
33 by Josh C
keep score, center mouse on start
218
                   if the.player.active then
37 by Josh C
extract updating score. update score again when you calc high score -
219
                      self:updateScore()
33 by Josh C
keep score, center mouse on start
220
                   end
221
                end,
3 by Josh C
basecode main.lua
222
   draw = function (self, x, y)
223
             View.draw(self, x, y)
38 by Josh C
remove fps counter
224
             --love.graphics.print('FPS:' .. love.timer.getFPS(), 20, 20)
37 by Josh C
extract updating score. update score again when you calc high score -
225
          end,
226
   updateScore = function(self)
227
                    local t = love.timer.getTime() - self.gameStart
228
                    local m = t / 60
229
                    local s = t % 60
230
231
                    the.score.text = string.format('Score: %d:%02d', m, s)
39 by Josh C
some instructions at game over
232
                    --the.score.y = the.player.y - the.app.height / 2 + the.player.height
233
                    --the.score.x = the.player.x - the.app.width / 2 + the.player.width
37 by Josh C
extract updating score. update score again when you calc high score -
234
39 by Josh C
some instructions at game over
235
                    --the.highScore.y = the.player.y - the.app.height / 2 + the.player.height
236
                    --the.highScore.x = the.player.x - the.app.width / 2
37 by Josh C
extract updating score. update score again when you calc high score -
237
                 end
3 by Josh C
basecode main.lua
238
}
239
240
MenuScreen = View:extend {
241
   title = Text:new{text = "Press a key to start", font = 48, wordWrap = false},
242
   --title = Tile:new{image = 'data/title.png', x = 0, y = 0},
243
   onNew = function(self)
244
              self:add(self.title)
245
              self.title:centerAround(400, 200)
246
           end,
247
   onUpdate = function(self, elapsed)
248
                 if the.keys:allJustPressed() then
249
                    the.app.view = GameView:new()
250
                 end
251
              end
252
}
253
254
the.app = App:new {
255
   onRun = function (self)
256
              print('Version: ' .. VERSION)
26 by Josh C
rocks!
257
258
              math.randomseed(os.time())
259
3 by Josh C
basecode main.lua
260
              self.view = GameView:new()
261
              if DEBUG then
262
                 self.console:watch('VERSION', 'VERSION')
263
                 self.console:watch('updateTook', 'the.updateTook')
19 by Josh C
move player around looping world
264
                 self.console:watch('the.player.x', 'the.player.x')
265
                 self.console:watch('the.player.y', 'the.player.y')
266
                 self.console:watch('the.app.width', 'the.app.width')
267
                 self.console:watch('the.app.height', 'the.app.height')
35 by Josh C
fix double-removing sprites (and subsequent zombie mirror bullets).
268
                 self.console:watch('num mirrors', '#the.mirrors.sprites')
36 by Josh C
don't keep spawning rocks after death.
269
                 self.console:watch('num rocks', '#the.rocks.sprites')
3 by Josh C
basecode main.lua
270
                 --self.console:watch('drawTook', 'the.drawTook')
22 by Josh C
mirror (contains a bug where things in the corner aren't getting mirrored?
271
272
                 -- back off that dark overlay a bit
273
                 self.console.fill.fill[4] = 75
3 by Josh C
basecode main.lua
274
              end
275
           end,
276
   onUpdate = function (self, dt)
40 by Josh C
quit and restart
277
                 if the.keys:justPressed('q') then
3 by Josh C
basecode main.lua
278
                    self.quit()
40 by Josh C
quit and restart
279
                 elseif the.keys:justPressed('return') then
280
                    self.view = GameView:new()
3 by Josh C
basecode main.lua
281
                 end
282
              end,
283
   update = function (self, dt)
284
               the.updateStart = love.timer.getMicroTime()
285
               App.update(self, dt)
286
               if the.updateStart then
287
                  the.updateTook = love.timer.getMicroTime() - the.updateStart
288
               end
289
            end
290
}