Page 1 of 6 123 ... LastLast
Results 1 to 10 of 60

Thread: HUDs by Balkarynd

  1. #1
    Normal User
    Join Date
    Sep 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Reputation
    43
    Rep Power
    5

    HUDs by Balkarynd

    HUDs by Balkarynd
    Hello, here i'll post some HUDs I made. Enjoy

    Basic HUD
    Show Special Areas
    Show Waypoints
    Last edited by Balkarynd; 01-05-2013 at 04:01 PM.

  2. #2
    Normal User
    Join Date
    Sep 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Reputation
    43
    Rep Power
    5
    Basic HUD:
    I used last loot messages made by BlakW, all the other things were made by me.
    You need Sirmate's Library
    PHP Code:
    WarnItems = {"Magma Boots","Wand of Inferno","Dragon Hammer","Dragon Shield","Dragonbone Staff","Fire Sword","Tower Shield","Dragon Slayer","Royal Helmet","Dragon Lord Trophy","Dragon Scale Mail"}
    MaxLootMessages 10
    ShowLastLoots 
    true

    Engine 
    = {"CaveBot""Targeting""Looting""Healer"}    --You can add/remove what you wantIt must be exactly like in the iBot Settings
    ExpH "tibia"    --Exp/hoptions are "Tibia""Bot""All"


    Spacing 15    --Spacing between lines
    FontSize 
    9    --Font Size
    10        --HUD Position X
    70        --HUD Position Y
    x2 
    100    --Information Position X

    -- ##### DO NOT EDIT BELOW THIS LINE #####

    HUD = {"Level""Exp/h""Exp Left""Time to Level""Exp Gained""Time Online""Stamina""Balance"}

    if 
    string.upper(ExpH)=="ALL" then
        ExpH
    =Misc.FormatNumber(tibiaexphour).." (Tibia) / "..Misc.FormatNumber(exphour).." (Bot)"
        
    TimeNextLevel=string.format("%02s"math.floor(exptolevel()/exphour))..":"..string.format("%02s"math.floor(60*(exptolevel()/exphour-math.floor(exptolevel()/exphour))))..":"..string.format("%02s"math.floor(60*(60*(exptolevel()/exphour-math.floor(exptolevel()/exphour))-math.floor(60*(exptolevel()/exphour-math.floor(exptolevel()/exphour))))))
    elseif 
    string.upper(ExpH)=="TIBIA" then
        ExpH
    =Misc.FormatNumber(tibiaexphour)
        
    TimeNextLevel=string.format("%02s"math.floor(exptolevel()/tibiaexphour))..":"..string.format("%02s"math.floor(60*(exptolevel()/tibiaexphour-math.floor(exptolevel()/tibiaexphour))))..":"..string.format("%02s"math.floor(60*(60*(exptolevel()/tibiaexphour-math.floor(exptolevel()/tibiaexphour))-math.floor(60*(exptolevel()/tibiaexphour-math.floor(exptolevel()/tibiaexphour))))))
    else
        
    ExpH=Misc.FormatNumber(exphour)
        
    TimeNextLevel=string.format("%02s"math.floor(exptolevel()/exphour))..":"..string.format("%02s"math.floor(60*(exptolevel()/exphour-math.floor(exptolevel()/exphour))))..":"..string.format("%02s"math.floor(60*(60*(exptolevel()/exphour-math.floor(exptolevel()/exphour))-math.floor(60*(exptolevel()/exphour-math.floor(exptolevel()/exphour))))))
    end

    Info 
    = {level.." ("..string.format("%0.2f", (6*exp-100*level^3+600*level^2-1700*level+1200)/(3*level^2-9*level+12)).."%)"ExpHMisc.FormatNumber(exptolevel()).." ("..string.format("%0.2f"100-(6*exp-100*level^3+600*level^2-1700*level+1200)/(3*level^2-9*level+12)).."%)"TimeNextLevelexpgainedtimehuntmath.floor(stamina/60)..":"..string.format("%02s", (stamina-60*math.floor(stamina/60))), Misc.FormatNumber(balance)}

    local function addtextshadow(textcolorshadowcolorxposypos)
        
    setfontcolor(shadowcolor)
        
    addtext(textxpos+1ypos+1)
        
    setfontcolor(color)
        
    addtext(textxposypos)
    end
    local 
    function addtextcontour(textcolorcontourcolorxposypos)
        
    setfontcolor(contourcolor)
        
    addtext(textxpos+1ypos)
        
    addtext(textxpos-1ypos)
        
    addtext(textxposypos+1)
        
    addtext(textxposypos-1)
        
    addtext(textxpos-1ypos-1)
        
    addtext(textxpos+1ypos+1)
        
    addtext(textxpos+1ypos-1)
        
    addtext(textxpos-1ypos+1)
        
    setfontcolor(color)
        
    addtext(textxposypos)
    end

    setfontstyle
    ("Trebuchet MS"FontSize+5"B")
    addtextcontour("BALKA SCRIPTS"rgbcolor(0,150,255), rgbcolor(0,90,151),x+2,30)

    setfontstyle("Tahoma"FontSize-1"B")
    addtextcontour("balkascripts@gmail.com""DeepSkyBlue"rgbcolor(1,75,100),x+2,50)

    for 
    1table.getn(HUD) do
        
    setfontstyle("Verdana"FontSize"B")
        
    addtextshadow(HUD[i]..":""Gold"rgbcolor(1,1,1),x,y+Spacing*(i-1))
        
    setfontstyle("CenturyGothic"FontSize"B")

        if (
    HUD[i]=="Stamina"then
            
    if (stamina 840then addtextshadow(Info[i], rgbcolor(255,0,0), rgbcolor(50,1,1), x2+x,y+Spacing*(i-1))
        elseif (
    stamina >= 2400then addtextshadow(Info[i], rgbcolor(0,250,0), rgbcolor(1,50,1), x2+x,y+Spacing*(i-1))
            else    
    addtextshadow(Info[i], rgbcolor(230,150,0), rgbcolor(50,25,1), x2+x,y+Spacing*(i-1)) end
        
    else
            
    addtextshadow(Info[i], "White"rgbcolor(1,1,1), x2+xy+Spacing*(i-1))
        
    end
    end

    for 1table.getn(Engine) do
        
    setfontstyle("Verdana"FontSize"B")
        
    addtextshadow(Engine[i]..":""Gold"rgbcolor(1,1,1), x,y+Spacing*(table.getn(HUD)+i-1/2))

        
    setfontstyle("CenturyGothic"FontSize-1"B")
        if (
    getsettings("Settings\\"..Engine[i].."\\Enabled")=="yes"then
            addtextcontour
    ("ON"rgbcolor(0,250,0), rgbcolor(1,80,1), x2+x,y+Spacing*(table.getn(HUD)+i-1/2))
        else
            
    addtextcontour("OFF"rgbcolor(250,0,0), rgbcolor(80,1,1), x2+x,y+Spacing*(table.getn(HUD)+i-1/2))
        
    end
    end

    if ShowLastLoots then
    setfontstyle
    ("Tahoma"FontSize-1"B")
    local index 
    local msgs 
    getmessages("Server Log")
    local qtd msgs.count-1
    for i=0,qtd do
       if 
    msgs[qtd-i].type == 19 and msgs[qtd-i].text:find('Loot of 'then
     
          local colorm 
    false
          local l 
    0
          
    for l=1table.getn(WarnItems) do
             if 
    msgs[qtd-i].text:find(WarnItems[l]:lower()) then
                colorm 
    true
                
    break
             
    end
          end
          
    if colorm then
             colorLastLoot 
    rgbcolor(255,0,0)
          else
             
    colorLastLoot rgbcolor(0,239,0)
          
    end

        addtextshadow
    (msgs[qtd-i].textcolorLastLootrgbcolor(1,1,1), worldwin.left+12,worldwin.bottom+15-(index*Spacing))
     
          
    index=index+1
          
    if index == MaxLootMessages then
            
    break
          
    end
       end
    end
    end 
    Last edited by Balkarynd; 01-05-2013 at 03:46 PM.

  3. #3
    Normal User
    Join Date
    Sep 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Reputation
    43
    Rep Power
    5
    Show Special Areas:
    You can choose if you want to show Special Areas names.
    No library needed.

    PHP Code:
    SpecialAreas = {"NewArea0","NewArea1","NewArea2","NewArea3"}
    ShowNames=true    --Show SpecialAreas Names? (true/false)
    FontSize 10

    -- ### Colors ###
    NameColor=rgbcolor(0,191,255)
    TargetColor=rgbcolor(250,15,15)
    CavebotColor=rgbcolor(15,250,75)
    AllColor=rgbcolor(255,225,0)
    NoneColor=rgbcolor(255,255,255)

    -- 
    ### DO NOT EDIT BELOW ###
    local function addtextshadow(textcolorshadowcolorxposypos)
        
    setfontcolor(shadowcolor)
        
    addtext(textxpos+1ypos+1)
        
    setfontcolor(color)
        
    addtext(textxposypos)
    end
    function string:split(sep)
            
    local sepfields sep or ":", {}
            
    local pattern string.format("([^%s]+)"sep)
            
    self:gsub(pattern, function(cfields[#fields+1] = c end)
            
    return fields
    end

    setfontstyle
    ("Trebuchet MS",FontSize,"B")

    for 
    sa=1table.getn(SpecialAreas) do
        
    Considered getsettings("Settings\\CaveBot\\Pathfinding\\SpecialAreas\\"..SpecialAreas[sa].."\\ConsideredBy")
        if 
    Considered~="" then
        
    if Considered == "Target" then FontColor=TargetColor
        
    elseif Considered == "Cavebot" then FontColor=CavebotColor
        
    elseif Considered == "All" then FontColor=AllColor
        
    else FontColor=NoneColor
        end
        Coordinates
    =getsettings("Settings\\CaveBot\\Pathfinding\\SpecialAreas\\"..SpecialAreas[sa].."\\Coordinates"):split(" ")
        
    Dimensions=getsettings("Settings\\CaveBot\\Pathfinding\\SpecialAreas\\"..SpecialAreas[sa].."\\Dimensions"):split(" ")
        
    lx=15
        ly
    =15
        
    if string.upper(Coordinates[3])==string.upper(posz) and posx>=math.min(Coordinates[1], Coordinates[1]+Dimensions[1])-lx and posx<=math.max(Coordinates[1], Coordinates[1]+Dimensions[1])+lx and posy>=math.min(Coordinates[2], Coordinates[2]+Dimensions[2])-ly and posy<=math.max(Coordinates[2], Coordinates[2]+Dimensions[2])+ly then
            ux 
    worldwin.width/15
            uy 
    worldwin.height/11
            i
    =Coordinates[1]-posx
            j
    =Coordinates[2]-posy
            setfontcolor
    (FontColor)
            for 
    dx=math.min(0,Dimensions[1]),math.max(0,Dimensions[1])-do
                for 
    dy=math.min(0,Dimensions[2]),math.max(0,Dimensions[2])-do
                    for 
    s=1,worldwin.width/90 do
                        if 
    dy==math.min(0,Dimensions[2]) then
                            addtextshadow
    ("_"FontColorrgbcolor(1,1,1), (i+15/2+dx)*ux+3+s*2+worldwin.left, (j+5+dy)*uy+13)
                            
    addtextshadow("_"FontColorrgbcolor(1,1,1), (i+15/2+dx)*ux+3-s*2+worldwin.left, (j+5+dy)*uy+13)
                        
    end
                        addtextshadow
    ("_"FontColorrgbcolor(1,1,1), (i+15/2+dx)*ux+3+s*2+worldwin.left, (j+6+dy)*uy+13)
                        
    addtextshadow("_"FontColorrgbcolor(1,1,1), (i+15/2+dx)*ux+3-s*2+worldwin.left, (j+6+dy)*uy+13)
                    
    end
                    
    for s=1,worldwin.height/66 do
                        if 
    dx==math.min(0,Dimensions[1]) then
                            addtextshadow
    ("|"FontColorrgbcolor(1,1,1), (i+7+dx)*ux+3+worldwin.left, (j+11/2+dy)*uy+18+s*2)
                            
    addtextshadow("|"FontColorrgbcolor(1,1,1), (i+7+dx)*ux+3+worldwin.left, (j+11/2+dy)*uy+18-s*2)
                        
    end
                        addtextshadow
    ("|"FontColorrgbcolor(1,1,1), (i+8+dx)*ux+3+worldwin.left, (j+11/2+dy)*uy+18+s*2)
                        
    addtextshadow("|"FontColorrgbcolor(1,1,1), (i+8+dx)*ux+3+worldwin.left, (j+11/2+dy)*uy+18-s*2)
                    
    end
                    
    if ShowNames then
                        addtextshadow
    (string.upper(Considered), FontColorrgbcolor(1,1,1), ux*(i+7.05+dx)+worldwin.left+0.5*FontSize*(ux/FontSize-string.len(Considered)+2), uy*(j+5.7+dy)+20)
                        
    addtextshadow(SpecialAreas[sa], NameColorrgbcolor(1,1,1), ux*(i+7.1+dx)+worldwin.left+0.5*FontSize*(ux/FontSize-string.len(SpecialAreas[sa])+2), uy*(j+5.3+dy)+20)
                    else
                        
    addtextshadow(string.upper(Considered), FontColorrgbcolor(1,1,1), ux*(i+7.05+dx)+worldwin.left+0.5*FontSize*(ux/FontSize-string.len(Considered)+2), uy*(j+5.5+dy)+20)
                    
    end
                end
            end
        end
        end
    end 
    Last edited by Balkarynd; 01-08-2013 at 11:41 PM.

  4. #4
    Normal User
    Join Date
    Sep 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Reputation
    43
    Rep Power
    5
    Show Waypoints:
    This HUD will show your next waypoint. It helps a lot when you want to edit scripts :P
    You can choose if you want to show waypoints coordinates.
    PHP Code:
    ShowCoordinates false

    ux 
    worldwin.width/15
    uy 
    worldwin.height/11
    local i
    =wpt.x-posx
    local j
    =wpt.y-posy
    local 
    function addtextshadow(textcolorshadowcolorxposypos)
        
    setfontcolor(shadowcolor)
        
    addtext(textxpos+1ypos+1)
        
    setfontcolor(color)
        
    addtext(textxposypos)
    end
    BorderColor 
    rgbcolor(255,0,0)
    setfontstyle("Trebuchet MS",9,"B")
    setfontcolor(BorderColor)
    for 
    s=1,worldwin.width/90 do
        
    addtext("_", (i+15/2)*ux+5+s*2+worldwin.left, (j+5)*uy+15)
        
    addtext("_", (i+15/2)*ux+5-s*2+worldwin.left, (j+5)*uy+15)
        
    addtext("_", (i+15/2)*ux+5+s*2+worldwin.left, (j+6)*uy+15)
        
    addtext("_", (i+15/2)*ux+5-s*2+worldwin.left, (j+6)*uy+15)
    end
    for s=1,worldwin.height/66 do
        
    addtext("|", (i+7)*ux+5+worldwin.left, (j+11/2)*uy+20+s*2)
        
    addtext("|", (i+7)*ux+5+worldwin.left, (j+11/2)*uy+20-s*2)
        
    addtext("|", (i+8)*ux+5+worldwin.left, (j+11/2)*uy+20+s*2)
        
    addtext("|", (i+8)*ux+5+worldwin.left, (j+11/2)*uy+20-s*2)
    end
    WaypointType 
    string.upper(wpt.type)
    WaypointX=("X="..wpt.x)
    WaypointY=("Y="..wpt.y)
    WaypointZ=("Z="..wpt.z)
    if 
    ShowCoordinates then
        setfontstyle
    ("Trebuchet MS",9,"B")
        
    addtextshadow(WaypointType,"Gold",rgbcolor(1,1,1),ux*(i+7.5)-1.5*string.len(WaypointType)+worldwin.leftuy*(j+5.15)+20)
        
    addtextshadow(WaypointX,"Gold",rgbcolor(1,1,1),ux*(i+7.5)-2*string.len(WaypointX)+worldwin.leftuy*(j+5.45)+20)
        
    addtextshadow(WaypointY,"Gold",rgbcolor(1,1,1),ux*(i+7.5)-2*string.len(WaypointY)+worldwin.leftuy*(j+5.65)+20)
        
    addtextshadow(WaypointZ,"Gold",rgbcolor(1,1,1),ux*(i+7.5)-2*string.len(WaypointZ)+worldwin.leftuy*(j+5.85)+20)
    else
        
    addtextshadow(WaypointType,"Gold",rgbcolor(1,1,1),ux*(i+7.5)-1.5*string.len(WaypointType)+worldwin.leftuy*(j+5.5)+20)
    end 
    Last edited by Balkarynd; 01-05-2013 at 04:00 PM.

  5. #5
    Normal User RafiXWPT's Avatar
    Join Date
    Jun 2012
    Location
    (Poland) http://rafixwptscripts.com
    Posts
    1,602
    Mentioned
    31 Post(s)
    Tagged
    1 Thread(s)
    Quoted
    128 Post(s)
    Reputation
    128
    Rep Power
    9
    oh my god, rep+

  6. #6
    Normal User
    Join Date
    Sep 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Reputation
    43
    Rep Power
    5
    Quote Originally Posted by RafiXWPT View Post
    oh my god, rep+
    Thanks! ^^

  7. #7
    Normal User RoxZin xD's Avatar
    Join Date
    Feb 2012
    Posts
    281
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    4 Post(s)
    Reputation
    12
    Rep Power
    5
    Looks badass

  8. #8
    Normal User RafiXWPT's Avatar
    Join Date
    Jun 2012
    Location
    (Poland) http://rafixwptscripts.com
    Posts
    1,602
    Mentioned
    31 Post(s)
    Tagged
    1 Thread(s)
    Quoted
    128 Post(s)
    Reputation
    128
    Rep Power
    9
    why nobody comment it? WORKS!


    Thank you Balkarynd, Faster than sirmate

  9. #9
    Banned
    Join Date
    May 2012
    Posts
    1,364
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Reputation
    127
    Rep Power
    0
    Nice work.!

  10. #10
    Normal User
    Join Date
    Jul 2012
    Posts
    609
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    1 Post(s)
    Reputation
    37
    Rep Power
    6
    Awesome man!!!!!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •