[Script] Farm (Alpha)

--Bolodefchoco
--2016

data = {
    formats = {
        plants = "<N>Level required <G>: <VP>%s\n<N>Type <G>: <VP>%s\n\n<N>Harvest Time <G>: <VP>%s\n\n<N>Price <G>: <VP>$%s\n<N>Resale <G>: <VP>$%s",
        items = "<N>Level required <G>: <VP>%s\n<N>Type <G>: <VP>%s\n\n<N>Uses <G>: <VP>%s\n<N>Health <G>: <VP>-%s\n\n<N>Price <G>: <VP>$%s",
        expansions = "<N>Level required <G>: <VP>%s\n\n<N>Size <G>: <VP>+%spx\n<N>Gaps <G>: <VP>+%s\n\n<N>Price <G>: <VP>$%s",
    },
    types = {"Flowers","Fruits","Vegetables","Water pots","Rakes","Pesticides","Fertilizers","Bugs"},
    plants = {
        [1] = {
            --[[ Name ]] [1] = "Banana",
            --[[ Level ]] [2] = 25,
            --[[ Type ]] [3] = 2,
            --[[ Harvest Time ]] [4] = 4500,
            --[[ Price ]] [5] = 10,
            --[[ Resale ]] [6] = 15,
            --[[ Image ]] [7] = {"",400,60},
        },
        [2] = {
            [1] = "Grape",
            [2] = 35,
            [3] = 2,
            [4] = 1000,
            [5] = 15,
            [6] = 18,
            [7] = {"",400,60},
        },
    },
    items = {
        [1] = {
            --[[ Name ]] [1] = "Simple hoe",
            --[[ Level ]] [2] = 2,
            --[[ Type ]] [3] = 5,
            --[[ Uses ]] [4] = "Infinity",
            --[[ Health ]] [5] = 0,
            --[[ Price ]] [6] = 10,
            --[[ Image ]] [7] = {"",400,60},
        },
        [2] = {
            [1] = "Toxic Pesticide",
            [2] = 5,
            [3] = 6,
            [4] = 2,
            [5] = 5,
            [6] = 8,
            [7] = {"",400,60},
        },
    },
    expansions = {
        [1] = {
            --[[ Name ]] [1] = "Full size",
            --[[ Level ]] [2] = 35,
            --[[ Size ]] [3] = 800,
            --[[ Gaps ]] [4] = 6,
            --[[ Price ]] [5] = 80,
            --[[ Images ]] [7] = {"",400,60},
        },
    },
}
mice={}
eventNewPlayer=function(n)
    if not mice[n] then
        mice[n] = {
            plants = {
                [1] = {"id","quantity","health"},
            },
            area = 800, -- u can buy + space
            planted = {
                [1] = {"id","speed","health","position"},
            }, -- Plants planteds
            coins = 25,
            water = 5, -- Grow up faster
            fertilizer = 3, -- Grow up faster x2
            hoe = 10, -- Clean an already used gap/earth
            pesticide = 0, -- Removes 50% of health but removes the bugs
            ladybug = 0, -- + expensive than pesticide, remove bugs, but keep healthy
            level = 0,
            sold = 0,
            shop_page = 1,
            shop_cat = "plants",
            image = "",
        }
    end
    system.bindMouse(n,true)
    system.bindKeyboard(n,79,true,true) -- O
end
table.foreach(tfm.get.room.playerList,eventNewPlayer)

getTime=function(time)
    if type(time)~="number" then return "?" end
    local second = time%60
    local minutes = time/60
    local minute = minutes%60
    local hours = minutes/60
    local hour = hours%24
    local day = hours/24
    return ("%dd %dh %dm %ds"):format(day,hour,minute,second)
end

ui.shop=function(n)
    tfm.exec.removeImage(mice[n].image)
    local where = data[mice[n].shop_cat][mice[n].shop_page]
    local formats = mice[n].shop_cat == "plants" and {where[2],where[3],getTime(where[4]),where[5],where[6]} or mice[n].shop_cat == "items" and {where[2],where[3],where[4],where[5],where[6]} or {where[2],where[3],where[4],where[5]}
    mice[n].image = tfm.exec.addImage(where[7][1],"!0",where[7][2],where[7][3],n)
    ui.addTextArea(0,"",n,155,45,490,330,0xDAFF,0xDAFF,1,true)
    ui.addTextArea(1,"",n,157,47,486,326,0x223040,0x223040,1,true)
    ui.addTextArea(2,"",n,160,50,480,320,0x1a2433,0x1a2433,1,true)
    ui.addTextArea(3,"",n,430,60,200,300,0x213147,0x213147,1,true)--Image
    ui.addTextArea(4,"<font size='13' letterSpacing='1'>"..data.formats[mice[n].shop_cat]:format(table.unpack(formats)),n,172,200,240,123,0x213147,0x213147,1,true)
    ui.addTextArea(5,"<p align='center'><B><BV><a href='event:close_shop'>Close</a>",n,170,340,240,20,0x213147,0x213147,1,true)
    ui.addTextArea(6,("<p align='center'><font size='12'><B><a href='event:shop_left'><BV>&lt;&lt;</BV></a>      <font size='15'>%s</font>      <a href='event:shop_right'><BV>&gt;&gt;</BV></a>"):format(where[1]),n,170,87,240,25,0x213147,0x213147,1,true)
    ui.addTextArea(7,("<font size='12'><N>Coins <G>: <V>$%s\n<N>Area <G>: <V>%spx\n<N>Level <G>: <V>%s"):format(mice[n].coins,mice[n].area,mice[n].level),n,170,130,240,52,0x213147,0x213147,1,true)
    ui.addTextArea(8,"",n,171,56,240,15,0x334b6c,0x334b6c,1,true)
    ui.addTextArea(9,("<p align='center'><font size='13'>%s<a href='event:plants'>Plants</a> <BL>- %s<a href='event:items'>Items</a> <BL>- %s<a href='event:expansions'>Expansions"):format(mice[n].shop_cat=="plants" and "<J>" or "<N>",mice[n].shop_cat=="items" and "<J>" or "<N>",mice[n].shop_cat=="expansions" and "<J>" or "<N>"),n,170,53,240,25,1,1,0,true)
end

eventKeyboard=function(n,k)
    if k == 79 then
        ui.shop(n)
    end
end

eventTextAreaCallback=function(i,n,c)
    local p = {};for v in c:gmatch("[^_]+") do p[#p+1]=v end
    if p[1] == "close" then
        if p[2] == "shop" then
            tfm.exec.removeImage(mice[n].image)
            mice[n].shop_cat = "plants"
            mice[n].shop_page = 1
            for i = 0,9 do
                ui.removeTextArea(i,n)
            end
        end
    end
    if p[1] == "plants" or p[1] == "items" or p[1] == "expansions" then
        mice[n].shop_cat = p[1]
        mice[n].shop_page = 1
        ui.shop(n)
    end
    if p[1] == "shop" then
        if p[2] == "left" or p[2] == "right" then
            mice[n].shop_page = (p[2]=="left" and (mice[n].shop_page>1 and mice[n].shop_page-1 or #data[mice[n].shop_cat]) or (mice[n].shop_page<#data[mice[n].shop_cat] and mice[n].shop_page+1 or 1))
            ui.shop(n)
        end
    end
end