dist
printf("Distance checked and continuing.\n")
end
function gotAllKeys()
local room = currentRoom()
local keys = inventory:itemTotalCount(203027)
local keyGoal = (room == 1 and 1) or (room == 2 and 3) or (room == 3 and 6) or (room == 4 and 10)
return keys >= keyGoal
end
function currentRoom()
return memoryReadRepeat("int",getProc(), player.Address + 0x1c8)
end
if teleport_GetVersion == nil or teleport_GetVersion() < 2.0 then
cprintf(cli.yellow,"This waypoint file requires the userfunction \"teleport\" version 2.0 or newer.\n")
error("You can download it from this address. http://www.solarstrike.net/phpBB3/viewtopic.php?f=27&t=2721",0)
end
numshells = inventory:getItemCount(240181)
Malatina = GetIdName(111813)
settings.profile.options.WP_NO_STOP = false
table.insert(settings.profile.friends, "102382") -- adds the barrier to friend so doesn't try to kill it.
changeProfileOption("HARVEST_DISTANCE", 450);
local zoneid = RoMScript("GetZoneID()")
if zoneid ~= 353 then -- not in Course of Terror
-- Try to find Malatina and teleport in
if player:target_NPC(Malatina) then
if 50 > player.Level and (player.Level2 >= 50 or player.Level3 >= 50) then
-- Wait for user to change class
cprintf(cli.yellow,"If you want to earn Phirius Shells, change to your 50+ class before continuing.\n")
player:sleep()
end
sendMacro("ChoiceOption(2);");
yrest(2000)
sendMacro("ChoiceOption(1);");
if not waitForLoadingScreen(30) then
print("Failed to teleport into Course of Terror")
checkRelog()
end
yrest(1000)
__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z))
else
print("You are too far from Malatina")
checkRelog()
end
end
]]>
if currentRoom() == 1 then -- Just arrived
if not RoMScript("TimeKeeperFrame:IsVisible()") then
player:target_NPC(Malatina);
yrest(2000)
sendMacro("ChoiceOption(2);");
yrest(2000)
sendMacro("ChoiceOption(1);");
repeat yrest(1000) until RoMScript("TimeKeeperFrame:IsVisible()")
end
elseif currentRoom() > 4 then -- Finished. Open chests
--=== Create table for chests ===--
chests = {left = {}, right = {}}
local objectList = CObjectList();
objectList:update();
local objSize = objectList:size()
for i = 0,objSize do
local obj = objectList:getObject(i);
if obj.Id == 113114 or obj.Id == 113137 then
if obj.X > 4081 then -- right side
table.insert(chests.right, table.copy(obj))
else -- left side
table.insert(chests.left, table.copy(obj))
end
end
end
-- Sort chests
table.sort(chests.left, function(a,b) return b.Z > a.Z end)
table.sort(chests.right, function(a,b) return a.Z > b.Z end)
-- Get left side
for k,v in pairs(chests.left) do
memoryWriteInt(getProc(), player.Address + addresses.pawnTargetPtr_offset, v.Address);
RoMScript("UseSkill(1,1)");
yrest(2000)
RoMScript("UseSkill(1,1)");
yrest(2000)
repeat
yrest(2000)
player:update()
until not player.Casting
end
-- Get right side
for k,v in pairs(chests.right) do
memoryWriteInt(getProc(), player.Address + addresses.pawnTargetPtr_offset, v.Address);
RoMScript("UseSkill(1,1)");
yrest(2000)
RoMScript("UseSkill(1,1)");
yrest(2000)
repeat
yrest(2000)
player:update()
until not player.Casting
yrest(1000) -- time to stand
end
-- Save data
if player.Level >= 50 or player.Level2 >= 50 or player.Level3 >= 50 then
local filename = getExecutionPath() .. "/logs/shells.log";
local file, err = io.open(filename, "a+");
if file then
file:write(" Character name: " ..string.format("%-10s",player.Name .. ".").." \tDate: " .. os.date() .. ". \tShells gained: "..inventory:getItemCount(240181) - numshells..
". \tTotal shells: "..inventory:getItemCount(240181).. ".\n")
file:close();
end
end
player:moveTo(CWaypoint(4081,3335))
print("Completed Successfully.")
checkRelog()
end
yrest(3000)
fly()
getallkeys()
gotogate()
flyoff()
__WPL:setWaypointIndex(__WPL:findWaypointTag("START"));