/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'
3 by Josh C
basecode main.lua
6
24 by Josh C
monkey patch group to add onRemove hook. remove mirrors on remove.
7
require 'group'
8
3 by Josh C
basecode main.lua
9
require 'version'
21 by Josh C
extract wrapping behavior, wrap bullets
10
require 'wrap_tile'
27 by Josh C
try to not spawn rocks where you can see them. not working if screen
11
require 'mirror'
4 by Josh C
trying some movement styles. derivatives on crystal quest movement.
12
require 'player'
7 by Josh C
enemy
13
require 'enemy'
8 by Josh C
targeting cursor (manual switch to start)
14
require 'cursor'
11 by Josh C
pew pew!
15
require 'bullet'
26 by Josh C
rocks!
16
require 'rock'
30 by Josh C
explosions
17
require 'boom'
7 by Josh C
enemy
18
19
util = {
20
   signOf = function(value)
21
               if value >= 0 then
22
                  return 1
23
               else
24
                  return -1
25
               end
27 by Josh C
try to not spawn rocks where you can see them. not working if screen
26
            end,
27
   shortestVector = function(from, to)
28
                       if STRICT then
29
                          if from.x < the.app.width / 2 or
30
                             from.x > the.bg.width - the.app.width / 2 or
31
                             from.y < the.app.height / 2 or
32
                             from.y > the.bg.height - the.app.height / 2 then
33
                             error('"from" coordinate out of bounds: X='..from.x..' Y='..from.y)
34
                          end
35
36
                          if to.x < the.app.width / 2 or
37
                             to.x > the.bg.width - the.app.width / 2 or
38
                             to.y < the.app.height / 2 or
39
                             to.y > the.bg.height - the.app.height / 2 then
40
                             error('"to" coordinate out of bounds: X='..to.x..' Y='..to.y)
41
                          end
42
                       end
43
44
                       -- normalize grid to account for mirror zones
45
                       local fx = from.x - the.app.width / 2
46
                       local fy = from.y - the.app.height / 2
47
                       local tx = to.x - the.app.width / 2
48
                       local ty = to.y - the.app.height / 2
49
50
                       local short = {}
51
52
                       -- pick shorter x
53
                       if math.abs(tx - fx) < math.abs(tx - fx - (the.bg.width - the.app.width)) then
54
                          -- straight path is shorter
55
                          short.x = tx - fx
56
                       else
57
                          short.x = tx - fx - (the.bg.width - the.app.width)
58
                       end
59
60
                       -- pick shorter y
61
                       if math.abs(ty - fy) < math.abs(ty - fy - (the.bg.height - the.app.height)) then
62
                          -- straight path is shorter
63
                          short.y = ty - fy
64
                       else
65
                          short.y = ty - fy - (the.bg.height - the.app.height)
66
                       end
67
68
                       return vector.new(short.x, short.y)
69
                    end
7 by Josh C
enemy
70
}
3 by Josh C
basecode main.lua
71
72
GameView = View:extend {
26 by Josh C
rocks!
73
   lastRock = 0,
74
   rockInterval = 1,
75
   gameStart = 0,
3 by Josh C
basecode main.lua
76
   onNew = function (self)
18 by Josh C
starry background
77
              -- for x = 1,30 do
78
              --    for y = 1,30 do
79
              --       self:add(Fill:new{x=x*400, y=y*400,
80
              --                         width = 32, height = 32,
81
              --                         fill = {0,0,255}
82
              --                      })
83
              --    end
84
              -- end
85
29 by Josh C
shoot things!
86
              the.rockColliders = Group:new()
87
              the.bullets = Group:new()
32 by Josh C
stick things into layers
88
              the.mirrors = Group:new()
89
              the.rocks = Group:new()
28 by Josh C
prepare a collision box for the rocks
90
19 by Josh C
move player around looping world
91
              the.bg = Tile:new{
92
                 image = 'data/stars3.png',
93
                 -- 1366x768 * 3
94
                 width = 4098,
95
                 height = 2304
18 by Josh C
starry background
96
              }
19 by Josh C
move player around looping world
97
              self:add(the.bg)
4 by Josh C
trying some movement styles. derivatives on crystal quest movement.
98
99
              --the.player = CrystalPlayer:new{x=400,y=300}
19 by Josh C
move player around looping world
100
              the.player = SpacePlayer:new{x=1366,y=768}
4 by Josh C
trying some movement styles. derivatives on crystal quest movement.
101
              self:add(the.player)
102
27 by Josh C
try to not spawn rocks where you can see them. not working if screen
103
              --self:add(Enemy:new{x=400, y=300})
7 by Josh C
enemy
104
32 by Josh C
stick things into layers
105
              self:add(the.bullets)
106
              self:add(the.rockColliders)
107
              self:add(the.mirrors)
108
              self:add(the.rocks)
109
14 by Josh C
only fire if cursor is in target area. change cursor to reflect this.
110
              the.cursor = Cursor:new()
111
              self:add(the.cursor)
8 by Josh C
targeting cursor (manual switch to start)
112
4 by Josh C
trying some movement styles. derivatives on crystal quest movement.
113
              love.mouse.setGrab(true)
8 by Josh C
targeting cursor (manual switch to start)
114
              love.mouse.setVisible(false)
3 by Josh C
basecode main.lua
115
116
              --self:loadLayers('data/map.lua')
4 by Josh C
trying some movement styles. derivatives on crystal quest movement.
117
              self.focus = the.player
3 by Josh C
basecode main.lua
118
              --self:clampTo(self.map)
26 by Josh C
rocks!
119
120
              self.gameStart = love.timer.getTime()
3 by Josh C
basecode main.lua
121
           end,
26 by Josh C
rocks!
122
   onUpdate = function(self, dt)
123
                 if 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
124
                    local unseenRock = nil
125
                    while not unseenRock do
126
                       local rock = Rock:new{
127
                          x = math.random(the.app.width / 2,
128
                                          the.bg.width - the.app.width / 2),
129
                          y = math.random(the.app.height / 2,
130
                                          the.bg.height - the.app.height / 2),
131
                          velocity = {
132
                             x = math.random(-300, 300),
133
                             y = math.random(-300, 300),
134
                             rotation = math.random(-7, 7)
135
                          },
136
                          scale = math.random() + 0.5
137
                       }
138
139
                       local rockToPlayer = util.shortestVector(rock, the.player)
140
                       if math.abs(rockToPlayer.x) > the.app.width / 2 + rock.width * rock.scale and
141
                           math.abs(rockToPlayer.y) > the.app.height / 2 + rock.height * rock.scale then
142
                         unseenRock = rock
143
                        end
144
                    end
145
32 by Josh C
stick things into layers
146
                    the.rocks:add(unseenRock)
26 by Josh C
rocks!
147
148
                    self.lastRock = love.timer.getTime()
149
                 end
29 by Josh C
shoot things!
150
151
                 the.bullets:collide(the.rockColliders)
26 by Josh C
rocks!
152
              end,
3 by Josh C
basecode main.lua
153
   draw = function (self, x, y)
154
             View.draw(self, x, y)
155
             love.graphics.print('FPS:' .. love.timer.getFPS(), 20, 20)
156
          end
157
}
158
159
MenuScreen = View:extend {
160
   title = Text:new{text = "Press a key to start", font = 48, wordWrap = false},
161
   --title = Tile:new{image = 'data/title.png', x = 0, y = 0},
162
   onNew = function(self)
163
              self:add(self.title)
164
              self.title:centerAround(400, 200)
165
           end,
166
   onUpdate = function(self, elapsed)
167
                 if the.keys:allJustPressed() then
168
                    the.app.view = GameView:new()
169
                 end
170
              end
171
}
172
173
the.app = App:new {
174
   onRun = function (self)
175
              print('Version: ' .. VERSION)
26 by Josh C
rocks!
176
177
              math.randomseed(os.time())
178
3 by Josh C
basecode main.lua
179
              self.view = GameView:new()
180
              if DEBUG then
181
                 self.console:watch('VERSION', 'VERSION')
182
                 self.console:watch('updateTook', 'the.updateTook')
19 by Josh C
move player around looping world
183
                 self.console:watch('the.player.x', 'the.player.x')
184
                 self.console:watch('the.player.y', 'the.player.y')
185
                 self.console:watch('the.app.width', 'the.app.width')
186
                 self.console:watch('the.app.height', 'the.app.height')
3 by Josh C
basecode main.lua
187
                 --self.console:watch('drawTook', 'the.drawTook')
22 by Josh C
mirror (contains a bug where things in the corner aren't getting mirrored?
188
189
                 -- back off that dark overlay a bit
190
                 self.console.fill.fill[4] = 75
3 by Josh C
basecode main.lua
191
              end
192
           end,
193
   onUpdate = function (self, dt)
194
                 if the.keys:justPressed('escape') then
195
                    self.quit()
196
                 end
197
              end,
198
   update = function (self, dt)
199
               the.updateStart = love.timer.getMicroTime()
200
               App.update(self, dt)
201
               if the.updateStart then
202
                  the.updateTook = love.timer.getMicroTime() - the.updateStart
203
               end
204
            end
205
}