/ld28

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

« back to all changes in this revision

Viewing changes to player.lua

  • Committer: Josh C
  • Date: 2013-12-15 02:20:51 UTC
  • Revision ID: josh@9ix.org-20131215022051-kyqldojzgu2xxcg8
moving goal, clones turning green...

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
Player = Fill:extend {
 
2
   fill = {255,0,0},
 
3
   width = 16, height = 16,
 
4
   queue = deque.new(),
 
5
   onNew = function(self)
 
6
              for _ = 1, math.random(1,3) do
 
7
                 self.queue:push_right(dirs[math.random(1,4)])
 
8
              end
 
9
           end,
 
10
   onUpdate = function(self)
 
11
                 local keys = {the.keys:allJustPressed()}
 
12
                 if keys[1] then
 
13
                    local dirKey = false
 
14
                    for _, dir in ipairs(dirs) do
 
15
                       if dir == keys[1] then
 
16
                          dirKey = true
 
17
                       end
 
18
                    end
 
19
 
 
20
                    if dirKey then
 
21
                       --print('key: ' .. keys[1])
 
22
                       self.queue:push_right(keys[1])
 
23
 
 
24
                       self.direction = self.queue:pop_left()
 
25
                       if self.direction == 'left' then
 
26
                          self.x = self.x - self.width
 
27
                       elseif self.direction == 'right' then
 
28
                          self.x = self.x + self.width
 
29
                       elseif self.direction == 'up' then
 
30
                          self.y = self.y - self.height
 
31
                       elseif self.direction == 'down' then
 
32
                          self.y = self.y + self.height
 
33
                       end
 
34
 
 
35
                       self.moved = true
 
36
                    end
 
37
                 end
 
38
              end,
 
39
   onCollide = function(self, other)
 
40
                  if other ~= the.view.map then
 
41
                     --print('collision')
 
42
 
 
43
                     other:displaceDir(self,
 
44
                                       util.dirToXY(self.direction),
 
45
                                       - util.dirToPosNeg(self.direction))
 
46
                  end
 
47
               end
 
48
}
 
 
b'\\ No newline at end of file'