HultinHud v2 - PRE RELEASE - Tibia - Windbot

init start
-- Hultin's Hud v2.0.0
-- Major revision from old hud!
-- Last update: 31/3/2014

    -- Script author - This is where you put your name.
    -- The rest of the script info is entered into Useroptions.
    local ScriptAuthor = "Hultin"

    -- Configuration for width/height
    local FieldConfig = {
        Height = 22, -- Optimized for 22px. Sizes lower than 20 looks weird and narrow, keep that in mind if you set the height lower.
        Width  = 260, -- Total width of the HUD. Value/Field widths are automatically calculated.
    }


    -- You can add more color points to create a gradient. The current implementation is just a flat gradient.
    -- First value is graident point, color(r, g, b, a)
    -- Alpha is 0-100, 0 is non-transparent 100 is fully see through (no color!)
    local Colors = {
        HeaderColor =       {1, color(41, 79, 109, 10)},
            HeaderInnerBorder   = color(58, 106, 140, 10),
        FieldColor  =       {1, color(40, 40, 40, 10)},
            FieldInnerBorder    = color(74, 74, 74, 10),
        ValueNeutral =      {1, color(158, 104, 0, 10)},
            NeutralInnerBorder  = color(166, 124, 44, 10),
        ValuePositive =     {1, color(67, 99, 13, 10)},
            PositiveInnerBorder = color(94, 119, 53, 10),
        ValueNegative =     {1, color(139, 37, 13, 10)},
            NegativeInnerBorder = color(150, 72, 54, 10),
        Transparent  =      {1, color(0, 0, 0, 100)},
            NoInnerBorder       = color(0, 0, 0, 100)
    }


    -- This value configures the width of the valuefield.
    FieldConfig.ValueWidth = FieldConfig.Width/2.2
    FieldConfig.TextOffset = FieldConfig.Height/2+5

    -- Added to make it easier to work with enginestates.
    local Engines = {
        {Name = 'Cavebot', Element = nil},
        {Name = 'Looting', Element = nil},
        {Name = 'Targeting', Element = nil},
        {Name = 'Spell Healer', Element = nil},
        {Name = 'Potion Healer', Element = nil},
        {Name = 'Condition Healer', Element = nil},
        {Name = 'Mana Trainer', Element = nil},
    }
    -- Temporary
    local BotE = {'Cavebot', 'Looting', 'Targeting', 'Spell Healer', 'Potion Healer', 'Condition Healer', 'Mana Trainer'}

    -- Input events.
    -- Keys, Mouseclicks, Mousemoves, Stealfocus
    filterinput(false, true, false, false)
    -- Allows interaction with hud, aswell as adds the ability to move the HUD.
    function inputevents(e)
        if e.type == IEVENT_LMOUSEUP then
            for _, v in ipairs(Engines) do
                if e.elementid == v.Element then
                    toggle(v.name:gsub(' ', '') .. '/Enabled')
                    return
                end

            end
        end
    end

    local Elements = {}
init end
--[[ Functions ]]--

-- Returns a formated textstring for your vip and such.
function viptext()
    foreach vipentry v do
        total = total +1
        if(v.isonline) then
            online = online + 1
        end
    end
    return total..' ('..online..')'
end

-- Works like PHPs ucfirst()
-- http://www.php.net/manual/en/function.ucfirst.php
function firstToUpper(str)
    return (str:gsub("^%l", string.upper))
end

-- Credit to SIRMATE
function WeaponSkill()
    local SkillTypes = {
        ['axe'] = {type = 'axe', skill = $axe, skillpc = $axepc},
        ['club'] = {type = 'club', skill = $club, skillpc = $clubpc},
        ['sword'] = {type = 'sword', skill = $sword, skillpc = $swordpc},
        ['bow'] = {type = 'distance', skill = $distance, skillpc = $distancepc},
        ['distance weapon'] = {type = 'distance', skill = $distance, skillpc = $distancepc},
        ['no weapon'] = {type = 'fist', skill = $fist, skillpc = $fistpc},
        ['rod'] = {type = 'magic', skill = $mlevel, skillpc = $mlevelpc},
        ['wand'] = {type = 'magic', skill = $mlevel, skillpc = $mlevelpc},
    }

    return SkillTypes[findweapontype()]
end

-- String used for Weaponskill/Magiclevel section of the HUD.
local TypeSkill = WeaponSkill() or {type = 'magic', skill = $mlevel, skillpc = $mlevelpc}

-- Sections, you can add/remove elements as you please.
local Sections = {
        {
            Name = getuseroption('scriptname'),
            Display = true,
            Items = {
                {"Created by", ScriptAuthor},
                {"Version", getuseroption('scriptversion')}
            }
        },
        {
            Name = "Engine states",
            Display = true,
            Items = {
                {"Cavebot",         "ON"},
                {"Looting",         "ON"},
                {"Targeting",       "ON"},
                {"Spell Healer",    "OFF"},
                {"Potion Healer",   "ON"},
                {"Condition Healer","OFF"}
            }
        },
        {
            Name = "Character stats",
            Display = true,
            Items = {
                {"Experience", num($exp)..' exp'},
                {"Experience/hour", num($exphour)},
                {"Experience left", num(exptolevel())..' exp'},
                {"Experience gained", num($expgained)..' exp'},
                {"Time online", time(math.floor($timems / 1000))},
                {"Time to level", time(timetolevel())},
                {"Ping", $ping .. ' (avg: ' .. $pingaverage .. ')'},
            }
        },
        {
            Name = "Botting stats",
            Display = true,
            Items = {
                {"Level", $level .. ' (' .. 100 - math.floor(($exp - expatlvl($level)) * 100 / (expatlvl($level + 1) - expatlvl($level))) .. '%)'},
                {firstToUpper(TypeSkill.type)..' level', TypeSkill.skill .. ' (' .. 100 - TypeSkill.skillpc .. '%)'},
                {"Balance", num($balance)},
                {"Stamina", time($stamina)},
                {"Softboots duration", 0},
                {"Vip (Online)", "7 (3)"}
            }
        },
        {
            Name = "Development toolkit",
            Display = false,
            Items = {
                {"Position", $posx..'/'..$posy..'/'..$posz},
                {"Mouseover item", $cursorinfo.id},
                {"Mouse position", $cursorinfo.x..'/'..$cursorinfo.y..'/'..$cursorinfo.z}
            }
        }
    }
--[[ Functions - Continued ]]--
function y(v)
    return v + (FieldConfig.Height + 5)
end
-- Creates a header
function DrawHeader(posx, posy)
    addgradcolors(table.unpack(Colors.Transparent))
    setbordercolor(color(0, 0, 0, 10))
    drawrect(posx, posy, FieldConfig.Width+2, FieldConfig.Height+2)

    addgradcolors(table.unpack(Colors.HeaderColor))
    setbordercolor(Colors.HeaderInnerBorder)
    drawrect(posx+1, posy+1, FieldConfig.Width, FieldConfig.Height)
end
-- Creates a field

function DrawField(posx, posy)
    posx = posx
    addgradcolors(table.unpack(Colors.Transparent))
    setbordercolor(color(0, 0, 0, 10))
    drawrect(posx, posy, (FieldConfig.Width-FieldConfig.ValueWidth)-1, FieldConfig.Height+2)

    addgradcolors(table.unpack(Colors.FieldColor))
    setbordercolor(Colors.FieldInnerBorder)
    drawrect(posx+1, posy+1, FieldConfig.Width-FieldConfig.ValueWidth-3, FieldConfig.Height)
end
-- Creates a value
function DrawValue(posx, posy, valueType)
    if(valueType == "positive") then
        Border      = Colors.PositiveInnerBorder
        Background  = Colors.ValuePositive
    elseif(valueType == "negative") then
        Border      = Colors.NegativeInnerBorder
        Background  = Colors.ValueNegative
    else
        Border      = Colors.NeutralInnerBorder
        Background  = Colors.ValueNeutral
    end
    addgradcolors(table.unpack(Colors.Transparent)) -- This will not show, anyways.
    setbordercolor(color(0, 0, 0, 10))
    drawrect(FieldConfig.Width-FieldConfig.ValueWidth+posx, posy, FieldConfig.ValueWidth+2, FieldConfig.Height+2)

    addgradcolors(table.unpack(Background))
    setbordercolor(Border)
    drawrect((FieldConfig.Width-FieldConfig.ValueWidth)+1+posx, posy+1, FieldConfig.ValueWidth, FieldConfig.Height)
end
-- Draws text
function DrawText(text, x, y, fieldtype)
    -- Field type is shorthand functionality to place it over the VALUE elements.
    if(fieldtype == "value") then
        x = ((FieldConfig.Width-FieldConfig.ValueWidth)+x)
    end
    addtext(text, x+6, y+6)
end
-- Hud definitions
setposition($clientwin.left + 5, $worldwin.top+2)
setfontstyle('Tahoma', 8, 75, 0xcfebfd, 1, 0x000000)
setfillstyle('gradient', 'linear', 2, 0, 0, 0, 21)
setantialiasing(true)
--
local yPos = 0
local isEnabled = nil

-- Loop fields/values
for k, v in ipairs(Sections) do
    if(v.Display) then
    DrawHeader(0, yPos)
    DrawText(v.Name, 0, yPos)
        for k, v in ipairs(v.Items) do
            local Field, Value = v[1], v[2]
            local fieldColor = nil
            local xOffset = 0

            if(table.find(BotE, Field)) then
                isEnabled = get(Field:gsub(' ', '') .. '/Enabled') == 'yes'
                fieldColor = tern(isEnabled, "positive", "negative")
                Value = tern(isEnabled, "ON", "OFF")
                xOffset = tern(isEnabled, (FieldConfig.ValueWidth/2)-12, (FieldConfig.ValueWidth/2)-14)
            elseif(Field == "Stamina") then
                if($stamina > 40*60) then
                    fieldColor = "positive"
                end
            end

            yPos = y(yPos) -- Increment yPos

            DrawField(0, yPos)
            DrawValue(0, yPos, fieldColor)
            DrawText(Field, 0 ,yPos)
            DrawText(Value, 0+xOffset, yPos, "value")
        end

    yPos = y(yPos)
    end

end
-- Footer should NEVER be edited or changed. It's theft if you do so without permission!
DrawHeader(0, yPos)
DrawText("Hultin's HUD - Pre-release", 0, yPos)
DrawText("v2.0.0", FieldConfig.Width-45, yPos)
-- Thank you for using Hultin's Hud V2.