Arrow Shooting Example - By Makinit

local settings = {
    map = "0",
    ammo = 6,
    force = 50,
    recoil = 10,
    maxObjects = 30,
    ammoTicks = 2,
}

local players = {}
local objects = {}

function main()
    objects = queue.new()
    tfm.exec.disableAutoScore(false)
    tfm.exec.disableAutoShaman(true)
    tfm.exec.disableAutoNewGame(true)
    tfm.exec.newGame(settings.map)
end

function eventNewGame()
    tfm.exec.setGameTime(0, true)
    players = {}
    for name in pairs(tfm.get.room.playerList) do
        initPlayer(name)
    end
end

function initPlayer(name)
    players[name] = {ammo = 0}
    ui.addTextArea(0, "", name, 10, 30, settings.ammo * 15, 20, 0x010101, 0x000000, 0.5)
    system.bindMouse(name, true)
end

function eventMouse(name, x, y)
    local player = players[name]
    if player and player.ammo > 0 then
        -- remove one ammo
        ui.removeTextArea(player.ammo * 2 - 1, name)
        ui.removeTextArea(player.ammo * 2, name)
        player.ammo = player.ammo - 1

        local roomPlayer = tfm.get.room.playerList[name]

        -- calculate angle between player and click
        local dx = x - roomPlayer.x
        local dy = y - roomPlayer.y
        local angle = math.atan2(dy, dx)

        -- calculate speeds to direct arrow and always have the same total speed
        local vx = math.cos(angle)
        local vy = math.sin(angle)

        -- spawn arrow and add to queue
queue.insert(objects, tfm.exec.addShamanObject(35, roomPlayer.x + 20 * vx, roomPlayer.y + 20 * vy, angle*180/math.pi, settings.force * vx, settings.force * vy, false))

        local recoil = -vx * settings.recoil
        -- workaround to avoid argument exception bug
        if recoil <= -1 or recoil >= 1 then
            tfm.exec.movePlayer(name, 0, 0, true, recoil, 0, true)
        end

        -- remove first arrow when there are too many
        if objects.size > settings.maxObjects then
            tfm.exec.removeObject(queue.remove(objects))
        end
    end
end

local loopCount = 0
function eventLoop()
    -- loopCount resets after a certain amount
    if loopCount == 0 then
        ammo()
    end
    loopCount = (loopCount + 1) % settings.ammoTicks
end

function ammo()
    for name, player in pairs(players) do
        local ammo = player.ammo
        if ammo < settings.ammo then
            -- add one ammo
            player.ammo = ammo + 1
            ui.addTextArea(ammo * 2 + 1, "", name, 14 + ammo * 15, 39, 3, 3, 0x990000, 0x990000, 1)
            ui.addTextArea(ammo * 2 + 2, "", name, 15 + ammo * 15, 40, 1, 1, 0xff0000, 0xcc0000, 1)
        end
    end
end

function eventNewPlayer(name)
    initPlayer(name)
    tfm.exec.respawnPlayer(name)
end

function eventPlayerDied(name)
    tfm.exec.respawnPlayer(name)
end
function eventPlayerWon(name)
    tfm.exec.respawnPlayer(name)
end

-- simple queue for performance, much faster than system table queues, can contain nils
queue = {}
function queue.new()
    return {
        tail = nil,
        head = nil,
        size = 0
    }
end
function queue.insert(self, v)
    local i = {
        value = v,
        next = nil
    }
    if self.tail and self.head then
        self.tail.next = i
    else
        self.head = i
    end
    self.tail = i
    self.size = self.size + 1
end
function queue.peek(self)
    if self.head then
        return self.head.value
    else
        error("queue is empty")
    end
end
function queue.remove(self)
    local r = queue.peek(self)
    self.head = self.head.next
    if not self.head then
        tail = nil
    end
    self.size = self.size - 1
    return r
end

main()