Re: Rock5's GotoGuild
Posted: Thu Dec 26, 2013 8:31 am
The code I posted has no distance limits. It should work.
Code: Select all
player:target_Object(112898); -- Drill Ground III
sendMacro("ChoiceOption(1);");
waitForLoadingScreen();Code: Select all
<onload>
if getZoneId == 401 then -- Guild Castle
player:target_Object(112898); -- Drill Ground III
sendMacro("ChoiceOption(1);");
waitForLoadingScreen();
__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
end
</onload>Code: Select all
<onload>
GotoGuild("Drill Ground") -- Any level drill ground
player:target_Object("Drill Ground"); -- Drill Ground
sendMacro("ChoiceOption(1);");
waitForLoadingScreen();
</onload>Code: Select all
ol = CObjectList() ol:update() for k,v in pairs(ol.Objects) do printf("%s,%d,%d\n",v.Name,v.X,v.Z) endCode: Select all
[86]={ X=408 , Z=-335, Name="Square6", Links={[1]={Num=102},[2]={Num=87},}},Code: Select all
GotoGuild("Drill Ground")
DG = player:findNearestNameOrId("Drill Ground")
player:moveTo(CWaypoint(DG.X,DG.Z), true)
player:target_Object("Drill Ground");
sendMacro("ChoiceOption(1);");
waitForLoadingScreen();
Code: Select all
GotoGuild("Drill Ground"); -- Any level drill ground
yrest(500)
repeat
yrest(500)
until player:target_Object("Drill Ground"); -- Drill Ground
sendMacro("ChoiceOption(1);");
yrest(1000);
waitForLoadingScreen();
yrest(500);
__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X, player.Z)) need this just after entering to stop problems
</onload>
<!-- # 1 --><waypoint x="5121" z="2521" > </waypoint> -- I think rock got it fixed now so 3 of these wp are not needed here now.
<!-- # 1 --><waypoint x="5121" z="2521" > </waypoint>
<!-- # 1 --><waypoint x="5120" z="2523" >
repeat
yrest(500)
until player:target_NPC(112066) -- Special Training Manager
Code: Select all
<?xml version="1.0" encoding="utf-8"?><waypoints type="TRAVEL">
<onload>
-- get buffs in castle ver 0.1
for k,v in pairs(settings.profile.skills) do
v.AutoUse = false
end
-- ---------------functions ---------------------
function kill_stupid_newbie_pet()
local function evalfunc(address)
local obj = CPawn.new(address)
obj:updateIsPet()
return obj.IsPet == player.Address
end
if player:findNearestNameOrId(113199,nil,evalfunc ) then -- search vicinity for your Newbie Pet
local newbEgg = inventory:findItem(207051); -- Newbie Pet Egg
if newbEgg then
newbEgg:use()
newbEgg:delete()
end
end
end
--Main------------------
kill_stupid_newbie_pet()
GotoGuild("Stable");
yrest(500)
repeat
yrest(500)
until player:target_Object("Stable");
sendMacro("ChoiceOption(1);"); --get first stable buff
yrest(1000);
GotoGuild("Tower of Increased Learning");
yrest(500)
repeat
yrest(500)
until player:target_Object("Tower of Increased Learning");
sendMacro("ChoiceOption(1);");
yrest(1000);
GotoGuild("Tower of Mystic Fortune");
yrest(500)
repeat
yrest(500)
until player:target_Object("Tower of Mystic Fortune");
sendMacro("ChoiceOption(1);");
yrest(1000);
GotoGuild("Tower of Rapid Growth");
yrest(500)
repeat
yrest(500)
until player:target_Object("Tower of Rapid Growth");
sendMacro("ChoiceOption(1);");
yrest(1000);
GotoGuild("Tower of Perfect Defense");
yrest(500)
repeat
yrest(500)
until player:target_Object("Tower of Perfect Defense");
sendMacro("ChoiceOption(1);");
yrest(1000);
GotoGuild("Tower of Invincible Attack");
yrest(500)
repeat
yrest(500)
until player:target_Object("Tower of Invincible Attack");
sendMacro("ChoiceOption(1);");
yrest(1000);
GotoGuild("Tower of Magic Protection");
yrest(500)
repeat
yrest(500)
until player:target_Object("Tower of Magic Protection");
sendMacro("ChoiceOption(1);");
yrest(1000);
</onload>
</waypoints>