world.lua


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

_World = {}
World = {}

_id = 1
function _next_id()
    i = _id
    _id += 1
    return i
end

function World.sort(cmp)
    -- qsort(_World, cmp)
end

function World.get(id)
    return _World[id]
end
function World.add(entity)
    entity.id = _next_id()
    _World[entity.id] = entity
    return World.get(entity.id)
end

function World.foreach(f)
    for id, entity in pairs(_World) do
        f(entity)
    end
end

function World.cull_the_dead()
    to_reap = {}
    for id, e in pairs(_World) do
        if (e.life_time ~= nil and e.life_time <= 0) then
            to_reap[id] = e
        end
    end
    for id, e in pairs(to_reap) do
        _World[id] = nil
    end
    return _World
end