/traderous

To get this branch, use:
bzr branch http://9ix.org/bzr/traderous

« back to all changes in this revision

Viewing changes to planet.lua

  • Committer: Josh C
  • Date: 2013-07-04 18:15:10 UTC
  • Revision ID: josh@9ix.org-20130704181510-lnj4iqrprewr71pu
window title

Show diffs side-by-side

added added

removed removed

Lines of Context:
planet.lua
1
1
Planet = Tile:extend {
2
2
   image = 'data/planet1.png',
3
 
   potentialGoods = {
4
 
      {name = 'Bobble-Headed Dolls',
5
 
       low = 50, med = 100, high = 150,
6
 
       chance = 0.5},
7
 
      {name = 'Alliance Foodstuffs',
8
 
       low = 100, med = 250, high = 400,
9
 
       chance = 0.8},
10
 
      {name = 'Antique Weapons',
11
 
       low = 5000, med = 6000, high = 8000,
12
 
       chance = 0.1}
13
 
   },
14
3
   goods = {},
15
4
   onNew = function (self)
16
5
              self.indicator = Tile:new{ image = 'data/planet1ind.png' }
17
6
              the.indicators:add(self.indicator)
18
7
 
19
 
              for _, good in ipairs(self.potentialGoods) do
20
 
                 if math.random() < good.chance then
21
 
                    local tier = math.random(4) -- betw 1 and 4
22
 
                    if tier == 1 then
23
 
                       table.insert(self.goods, {good.name, good.low})
24
 
                    elseif tier ==2 then
25
 
                       table.insert(self.goods, {good.name, good.high})
26
 
                    else
27
 
                       -- double chance for med (3 or 4)
28
 
                       table.insert(self.goods, {good.name, good.med})
29
 
                    end
 
8
              while not self.name do
 
9
                 local name = PlanetNames[math.random(#PlanetNames)]
 
10
                 local inUse = false
 
11
                 for _, planet in ipairs(the.planets.sprites) do
 
12
                    if name == planet.name then inUse = true end
 
13
                 end
 
14
 
 
15
                 if not inUse then
 
16
                    self.name = name
30
17
                 end
31
18
              end
 
19
 
 
20
              self.label = Text:new {
 
21
                 text = self.name,
 
22
                 x = self.x,
 
23
                 y = self.y - 32,
 
24
                 width = self.width,
 
25
                 align = 'center',
 
26
                 font = 20
 
27
              }
 
28
              the.planetLabels:add(self.label)
 
29
 
 
30
              self.keyLabel = Text:new {
 
31
                 text = 'Press L to land',
 
32
                 x = self.x,
 
33
                 y = self.y + self.height + 12,
 
34
                 width = self.width,
 
35
                 align = 'center',
 
36
                 font = 20
 
37
              }
 
38
              the.planetLabels:add(self.keyLabel)
32
39
           end,
33
40
   onUpdate = function (self)
34
 
                 if the.keys:justPressed('l') then
35
 
                    local hw = self.width / 2
36
 
                    local pvec = vector.new(the.player.x - (self.x + hw),
37
 
                                            the.player.y - (self.y + hw))
38
 
 
39
 
                    if pvec:len2() < hw ^ 2 then
 
41
                 local hw = self.width / 2
 
42
                 local pvec = vector.new(the.player.x - (self.x + hw),
 
43
                                         the.player.y - (self.y + hw))
 
44
 
 
45
                 if pvec:len2() < hw ^ 2 then
 
46
                    self.label.visible = true
 
47
                    self.keyLabel.visible = true
 
48
                    the.player.onPlanet = self
 
49
 
 
50
                    if the.keys:justPressed('l') then
 
51
                       the.player.velocity = {x=0, y=0}
 
52
                       the.player.acceleration = {x=0, y=0}
 
53
 
 
54
                       the.player:save()
 
55
 
40
56
                       tradeView = TradeView:new{ planet = self }
41
57
                       tradeView:activate()
42
58
                    end
 
59
                 else
 
60
                    self.label.visible = false
 
61
                    self.keyLabel.visible = false
 
62
                    if the.player.onPlanet == self then
 
63
                       the.player.onPlanet = false
 
64
                    end
43
65
                 end
44
 
              end
 
66
              end,
 
67
   onEndFrame = function (self)
 
68
                   local indx, indy
 
69
                   local pvec = vector.new(
 
70
                      self.x - the.player.x + self.width / 2,
 
71
                      self.y - the.player.y + self.height / 2 )
 
72
 
 
73
                   -- TODO: is there a better way to specify the
 
74
                   -- screen rectangle?
 
75
                   if self:intersects(the.player.x - the.app.width / 2,
 
76
                                      the.player.y - the.app.height / 2,
 
77
                                      the.app.width,
 
78
                                      the.app.height) then
 
79
                      -- planet is on the screen
 
80
                      self.indicator.visible = false
 
81
                   else
 
82
                      self.indicator.visible = true
 
83
 
 
84
                      if math.abs(pvec.x) / math.abs(pvec.y) > the.app.width / the.app.height then
 
85
                         indx = (the.app.width / 2 - 10) * util.signOf(pvec.x) + 8
 
86
                         indy = (the.app.width / 2 - 10) * pvec.y / math.abs(pvec.x)
 
87
                      else
 
88
                         indy = (the.app.height / 2 - 10) * util.signOf(pvec.y) + 8
 
89
                         indx = (the.app.height / 2 - 10) * pvec.x / math.abs(pvec.y)
 
90
                      end
 
91
 
 
92
                      self.indicator.x = the.player.x + indx
 
93
                      self.indicator.y = the.player.y + indy
 
94
                   end
 
95
 
 
96
                end,
 
97
   onCollide = function (self, other)
 
98
                  if other:instanceOf(Bullet) then
 
99
                     the.bullets:remove(other)
 
100
                     other:die()
 
101
                  end
 
102
               end
45
103
}
 
 
b'\\ No newline at end of file'