pmat 3.11.0

PMAT - Zero-config AI context generation and code quality toolkit (CLI, MCP, HTTP)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134

--- Game module: A simple game engine demonstrating Lua patterns
-- Used by pmat for Lua AST analysis demonstration

local ok, json = pcall(require, "dkjson")
if not ok then error("Failed to load dkjson module: " .. tostring(json)) end

local Game = {}
Game.__index = Game

--- Create a new game instance
-- @param width number Screen width
-- @param height number Screen height
-- @return Game
function Game:new(width, height)
    local self = setmetatable({}, self)
    self.width = width or 800
    self.height = height or 600
    self.entities = {}
    self.running = false
    self.frame = 0
    return self
end

--- Add an entity to the game world
-- @param entity table Entity with x, y, update, draw methods
function Game:add_entity(entity)
    if not entity.x or not entity.y then
        error("Entity must have x and y coordinates")
    end
    table.insert(self.entities, entity)
end

--- Remove dead entities from the world
function Game:cleanup()
    local alive = {}
    for _, entity in ipairs(self.entities) do
        if entity.health and entity.health > 0 then
            table.insert(alive, entity)
        elseif not entity.health then
            table.insert(alive, entity)
        end
    end
    self.entities = alive
end

--- Update all entities
-- @param dt number Delta time in seconds
function Game:update(dt)
    for _, entity in ipairs(self.entities) do
        if entity.update then
            entity:update(dt)
        end

        -- Boundary check
        if entity.x < 0 then
            entity.x = 0
        elseif entity.x > self.width then
            entity.x = self.width
        end

        if entity.y < 0 then
            entity.y = 0
        elseif entity.y > self.height then
            entity.y = self.height
        end
    end

    self:cleanup()
    self.frame = self.frame + 1
end

--- Check collision between two entities
-- @param a table First entity
-- @param b table Second entity
-- @return boolean
function Game:check_collision(a, b)
    if not a.radius or not b.radius then
        return false
    end

    local dx = a.x - b.x
    local dy = a.y - b.y
    local distance = math.sqrt(dx * dx + dy * dy)
    return distance < (a.radius + b.radius)
end

--- Process all collisions in the world
function Game:process_collisions()
    local n = #self.entities
    for i = 1, n do
        for j = i + 1, n do
            local a = self.entities[i]
            local b = self.entities[j]
            if self:check_collision(a, b) then
                if a.on_collision then
                    a:on_collision(b)
                end
                if b.on_collision then
                    b:on_collision(a)
                end
            end
        end
    end
end

--- Serialize game state to JSON
-- @return string JSON representation
function Game:serialize()
    local state = {
        width = self.width,
        height = self.height,
        frame = self.frame,
        entity_count = #self.entities,
    }
    return json.encode(state)
end

--- Run the game loop
-- @param max_frames number Maximum frames to run (nil for infinite)
function Game:run(max_frames)
    self.running = true
    local dt = 1 / 60

    while self.running do
        self:update(dt)
        self:process_collisions()

        if max_frames and self.frame >= max_frames then
            self.running = false
        end
    end
end

return Game