Results 1 to 3 of 3

Thread: Loot Counter

  1. #1
    iBot User ronnblad's Avatar
    Join Date
    Aug 2012
    Location
    Sweden
    Posts
    121
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    3 Post(s)
    Reputation
    11
    Rep Power
    5

    Loot Counter

    hello i would like to ask if there is someone who knows if there is possible to add so this loot counter counts my soft boots to?

    PHP Code:
    -- [ Hive Surfes by Ronnblad ] --                               

    -- [ 
    Settings ] --
    local RaphaelLibrary false

    -- [ Botting Status by PV! ] --
    local showBotting true

    -- [ Position ] --
    local showPosition false

    -- [ Kills to Level UP ] --
    local showKillToUp false
    local monsterswillkill 
    = {}
    local monstersexp = {}

    -- [ 
    Supplies Counter ] --
    local showSupplies false
    local item1 
    = {name "Strong Mana Potion"buy 1200min 100}
    local item2 = {name "Crystalline Arrow"buy 1400min 100}
    local item3 = {name "Assassin Star"buy 50min 0}
    local items = {item1item2item3}

    -- [[ 
    Supplies Wasted ]]
    local showSuppliesWasted true
    local suppliesitems 
    = {'Ultimate Health Potion','Great Health Potion','Mana Potion'}
    local suppsvalue = {310,190,50}

    -- [[ 
    Items looted ]]
    local showLoots true
    local lootitems 
    = {'Gold Coin','Platinum Coin','Crawler Head Plating','Compound Eye','Small Topaz','Great Mana Potion','Great Health Potion','War Hammer','Springsprout Rod','Yellow Gem','Grasshopper Legs','Swarmer Antenna','Small Emerald','Epee','Black Pearl','Waspoid Claw','Emerald Bangle','Hive Scythe','Carapace Shield','Dung Ball'}
    local lootsvalue = {1,100,210,150,200,100,150,1200,3600,1000,15000,130,250,8000,280,320,800,17000,32000,130}

    local myname true -- DO NOT DISABLEmake your char stop healing :P

    -- [ ENGINE ] --
    -- do 
    not change it below

    local fontsize 
    10
    local fontspacing 
    fontsize+2

    local cont 
    0
    local x 
    5
    local y 
    0
    local z 
    0
    local totals 
    0
    local totall 
    0
    local total 
    0
    local sub 
    17
    local 
    function captalizeAll(firstrest)
      return 
    first:upper()..rest:lower()
    end

    if clientwin.~= nil or clientwin.~= nil then
       setposition
    (clientwin.x+13clientwin.y+45)
    else
       
    setposition(545)
    end

    setfontstyle
    ("Tahoma"fontsize"white")
    -- [[ 
    Botting ]]
    if 
    showBotting then
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
       
    setfontcolor("yellow")
       
    10
       addtext
    ('             [ Botting ]'15y)
       
    10
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
       
    10
       addtext
    ('Exp Per Hour'xy)
       
    addtext('- ' .. exphour120y)
       
    15
       addtext
    ('Exp Left'xy)
       
    addtext('- ' .. exptolevel(), 120y)
       
    15
       addtext
    ('Exp Gained'xy)
       
    addtext('- ' .. expgained120y)
       
    15
       addtext
    ('Time To Next Level'xy)
       
    addtext('- ' .. timetolevel120y)
       
    15
       addtext
    ('Stamina'xy)
       
    addtext('- '120y)
       if 
    stamina >= 2400 then
          setfontcolor
    ("green")
       else if 
    stamina 2400 and (stamina 840then
             setfontcolor
    ("orange")
          else if 
    stamina <= 840 then
             setfontcolor
    ("red")
             
    end
          end
       end
       
    if RaphaelLibrary then
          addtext
    (time(stamina), 130y)
       else
          
    addtext(stamina130y)
       
    end
       y 
    15
       setfontcolor
    ("white")
       
    addtext('Time Played'xy)
       
    addtext('- ' .. timehunt120y)
       
    15
       addtext
    ('Cavebot'xy)
       
    addtext('- '120y)
       if 
    cavebot then
          setfontcolor
    ("green")
          
    addtext('ON'130y)
       else
          
    setfontcolor("red")
          
    addtext('OFF'130y)
       
    end
       y 
    15
       setfontcolor
    ("white")
       
    addtext('- '120y)
       
    addtext('Targeting'xy)
       if 
    targeting then
          setfontcolor
    ("green")
          
    addtext('ON'130y)
       else
          
    setfontcolor("red")
          
    addtext('OFF'130y)
       
    end
       y 
    15
       setfontcolor
    ("white")
       
    addtext('Looting'xy)
       
    addtext('- '120y)
       if 
    looting then
          setfontcolor
    ("green")
          
    addtext('ON'130y)
       else
          
    setfontcolor("red")
          
    addtext('OFF'130y)
       
    end
       y 
    15
       setfontcolor
    ("white")
       
    addtext('Walk Through'xy)
       
    addtext('- '120y)
       if 
    getsettings("Settings/CaveBot/Pathfinding/WalkThroughPlayers") == 'yes' then
          setfontcolor
    ("green")
          
    addtext('ON'130y)
       elseif 
    getsettings("Settings/CaveBot/Pathfinding/WalkThroughPlayers") == 'no' then
          setfontcolor
    ("red")
          
    addtext('OFF'130y)
       else
          
    setfontcolor("yellow")
          
    addtext('???'130y)
       
    end
       y 
    15
       setfontcolor
    ("white")
       
    addtext('Balance'xy)
       
    addtext('- '120y)
       if 
    balance == -1 then
          addtext
    ('?'130y)
       else
          
    addtext(balance130y)
       
    end
       y 
    10
    end

    -- [[ Position ]]

    if 
    showPosition then
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
       
    setfontcolor("yellow")
       
    10
       addtext
    ('            [ Position ]'15y)
       
    10
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
       
    10
       addtext
    ("Position X "xy)
       
    addtext("- "..posx120y)
       
    15
       addtext
    ("Position Y "xy)
       
    addtext("- "..posy120y)
       
    15
       addtext
    ("Position Z "xy)
       
    addtext("- "..posz120y)
       
    15
       addtext
    ("Cursor ID"xy)
       
    addtext('- '..cursorinfo().id120y)
       
    10
    end

    -- [[ Kills to Level UP ]]

    if 
    showKillToUp then
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
       
    setfontcolor("yellow")
       
    10
       addtext
    ('       [ Kills to Level UP ]'15y)
       
    10
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
       
    10
       
    for ij in pairs(monsterswillkill) do
          
    addtext(jxy)
          
    addtext(math.floor(exptolevel()/monstersexp[i]), 130y)
          
    15
       end
    end

    -- [[ Supplies ]]

    if 
    showSupplies then
       setfontcolor
    ("white"
       
    addtext('-----------------------------------------'0y)
       
    setfontcolor("yellow")
       
    10
       addtext
    ('            [ Supplies ]'15y)
       
    10
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
       
    10
       
    for ij in pairs(items) do
          if 
    itemid(items[i].name) == ammo then
             cont 
    itemcount(items[i].name) + ammoamount
          
    elseif itemid(items[i].name) == weapon then
             cont 
    itemcount(items[i].name) + weaponamount
          
    else
             
    cont itemcount(items[i].name)
          
    end
          addtext
    (items[i].namexy)
          
    addtext('-'120y)
          if 
    cont <= items[i].min then
             setfontcolor
    ("red")
          elseif 
    cont <= (items[i].buy/2then
             setfontcolor
    ("yellow")
          elseif 
    cont items[i].buy then
             setfontcolor
    ("white")
          else
             
    setfontcolor("green")
          
    end
          
    if itemid(items[i].name) == ammo then
             addtext
    (cont130y)
          elseif 
    itemid(items[i].name) == weapon then
             addtext
    (cont130y)
          else
             
    addtext(cont130y)
          
    end
          setfontcolor
    ("white")
          
    15
       end
       y 
    5
    end

    -- [[ Supplies Wasted ]]

    if 
    showSuppliesWasted then
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
       
    10
       setfontcolor
    ("yellow")
       
    addtext('       [ Supplies wasted ]'15y)
       
    10
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
       
    10
       local supps 
    getitems(unpack(suppliesitems))
       
    local qtds supps.count-1
       
    for i=0,qtds do
          if 
    string.len(supps[i].name) > 17 then
             addtext
    (string.sub((supps[i].name), 1sub).."..."xy)
          else
             
    addtext(supps[i].namexy)
          
    end
          addtext
    ("- "..supps[i].usage.." ("..(math.floor(supps[i].usage*suppsvalue[i+1] / 100)/10).."k)"120y)
          
    totals totals supps[i].usage*suppsvalue[i+1]
          
    15
       end
       addtext
    ("Total"xy)
       
    addtext("-"120y)
       
    addtext(totals.." GPs"130y)
       
    10
    end

    -- [[ Loots ]]

    if 
    showLoots then
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
       
    setfontcolor("yellow")
       
    10
       addtext
    ('         [ Items looted ]'15y)
       
    10
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
       
    10
       local loots 
    getitems(unpack(lootitems))
       
    local qtdl loots.count-1
       
    for i=0,qtdl do
          if 
    loots[i].loot 0 then
             lootname 
    loots[i].name:gsub("(%a)([%w_']*)"captalizeAll)
             if 
    string.len(loots[i].name) > 17 then
                addtext
    (string.sub(lootname1sub)..".."xy)
             else
                
    addtext(lootnamexy)
             
    end
             addtext
    ("- "..loots[i].loot.." ("..(math.floor(loots[i].loot*lootsvalue[i+1] / 100)/10).."k)"120y)
             
    totall totall loots[i].loot*lootsvalue[i+1]
             
    15
          end
       end
       addtext
    ("Total"xy)
       
    addtext("-"120y)
       
    addtext(totall.." GPs"130y)
       
    10
    end

    if showSuppliesWasted and showLoots then
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
       
    10
       total 
    totall totals
       
    if totall-totals 0 then
          setfontcolor
    ("green")
          
    addtext("PROFIT:"xy)
       else
          
    setfontcolor("red")
          
    addtext("WASTE:"xy)
       
    end
       setfontcolor
    ("white")
       
    addtext(total.." GPs ("..(math.floor((total/(tosec(timehunt)/3600))/100)/10).."k/h)"50y)
       
    10
    end

    setfontcolor
    ("white")
    addtext('-----------------------------------------'0y)
    if 
    myname then
       setfontcolor
    ("yellow")
       
    10
       addtext
    ('  [ Hive Surfes by Ronnblad ]'5y)
       
    10
       setfontcolor
    ("white")
       
    addtext('-----------------------------------------'0y)
    end 
    i have tried this:

    PHP Code:
    -- [[ Supplies Wasted ]]
    local showSuppliesWasted true
    local suppliesitems 
    = {'Ultimate Health Potion','Great Health Potion','Mana Potion','Soft Boots'}
    local suppsvalue = {310,190,50,10000
    but it did not work..

    as you see so am i workin on Hive Surfes for knights
    Last edited by ronnblad; 10-07-2012 at 05:01 AM.
    Ronnblads Free Script Thread. - Gentlemen start your Ibots <-- OLD

  2. #2
    iScripter Eli's Avatar
    Join Date
    Mar 2012
    Posts
    3,764
    Mentioned
    492 Post(s)
    Tagged
    2 Thread(s)
    Quoted
    955 Post(s)
    Reputation
    586
    Rep Power
    10
    It's not possible yet, take care about My Monitor Hunting by sirmate, there would be the possiblity to count softs soon!

  3. #3
    iBot User ronnblad's Avatar
    Join Date
    Aug 2012
    Location
    Sweden
    Posts
    121
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    3 Post(s)
    Reputation
    11
    Rep Power
    5
    Quote Originally Posted by Eli View Post
    It's not possible yet, take care about My Monitor Hunting by sirmate, there would be the possiblity to count softs soon!
    aha thanks Eli for the fast repond, then il wait
    Ronnblads Free Script Thread. - Gentlemen start your Ibots <-- OLD

Posting Permissions

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