FarmingAFK (Outdated- but should work)V2.5.1

--[[
    Farming AFK for ArchLightOnline
    Version 2.5.1 - PRIV VERSION (Ownership; Mr Trilo)
    Created by Mr Trala

Instructions;
Due to a unknown problem in xeno you can't water the plant the same way you "plant" and "collect" it;
So, you need to have the "waterskin of water" ALWAYS at the first slot of your backpack;
Easy to do if you just keep the waterskin in your "WaterBP" alone.
Configure PlantID, FarF and WaterTO and add the respective ID of your plants (you can put all of them; ex: PlantID = {5953, 1111, 2222}).
If you want to AFK 24/7 you should use an auto opener backpack at login (which is not included here).
Close your main door; just in case someone wants to troll you.
For perfect config you can see:
http://i64.tinypic.com/293ktia.png
Have fun!

Credits to;
Saul Pallavicino -- Idea
Mr Trala -- Programmer
]]

config = {
    PlantID = {5953}, -- Id of the plant you want to grow (the seed).
    FarmF = {14033}, -- Id of the pot to use scythe (the final plant).
    WaterTO = {331}, -- Id of the middle plant (the one who needs water).
    WaterBP = "Blue Backpack", -- Name of your waterbp (where you keep the waterskin of water)
    itemsID = {5953}, -- Ids of your final plants to be moved (and planted again).
    Dirts = {950, 4822, 952, 4821} -- Don't Change this.
}

-- Script Configs - Don't touch this ones.
pos = Self.Position()
WBP = Container.New(config.WaterBP)
MainBP = Container(0)
function Plant()
    for y = -5, 5 do
        for x = -5, 5 do
            if table.contains(config.PlantID, Map.GetTopMoveItem(pos.x + x, pos.y + y, pos.z).id) then
                Self.UseItemWithGround(3455, pos.x + x, pos.y + y, pos.z)
                wait(3000, 3100)

            elseif table.contains(config.FarmF, Map.GetTopMoveItem(pos.x + x, pos.y + y, pos.z).id) then
                Self.UseItemWithGround(3453, pos.x + x, pos.y + y, pos.z)
                wait(3000, 3100)
            end

            if table.contains(config.WaterTO, Map.GetTopMoveItem(pos.x + x, pos.y + y, pos.z).id) then
                WBP:UseItemWithGround(slot, pos.x + x, pos.y + y, pos.z)
                wait(3000, 3100)
            end

            for spot, item in MainBP:iItems() do
                if table.contains(config.Dirts, Map.GetTopMoveItem(pos.x + x, pos.y + y, pos.z).id) and (table.contains(config.itemsID, item.id)) then
                        MainBP:MoveItemToGround(spot, pos.x + x, pos.y + y, pos.z, 1)
                end
            end

        end
    end
    sleep(math.random(1400, 1500))
end


registerEventListener(TIMER_TICK, "Plant")