Latest servers:
New servers will open on: 16th Oct 2024:
Bravoria (Open PvP) 
Aethera (Open PvP) 
Cantabra (Open PvP) 
Xinum
Never Give Up!
- Joined
- Dec 23, 2009
- Messages
- 578
- Reaction score
- 66
[MS][60] Ankrahmun Energy Elementals
Code:
<Settings>
<Alerts>
<Player>
<OnScreen>
<PlaySound>yes</PlaySound>
<FlashClient>no</FlashClient>
<PauseBot>no</PauseBot>
<Disconnect>no</Disconnect>
<SafeList>null</SafeList>
</OnScreen>
<Attacking>
<PlaySound>yes</PlaySound>
<FlashClient>yes</FlashClient>
<PauseBot>no</PauseBot>
<Disconnect>no</Disconnect>
<SafeList>null</SafeList>
</Attacking>
<GMOnScreen>
<PlaySound>yes</PlaySound>
<FlashClient>yes</FlashClient>
<PauseBot>yes</PauseBot>
<Disconnect>no</Disconnect>
</GMOnScreen>
</Player>
<Creature />
<Item />
<Message>
<PrivateMessage>
<PlaySound>no</PlaySound>
<FlashClient>no</FlashClient>
<PauseBot>no</PauseBot>
<Disconnect>no</Disconnect>
<SafeList>null</SafeList>
</PrivateMessage>
<Advanced>
<PlaySound>no</PlaySound>
<FlashClient>no</FlashClient>
<PauseBot>no</PauseBot>
<Disconnect>no</Disconnect>
<Screenshot>no</Screenshot>
</Advanced>
<Raid>
<PlaySound>no</PlaySound>
<FlashClient>no</FlashClient>
<PauseBot>no</PauseBot>
<Disconnect>no</Disconnect>
<Warnings>All</Warnings>
</Raid>
<SafeBank>
<PlaySound>yes</PlaySound>
<FlashClient>yes</FlashClient>
<PauseBot>yes</PauseBot>
<CloseTibia>yes</CloseTibia>
<Disconnect>yes</Disconnect>
</SafeBank>
<HealCreature>
<PlaySound>yes</PlaySound>
<FlashClient>yes</FlashClient>
<PauseBot>yes</PauseBot>
<CloseTibia>no</CloseTibia>
<Disconnect>yes</Disconnect>
<Screenshot>no</Screenshot>
</HealCreature>
<YourAttack>
<PlaySound>yes</PlaySound>
<FlashClient>yes</FlashClient>
<PauseBot>yes</PauseBot>
<CloseTibia>no</CloseTibia>
<Disconnect>yes</Disconnect>
<Screenshot>no</Screenshot>
<SafeList>null</SafeList>
</YourAttack>
<Unjust>
<PlaySound>yes</PlaySound>
<FlashClient>yes</FlashClient>
<PauseBot>yes</PauseBot>
<CloseTibia>no</CloseTibia>
<Disconnect>yes</Disconnect>
</Unjust>
</Message>
<Capacity>
<Value>100</Value>
<PlaySound>no</PlaySound>
<FlashClient>no</FlashClient>
<PauseBot>no</PauseBot>
<Disconnect>no</Disconnect>
</Capacity>
<StandTime>
<Value>30000</Value>
<PlaySound>no</PlaySound>
<FlashClient>no</FlashClient>
<PauseBot>no</PauseBot>
<Disconnect>no</Disconnect>
</StandTime>
<Stamina>
<Value>841</Value>
<PlaySound>yes</PlaySound>
<FlashClient>yes</FlashClient>
<PauseBot>yes</PauseBot>
<CloseTibia>no</CloseTibia>
<Disconnect>yes</Disconnect>
</Stamina>
<Disconnect>
<PlaySound>no</PlaySound>
<FlashClient>no</FlashClient>
<PauseBot>no</PauseBot>
</Disconnect>
<Enabled>yes</Enabled>
</Alerts>
<Healer>
<Rules>
<Exura>
<HealRange>60 to 88 %</HealRange>
<ManaRange>20 to all</ManaRange>
<HealMethod>Light Healing</HealMethod>
<ExtraCondition>No condition</ExtraCondition>
<CooldownControl>no</CooldownControl>
<CheckItem>no</CheckItem>
<SpamRate>200 to 400</SpamRate>
<Enabled>yes</Enabled>
</Exura>
<Exura-Gran>
<HealRange>35 to 60 %</HealRange>
<ManaRange>70 to all</ManaRange>
<HealMethod>Intense Healing</HealMethod>
<ExtraCondition>No condition</ExtraCondition>
<CooldownControl>yes</CooldownControl>
<CheckItem>no</CheckItem>
<SpamRate>200 to 400</SpamRate>
<Enabled>yes</Enabled>
</Exura-Gran>
<Vita>
<HealRange>0 to 35 %</HealRange>
<ManaRange>160 to all</ManaRange>
<HealMethod>Ultimate Healing</HealMethod>
<ExtraCondition>No condition</ExtraCondition>
<CooldownControl>no</CooldownControl>
<CheckItem>no</CheckItem>
<SpamRate>200 to 400</SpamRate>
<Enabled>yes</Enabled>
</Vita>
<MP>
<HealRange>0 to 100 %</HealRange>
<ManaRange>0 to 65 %</ManaRange>
<HealMethod>Strong Mana Potion</HealMethod>
<ExtraCondition>No condition</ExtraCondition>
<CooldownControl>no</CooldownControl>
<CheckItem>no</CheckItem>
<SpamRate>200 to 400</SpamRate>
<Enabled>yes</Enabled>
</MP>
<Para>
<HealRange>0 to 100 %</HealRange>
<ManaRange>100 to all</ManaRange>
<HealMethod>Light Healing</HealMethod>
<ExtraCondition>If paralyzed</ExtraCondition>
<CooldownControl>yes</CooldownControl>
<CheckItem>no</CheckItem>
<SpamRate>200 to 400</SpamRate>
<Enabled>yes</Enabled>
</Para>
</Rules>
<PingCompensation>10</PingCompensation>
<Enabled>yes</Enabled>
</Healer>
<FriendHealer>
<Rules />
<Enabled>no</Enabled>
</FriendHealer>
<Refiller>
<Rules />
<Enabled>no</Enabled>
</Refiller>
<HotKeys>
<List>
<ShowBot>
<Script>showbot()</Script>
<MainKey>66</MainKey>
<ComboKey>Alt</ComboKey>
<Enabled>yes</Enabled>
</ShowBot>
<PauseBot>
<Script>local cavebot = getsettings("Settings/CaveBot/Enabled")
local targeting = getsettings("Settings/Targeting/Enabled")
if cavebot == 'no' or targeting == 'no' then
setcavebot('on')
settargeting('on')
setlooting('on')
else
setcavebot('off')
settargeting('off')
setlooting('off')
end
wait(500)</Script>
<MainKey>19</MainKey>
<ComboKey>None</ComboKey>
<Enabled>yes</Enabled>
</PauseBot>
<ShowClient>
<Script>focusclient()</Script>
<MainKey>84</MainKey>
<ComboKey>Alt</ComboKey>
<Enabled>yes</Enabled>
</ShowClient>
<ShowSettings>
<Script>showsettings()</Script>
<MainKey>83</MainKey>
<ComboKey>Alt</ComboKey>
<Enabled>yes</Enabled>
</ShowSettings>
</List>
<Condition>Client focus required</Condition>
<Enabled>yes</Enabled>
</HotKeys>
<Actions>
<List>
<Changer>
<Script>-- MP - 268 ,SMP - 237,GMP - 238
if PotID == 237 then
setsettings("Settings\\Healer\\Rules\\MP\\HealMethod", "Strong Mana Potion")
setsettings("Settings\\Looting\\List\\Mana Potion\\Destination", "2")
setsettings("Settings\\Looting\\List\\Strong Mana Potion\\Destination", "1")
elseif PotID == 238 then
setsettings("Settings\\Healer\\Rules\\MP\\HealMethod", "Great Mana Potion")
setsettings("Settings\\Looting\\List\\Mana Potion\\Destination", "2")
setsettings("Settings\\Looting\\List\\Strong Mana Potion\\Destination", "2")
elseif PotID == 268 then
setsettings("Settings\\Healer\\Rules\\MP\\HealMethod", "Mana Potion")
setsettings("Settings\\Looting\\List\\Mana Potion\\Destination", "1")
setsettings("Settings\\Looting\\List\\Strong Mana Potion\\Destination", "2")
end
if CrystalSword then
setsettings("Settings\\Looting\\List\\Crystal Sword\\Destination", "2")
else
setsettings("Settings\\Looting\\List\\Crystal Sword\\Destination", "ground")
end
if UseSofts then setsettings("Settings\\Actions\\List\\SoftBoots\\Enabled","yes")
else
setsettings("Settings\\Actions\\List\\SoftBoots\\Enabled","no")
end
if PVP then
setsettings("Settings\\Actions\\List\\SafeExori\\Enabled","yes")
setsettings("Settings\\Actions\\List\\Exori\\Enabled","no")
setsettings("Settings\\Cavebot\\Pathfinding\\WalkThroughPlayers","no")
setsettings("Settings\\Alerts\\Player\\Attacking\\PlaySound","yes")
else
setsettings("Settings\\Actions\\List\\SafeExori\\Enabled","no")
setsettings("Settings\\Actions\\List\\Exori\\Enabled","yes")
setsettings("Settings\\Cavebot\\Pathfinding\\WalkThroughPlayers","yes")
setsettings("Settings\\Alerts\\Player\\Attacking\\PlaySound","no")
end</Script>
<SpamRate>800 to 1000</SpamRate>
<Enabled>yes</Enabled>
</Changer>
<AutoMount>
<Script>if UseMount then setsettings("Settings\\Cavebot\\Settings\\AutoMount","yes") else setsettings("Settings\\Cavebot\\Settings\\AutoMount","no") end</Script>
<SpamRate>800 to 1000</SpamRate>
<Enabled>yes</Enabled>
</AutoMount>
<DropFlask>
<Script>if maround(1) < 1 and hppc > 60 and ( itemcount(283) > 15 or itemcount(284) > 15 or itemcount(285) > 15 ) then
dropitems(283,284,285)
end</Script>
<SpamRate>800 to 1000</SpamRate>
<Enabled>yes</Enabled>
</DropFlask>
<SoftBoots>
<Script>local softBoots = "soft boots"
local otherBoots = NormalBoots
local minMana = 85
if mppc < minMana and pzone == false and boots ~= 3549 and itemcount(softBoots) > 0 then moveitems(softBoots, "all", "boots", 1)
elseif boots == itemid("worn soft boots") then moveitems(otherBoots, "all", "boots", 1)
elseif mppc > minMana and boots ~= itemid(otherBoots) then moveitems(otherBoots, "all", "boots", 1)
elseif pzone and boots ~= itemid(otherBoots) then moveitems(otherBoots, "all", "boots", 1)
elseif boots == 0 then moveitems(otherBoots, "all", "boots", 1) end </Script>
<SpamRate>800 to 1000</SpamRate>
<Enabled>yes</Enabled>
</SoftBoots>
<SafeExori>
<Script>local exoriCount = 1
local exoriRange = 3
local castSpell = "exori tera" -- spell to cast
local creaturesToHit = {"Energy Elemental"}
if paround(7, true) >= 0 and maround(exoriRange, unpack(creaturesToHit)) >= exoriCount and cancast(castSpell) then
cast(castSpell)
end</Script>
<SpamRate>800 to 1000</SpamRate>
<Enabled>yes</Enabled>
</SafeExori>
<Exori>
<Script>local exoriCount = 1
local exoriRange = 4
local castSpell = "exori tera" -- spell to cast
local creaturesToHit = {"Energy Elemental"}
if maround(exoriRange, unpack(creaturesToHit)) >= exoriCount and cancast(castSpell) then
cast(castSpell)
end</Script>
<SpamRate>800 to 1000</SpamRate>
<Enabled>no</Enabled>
</Exori>
</List>
<Setup>-- _______ _______ _______ _ _____ _ _
-- (_______)(_______)(_______)| | (_____)| | (_)
-- __ _______ _ _ _ | | _____ | |_____
-- / / | ___ || ||_|| || | / ___ \|_____ |
-- / /____ | | | || | | || |( (___) ) | |
-- (_______)|_| |_||_| |_||_| \_____/ |_|
-- _
-- (_) _
-- ___ ____ ____ _ ____ _| |_ ___
-- /___) / ___) / ___)| || _ \(_ _) /___)
-- |___ |( (___ | | | || |_| | | |_ |___ |
-- (___/ \____)|_| |_|| __/ \__)(___/
-- |_|
--
-- contact:
-- e-mail: tibihac@o2.pl
-- skype: lukasz.zamorski
-- GG: 3883330
--
-- Terms and Conditions:
-- 1. All my scripts are free, I'm not going to create paid scripts.
-- 2. You can change them for your own use.
-- 3. Do not post rewritten script anywhere (certainly not under your's nickname)
-- 4. Like it? Give REP +
-- ~~ S E T U P ~~
-- Backpack Settings --
MainBP = "pirate backpack"
LootBP = "jewelled Backpack"
GoldBP = "red Backpack"
PotBP = "demon Backpack"
MainDPBP = "Backpack"
LootDPBP = "beach Backpack"
StackDPBP = "green Backpack"
-- Potions Settings --
MPtype = "strong mana potion"
MPmax = 100
MPmin = 20
MPprice = 80
-- Cavebot Settings --
UseMount = true
PVP = true
PlayerAlarm = true
UseSofts = true
SoftsRefill = true
NormalBoots = "boots of haste"
-- Hunt Settings --
CapToLeave = 60
-- Looting Settings --
Sell = true -- Do you want to sell Small Amethyst?
CrystalSword = true -- Do you want to loot Crystal Swords? If false bot will drop them on the ground
-- Do not change anything below
PotID = itemid(MPtype)</Setup>
<Enabled>yes</Enabled>
</Actions>
<CaveBot>
<Waypoints>
<Start>Stand 33206 32460 8</Start>
<WhereIAm>Action 33214 32452 7 if posz == 5 then gotolabel("HurUP");elseif;posz == 8 then gotolabel("StartDP");elseif;posz == 7 then gotolabel("ToDepot");end;;if PlayerAlarm then ;setsettings("Settings\\Alerts\\Player\\OnScreen\\PlaySound","no");end;</WhereIAm>
<DepotBP>Action 33206 32460 8 setsettings("Settings\\Cavebot\\Settings\\OpenNextBp", "no");;closewindows();wait(300,400);;while windowcount(MainBP) < 1;do;openitem(MainBP, 'back') wait(2000,3000);end;;while windowcount(LootBP) < 1;do;openitem(LootBP, MainBP) wait(2000,3000);end</DepotBP>
<FindDepo>Action 33206 32460 8 while windowcount('Locker') == 0;do;reachgrounditem('depot');openitem('depot') wait(500,1000);end;;while windowcount(3502) < 1;do;openitem(3502, 'Locker') wait(500,800);end;;while windowcount(MainDPBP) < 1;do;openitem(MainDPBP, 3502) wait(500, 800);end</FindDepo>
<Deposite>Action 33206 32460 8 local CONFIG = {; LOOT_BACKPACK = LootBP,; ; STACKABLE_BACKPACK = StackDPBP,; STACKABLE_BACKPACK_AMOUNT = 2,; ; NOT_STACKABLE_BACKPACK = LootDPBP,; NOT_STACKABLE_BACKPACK_AMOUNT = 17,; ; DEPOSIT_ITEMS = {"Flash Arrow", "Throwing Star", "Mana Potion", "Strong Mana Potion", "Crystal Sword", "Obsidian Lance", "Small Amethyst", "Crystal Ring", "Energy Ring", "Silver Amulet", "Wand of Cosmic Energy", "Guardian Shield"},;};;local NOT_STACKABLE_LAST_ON_TO, ITEM_INDEX = 0, 1;;while (#CONFIG.DEPOSIT_ITEMS >= ITEM_INDEX) do; if (type(CONFIG.DEPOSIT_ITEMS[ITEM_INDEX]) == "string") then; local ITEM_ID = itemid(CONFIG.DEPOSIT_ITEMS[ITEM_INDEX]); ; if (ITEM_ID > 0) then; CONFIG.DEPOSIT_ITEMS[ITEM_INDEX], ITEM_INDEX = ITEM_ID, ITEM_INDEX + 1; else; table.remove(CONFIG.DEPOSIT_ITEMS, ITEM_INDEX); end; elseif (type(CONFIG.DEPOSIT_ITEMS[ITEM_INDEX]) == "number") then; if (CONFIG.DEPOSIT_ITEMS[ITEM_INDEX] > 0) then; ITEM_INDEX = ITEM_INDEX + 1; else; table.remove(CONFIG.DEPOSIT_ITEMS, ITEM_INDEX); end; else; table.remove(CONFIG.DEPOSIT_ITEMS, ITEM_INDEX); end;end;;while (true) do; for _, DEPOSIT_ITEM in ipairs(CONFIG.DEPOSIT_ITEMS) do; if (itemcount(DEPOSIT_ITEM, CONFIG.LOOT_BACKPACK) > 0) then; if (itemproperty(DEPOSIT_ITEM).isCumulative) then; local STACKABLE_LAST_ON_TO = 0; ; while (CONFIG.STACKABLE_BACKPACK_AMOUNT > STACKABLE_LAST_ON_TO) do; local ITEM_COUNT_BEFORE = itemcount(DEPOSIT_ITEM, CONFIG.LOOT_BACKPACK); ; moveitemsonto(DEPOSIT_ITEM, "all", CONFIG.STACKABLE_BACKPACK, 100, STACKABLE_LAST_ON_TO) wait(500, 1000); ; local ITEM_COUNT_AFTER = itemcount(DEPOSIT_ITEM, CONFIG.LOOT_BACKPACK); ; if (ITEM_COUNT_BEFORE == ITEM_COUNT_AFTER and ITEM_COUNT_AFTER > 0) then; STACKABLE_LAST_ON_TO = STACKABLE_LAST_ON_TO + 1; elseif (ITEM_COUNT_AFTER == 0) then; break; end; end; else; while (CONFIG.NOT_STACKABLE_BACKPACK_AMOUNT > NOT_STACKABLE_LAST_ON_TO) do; local ITEM_COUNT_BEFORE = itemcount(DEPOSIT_ITEM, CONFIG.LOOT_BACKPACK); ; moveitemsonto(DEPOSIT_ITEM, "all", CONFIG.NOT_STACKABLE_BACKPACK, 100, NOT_STACKABLE_LAST_ON_TO) wait(500, 1000); ; local ITEM_COUNT_AFTER = itemcount(DEPOSIT_ITEM, CONFIG.LOOT_BACKPACK); ; if (ITEM_COUNT_BEFORE == ITEM_COUNT_AFTER and ITEM_COUNT_AFTER > 0) then; NOT_STACKABLE_LAST_ON_TO = NOT_STACKABLE_LAST_ON_TO + 1; elseif (ITEM_COUNT_AFTER == 0) then; break; end; end; end; end; end; ; if (itemcount(CONFIG.LOOT_BACKPACK, CONFIG.LOOT_BACKPACK) > 0) then; openitem(CONFIG.LOOT_BACKPACK, CONFIG.LOOT_BACKPACK, false) wait(2000, 3000); else; break; end; ; wait(100);end;</Deposite>
<OpenSuppBP>Action 33206 32460 8 closewindows();wait(300,400);;while windowcount(MainBP) < 1;do;openitem(MainBP, 'back') wait(500,800);resizewindow(MainBP, 1);wait(500,800);end;;while windowcount(PotBP) < 1;do;openitem(PotBP, MainBP, true) wait(500,800);;resizewindow(PotBP, 1);wait(500,800);end;wait(500)</OpenSuppBP>
<DepoStairs>Stand 33213 32456 8</DepoStairs>
<w000>Stand 33213 32455 8</w000>
<w001>Stand 33213 32454 7</w001>
<LocCheck1>Action 33213 32454 7 if not islocation(4) then;gotolabel("DepoStairs");return;end</LocCheck1>
<w002>Node 33219 32441 7</w002>
<w003>Node 33217 32413 7</w003>
<w004>Node 33217 32400 7</w004>
<w005>Stand 33221 32387 7</w005>
<Withdraw>Action 33221 32387 7 if islocation(2) then;reachcreature("Muzir");;local ManaMoney = positive(MPmax - itemcount(MPtype)) * MPprice;local WornSofts = itemcount(6530) * 10000 + 1000;;local All = ManaMoney + WornSofts;;depositall();if All > 0 then;npcsay("withdraw "..All) wait(1000);npcsay("yes") wait(1000);end;end;</Withdraw>
<w006>Stand 33217 32401 7</w006>
<BuyMP>Action 33217 32401 7 if islocation(3) then;reachcreature("Asima");;sellflasks(); wait(500);wait(400,600);;local amountMP = MPmax-itemcount(MPtype);while amountMP> 0 do;buyitems(MPtype, amountMP);wait(200,800);moveitems(MPtype, MainBP, PotBP, 100);wait(250,500);amountMP= amountMP-100;wait(400,600);end;end</BuyMP>
<SkipPots>Node 33216 32421 7</SkipPots>
<LastOpenBP>Action 33206 32460 8 closewindows();wait(300,400);;while windowcount(MainBP) < 1;do;openitem(MainBP, 'back') wait(500,800);resizewindow(MainBP, 1);wait(500,800);end;;while windowcount(PotBP) < 1;do;openitem(PotBP, MainBP, true) wait(500,800);resizewindow(PotBP, 1);wait(500,800);end;;while windowcount(LootBP) < 1;do;openitem(LootBP, MainBP, true) wait(500,800);resizewindow(LootBP, 1);wait(500,800);end;;while windowcount(GoldBP) < 1;do;openitem(GoldBP, MainBP, true) wait(500,800);resizewindow(GoldBP, 1);wait(500,800);end;;setsettings("Settings\\Cavebot\\Settings\\OpenNextBp", "yes");wait(500);</LastOpenBP>
<w007>Action 33213 32450 7 moveitems(6530, "boots", MainBP, 1);;if SoftsRefill and (itemcount(6530) > 0 or boots == 6530) then ;gotolabel("SoftRef");else;gotolabel("SkipSoftRef");end;</w007>
<SkipSoftRef>Node 33210 32454 7</SkipSoftRef>
<w009>Node 33207 32486 7</w009>
<w010>Node 33197 32509 7</w010>
<w011>Node 33182 32518 7</w011>
<HS1>Stand 33176 32528 7</HS1>
<w012>Stand 33176 32529 7</w012>
<w013>Stand 33175 32530 6</w013>
<LocCheck2>Action 33175 32530 6 if not islocation(4) then;gotolabel("HS1");return;end</LocCheck2>
<w015>Stand 33171 32551 6</w015>
<w016>Stand 33171 32552 6</w016>
<w017>Stand 33171 32553 5</w017>
<LocCheck3>Action 33171 32553 5 if not islocation(4) then;gotolabel("HS1");return;end</LocCheck3>
<HurUP>Stand 33172 32558 5</HurUP>
<CheckBP>Action 33201 32477 7 setsettings("Settings\\Cavebot\\Settings\\OpenNextBp", "no");wait(500);while windowcount(MainBP) < 1;do;openitem(MainBP, 'back') wait(500,800);resizewindow(MainBP, 1);wait(500,800);end;;while windowcount(PotBP) < 1;do;openitem(PotBP, MainBP, true) wait(500,800);resizewindow(PotBP, 1);wait(500,800);end;;while windowcount(LootBP) < 1;do;openitem(LootBP, MainBP, true) wait(500,800);resizewindow(LootBP, 1);wait(500,800);end;;while windowcount(GoldBP) < 1;do;openitem(GoldBP, MainBP, true) wait(500,800);resizewindow(GoldBP, 1);wait(500,800);end;;setsettings("Settings\\Cavebot\\Settings\\OpenNextBp", "yes");if PlayerAlarm then ;setsettings("Settings\\Alerts\\Player\\OnScreen\\PlaySound","yes");end;;;;</CheckBP>
<w019>Action 33172 32558 5 if islocation() then;levitate('n','up');end</w019>
<StartHunt>Stand 33172 32557 4</StartHunt>
<LocCheck4>Action 33172 32557 4 if not islocation(4) then;gotolabel("HurUP");return;end</LocCheck4>
<HS2>Node 33158 32557 4</HS2>
<w022>Stand 33175 32555 4</w022>
<w023>Node 33177 32550 3</w023>
<LocCheck5>Action 33177 32550 3 if not islocation(4) then;gotolabel("HS2");return;end</LocCheck5>
<w025>Node 33181 32543 3</w025>
<w026>Node 33185 32530 3</w026>
<w027>Node 33181 32540 3</w027>
<HS3>Stand 33181 32551 3</HS3>
<w029>Stand 33182 32551 3</w029>
<w028>Node 33186 32547 2</w028>
<LocCheck6>Action 33186 32547 2 if not islocation(4) then;gotolabel("HS3");return;end</LocCheck6>
<HS4>Stand 33187 32543 2</HS4>
<w031>Stand 33196 32539 1</w031>
<LocCheck7>Action 33196 32539 1 if not islocation(4) then;gotolabel("HS4");return;end</LocCheck7>
<w033>Node 33197 32538 1</w033>
<w035>Node 33195 32540 1</w035>
<HS5>Stand 33187 32542 1</HS5>
<w037>Stand 33187 32543 1</w037>
<w038>Stand 33186 32548 2</w038>
<LocCheck8>Action 33186 32548 2 if not islocation(4) then;gotolabel("HS5");return;end</LocCheck8>
<HS6>Stand 33182 32551 2</HS6>
<w036>Stand 33175 32554 3</w036>
<w043>Stand 33175 32555 3</w043>
<w044>Stand 33175 32556 4</w044>
<LocCheck9>Action 33175 32556 4 if not islocation(4) then;gotolabel("HS6");return;end</LocCheck9>
<HS7>Stand 33182 32551 2</HS7>
<w041>Stand 33181 32551 3</w041>
<w014>Stand 33175 32556 4</w014>
<LocCheck10>Action 33175 32556 4 if not islocation(4) then;gotolabel("HS7");return;end</LocCheck10>
<CheckSupp>Action 33173 32557 4 if itemcount(MPtype) <= MPmin;or cap <= CapToLeave;then gotolabel("Leave");else gotolabel("StartHunt");end</CheckSupp>
<Leave>Stand 33172 32557 4</Leave>
<w080>Action 33173 32545 6 if PlayerAlarm then;setsettings("Settings\\Alerts\\Player\\OnScreen\\PlaySound","no");end</w080>
<HurDown>Action 33172 32557 4 if islocation() then;levitate('s','down');end;</HurDown>
<w040>Stand 33172 32558 5</w040>
<LocCheck11>Action 33172 32558 5 if not islocation(4) then;gotolabel("Leave");return;end</LocCheck11>
<BS1>Stand 33171 32553 5</BS1>
<w047>Stand 33171 32552 5</w047>
<w048>Stand 33171 32551 6</w048>
<LocCheck12>Action 33171 32551 6 if not islocation(4) then;gotolabel("BS1");return;end</LocCheck12>
<w050>Node 33175 32539 6</w050>
<BS2>Stand 33175 32530 6</BS2>
<w051>Stand 33175 32529 6</w051>
<w052>Stand 33175 32528 7</w052>
<LocCheck13>Action 33175 32528 7 if not islocation(4) then;gotolabel("BS2");return;end</LocCheck13>
<w054>Node 33187 32511 7</w054>
<w055>Node 33196 32486 7</w055>
<w056>Node 33215 32462 7</w056>
<w057>Stand 33215 32450 7</w057>
<SellAme>Action 33215 32450 7 if Sell then; return;else; gotolabel("ToDepot");end</SellAme>
<Ame>Node 33221 32437 7</Ame>
<w058>Node 33233 32428 7</w058>
<w059>Stand 33232 32423 7</w059>
<w060>Action 33232 32423 7 if islocation(2) then;reachcreature("Ishina");wait(500,800);opentrade();wait(500,800);sellitemsupto("small amethyst", 100);;end</w060>
<w061>Node 33219 32434 7</w061>
<ToDepot>Stand 33214 32454 7</ToDepot>
<w062>Stand 33214 32455 7</w062>
<w063>Stand 33214 32456 8</w063>
<LocCheck14>Action 33214 32456 8 if not islocation(4) then;gotolabel("ToDepot");return;end</LocCheck14>
<w018>Stand 33214 32452 7</w018>
<w020>Action 33214 32452 7</w020>
<w021>Action 33214 32452 7 gotolabel("Start")</w021>
<SoftRef>Node 33247 32458 7</SoftRef>
<w008>Node 33267 32469 7</w008>
<w024>Node 33281 32470 7</w024>
<w030>Ladder 33293 32473 7</w030>
<w032>Stand 33293 32474 6</w032>
<LocCheck15>Action 33293 32474 6 if not islocation(4) then;gotolabel("SoftRef");return;end</LocCheck15>
<ToVenore>Node 33289 32479 6</ToVenore>
<w039>Action 33289 32479 6 if islocation(2) then;reachcreature("Petros");say("hi");wait(500,1000);npcsay("venore");wait(1000,1200);npcsay("yes");wait(500);end;</w039>
<w034>Stand 32954 32023 6</w034>
<LocCheck16>Action 32954 32023 6 if not islocation(4) then;gotolabel("ToVenore");return;end</LocCheck16>
<Venore>Node 32954 32040 6</Venore>
<w045>Node 32954 32071 6</w045>
<w046>Node 32953 32094 6</w046>
<w049>Stand 32952 32108 6</w049>
<LocCheck17>Action 32952 32108 6 if not islocation(4) then;gotolabel("Venore");return;end</LocCheck17>
<w042>Action 32952 32108 6 if islocation(2) then;reachcreature("Aldo");say("hi");wait(500,1000);npcsay("repair");wait(1000,1200);npcsay("yes");wait(500);end;</w042>
<SoftDone>Node 32948 32099 6</SoftDone>
<w064>Node 32954 32079 6</w064>
<w065>Node 32954 32058 6</w065>
<w066>Node 32954 32035 6</w066>
<w067>Node 32952 32022 6</w067>
<w068>Action 32952 32022 6 if not islocation(4) then;gotolabel("SoftDone");return;end</w068>
<ToPH>Action 32952 32022 6 if islocation(2) then;reachcreature("Captain Fearless");say("hi");wait(500,1000);npcsay("port hope");wait(1000,1200);npcsay("yes");wait(500);end;</ToPH>
<w053>Stand 32530 32784 6</w053>
<LocCheck18>Action 32530 32784 6 if not islocation(4) then;gotolabel("ToPH");return;end</LocCheck18>
<ToDarashia>Action 32530 32784 6 if islocation(2) then;reachcreature("Charles");say("hi");wait(500,1000);npcsay("darashia");wait(1000,1200);npcsay("yes");wait(500);end;</ToDarashia>
<w069>Stand 33290 32481 6</w069>
<LocCheck19>Action 33290 32481 6 if not islocation(4) then;gotolabel("ToDarashia");return;end</LocCheck19>
<BoatStairs>Stand 33293 32474 6</BoatStairs>
<w070>Stand 33293 32473 6</w070>
<w071>Stand 33293 32473 7</w071>
<LocCheck20>Action 33293 32473 7 if not islocation(4) then;gotolabel("BoatStairs");return;end</LocCheck20>
<w072>Node 33278 32470 7</w072>
<w073>Node 33252 32477 7</w073>
<w074>Node 33231 32477 7</w074>
<w075>Node 33219 32477 7</w075>
<w076>Node 33196 32478 7</w076>
<w077>Node 33186 32494 7</w077>
<w078>Node 33180 32505 7</w078>
<w079>Node 33180 32514 7</w079>
<EndSoftBootsRefill>Action 33178 32523 7 gotolabel("HS1")</EndSoftBootsRefill>
</Waypoints>
<Pathfinding>
<SpecialAreas>
<NewArea0>
<Coordinates>33192 32534 1</Coordinates>
<Dimensions>1 13</Dimensions>
<ConsideredBy>Target</ConsideredBy>
</NewArea0>
</SpecialAreas>
<WalkThroughPlayers>no</WalkThroughPlayers>
<WalkingMethod>Map Clicks</WalkingMethod>
<MapWalkDistance>20 to 50</MapWalkDistance>
<WalkableIds>140;404;831;832;833;834;883;2118;2119;2120;2121;2122;2123;2124;2125;2126;2127;2131;2132;2133;2134;2135;2314;2315;2316;2319;2346;2347;2348;2349;2350;2351;2352;2353;2354;2355;2356;2357;2358;2359;2360;2361;2362;2363;2364;2365;2366;2367;2368;2369;2370;2371;2372;2373;2374;2375;2376;2377;2378;2379;2380;2381;2382;2383;2384;2385;2418;2419;2420;2421;2422;2423;2424;2425;2426;2431;2432;2433;2434;2441;2442;2443;2444;2469;2471;2472;2473;2478;2480;2481;2482;2483;2484;2485;2486;2519;2523;2775;2776;2777;2778;2779;2780;2781;2782;2783;2784;2785;2786;2787;2788;2789;2790;2791;2792;2793;2794;2795;2796;2797;2798;2799;2800;2801;2802;2803;2804;2805;2806;2807;2808;2809;2810;2811;2812;2981;2983;2982;2984;2985;2987;2988;3503;3504;3514;3807;5086;5087;5088;6114;6115;6355;6356;6357;6358;6359;6360;6361;6362;6371;6372;7864;8455;8763;9061;9062;10207;10209;10216;10286;10287;10288;11009;11800;11801;11802;11803;11804;11805;11806;11807;11808;11809;11810</WalkableIds>
</Pathfinding>
<Settings>
<Rope>3003</Rope>
<Shovel>3457</Shovel>
<Pick>3456</Pick>
<Machete>3308</Machete>
<NodeRange>4</NodeRange>
<Priority>Target</Priority>
<OpenNextBp>yes</OpenNextBp>
<AutoMount>yes</AutoMount>
<Anti-idle>no</Anti-idle>
<EatFood>yes</EatFood>
<FoodToEat>3725;3587;3600;3595;3589;3598;8014;3583;3606;3578;3592;3582;3577;3593;3586;3585;3581;3723</FoodToEat>
<PauseOnDeath>yes</PauseOnDeath>
</Settings>
<Enabled>yes</Enabled>
</CaveBot>
<Looting>
<List>
<Gold-Coin>
<Id>3031</Id>
<Destination>3</Destination>
<AlarmOn>No Alarm</AlarmOn>
</Gold-Coin>
<Mana-Potion>
<Id>268</Id>
<Destination>2</Destination>
<AlarmOn>No Alarm</AlarmOn>
</Mana-Potion>
<Strong-Mana-Potion>
<Id>237</Id>
<Destination>1</Destination>
<AlarmOn>No Alarm</AlarmOn>
</Strong-Mana-Potion>
<Crystal-Sword>
<Id>7449</Id>
<Destination>2</Destination>
<AlarmOn>No Alarm</AlarmOn>
</Crystal-Sword>
<Small-Amethyst>
<Id>3033</Id>
<Destination>2</Destination>
<AlarmOn>No Alarm</AlarmOn>
</Small-Amethyst>
<Crystal-Ring>
<Id>3007</Id>
<Destination>2</Destination>
<AlarmOn>No Alarm</AlarmOn>
</Crystal-Ring>
<Energy-Ring>
<Id>3051</Id>
<Destination>2</Destination>
<AlarmOn>No Alarm</AlarmOn>
</Energy-Ring>
<Wand-of-Cosmic-Energy>
<Id>3073</Id>
<Destination>2</Destination>
<AlarmOn>No Alarm</AlarmOn>
</Wand-of-Cosmic-Energy>
<Guardian-Shield>
<Id>3415</Id>
<Destination>2</Destination>
<AlarmOn>No Alarm</AlarmOn>
</Guardian-Shield>
</List>
<Condition>Corpses with listed items</Condition>
<Style>After all dead</Style>
<OpenBodyTime>300</OpenBodyTime>
<Range>100</Range>
<EatFood>yes</EatFood>
<Enabled>yes</Enabled>
</Looting>
<Targeting>
<Monsters>
<Energy-Elemental>
<Categories>-</Categories>
<Danger>0</Danger>
<ListSettings>
<Setting0>
<Count>Any</Count>
<HpRange>0 to 100 %</HpRange>
<Stance>Keep Away Wait</Stance>
<Avoid>None</Avoid>
<Distance>3</Distance>
<Attack>Attack</Attack>
<ListSpell>
<Spell0>No Action</Spell0>
</ListSpell>
<SpellRate>500 to 1000</SpellRate>
<AttackMode>Stand/Defensive</AttackMode>
</Setting0>
</ListSettings>
<Looting>yes</Looting>
<MustAttackMe>no</MustAttackMe>
<OnlyIfTrapped>no</OnlyIfTrapped>
</Energy-Elemental>
<All>
<Categories>-</Categories>
<Danger>0</Danger>
<ListSettings>
<Setting0>
<Count>Any</Count>
<HpRange>0 to 100 %</HpRange>
<Stance>Approach</Stance>
<Avoid>None</Avoid>
<Distance>0</Distance>
<Attack>Attack</Attack>
<ListSpell />
<SpellRate>500 to 1000</SpellRate>
<AttackMode>No Change</AttackMode>
</Setting0>
</ListSettings>
<Looting>yes</Looting>
<MustAttackMe>no</MustAttackMe>
<OnlyIfTrapped>yes</OnlyIfTrapped>
</All>
</Monsters>
<Settings>
<ListOrder>7</ListOrder>
<Health>9</Health>
<Proximity>3</Proximity>
<Danger>5</Danger>
<PlayerOnScreenSecurity>Do nothing</PlayerOnScreenSecurity>
<CooldownControl>yes</CooldownControl>
<CheckItem>no</CheckItem>
<MustBeReachable>yes</MustBeReachable>
<MustBeShootable>no</MustBeShootable>
</Settings>
<Enabled>yes</Enabled>
</Targeting>
<Hud>
<List>
<Hud1>
<Script>-- [[ INIT START ]] --
--
-- 88
-- "" ,d
-- 88
-- ,adPPYba, 88 8b,dPPYba, 88,dPYba,,adPYba, ,adPPYYba, MM88MMM ,adPPYba,
-- I8[ "" 88 88P' "Y8 88P' "88" "8a "" `Y8 88 a8P_____88
-- `"Y8ba, 88 88 88 88 88 ,adPPPPP88 88 8PP"""""""
-- aa ]8I 88 88 88 88 88 88, ,88 88, "8b, ,aa
-- Author: `"YbbdP"' 88 88 88 88 88 `"8bbdP"Y8 "Y888 `"Ybbd8"'
--
-- Monitor My Hunting!
--
-- Version: 1.0
-- Created: 7.09.2012
-- Last update: 18.09.2012
--
MONITOR_MY_HUNTING = MONITOR_MY_HUNTING or {
SCRIPT_NAME = "Monitor My Hunting",
SCRIPT_VERSION = "1.0",
CLEARED_STATS = false,
INITIALIZED = false,
}
MONITOR_MY_HUNTING.SHOW_ALL_ITEMS = false
MONITOR_MY_HUNTING.ITEMS_LIST = {
{NAME = "gold coin", VALUE = 1},
{NAME = "Mana Potion", VALUE = 0},
{NAME = "strong Mana Potion", VALUE = 0},
{NAME = "Small Amethyst", VALUE = 200},
{NAME = "Crystal Ring", VALUE = 250},
{NAME = "Wand of Cosmic Energy", VALUE = 2000},
{NAME = "Guardian Shield", VALUE = 2000},
}
MONITOR_MY_HUNTING.SHOW_ALL_SUPPLIES = false
MONITOR_MY_HUNTING.SUPPLIES_LIST = {
{NAME = "mana potion", PRICE = 50},
{NAME = "strong mana potion", PRICE = 80},
{NAME = "great mana potion", PRICE = 120},
}
-- [[ DO NOT CHANGE ANYTHING BELOW THIS LINE. ]] --
MONITOR_MY_HUNTING.TEMP_ITEMS_LIST = MONITOR_MY_HUNTING.TEMP_ITEMS_LIST or {}
MONITOR_MY_HUNTING.TEMP_SUPPLIES_LIST = MONITOR_MY_HUNTING.TEMP_SUPPLIES_LIST or {}
MONITOR_MY_HUNTING.COLORS = MONITOR_MY_HUNTING.COLORS or {
BLACK = rgbcolor(1, 1, 1),
ORANGE = rgbcolor(255, 165, 0),
BLUE = rgbcolor(30, 144, 255),
CORNSILK = rgbcolor(205, 200, 177),
WHITE = rgbcolor(255, 255, 255),
GREEN = rgbcolor(107, 142, 35),
RED = rgbcolor(178, 34, 34),
}
local function CreateMessageObject(MESSAGE_DATA)
if (type(MESSAGE_DATA) ~= "userdata") then
return setmetatable({__data = {TYPE = -1, TIME_STAMP = -1, SENDER_NAME = "", SENDER_LEVEL = -1, CONTENT = ""}}, MessageMetaTable)
else
return setmetatable({__data = {TYPE = MESSAGE_DATA.type, TIME_STAMP = Misc.ConvertToSeconds(string.sub(MESSAGE_DATA.text, 1, 5)), SENDER_NAME = MESSAGE_DATA.sender, SENDER_LEVEL = tonumber((tostring(string.match(MESSAGE_DATA.text, ".+ (%b[]): .+")):gsub("[^%d]", ""))) or 0, CONTENT = string.sub(MESSAGE_DATA.text, 7)}}, MessageMetaTable)
end
end
local function addtextshadow(DISPLAY_TEXT, X_OFFSET, Y_OFFSET, FONT_COLOR)
setfontcolor(MONITOR_MY_HUNTING.COLORS.BLACK)
addtext(DISPLAY_TEXT, X_OFFSET + 1, Y_OFFSET + 1)
setfontcolor(FONT_COLOR)
addtext(DISPLAY_TEXT, X_OFFSET, Y_OFFSET)
end
-- [[ INIT END ]] --
if (not Stats.Update()) then
local SERVER_LOG_MESSAGES = getnewmessages("Server Log")
local SERVER_LOG_MESSAGES_COUNT = SERVER_LOG_MESSAGES.count - 1
for INDEX = 0, SERVER_LOG_MESSAGES_COUNT do
local MESSAGE_OBJECT = CreateMessageObject(SERVER_LOG_MESSAGES[SERVER_LOG_MESSAGES_COUNT - INDEX])
if (MESSAGE_OBJECT:Type() == 19 and MESSAGE_OBJECT:Content():lower():match("^loot of")) then
local LOOT_INFO = Message.ParseLootMessage(MESSAGE_OBJECT, true)
if (#LOOT_INFO.NAME > 0) then
Stats.__data.MONSTERS_KILLED[LOOT_INFO.NAME] = (Stats.__data.MONSTERS_KILLED[LOOT_INFO.NAME] or 0) + 1
for _, LOOT_ITEM in ipairs(LOOT_INFO.ITEMS) do
if (Stats.__data.ITEMS_LOOTED[LOOT_ITEM.ID]) then
Stats.__data.ITEMS_LOOTED[LOOT_ITEM.ID].QUANTITY = Stats.__data.ITEMS_LOOTED[LOOT_ITEM.ID].QUANTITY + LOOT_ITEM.QUANTITY
else
Stats.__data.ITEMS_LOOTED[LOOT_ITEM.ID] = {ID = LOOT_ITEM.ID, NAME = LOOT_ITEM.NAME, QUANTITY = LOOT_ITEM.QUANTITY, VALUE = Item.GetValue(LOOT_ITEM.ID)}
end
end
end
end
end
end
local RESET_ITEMS_AND_SUPPLIES = #MONITOR_MY_HUNTING.ITEMS_LIST ~= #MONITOR_MY_HUNTING.TEMP_ITEMS_LIST or #MONITOR_MY_HUNTING.SUPPLIES_LIST ~= #MONITOR_MY_HUNTING.TEMP_SUPPLIES_LIST
if (not RESET_ITEMS_AND_SUPPLIES) then
for INDEX, LOOT_ITEM in ipairs(MONITOR_MY_HUNTING.ITEMS_LIST) do
if (LOOT_ITEM.NAME ~= MONITOR_MY_HUNTING.TEMP_ITEMS_LIST[INDEX].NAME or LOOT_ITEM.VALUE ~= MONITOR_MY_HUNTING.TEMP_ITEMS_LIST[INDEX].VALUE) then
RESET_ITEMS_AND_SUPPLIES = true
break
end
end
end
if (not RESET_ITEMS_AND_SUPPLIES) then
for INDEX, SUPPLY_ITEM in ipairs(MONITOR_MY_HUNTING.SUPPLIES_LIST) do
if (SUPPLY_ITEM.NAME ~= MONITOR_MY_HUNTING.TEMP_SUPPLIES_LIST[INDEX].NAME or SUPPLY_ITEM.PRICE ~= MONITOR_MY_HUNTING.TEMP_SUPPLIES_LIST[INDEX].PRICE) then
RESET_ITEMS_AND_SUPPLIES = true
break
end
end
end
if (not MONITOR_MY_HUNTING.INITIALIZED or RESET_ITEMS_AND_SUPPLIES) then
if (not MONITOR_MY_HUNTING.CLEARED_STATS) then
Stats.Clear(CLEAR_STATS_ALL)
Stats.Update()
MONITOR_MY_HUNTING.CLEARED_STATS = true
end
MONITOR_MY_HUNTING.TEMP_ITEMS_LIST, MONITOR_MY_HUNTING.TEMP_SUPPLIES_LIST = {}, {}
for _, LOOT_ITEM in ipairs(MONITOR_MY_HUNTING.ITEMS_LIST) do
local LOOT_ITEM_ID = Item.GetID(type(LOOT_ITEM.NAME) ~= "table" and LOOT_ITEM.NAME or unpack(LOOT_ITEM.NAME))
Stats.AddItemsLooted(LOOT_ITEM_ID, 0, LOOT_ITEM.VALUE)
table.insert(MONITOR_MY_HUNTING.TEMP_ITEMS_LIST, {ID = LOOT_ITEM_ID, NAME = LOOT_ITEM.NAME, VALUE = LOOT_ITEM.VALUE})
end
for _, SUPPLY_ITEM in ipairs(MONITOR_MY_HUNTING.SUPPLIES_LIST) do
local SUPPLY_ITEM_ID = Item.GetID(type(SUPPLY_ITEM.NAME) ~= "table" and SUPPLY_ITEM.NAME or unpack(SUPPLY_ITEM.NAME))
Stats.AddSuppliesUsed(SUPPLY_ITEM_ID, 0, SUPPLY_ITEM.PRICE)
table.insert(MONITOR_MY_HUNTING.TEMP_SUPPLIES_LIST, {ID = SUPPLY_ITEM_ID, NAME = SUPPLY_ITEM.NAME, PRICE = SUPPLY_ITEM.PRICE})
end
MONITOR_MY_HUNTING.INITIALIZED = true
end
setposition(Client.ClientWindow().right - 434, Client.WorldWindow().top + 5)
local Y_POSITION, INDEX, ITEMS_LOOTED_WORTH, SUPPLIES_USED_WORTH = 30, 0, 0, 0
addtextshadow(sprintf("%s v%s", MONITOR_MY_HUNTING.SCRIPT_NAME:upper(), MONITOR_MY_HUNTING.SCRIPT_VERSION), 10, Y_POSITION + (INDEX * 16), MONITOR_MY_HUNTING.COLORS.ORANGE)
Y_POSITION = Y_POSITION + 20
addtextshadow("ITEMS LOOTED", 10, Y_POSITION + (INDEX * 16), MONITOR_MY_HUNTING.COLORS.BLUE)
Y_POSITION = Y_POSITION + 20
for _, LOOT_ITEM in pairs(Stats.GetItemsLooted()) do
if ((MONITOR_MY_HUNTING.SHOW_ALL_ITEMS or table.find(MONITOR_MY_HUNTING.TEMP_ITEMS_LIST, LOOT_ITEM.ID, "ID")) and LOOT_ITEM.QUANTITY > 0) then
addtextshadow(((#LOOT_ITEM.NAME > 17 and sprintf("%s...", string.match(string.sub(LOOT_ITEM.NAME, 1, 17), "(.-)%s?$"))) or LOOT_ITEM.NAME):ucwords(), 10, Y_POSITION + (INDEX * 16), MONITOR_MY_HUNTING.COLORS.CORNSILK)
addtextshadow(sprintf("%s (%sK)", Misc.FormatNumber(LOOT_ITEM.QUANTITY), tostring(math.floor(LOOT_ITEM.VALUE * LOOT_ITEM.QUANTITY / 100) / 10)), 140, Y_POSITION + (INDEX * 16), MONITOR_MY_HUNTING.COLORS.WHITE)
INDEX, ITEMS_LOOTED_WORTH = INDEX + 1, ITEMS_LOOTED_WORTH + (LOOT_ITEM.VALUE * LOOT_ITEM.QUANTITY)
end
end
addtextshadow("Total:", 10, Y_POSITION + (INDEX * 16), MONITOR_MY_HUNTING.COLORS.WHITE)
addtextshadow(sprintf("%s GPs", Misc.FormatNumber(ITEMS_LOOTED_WORTH)), 10 + 35, Y_POSITION + (INDEX * 16), MONITOR_MY_HUNTING.COLORS.ORANGE)
Y_POSITION = Y_POSITION + 20
addtextshadow("SUPPLIES USED", 10, Y_POSITION + (INDEX * 16), MONITOR_MY_HUNTING.COLORS.BLUE)
Y_POSITION = Y_POSITION + 20
for _, SUPPLY_ITEM in pairs(Stats.GetSuppliesUsed()) do
if ((MONITOR_MY_HUNTING.SHOW_ALL_SUPPLIES or table.find(MONITOR_MY_HUNTING.TEMP_SUPPLIES_LIST, SUPPLY_ITEM.ID, "ID")) and SUPPLY_ITEM.QUANTITY > 0) then
addtextshadow(((#SUPPLY_ITEM.NAME > 17 and sprintf("%s...", string.match(string.sub(SUPPLY_ITEM.NAME, 1, 17), "(.-)%s?$"))) or SUPPLY_ITEM.NAME):ucwords(), 10, Y_POSITION + (INDEX * 16), MONITOR_MY_HUNTING.COLORS.CORNSILK)
addtextshadow(sprintf("%s (%sK)", Misc.FormatNumber(SUPPLY_ITEM.QUANTITY), tostring(math.floor(SUPPLY_ITEM.PRICE * SUPPLY_ITEM.QUANTITY / 100) / 10)), 140, Y_POSITION + (INDEX * 16), MONITOR_MY_HUNTING.COLORS.WHITE)
INDEX, SUPPLIES_USED_WORTH = INDEX + 1, SUPPLIES_USED_WORTH + (SUPPLY_ITEM.PRICE * SUPPLY_ITEM.QUANTITY)
end
end
addtextshadow("Total:", 10, Y_POSITION + (INDEX * 16), MONITOR_MY_HUNTING.COLORS.WHITE)
addtextshadow(sprintf("%s GPs", Misc.FormatNumber(SUPPLIES_USED_WORTH)), 10 + 35, Y_POSITION + (INDEX * 16), MONITOR_MY_HUNTING.COLORS.ORANGE)
Y_POSITION = Y_POSITION + 20
addtextshadow(sprintf("%s: %s GPs (%s K/H)", ((ITEMS_LOOTED_WORTH >= SUPPLIES_USED_WORTH and ("PROFIT")) or ("WASTE")), Misc.FormatNumber(ITEMS_LOOTED_WORTH - SUPPLIES_USED_WORTH), tostring(math.floor(((ITEMS_LOOTED_WORTH - SUPPLIES_USED_WORTH) * 3600) / (System.HuntingTime() / 1000) / 100) / 10)), 10, Y_POSITION + (INDEX * 16), ITEMS_LOOTED_WORTH >= SUPPLIES_USED_WORTH and MONITOR_MY_HUNTING.COLORS.GREEN or MONITOR_MY_HUNTING.COLORS.RED)</Script>
<RefreshRate>600</RefreshRate>
<Enabled>yes</Enabled>
</Hud1>
<Hud0>
<Script>ShowCoordinates = true
ux = worldwin.width/15
uy = worldwin.height/11
local i=wpt.x-posx
local j=wpt.y-posy
local function addtextshadow(text, color, shadowcolor, xpos, ypos)
setfontcolor(shadowcolor)
addtext(text, xpos+1, ypos+1)
setfontcolor(color)
addtext(text, xpos, ypos)
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.left, uy*(j+5.15)+20)
addtextshadow(WaypointX,"Gold",rgbcolor(1,1,1),ux*(i+7.5)-2*string.len(WaypointX)+worldwin.left, uy*(j+5.45)+20)
addtextshadow(WaypointY,"Gold",rgbcolor(1,1,1),ux*(i+7.5)-2*string.len(WaypointY)+worldwin.left, uy*(j+5.65)+20)
addtextshadow(WaypointZ,"Gold",rgbcolor(1,1,1),ux*(i+7.5)-2*string.len(WaypointZ)+worldwin.left, uy*(j+5.85)+20)
else
addtextshadow(WaypointType,"Gold",rgbcolor(1,1,1),ux*(i+7.5)-1.5*string.len(WaypointType)+worldwin.left, uy*(j+5.5)+20)
end</Script>
<RefreshRate>600</RefreshRate>
<Enabled>no</Enabled>
</Hud0>
<Hud2>
<Script>-- [ General Info HUD by ToadZ v0.4 ] --
-- [ Settings ] --
local RaphaelLibrary = false
-- [ Botting Status by PV! ] --
local showBotting = false
-- [ Position ] --
local showPosition = true
-- [ Kills to Level UP ] --
local showKillToUp = false
local monsterswillkill = {"Lizard Chosen", "Lizard High Guard"}
local monstersexp = {2200, 1450}
-- [ Supplies Counter ] --
local showSupplies = false
local item1 = {name = "Strong Mana Potion", buy = 1200, min = 100}
local item2 = {name = "Crystalline Arrow", buy = 1400, min = 100}
local item3 = {name = "Assassin Star", buy = 50, min = 0}
local items = {item1, item2, item3}
-- [ Supplies Wasted ] --
local showSuppliesWasted = false
local suppliesitems = {'strong mana potion'}
local suppsvalue = {80}
-- [ Items looted ] --
local showLoots = false
local lootitems = {"Gold Coin", "Platinum Coin", "Zaoan Armor", "Zaoan Legs", "Zaoan Shoes", "Zaoan Robe", "Zaoan Helmet", "Tower Shield", "Strong Health Potion", "Strong Mana Potion", "Great Health Potion", "Great Mana Potion", "Spiked Iron Ball", "Cursed Shoulder Spikes", "Corrupted Flag", "Lizard Scale", "Small Diamond", "Dragon Priest's Wandtip", "Lizard Leather", "Scale of Corruption", "High Guard Shoulderplates", "High Guard Flag", "Small Emerald", "Life Ring", "Small Amethyst", "Wand of Inferno", "Terra Rod", "Yellow Gem", "Focus Cape"}
local lootsvalue = {1, 100, 14000, 14000, 5000, 12000, 45000, 8000, 0, 0, 0, 0, 100, 320, 700, 120, 300, 175, 150, 680, 130, 550, 250, 400, 200, 3000, 2000, 1000, 6000}
local myname = true -- DO NOT DISABLE, make 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(first, rest)
return first:upper()..rest:lower()
end
if clientwin.x ~= nil or clientwin.y ~= nil then
setposition(clientwin.x+13, clientwin.y+30)
else
setposition(5, 20)
end
setfontstyle("Tahoma", fontsize, "white")
-- [[ Botting ]]
if showBotting then
setfontcolor("white")
addtext('-----------------------------------------', 0, y)
setfontcolor("yellow")
y = y + 10
addtext(' [ Botting ]', 15, y)
y = y + 10
setfontcolor("white")
addtext('-----------------------------------------', 0, y)
y = y + 10
addtext('Exp Per Hour', x, y)
addtext('- ' .. exphour, 120, y)
y = y + 15
addtext('Exp Left', x, y)
addtext('- ' .. exptolevel(), 120, y)
y = y + 15
addtext('Exp Gained', x, y)
addtext('- ' .. expgained, 120, y)
y = y + 15
addtext('Time To Next Level', x, y)
addtext('- ' .. timetolevel, 120, y)
y = y + 15
addtext('Stamina', x, y)
addtext('- ', 120, y)
if stamina >= 2400 then
setfontcolor("green")
else if stamina < 2400 and (stamina > 840) then
setfontcolor("orange")
else if stamina <= 840 then
setfontcolor("red")
end
end
end
if RaphaelLibrary then
addtext(time(stamina), 130, y)
else
addtext(stamina, 130, y)
end
y = y + 15
setfontcolor("white")
addtext('Time Played', x, y)
addtext('- ' .. timehunt, 120, y)
y = y + 15
addtext('Cavebot', x, y)
addtext('- ', 120, y)
if cavebot then
setfontcolor("green")
addtext('ON', 130, y)
else
setfontcolor("red")
addtext('OFF', 130, y)
end
y = y + 15
setfontcolor("white")
addtext('- ', 120, y)
addtext('Targeting', x, y)
if targeting then
setfontcolor("green")
addtext('ON', 130, y)
else
setfontcolor("red")
addtext('OFF', 130, y)
end
y = y + 15
setfontcolor("white")
addtext('Looting', x, y)
addtext('- ', 120, y)
if looting then
setfontcolor("green")
addtext('ON', 130, y)
else
setfontcolor("red")
addtext('OFF', 130, y)
end
y = y + 15
setfontcolor("white")
addtext('Walk Through', x, y)
addtext('- ', 120, y)
if getsettings("Settings/CaveBot/Pathfinding/WalkThroughPlayers") == 'yes' then
setfontcolor("green")
addtext('ON', 130, y)
elseif getsettings("Settings/CaveBot/Pathfinding/WalkThroughPlayers") == 'no' then
setfontcolor("red")
addtext('OFF', 130, y)
else
setfontcolor("yellow")
addtext('???', 130, y)
end
y = y + 15
setfontcolor("white")
addtext('Balance', x, y)
addtext('- ', 120, y)
if balance == -1 then
addtext('?', 130, y)
else
addtext(balance, 130, y)
end
y = y + 10
end
-- [[ Position ]]
if showPosition then
setfontcolor("white")
addtext('-----------------------------------------', 0, y)
setfontcolor("yellow")
y = y + 10
addtext(' [ Position ]', 15, y)
y = y + 10
setfontcolor("white")
addtext('-----------------------------------------', 0, y)
y = y + 10
addtext("Position X ", x, y)
addtext("- "..posx, 120, y)
y = y + 15
addtext("Position Y ", x, y)
addtext("- "..posy, 120, y)
y = y + 15
addtext("Position Z ", x, y)
addtext("- "..posz, 120, y)
y = y + 15
addtext("Cursor ID", x, y)
addtext('- '..cursorinfo().id, 120, y)
y = y + 10
end
-- [[ Kills to Level UP ]]
if showKillToUp then
setfontcolor("white")
addtext('-----------------------------------------', 0, y)
setfontcolor("yellow")
y = y + 10
addtext(' [ Kills to Level UP ]', 15, y)
y = y + 10
setfontcolor("white")
addtext('-----------------------------------------', 0, y)
y = y + 10
for i, j in pairs(monsterswillkill) do
addtext(j, x, y)
addtext(math.floor(exptolevel()/monstersexp[i]), 130, y)
y = y + 15
end
end
-- [[ Supplies ]]
if showSupplies then
setfontcolor("white")
addtext('-----------------------------------------', 0, y)
setfontcolor("yellow")
y = y + 10
addtext(' [ Supplies ]', 15, y)
y = y + 10
setfontcolor("white")
addtext('-----------------------------------------', 0, y)
y = y + 10
for i, j 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].name, x, y)
addtext('-', 120, y)
if cont <= items[i].min then
setfontcolor("red")
elseif cont <= (items[i].buy/2) then
setfontcolor("yellow")
elseif cont < items[i].buy then
setfontcolor("white")
else
setfontcolor("green")
end
if itemid(items[i].name) == ammo then
addtext(cont, 130, y)
elseif itemid(items[i].name) == weapon then
addtext(cont, 130, y)
else
addtext(cont, 130, y)
end
setfontcolor("white")
y = y + 15
end
y = y - 5
end
if showSuppliesWasted then setfontcolor("white") addtext('-----------------------------------------', 0, y) y = y + 10 setfontcolor("yellow") addtext(' [ Supplies wasted ]', 15, y) y = y + 10 setfontcolor("white") addtext('-----------------------------------------', 0, y) y = y + 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), 1, sub).."...", x, y) else addtext(supps[i].name, x, y) end addtext("- "..supps[i].usage.." ("..(math.floor(supps[i].usage*suppsvalue[i+1] / 100)/10).."k)", 120, y) totals = totals + supps[i].usage*suppsvalue[i+1] y = y + 15 end y = y + 10 addtext("Total", x, y) addtext("-", 120, y) addtext(totals.." GPs", 130, y) y = y + 10 end if showLoots then setfontcolor("white") addtext('-----------------------------------------', 0, y) setfontcolor("yellow") y = y + 10 addtext(' [ Items looted ]', 15, y) y = y + 10 setfontcolor("white") addtext('-----------------------------------------', 0, y) y = y + 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(lootname, 1, sub).."..", x, y) else addtext(lootname, x, y) end addtext("- "..loots[i].loot.." ("..(math.floor(loots[i].loot*lootsvalue[i+1] / 100)/10).."k)", 120, y) totall = totall + loots[i].loot*lootsvalue[i+1] y = y + 15 end end y = y + 10 addtext("Total", x, y) addtext("-", 120, y) addtext(totall.." GPs", 130, y) y = y + 10 end if showSuppliesWasted and showLoots then setfontcolor("white") addtext('-----------------------------------------', 0, y) y = y + 10 total = totall - totals if totall-totals > 0 then setfontcolor("green") addtext("PROFIT:", x, y) else setfontcolor("red") addtext("WASTE:", x, y) end setfontcolor("white") addtext(total.." GPs ("..(math.floor((total/(tosec(timehunt)/3600))/100)/10).."k/h)", x + 50, y) y = y + 10 end
setfontcolor("white")
addtext('-----------------------------------------', 0, y)
if myname then
setfontcolor("yellow")
y = y + 10
addtext(' [ HUD by ToadZ ]', 5, y)
y = y + 10
setfontcolor("white")
addtext('-----------------------------------------', 0, y)
end </Script>
<RefreshRate>1000</RefreshRate>
<Enabled>no</Enabled>
</Hud2>
<Hud3>
<Script>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(text, color, shadowcolor, xpos, ypos)
setfontcolor(shadowcolor)
addtext(text, xpos+1, ypos+1)
setfontcolor(color)
addtext(text, xpos, ypos)
end
function string:split(sep)
local sep, fields = sep or ":", {}
local pattern = string.format("([^%s]+)", sep)
self:gsub(pattern, function(c) fields[#fields+1] = c end)
return fields
end
setfontstyle("Trebuchet MS",FontSize,"B")
for sa=1, table.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])-1 do
for dy=math.min(0,Dimensions[2]),math.max(0,Dimensions[2])-1 do
for s=1,worldwin.width/90 do
if dy==math.min(0,Dimensions[2]) then
addtextshadow("_", FontColor, rgbcolor(1,1,1), (i+15/2+dx)*ux+3+s*2+worldwin.left, (j+5+dy)*uy+13)
addtextshadow("_", FontColor, rgbcolor(1,1,1), (i+15/2+dx)*ux+3-s*2+worldwin.left, (j+5+dy)*uy+13)
end
addtextshadow("_", FontColor, rgbcolor(1,1,1), (i+15/2+dx)*ux+3+s*2+worldwin.left, (j+6+dy)*uy+13)
addtextshadow("_", FontColor, rgbcolor(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("|", FontColor, rgbcolor(1,1,1), (i+7+dx)*ux+3+worldwin.left, (j+11/2+dy)*uy+18+s*2)
addtextshadow("|", FontColor, rgbcolor(1,1,1), (i+7+dx)*ux+3+worldwin.left, (j+11/2+dy)*uy+18-s*2)
end
addtextshadow("|", FontColor, rgbcolor(1,1,1), (i+8+dx)*ux+3+worldwin.left, (j+11/2+dy)*uy+18+s*2)
addtextshadow("|", FontColor, rgbcolor(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), FontColor, rgbcolor(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], NameColor, rgbcolor(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), FontColor, rgbcolor(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 </Script>
<RefreshRate>1000</RefreshRate>
<Enabled>no</Enabled>
</Hud3>
</List>
<Show>If Focused</Show>
<Enabled>yes</Enabled>
</Hud>
<Input>
<Keyboard>
<Mode>Simulate</Mode>
<StuckCtrlShift>If cavebot on, release after 1 sec</StuckCtrlShift>
<TypingStyle>Keyboard keys</TypingStyle>
<PressWaitTime>45 to 65</PressWaitTime>
</Keyboard>
<Mouse>
<Mode>Simulate</Mode>
<Scroll>Use mouse wheel</Scroll>
<MoveSpeed>Instantaneous</MoveSpeed>
<ClickWaitTime>30 to 50</ClickWaitTime>
</Mouse>
<OpenMenuPolicy>Confirm if cavebotting</OpenMenuPolicy>
<Enabled>yes</Enabled>
</Input>
</Settings>