Menu
What's new
By:
Filters

Paladin [PACC] Port Hope Tarantula

Status
Not open for further replies.
Faklop

Faklop

Towarzysz Stalin
Joined
Mar 9, 2013
Messages
170
Reaction score
2
[RP] Port Hope Tarantula​



Code: 
- <Settings>
- <Alerts>
- <Player>
- <OnScreen>
  <PlaySound>no</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>
  </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>
  </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>
- <Disconnect>
  <PlaySound>no</PlaySound> 
  <FlashClient>no</FlashClient> 
  <PauseBot>no</PauseBot> 
  </Disconnect>
  <Enabled>no</Enabled> 
  </Alerts>
- <Healer>
- <Rules>
- <Exura>
  <HealRange>60 to 90 %</HealRange> 
  <ManaRange>20 to all</ManaRange> 
  <HealMethod>Light Healing</HealMethod> 
  <ExtraCondition>No condition</ExtraCondition> 
  <CooldownControl>yes</CooldownControl> 
  <CheckItem>no</CheckItem> 
  <SpamRate>200 to 400</SpamRate> 
  <Enabled>yes</Enabled> 
  </Exura>
- <Exura-gran>
  <HealRange>0 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>
- <Mana>
  <HealRange>0 to 100 %</HealRange> 
  <ManaRange>0 to 65 %</ManaRange> 
  <HealMethod>Mana Potion</HealMethod> 
  <ExtraCondition>No condition</ExtraCondition> 
  <CooldownControl>yes</CooldownControl> 
  <CheckItem>no</CheckItem> 
  <SpamRate>200 to 400</SpamRate> 
  <Enabled>yes</Enabled> 
  </Mana>
  </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>
- <Usemountchecker>
  <Script>if use_mount then setsettings("Settings\\CaveBot\\Settings\\AutoMount", "yes") else setsettings("Settings\\CaveBot\\Settings\\AutoMount", "no") end</Script> 
  <SpamRate>800 to 1000</SpamRate> 
  <Enabled>yes</Enabled> 
  </Usemountchecker>
- <Safe-banker>
  <Script>-- NPC name local npcname = 'Ferks' local index = 0 local msgs = getmessages("NPCs") local qtd = msgs.count-1 for i=0,qtd do if msgs[qtd].sender == npcname and msgs[qtd].text:find('There is not enough gold on your account.') then setcavebot('off') wait(5000,10000) closetibia() end end</Script> 
  <SpamRate>800 to 1000</SpamRate> 
  <Enabled>yes</Enabled> 
  </Safe-banker>
- <Drop-vials>
  <Script>if maround < 1 and itemcount(285) > 15 and cap < capleave then moveitems(285,"ground") end</Script> 
  <SpamRate>800 to 1000</SpamRate> 
  <Enabled>yes</Enabled> 
  </Drop-vials>
  </List>
  <Setup>-- ~~ S E T T I N G S ~~ -------- Script setup -------- use_mount = false --true if you want to use mount (true/false) -------- Backpack setup -------- mainbp = "Demon backpack" --your main backpack name lootbp = "Jewelled backpack" --your backpack for loot goldbp = "Brocade backpack" --your backpack for gold coins maindpbp = "Backpack" --backpack in depo lootdpbp = "purple backpack" --backpack for non-stackable loot stackdpbp = "beach backpack" --backpack for stackable loot -------- Supplies setup -------- ammoname = "royal spear" --name of your ammunition ammotobuy = 25 --amount of ammunition to buy ammoprice = 15 --price of single ammunition mananame = "mana potion" --name of your mana potion manatobuy = 80 --amount of mana potion to buy manaprice = 50 --price of single mana potion ammoleave = 7 --amount of ammunition to leave resp manaleave = 15 --amount of mana to leave resp capleave = 20 --cap to leave resp -------------------------------------------------------------------</Setup> 
  <Enabled>yes</Enabled> 
  </Actions>
- <CaveBot>
- <Waypoints>
  <w000>Stand 32623 32739 7</w000> 
  <w001>Action 32623 32739 7 wait(500, 1000);closewindows();setsettings("Settings\\CaveBot\\Settings\\OpenNextBp", "no") ;wait(500, 1000);openitem(mainbp, 'back') ;wait(500, 1000);resizewindows();wait(500, 1000);openitem(lootbp, mainbp, true);wait(500, 1000);resizewindows();wait(500, 1000)</w001> 
  <w002>Action 32623 32739 7 reachgrounditem("depot");wait(2000);openitem("depot");wait(2000);openitem("depot chest", "locker");wait(2000);openitem(maindpbp, "depot chest");;wait(2000);depotdeposit(stackdpbp, "Tarantula Egg", "Spider fangs");wait(500,1000);depotdeposit(lootdpbp, "Time Ring", "Steel Helmet");wait(500,1000)</w002> 
  <up_to_bank>Stand 32625 32749 7</up_to_bank> 
  <w004>Stand 32625 32748 6</w004> 
  <w005>Action 32625 32748 6 if not islocation() then gotolabel('up_to_bank') end</w005> 
  <banker>Stand 32632 32740 6</banker> 
  <w006>Action 32632 32740 6 local mana = positive(manatobuy - itemcount(mananame)) * manaprice ;local ammo = positive(ammotobuy - weaponamount) * ammoprice;local Total = mana + ammo + 1000;;say("hi");wait(1500,2500);npcsay("deposit all");wait(200,300) ;npcsay("yes");wait(200,300) ;;if Total > 0 then ; npcsay("withdraw "..Total) ; wait(200,300) ; npcsay("yes") ; wait(200,300); npcsay("Balance"); wait(200,300);end</w006> 
  <up_to_shops>Stand 32630 32742 6</up_to_shops> 
  <w009>Ladder 32630 32742 6</w009> 
  <w010>Action 32630 32743 5 if not islocation() then gotolabel('up_to_shops') end</w010> 
  <w007>Stand 32632 32741 5</w007> 
  <w008>Action 32632 32741 5 wait(1500,2000);opentrade();wait(600);buyitemsupto(ammoname, (ammotobuy - weaponamount))</w008> 
  <w011>Stand 32624 32741 5</w011> 
  <w012>Action 32624 32741 5 opentrade();wait(600);sellflasks();buyitemsupto(mananame, manatobuy)</w012> 
  <w013>Stand 32626 32742 5</w013> 
  <w014>Action 32626 32742 6 if itemcount(mananame) < manatobuy and (itemcount(ammoname) + ammoamount) < ammotobuy then;gotolabel('banker');else;gotolabel('bps_for_hunt');end</w014> 
  <bps_for_hunt>Action 32623 32747 7 wait(500, 1000);closewindows();setsettings("Settings\\CaveBot\\Settings\\OpenNextBp", "yes");wait(500, 1000);openitem(mainbp, 'back') ;wait(500, 1000);resizewindows();wait(500, 1000);openitem(lootbp, mainbp, true);wait(500, 1000);resizewindows();wait(500, 1000);openitem(goldbp, mainbp, true);wait(500, 1000);resizewindows();wait(500, 1000)</bps_for_hunt> 
  <off_to_spawn>Stand 32625 32749 6</off_to_spawn> 
  <w003>Stand 32628 32771 7</w003> 
  <w016>Action 32628 32771 7 reachcreature("Old Adall");wait(1000,2000);say("hi");wait(1000,2000);npcsay("east");wait(1000,2000);npcsay("yes")</w016> 
  <w015>Action 32679 32777 7 if not islocation() then gotolabel('off_to_spawn') end</w015> 
  <w017>Stand 32699 32787 7</w017> 
  <start_hunt>Stand 32726 32793 7</start_hunt> 
  <w019>Stand 32697 32783 8</w019> 
  <w020>Stand 32686 32788 8</w020> 
  <w021>Stand 32725 32792 8</w021> 
  <w022>Rope 32726 32793 8</w022> 
  <w018>Action 32730 32794 7 if itemcount(mananame) > manaleave and (itemcount(ammoname) + weaponamount) > ammoleave and cap > capleave then;gotolabel('second_cave');else;gotolabel('deposit');end;</w018> 
  <second_cave>Stand 32758 32791 7</second_cave> 
  <w024>Stand 32747 32816 8</w024> 
  <w025>Stand 32748 32840 8</w025> 
  <w026>Stand 32757 32792 8</w026> 
  <w027>Rope 32758 32791 8</w027> 
  <w023>Action 32730 32794 7 if itemcount(mananame) > manaleave and (itemcount(ammoname) + weaponamount) > ammoleave and cap > capleave then;gotolabel('third_cave');else;gotolabel('deposit');end;</w023> 
  <third_cave>Stand 32804 32804 7</third_cave> 
  <w029>Stand 32818 32809 7</w029> 
  <w030>Stand 32806 32812 8</w030> 
  <w031>Stand 32794 32816 8</w031> 
  <w032>Stand 32812 32839 8</w032> 
  <w033>Stand 32784 32835 8</w033> 
  <w034>Stand 32804 32813 8</w034> 
  <w035>Stand 32817 32810 8</w035> 
  <w044>Rope 32818 32809 8</w044> 
  <w036>Stand 32784 32803 7</w036> 
  <w037>Stand 32743 32790 7</w037> 
  <w038>Action 32733 32789 7 if itemcount(mananame) > manaleave and (itemcount(ammoname) + weaponamount) > ammoleave and cap > capleave then;gotolabel('start_hunt');else;gotolabel('deposit');end</w038> 
  <deposit>Stand 32703 32791 7</deposit> 
  <boat_to_dp>Stand 32679 32777 7</boat_to_dp> 
  <w028>Action 32679 32777 7 reachcreature("Lorek");wait(1000,2000);say("hi");wait(1000,2000);npcsay("center");wait(1000,2000);npcsay("yes")</w028> 
  <w040>Action 32632 32747 6 if itemcount('Steel helmet') > 0 then;gotolabel('sell_steels');else;gotolabel('go_to_dp');end</w040> 
  <sell_steels>Stand 32629 32749 7</sell_steels> 
  <w039>Stand 32632 32747 6</w039> 
  <w041>Action 32632 32747 6 if not islocation() then gotolabel('boat_to_dp') end</w041> 
  <w042>Action 32632 32747 6 opentrade();wait(600);sellitemsupto("Steel helmet", 100)</w042> 
  <w043>Stand 32625 32749 6</w043> 
  <go_to_dp>Stand 32623 32744 7</go_to_dp> 
  </Waypoints>
- <Pathfinding>
  <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 and Looting</Priority> 
  <OpenNextBp>yes</OpenNextBp> 
  <AutoMount>no</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>no</Enabled> 
  </CaveBot>
- <Looting>
- <List>
- <Tarantula-egg>
  <Id>10281</Id> 
  <Destination>01</Destination> 
  <AlarmOn>No Alarm</AlarmOn> 
  </Tarantula-egg>
- <Spider-Fangs>
  <Id>8031</Id> 
  <Destination>01</Destination> 
  <AlarmOn>No Alarm</AlarmOn> 
  </Spider-Fangs>
- <Time-ring>
  <Id>3053</Id> 
  <Destination>01</Destination> 
  <AlarmOn>No Alarm</AlarmOn> 
  </Time-ring>
- <Steel-helmet>
  <Id>3351</Id> 
  <Destination>01</Destination> 
  <AlarmOn>No Alarm</AlarmOn> 
  </Steel-helmet>
- <Gold-coin>
  <Id>3031</Id> 
  <Destination>02</Destination> 
  <AlarmOn>No Alarm</AlarmOn> 
  </Gold-coin>
  </List>
  <Condition>Corpses with listed items</Condition> 
  <Style>After all dead</Style> 
  <OpenBodyTime>300</OpenBodyTime> 
  <Range>10</Range> 
  <EatFood>yes</EatFood> 
  <Enabled>yes</Enabled> 
  </Looting>
- <Targeting>
- <Monsters>
- <All>
  <Categories>-</Categories> 
  <Danger>0</Danger> 
- <ListSettings>
- <Setting0>
  <Count>Any</Count> 
  <HpRange>0 to 100 %</HpRange> 
  <Stance>No movement</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>
- <Tarantula>
  <Categories>-</Categories> 
  <Danger>5</Danger> 
- <ListSettings>
- <Setting0>
  <Count>Any</Count> 
  <HpRange>0 to 100 %</HpRange> 
  <Stance>Keep Away</Stance> 
  <Avoid>None</Avoid> 
  <Distance>3</Distance> 
  <Attack>Attack</Attack> 
  <ListSpell /> 
  <SpellRate>500 to 1000</SpellRate> 
  <AttackMode>No Change</AttackMode> 
  </Setting0>
  </ListSettings>
  <Looting>yes</Looting> 
  <MustAttackMe>no</MustAttackMe> 
  <OnlyIfTrapped>no</OnlyIfTrapped> 
  </Tarantula>
  </Monsters>
- <Settings>
  <ListOrder>7</ListOrder> 
  <Health>9</Health> 
  <Proximity>3</Proximity> 
  <Danger>5</Danger> 
  <PlayerOnScreenSecurity>If cavebotting</PlayerOnScreenSecurity> 
  <CooldownControl>yes</CooldownControl> 
  <CheckItem>no</CheckItem> 
  <MustBeReachable>yes</MustBeReachable> 
  <MustBeShootable>no</MustBeShootable> 
  </Settings>
  <Enabled>yes</Enabled> 
  </Targeting>
- <Hud>
- <List>
- <GeneralInfo>
  <Script>setsize(100,100) setfontcolor("Red") addtext('Script made by Drakke',10,205) setfontcolor("White") addtext(name,10,55) setfontcolor("Orange") addtext("LvL :", 10,80) addtext(level, 38,80) addtext("Next LvL :", 10,95) addtext(exptolevel(), 66,95) addtext("Exp gained :", 10, 110) addtext(expgained, 79, 110) addtext("Exp/h :", 10,125) addtext(exphour, 52,125) addtext("Time to level :", 10, 140) addtext(timetolevel, 90, 140) addtext("Played time :", 10, 155) addtext(timehunt, 85, 155) addtext("balance :", 10, 180) addtext(balance, 63, 180)</Script> 
  <RefreshRate>1000</RefreshRate> 
  <Enabled>yes</Enabled> 
  </GeneralInfo>
- <Monitor-my-hunt>
  <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 = "time ring", VALUE = 100}, {NAME = "steel helmet", VALUE = 293}, {NAME = "tarantula egg", VALUE = 80}, {NAME = "spider fangs", VALUE = 10}, } MONITOR_MY_HUNTING.SHOW_ALL_SUPPLIES = false MONITOR_MY_HUNTING.SUPPLIES_LIST = { {NAME = "mana potion", PRICE = 50}, {NAME = "royal spear", PRICE = 15}, {NAME = "spread", PRICE = 10}, } -- [[ 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>1000</RefreshRate> 
  <Enabled>yes</Enabled> 
  </Monitor-my-hunt>
  </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>
 
Status
Not open for further replies.
Top