Re: Mana Stone Tier Production Factory V2.4
Posted: Sat Mar 08, 2014 10:26 pm
ty i try
MicroMacro home
https://www.solarstrike.net/phpBB3/
Code: Select all
table.insert(self.Waypoints, tmp);
elseif( string.lower(name) == "onload" ) then
if( string.len(action) > 0 and string.find(action, "%w") ) then
self.onLoadEvent = loadstring(action);
assert(self.onLoadEvent, sprintf(language[152]));
if( _G.type(self.onLoadEvent) ~= "function" ) then
self.onLoadEvent = nil;
end;
Code: Select all
<?xml version="1.0" encoding="utf-8"?><waypoints type="TRAVEL">
<onLoad>
<!-- Eggman1414's Mana Stone Production Script -->
<!-- V2.4 -->
<!-- 01/26/2014 -->
<!-- Two User options need changed -->
<!-- line 11 and line 18 -->
function buycharges()
BuyFromItemShop(896, ""*********"") <!--Insert your secondary password inside the quotes. ex: BuyFromItemShop(896, "romiscool")-->
end
NpcID = 112794
QName = "Helping Them Grow"
function relog() <!--Put your Character list here see http://www.solarstrike.net/phpBB3/viewtopic.php?f=27&t=1245 for more info-->
SetCharList({{
{account=1 , chars= {}},
{account=2 , chars= {1}},
},{
{account=3 , chars= {}},
{account=4 , chars= {}},
},{
{account=5 , chars= {}},
}})
LoginNextChar()
yrest(3000)
player:update()
loadProfile()
loadPaths("Daily.xml");
end
<!-- Uses botje's cleanbag functions, see http://www.solarstrike.net/phpBB3/viewtopic.php?f=27&t=2849 for more info -->
function kill_stupid_newbie_pet()
if player:findNearestNameOrId(113199) then -- search vicinity for Newbie Pet
inventory:update()
if (inventory:itemTotalCount(207051) > 0) then
inventory:useItem(207051)
local newbEgg = inventory:findItem(207051); -- Newbie Pet Egg
if newbEgg ~= nil then
inventory:deleteItemInSlot(newbEgg.SlotNumber)
end
end
end
end
<!-- Uses botje's cleanbag functions, see http://www.solarstrike.net/phpBB3/viewtopic.php?f=27&t=2849 for more info -->
function delete_atonement_voucher()
if (inventory:itemTotalCount(207082) > 0) then
local voucher = inventory:findItem(207082); -- Atonement Voucher
if voucher ~= nil then
inventory:deleteItemInSlot(voucher.SlotNumber)
end
end
end
</onLoad>
<!-- # 1 --><waypoint x="31847" z="4592" tag ="Main">
kill_stupid_newbie_pet();
delete_atonement_voucher();
if player.Level == 1 then
loadPaths("Pre_Daily.xml");
end
local queststate = getQuestStatus(QName);
if queststate == "complete" then
player:target_NPC(NpcID);
CompleteQuestByName(QName);
yrest(300);
end
local dqCount, dqPerDay = RoMScript("Daily_count()");
if dqPerDay == dqCount then
phirCoins = inventory:itemTotalCount(203038)
print("We have "..phirCoins.." phirius coins")
amountToBuy = phirCoins / 100
print("trying to buy "..amountToBuy.." 10x arcane transmutor charges packs")
repeat
buycharges()
yrest(1000);
amountToBuy = amountToBuy - 1
if RoMScript("IsMagicBoxEnable()") then
while inventory:itemTotalCount(202928) >0 do
inventory:useItem(202928)
end
end
yrest(10);
print("Using 10x arcane transmutor pack")
until 1 > amountToBuy
loadPaths("makefusion.xml");
else
player:target_NPC(NpcID);
AcceptQuestByName(QName,NpcID);
yrest(300);
end
</waypoint>
<!-- # 3 --><waypoint x="31860" z="4646" y="9"> </waypoint>
<!-- # 2 --><waypoint x="31742" z="5070" y="-11"> </waypoint>
<!-- # 1 --><waypoint x="31416" z="5715" y="-33" tag = "Item">
queststate = getQuestStatus(QName)
if queststate == "incomplete" then
player:target_Object(112976,300);
yrest(2500);
__WPL:setWaypointIndex(__WPL:findWaypointTag("Item"));
end
</waypoint>
<!-- # 1 --><waypoint x="31416" z="5715" y="-33"> </waypoint>
<!-- # 2 --><waypoint x="31742" z="5070" y="-11"> </waypoint>
<!-- # 3 --><waypoint x="31860" z="4646" y="9"> </waypoint>
<!-- # 4 --><waypoint x="31847" z="4583" y="9"> </waypoint>
</waypoints>
- Added feature to __WPL:getNearestWaypoint. Now you can specify a range of waypoints to look in.