What's new

Paladin [PACC] [50] Edron Wyverns

Status
Not open for further replies.

Xinum

Never Give Up!
Joined
Dec 23, 2009
Messages
578
Reaction score
66
[RP][50] Edron Wyverns

Code:
<Settings>
  <Alerts>
    <Player>
      <OnScreen>
        <PlaySound>yes</PlaySound>
        <FlashClient>yes</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>yes</PlaySound>
        <FlashClient>yes</FlashClient>
        <PauseBot>no</PauseBot>
        <Disconnect>no</Disconnect>
        <SafeList>null</SafeList>
      </PrivateMessage>
      <Advanced>
        <PlaySound>no</PlaySound>
        <FlashClient>yes</FlashClient>
        <PauseBot>no</PauseBot>
        <Disconnect>no</Disconnect>
        <Screenshot>yes</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>80000</Value>
      <PlaySound>yes</PlaySound>
      <FlashClient>yes</FlashClient>
      <PauseBot>no</PauseBot>
      <Disconnect>no</Disconnect>
    </StandTime>
    <Disconnect>
      <PlaySound>yes</PlaySound>
      <FlashClient>yes</FlashClient>
      <PauseBot>no</PauseBot>
    </Disconnect>
    <Enabled>yes</Enabled>
  </Alerts>
  <Healer>
    <Rules>
      <exura>
        <HealRange>78 to 92 %</HealRange>
        <ManaRange>20 to 100 %</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>59 to 77 %</HealRange>
        <ManaRange>20 to 100 %</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>
      <exura-san>
        <HealRange>30 to 58 %</HealRange>
        <ManaRange>22 to 100 %</ManaRange>
        <HealMethod>Divine Healing</HealMethod>
        <ExtraCondition>No condition</ExtraCondition>
        <CooldownControl>yes</CooldownControl>
        <CheckItem>no</CheckItem>
        <SpamRate>200 to 400</SpamRate>
        <Enabled>yes</Enabled>
      </exura-san>
      <shp>
        <HealRange>0 to 30 %</HealRange>
        <ManaRange>0 to 100 %</ManaRange>
        <HealMethod>Strong Health Potion</HealMethod>
        <ExtraCondition>No condition</ExtraCondition>
        <CooldownControl>yes</CooldownControl>
        <CheckItem>no</CheckItem>
        <SpamRate>200 to 400</SpamRate>
        <Enabled>yes</Enabled>
      </shp>
      <smp>
        <HealRange>30 to 100 %</HealRange>
        <ManaRange>0 to 65 %</ManaRange>
        <HealMethod>Strong Mana Potion</HealMethod>
        <ExtraCondition>No condition</ExtraCondition>
        <CooldownControl>yes</CooldownControl>
        <CheckItem>no</CheckItem>
        <SpamRate>200 to 400</SpamRate>
        <Enabled>yes</Enabled>
      </smp>
      <poison>
        <HealRange>60 to 100 %</HealRange>
        <ManaRange>36 to 100 %</ManaRange>
        <HealMethod>Cure Poison</HealMethod>
        <ExtraCondition>If poisoned</ExtraCondition>
        <CooldownControl>yes</CooldownControl>
        <CheckItem>no</CheckItem>
        <SpamRate>200 to 400</SpamRate>
        <Enabled>yes</Enabled>
      </poison>
    </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>
      <SafeBank>
        <Script>local msgs = getnewmessages("NPCs") 
local qtd = msgs.count-1 
for i=0,qtd do 
   if 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>
      </SafeBank>
      <Drop-Flask>
        <Script>local currentflask = itemcount(285) + itemcount(284) + itemcount(283)

if (maround(2) == 0) and (lootbodies == false) and (cap < 200) and (currentflask > 50)
then
    moveitems(283,SupplyBPname,'ground',50)
    moveitems(284,SupplyBPname,'ground',50)
    moveitems(285,SupplyBPname,'ground',50)
wait(5000)
end
</Script>
        <SpamRate>800 to 1000</SpamRate>
        <Enabled>yes</Enabled>
      </Drop-Flask>
      <FurnitureBreak>
        <Script>while (standtime > 60000)do
    antifurnituretrap()
    wait(5000)
end
</Script>
        <SpamRate>800 to 1000</SpamRate>
        <Enabled>yes</Enabled>
      </FurnitureBreak>
      <Mount>
        <Script>if UseMount then
	setsettings("Settings\\CaveBot\\Settings\\AutoMount", "yes")
	wait(5000)
else
	setsettings("Settings\\CaveBot\\Settings\\AutoMount", "no")
	wait(5000)
end
</Script>
        <SpamRate>800 to 1000</SpamRate>
        <Enabled>yes</Enabled>
      </Mount>
      <AntiLure>
        <Script>if AntiLure then
if (maround(5, "Wyvern") >= AntiLureWyvern) then
     playsound("alert.wav")
     wait(500)
          setlooting("no")
          setsettings("Settings\\Targeting\\Monsters\\Wyvern\\OnlyIfTrapped","yes")
          gotolabel("Leavee")
end</Script>
        <SpamRate>800 to 1000</SpamRate>
        <Enabled>yes</Enabled>
      </AntiLure>
      <Stamina>
        <Script>if ((pzone == true) and (stamina <= 925))
then
    wait(1000, 1500)
    closetibia()
end
</Script>
        <SpamRate>800 to 1000</SpamRate>
        <Enabled>yes</Enabled>
      </Stamina>
      <DeadSS>
        <Script>local printscreen = true

if hppc == 0 then
if (printscreen == true) then
focusclient()
screenshot()
end
printscreen = false
else
printscreen = true
end
</Script>
        <SpamRate>800 to 1000</SpamRate>
        <Enabled>yes</Enabled>
      </DeadSS>
    </List>
    <Setup>-- [Royal Paladin -=- Wyvern Edron v1.3 -=- by Spens13]



-- Setup:
    serverType = ("0") -- [[1 = PvP/PvPe]] [[0 = NonPvP]
    SetAlarms = true
    CapToLeave = 40
    UseMount = false
    WyvernWaitTime = 120
-- >>>>>>>>>> Anti Lure <<<<<<<<<<<<
    AntiLure = true
    AntiLureWyvern = 4  -- [[Amount of wyverns to leave.]]
-- >>>>>>>>>>  Backpacks  <<<<<<<<<<
    MainBPname = "Dragon Backpack"
    LootBPname = "Blue Backpack"
    GoldBPname = "Golden Backpack"
    SupplyBPname = "Green Backpack"
-- >>>>>>>>>>  Depot  <<<<<<<<<<
    MainDepotname = "Brown Backpack"
    LootDepotname = "Purple Backpack"
    AddonDepotname = "Red Backpack"
-- >>>>>>>>>>  Potions  <<<<<<<<<<
    mananame = "strong mana potion" -- Name of mana potion.
    manaprice = 80  -- Price of mana potion to buy.
    manatobuy = 50 -- How many mana potions to buy?
    manatoback = 15 -- How many potions to back reffil?
    healthname = "strong health potion" -- Name of health potion.
    healthprice = 100 -- Price of health potion to buy
    healthtobuy = 20 -- How many potions buy?
    healthtoback = 10 -- How many potions to back reffil?
-- >>>>>>>>>>  Spears  <<<<<<<<<<
    ammuname = "royal spear" -- Name of ammunition
    ammuprice = 15 -- Price of amunition to buy
    ammutobuy = 30 -- How many ammunition buy?
    ammutoback = 6 -- How many ammunition to back reffil?</Setup>
    <Enabled>no</Enabled>
  </Actions>
  <CaveBot>
    <Waypoints>
      <EdronDp>Stand 33171 31815 7</EdronDp>
      <w000>Stand 33169 31812 7</w000>
      <w001>Stand 33171 31811 8</w001>
      <w002>Stand 33171 31806 8</w002>
      <w003>Stand 33169 31801 8</w003>
      <w004>Action 33169 31800 8 --Setting up Backpack;if not islocation(7) then;     gotolabel("BeginAtDp");end;;closewindows();setsettings("Settings\\Cavebot\\Settings\\OpenNextBp","no");;while windowcount() < 2 do;closewindows();wait(1000,2000);openitem(MainBPname, "back", true);wait(1000,2000);resizewindows();wait(1000,2000);openitem(LootBPname, MainBPname, true);wait(1000,2000);end;;</w004>
      <w005>Stand 33169 31799 8</w005>
      <w006>Action 33169 31799 8 openitem(MainBPname, "back");reachgrounditem("depot");while (windowcount("Locker") ==0) do ;       openitem("depot");       wait(700,900);end;;while (windowcount("Depot Chest") == 0) do;	openitem(3502, "locker");	wait(800,1000);end;;	openitem(MainDepotname, "Depot Chest", false);	wait(800,1000);;for i=1,4 do;depotdeposit(AddonDepotname, "power bolt", "wyvern talisman", "emerald bangle", "small sapphire", "bat wing");wait(500,1000);depotdeposit(LootDepotname, "wand of inferno", "wyvern fang");wait(1000);openitem(LootBPname, LootBPname, false);end;;setsettings("Settings\\Cavebot\\Pathfinding\\WalkThroughPlayers","no");</w006>
      <w007>Stand 33169 31803 8</w007>
      <w008>Stand 33165 31808 8</w008>
      <w009>Stand 33167 31812 8</w009>
      <w010>Stand 33168 31809 7</w010>
      <w011>Action 33168 31808 7 setsettings("Settings\\Cavebot\\Pathfinding\\WalkThroughPlayers","yes");closewindows();while windowcount() < 2 do;closewindows();wait(1000,2000);openitem(MainBPname, "back", true);wait(1000,2000);resizewindows();openitem(SupplyBPname, MainBPname, true);wait(500,1000);resizewindows();end;end;;</w011>
      <w012>Stand 33170 31807 7</w012>
      <Talk>Stand 33173 31803 7</Talk>
      <w014>Action 33173 31803 7 closewindows();wait(500, 1000);openitem(MainBPname, 'back');wait(500, 1000);resizewindows() ;wait(500, 1000);openitem(SupplyBPname, MainBPname, true);wait(500, 1000);resizewindows() ;;local mana = positive(manatobuy - itemcount(mananame)) * manaprice;local health = positive(healthtobuy - itemcount(healthname)) * healthprice;local ammu = positive(ammutobuy - itemcount(ammuname)) * ammuprice;local Total = mana + health + ammu + 200;;wait(500,1000);say("hi");wait(1500,2000);npcsay("deposit all");wait(1000,1300);npcsay("yes");wait(1000,1300);npcsay("balance");wait(2000);npcsay("withdraw "..Total);wait(1000,1300);npcsay("yes");wait(1000,1300);;</w014>
      <Amunition>Stand 33172 31807 7</Amunition>
      <w015>Walk 33172 31811 7</w015>
      <w016>Walk 33172 31816 7</w016>
      <w017>Walk 33180 31819 7</w017>
      <w018>Walk 33190 31819 7</w018>
      <w019>Walk 33198 31819 7</w019>
      <w020>Walk 33206 31819 7</w020>
      <w021>Stand 33209 31818 7</w021>
      <w022>Walk 33208 31812 6</w022>
      <w023>Walk 33208 31803 6</w023>
      <w024>Stand 33214 31796 6</w024>
      <w025>Action 33214 31796 6 local speartobuy = ammutobuy - weaponamount;;opentrade();buyitemsupto(ammuname, speartobuy) wait(1000);pcsay("bye") wait(1000)</w025>
      <w026>Walk 33208 31803 6</w026>
      <w027>Walk 33208 31812 6</w027>
      <w028>Stand 33209 31818 6</w028>
      <w029>Stand 33200 31821 7</w029>
      <ManaShoop>Stand 33191 31827 7</ManaShoop>
      <w030>Walk 33195 31836 7</w030>
      <w031>Walk 33202 31844 7</w031>
      <w032>Walk 33212 31844 7</w032>
      <w033>Walk 33222 31839 7</w033>
      <w034>Walk 33236 31840 7</w034>
      <w035>Stand 33247 31841 7</w035>
      <w036>Stand 33255 31838 6</w036>
      <w037>Stand 33255 31840 7</w037>
      <w038>Action 33255 31840 7 if not islocation(1) then;     gotolabel("ManaShoop");end ;;sellflasks();wait(500);;local CurrentManas = itemcount(mananame);local CurrentHealths = itemcount(healthname);;buyitemsupto(healthname,healthtobuy,CurrentHealths);wait(200,300);;amount = manatobuy - CurrentManas ;while amount > 0 do ;buyitems(mananame, amount) ;wait(500,1000) ;moveitems(mananame,SupplyBPname, 1000) ;wait(300,400) ;moveitems(healthname,SupplyBPname, 1000) ;wait(300,400) ;amount = amount-100;end;;</w038>
      <w039>Stand 33255 31838 7</w039>
      <w040>Stand 33247 31841 6</w040>
      <w041>Walk 33240 31839 7</w041>
      <w042>Walk 33238 31823 7</w042>
      <w043>Walk 33243 31802 7</w043>
      <w044>Walk 33250 31781 7</w044>
      <w045>Stand 33241 31767 7</w045>
      <w046>Action 33232 31768 6 setsettings("Settings\\Looting\\Enabled","yes");settargeting("yes");if SetAlarms then;setalarms("yes");end;;if serverType == 1 then ;setsettings("Settings\\Cavebot\\Pathfinding\\WalkThroughPlayers","no");else;setsettings("Settings\\Cavebot\\Pathfinding\\WalkThroughPlayers","yes");end;;setsettings("Settings\\Cavebot\\Settings\\OpenNextBp","yes");;while windowcount() < 4 and maround(2) == 0 do;closewindows();wait(1000,2000);openitem(MainBPname, "back", true);wait(1000,2000);resizewindows();wait(1000,2000);openitem(SupplyBPname, MainBPname, true);wait(1000,2000);resizewindows();openitem(LootBPname, MainBPname, true);wait(1000,2000);resizewindows();openitem(GoldBPname, MainBPname, true);wait(1000,2000);resizewindows();end;;if (itemcount(mananame) < manatoback) or (itemcount(healthname) < healthtoback) or (cap < CapToLeave);then;     gotolabel("Leave");end;</w046>
      <w047>Walk 33218 31767 6</w047>
      <w048>Stand 33209 31757 6</w048>
      <Hunting>Stand 33207 31758 6</Hunting>
      <w050>Node 33203 31758 5</w050>
      <w051>Node 33194 31759 5</w051>
      <w052>Node 33199 31762 5</w052>
      <w053>Node 33206 31761 5</w053>
      <w054>Node 33216 31764 5</w054>
      <w055>Node 33216 31759 5</w055>
      <w056>Node 33222 31765 5</w056>
      <w057>Node 33227 31763 5</w057>
      <w058>Node 33233 31769 5</w058>
      <w059>Node 33226 31765 5</w059>
      <w060>Node 33214 31763 5</w060>
      <w061>Node 33207 31762 5</w061>
      <Leavee>Stand 33207 31759 5</Leavee>
      <w013>Action 33208 31758 6 setsettings("Settings\\Looting\\Enabled","yes");settargeting("yes");end</w013>
      <w063>Action 33207 31753 6 if (itemcount(mananame) < manatoback) or (itemcount(healthname) < healthtoback) or (cap < CapToLeave) or (weaponamount < ammutoback) then;gotolabel("Leave");end;</w063>
      <w064>Action 33207 31753 6 wait(500);turn('e');wait(WyvernWaitTime * 1000);gotolabel("Hunting")</w064>
      <Leave>Walk 33211 31757 6</Leave>
      <w065>Walk 33233 31769 6</w065>
      <w066>Stand 33241 31767 6</w066>
      <w067>Walk 33249 31772 7</w067>
      <w068>Walk 33244 31798 7</w068>
      <w069>Walk 33242 31822 7</w069>
      <w070>Walk 33216 31844 7</w070>
      <w071>Walk 33190 31828 7</w071>
      <w072>Stand 33175 31817 7</w072>
    </Waypoints>
    <Pathfinding>
      <SpecialAreas>
        <NewArea0>
          <Coordinates>33207 31760 5</Coordinates>
          <Dimensions>1 5</Dimensions>
          <ConsideredBy>Target</ConsideredBy>
        </NewArea0>
        <NewArea1>
          <Coordinates>33196 31759 5</Coordinates>
          <Dimensions>9 3</Dimensions>
          <ConsideredBy>Target</ConsideredBy>
        </NewArea1>
        <NewArea2>
          <Coordinates>33214 31759 5</Coordinates>
          <Dimensions>1 7</Dimensions>
          <ConsideredBy>Target</ConsideredBy>
        </NewArea2>
        <NewArea3>
          <Coordinates>33224 31762 5</Coordinates>
          <Dimensions>1 10</Dimensions>
          <ConsideredBy>Target</ConsideredBy>
        </NewArea3>
        <NewArea4>
          <Coordinates>33229 31764 5</Coordinates>
          <Dimensions>2 10</Dimensions>
          <ConsideredBy>Target</ConsideredBy>
        </NewArea4>
      </SpecialAreas>
      <WalkThroughPlayers>yes</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>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>
      <Gold-Coin>
        <Id>3031</Id>
        <Destination>03</Destination>
        <AlarmOn>No Alarm</AlarmOn>
      </Gold-Coin>
      <Power-Bolt>
        <Id>3450</Id>
        <Destination>02</Destination>
        <AlarmOn>No Alarm</AlarmOn>
      </Power-Bolt>
      <Wyvern-Talisman>
        <Id>9644</Id>
        <Destination>02</Destination>
        <AlarmOn>No Alarm</AlarmOn>
      </Wyvern-Talisman>
      <Wand-of-Inferno>
        <Id>3071</Id>
        <Destination>02</Destination>
        <AlarmOn>No Alarm</AlarmOn>
      </Wand-of-Inferno>
      <Strong-Health-Potion>
        <Id>236</Id>
        <Destination>01</Destination>
        <AlarmOn>No Alarm</AlarmOn>
      </Strong-Health-Potion>
      <Wyvern-Fang>
        <Id>7408</Id>
        <Destination>02</Destination>
        <AlarmOn>No Alarm</AlarmOn>
      </Wyvern-Fang>
      <Emerald-Bangle>
        <Id>3010</Id>
        <Destination>02</Destination>
        <AlarmOn>No Alarm</AlarmOn>
      </Emerald-Bangle>
      <Small-Sapphire>
        <Id>3029</Id>
        <Destination>02</Destination>
        <AlarmOn>No Alarm</AlarmOn>
      </Small-Sapphire>
      <Bat-Wing>
        <Id>5894</Id>
        <Destination>02</Destination>
        <AlarmOn>No Alarm</AlarmOn>
      </Bat-Wing>
    </List>
    <Condition>Corpses with listed items</Condition>
    <Style>After all dead</Style>
    <Range>10</Range>
    <EatFood>yes</EatFood>
    <Enabled>no</Enabled>
  </Looting>
  <Targeting>
    <Monsters>
      <Wyvern>
        <Categories>-</Categories>
        <Danger>7</Danger>
        <ListSettings>
          <HighHP>
            <Count>Any</Count>
            <HpRange>20 to 100 %</HpRange>
            <Stance>Keep Away</Stance>
            <Avoid>Wave</Avoid>
            <Distance>3</Distance>
            <Attack>Attack</Attack>
            <ListSpell>
              <Spell0>Divine Missile</Spell0>
            </ListSpell>
            <SpellRate>500 to 1000</SpellRate>
            <AttackMode>No Change</AttackMode>
          </HighHP>
          <LowHP>
            <Count>Any</Count>
            <HpRange>0 to 20 %</HpRange>
            <Stance>Keep Away</Stance>
            <Avoid>Wave</Avoid>
            <Distance>2</Distance>
            <Attack>Attack</Attack>
            <ListSpell>
              <Spell0>Ethereal Spear</Spell0>
            </ListSpell>
            <SpellRate>500 to 1000</SpellRate>
            <AttackMode>No Change</AttackMode>
          </LowHP>
        </ListSettings>
        <Looting>yes</Looting>
        <MustAttackMe>no</MustAttackMe>
        <OnlyIfTrapped>no</OnlyIfTrapped>
      </Wyvern>
      <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>
            </ListSpell>
            <SpellRate>500 to 1000</SpellRate>
            <AttackMode>No Change</AttackMode>
          </Setting0>
        </ListSettings>
        <Looting>no</Looting>
        <MustAttackMe>no</MustAttackMe>
        <OnlyIfTrapped>yes</OnlyIfTrapped>
      </All>
      <Bat>
        <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>
            </ListSpell>
            <SpellRate>500 to 1000</SpellRate>
            <AttackMode>No Change</AttackMode>
          </Setting0>
        </ListSettings>
        <Looting>yes</Looting>
        <MustAttackMe>yes</MustAttackMe>
        <OnlyIfTrapped>no</OnlyIfTrapped>
      </Bat>
    </Monsters>
    <Settings>
      <ListOrder>0</ListOrder>
      <Health>9</Health>
      <Proximity>3</Proximity>
      <Danger>5</Danger>
      <PlayerOnScreenSecurity>Always</PlayerOnScreenSecurity>
      <CooldownControl>yes</CooldownControl>
      <CheckItem>yes</CheckItem>
      <MustBeReachable>yes</MustBeReachable>
      <MustBeShootable>yes</MustBeShootable>
    </Settings>
    <Enabled>no</Enabled>
  </Targeting>
  <Hud>
    <List>
      <GeneralInfo>
        <Script>setsize(100,100)
setfontcolor("white")

addtext(name,10,30)
addtext("LvL :", 150,30)
addtext(level, 180,30)
addtext("Next LvL :", 150,45)
addtext(exptolevel(), 210,45)

addtext("Pos X : ", 10,45)
addtext(posx, 54,45)
addtext("Pos Y : ", 10,60)
addtext(posy, 54,60)
addtext("Pos Z : ", 10,75)
addtext(posz, 54,75)</Script>
        <RefreshRate>1000</RefreshRate>
        <Enabled>no</Enabled>
      </GeneralInfo>
      <BUgWT_HUD>
        <Script>function addcommas(amount)
  local formated = amount
  while true do  
    formated, k = string.gsub(formated, "^(-?%d+)(%d%d%d)", '%1.%2')
    if (k==0) then
      break
    end
  end
  return formated
end

function formatstaminaintotime(staminaAmount)
	if staminaAmount == 0 then
		return "00:00"
	else
		local nHours = string.format("%02.f", math.floor(staminaAmount/60))
		local nMins = string.format("%02.f", math.floor(staminaAmount - (nHours*60)))
		return nHours..":"..nMins
	end
end

local walkthroughplayers = getsettings("Settings/CaveBot/Pathfinding/WalkThroughPlayers")

setposition(clientwin.left+10, worldwin.top+22)

setfontcolor("white")

addtext('---------------------------------------------', 0, 15)
setfontcolor("dodgerblue")
addtext('-= Wyverns Edron by Spens13 =-', 15,25)
addtext('>> HUD by BUgWT <<', 40,40)
addtext('~*~ www.bugwt.com ~*~', 30,55)
setfontcolor("white")
addtext('---------------------------------------------', 0, 65)

setfontcolor("yellow")
addtext('Experience Per Hour', 5, 80)
addtext('Experience Left', 5, 95)
addtext('Experience Today', 5, 110)
addtext('Time to Next Level', 5, 125)
addtext('Stamina', 5, 140)
addtext('Played Time', 5, 155)
addtext('Cavebotting', 5, 170)
addtext('Targeting', 5, 185)
addtext('Looting', 5, 200)
addtext('Walk Through Players', 5, 215)
addtext('Bank Balance', 5, 230)
addtext('Floor Level', 5, 245)

setfontcolor("white")
addtext(': ' ..exphour, 140, 80)
addtext(': ' ..addcommas(exptolevel()), 140, 95)
addtext(': ' ..addcommas(expgained), 140, 110)
addtext(': ' ..timetolevel, 140, 125)

if stamina >= 2400 then
      setfontcolor("green")
      addtext(': ' ..formatstaminaintotime(stamina), 140, 140)
elseif stamina < 2400 and stamina >= 840 then
      setfontcolor("orange")
      addtext(': ' ..formatstaminaintotime(stamina), 140, 140)
elseif stamina <= 840 then
      setfontcolor("red")
      addtext(': ' ..formatstaminaintotime(stamina), 140, 140)
end

setfontcolor("white")
addtext(': ' ..timehunt, 140, 155)

if cavebot then
    setfontcolor("green")
    addtext(': ' ..'ON', 140, 170)
else
    setfontcolor("red")
    addtext(': ' ..'OFF', 140, 170)
end

if targeting then
    setfontcolor("green")
    addtext(': ' ..'ON', 140, 185)
else
    setfontcolor("red")
    addtext(': ' ..'OFF', 140, 185)
end

if looting then
    setfontcolor("green")
    addtext(': ' ..'ON', 140, 200)
else
    setfontcolor("red")
    addtext(': ' ..'OFF', 140, 200)
end

if walkthroughplayers == 'yes' then
    setfontcolor("green")
    addtext(': ' ..'ON', 140, 215)
elseif walkthroughplayers == 'no' then
    setfontcolor("red")
    addtext(': ' ..'OFF', 140, 215)
end

setfontcolor("white")
addtext(': ' ..addcommas(balance), 140, 230)
addtext(': ' ..posz, 140, 245)</Script>
        <RefreshRate>1000</RefreshRate>
        <Enabled>yes</Enabled>
      </BUgWT_HUD>
      <MyMonitorHunting>
        <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 = "Power Bolt", VALUE = 4},
		{NAME = "Wyvern Talisman", VALUE = 265},
		{NAME = "Wand of Inferno", VALUE = 3000},
		{NAME = "Small Sapphire", VALUE = 250},
		{NAME = "Wyvern Fang", VALUE = 1500},
		{NAME = "Emerald Bangle", VALUE = 800},
		{NAME = "Bat Wing", VALUE = 90},
	}
 
	MONITOR_MY_HUNTING.SHOW_ALL_SUPPLIES = false
	MONITOR_MY_HUNTING.SUPPLIES_LIST = {
		{NAME = "royal spear", PRICE = 15},
		{NAME = "strong mana potion", PRICE = 80},
		{NAME = "strong health potion", PRICE = 100},
	}
	
	-- [[ 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>
      </MyMonitorHunting>
      <RecentLoot>
        <Script>-- you can add more items here
local warnitems = {'Wand of Inferno', 'Wyvern Fang'}

-- max lines to display at once 
local maxindex = 6 

-- spacing between lines
local spacing = 12


local index = 0 
local msgs = getnewmessages("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=1, table.getn(warnitems) do
         if msgs[qtd-i].text:find(warnitems[l]) then
            colorm = true
            break
         end
      end
      if colorm then
         setfontcolor('red')
      else
         setfontcolor('white')
      end

      addtext(msgs[qtd-i].text, worldwin.left+10,worldwin.bottom-(maxindex*spacing)+30+(index*spacing))

      index=index+1
      if index == maxindex then
        break
      end
   end
end</Script>
        <RefreshRate>1000</RefreshRate>
        <Enabled>no</Enabled>
      </RecentLoot>
    </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