/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-05-04 22:53:27 UTC
  • Revision ID: josh@9ix.org-20130504225327-dsc1gi3ri96h50s2
trying some movement styles.  derivatives on crystal quest movement.

Show diffs side-by-side

added added

removed removed

Lines of Context:
planet.lua
1
 
Planet = Tile:extend {
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
 
   goods = {},
15
 
   onNew = function (self)
16
 
              self.indicator = Tile:new{ image = 'data/planet1ind.png' }
17
 
              the.indicators:add(self.indicator)
18
 
 
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
30
 
                 end
31
 
              end
32
 
           end,
33
 
   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
40
 
                       tradeView = TradeView:new{ planet = self }
41
 
                       tradeView:activate()
42
 
                    end
43
 
                 end
44
 
              end
45
 
}
 
 
b'\\ No newline at end of file'