The Wiki for Tale 8 is in read-only mode and is available for archival and reference purposes only. Please visit the current Tale 11 Wiki in the meantime.

If you have any issues with this Wiki, please post in #wiki-editing on Discord or contact Brad in-game.

Difference between revisions of "User:Augir/Marble Quarry Map"

From A Wiki in the Desert
Jump to navigation Jump to search
 
(2 intermediate revisions by the same user not shown)
Line 60: Line 60:
 
(BrO) 343, -1171, OSM at 343, -1171
 
(BrO) 343, -1171, OSM at 343, -1171
 
(BrO) 308, -1146, OSM at 308, -1146
 
(BrO) 308, -1146, OSM at 308, -1146
 +
 +
 +
(BlB) -208, -773, IB at -208, -773
 +
(WhS) -174, -826, Serp at -174, -826
 +
(BlB) -126, -905, IB at -126, -905
 +
(BlB) -147, -921, IB at -147, -921
 +
(BlB) -202, -1178, IB at -202, -1178
 +
(BlB) -210, -1118, IB at -210, -1118
 +
(WhS) -183, -1128, Serp at -183, -1128
 +
(BlB) -181, -1036, IB at -181, -1036
 +
(BlB) -198, -931, IB at -198, -931
 +
(BlB) -242, -857, IB at -242, -857
 +
(GrJ) -208, -860, Jade at -208, -860
 +
(GrJ) -243, -815, Jade at -243, -815
 +
(GrJ) -236, -796, Jade at -236, -796
 +
(GrJ) -245, -757, Jade at -245, -757
 +
(GrG) -272, -720, GreenSun at -272, -720
 +
(GrJ) -232, -728, Jade at -232, -728
 +
(GrJ) -238, -700, Jade at -238, -700
 +
(GrJ) -275, -626, Jade at -275, -626
 +
(OrL) -276, -647, LeopP at -276, -647
 +
(OrL) -305, -689, LeopP at -305, -689
 +
(WhS) -305, -905, Serp at -305, -905
 +
(OrL) -313, -912, LeopP at -313, -912
 +
(BrT) -294, -1030, TigersEye at -294, -1030
 +
(WhS) -290, -1085, Serp at -290, -1085
 +
(BrT) -264, -1025, TigersEye at -264, -1025
 +
(BrT) -372, -783, TigersEye at -372, -783
 +
(BrT) -335, -778, TigersEye at -335, -778
 +
(BrT) -420, -1076, TigersEye at -420, -1076
 +
(WhS) -341, -1015, Serp at -341, -1015
 +
(OrH) -78, -649, HornW at -78, -649
 +
(OrH) -108, -517, HornW at -108, -517
 +
(WhS) -53, -548, Serp at -53, -548
 +
(OrH) -119, -1014, HornW at -119, -1014
 +
(WhS) -79, -924, Serp at -79, -924
 +
(WhS) -75, -853, Serp at -75, -853
 +
(BlP) 8, -627, BlueP at 8, -627
 +
(WhS) 22, -1084, Serp at 22, -1084
 +
(WhS) 121, -804, Serp at 121, -804
 +
(BlP) 108, -865, BlueP at 108, -865
 +
(BlP) 104, -1056, BlueP at 104, -1056
 +
(WhS) 146, -680, Serp at 146, -680
 +
(BrN) 156, -615, NG at 156, -615
 +
(GrG) 217, -510, GreenSun at 217, -510
 +
(WhS) 324, -521, Serp at 324, -521
 +
(WhS) 366, -600, Serp at 324, -521
 +
 
}}
 
}}
  
Line 67: Line 115:
 
* GyW - WT
 
* GyW - WT
 
* BrM - MG
 
* BrM - MG
 
-- crematory.lua v1.2 by Tallow
 
--
 
-- Runs one or more crematories. Automatically discovers button
 
-- configuration on its own and loads/unloads materials.
 
--
 
 
dofile("common.inc");
 
 
askText = singleLine([[
 
  Crematory v1.2 (by Tallow) --
 
  Automatically runs one or more crematories.
 
]]);
 
 
wmText = "Tap Ctrl on Crematories to open and pin.\nTap Alt to open, pin and stash.";
 
 
OPP = 0;
 
SAME_UP = 1;
 
SAME_DOWN = 2;
 
 
tolerance = 6500;
 
tickTime = 500;
 
maxWait = 1000;
 
longWait = 500;
 
shortWait = 30;
 
 
colOffsets = {
 
  {15, 22}, --{35-40-3, 204-182}
 
  {51, 22}, --{71-40-3, 204-182}
 
  {87, 22}, --{107-40-3, 204-182}
 
  {123, 22},--{143-40-3, 204-182}
 
  {159, 22},--{179-40-3, 204-182}
 
  {195, 22},--{215-40-3, 204-182}
 
  {231, 22} --{251-40-3, 204-182}
 
};
 
 
colWidth = 36-35+6;
 
colHeight = 323-204;
 
colMiddle = 57;
 
 
buttonOffsets = {
 
  {32, 151}, --{49-40, 333-182}
 
  {72, 151}, --{89-40, 333-182}
 
  {112, 151},--{129-40, 333-182}
 
  {152, 151},--{169-40, 333-182}
 
  {192, 151} --{209-40, 333-182}
 
};
 
 
buttonWidth = 78-49;
 
buttonHeight = 354-333;
 
buttonClick = 10;
 
 
limestoneOffset = 0;
 
leeksOffset = 16;
 
flaxOffset = 32;
 
papyrusOffset = 48;
 
woodOffset = 64;
 
 
load_flax = true;
 
load_papyrus = true;
 
load_leeks = true;
 
load_limestone = true;
 
 
currentPass = 1;
 
passCount = 5;
 
 
windows = nil;
 
 
-------------------------------------------------------------------------------
 
-- doit
 
-------------------------------------------------------------------------------
 
 
function doit()
 
  askForWindow(askText);
 
  windowManager("Crematory Setup", wmText);
 
  unpinOnExit(runCrematories);
 
end
 
 
-------------------------------------------------------------------------------
 
-------------------------------------------------------------------------------
 
 
function runCrematories()
 
  promptLoad();
 
  askForFocus();
 
  for i=1,passCount do
 
    currentPass = i;
 
    local iter = 0;
 
    srReadScreen();
 
    while closeEmptyAndErrorWindows() ~= 0 and iter < 10 do
 
      lsSleep(100);
 
      checkBreak();
 
      srReadScreen();
 
      iter = iter + 1;
 
    end
 
    takeAll();
 
    loadAll();
 
    start();
 
    local is_done = false;
 
    while not is_done do
 
      tick();
 
      is_done = checkDone();
 
    end
 
    sleepWithStatus(longWait*5, updateMessage("Waiting to take"));
 
  end
 
  takeAll();
 
  lsPlaySound("Complete.wav");
 
end
 
 
-------------------------------------------------------------------------------
 
-- addWindow
 
-------------------------------------------------------------------------------
 
 
function addWindow(vPos)
 
  local newWindow = {
 
    origin = {vPos[0], vPos[1]},
 
    ups = {nil, nil, nil, nil, nil},
 
    downs = {nil, nil, nil, nil, nil},
 
    dirs = {OPP, OPP, OPP, OPP, OPP},
 
    double = {false, false, false, false, false, false, false},
 
    probe = 0,
 
    lastPos = nil;
 
    lastDiff = nil;
 
    buttonState = {true, true, true, true, true},
 
    sameCount = 0,
 
    done = false
 
  };
 
  local vFire = srFindImageInRange("crem-fire.png", newWindow.origin[1] - 31,
 
                                  newWindow.origin[2] - 175, 238, 175,
 
                                  tolerance);
 
  if vFire then
 
    newWindow.fire = {vFire[0], vFire[1]};
 
  else
 
    error "No fire button. Do you have Advanced Chemistry?"
 
  end
 
  windows[#windows + 1] = newWindow;
 
end
 
 
-------------------------------------------------------------------------------
 
-- resetWindow
 
-------------------------------------------------------------------------------
 
 
function resetWindow(current)
 
  local vLime = srFindImageInRange("crem-lime.png", current.origin[1] - 20,
 
                                  current.origin[2] - 20, 100, 100,
 
                                  tolerance);
 
  if (not vLime) then
 
    error "Could not find origin again.";
 
  end
 
  if ((vLime[0] ~= current.origin[1]) or
 
      (vLime[1] ~= current.origin[2])) then
 
    current.origin[1] = vLime[0];
 
    current.origin[2] = vLime[1];
 
  end
 
  local vFire = srFindImageInRange("crem-fire.png", current.origin[1] - 31,
 
                                  current.origin[2] - 175, 238, 175,
 
                                  tolerance);
 
  if vFire then
 
    current.fire = {vFire[0], vFire[1]};
 
  end
 
  if current.probe < 6 then
 
    current.probe = 0;
 
    current.ups = {nil, nil, nil, nil, nil};
 
    current.downs = {nil, nil, nil, nil, nil};
 
    current.dirs = {OPP, OPP, OPP, OPP, OPP};
 
    current.double = {false, false, false, false, false, false, false};
 
  end
 
  current.lastPos = nil;
 
  current.lastDiff = nil;
 
  current.buttonState = {true, true, true, true, true};
 
  current.sameCount = 0;
 
  current.done = false;
 
end
 
 
-------------------------------------------------------------------------------
 
-- start
 
-------------------------------------------------------------------------------
 
 
function start()
 
  sleepWithStatus(longWait, updateMessage("Waiting to begin"));
 
  srReadScreen();
 
  if windows then
 
    for i=1,#windows do
 
      resetWindow(windows[i]);
 
    end
 
  else
 
    windows = {};
 
    local posList = findAllImages("crem-lime.png");
 
    if #posList == 0 then
 
      error "No crematories found";
 
    end
 
    for i=1,#posList do
 
      addWindow(posList[i]);
 
    end
 
  end
 
  for i=1,#windows do
 
    if windows[i].fire then
 
      safeClick(windows[i].fire[1] + 5, windows[i].fire[2] + 5);
 
      lsSleep(shortWait);
 
    end
 
  end
 
  sleepWithStatus(longWait, updateMessage("Finding my Chi"));
 
  srReadScreen();
 
    for i=1,#windows do
 
        windows[i].origin[2] = windows[i].origin[2] - 7;
 
    end
 
  for i=1,#windows do
 
    windows[i].lastPos = findPoints(windows[i]);
 
    if not windows[i].lastPos then
 
      windows[i].done = true;
 
    end
 
  end
 
end
 
 
-------------------------------------------------------------------------------
 
-- tick
 
-------------------------------------------------------------------------------
 
 
function tick()
 
  sleepWithStatus(tickTime, updateMessage("Tending Crematory"));
 
  srReadScreen();
 
  for i=1,#windows do
 
    tickWindow(windows[i]);
 
  end
 
  checkBreak();
 
end
 
 
-------------------------------------------------------------------------------
 
-- tickWindow
 
-------------------------------------------------------------------------------
 
 
function tickWindow(current)
 
  if not current.done then
 
    local points = findPoints(current);
 
    if points then
 
      probeNext(current, points);
 
      if current.probe > 5 then
 
        toggleButtons(current, points, current.buttonState);
 
      end
 
    else
 
      current.done = true;
 
    end
 
  end
 
end
 
 
-------------------------------------------------------------------------------
 
-- checkDone
 
-------------------------------------------------------------------------------
 
 
function checkDone()
 
  local allFound = true;
 
  cremWins = findAllText("This is a Crematory", nil, REGION);
 
  for i = 1, #cremWins do
 
      safeClick(cremWins[i].x + 5, cremWins[i].y + 5);
 
  end
 
  for i = 1, #cremWins do
 
      if not findText("Fire the Crematory", cremWins[i]) then
 
        allFound = false;
 
      end
 
  end
 
  return allFound;
 
end
 
 
-------------------------------------------------------------------------------
 
-- findPoints
 
-------------------------------------------------------------------------------
 
 
function findPoints(current)
 
  local result = {};
 
  for i=1,7 do
 
    local offset = {current.origin[1] + colOffsets[i][1],
 
                    current.origin[2] + colOffsets[i][2]};
 
    local point = srFindImageInRange("crem-point.png", offset[1],
 
                                    offset[2] - 5,
 
                                    colWidth, colHeight + 10, tolerance);
 
    if point then
 
      result[i] = point[1] - colOffsets[i][2] - current.origin[2] - colMiddle;
 
    else
 
      result = nil;
 
      break;
 
    end
 
  end
 
  return result;
 
end
 
 
-------------------------------------------------------------------------------
 
-- findDiffs
 
-------------------------------------------------------------------------------
 
 
function findDiffs(current, points)
 
  local result = {};
 
  local all_zero = true;
 
  for i=1,7 do
 
    result[i] = points[i] - current.lastPos[i];
 
    if result[i] ~= 0 then
 
      all_zero = false;
 
    end
 
  end
 
  if all_zero then
 
    result = nil;
 
  end
 
  return result;
 
end
 
 
-------------------------------------------------------------------------------
 
-- probeNext
 
-------------------------------------------------------------------------------
 
 
function probeNext(current, points)
 
  local diffs = findDiffs(current, points);
 
  checkSame(current, diffs);
 
  if diffs and current.probe < 6 then
 
    if current.probe > 0 then
 
      for i=1,7 do
 
        if current.lastDiffs[i] < 0 and diffs[i] > 0 then
 
          if current.ups[current.probe] then
 
            current.downs[current.probe] = i;
 
            current.dirs[current.probe] = SAME_UP;
 
          else
 
            current.ups[current.probe] = i;
 
          end
 
        elseif current.lastDiffs[i] > 0 and diffs[i] < 0 then
 
          if current.downs[current.probe] then
 
            current.ups[current.probe] = i;
 
            current.dirs[current.probe] = SAME_DOWN;
 
          else
 
            current.downs[current.probe] = i;
 
          end
 
        end
 
      end
 
      if current.ups[current.probe] and current.downs[current.probe] then
 
        current.double[current.ups[current.probe]] = true;
 
        current.double[current.downs[current.probe]] = true;
 
      end
 
    end
 
    current.lastPos = points;
 
    current.lastDiffs = diffs;
 
    current.probe = current.probe + 1;
 
    if current.probe <= 5 then
 
      local newProbe = not current.buttonState[current.probe];
 
      local clickX = current.origin[1] + buttonOffsets[current.probe][1] +
 
    buttonClick;
 
      local clickY = current.origin[2] + buttonOffsets[current.probe][2] +
 
    buttonClick;
 
 
      current.buttonState[current.probe] = newProbe;
 
      safeClick(clickX, clickY);
 
    end
 
  end
 
end
 
 
-------------------------------------------------------------------------------
 
-- checkSame
 
-------------------------------------------------------------------------------
 
 
function checkSame(current, diffs)
 
  if diffs then
 
    local all_same = true;
 
    for i=1,#diffs do
 
      if diffs[i] ~= 0 then
 
        all_same = false;
 
      end
 
    end
 
    if all_same then
 
      current.sameCount = current.sameCount + 1;
 
    else
 
      current.sameCount = 0;
 
    end
 
    if current.sameCount > 10 then
 
      current.done = true;
 
    end
 
  end
 
end
 
 
-------------------------------------------------------------------------------
 
-- toggleButtons
 
-------------------------------------------------------------------------------
 
 
function toggleButtons(current, points, buttonState)
 
  local balance = getBalance(points, current.double);
 
  for i=1,5 do
 
    local up = getPointValue(points, current.double, current.ups[i],
 
                            balance);
 
    local down = getPointValue(points, current.double, current.downs[i],
 
                              balance);
 
    local goalState = ((up >= 0 and down <= 0) or
 
                      (up >= 0 and down >= 0 and up > down) or
 
                      (up <= 0 and down <= 0 and up > down));
 
    if current.dirs[i] == SAME_UP then
 
      goalState = ((up >= 0 and down >= 0) or
 
                  (up >= 0 and down <= 0 and up >= -down) or
 
                  (up <= 0 and down >= 0 and -up <= down));
 
    elseif current.dirs[i] == SAME_DOWN then
 
      goalState = ((up <= 0 and down <= 0) or
 
                  (up >= 0 and down <= 0 and up <= -down) or
 
                  (up <= 0 and down >= 0 and -up >= down));
 
    end
 
    local goalStateStr = "false";
 
    if goalState then
 
      goalStateStr = "true";
 
    end
 
    local buttonStr = "false";
 
    if buttonState[i] then
 
      buttonStr = "true";
 
    end
 
    if (goalState and not buttonState[i]) or
 
      (not goalState and buttonState[i]) then
 
      safeClick(current.origin[1] + buttonOffsets[i][1] + buttonClick,
 
        current.origin[2] + buttonOffsets[i][2] + buttonClick);
 
      buttonState[i] = goalState;
 
    end
 
  end
 
end
 
 
-------------------------------------------------------------------------------
 
-- getBalance
 
-------------------------------------------------------------------------------
 
 
function getBalance(points, double)
 
  local above = 0;
 
  local below = 0;
 
  for i=1,#points do
 
    if points[i] > 0 and double[i] then
 
      below = below + 1;
 
    elseif points[i] < 0 and double[i] then
 
      above = above + 1;
 
    end
 
  end
 
 
  local result = 0;
 
  if above >= 3 then
 
    result = -5;
 
  elseif below >= 3 then
 
    result = 5;
 
  end
 
  return result;
 
end
 
 
-------------------------------------------------------------------------------
 
-- getPointValue
 
-------------------------------------------------------------------------------
 
 
function getPointValue(points, double, index, balance)
 
  local result = 0;
 
  if index then
 
    result = points[index];
 
    if not double[index] then
 
      result = result + balance;
 
    end
 
  end
 
  return result;
 
end
 
 
-------------------------------------------------------------------------------
 
-- takeAll
 
-------------------------------------------------------------------------------
 
 
function takeAll()
 
  srReadScreen();
 
  local wins = findAllText("This is a Crematory", nil, REGION);
 
  for i, win in ipairs(wins) do
 
    local t = findText("Take...", win);
 
    if t then
 
      clickText(findText("Take...", win));
 
      t = waitForText("Everything");
 
      clickText(t);
 
      waitForNoText("Everything");
 
      safeClick(wins[i].x + 25, wins[i].y + 5);
 
    end
 
  end
 
end
 
 
-------------------------------------------------------------------------------
 
-- promptLoad
 
-------------------------------------------------------------------------------
 
 
function promptLoad()
 
  scale = 1.0;
 
  local z = 0;
 
  local is_done = nil;
 
  while not is_done do
 
    checkBreak("disallow pause");
 
    lsPrint(10, 10, z, scale, scale, 0xFFFFFFff, "Configure");
 
    local y = 60;
 
 
    lsPrint(5, y, z, scale, scale, 0xffffffff, "Passes:");
 
    is_done, passCount = lsEditBox("passes", 110, y, z, 50, 30, scale, scale,
 
                                  0x000000ff, 5);
 
    if not tonumber(passCount) then
 
      is_done = false;
 
      lsPrint(10, y+18, z+10, 0.7, 0.7, 0xFF2020ff, "MUST BE A NUMBER");
 
      passCount = 1;
 
    end
 
    y = y + 48;
 
 
    load_flax = lsCheckBox(15, y, z+10, 0xffffffff, "Dried Flax",
 
                          load_flax);
 
    y = y + 32;
 
 
    load_papyrus = lsCheckBox(15, y, z+10, 0xffffffff, "Dried Papyrus",
 
                              load_papyrus);
 
    y = y + 32;
 
 
    load_leeks = lsCheckBox(15, y, z+10, 0xffffffff, "Leeks",
 
                            load_leeks);
 
    y = y + 32;
 
 
    load_limestone = lsCheckBox(15, y, z+10, 0xffffffff, "Limestone",
 
                                load_limestone);
 
    y = y + 32;
 
 
    lsPrintWrapped(10, y, z+10, lsScreenX - 20, 0.7, 0.7, 0xd0d0d0ff,
 
                  "Make sure each crematory is pinned and empty.");
 
 
    if lsButtonText(10, lsScreenY - 30, z, 100, 0xFFFFFFff, "Begin") then
 
        is_done = 1;
 
    end
 
    if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff,
 
                    "End script") then
 
      error "Clicked End Script button";
 
    end
 
    lsDoFrame();
 
    lsSleep(shortWait);
 
  end
 
end
 
 
-------------------------------------------------------------------------------
 
-- loadAll
 
-------------------------------------------------------------------------------
 
 
function loadAll()
 
  cremWins = findAllText("This is a Crematory", nil, REGION);
 
  lsPrintln("loading");
 
  loads = {};
 
  if load_flax then
 
      table.insert(loads, "Flax");
 
  end
 
  if load_papyrus then
 
      table.insert(loads, "Papyrus");
 
  end
 
  if load_limestone then
 
      table.insert(loads, "Limestone");
 
  end
 
  if load_leeks then
 
      table.insert(loads, "Leeks");
 
  end
 
  table.insert(loads, "Wood");
 
  for i=1, #cremWins do
 
      cremWin = cremWins[i]
 
      for i, v in ipairs(loads) do
 
        clickText(findText("Load the Crematory...", cremWin));
 
        local t = waitForText("Wood", nil, nil, nil, REGION);
 
        t = waitForText(v, nil, nil, t);
 
        clickText(t);
 
        t = waitForText("Load how much", nil, nil, nil, REGION);
 
        safeClick(t.x + t.width/2, t.bottom - 50);
 
        waitForNoText("Load how much");
 
      end
 
  end
 
end
 
 
-------------------------------------------------------------------------------
 
-- updateMessage
 
-------------------------------------------------------------------------------
 
 
function updateMessage(message)
 
  local result = "Pass " .. currentPass .. " / " .. passCount .. "\n";
 
  result = result .. message .. "\n\n";
 
  if message == "Tending Crematory" then
 
    for i=1,#windows do
 
      local status = "Buttons: ";
 
      for j=1,5 do
 
    if windows[i].dirs[j] == OPP then
 
      status = status .. getDir("+", windows[i].ups[j]) ..
 
        getDir("-", windows[i].downs[j]);
 
    elseif windows[i].dirs[j] == SAME_UP then
 
      status = status .. getDir("+", windows[i].ups[j]) ..
 
        getDir("+", windows[i].downs[j]);
 
    else
 
      status = status .. getDir("-", windows[i].ups[j]) ..
 
        getDir("-", windows[i].downs[j]);
 
    end
 
    if j ~= 5 then
 
      status = status .. ", ";
 
    else
 
      status = status .. "\n";
 
    end
 
      end
 
      result = result .. "\n" .. status;
 
    end
 
  end
 
  return result;
 
end
 
 
function getDir(sign, number)
 
  local result = "";
 
  if number then
 
    result = sign .. number
 
  end
 
  return result;
 
end
 

Latest revision as of 05:17, 31 July 2018


This map uses the CondMap template, if this map imports data from other maps please edit those. Please see Maps for further details and links to all raw data pages


  • WhD - done
  • GyW - WT
  • BrM - MG