sprite.lua

--sprite class
Sprite = {
    r = 0,
    alpha = 1,
    flipped = false,
    visible = true,
    user = "",
    drawmode = "relative",
    depth = 5
}
local sprite_mt = class(Sprite)

function Sprite:new(x, y, image)
    local o = Sprite:init(x, y, image)

    return setmetatable(o, sprite_mt)
end

function Sprite:init(x, y, image)
    local o = {
        x = x, y = y,
        image = images[image]
    }
    o.width = o.image:getWidth()
    o.height = o.image:getHeight()

    return o
end

function Sprite:add(x, y, image)
    table.insert(p, Sprite:new(x, y, image))
end

function Sprite:update(dt)
end

function Sprite:draw()
    if self.visible then
        love.graphics.draw(
            self.image, self.x, self.y, self.r,
            (self.flipped and -1 or (not self.flipped and 1))
        )
    end
end

function Sprite:translate()
    return { x = self.x - camera.x, y = self.y - camera.y }
end

--animatedsprite class
AnimatedSprite = inherits(Sprite, {
    frame = 1,
    framedelta = 0,
    framerate = 12
})
local animatedsprite_mt = class(AnimatedSprite)

--the skins param should be a sequence of strings referring to animation objects, or a single string
function AnimatedSprite:init(x, y, skins)
    local o = {
        x = x, y = y,
        skins = {}
    }
    
    if type(skins) == "string" then
        o.skins = { animations[skins] }
    elseif type(skins) == "table" then
        for i,_ in ipairs(skins) do
            o.skins[i] = animations[skins[i]]
        end
    else
        error("skins parameter is not a string or table of strings")
    end

    o.anim = o.skins[1]
    o.width = o.anim.image:getWidth() / o.anim.frames
    o.height = o.anim.image:getHeight()

    return o
end

function AnimatedSprite:new(x, y, skins)
    local o = AnimatedSprite:init(x, y, skins)

    return setmetatable(o, animatedsprite_mt)
end

function AnimatedSprite:add(x, y, skins)
    table.insert(p, AnimatedSprite:new(x, y, skins))
end

function AnimatedSprite:update(dt)
    self:animate(dt)
end

function AnimatedSprite:animate(dt)
    self.framedelta = self.framedelta + dt
    if self.framedelta > 1 / self.framerate then
        self.framedelta = self.framedelta - 1 / self.framerate
        self:advanceframe()
    end
end

function AnimatedSprite:advanceframe()
    self.frame = self.frame + 1
    if self.frame > self.anim.frames then
        self.frame = 1
    end
end

function AnimatedSprite:resetanimation()
    self.frame = 1
    self.framedelta = 0
end

function AnimatedSprite:swapanimation(anim)
    if self.anim ~= anim then
        self:resetanimation()
        self.anim = anim
    end
end

function AnimatedSprite:drawselfanim()
    if self.visible then
        local xoff = self.flipped and self.width or (not self.flipped and 0)

        love.graphics.draw(
            self.anim.image, self.anim.quads[self.frame],
            self.x + xoff, self.y, self.r,
            (self.flipped and -1 or (not self.flipped and 1)), 1
        )
    end
end

function AnimatedSprite:draw()
    self:drawselfanim()

    if self.bounds ~= nil and showdebug then
        self.bounds:draw()
    end
end