ATITD6 - User contributions [en]

User:Selune

2013-02-09T21:04:33Z

Selune:

Selune's Macros have been updated to the TaleScripts repository. Please leave any ideas for improvements or new macros here.

{{Collapse top|title=Paint Reaction Template}}
<pre>
Cabbage | RedSand | G | -11 | 26
Cabbage | Iron | W | 27 | 27
Cabbage | Copper | W | -20 | -60
Cabbage | Potash | B | 19 | -63
Carrot | RedSand | B | 32 | -26
Carrot | Lead | W | -17 | 61
Carrot | Potash | W | -59 | 56
Carrot | Lime | G | 0 | 23
Clay | Lead | B | 32 | -16
Clay | Copper | R | 20 | -12
Clay | Sulfur | G | -55 | -41
Clay | Saltpeter | B | 54 | 35
Lead | Iron | B | 4 | 14
Lead | Copper | W | -25 | -40
Lead | Saltpeter | G | -7 | 47
Iron | Sulfur | G | -17 | 0
Iron | Saltpeter | W | -55 | 7
Copper | Sulfur | W | -25 | -12
Copper | Saltpeter | B | 42 | 4
</pre>
{{Collapse bottom}}

{{Collapse top|title=Fishing Macro for Testing}}
<pre>
-- Pin up your Lures menu 'Self Click, Skills, Fishing, Use Lure' (no other pinned up windows can exist)
-- Should have (Chat-Related): 'Chat and Inventory can be minimized' AND 'Minimized chat-channels are still visible'.
-- You must have Main Chat tab showing at all times and window is long/wide enough so no lines don't wrap.

-- Yes, this macro reads your MAIN chat screen, so make sure you read the above statement for it to work correctly.
-- Each line of text must not scroll/wrap to the next line. If it does, then drag your chat window wider so it doesn't wrap.
-- You want to make your chat very wide. Note: It is possible to see a LONG message like "Though you lost your lure, you did catch a 15 deben Orange Spongefish"
-- Another long message is "You didn't catch anything. You also lost your lure. Try different lures and locations"
-- At 1280x1024 your chat screen should reach at least to the mid point of your screen to avoid having a chat line wrap to next line, for a long message, like above.
-- Higher resolutions may not have to reach quite to the mid point.

-- ********** This macro writes to a log file (Fishlog.txt) for most actions, so you can review later! ******
-- ********** This also macro writes to a log file (Fishstats.txt) showing stats of your last fishing session, so you can review later! ******

--You can delete any of the log files if you wish. It will automatically create new ones if they dont exist.
--The fishlog.txt file gets appended everytime you fish, so the file can grow quite long over time.
--The fishstats.txt file gets overwritten everytime your gui program window updates, so it doesn't 'grow' over time.

-- "Main chat tab is not showing" and other errors can usually be overcome by adjusting the main chat window size and restarting, assuming main chat is showing.
-- And also verify the lines aren't wrapping.

-- The very first thing this macro does is to Self Click, Special, What Time is it? option. This will then display the time in main chat window.
-- The macro then parses time displayed, in main chat tab, so it can use it while the macro runs (Log files and on screen display).
-- Thats what the mysterious Self Click is doing, its not a bug, it is suppose to do that and thats why, to fetch the time.

-- Note: These are currently refered to as Common Fish in the below 'SkipCommon' type of fishes (True or False), in the 'Custom Variables' section.

--Abdju
--Chromis
--Catfish
--Carp
--Perch
--Phagrus
--Tilapia

--CUSTOM VARIABLES -- EDIT HERE To Change Fishing Casts, Skips, Updates.

TotalCasts=3; --Total Casts per lure, if a fish caught. If no fish then it skips.
SkipCommon = false; --Skips to next lure if fish caught is a common (Choose True or False).
LureChangesToUpdateTimer = 7; --Total lures used before time is updated. Zero updates every new lure.
IgnoreUnknown = false; --Continues the script if fish is not recognized

--AlmostCaughtAttempts = 0; --Adds additional attempts to the current lure if Unusual, Strange fish are seen;
-- Note: AlmostCaughtAttempts above was already commented out upon arriving to Talescripts.
-- It is also commented out during the script, so uncommenting above will NOT activate the feature.

-- Additional reporting in the log file
-- Choose True or False.
-- Note 'LogStrangeUnusual' and 'LogOdd' (below) overrides LogFails setting. ie if LogStrange true, then it would still log even if LogFails = False
--If LogFails = false and LogStrangeUnusual or LogOdd = true, then failed catches those would still be included in the log file.

LogFails = true; -- Do you want to add Failed Catches to log file? 'Failed to catch anything' or 'No fish bit'. Note the log will still add an entry if you lost lure.
LogStrangeUnusual = true; -- Do you want to add Strange and Unusual fish to the log file? Note the log will still add an entry if you lost lure.
LogOdd = true; -- Do you want to add Odd fish to the log file? Note the log will still add an entry if you lost lure.

-- END CUSTOM VARIABLES

loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();
loadfile("luaScripts/Fishing_Func.inc")();

function SetupLureGroup()

TLures = {};
FirstLure="";
LastLure = "";

srReadScreen();
FindPin = srFindImage("UnPin.png");
if FindPin then

--Click the pinup to refresh the lures window

srClickMouseNoMove(FindPin[0]+5,FindPin[1]+30);
lsSleep(500);

srReadScreen();

DownPin = srFindImageInRange("Fishing/Menu_DownArrow.png",FindPin[0]-10,FindPin[1],50,500);
if DownPin then
--Just Incase
UpArrow = srFindImageInRange("Fishing/Menu_UpArrow.png",FindPin[0]-10,FindPin[1],50,50);
if UpArrow then
srClickMouseNoMove(UpArrow[0]+5,UpArrow[1]+5);
lsSleep(1000);
srReadScreen();
end

-- srClickMouseNoMove(DownPin[0]+5,DownPin[1]+5);
LastLure=FindLureName(DownPin[0]-150,DownPin[1]-10,150,25);
--error(LastLure);
FirstLure = FindLureName(FindPin[0]-150,FindPin[1]-10,150,25);
-- error(FirstLure);
else
--No Arrows on lure menu?
FirstLure=FindLureName(FindPin[0]-150,FindPin[1]-10,150,25);
LastLure=nil;
end
else
error("Didn\'t find Lures pinned window - Self Click->Skills, Fishing -> Use Lure, PIN THIS WINDOW!");
end

if LastLure ~= nil then
--We have last lure, and arrows showing
ChangeLureMenu = LastLure;

FirstLurLoc = srFindImage("fishing/" .. FirstLure);
LastLurLoc = srFindImage("fishing/" .. LastLure);

for i = 1, #Lures,1 do
test = srFindImageInRange(("fishing/" .. Lures[i]),FirstLurLoc[0]-5,FirstLurLoc[1]-5,175,500);

if test then
--Add Lure
table.insert(TLures,Lures[i]);
if Lures[i] == LastLure then
--End of Menu, Use Down Arrow
arrow=srFindImageInRange("Fishing/menu_downarrow.png",test[0],test[1]-5,175,50);
if arrow then
DownArrowLocs = arrow;
srClickMouseNoMove(arrow[0]+5,arrow[1]+5);
lsSleep(1000);
srReadScreen();
lsSleep(1000);
else
error("no arrow found");
end
end
LastLureMenu = Lures[i];

end
end

--Reset Lure Menu
UpArrow = srFindImageInRange("Fishing/Menu_UpArrow.png",FindPin[0]-10,FindPin[1],50,50);
if UpArrow then
srClickMouseNoMove(UpArrow[0]+5,UpArrow[1]+5);
end

else
--No arrows, just get lures
for i = 1, #Lures, 1 do
test = srFindImage("Fishing/" .. Lures[i]);
if test then
table.insert(TLures,Lures[i]);
end
end
end

return TLures;

end

function FindLureName(x,y,w,h)

for i = 1, #Lures, 1 do
Lure = srFindImageInRange("Fishing/" .. Lures[i], x,y,w,h);
if Lure then
return Lures[i]
end
end
end

function GetLure()

srReadScreen();

if CurrentLureIndex == LastLureIndex then
-- Use Down Menu
srClickMouseNoMove(DownArrowLocs[0]-5,DownArrowLocs[1]-5);
srReadScreen();
end

lure = srFindImage("Fishing/" .. PlayersLures[CurrentLureIndex]);
if not lure then
--Failed to find lure
error("Can\'t find a lure!");
else
slure = Lures[PlayersLures[CurrentLureIndex]];
slure = string.sub(slure,string.find(slure,"_")+1,string.len(slure) - 4);
--statusScreen("Using Lure " .. slure);
return slure
end
end

function UseLure()
-- Uses lure according to CurrentLureIndex, which is used in PlayersLures which contains each lure the player has.

if #TLures == 0 then
error 'Can\'t find any lures on the pinned window. Did you run out of lures?'
end

srReadScreen();
lure = srFindImage("Fishing/" .. PlayersLures[CurrentLureIndex]);

if lure then
srClickMouseNoMove(lure[0]+3,lure[1]+3);
lsSleep(500);
srReadScreen();
-- Find Lure Type
for i = 1, #Lure_Types, 1 do
test = srFindImage("Fishing/" .. Lure_Types[i]);
if test then
--Click it!
srClickMouseNoMove(test[0]+3,test[1]+3);
gui_refresh();
break;
end
end

end

if PlayersLures[CurrentLureIndex] == ChangeLureMenu then
down = srFindImage("Fishing/Menu_DownArrow.png");
srClickMouseNoMove(down[0]+5,down[1]+5);
lsSleep(1000);
elseif PlayersLures[CurrentLureIndex] == LastLureMenu then
up = srFindImage("Fishing/Menu_UpArrow.png");
srClickMouseNoMove(up[0]+5,up[1]+5);
CurrentLureIndex=1;
lsSleep(1000);
end

end

function ChatReadFish()
--Find the last line of chat
lsSleep(100);
srReadScreen();
imgs = findAllImages("fishing/chatlog_reddots.png");
Coords = imgs[#imgs];

-- Look for the ** red dots in main chat to see if they exist.
if #imgs == 0 then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

--Caught Something.. Find Fish Details
Sfish = "";

for i = 1, #CL_Fish do
ChatFish = srFindImageInRange("Fishing/" .. CL_Fish[i],Coords[0] ,Coords[1],500,25);
if ChatFish then
Sfish = string.sub(CL_Fish[i],string.find(CL_Fish[i],"Fish_") + 5,string.len(CL_Fish[i]) - 4);
GrandTotalCaught = GrandTotalCaught + 1
break;
end
end

if string.len(Sfish) < 1 then
-- This fish name and fishname.png file likely needs to be added to Fishing_Func.inc, under the CL_Fish array and the .png added to /Images/Fishing folder
if IgnoreUnknown then
Sfish = "Unknown";
SNum = "1";
else
error("Unknown Fish! PLEASE, Take screenshot (Alt+C) of main chat tab, share with Talescripts team!");
end
else
--Find Size
for i = #CL_Number,1,-1 do
ChatSize = srFindImageInRange("fishing/" .. CL_Number[i],Coords[0],Coords[1],500,25);
if ChatSize then
SNum = string.sub(CL_Number[i],string.find(CL_Number[i],"_") + 1, string.len(CL_Number[i]) - 4);
break;
end
end
GrandTotaldb = GrandTotaldb + SNum;
end

return(Sfish .. " (" .. SNum .. "db)");
end

function findchat(line)
--Reads a chat line and returns a basic string for better processing

-- Odd fish means your fly fishing skill is not high enough. Raise it with enormous amounts of fishing.
-- Strange fish means you need a better rod to catch the rish. You may succeed on future attempts.
-- Unusual fish means your speed skill was not high enough to catch this type of fish. If it is almost enough, you may catch them on future casts.

--Possible fishing messages
-- Caught A (SIZE) Deben (FISH)
-- You almost caught a strange fish
-- (You almost caught a strange fish. You also lost your lure.)
-- You almost caught an unusual fish
-- (You almost caught an unusual fish. You also lost your lure.)
-- You almost caught an odd fish
-- (You almost caught an odd fish. You also lost your lure.)
-- Although you lost your lure (Caught a fish)
-- Using a (LURE) (TYPE) lure.
-- You are carrying more than you can manage.
-- You are carrying too much bulk.
-- You didn't catch anything.
-- (You didn't catch anything. You also lost your lure.)
-- No Fish Bit.
-- (No Fish Bit. You also lost your lure.)

--Find the last line of chat
lsSleep(100);
srReadScreen();
imgs = findAllImages("Fishing/chatlog_reddots.png");
Coords = imgs[#imgs];

-- Look for the ** red dots in main chat to see if they exist.
if #imgs == 0 then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

if line and line > 0 then
Coords = imgs[(#imgs) - line];
if not Coords then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

end

--Find What Happened

ChatType = "";

for i = 1, #Chat_Types -1,2 do
test = srFindImageInRange("Fishing/" .. Chat_Types[i],Coords[0],Coords[1],500,30);
if test then
--Found Chat
ChatType = Chat_Types[i + 1];
break;
end
end

--Break down!
if ChatType then
--if ChatType == "lure" then
--elseif ChatType == "nofishlostlure" then
--elseif ChatType == "nofish" then
--elseif ChatType == "strange" then
--elseif ChatType == "unusual" then
return ChatType;
else
error(ChatType);

end

end

function GetTime()
--Reads time stamp using special->what time menu
winsize = srGetWindowSize();

--Open Menu, Press the Esc key to open the Self Click menu

-- Move mouse to center of screen before Sending the Esc key, to get the Self Click menu. We dont want it self clicking near the edge of screen causing an error.
srSetMousePos(winsize[0]/2,winsize[1]/2);
lsSleep(100); -- This delay is critical for any srSetMousePos. Without it, the mouse will not have time to actually move!

srKeyEvent(string.char(27)); -- Send Esc Key
lsSleep(500);

--Find Special Menu
srReadScreen();
menu = srFindImage("Fishing/Menu_Special.png");

if menu then
--Click it!
srClickMouseNoMove(menu[0]+3,menu[1]+3);

lsSleep(500);
srReadScreen();

-- Look for the What Time Is It? option in menu
menu = srFindImage("Fishing/Menu_WhatTime.png");
if menu then
--Click it!
srClickMouseNoMove(menu[0]+3,menu[1]+3);
lsSleep(500);
end
end

srReadScreen();
imgs = findAllImages("Fishing/chatlog_reddots.png");
Coords = imgs[#imgs];

-- Look for the ** red dots in main chat to see if they exist.
if #imgs == 0 then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

for i = #CL_Time, 1, -1 do
Stime = srFindImageInRange("Fishing/" .. CL_Time[i],Coords[0],Coords[1],400,25);
if Stime then
Hour = string.sub(CL_Time[i],string.find(CL_Time[i],"ime_")+4,string.len(CL_Time[i])-4);

AM = srFindImageInRange("Fishing/Chatlog_Time_AM.png",Coords[0],Coords[1],400,25);
if AM then
CurrentTime=(Hour .. "AM");
return (Hour .. "AM");
else
PM = srFindImageInRange("Fishing/chatlog_time_PM.png",Coords[0],Coords[1],400,25);
if PM then
CurrentTime=(Hour .. "PM");
return (Hour .. "PM");
end
end

end
end
end

function gui_refresh()
lsDoFrame();

if GrandTotalCaught < 10 then
last10 = GrandTotalCaught .. "/10";
else
last10 = 10;
end

--Stats (On Screen Display)
--CurrentLureIndex out of PlayersLures
winsize = lsGetWindowSize();

lsPrintWrapped(10, 0, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Lure Index: " .. CurrentLureIndex .. " out of " .. #PlayersLures .. " " .. PlayersLures[CurrentLureIndex]);

lsPrintWrapped(10, 20, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Time: " .. CurrentTime);

lsPrintWrapped(10, 40, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Last [" .. last10 .. "] Fish Caught:");

--Reset this string before showing last 10 fish below. Else the entries will multiply with entries from previous loops/call to this function
last10caught = "";

if #gui_log_fish > 10 then
table.remove(gui_log_fish,1);
end
for i = 1, #gui_log_fish,1 do
lsPrintWrapped(10, 50 + (12*i), 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, gui_log_fish[i]);
last10caught = last10caught .. gui_log_fish[i] .. "\n";
end

lsPrintWrapped(10, winsize[1]-133, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Odd Fish Seen: " .. GrandTotalOdd);
lsPrintWrapped(10, winsize[1]-121, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Unusual Fish Seen: " .. GrandTotalUnusual);
lsPrintWrapped(10, winsize[1]-109, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Strange Fish Seen: " .. GrandTotalStrange);

lsPrintWrapped(10, winsize[1]-97, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "-----------------------------");

lsPrintWrapped(10, winsize[1]-85, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Lures Clicked: " .. GrandTotalLuresUsed);
lsPrintWrapped(10, winsize[1]-73, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Lures Lost: " .. GrandTotalLostLures);

lsPrintWrapped(10, winsize[1]-61, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "-----------------------------");

lsPrintWrapped(10, winsize[1]-49, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Total Casts: " .. GrandTotalCasts);
lsPrintWrapped(10, winsize[1]-37, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Failed Catches: " .. GrandTotalFailed);
lsPrintWrapped(10, winsize[1]-25, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Fish Caught: " .. GrandTotalCaught .. " (" .. GrandTotaldb .. "db)");

-- Write stats to log file. Everytime the GUI screen is updated, so is the log file.

WriteFishStats("Last Session Hour: " .. CurrentTime .. "\n\nOdd Fish Seen: " .. GrandTotalOdd .. "\nUnusual Fish Seen: " .. GrandTotalUnusual .. "\nStrange Fish Seen: " .. GrandTotalStrange .. "\n---------------------\nLures Clicked: " .. GrandTotalLuresUsed .. "\nLures Lost: " .. GrandTotalLostLures .. " \n---------------------\nTotal Casts: " .. GrandTotalCasts .. "\nFailed Catches: " .. GrandTotalFailed .. "\nFish Caught: " .. GrandTotalCaught .. " (" .. GrandTotaldb .. "db)\n---------------------\n\nLast 10 Fish Caught:\n\n".. last10caught);

end

function doit()
askForWindow("MAIN chat tab MUST be showing and wide enough so that each lines doesn't wrap. Pin up Lures Menu (Self, Skills, Fishing, Use Lures). No other pinned menus can exist. More detailed instructions are included inside the script as comments at top. There are options you can set in the script such as how many casts per lure, what gets written to the log file and more! History will be recorded in FishLog.txt and stats in FishStats.txt. Most errors can be fixed by slightly adjusting/moving your chat screen! Press Shift to continue.");

--Gui_Main();

--Variables Used By Program -- Don't Edit Unless you know what you're doing!
CurrentLure = ""; --Don't Edit
gui_log_fish = {}; --Don't Edit, holds log display
log_fish = {};
CurrentLureIndex=0; -- 1 = First Lure Player Owns in alphabetical order
ChangeLureMenu="";
LastLureMenu="";
DownArrowLocs=nil;
PlayersLures={}; --Don't Edit, Holds Current Player Lures
CurrentTime=""; --Don't Edit, Holds Time Check Value
TotalLuresUsed = 0;
castcount = 0;
--strangecounter = 0;

--These variables were later added for displaying additional info on the screen.
-- Used for the extra reporting/statistics, on screen.
-- Dont Edit Unless you know what you're doing!

GrandTotalCaught = 0;
GrandTotalCasts = 0;
GrandTotaldb = 0;
GrandTotalStrange = 0;
GrandTotalOdd = 0;
GrandTotalUnusual = 0;
GrandTotalLuresUsed = 0;
GrandTotalLostLures = 0;
GrandTotalFailed = 0;

PlayersLures = SetupLureGroup();
CurrentTime = GetTime();
lsSleep(1500);

--Write an entry into log file to show this is a new session
WriteFishLog("[New Session]\n");

while 1 do

checkBreak();
srReadScreen();

--cast = srFindImage("Fishing/Button_Fish.png");
cast = srFindImage("fishicon.png");
if not cast then
error("cannot find fishing button");
end

if castcount == 0 then
--Update counters
castcount = 1;
CurrentLureIndex = CurrentLureIndex +1;

if CurrentLureIndex > #PlayersLures then
--Refresh the Lure window, and reindex it, in case some were lost.
PlayersLures = SetupLureGroup();
CurrentLureIndex = 1;
end

--Update the time if ready, always update before new lure to keep chat/log proper
if TotalLuresUsed == LureChangesToUpdateTimer then
--Update Time

CurrentTime = GetTime();
TotalLuresUsed = 0;
end

--Since no casts been made at all, use a lure
UseLure();
lsSleep(2000);
TotalLuresUsed = TotalLuresUsed + 1;
GrandTotalLuresUsed = GrandTotalLuresUsed + 1;

--update log
gui_refresh();

elseif castcount > TotalCasts then
-- if strangecounter > 0 and strangecounter < AlmostCaughtAttempts then
--we don't reset yet!
-- else
--Reset
castcount=0;
strangecounter = 0;
-- end
else
--Cast
srClickMouseNoMove(cast[0]+3,cast[1]+3);
lsSleep(1000);
checkBreak();

while findchat(castcount - 1) == "lure" do
lsSleep(1000);
checkBreak();
end

castcount = castcount + 1;
GrandTotalCasts = GrandTotalCasts + 1;

--Read Chat
ChatType = findchat();

lsSleep(200);

CurrentLure = string.sub(PlayersLures[CurrentLureIndex],string.find(PlayersLures[CurrentLureIndex],"_")+1,string.len(PlayersLures[CurrentLureIndex])-4);

if ChatType == "nobitlostlure" then
--No fish bit. You also lost your lure.
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "No fish bit. You also lost your lure." .. "\n");

elseif ChatType == "nobit" then
--No fishbit
GrandTotalFailed = GrandTotalFailed + 1;
if LogFails == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "No fish bit." .. "\n");
end

elseif ChatType == "nocatchlostlure" then
--You didn't catch anything. You also lost your lure.
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You didn\'t catch anything. You also lost your lure." .. "\n");

elseif ChatType == "nocatch" then
--You didn't catch anything.
GrandTotalFailed = GrandTotalFailed + 1;
if LogFails == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You didn\'t catch anything." .. "\n");
end

elseif ChatType == "alreadyfishing" then
--castcount = castcount-1;
lsSleep(15000); -- Long pause to wait for fishing queue to stop. Somehow it pushed the Fish button twice and now you will cast 2 times in a row.
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You are already fishing!" .. "\n");

elseif ChatType == "strange" then
--Strange Fish
GrandTotalStrange = GrandTotalStrange + 1;
GrandTotalFailed = GrandTotalFailed + 1;
if LogStrangeUnusual == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught a STRANGE fish, but your rod was just too clumbsy." .. "\n");
end

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

elseif ChatType == "strangelostlure" then
-- Strange Fish and lost lure
GrandTotalStrange = GrandTotalStrange + 1;
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught a STRANGE fish, but your rod was just too clumbsy. You also lost your lure." .. "\n");

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

elseif ChatType == "unusual" then
-- Unusual Fish
GrandTotalUnusual = GrandTotalUnusual + 1;
GrandTotalFailed = GrandTotalFailed + 1;
if LogStrangeUnusual == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an UNUSUAL fish, but you were not quick enough." .. "\n");
end

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

-- Can't uncomment below elseif statement until we get a screenshot of a message of you were not quick enough. You also lost your lure.
-- This would need to be added to Fishing_Func.inc , in the Chat_Types {array} along with adding Chatlog_AlmostUnusualLostlure.png). Add above "unusual" line in the array

--elseif ChatType == "unusuallostlure" then
-- Unusual Fish
--GrandTotalUnusual = GrandTotalUnusual + 1;
--GrandTotalLostLures = GrandTotalLostLures + 1;
--GrandTotalFailed = GrandTotalFailed + 1;
--if LogStrangeUnusual == true then
--WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an UNUSUAL fish, but you were not quick enough." .. "\n");
--end

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

elseif ChatType == "odd" then
-- Odd Fish
GrandTotalOdd = GrandTotalOdd + 1;
GrandTotalFailed = GrandTotalFailed + 1;
if LogOdd == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an ODD fish, but were too late recognizing the bite." .. "\n");
end

elseif ChatType == "oddlostlure" then
-- Odd Fish and lost lure
GrandTotalOdd = GrandTotalOdd + 1;
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an ODD fish, but were too late recognizing the bite. You also lost your lure." .. "\n");

elseif ChatType == "carry" then
--chat lines are messed up now
castcount=0;

elseif ChatType == "caught" or ChatType == "caughtlostlure" then
Fish = ChatReadFish();

table.insert(gui_log_fish,Fish);

if ChatType == "caughtlostlure" then
GrandTotalLostLures = GrandTotalLostLures + 1;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "Though you lost your lure, you did catch a " .. Fish .. "\n");
-- This Needs Check for new lure. This will cause a error if not.
--Reset, skip to next lure
castcount=0;
else
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "Caught a " .. Fish .. "\n");

end

--gui_refresh();

if SkipCommon == true then
FishType = string.sub(Fish,string.find(Fish,",") + 1);
if FishType == "Abdju" or FishType == "Chromis" or FishType == "Catfish" or FishType == "Carp" or FishType == "Perch" or FishType == "Phagrus" or FishType == "Tilapia" then
--Skip it
castcount=0;

end
end

gui_refresh();
end

gui_refresh();
end

gui_refresh();
end
end
</pre>
{{Collapse bottom}}

{{Collapse top|title=New Raeli Oven Monitor (IN TESTING v3)}}
<pre>
loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/common.inc")();
loadfile("luaScripts/ui_utils.inc")();

askText = singleLine([[
Raeli Color Monitor v1.1c (edit by Selune) --
Make sure the Raeli Oven is pinned, select the ATITD window, and press shift.
]]);

stop_at_CB = false;
take_screenshots = true;
stop_at_color = "White";
confidence_threshold = 15;
saved_x = 0;
saved_y = 0;
go_now = false;

color_names = {"AliceBlue", "AntiqueWhite", "Aqua", "Aquamarine", "Azure", "Beige", "Bisque", "Black", "BlanchedAlmond", "Blue", "BlueViolet", "Brown", "Burlywood", "CadetBlue", "Carrot", "Chartreuse", "Chocolate", "Coral", "CornflowerBlue", "Cornsilk", "Crimson", "DarkBlue", "DarkCyan", "DarkGoldenrod", "DarkGray", "DarkGreen", "DarkKhaki", "DarkMagenta", "DarkOliveGreen", "DarkOrange", "DarkOrchid", "DarkRed", "DarkSalmon", "DarkSeaGreen", "DarkSlateBlue", "DarkSlateGray", "DarkTurquoise", "DarkViolet", "DeepPink", "DeepSkyBlue", "DimGray", "DodgerBlue", "Feldspar", "FireBrick", "FloralWhite", "ForestGreen", "Fuchsia", "Gainsboro", "GhostWhite", "Gold", "Goldenrod", "Gray", "Green", "GreenYellow", "Honeydew", "HotPink", "IndianRed", "Indigo", "Ivory", "Khaki", "Lavender", "LavenderBlush", "LawnGreen", "LemonChiffon", "LightBlue", "LightCoral", "LightCyan", "LightGoldenrodYellow", "LightGreen", "LightGrey", "LightPink", "LightSalmon", "LightSeaGreen", "LightSkyBlue", "LightSlateBlue", "LightSlateGray", "LightSteelBlue", "LightYellow", "Lime", "LimeGreen", "Linen", "Maroon ", "MediumAquamarine", "MediumBlue ", "MediumOrchid", "MediumPurple", "MediumSeaGreen", "MediumSlateBlue", "MediumSpringGreen", "MediumTurquoise", "MediumVioletRed", "MidnightBlue", "MintCream", "MistyRose", "Moccasin", "NavajoWhite", "Navy ", "OldLace", "Olive", "OliveDrab", "Orange", "OrangeRed", "Orchid", "PaleGoldenrod", "PaleGreen", "PaleTurquoise", "PaleVioletRed", "PapayaWhip", "PeachPuff", "Peru", "Pink", "Plum", "PowderBlue", "Purple ", "Red", "RosyBrown", "RoyalBlue", "SaddleBrown", "Salmon", "SandyBrown", "SeaGreen", "Seashell", "Sienna", "Silver", "SkyBlue", "SlateBlue", "SlateGray", "Snow", "SpringGreen", "SteelBlue ", "Tan", "Teal", "Thistle", "Tomato", "Turquoise", "Violet", "VioletRed", "Wheat", "White", "WhiteSmoke", "Yellow", "YellowGreen"};
color_values = {0xF0F8FF, 0xFAEBD7, 0x00FFFF, 0x7FFFD4, 0xF0FFFF, 0xF5F5DC, 0xFFE4C4, 0x000000, 0xFFEBCD, 0x0000FF, 0x8A2BE2, 0xA52A2A, 0xDEB887, 0x5F9EA0, 0xE07020, 0x7FFF00, 0xD2691E, 0xFF7F50, 0x6495ED, 0xFFF8DC, 0xDC143C, 0x00008B, 0x008B8B, 0xB8860B, 0xA9A9A9, 0x006400, 0xBDB76B, 0x8B008B, 0x556B2F, 0xFF8C00, 0x9932CC, 0x8B0000, 0xE9967A, 0x8FBC8F, 0x483D8B, 0x2F4F4F, 0x00CED1, 0x9400D3, 0xFF1493, 0x00BFFF, 0x696969, 0x1E90FF, 0xD19275, 0xB22222, 0xFFFAF0, 0x228B22, 0xFF00FF, 0xDCDCDC, 0xF8F8FF, 0xFFD700, 0xDAA520, 0x808080, 0x008000, 0xADFF2F, 0xF0FFF0, 0xFF69B4, 0xCD5C5C, 0x4B0082, 0xFFFFF0, 0xF0E68C, 0xE6E6FA, 0xFFF0F5, 0x7CFC00, 0xFFFACD, 0xADD8E6, 0xF08080, 0xE0FFFF, 0xFAFAD2, 0x90EE90, 0xD3D3D3, 0xFFB6C1, 0xFFA07A, 0x20B2AA, 0x87CEFA, 0x8470FF, 0x778899, 0xB0C4DE, 0xFFFFE0, 0x00FF00, 0x32CD32, 0xFAF0E6, 0x800000, 0x66CDAA, 0x0000CD, 0xBA55D3, 0x9370DB, 0x3CB371, 0x7B68EE, 0x00FA9A, 0x48D1CC, 0xC71585, 0x191970, 0xF5FFFA, 0xFFE4E1, 0xFFE4B5, 0xFFDEAD, 0x000080, 0xFDF5E6, 0x808000, 0x6B8E23, 0xFFA500, 0xFF4500, 0xDA70D6, 0xEEE8AA, 0x98FB98, 0xAFEEEE, 0xDB7093, 0xFFEFD5, 0xFFDAB9, 0xCD853F, 0xFFC0CB, 0xDDA0DD, 0xB0E0E6, 0x800080, 0xFF0000, 0xBC8F8F, 0x4169E1, 0x8B4513, 0xFA8072, 0xF4A460, 0x2E8B57, 0xFFF5EE, 0xA0522D, 0xC0C0C0, 0x87CEEB, 0x6A5ACD, 0x708090, 0xFFFAFA, 0x00FF7F, 0x4682B4, 0xD2B48C, 0x008080, 0xD8BFD8, 0xFF6347, 0x40E0D0, 0xEE82EE, 0xD02090, 0xF5DEB3, 0xFFFFFF, 0xF5F5F5, 0xFFFF00, 0x9ACD32};

-- Decimal to Hex conversion
function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end

--Color Conversions
function rgb2hsl(src_r, src_g, src_b)
local h, s, l, d;
src_r = src_r / 255;
src_g = src_g / 255;
src_b = src_b / 255;
local max_rgb = math.max(src_r, src_g, src_b);
local min_rgb = math.min(src_r, src_g, src_b);
l = (max_rgb + min_rgb) / 2;

if(max_rgb == min_rgb) then
h = 0; --achromatic
s = 0;
else
d = max_rgb - min_rgb;
if l > 0.5 then
s = d / (2 - max_rgb - min_rgb);
else
s = d / (max_rgb + min_rgb);
end

if src_g > src_b then
if src_r > src_g then
h = (src_g - src_b) / d;
else
h = (src_b - src_r) / d + 2;
end
else
if src_r > src_g then
h = (src_g - src_b) / d + 6;
else
h = (src_r - src_g) / d + 4;
end
end
h = h / 6;
end

if h == nil then
error "NO H";
end

if s == nil then
error ("NO S D:" .. d);
end

if l == nil then
error "NO L";
end

return h, s, l;
end

function rgb2lab(src_r, src_g, src_b)
--R from 0 to 255
--G from 0 to 255
--B from 0 to 255
local r = src_r/255;
local g = src_g/255;
local b = src_b/255;

if (r > 0.04045) then
r = math.pow((r + 0.055) / 1.055, 2.4);
else
r = r / 12.92;
end
if ( g > 0.04045) then
g = math.pow((g + 0.055) / 1.055, 2.4);
else
g = g / 12.92;
end
if (b > 0.04045) then
b = math.pow((b + 0.055) / 1.055, 2.4);
else
b = b / 12.92;
end

r = r * 100;
g = g * 100;
b = b * 100;

local x = r * 0.4124 + g * 0.3576 + b * 0.1805;
local y = r * 0.2126 + g * 0.7152 + b * 0.0722;
local z = r * 0.0193 + g * 0.1192 + b * 0.9505;

x = x / 95.047;
y = y / 100.000;
z = z / 108.883;

if ( x > 0.008856 ) then
x = math.pow( x , 1/3 );
else
x = ( 7.787 * x ) + ( 16/116 );
end
if ( y > 0.008856 ) then
y = math.pow( y , 1/3 );
else
y = ( 7.787 * y ) + ( 16/116 );
end
if ( z > 0.008856 ) then
z = math.pow( z , 1/3 );
else
z = ( 7.787 * z ) + ( 16/116 );
end

local lab_l = ( 116 * y ) - 16;
local lab_a = 500 * ( x - y );
local lab_b = 200 * ( y - z );

return lab_l, lab_a, lab_b;
end

--Get nearest color name
function nearestColor(px)
local rgb_r, rgb_g, rgb_b, tst_r, tst_g, tst_b, test_px;
local lab_l, lab_a, lab_b, lab_tst_l, lab_tst_a, lab_tst_b;
local hsl_h, hsl_s, hsl_l, hsl_tst_h, hsl_tst_s, hsl_tst_l;
local offset, best_name, best_offset, next_best_offset, confidence;
best_offset = 100000;
next_best_offset = 1000000;
rgb_r = ((math.floor(px/256/256/256) % 256) - 7) * 255/247;
rgb_g = ((math.floor(px/256/256) % 256) - 7) * 255/247;
rgb_b = ((math.floor(px/256) % 256) - 5.5) * 255/247;
lab_l, lab_a, lab_b = rgb2lab(rgb_r, rgb_g, rgb_b);
hsl_h, hsl_s, hsl_l = rgb2hsl(rgb_r, rgb_g, rgb_b);

for i=1, #color_names do
checkBreak();
test_px = color_values[i];
tst_r = (math.floor(test_px/256/256) % 256);
tst_g = (math.floor(test_px/256) % 256);
tst_b = (math.floor(test_px) % 256);
lab_tst_l, lab_tst_a, lab_tst_b = rgb2lab(tst_r, tst_g, tst_b);
hsl_tst_h, hsl_tst_s, hsl_tst_l = rgb2hsl(tst_r, tst_g, tst_b);

---- Different methods to determine "distance" from the ideal colors. Change these to test different options.

--offset = math.abs(rgb_r - tst_r) + math.abs(rgb_g - tst_g) + math.abs(rgb_b - tst_b);
--offset = math.max(math.max((math.abs(rgb_r - tst_r)), math.abs(rgb_g - tst_g)), math.abs(rgb_b - tst_b));
offset = (rgb_r - tst_r)^2 + (rgb_g - tst_g)^2 + (rgb_b - tst_b)^2;
--offset = math.abs(lab_l - lab_tst_l) + math.abs(lab_a - lab_tst_a) + math.abs(lab_b - lab_tst_b);
--offset = (lab_l - lab_tst_l)^2 + (lab_a - lab_tst_a)^2 + (lab_b - lab_tst_b)^2;
--offset = math.max(math.max((math.abs(lab_l - lab_tst_l)), math.abs(lab_a - lab_tst_a)), math.abs(lab_b - lab_tst_b));
--offset = math.abs(hsl_h - hsl_tst_h) + math.abs(hsl_s - hsl_tst_s) + math.abs(hsl_l - hsl_tst_l);
--offset = (hsl_h - hsl_tst_h)^2 + (hsl_s - hsl_tst_s)^2 + (hsl_l - hsl_tst_l)^2;
--offset = math.max(math.max((math.abs(hsl_h - hsl_tst_h)), math.abs(hsl_s - hsl_tst_s)), math.abs(hsl_l - hsl_tst_l));
if (offset < next_best_offset) then
if (offset < best_offset) then
next_best_offset = best_offset;
best_offset = offset;
best_name = color_names[i]; -- .. " Hex: " .. DEC_HEX(color_values[i]);
else
next_best_offset = offset;
end
confidence = ((next_best_offset - best_offset) / best_offset) * 100;
end
end

return best_name, math.floor(confidence);
end

--Check pixel against target
function checkColor(px)
local color_name, confidence;
color_name, confidence = nearestColor(px);

if (color_name:upper() == stop_at_color:upper()) then
return true, confidence;
else
return false, 0;
end
end

-- optional message
function askForPixel()
local is_done = false;
local have_coords = false;
local color_found = false;
local color_guess = "NONE";
local tst_r, tst_g, tst_b, rgb_r, rgb_g, rgb_b;
local confidence = 0;
-- Display message until shift is held
while not go_now do
checkBreak();
srReadScreen();
y = 0;
mouse_x, mouse_y = srMousePos();
if not have_coords then
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xFFFFFFff,
"Mouse over one of the Raeli Oven color pixels and press Shift.");
if lsShiftHeld() then
saved_x = mouse_x;
saved_y = mouse_y;
have_coords = true;
end
else
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xFFFFFFff,
"Coords chosen, press 'Reset' to change or 'Do It' to start.");
end

y = y + 40;
if have_coords then
px = srReadPixel(saved_x, saved_y);
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xffffff,
saved_x .. ", " .. saved_y);
else
px = srReadPixel(mouse_x, mouse_y);
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xB0B0B0ff,
mouse_x .. ", " .. mouse_y);
end

y = y + 15;
color_guess, confidence = nearestColor(px);
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, px,
"(" .. (math.floor(px/256/256/256) % 256) .. "," .. (math.floor(px/256/256) % 256) .. "," .. (math.floor(px/256) % 256) .. "," .. (px % 256) .. ") Hex: " .. DEC_HEX(math.floor((px/256) % 16777216)));

y = y + 20;
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, px, "Best guess: " .. color_guess);
y = y + 15;
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, px, "Confidence: " .. confidence .. " (higher is better)");

-- Testing other methods of grabbing the pixel, making sure RGBA values match
-- srReadScreen();
-- px2 = srReadPixelFromBuffer(mouse_x, mouse_y);
-- lsPrintWrapped(0, 80, 1, lsScreenX, 0.7, 0.7, 0xB0B0B0ff,
-- mouse_x .. ", " .. mouse_y .. " = " .. (math.floor(px2/256/256/256) % 256) .. "," .. (math.floor(px2/256/256) % 256) .. "," .. (math.floor(px2/256) % 256) .. "," .. (px2 % 256) );
-- lsButtonText(lsScreenX - 110, lsScreenY - 90, 0, 100, px, "test1");
-- lsButtonText(lsScreenX - 110, lsScreenY - 60, 0, 100, px2, "test2");

y = y + 20;
take_screenshots = lsCheckBox(15, y, z, 0xffffffff, " Take Screenshots", take_screenshots);

y = y + 20;
stop_at_CB = lsCheckBox(15, y, z, 0xffffffff, " Stop at Color", stop_at_CB);

if stop_at_CB then
y = y + 25;
is_done = false;
color_found = false;
-- Edit box and text display
lsPrint(10, y, z, 0.7, 0.7, 0xFFFFFFff, "Desired Color:");

y = y + 20;
-- lsEditBox returns two different things (a state and a value)
is_done, stop_at_color = lsEditBox("Desired Color:", 10, y, z, 250, 30, 0.7, 0.7, 0x000000ff, "White");
--dropdown_color_cur_value = lsDropdown("ColorDropDown1", 5, y, 0, 200, dropdown_color_cur_value, color_names);

for i=0, #color_names do
if stop_at_color and color_names[i] then
if (stop_at_color:upper() == (color_names[i]):upper()) then
color_found = true;
end
end
end

if not color_found then
lsPrint(130, y - 20, z, 0.7, 0.7, 0xFF0000ff, "No such color (Remove any spaces)");
end

y = y + 35;
lsPrint(5, y, 0, 0.6, 0.6, 0xffffffff, "Confidence Required:");
is_done, confidence_threshold = lsEditBox("confthresh", 150, y, 0, 50, 30, 0.7, 0.7, 0x000000ff, confidence_threshold);
confidence_threshold = tonumber(confidence_threshold);
if not confidence_threshold then
lsPrint(10, y+17, 10, 0.4, 0.4, 0xFF2020ff, "MUST BE A NUMBER");
confidence_threshold = 10;
end
else
is_done = true;
color_found = true;
end

if have_coords then
if color_found then
if lsButtonText(10, lsScreenY - 30, 0, 80, 0xFFFFFFff, "Do It") then
go_now = true;
end
end

if lsButtonText(100, lsScreenY - 30, 0, 80, 0xFFA500ff, "Reset") then
have_coords = false;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end
lsDoFrame();
end
-- Wait for shift to be released
while lsShiftHeld() do end;
xyWindowSize = srGetWindowSize();
end

function doit()
askForWindow(askText);
askForPixel();

local t0 = lsGetTimer();
local px = 0;
local index=0;
local color_name, confidence;
local do_screenshot, do_end_burn;
while 1 do
local y = 0;
do_screenshot = false;
checkBreak();
lsSleep(100);
srReadScreen();
new_px = srReadPixel(saved_x, saved_y);
local t = (lsGetTimer() - t0) / 1000 / 60;
t = math.floor(t*10 + 0.5)/10;
local t_string = t;
if not (new_px == px) then
index = index+1;
px = new_px;
color_name, confidence = nearestColor(px);
if take_screenshots then
do_screenshot = true;
end

if stop_at_CB then
if (color_name:upper() == stop_at_color:upper()) then
if confidence > confidence_threshold then
do_end_burn = true;
else
for i = 1, 3 do
lsPlaySound("Clank.wav");
lsSleep(50);
end
end
else
lsPlaySound("Clank.wav");
end
else
lsPlaySound("Clank.wav");
end
end

y = y + 5;
lsPrintWrapped(5, y, 1, lsScreenX - 10, 0.7, 0.7, 0xFFFFFFff,
"Screen: " .. index .. " Timer: " .. t_string);
y = y + 15;
lsPrintWrapped(5, y, 1, lsScreenX - 10, 0.7, 0.7, 0xFFFFFFff,
"Color: " .. color_name .. " Confidence: " .. confidence);

y = y + 30;
lsPrintWrapped(5, y, 1, lsScreenX - 10, 0.7, 0.7, 0xFFFFFFff,
"(" .. (math.floor(px/256/256/256) % 256) .. "," .. (math.floor(px/256/256) % 256) .. "," .. (math.floor(px/256) % 256) .. "," .. (px % 256) .. ") Hex: " .. DEC_HEX(math.floor((new_px/256) % 16777216)));

if lsButtonText(lsScreenX - 110, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end
lsDoFrame();
srReadScreen();
if do_screenshot then
srSaveLastReadScreen("screen_" .. index .. "_" .. t_string .. ".png");
end

if do_end_burn then
clickAllText("Interrupt");
lsPlaySound("Complete.wav");
error ("Stopped burn at: " .. stop_at_color .. " Confidence: " .. confidence);
end
end
end
</pre>
{{Collapse bottom}}

{{Collapse top|title=Food Timer (IN TESTING v1)}}
<pre>
-- Food stat timer, made by Selune. Version 1.

loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();

per_click_delay = 10;
log_lines = {};
num_log_lines = 10;
food_name = "Blocker";
function log(msg)
lsPrintln(msg);
if #log_lines == num_log_lines then
for i=1,num_log_lines-1 do
log_lines[i] = log_lines[i+1];
end
log_lines[num_log_lines] = msg;
else
log_lines[#log_lines+1] = msg;
end
end

local last_time = 0;
function timedLog(new_time)
local timeDiff;

timeDiff = new_time - last_time;
last_time = new_time;

log(food_name .. " -- Duration: " .. math.floor(timeDiff / 1000 / 60) .. ":" .. math.mod(timeDiff / 1000, 60));
end

function askForImage()
haveCoords = false;
go_now = false;
while not go_now do
checkBreak();
srReadScreen();
mouse_x, mouse_y = srMousePos();
local y = 10;
local x = 40;

if not have_coords then
lsPrintWrapped(x, y, 1, lsScreenX - x - 10, 0.7, 0.7, 0xFFFFFFff,
"Put your mouse in the top left of the Strength stat NUMBER. You should see all stat values in the preview. It doesn't have to be perfect!");

srMakeImage("CUSTOM", mouse_x, mouse_y, 10, 100);
if lsShiftHeld() then
saved_x = mouse_x;
saved_y = mouse_y;
have_coords = true;
end
else
lsPrintWrapped(x, y, 1, lsScreenX - x - 10, 0.7, 0.7, 0xFFFFFFff,
"Coords chosen, press 'Reset' to change or 'Do It' to start.");
srMakeImage("CUSTOM", saved_x, saved_y, 10, 100);
end

if have_coords then
if lsButtonText(10, lsScreenY - 30, 0, 80, 0xFFFFFFff, "Do It") then
go_now = true;
end

if lsButtonText(100, lsScreenY - 30, 0, 80, 0xFFA500ff, "Reset") then
have_coords = false;
end
end

if lsButtonText(lsScreenX - 100, lsScreenY - 30, 0, 80, 0xFFFFFFff, "Exit") then
error "Canceled";
end

srShowImageDebug("CUSTOM", 8, 8, 1, 3);
lsDoFrame();
end
end

function doit()
askForWindow("Food Timer - Records how long a particular meal lasts, down to the half-second. Works even with aqueduct or other already-running food buffs (So eat blocker first!) Made by Selune!");
askForImage();
srMakeImage("CUR_STATS", saved_x, saved_y, 10, 100);

for i=1, 20 do
log("...");
end

local t0 = lsGetTimer();
local new_time;
while 1 do
local i = 0;
local y = 5;
local x = 40;
local is_done = false;
new_time = lsGetTimer();
checkBreak();
lsSleep(100);
srReadScreen();

lsPrintWrapped(x, y, 1, lsScreenX - x - 10, 1, 1, 0xFFFFFFff,
"Now recording, eat up!");

y = y + 25;
lsPrintWrapped(x, y, 1, lsScreenX - x - 10, 1, 1, 0xFF2020ff,
"Remember to block first!");

y = y + 30;
lsPrintWrapped(x, y, 1, lsScreenX - x - 10, 0.7, 0.7, 0xC0C0C0ff,
"Name (for log):");

y = y + 20;
is_done, food_name = lsEditBox("Food Name:", x, y, z, 250, 30, 0.7, 0.7, 0x000000ff, food_name);

if not srFindImageInRange("CUR_STATS", saved_x, saved_y, 10, 100) then
lsSleep(500);
srReadScreen();
srMakeImage("CUR_STATS", saved_x, saved_y, 10, 100);
for i = 1, 3 do
lsPlaySound("Clank.wav");
lsSleep(100);
end
timedLog(new_time - t0);
end

y = y + 30;
if #log_lines then
for i=1, #log_lines do
lsPrint(x + 10, y, 1, 0.7, 0.7, 0x808080ff, log_lines[i]);
y = y + 15;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end

srShowImageDebug("CUR_STATS", 8, 8, 1, 3);
lsDoFrame();
end
end
</pre>
{{Collapse bottom}}

Guilds/HHOFW/mats

2013-01-28T17:00:13Z

Selune: /* Cut Gems Needed */

http://www.atitd.org/wiki/tale6/Guilds/HHOFW_of_Egypt

content from tale 5:

== Donations ==

Always Welcome!!!!!!

The elders of the HHoFW guild do try to gather as many mats as possible, but as a quick scan of the list should make clear, the amount of mats required is prodigious. Our success with vigils in the past, and, undoubtedly, our future success, is dependent on the wonderful folk who keep our chests filled.

Always Needed!!!!

Clearly, a comparison of the "On Hand" column to the "Safe Target" below will show which items we have the most pressing immediate for, but HHoFW plans to run vigils regularly and frequently, so any item in the list you can help with will help a vigil succeed at some point.

Always Appreciated!!!!! 

== Comments ==

• The "Avg. Requirement" column is the mean amount required for a 1250 sacrifice vigil (this was the normal number of sacs accomplished in a T4 vigil extending from dinner time Friday until late afternoon Sunday). However, in any given vigil, the actual amount of any given material requested can vary substantially from this mean.

• The "Safe Target" column is the amount which should be on hand to insure, given the variance in amounts requested for a given vigil, that we will not run out of that material. Note that the amount here reflects the ease or difficulty of manufacture or collection of the given item. For example, the "safe" amount for crucibles is not terribly greater that the mean required amount, since we will have Mason's Benches near the vigil site and can easily generate more if demand is high. However, the safe amount for medium stones is well above the mean required amount, to insure there is a supply for crucible and nail mould manufacture, and reflecting the difficulty (you try to organize a dig in the middle of the night!) of gathering more on short notice.

• We believe this is the complete list. Note that, for example, large gems, cactus sap, metals (as opposed to ores), serpent fish, forged items, glass, grilled vegetables, flystones, gravel were never asked for.

'''We are not sure at this point what additional items will be asked for in T6.'''

'''Altar location 1337 2826''' 
'''Donation warehouses 1337 2826 River Plain PLEASE BRING YOUR DONATIONS TO RP IF POSSIBLE if not other locations are
'''

== The Rules ==

An elder will be running the vigil fire. This person will be keeping a list and handing out mats to sac when your name comes up.

We ask the following to make things easier.

1 - Please ask to be added to the list when you arrive at the vigil fire. We do not add people to the list unless they are present at the fire.

2 - If you have to go afk during the time you are on the list please tell the elder running the fire. If you are away an extended period of time you will be skipped. (we do not want to hand out mats to people afk) It is helpful for the fire tender if you sit afk.

3 - If your name is called 3 times and you do not answer your turn will be skipped.

4 - If you are working on mats for vigil and are away from the fire when your name is called we will hold your sac.

5 - If you want to acro during vigil please do, we encourage that but please watch guild chat and come back for your sac if it is your turn.

6 - When you are leaving please let the elder know so they can take you off the list.

7 - '''SACS ARE LIMITED TO 35 PER PERSON'''

'''Donations'''

We do our best to have the safe target on hand before each vigil but as you can see on the materials page it is a huge task. We don't require a fee to do a vigil but do appreciate donations. We have a stashable wh at the vigil site and would appreciate donations to be brought there. If you can't do this we also have whs in each region. Coords of all whs are above.

1 - Please only put items in the donation wh that are listed below. While we'd love to have your large gems they aren't an item asked for by the vigil.

2 - There are chests in the cp that you can unload things like insects, fish oil, etc that you accumulate while collecting for vigil. Please put those items there.

3 - When vigil is over we appreciate everyone who participated to help refill the whs for the next group.

4 - Please don't update the wiki. This will be done by an elder.

There aren't a lot of rules. Please remember it is very hard to keep track of the fire and we need to make it easier for the elder running it.

Besides passing a test this is a great opportunity to make new friends and have some fun. Acro, smoke the hookah, chat. The smoother the vigil runs the more fun it is!

Thanks for all your help!

== The List ==
=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used last vigil
|-style="background-color:#aaffaa;"

| Abdju Meat || 2538 || 2500 || 2000 ||
|-style="background-color:#aaffaa;"
| Aluminum Ore || 308 || 200 || 300 || Public mine: 950, 3687
||
|-style="background-color:#aaffaa;"
| Antimony Ore || 783 || || 150 || 300 ||
|-style="background-color:#aaffaa;"
| Ash || 724 || 700 || 700 || no potash, ONLY ash. ||
|-style="background-color:#aaffaa;"
| Baskets || 52 || 25 || 50 || baskets are 200 dried papy EACH ||
|-style="background-color:#aaffaa;"
| Beeswax || 5500 || 4000 || 5000 ||
|-
| Boards || 13256 || 10000 || 15000 ||some in gh ||
|-style="background-color:#aaffaa;"
| Bricks || 7500 || 6500 || 7500 || some in gh ||
|-style="background-color:#aaffaa;"
| cabbage || 4432 || 3000 || 3500 ||
|-style="background-color:#aaffaa;"
| cabbage seeds || 8 || 7 || 8 ||
|-style="background-color:#aaffaa;"
| camel meat || 4271 || 4000 || 4200 ||
|-style="background-color:#aaffaa;"
| camel milk || 2150 || 300 || 500 || ||
|-style="background-color:#aaffaa;"
| canvas || 701 || 500 || 600 || ||
|-style="background-color:#aaffaa;"
| Carp Meat || 4401 || 2700 || 3200 || ||
|-style="background-color:#aaffaa;"
| carrots || 2392 || 1500 || 2000 || ||
|-style="background-color:#aaffaa;"
| carrot seeds || 10 || 6 || 8 ||
|-style="background-color:#aaffaa;"
| Catfish Meat || 2100 || 1500 || 2000 ||
|-style="background-color:#aaffaa;"
| Charcoal || 6006 || 5000 || 6000 || ||
|-style="background-color:#aaffaa;"
| Chicken meat || 2111 || 500 || 600 || ||
|-style="background-color:#aaffaa;"
| Chromis Meat || 2124 || 1500 || 2000 ||
|}

=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-style="background-color:#aaffaa;"
| clay || 4726 || 3500 || 4000 || ||
|-style="background-color:#aaffaa;"
| clay mortars || 582 || 300 || 350 || not wet, just fired ||
|-style="background-color:#aaffaa;"
|copper ore || 2166 || 1000 || 1500 || ||
|-style="background-color:#aaffaa;"
| crucible || 513 || 150 || 250 || ||
|-style="background-color:#aaffaa;"
| cut stone || 1033 || 700 || 950 ||
|-style="background-color:#aaffaa;"
| cuttable stone || 1803 ||1500 || 1700 || ||
|-style="background-color:#aaffaa;"
| Dirt || 3568 || 2500 || 3000 || ||
|-style="background-color:#aaffaa;"
| Dried Flax || 4575 || 4000 || 4500 ||
|-
| Dried Pappy || 2795 || 1500 || 3000 ||
|-style="background-color:#aaffaa;"
| Dung || 3559 || 2500 || 3000 || ||
|-
| Fertile Papy || 6653 || 6000 || 7000 || ||
|-style="background-color:#aaffaa;"
| Firebricks || 15000 || 10000 || 15000 || not wet, just fired ||
|-style="background-color:#aaffaa;"
| Flax || 7232 || 6000 || 7000 ||
|-style="background-color:#aaffaa;"
| Flimsy Brick Racks || 600 || 500 || 600 || ||
|-style="background-color:#aaffaa;"
| Flint || 581 || 250 || 300 || ||
|-
| garlic || 1824 || 1500 || 2000 || ||
|-style="background-color:#aaffaa;"
| garlic seeds || 8 || 8 || 8 || ||
|-style="background-color:#aaffaa;"
| Gold Ore || 234 || 150 || 200 || ||
|}

=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-
| Grilled Fish || 1993 || 2500 || 3000 || Note that you do not need grilled veggies. Only fish. ||
|-style="background-color:#aaffaa;"
| Honey || 4960 || 3500 || 4000 ||
|-style="background-color:#aaffaa;"
| Iron Ore || 335 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Jugs || 5203 || 2500 || 3500 ||
|-style="background-color:#aaffaa;"
| Lead Ore || 523 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Leather || 2068 || 1500 || 2000 || ||
|-
| Leeks || 1614 || 1500 || 2000 ||
|-style="background-color:#aaffaa;"
| Leek seeds || 9 || 6|| 8||
|-style="background-color:#aaffaa;"
| Lime || 600 || 500 || 600 ||
|-style="background-color:#aaffaa;"
| Limestone || 4025 || 3000 || 4000 ||
|-style="background-color:#aaffaa;"
| Linen || 668 || 500 || 600 || ||
|-style="background-color:#aaffaa;"
| Lint || 3302 || 2500 || 3000 || ||
|-style="background-color:#aaffaa;"
| Lithium Ore || 373 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Magnesium Ore || 1782 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Mandibular Glue || 642 || 300 || 600 || ||
|-style="background-color:#aaffaa;"
| Med Diamond || 238 || 150 || 200 || ||
|-style="background-color:#aaffaa;"
| Med Emeralds || 228 || 150 || 200 || ||
|-style="background-color:#aaffaa;"
| Med Quartz || 564 || 400 || 500 || ||
|-style="background-color:#aaffaa;"
| Med Ruby || 319 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Med sapphire || 240 || 150 || 200 || ||
|-style="background-color:#aaffaa;"
| Med Stone || 425 || 300 || 400 || ||
|-style="background-color:#aaffaa;"
| Med Topaz || 210 || 150 || 200 || ||
|}

=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-style="background-color:#aaffaa;"
| Mutton || 2200 || 2000 || 2200 || ||
|-style="background-color:#aaffaa;"
| Nail Mould || 175 || 114 || 150 || ||
|-style="background-color:#aaffaa;"
| Oil || 2036 || 1000 || 2000 || ||
|-
| Onions || 2358 || 2000 || 2500 || ||
|-style="background-color:#aaffaa;"
| onion seeds || 8 || 7 || 8 ||
|-style="background-color:#aaffaa;"
| Perch Meat || 2600 || 2000 || 2500 || ||
|-style="background-color:#aaffaa;"
| Phagrus Meat || 2273 || 1500 || 2000 || ||
|-style="background-color:#aaffaa;"
| Platinum Ore || 313 || 200 || 250 || ||
|-style="background-color:#aaffaa;"
| Pulley || 324 || 250 || 300 || ||
|-style="background-color:#aaffaa;"
| Rope || 3000 || 2500 || 3000 ||
|-style="background-color:#aaffaa;"
| Rotten Flax || 7070 || 6000 || 7000 ||
|-style="background-color:#aaffaa;"
| Saltpeter || 440 || 350 || 400 || ||
|-style="background-color:#aaffaa;"
| Silt || 9010 || 5000 || 7500 || ||
|-style="background-color:#aaffaa;"
| Silver || 270 || 100 || 200 || ||36
|-style="background-color:#aaffaa;"
| Slate || 5981 || 3000 || 4000 || between slate, stone blades and slate shovels (2 slate ea) you will need LOTS of slate ||
|-style="background-color:#aaffaa;"
| Slate Shovel || 400 || 300 || 400 || 800 slate + 800 boards ||
|-style="background-color:#aaffaa;"
| Sm Diamond || 455 || 400 || 450 || ||
|-style="background-color:#aaffaa;"
| Sm Emerald || 400 || 300 || 400 || ||
|-style="background-color:#aaffaa;"
| Sm Quartz || 504 || 400 || 500 || ||
|-style="background-color:#aaffaa;"
| Sm Ruby || 462 || 400 || 450 || ||
|-style="background-color:#aaffaa;"
| Sm Sapphire || 410 || 300 || 400 || ||
|-style="background-color:#aaffaa;"
| Sm topaz || 412 || 300 || 400 || ||
|}

=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-style="background-color:#aaffaa;"
| Stone Blade || 3997 || 1500 || 2000 || 4000 slate ||
|-style="background-color:#aaffaa;"
| Straw || 5070 || 4000 || 5000 || grass is not called for, only straw ||
|-style="background-color:#aaffaa;"
| Strontium Ore || 300 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Sulfur || 370 || 250 || 300 || sulfurous water is not called for, only sulphur ||
|-style="background-color:#aaffaa;"
| Thorns || 11703 || 6000 || 7500 || ||
|-style="background-color:#aaffaa;"
| Thread || 8003 || 6000 || 8000 || ||
|-style="background-color:#aaffaa;"
| Tilapia Meat || 1201 || 800 || 1100 || ||
|-style="background-color:#aaffaa;"
| Tin Ore || 398 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Titanium Ore || 661 || 100 || 200 || ||
|-style="background-color:#aaffaa;"
| Tow || 3601 || 3000 || 3500 || ||
|-style="background-color:#aaffaa;"
| Tungsten Ore || 462 || 150 || 200 || ||
|-style="background-color:#aaffaa;"
| Twine || 2876 || 1500 || 2000 || ||
|-
| Wood || 17313 || 17000 || 20000 || ||
|-style="background-color:#aaffaa;"
| Zinc Ore || 224 || 150 || 200 || ||
|}

== Other Mats Needed ==

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Target
!Comments
|-style="background-color:#aaffaa;"
| Cactus Sap || 793 || 200 || For lures
|-style="background-color:#aaffaa;"
| Iron || 100 || 100 || For construction and blacksmithing
|-style="background-color:#aaffaa;"
| Shovel 8K+ || 7 || 2 || Will be requested; need several qualities
|-style="background-color:#aaffaa;"
| Shovel 7K+ || 2 || 2 || Will be requested; need several qualities
|-style="background-color:#aaffaa;"
| Shovel 6K+ || 7 || 2 || Will be requested; need several qualities
|-style="background-color:#aaffaa;"
| Shovel 5K+ || 2 || 2 || Will be requested; need several qualities
|-style="background-color:#aaffaa;"
| Carp Blades || || 20 || Might be be requested; need a bunch to support our carpentry shops(in wh near carp shops)
|-
| Hookah || || 1 || Donor gets naming rights
|-
| Herbs || || Lots || Variety rather than quantity. So the donor of the hookah doesn't feel like it was wasted effort
|-
| Resin || || lots || Need variety
|}

== Cuttables ==

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-
|-style="background-color:#aaffaa;"
| Cuttable Amethyst || 35 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Citrine || 46 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Garnet || 47 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Jade || 57 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Lapis || 35 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Sunstone || 28 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Turquoise || 36 ||20||25|| ||
|}

== Cut Gems Needed ==

{|border=1 cellpadding=2 cellspacing=0
|-
!Gem !! Qty On Hand !! Target !! Qty Needed
|-
|Aidenn Mask ||6 || 3|| 0
|-
|Amanti ||4 || 3 ||0
|-
|Amunet ||9 ||3 ||0
|-
|Appolonia ||4 ||3 ||0
|-
|Bastet ||11 ||5 ||0
|-
|Bridge ||5 || 5 ||0
|-
|Cat's Eye ||2 || 5 ||3
|-
|Choronzon ||2 || 3 ||1
|-
|Corner Heart ||3 || 3 ||0
|-
|Crater ||4 || 3 ||0
|-
|Dalessi ||1 || 3 ||2
|-
|Dragyn's Eye ||2 || 5 ||3
|-
||Eyelet ||26 || 5|| 0
|-
|Full Aidenn Mask ||11 || 5 ||0
|-
|Full Eye ||12 ||3 ||0
|-
|Hexas Plate ||2 ||3 ||1
|-
|Hile's Chevrons ||2 || 3 ||1
|-
|Khufu's Ship ||4 ||3 ||0
|-
|King's Tomb ||2 || 5 ||3
|-
|Lens ||27 || 3 ||0
|-
|Looking Glass ||8 ||3 ||0
|-
|Lotus ||7 || 5 ||0
|-
|Moorish Arch ||0 || 3 ||3
|-
|Osiris Eye ||4 || 3 ||0
|-
|Prism ||4 || 3 ||0
|-
|Queen's Tomb ||4 ||3 ||0
|-
|Ra's Lantern ||3 || 5 ||2
|-
|Reflection ||1 ||5 ||4
|-
|Refractor ||2 || 3 ||1
|-
|Ring ||2 ||5 ||3
|-
|Shen of Horus ||0 || 3 ||3
|-
|Solarkin ||2 ||3 ||1
|-
|Sprocket ||6 ||3 ||0
|-
|Suspension ||3 ||3 ||0
|-
|Symmetry ||17 || 3 ||0
|-
|The Shark ||7 || 5 || 0
|-
|Thistle ||23 ||3 ||0
|-
|Thoth's Knot ||2 ||5 ||3
|-
|Tiki Mask ||0 ||5|| 5
|-
|Tombstone ||0 ||3 ||3
|-
| Triclops||4||3||0
|-
| Unity ||3||5||2
|}

Guilds/HHOFW/mats

2013-01-28T16:58:14Z

Selune: /* Cut Gems Needed */

http://www.atitd.org/wiki/tale6/Guilds/HHOFW_of_Egypt

content from tale 5:

== Donations ==

Always Welcome!!!!!!

The elders of the HHoFW guild do try to gather as many mats as possible, but as a quick scan of the list should make clear, the amount of mats required is prodigious. Our success with vigils in the past, and, undoubtedly, our future success, is dependent on the wonderful folk who keep our chests filled.

Always Needed!!!!

Clearly, a comparison of the "On Hand" column to the "Safe Target" below will show which items we have the most pressing immediate for, but HHoFW plans to run vigils regularly and frequently, so any item in the list you can help with will help a vigil succeed at some point.

Always Appreciated!!!!! 

== Comments ==

• The "Avg. Requirement" column is the mean amount required for a 1250 sacrifice vigil (this was the normal number of sacs accomplished in a T4 vigil extending from dinner time Friday until late afternoon Sunday). However, in any given vigil, the actual amount of any given material requested can vary substantially from this mean.

• The "Safe Target" column is the amount which should be on hand to insure, given the variance in amounts requested for a given vigil, that we will not run out of that material. Note that the amount here reflects the ease or difficulty of manufacture or collection of the given item. For example, the "safe" amount for crucibles is not terribly greater that the mean required amount, since we will have Mason's Benches near the vigil site and can easily generate more if demand is high. However, the safe amount for medium stones is well above the mean required amount, to insure there is a supply for crucible and nail mould manufacture, and reflecting the difficulty (you try to organize a dig in the middle of the night!) of gathering more on short notice.

• We believe this is the complete list. Note that, for example, large gems, cactus sap, metals (as opposed to ores), serpent fish, forged items, glass, grilled vegetables, flystones, gravel were never asked for.

'''We are not sure at this point what additional items will be asked for in T6.'''

'''Altar location 1337 2826''' 
'''Donation warehouses 1337 2826 River Plain PLEASE BRING YOUR DONATIONS TO RP IF POSSIBLE if not other locations are
'''

== The Rules ==

An elder will be running the vigil fire. This person will be keeping a list and handing out mats to sac when your name comes up.

We ask the following to make things easier.

1 - Please ask to be added to the list when you arrive at the vigil fire. We do not add people to the list unless they are present at the fire.

2 - If you have to go afk during the time you are on the list please tell the elder running the fire. If you are away an extended period of time you will be skipped. (we do not want to hand out mats to people afk) It is helpful for the fire tender if you sit afk.

3 - If your name is called 3 times and you do not answer your turn will be skipped.

4 - If you are working on mats for vigil and are away from the fire when your name is called we will hold your sac.

5 - If you want to acro during vigil please do, we encourage that but please watch guild chat and come back for your sac if it is your turn.

6 - When you are leaving please let the elder know so they can take you off the list.

7 - '''SACS ARE LIMITED TO 35 PER PERSON'''

'''Donations'''

We do our best to have the safe target on hand before each vigil but as you can see on the materials page it is a huge task. We don't require a fee to do a vigil but do appreciate donations. We have a stashable wh at the vigil site and would appreciate donations to be brought there. If you can't do this we also have whs in each region. Coords of all whs are above.

1 - Please only put items in the donation wh that are listed below. While we'd love to have your large gems they aren't an item asked for by the vigil.

2 - There are chests in the cp that you can unload things like insects, fish oil, etc that you accumulate while collecting for vigil. Please put those items there.

3 - When vigil is over we appreciate everyone who participated to help refill the whs for the next group.

4 - Please don't update the wiki. This will be done by an elder.

There aren't a lot of rules. Please remember it is very hard to keep track of the fire and we need to make it easier for the elder running it.

Besides passing a test this is a great opportunity to make new friends and have some fun. Acro, smoke the hookah, chat. The smoother the vigil runs the more fun it is!

Thanks for all your help!

== The List ==
=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used last vigil
|-style="background-color:#aaffaa;"

| Abdju Meat || 2538 || 2500 || 2000 ||
|-style="background-color:#aaffaa;"
| Aluminum Ore || 308 || 200 || 300 || Public mine: 950, 3687
||
|-style="background-color:#aaffaa;"
| Antimony Ore || 783 || || 150 || 300 ||
|-style="background-color:#aaffaa;"
| Ash || 724 || 700 || 700 || no potash, ONLY ash. ||
|-style="background-color:#aaffaa;"
| Baskets || 52 || 25 || 50 || baskets are 200 dried papy EACH ||
|-style="background-color:#aaffaa;"
| Beeswax || 5500 || 4000 || 5000 ||
|-
| Boards || 13256 || 10000 || 15000 ||some in gh ||
|-style="background-color:#aaffaa;"
| Bricks || 7500 || 6500 || 7500 || some in gh ||
|-style="background-color:#aaffaa;"
| cabbage || 4432 || 3000 || 3500 ||
|-style="background-color:#aaffaa;"
| cabbage seeds || 8 || 7 || 8 ||
|-style="background-color:#aaffaa;"
| camel meat || 4271 || 4000 || 4200 ||
|-style="background-color:#aaffaa;"
| camel milk || 2150 || 300 || 500 || ||
|-style="background-color:#aaffaa;"
| canvas || 701 || 500 || 600 || ||
|-style="background-color:#aaffaa;"
| Carp Meat || 4401 || 2700 || 3200 || ||
|-style="background-color:#aaffaa;"
| carrots || 2392 || 1500 || 2000 || ||
|-style="background-color:#aaffaa;"
| carrot seeds || 10 || 6 || 8 ||
|-style="background-color:#aaffaa;"
| Catfish Meat || 2100 || 1500 || 2000 ||
|-style="background-color:#aaffaa;"
| Charcoal || 6006 || 5000 || 6000 || ||
|-style="background-color:#aaffaa;"
| Chicken meat || 2111 || 500 || 600 || ||
|-style="background-color:#aaffaa;"
| Chromis Meat || 2124 || 1500 || 2000 ||
|}

=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-style="background-color:#aaffaa;"
| clay || 4726 || 3500 || 4000 || ||
|-style="background-color:#aaffaa;"
| clay mortars || 582 || 300 || 350 || not wet, just fired ||
|-style="background-color:#aaffaa;"
|copper ore || 2166 || 1000 || 1500 || ||
|-style="background-color:#aaffaa;"
| crucible || 513 || 150 || 250 || ||
|-style="background-color:#aaffaa;"
| cut stone || 1033 || 700 || 950 ||
|-style="background-color:#aaffaa;"
| cuttable stone || 1803 ||1500 || 1700 || ||
|-style="background-color:#aaffaa;"
| Dirt || 3568 || 2500 || 3000 || ||
|-style="background-color:#aaffaa;"
| Dried Flax || 4575 || 4000 || 4500 ||
|-
| Dried Pappy || 2795 || 1500 || 3000 ||
|-style="background-color:#aaffaa;"
| Dung || 3559 || 2500 || 3000 || ||
|-
| Fertile Papy || 6653 || 6000 || 7000 || ||
|-style="background-color:#aaffaa;"
| Firebricks || 15000 || 10000 || 15000 || not wet, just fired ||
|-style="background-color:#aaffaa;"
| Flax || 7232 || 6000 || 7000 ||
|-style="background-color:#aaffaa;"
| Flimsy Brick Racks || 600 || 500 || 600 || ||
|-style="background-color:#aaffaa;"
| Flint || 581 || 250 || 300 || ||
|-
| garlic || 1824 || 1500 || 2000 || ||
|-style="background-color:#aaffaa;"
| garlic seeds || 8 || 8 || 8 || ||
|-style="background-color:#aaffaa;"
| Gold Ore || 234 || 150 || 200 || ||
|}

=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-
| Grilled Fish || 1993 || 2500 || 3000 || Note that you do not need grilled veggies. Only fish. ||
|-style="background-color:#aaffaa;"
| Honey || 4960 || 3500 || 4000 ||
|-style="background-color:#aaffaa;"
| Iron Ore || 335 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Jugs || 5203 || 2500 || 3500 ||
|-style="background-color:#aaffaa;"
| Lead Ore || 523 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Leather || 2068 || 1500 || 2000 || ||
|-
| Leeks || 1614 || 1500 || 2000 ||
|-style="background-color:#aaffaa;"
| Leek seeds || 9 || 6|| 8||
|-style="background-color:#aaffaa;"
| Lime || 600 || 500 || 600 ||
|-style="background-color:#aaffaa;"
| Limestone || 4025 || 3000 || 4000 ||
|-style="background-color:#aaffaa;"
| Linen || 668 || 500 || 600 || ||
|-style="background-color:#aaffaa;"
| Lint || 3302 || 2500 || 3000 || ||
|-style="background-color:#aaffaa;"
| Lithium Ore || 373 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Magnesium Ore || 1782 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Mandibular Glue || 642 || 300 || 600 || ||
|-style="background-color:#aaffaa;"
| Med Diamond || 238 || 150 || 200 || ||
|-style="background-color:#aaffaa;"
| Med Emeralds || 228 || 150 || 200 || ||
|-style="background-color:#aaffaa;"
| Med Quartz || 564 || 400 || 500 || ||
|-style="background-color:#aaffaa;"
| Med Ruby || 319 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Med sapphire || 240 || 150 || 200 || ||
|-style="background-color:#aaffaa;"
| Med Stone || 425 || 300 || 400 || ||
|-style="background-color:#aaffaa;"
| Med Topaz || 210 || 150 || 200 || ||
|}

=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-style="background-color:#aaffaa;"
| Mutton || 2200 || 2000 || 2200 || ||
|-style="background-color:#aaffaa;"
| Nail Mould || 175 || 114 || 150 || ||
|-style="background-color:#aaffaa;"
| Oil || 2036 || 1000 || 2000 || ||
|-
| Onions || 2358 || 2000 || 2500 || ||
|-style="background-color:#aaffaa;"
| onion seeds || 8 || 7 || 8 ||
|-style="background-color:#aaffaa;"
| Perch Meat || 2600 || 2000 || 2500 || ||
|-style="background-color:#aaffaa;"
| Phagrus Meat || 2273 || 1500 || 2000 || ||
|-style="background-color:#aaffaa;"
| Platinum Ore || 313 || 200 || 250 || ||
|-style="background-color:#aaffaa;"
| Pulley || 324 || 250 || 300 || ||
|-style="background-color:#aaffaa;"
| Rope || 3000 || 2500 || 3000 ||
|-style="background-color:#aaffaa;"
| Rotten Flax || 7070 || 6000 || 7000 ||
|-style="background-color:#aaffaa;"
| Saltpeter || 440 || 350 || 400 || ||
|-style="background-color:#aaffaa;"
| Silt || 9010 || 5000 || 7500 || ||
|-style="background-color:#aaffaa;"
| Silver || 270 || 100 || 200 || ||36
|-style="background-color:#aaffaa;"
| Slate || 5981 || 3000 || 4000 || between slate, stone blades and slate shovels (2 slate ea) you will need LOTS of slate ||
|-style="background-color:#aaffaa;"
| Slate Shovel || 400 || 300 || 400 || 800 slate + 800 boards ||
|-style="background-color:#aaffaa;"
| Sm Diamond || 455 || 400 || 450 || ||
|-style="background-color:#aaffaa;"
| Sm Emerald || 400 || 300 || 400 || ||
|-style="background-color:#aaffaa;"
| Sm Quartz || 504 || 400 || 500 || ||
|-style="background-color:#aaffaa;"
| Sm Ruby || 462 || 400 || 450 || ||
|-style="background-color:#aaffaa;"
| Sm Sapphire || 410 || 300 || 400 || ||
|-style="background-color:#aaffaa;"
| Sm topaz || 412 || 300 || 400 || ||
|}

=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-style="background-color:#aaffaa;"
| Stone Blade || 3997 || 1500 || 2000 || 4000 slate ||
|-style="background-color:#aaffaa;"
| Straw || 5070 || 4000 || 5000 || grass is not called for, only straw ||
|-style="background-color:#aaffaa;"
| Strontium Ore || 300 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Sulfur || 370 || 250 || 300 || sulfurous water is not called for, only sulphur ||
|-style="background-color:#aaffaa;"
| Thorns || 11703 || 6000 || 7500 || ||
|-style="background-color:#aaffaa;"
| Thread || 8003 || 6000 || 8000 || ||
|-style="background-color:#aaffaa;"
| Tilapia Meat || 1201 || 800 || 1100 || ||
|-style="background-color:#aaffaa;"
| Tin Ore || 398 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Titanium Ore || 661 || 100 || 200 || ||
|-style="background-color:#aaffaa;"
| Tow || 3601 || 3000 || 3500 || ||
|-style="background-color:#aaffaa;"
| Tungsten Ore || 462 || 150 || 200 || ||
|-style="background-color:#aaffaa;"
| Twine || 2876 || 1500 || 2000 || ||
|-
| Wood || 17313 || 17000 || 20000 || ||
|-style="background-color:#aaffaa;"
| Zinc Ore || 224 || 150 || 200 || ||
|}

== Other Mats Needed ==

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Target
!Comments
|-style="background-color:#aaffaa;"
| Cactus Sap || 793 || 200 || For lures
|-style="background-color:#aaffaa;"
| Iron || 100 || 100 || For construction and blacksmithing
|-style="background-color:#aaffaa;"
| Shovel 8K+ || 7 || 2 || Will be requested; need several qualities
|-style="background-color:#aaffaa;"
| Shovel 7K+ || 2 || 2 || Will be requested; need several qualities
|-style="background-color:#aaffaa;"
| Shovel 6K+ || 7 || 2 || Will be requested; need several qualities
|-style="background-color:#aaffaa;"
| Shovel 5K+ || 2 || 2 || Will be requested; need several qualities
|-style="background-color:#aaffaa;"
| Carp Blades || || 20 || Might be be requested; need a bunch to support our carpentry shops(in wh near carp shops)
|-
| Hookah || || 1 || Donor gets naming rights
|-
| Herbs || || Lots || Variety rather than quantity. So the donor of the hookah doesn't feel like it was wasted effort
|-
| Resin || || lots || Need variety
|}

== Cuttables ==

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-
|-style="background-color:#aaffaa;"
| Cuttable Amethyst || 35 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Citrine || 46 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Garnet || 47 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Jade || 57 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Lapis || 35 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Sunstone || 28 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Turquoise || 36 ||20||25|| ||
|}

== Cut Gems Needed ==

{|border=1 cellpadding=2 cellspacing=0
|-
!Gem !! Qty On Hand !! Target !! Qty Needed
|-
|Aidenn Mask ||6 || 3|| 0
|-
|Amanti ||4 || 3 ||0
|-
|Amunet ||9 ||3 ||0
|-
|Appolonia ||4 ||3 ||0
|-
|Bastet ||11 ||5 ||0
|-
|Bridge ||5 || 5 ||0
|-
|Cat's Eye ||2 || 5 ||3
|-
|Choronzon ||2 || 3 ||1
|-
|Corner Heart ||3 || 3 ||0
|-
|Crater ||4 || 3 ||0
|-
|Dalessi ||1 || 3 ||2
|-
|Dragyn's Eye ||2 || 5 ||3
|-
||Eyelet ||26 || 5|| 10
|-
|Full Aidenn Mask ||11 || 5 ||0
|-
|Full Eye ||12 ||3 ||0
|-
|Hexas Plate ||2 ||3 ||1
|-
|Hile's Chevrons ||2 || 3 ||1
|-
|Khufu's Ship ||4 ||3 ||0
|-
|King's Tomb ||2 || 5 ||3
|-
|Lens ||27 || 3 ||0
|-
|Looking Glass ||8 ||3 ||0
|-
|Lotus ||7 || 5 ||0
|-
|Moorish Arch ||0 || 3 ||3
|-
|Osiris Eye ||4 || 3 ||0
|-
|Prism ||4 || 3 ||0
|-
|Queen's Tomb ||4 ||3 ||0
|-
|Ra's Lantern ||3 || 5 ||2
|-
|Reflection ||1 ||5 ||4
|-
|Refractor ||2 || 3 ||1
|-
|Ring ||2 ||5 ||3
|-
|Shen of Horus ||0 || 3 ||3
|-
|Solarkin ||2 ||3 ||1
|-
|Sprocket ||6 ||3 ||0
|-
|Suspension ||3 ||3 ||0
|-
|Symmetry ||17 || 3 ||0
|-
|The Shark ||7 || 5 || 0
|-
|Thistle ||23 ||3 ||0
|-
|Thoth's Knot ||2 ||5 ||3
|-
|Tiki Mask ||0 ||5|| 5
|-
|Tombstone ||0 ||3 ||3
|-
| Triclops||4||3||0
|-
| Unity ||3||5||2
|}

Guilds/HHOFW/mats

2013-01-28T16:56:58Z

Selune: /* Cut Gems Needed */

http://www.atitd.org/wiki/tale6/Guilds/HHOFW_of_Egypt

content from tale 5:

== Donations ==

Always Welcome!!!!!!

The elders of the HHoFW guild do try to gather as many mats as possible, but as a quick scan of the list should make clear, the amount of mats required is prodigious. Our success with vigils in the past, and, undoubtedly, our future success, is dependent on the wonderful folk who keep our chests filled.

Always Needed!!!!

Clearly, a comparison of the "On Hand" column to the "Safe Target" below will show which items we have the most pressing immediate for, but HHoFW plans to run vigils regularly and frequently, so any item in the list you can help with will help a vigil succeed at some point.

Always Appreciated!!!!! 

== Comments ==

• The "Avg. Requirement" column is the mean amount required for a 1250 sacrifice vigil (this was the normal number of sacs accomplished in a T4 vigil extending from dinner time Friday until late afternoon Sunday). However, in any given vigil, the actual amount of any given material requested can vary substantially from this mean.

• The "Safe Target" column is the amount which should be on hand to insure, given the variance in amounts requested for a given vigil, that we will not run out of that material. Note that the amount here reflects the ease or difficulty of manufacture or collection of the given item. For example, the "safe" amount for crucibles is not terribly greater that the mean required amount, since we will have Mason's Benches near the vigil site and can easily generate more if demand is high. However, the safe amount for medium stones is well above the mean required amount, to insure there is a supply for crucible and nail mould manufacture, and reflecting the difficulty (you try to organize a dig in the middle of the night!) of gathering more on short notice.

• We believe this is the complete list. Note that, for example, large gems, cactus sap, metals (as opposed to ores), serpent fish, forged items, glass, grilled vegetables, flystones, gravel were never asked for.

'''We are not sure at this point what additional items will be asked for in T6.'''

'''Altar location 1337 2826''' 
'''Donation warehouses 1337 2826 River Plain PLEASE BRING YOUR DONATIONS TO RP IF POSSIBLE if not other locations are
'''

== The Rules ==

An elder will be running the vigil fire. This person will be keeping a list and handing out mats to sac when your name comes up.

We ask the following to make things easier.

1 - Please ask to be added to the list when you arrive at the vigil fire. We do not add people to the list unless they are present at the fire.

2 - If you have to go afk during the time you are on the list please tell the elder running the fire. If you are away an extended period of time you will be skipped. (we do not want to hand out mats to people afk) It is helpful for the fire tender if you sit afk.

3 - If your name is called 3 times and you do not answer your turn will be skipped.

4 - If you are working on mats for vigil and are away from the fire when your name is called we will hold your sac.

5 - If you want to acro during vigil please do, we encourage that but please watch guild chat and come back for your sac if it is your turn.

6 - When you are leaving please let the elder know so they can take you off the list.

7 - '''SACS ARE LIMITED TO 35 PER PERSON'''

'''Donations'''

We do our best to have the safe target on hand before each vigil but as you can see on the materials page it is a huge task. We don't require a fee to do a vigil but do appreciate donations. We have a stashable wh at the vigil site and would appreciate donations to be brought there. If you can't do this we also have whs in each region. Coords of all whs are above.

1 - Please only put items in the donation wh that are listed below. While we'd love to have your large gems they aren't an item asked for by the vigil.

2 - There are chests in the cp that you can unload things like insects, fish oil, etc that you accumulate while collecting for vigil. Please put those items there.

3 - When vigil is over we appreciate everyone who participated to help refill the whs for the next group.

4 - Please don't update the wiki. This will be done by an elder.

There aren't a lot of rules. Please remember it is very hard to keep track of the fire and we need to make it easier for the elder running it.

Besides passing a test this is a great opportunity to make new friends and have some fun. Acro, smoke the hookah, chat. The smoother the vigil runs the more fun it is!

Thanks for all your help!

== The List ==
=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used last vigil
|-style="background-color:#aaffaa;"

| Abdju Meat || 2538 || 2500 || 2000 ||
|-style="background-color:#aaffaa;"
| Aluminum Ore || 308 || 200 || 300 || Public mine: 950, 3687
||
|-style="background-color:#aaffaa;"
| Antimony Ore || 783 || || 150 || 300 ||
|-style="background-color:#aaffaa;"
| Ash || 724 || 700 || 700 || no potash, ONLY ash. ||
|-style="background-color:#aaffaa;"
| Baskets || 52 || 25 || 50 || baskets are 200 dried papy EACH ||
|-style="background-color:#aaffaa;"
| Beeswax || 5500 || 4000 || 5000 ||
|-
| Boards || 13256 || 10000 || 15000 ||some in gh ||
|-style="background-color:#aaffaa;"
| Bricks || 7500 || 6500 || 7500 || some in gh ||
|-style="background-color:#aaffaa;"
| cabbage || 4432 || 3000 || 3500 ||
|-style="background-color:#aaffaa;"
| cabbage seeds || 8 || 7 || 8 ||
|-style="background-color:#aaffaa;"
| camel meat || 4271 || 4000 || 4200 ||
|-style="background-color:#aaffaa;"
| camel milk || 2150 || 300 || 500 || ||
|-style="background-color:#aaffaa;"
| canvas || 701 || 500 || 600 || ||
|-style="background-color:#aaffaa;"
| Carp Meat || 4401 || 2700 || 3200 || ||
|-style="background-color:#aaffaa;"
| carrots || 2392 || 1500 || 2000 || ||
|-style="background-color:#aaffaa;"
| carrot seeds || 10 || 6 || 8 ||
|-style="background-color:#aaffaa;"
| Catfish Meat || 2100 || 1500 || 2000 ||
|-style="background-color:#aaffaa;"
| Charcoal || 6006 || 5000 || 6000 || ||
|-style="background-color:#aaffaa;"
| Chicken meat || 2111 || 500 || 600 || ||
|-style="background-color:#aaffaa;"
| Chromis Meat || 2124 || 1500 || 2000 ||
|}

=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-style="background-color:#aaffaa;"
| clay || 4726 || 3500 || 4000 || ||
|-style="background-color:#aaffaa;"
| clay mortars || 582 || 300 || 350 || not wet, just fired ||
|-style="background-color:#aaffaa;"
|copper ore || 2166 || 1000 || 1500 || ||
|-style="background-color:#aaffaa;"
| crucible || 513 || 150 || 250 || ||
|-style="background-color:#aaffaa;"
| cut stone || 1033 || 700 || 950 ||
|-style="background-color:#aaffaa;"
| cuttable stone || 1803 ||1500 || 1700 || ||
|-style="background-color:#aaffaa;"
| Dirt || 3568 || 2500 || 3000 || ||
|-style="background-color:#aaffaa;"
| Dried Flax || 4575 || 4000 || 4500 ||
|-
| Dried Pappy || 2795 || 1500 || 3000 ||
|-style="background-color:#aaffaa;"
| Dung || 3559 || 2500 || 3000 || ||
|-
| Fertile Papy || 6653 || 6000 || 7000 || ||
|-style="background-color:#aaffaa;"
| Firebricks || 15000 || 10000 || 15000 || not wet, just fired ||
|-style="background-color:#aaffaa;"
| Flax || 7232 || 6000 || 7000 ||
|-style="background-color:#aaffaa;"
| Flimsy Brick Racks || 600 || 500 || 600 || ||
|-style="background-color:#aaffaa;"
| Flint || 581 || 250 || 300 || ||
|-
| garlic || 1824 || 1500 || 2000 || ||
|-style="background-color:#aaffaa;"
| garlic seeds || 8 || 8 || 8 || ||
|-style="background-color:#aaffaa;"
| Gold Ore || 234 || 150 || 200 || ||
|}

=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-
| Grilled Fish || 1993 || 2500 || 3000 || Note that you do not need grilled veggies. Only fish. ||
|-style="background-color:#aaffaa;"
| Honey || 4960 || 3500 || 4000 ||
|-style="background-color:#aaffaa;"
| Iron Ore || 335 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Jugs || 5203 || 2500 || 3500 ||
|-style="background-color:#aaffaa;"
| Lead Ore || 523 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Leather || 2068 || 1500 || 2000 || ||
|-
| Leeks || 1614 || 1500 || 2000 ||
|-style="background-color:#aaffaa;"
| Leek seeds || 9 || 6|| 8||
|-style="background-color:#aaffaa;"
| Lime || 600 || 500 || 600 ||
|-style="background-color:#aaffaa;"
| Limestone || 4025 || 3000 || 4000 ||
|-style="background-color:#aaffaa;"
| Linen || 668 || 500 || 600 || ||
|-style="background-color:#aaffaa;"
| Lint || 3302 || 2500 || 3000 || ||
|-style="background-color:#aaffaa;"
| Lithium Ore || 373 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Magnesium Ore || 1782 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Mandibular Glue || 642 || 300 || 600 || ||
|-style="background-color:#aaffaa;"
| Med Diamond || 238 || 150 || 200 || ||
|-style="background-color:#aaffaa;"
| Med Emeralds || 228 || 150 || 200 || ||
|-style="background-color:#aaffaa;"
| Med Quartz || 564 || 400 || 500 || ||
|-style="background-color:#aaffaa;"
| Med Ruby || 319 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Med sapphire || 240 || 150 || 200 || ||
|-style="background-color:#aaffaa;"
| Med Stone || 425 || 300 || 400 || ||
|-style="background-color:#aaffaa;"
| Med Topaz || 210 || 150 || 200 || ||
|}

=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-style="background-color:#aaffaa;"
| Mutton || 2200 || 2000 || 2200 || ||
|-style="background-color:#aaffaa;"
| Nail Mould || 175 || 114 || 150 || ||
|-style="background-color:#aaffaa;"
| Oil || 2036 || 1000 || 2000 || ||
|-
| Onions || 2358 || 2000 || 2500 || ||
|-style="background-color:#aaffaa;"
| onion seeds || 8 || 7 || 8 ||
|-style="background-color:#aaffaa;"
| Perch Meat || 2600 || 2000 || 2500 || ||
|-style="background-color:#aaffaa;"
| Phagrus Meat || 2273 || 1500 || 2000 || ||
|-style="background-color:#aaffaa;"
| Platinum Ore || 313 || 200 || 250 || ||
|-style="background-color:#aaffaa;"
| Pulley || 324 || 250 || 300 || ||
|-style="background-color:#aaffaa;"
| Rope || 3000 || 2500 || 3000 ||
|-style="background-color:#aaffaa;"
| Rotten Flax || 7070 || 6000 || 7000 ||
|-style="background-color:#aaffaa;"
| Saltpeter || 440 || 350 || 400 || ||
|-style="background-color:#aaffaa;"
| Silt || 9010 || 5000 || 7500 || ||
|-style="background-color:#aaffaa;"
| Silver || 270 || 100 || 200 || ||36
|-style="background-color:#aaffaa;"
| Slate || 5981 || 3000 || 4000 || between slate, stone blades and slate shovels (2 slate ea) you will need LOTS of slate ||
|-style="background-color:#aaffaa;"
| Slate Shovel || 400 || 300 || 400 || 800 slate + 800 boards ||
|-style="background-color:#aaffaa;"
| Sm Diamond || 455 || 400 || 450 || ||
|-style="background-color:#aaffaa;"
| Sm Emerald || 400 || 300 || 400 || ||
|-style="background-color:#aaffaa;"
| Sm Quartz || 504 || 400 || 500 || ||
|-style="background-color:#aaffaa;"
| Sm Ruby || 462 || 400 || 450 || ||
|-style="background-color:#aaffaa;"
| Sm Sapphire || 410 || 300 || 400 || ||
|-style="background-color:#aaffaa;"
| Sm topaz || 412 || 300 || 400 || ||
|}

=== ===

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-style="background-color:#aaffaa;"
| Stone Blade || 3997 || 1500 || 2000 || 4000 slate ||
|-style="background-color:#aaffaa;"
| Straw || 5070 || 4000 || 5000 || grass is not called for, only straw ||
|-style="background-color:#aaffaa;"
| Strontium Ore || 300 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Sulfur || 370 || 250 || 300 || sulfurous water is not called for, only sulphur ||
|-style="background-color:#aaffaa;"
| Thorns || 11703 || 6000 || 7500 || ||
|-style="background-color:#aaffaa;"
| Thread || 8003 || 6000 || 8000 || ||
|-style="background-color:#aaffaa;"
| Tilapia Meat || 1201 || 800 || 1100 || ||
|-style="background-color:#aaffaa;"
| Tin Ore || 398 || 200 || 300 || ||
|-style="background-color:#aaffaa;"
| Titanium Ore || 661 || 100 || 200 || ||
|-style="background-color:#aaffaa;"
| Tow || 3601 || 3000 || 3500 || ||
|-style="background-color:#aaffaa;"
| Tungsten Ore || 462 || 150 || 200 || ||
|-style="background-color:#aaffaa;"
| Twine || 2876 || 1500 || 2000 || ||
|-
| Wood || 17313 || 17000 || 20000 || ||
|-style="background-color:#aaffaa;"
| Zinc Ore || 224 || 150 || 200 || ||
|}

== Other Mats Needed ==

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Target
!Comments
|-style="background-color:#aaffaa;"
| Cactus Sap || 793 || 200 || For lures
|-style="background-color:#aaffaa;"
| Iron || 100 || 100 || For construction and blacksmithing
|-style="background-color:#aaffaa;"
| Shovel 8K+ || 7 || 2 || Will be requested; need several qualities
|-style="background-color:#aaffaa;"
| Shovel 7K+ || 2 || 2 || Will be requested; need several qualities
|-style="background-color:#aaffaa;"
| Shovel 6K+ || 7 || 2 || Will be requested; need several qualities
|-style="background-color:#aaffaa;"
| Shovel 5K+ || 2 || 2 || Will be requested; need several qualities
|-style="background-color:#aaffaa;"
| Carp Blades || || 20 || Might be be requested; need a bunch to support our carpentry shops(in wh near carp shops)
|-
| Hookah || || 1 || Donor gets naming rights
|-
| Herbs || || Lots || Variety rather than quantity. So the donor of the hookah doesn't feel like it was wasted effort
|-
| Resin || || lots || Need variety
|}

== Cuttables ==

{|cellpadding="2" cellspacing="0" border="1"
!Item
!On Hand
!Avg. Requirement
!Safe Target
!Comments
!Used Last Vigil
|-
|-style="background-color:#aaffaa;"
| Cuttable Amethyst || 35 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Citrine || 46 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Garnet || 47 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Jade || 57 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Lapis || 35 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Sunstone || 28 ||20||25|| ||
|-style="background-color:#aaffaa;"
| Cuttable Turquoise || 36 ||20||25|| ||
|}

== Cut Gems Needed ==

{|border=1 cellpadding=2 cellspacing=0
|-
!Gem !! Qty On Hand !! Target !! Qty Needed
|-
|Aidenn Mask ||6 || 3|| 0
|-
|Amanti ||4 || 3 ||0
|-
|Amunet ||9 ||3 ||0
|-
|Appolonia ||4 ||3 ||0
|-
|Bastet ||11 ||5 ||0
|-
|Bridge ||5 || 5 ||0
|-
|Cat's Eye ||2 || 5 ||3
|-
|Choronzon ||2 || 3 ||1
|-
|Corner Heart ||3 || 3 ||0
|-
|Crater ||4 || 3 ||0
|-
|Dalessi ||1 || 3 ||2
|-
|Dragyn's Eye ||2 || 5 ||3
|-
||Eyelet ||26 || 5|| 10
|-
|Full Aidenn Mask ||11 || 5 ||0
|-
|Full Eye ||12 ||3 ||0
|-
|Hexas Plate ||2 ||3 ||1
|-
|Hile's Chevrons ||2 || 3 ||1
|-
|Khufu's Ship ||4 ||3 ||0
|-
|King's Tomb ||2 || 5 ||3
|-
|Lens ||27 || 3 ||0
|-
|Looking Glass ||8 ||3 ||0
|-
|Lotus ||7 || 5 ||0
|-
|Moorish Arch ||0 || 3 ||3
|-
|Osiris Eye ||4 || 3 ||0
|-
|Prism ||4 || 3 ||0
|-
|Queen's Tomb ||4 ||3 ||0
|-
|Ra's Lantern ||3 || 5 ||2
|-
|Reflection ||1 ||5 ||4
|-
|Refractor ||2 || 3 ||1
|-
|Ring ||2 ||5 ||3
|-
|Shen of Horus ||0 || 3 ||3
|-
|Solarkin ||0 ||3 ||3
|-
|Sprocket ||6 ||3 ||0
|-
|Suspension ||3 ||3 ||0
|-
|Symmetry ||17 || 3 ||0
|-
|The Shark ||7 || 5 || 0
|-
|Thistle ||23 ||3 ||0
|-
|Thoth's Knot ||2 ||5 ||3
|-
|Tiki Mask ||0 ||5|| 5
|-
|Tombstone ||0 ||3 ||3
|-
| Triclops||4||3||0
|-
| Unity ||3||5||2
|}

User:Selune/Leavened Bread

2013-01-23T04:30:44Z

Selune:

<pre>
ATITD - Leavened Bread Funtimes

Priest 1: Selune
Priest 2: Strutter
Priest 3: kuupid
Priest 4: Rania
Priest 5: Zotep

Selune chooses "Begin the Ritual of Leavened Bread" under his/her Tests/Test of Leavened Bread menu.
Players 1-5 drink a cup of beer in order from the tasting table. Selune, Strutter, kuupid, Rania, Zotep.
Selune does the "Command Me from Heaven" emote and says (in Main): "Bless us oh god as we humbly seek your wisdom"
Strutter does the "Take My Blood" emote and says (in Main): "We ask for your blessings on this home and its generous proprietor"
kuupid does the "Show Me Mercy" emote and says (in Main): "We ask that you bless us all your humble servants"
Rania does the "Enter My Soul" emote and says (in Main): "Reveal to us your spirit and wisdom and how we might please you"
Zotep does the "Share My Joy" emote and says (in main): "Guide us in preparing our day's bread to fortify and enlighten us and our brethren and to earn your blessings"
All players should press the "Clipboard" button on the popup and then paste it into guild chat (Ctrl-V). Make sure to note this information down!

God: Horus
Wheat: Akhet Wheat
Enriched: With Dates
Moistener & Beer: Water in Jugs, Blackberry Beer
Tasks: Gather Clay, Catch a Fish
Bread is for: New Initiates of Harmony

Incantations:
Oh Horus, we ask you to bless Selune.
Oh Horus, we ask you to bless Strutter.
Oh Horus, we ask you to bless kuupid.
Oh Horus, we ask you to bless Rania.
Oh Horus, we ask you to bless Zotep.

Strutter drops an emir mortar on the ground and builds a bonfire of exactly 105 wood near it.
Strutter adds wheat (5000 per loaf) to this single mortar. All the wheat used goes into *one* mortar.
kuupid adds moistener (1 per loaf) and beer (1 barrel total no matter how many loaves) to the mortar.
Strutter adds the additive (1 per loaf) to the mortar.
*PAUSE*
Strutter lights the bonfire.
When the wood gets down to about 50, Selune pastes the five prepared lines one by one into Main.
When the fire reaches 0 wood, Strutter moves the emir mortar to the bonfire. This is a menu option on the mortar.
Once the mortar has been moved to the fire, one player (any) must perform stoking duty. Each time the fire reaches 0 wood, that player adds 1 wood and 1 water to the bonfire until the bread is baked.
During the stoking phase, Rania performs the common actions mentioned in the vision.
Strutter will get a clear notice (popup) when the bread is ready.
Strutter builds a second bonfire of 10 wood, lights it, and sacrifices one of the breads on the bonfire.
</pre>

User:Selune/Leavened Bread

2013-01-23T03:59:05Z

Selune:

<pre>ATITD - Leavened Bread Funtimes

Priest 1: Selune
Priest 2: Strutter
Priest 3: kuupid
Priest 4: Rania
Priest 5: Zotep

Selune chooses "Begin the Ritual of Leavened Bread" under his/her Tests/Test of Leavened Bread menu.
Players 1-5 drink a cup of beer in order from the tasting table. Selune, Strutter, kuupid, Rania, Zotep.
Selune does the "Command Me from Heaven" emote and says (in Main): "Bless us oh god as we humbly seek your wisdom"
Strutter does the "Take My Blood" emote and says (in Main): "We ask for your blessings on this home and its generous proprietor"
kuupid does the "Show Me Mercy" emote and says (in Main): "We ask that you bless us all your humble servants"
Rania does the "Enter My Soul" emote and says (in Main): "Reveal to us your spirit and wisdom and how we might please you"
Zotep does the "Share My Joy" emote and says (in main): "Guide us in preparing our day's bread to fortify and enlighten us and our brethren and to earn your blessings"
All players should press the "Clipboard" button on the popup and then paste it into guild chat (Ctrl-V). Make sure to note this information down!

God: Buto
Wheat: Peret Wheat
Enriched: With Aromatic Honey
Moistener & Beer: Water in Jugs, and Orange Beer
Tasks: Harvest Wood, Feed a Rabbit
Bread is for: New Initiate of Art and Music

Incantations:
Oh Buto, we ask you to bless Selune.
Oh Buto, we ask you to bless Strutter.
Oh Buto, we ask you to bless kuupid.
Oh Buto, we ask you to bless Rania.
Oh Buto, we ask you to bless Zotep.

Strutter drops an emir mortar on the ground and builds a bonfire of exactly 105 wood near it.
Strutter adds wheat (5000 per loaf) to this single mortar. All the wheat used goes into *one* mortar.
kuupid adds moistener (1 per loaf) and beer (1 barrel total no matter how many loaves) to the mortar.
Strutter adds the additive (1 per loaf) to the mortar.
*PAUSE*
Strutter lights the bonfire.
When the wood gets down to about 50, Selune pastes the five prepared lines one by one into Main.
When the fire reaches 0 wood, Strutter moves the emir mortar to the bonfire. This is a menu option on the mortar.
Once the mortar has been moved to the fire, one player (any) must perform stoking duty. Each time the fire reaches 0 wood, that player adds 1 wood and 1 water to the bonfire until the bread is baked.
During the stoking phase, Rania performs the common actions mentioned in the vision.
Strutter will get a clear notice (popup) when the bread is ready.
Strutter builds a second bonfire of 10 wood, lights it, and sacrifices one of the breads on the bonfire.
</pre>

User:Selune/Leavened Bread

2013-01-23T02:28:32Z

Selune:

<pre>
ATITD - Leavened Bread Funtimes

Priest 1: Selune
Priest 2: Strutter
Priest 3: kuupid
Priest 4: Aubery
Priest 5: Saicosis

Selune chooses "Begin the Ritual of Leavened Bread" under his/her Tests/Test of Leavened Bread menu.
Players 1-5 drink a cup of beer in order from the tasting table. Selune, Strutter, kuupid, Aubery, Saicosis.
Selune does the "Command Me from Heaven" emote and says (in Main): "Bless us oh god as we humbly seek your wisdom"
Strutter does the "Take My Blood" emote and says (in Main): "We ask for your blessings on this home and its generous proprietor"
kuupid does the "Show Me Mercy" emote and says (in Main): "We ask that you bless us all your humble servants"
Aubery does the "Enter My Soul" emote and says (in Main): "Reveal to us your spirit and wisdom and how we might please you"
Saicosis does the "Share My Joy" emote and says (in main): "Guide us in preparing our day's bread to fortify and enlighten us and our brethren and to earn your blessings"
All players should press the "Clipboard" button on the popup and then paste it into guild chat (Ctrl-V). Make sure to note this information down!

God: Anubis
Wheat: Peret Wheat
Enriched: With wine
Moistener & Beer: Cabbage Juice, Black Beer
Tasks: Dig clay, catch fish
Bread is for: Newly Wed

Incantations:
Oh Anubis, we ask you to bless Selune.
Oh Anubis, we ask you to bless Strutter.
Oh Anubis, we ask you to bless kuupid.
Oh Anubis, we ask you to bless Aubery.
Oh Anubis, we ask you to bless Saicosis.

Strutter drops an emir mortar on the ground and builds a bonfire of exactly 105 wood near it.
Strutter adds wheat (5000 per loaf) to this single mortar. All the wheat used goes into *one* mortar.
kuupid adds moistener (1 per loaf) and beer (1 barrel total no matter how many loaves) to the mortar.
Strutter adds the additive (1 per loaf) to the mortar.
*PAUSE*
Strutter lights the bonfire.
When the wood gets down to about 50, Selune pastes the five prepared lines one by one into Main.
When the fire reaches 0 wood, Strutter moves the emir mortar to the bonfire. This is a menu option on the mortar.
Once the mortar has been moved to the fire, one player (any) must perform stoking duty. Each time the fire reaches 0 wood, that player adds 1 wood and 1 water to the bonfire until the bread is baked.
During the stoking phase, Aubery performs the common actions mentioned in the vision.
Strutter will get a clear notice (popup) when the bread is ready.
Strutter builds a second bonfire of 10 wood, lights it, and sacrifices one of the breads on the bonfire.
</pre>

User:Selune/Leavened Bread

2013-01-23T02:19:45Z

Selune: Created page with "<pre> ATITD - Leavened Bread Funtimes Priest 1: Selune Priest 2: Strutter Priest 3: kuupid Priest 4: Aubery Priest 5: Saicosis Selune chooses "Begin the Ritual of Leavened Bre..."

<pre>
ATITD - Leavened Bread Funtimes

Priest 1: Selune
Priest 2: Strutter
Priest 3: kuupid
Priest 4: Aubery
Priest 5: Saicosis

Selune chooses "Begin the Ritual of Leavened Bread" under his/her Tests/Test of Leavened Bread menu.
Players 1-5 drink a cup of beer in order from the tasting table. Selune, Strutter, kuupid, Aubery, Saicosis.
Selune does the "Command Me from Heaven" emote and says (in Main): "Bless us oh god as we humbly seek your wisdom"
Strutter does the "Take My Blood" emote and says (in Main): "We ask for your blessings on this home and its generous proprietor"
kuupid does the "Show Me Mercy" emote and says (in Main): "We ask that you bless us all your humble servants"
Aubery does the "Enter My Soul" emote and says (in Main): "Reveal to us your spirit and wisdom and how we might please you"
Saicosis does the "Share My Joy" emote and says (in main): "Guide us in preparing our day's bread to fortify and enlighten us and our brethren and to earn your blessings"
All players should press the "Clipboard" button on the popup and then paste it into guild chat (Ctrl-V). Make sure to note this information down!

God: Bhuto

Incantations:
Oh Buto, we ask you to bless Selune.
Oh Buto, we ask you to bless Strutter.
Oh Buto, we ask you to bless kuupid.
Oh Buto, we ask you to bless Aubery.
Oh Buto, we ask you to bless Saicosis.

Strutter drops an emir mortar on the ground and builds a bonfire of exactly 105 wood near it.
Strutter adds wheat (5000 per loaf) to this single mortar. All the wheat used goes into *one* mortar.
kuupid adds moistener (1 per loaf) and beer (1 barrel total no matter how many loaves) to the mortar.
Strutter adds the additive (1 per loaf) to the mortar.
*PAUSE*
Strutter lights the bonfire.
When the wood gets down to about 50, Selune pastes the five prepared lines one by one into Main.
When the fire reaches 0 wood, Strutter moves the emir mortar to the bonfire. This is a menu option on the mortar.
Once the mortar has been moved to the fire, one player (any) must perform stoking duty. Each time the fire reaches 0 wood, that player adds 1 wood and 1 water to the bonfire until the bread is baked.
During the stoking phase, Aubery performs the common actions mentioned in the vision.
Strutter will get a clear notice (popup) when the bread is ready.
Strutter builds a second bonfire of 10 wood, lights it, and sacrifices one of the breads on the bonfire.
</pre>

Marble Obelisk

2013-01-22T20:45:42Z

Selune: /* Material Requirements by Size */

{{Template:BuildingInfo|image=Obemarbre.JPG|size=n/a|where=[[where::Small Construction Site]]|description=Fifth obelisk type.}}

== Source ==
This building becomes available when you learn the [[Obelisk Construction 5]]* tech. You must also have started the [[Test of the Obelisk]].

<nowiki>*</nowiki>Note that this tech CANNOT be taught. You must learn it from the University.

== Time Required To Hold Power ==
Once built your obelisk must be the tallest in the region for a number of days without anyone building a larger one in order to pass the test.

35 Egyptian days = approx. 12 days real time.

==Material Requirements by Size==
Built in a [[requires::Small Construction Site]].

{|border="1" cellpadding="5" cellspacing="0"
!Height
![[requires::Oyster Shell Marble]]
![[requires::Yellow Alabaster]]
![[requires::Mud Granite]]
![[requires::White Travertine]]
![[requires::Canary Granite]]
![[requires::Night Granite]]
![[requires::Grey Star Marble]]
![[Gems#Diamond | Small Diamond]]
![[requires::Cobra Skin]]
![[requires::Sun Steel]]
![[requires::Dried Flax]]
![[requires::Gold Wire]]
![[requires::Rabbit Pelt]]
|- align="right"
| 7|| 0|| 0|| 0|| 0|| 0|| 0|| 0|| 2|| 0|| 0|| 1000|| 100|| 100
|- align="right"
| 8|| 0|| 0|| 0|| 0|| 0|| 0|| 0|| 2|| 0|| 0|| 1000|| 100|| 100
|- align="right"
| 9|| 0|| 0|| 0|| 0|| 0|| 0|| 0|| 3|| 0|| 0|| 1000|| 100|| 100
|- align="right"
| 10|| 1|| 0|| 0|| 0|| 0|| 0|| 0|| 3|| 1|| 0|| 1000|| 100|| 100
|- align="right"
| 12|| 1|| 0|| 0|| 0|| 0|| 0|| 0|| 4|| 1|| 0|| 1000|| 100|| 100
|- align="right"
| 1000|| 912|| 501|| 631|| 611|| 325|| 54|| 29|| 2313|| 1100|| 1297|| 1000|| 100|| 100
|}

[[Category:Buildings]]
[[Category:Obelisks]]

User:Strutter/macro

2013-01-21T21:23:57Z

Selune: /* jug.lua */

edit and copy code to notepad or other text editor
==jug.lua==
<pre>
loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();
loadfile("luaScripts/common.inc")();
loadfile("luaScripts/serialize.inc")();
loadfile("luaScripts/settings.inc")();
loadfile("luaScripts/constants.inc")();

gridHeight = 5;
gridWidth = 6;
firstx = 200;
firsty = 166;
incx = 82;
incy = 82;
x = 0;
y = 0;

function doit()

askForWindow( "Make sure your chats are minimized, you are in the F8F8 view, " .. "and you can see all your pottery wheels then hover ATITD window and press Shift to continue.");
-- or press Control for setup");
promptForSettings();
while 1 do
lsSleep(150);

prompt()

x = firstx;
y = firsty;

for row =1, gridHeight do

for column=1, gridWidth do
checkBreak();

srSetMousePos(x , y);
lsSleep(150);
srKeyEvent("t");
lsSleep(150);
srKeyEvent("j");
x = x + incx;
--lsSleep(150);
srReadScreen();
if(srFindImage("toMake.png",5000)) then
closeAllWindows();
error("Out of supplies");
end

end
x = firstx;
y = y + incy;
end
end
end

function promptForSettings()
-- lifted from brickhotkeys.lua

scale = 1;

local z = 0;
local is_done = nil;
local value = nil;
-- Edit box and text display
while not is_done do
checkBreak();

local y = 5;

lsSetCamera(0,0,lsScreenX*scale,lsScreenY*scale);

lsPrint(5, y, z, scale, scale, 0xFFFFFFff, "Grid width:");
gridWidth = readSetting("gridWidth",gridWidth);
is_done, gridWidth = lsEditBox("gridWidth", 125, y, z, 50, 30, scale, scale,
0x000000ff, gridWidth);
if not tonumber(gridWidth) then
is_done = nil;
lsPrint(10, y+18, z+10, 0.7, 0.7, 0xFF2020ff, "MUST BE A NUMBER");
gridWidth = 1;
end
gridWidth = tonumber(gridWidth);
writeSetting("gridWidth",gridWidth);
y = y + 32;

lsPrint(5, y, z, scale, scale, 0xFFFFFFff, "Grid height:");
gridHeight = readSetting("gridHeight",gridHeight);
is_done, gridHeight = lsEditBox("gridHeight", 125, y, z, 50, 30, scale, scale,
0x000000ff, gridHeight);
if not tonumber(gridHeight) then
is_done = nil;
lsPrint(10, y+18, z+10, 0.7, 0.7, 0xFF2020ff, "MUST BE A NUMBER");
gridHeight = 1;
end
gridHeight = tonumber(gridHeight);
writeSetting("gridHeight",gridHeight);
y = y + 32;

if lsButtonText(10, (lsScreenY - 30) * scale, z, 100, 0xFFFFFFff, "OK") then
is_done = 1;
end

if lsButtonText((lsScreenX - 100) * scale, (lsScreenY - 30) * scale, z, 100, 0xFFFFFFff,
"End script") then
error "Clicked End Script button";
end

lsDoFrame();
lsSleep(150);

end
end

function prompt()
statusScreen("Press Ctrl to continue.");
waitForKeypress(true);
statusScreen("Release the Ctrl button.");
waitForKeyrelease();
lsSleep(150);
statusScreen("");
lsSleep(150);
return
end
</pre>

Guilds/HHOFW of Egypt

2013-01-19T19:36:25Z

Selune: /* Guild Elder Shift Sign Ups */

HHOFW of Egypt

A worship guild connected with Helping Hands of Friends.

[[Category:Guilds]]

== [[Festival Supplies|HHOFW festival supplies]]==

==Leavend Bread==
Date to run: February 24, 6:00EST
Group #1
Asheara
kuupid
Arahgon
Pheros
Nitocris

Group #2
Eclypse
Milythael
Lindie
Hamadi
farmer

Group #3
Yondri
Fumen
Morrigan
Jaylenaeybarre
Sasha

Group #4
Dalia
BlueBell

== Pilgrimage ==

PILGRIM GROUP!!
group #1 Running: Feb. 9 at 12:00 EST

Milythael
Windsong
Sasha
Fumen
Asheara
Kuupid
Zhukuram
(PASSED)

Group #2
Obol
Shemei
Nethkharia
Jyin
wulffgrymm
Remco
natta
(PASSED)

GROUP #3
Casino, Dalia, Hamadi, Yari, Bryce, Chet Stevehotep (PASSED)

GROUP #4
Farmer, Rana, Eclypse, Menoblack, gyges, Roweena, windingo (passed)

GROUP #5
PetrusIV, GHawkins, Pira, Arahgon, Nitocris,Mariamom, Pheros (passed)

GROUP 6: Bluebell, Kohaus, Peaches, Orchid, River,Tripps,SinDrome
WAITING LIST:

Bluebell
Nicko
JaylenaeYbarre
Thunderstorm
Xaxyx
Helena
Mariamom
PetrusIV
Sheeba
Naia
Wing
Chip
Dale
Ahnati
Lindie
Torendo
Keta
Olivia
Anuket
Porthos
Bessieloo
Armatus
Bastia
Strutter
Menmaatre

See info on link below:
Please see the [[Guilds/HHOFW/pilgrim|planning page]].

== Vigil ==

=== General ===

HHoFW vigils are run on a donation basis; we attempt, through donations and the efforts of guild members, to stockpile sufficient materials to fully meet the requirements of a 48+ hour vigil. Participants are required to bring nothing, but donations are welcome and appreciated. (Participants need to have signed up at UWorship for Test of the Vigil.)

During the vigil, one guild elder will always be acting as the leader. That person will maintain a list of the individuals currently participating. The leader will assign sacrifices to those individuals on a round robin basis, withdrawing the required mats from guild storage and giving them to the individual to whom a sac is assigned.

Participants are required to join the HHoFW of Egypt guild; guild house is at 1343 2798 in River Plains. Altar located at 1337 2826 (West of Uthought).
Upon arrival at the vigil site, guild members who wish to join the group currently being given sacs should announce to the leader their arrival and request to be added to the active list.

Individuals in the current active sac list are expected to be available and reasonably close to the vigil leader when it is their turn to make a sacrifice. If you are AFK or not nearby, the leader may skip you and move on to the next name on the list. Some sacrifices may exceed your carry capacity, so try to stand within range of the vigil fire, while being in a spot where the leader can easily see and select you (so as to give you mats). Participants are free to leave and return as often as they like, however, when doing do, please inform the leader so the list can be updated. Similarly, when going AFK or logging out, please also inform the leader.

Please do not ask to sac unless you have not passed Test of the Vigil. In the past there was a myth which surfaced from time to time that the more people who participated in a vigil, including those who have passed, the better it was. In fact, as simply doing some arithmetic with the scoring system will show, anytime a person who has passed makes a sacrifice instead of someone who has not, the only effect is to lower the points credited to at least one person who needs to pass.

Again, we operate through donations. Please do consider helping out.

'''SACS UNLIMITED PER PERSON. SUBJECT TO CHANGE LATER IN THE GAME'''

'''Altar 1337 2826''' 
'''Donation warehouses 1331 2827'''

=== Material Needed and Inventories ===

Please see the [[Guilds/HHOFW/mats|materials page]].

=== Guild Elder Shift Sign Ups ===

Next Vigil: January 25th, 26th and Ends at 1AM EST on the 27th

Time:8:00 PM EST

Date: to be announced

Day:to be announced (will be shut down at on )

Times are EST

{|cellpadding="2" cellspacing="0" border="1"
!Time
!Elder
|-
| day 1 ||
|-
| 8pm - 12am ||kuupid
|-
| day 2||
|-
| 12am - 4am || Selune
|-
| 4am - 8am || Selune
|-
| 8am - 12pm ||
|-
| 12pm - 4pm ||
|-
| 4pm - 8pm ||
|-
| 8pm - 12am ||
|-
| day 3||
|-
| 12am - 4am ||
|-
| 4am - 8am ||
|-
| 8am - 12pm ||

|}

[[Category:Guilds]]{{DEFAULTSORT:HHOFW_of_Egypt}}

User:Selune

2013-01-16T16:35:23Z

Selune:

User:Selune

2013-01-16T00:16:57Z

Selune:

Selune's Macros have been updated to the TaleScripts repository. Please leave any ideas for improvements or new macros here.

{{Collapse top|title=Paint Reaction Template}}
<pre>
Cabbage | RedSand | G | -11 | 26
Cabbage | Iron | W | 27 | 27
Cabbage | Copper | W | -20 | -60
Cabbage | Potash | B | 19 | -63
Carrot | RedSand | B | 32 | -26
Carrot | Lead | W | -17 | 61
Carrot | Potash | W | -59 | 56
Carrot | Lime | G | 0 | 23
Clay | Lead | B | 32 | -16
Clay | Copper | R | 20 | -12
Clay | Sulfur | G | -55 | -41
Clay | Saltpeter | B | 54 | 35
Lead | Iron | B | 4 | 14
Lead | Copper | W | -25 | -40
Lead | Saltpeter | G | -7 | 47
Iron | Sulfur | G | -17 | 0
Iron | Saltpeter | W | -55 | 7
Copper | Sulfur | W | -25 | -12
Copper | Saltpeter | B | 42 | 4
</pre>
{{Collapse bottom}}

{{Collapse top|title=Fishing Macro for Testing}}
<pre>
-- Pin up your Lures menu 'Self Click, Skills, Fishing, Use Lure' (no other pinned up windows can exist)
-- Should have (Chat-Related): 'Chat and Inventory can be minimized' AND 'Minimized chat-channels are still visible'.
-- You must have Main Chat tab showing at all times and window is long/wide enough so no lines don't wrap.

-- Yes, this macro reads your MAIN chat screen, so make sure you read the above statement for it to work correctly.
-- Each line of text must not scroll/wrap to the next line. If it does, then drag your chat window wider so it doesn't wrap.
-- You want to make your chat very wide. Note: It is possible to see a LONG message like "Though you lost your lure, you did catch a 15 deben Orange Spongefish"
-- Another long message is "You didn't catch anything. You also lost your lure. Try different lures and locations"
-- At 1280x1024 your chat screen should reach at least to the mid point of your screen to avoid having a chat line wrap to next line, for a long message, like above.
-- Higher resolutions may not have to reach quite to the mid point.

-- ********** This macro writes to a log file (Fishlog.txt) for most actions, so you can review later! ******
-- ********** This also macro writes to a log file (Fishstats.txt) showing stats of your last fishing session, so you can review later! ******

--You can delete any of the log files if you wish. It will automatically create new ones if they dont exist.
--The fishlog.txt file gets appended everytime you fish, so the file can grow quite long over time.
--The fishstats.txt file gets overwritten everytime your gui program window updates, so it doesn't 'grow' over time.

-- "Main chat tab is not showing" and other errors can usually be overcome by adjusting the main chat window size and restarting, assuming main chat is showing.
-- And also verify the lines aren't wrapping.

-- The very first thing this macro does is to Self Click, Special, What Time is it? option. This will then display the time in main chat window.
-- The macro then parses time displayed, in main chat tab, so it can use it while the macro runs (Log files and on screen display).
-- Thats what the mysterious Self Click is doing, its not a bug, it is suppose to do that and thats why, to fetch the time.

-- Note: These are currently refered to as Common Fish in the below 'SkipCommon' type of fishes (True or False), in the 'Custom Variables' section.

--Abdju
--Chromis
--Catfish
--Carp
--Perch
--Phagrus
--Tilapia

--CUSTOM VARIABLES -- EDIT HERE To Change Fishing Casts, Skips, Updates.

TotalCasts=3; --Total Casts per lure, if a fish caught. If no fish then it skips.
SkipCommon = false; --Skips to next lure if fish caught is a common (Choose True or False).
LureChangesToUpdateTimer = 7; --Total lures used before time is updated. Zero updates every new lure.
IgnoreUnknown = false; --Continues the script if fish is not recognized

--AlmostCaughtAttempts = 0; --Adds additional attempts to the current lure if Unusual, Strange fish are seen;
-- Note: AlmostCaughtAttempts above was already commented out upon arriving to Talescripts.
-- It is also commented out during the script, so uncommenting above will NOT activate the feature.

-- Additional reporting in the log file
-- Choose True or False.
-- Note 'LogStrangeUnusual' and 'LogOdd' (below) overrides LogFails setting. ie if LogStrange true, then it would still log even if LogFails = False
--If LogFails = false and LogStrangeUnusual or LogOdd = true, then failed catches those would still be included in the log file.

LogFails = true; -- Do you want to add Failed Catches to log file? 'Failed to catch anything' or 'No fish bit'. Note the log will still add an entry if you lost lure.
LogStrangeUnusual = true; -- Do you want to add Strange and Unusual fish to the log file? Note the log will still add an entry if you lost lure.
LogOdd = true; -- Do you want to add Odd fish to the log file? Note the log will still add an entry if you lost lure.

-- END CUSTOM VARIABLES

loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();
loadfile("luaScripts/Fishing_Func.inc")();

function SetupLureGroup()

TLures = {};
FirstLure="";
LastLure = "";

srReadScreen();
FindPin = srFindImage("UnPin.png");
if FindPin then

--Click the pinup to refresh the lures window

srClickMouseNoMove(FindPin[0]+5,FindPin[1]+30);
lsSleep(500);

srReadScreen();

DownPin = srFindImageInRange("Fishing/Menu_DownArrow.png",FindPin[0]-10,FindPin[1],50,500);
if DownPin then
--Just Incase
UpArrow = srFindImageInRange("Fishing/Menu_UpArrow.png",FindPin[0]-10,FindPin[1],50,50);
if UpArrow then
srClickMouseNoMove(UpArrow[0]+5,UpArrow[1]+5);
lsSleep(1000);
srReadScreen();
end

-- srClickMouseNoMove(DownPin[0]+5,DownPin[1]+5);
LastLure=FindLureName(DownPin[0]-150,DownPin[1]-10,150,25);
--error(LastLure);
FirstLure = FindLureName(FindPin[0]-150,FindPin[1]-10,150,25);
-- error(FirstLure);
else
--No Arrows on lure menu?
FirstLure=FindLureName(FindPin[0]-150,FindPin[1]-10,150,25);
LastLure=nil;
end
else
error("Didn\'t find Lures pinned window - Self Click->Skills, Fishing -> Use Lure, PIN THIS WINDOW!");
end

if LastLure ~= nil then
--We have last lure, and arrows showing
ChangeLureMenu = LastLure;

FirstLurLoc = srFindImage("fishing/" .. FirstLure);
LastLurLoc = srFindImage("fishing/" .. LastLure);

for i = 1, #Lures,1 do
test = srFindImageInRange(("fishing/" .. Lures[i]),FirstLurLoc[0]-5,FirstLurLoc[1]-5,175,500);

if test then
--Add Lure
table.insert(TLures,Lures[i]);
if Lures[i] == LastLure then
--End of Menu, Use Down Arrow
arrow=srFindImageInRange("Fishing/menu_downarrow.png",test[0],test[1]-5,175,50);
if arrow then
DownArrowLocs = arrow;
srClickMouseNoMove(arrow[0]+5,arrow[1]+5);
lsSleep(1000);
srReadScreen();
lsSleep(1000);
else
error("no arrow found");
end
end
LastLureMenu = Lures[i];

end
end

--Reset Lure Menu
UpArrow = srFindImageInRange("Fishing/Menu_UpArrow.png",FindPin[0]-10,FindPin[1],50,50);
if UpArrow then
srClickMouseNoMove(UpArrow[0]+5,UpArrow[1]+5);
end

else
--No arrows, just get lures
for i = 1, #Lures, 1 do
test = srFindImage("Fishing/" .. Lures[i]);
if test then
table.insert(TLures,Lures[i]);
end
end
end

return TLures;

end

function FindLureName(x,y,w,h)

for i = 1, #Lures, 1 do
Lure = srFindImageInRange("Fishing/" .. Lures[i], x,y,w,h);
if Lure then
return Lures[i]
end
end
end

function GetLure()

srReadScreen();

if CurrentLureIndex == LastLureIndex then
-- Use Down Menu
srClickMouseNoMove(DownArrowLocs[0]-5,DownArrowLocs[1]-5);
srReadScreen();
end

lure = srFindImage("Fishing/" .. PlayersLures[CurrentLureIndex]);
if not lure then
--Failed to find lure
error("Can\'t find a lure!");
else
slure = Lures[PlayersLures[CurrentLureIndex]];
slure = string.sub(slure,string.find(slure,"_")+1,string.len(slure) - 4);
--statusScreen("Using Lure " .. slure);
return slure
end
end

function UseLure()
-- Uses lure according to CurrentLureIndex, which is used in PlayersLures which contains each lure the player has.

if #TLures == 0 then
error 'Can\'t find any lures on the pinned window. Did you run out of lures?'
end

srReadScreen();
lure = srFindImage("Fishing/" .. PlayersLures[CurrentLureIndex]);

if lure then
srClickMouseNoMove(lure[0]+3,lure[1]+3);
lsSleep(500);
srReadScreen();
-- Find Lure Type
for i = 1, #Lure_Types, 1 do
test = srFindImage("Fishing/" .. Lure_Types[i]);
if test then
--Click it!
srClickMouseNoMove(test[0]+3,test[1]+3);
gui_refresh();
break;
end
end

end

if PlayersLures[CurrentLureIndex] == ChangeLureMenu then
down = srFindImage("Fishing/Menu_DownArrow.png");
srClickMouseNoMove(down[0]+5,down[1]+5);
lsSleep(1000);
elseif PlayersLures[CurrentLureIndex] == LastLureMenu then
up = srFindImage("Fishing/Menu_UpArrow.png");
srClickMouseNoMove(up[0]+5,up[1]+5);
CurrentLureIndex=1;
lsSleep(1000);
end

end

function ChatReadFish()
--Find the last line of chat
lsSleep(100);
srReadScreen();
imgs = findAllImages("fishing/chatlog_reddots.png");
Coords = imgs[#imgs];

-- Look for the ** red dots in main chat to see if they exist.
if #imgs == 0 then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

--Caught Something.. Find Fish Details
Sfish = "";

for i = 1, #CL_Fish do
ChatFish = srFindImageInRange("Fishing/" .. CL_Fish[i],Coords[0] ,Coords[1],500,25);
if ChatFish then
Sfish = string.sub(CL_Fish[i],string.find(CL_Fish[i],"Fish_") + 5,string.len(CL_Fish[i]) - 4);
GrandTotalCaught = GrandTotalCaught + 1
break;
end
end

if string.len(Sfish) < 1 then
-- This fish name and fishname.png file likely needs to be added to Fishing_Func.inc, under the CL_Fish array and the .png added to /Images/Fishing folder
if IgnoreUnknown then
Sfish = "Unknown";
SNum = "1";
else
error("Unknown Fish! PLEASE, Take screenshot (Alt+C) of main chat tab, share with Talescripts team!");
end
else
--Find Size
for i = #CL_Number,1,-1 do
ChatSize = srFindImageInRange("fishing/" .. CL_Number[i],Coords[0],Coords[1],500,25);
if ChatSize then
SNum = string.sub(CL_Number[i],string.find(CL_Number[i],"_") + 1, string.len(CL_Number[i]) - 4);
break;
end
end
GrandTotaldb = GrandTotaldb + SNum;
end

return(Sfish .. " (" .. SNum .. "db)");
end

function findchat(line)
--Reads a chat line and returns a basic string for better processing

-- Odd fish means your fly fishing skill is not high enough. Raise it with enormous amounts of fishing.
-- Strange fish means you need a better rod to catch the rish. You may succeed on future attempts.
-- Unusual fish means your speed skill was not high enough to catch this type of fish. If it is almost enough, you may catch them on future casts.

--Possible fishing messages
-- Caught A (SIZE) Deben (FISH)
-- You almost caught a strange fish
-- (You almost caught a strange fish. You also lost your lure.)
-- You almost caught an unusual fish
-- (You almost caught an unusual fish. You also lost your lure.)
-- You almost caught an odd fish
-- (You almost caught an odd fish. You also lost your lure.)
-- Although you lost your lure (Caught a fish)
-- Using a (LURE) (TYPE) lure.
-- You are carrying more than you can manage.
-- You are carrying too much bulk.
-- You didn't catch anything.
-- (You didn't catch anything. You also lost your lure.)
-- No Fish Bit.
-- (No Fish Bit. You also lost your lure.)

--Find the last line of chat
lsSleep(100);
srReadScreen();
imgs = findAllImages("Fishing/chatlog_reddots.png");
Coords = imgs[#imgs];

-- Look for the ** red dots in main chat to see if they exist.
if #imgs == 0 then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

if line and line > 0 then
Coords = imgs[(#imgs) - line];
if not Coords then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

end

--Find What Happened

ChatType = "";

for i = 1, #Chat_Types -1,2 do
test = srFindImageInRange("Fishing/" .. Chat_Types[i],Coords[0],Coords[1],500,30);
if test then
--Found Chat
ChatType = Chat_Types[i + 1];
break;
end
end

--Break down!
if ChatType then
--if ChatType == "lure" then
--elseif ChatType == "nofishlostlure" then
--elseif ChatType == "nofish" then
--elseif ChatType == "strange" then
--elseif ChatType == "unusual" then
return ChatType;
else
error(ChatType);

end

end

function GetTime()
--Reads time stamp using special->what time menu
winsize = srGetWindowSize();

--Open Menu, Press the Esc key to open the Self Click menu

-- Move mouse to center of screen before Sending the Esc key, to get the Self Click menu. We dont want it self clicking near the edge of screen causing an error.
srSetMousePos(winsize[0]/2,winsize[1]/2);
lsSleep(100); -- This delay is critical for any srSetMousePos. Without it, the mouse will not have time to actually move!

srKeyEvent(string.char(27)); -- Send Esc Key
lsSleep(500);

--Find Special Menu
srReadScreen();
menu = srFindImage("Fishing/Menu_Special.png");

if menu then
--Click it!
srClickMouseNoMove(menu[0]+3,menu[1]+3);

lsSleep(500);
srReadScreen();

-- Look for the What Time Is It? option in menu
menu = srFindImage("Fishing/Menu_WhatTime.png");
if menu then
--Click it!
srClickMouseNoMove(menu[0]+3,menu[1]+3);
lsSleep(500);
end
end

srReadScreen();
imgs = findAllImages("Fishing/chatlog_reddots.png");
Coords = imgs[#imgs];

-- Look for the ** red dots in main chat to see if they exist.
if #imgs == 0 then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

for i = #CL_Time, 1, -1 do
Stime = srFindImageInRange("Fishing/" .. CL_Time[i],Coords[0],Coords[1],400,25);
if Stime then
Hour = string.sub(CL_Time[i],string.find(CL_Time[i],"ime_")+4,string.len(CL_Time[i])-4);

AM = srFindImageInRange("Fishing/Chatlog_Time_AM.png",Coords[0],Coords[1],400,25);
if AM then
CurrentTime=(Hour .. "AM");
return (Hour .. "AM");
else
PM = srFindImageInRange("Fishing/chatlog_time_PM.png",Coords[0],Coords[1],400,25);
if PM then
CurrentTime=(Hour .. "PM");
return (Hour .. "PM");
end
end

end
end
end

function gui_refresh()
lsDoFrame();

if GrandTotalCaught < 10 then
last10 = GrandTotalCaught .. "/10";
else
last10 = 10;
end

--Stats (On Screen Display)
--CurrentLureIndex out of PlayersLures
winsize = lsGetWindowSize();

lsPrintWrapped(10, 0, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Lure Index: " .. CurrentLureIndex .. " out of " .. #PlayersLures .. " " .. PlayersLures[CurrentLureIndex]);

lsPrintWrapped(10, 20, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Time: " .. CurrentTime);

lsPrintWrapped(10, 40, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Last [" .. last10 .. "] Fish Caught:");

--Reset this string before showing last 10 fish below. Else the entries will multiply with entries from previous loops/call to this function
last10caught = "";

if #gui_log_fish > 10 then
table.remove(gui_log_fish,1);
end
for i = 1, #gui_log_fish,1 do
lsPrintWrapped(10, 50 + (12*i), 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, gui_log_fish[i]);
last10caught = last10caught .. gui_log_fish[i] .. "\n";
end

lsPrintWrapped(10, winsize[1]-133, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Odd Fish Seen: " .. GrandTotalOdd);
lsPrintWrapped(10, winsize[1]-121, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Unusual Fish Seen: " .. GrandTotalUnusual);
lsPrintWrapped(10, winsize[1]-109, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Strange Fish Seen: " .. GrandTotalStrange);

lsPrintWrapped(10, winsize[1]-97, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "-----------------------------");

lsPrintWrapped(10, winsize[1]-85, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Lures Clicked: " .. GrandTotalLuresUsed);
lsPrintWrapped(10, winsize[1]-73, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Lures Lost: " .. GrandTotalLostLures);

lsPrintWrapped(10, winsize[1]-61, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "-----------------------------");

lsPrintWrapped(10, winsize[1]-49, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Total Casts: " .. GrandTotalCasts);
lsPrintWrapped(10, winsize[1]-37, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Failed Catches: " .. GrandTotalFailed);
lsPrintWrapped(10, winsize[1]-25, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Fish Caught: " .. GrandTotalCaught .. " (" .. GrandTotaldb .. "db)");

-- Write stats to log file. Everytime the GUI screen is updated, so is the log file.

WriteFishStats("Last Session Hour: " .. CurrentTime .. "\n\nOdd Fish Seen: " .. GrandTotalOdd .. "\nUnusual Fish Seen: " .. GrandTotalUnusual .. "\nStrange Fish Seen: " .. GrandTotalStrange .. "\n---------------------\nLures Clicked: " .. GrandTotalLuresUsed .. "\nLures Lost: " .. GrandTotalLostLures .. " \n---------------------\nTotal Casts: " .. GrandTotalCasts .. "\nFailed Catches: " .. GrandTotalFailed .. "\nFish Caught: " .. GrandTotalCaught .. " (" .. GrandTotaldb .. "db)\n---------------------\n\nLast 10 Fish Caught:\n\n".. last10caught);

end

function doit()
askForWindow("MAIN chat tab MUST be showing and wide enough so that each lines doesn't wrap. Pin up Lures Menu (Self, Skills, Fishing, Use Lures). No other pinned menus can exist. More detailed instructions are included inside the script as comments at top. There are options you can set in the script such as how many casts per lure, what gets written to the log file and more! History will be recorded in FishLog.txt and stats in FishStats.txt. Most errors can be fixed by slightly adjusting/moving your chat screen! Press Shift to continue.");

--Gui_Main();

--Variables Used By Program -- Don't Edit Unless you know what you're doing!
CurrentLure = ""; --Don't Edit
gui_log_fish = {}; --Don't Edit, holds log display
log_fish = {};
CurrentLureIndex=0; -- 1 = First Lure Player Owns in alphabetical order
ChangeLureMenu="";
LastLureMenu="";
DownArrowLocs=nil;
PlayersLures={}; --Don't Edit, Holds Current Player Lures
CurrentTime=""; --Don't Edit, Holds Time Check Value
TotalLuresUsed = 0;
castcount = 0;
--strangecounter = 0;

--These variables were later added for displaying additional info on the screen.
-- Used for the extra reporting/statistics, on screen.
-- Dont Edit Unless you know what you're doing!

GrandTotalCaught = 0;
GrandTotalCasts = 0;
GrandTotaldb = 0;
GrandTotalStrange = 0;
GrandTotalOdd = 0;
GrandTotalUnusual = 0;
GrandTotalLuresUsed = 0;
GrandTotalLostLures = 0;
GrandTotalFailed = 0;

PlayersLures = SetupLureGroup();
CurrentTime = GetTime();
lsSleep(1500);

--Write an entry into log file to show this is a new session
WriteFishLog("[New Session]\n");

while 1 do

checkBreak();
srReadScreen();

--cast = srFindImage("Fishing/Button_Fish.png");
cast = srFindImage("fishicon.png");
if not cast then
error("cannot find fishing button");
end

if castcount == 0 then
--Update counters
castcount = 1;
CurrentLureIndex = CurrentLureIndex +1;

if CurrentLureIndex > #PlayersLures then
--Refresh the Lure window, and reindex it, in case some were lost.
PlayersLures = SetupLureGroup();
CurrentLureIndex = 1;
end

--Update the time if ready, always update before new lure to keep chat/log proper
if TotalLuresUsed == LureChangesToUpdateTimer then
--Update Time

CurrentTime = GetTime();
TotalLuresUsed = 0;
end

--Since no casts been made at all, use a lure
UseLure();
lsSleep(2000);
TotalLuresUsed = TotalLuresUsed + 1;
GrandTotalLuresUsed = GrandTotalLuresUsed + 1;

--update log
gui_refresh();

elseif castcount > TotalCasts then
-- if strangecounter > 0 and strangecounter < AlmostCaughtAttempts then
--we don't reset yet!
-- else
--Reset
castcount=0;
strangecounter = 0;
-- end
else
--Cast
srClickMouseNoMove(cast[0]+3,cast[1]+3);
lsSleep(1000);
checkBreak();

while findchat(castcount - 1) == "lure" do
lsSleep(1000);
checkBreak();
end

castcount = castcount + 1;
GrandTotalCasts = GrandTotalCasts + 1;

--Read Chat
ChatType = findchat();

lsSleep(200);

CurrentLure = string.sub(PlayersLures[CurrentLureIndex],string.find(PlayersLures[CurrentLureIndex],"_")+1,string.len(PlayersLures[CurrentLureIndex])-4);

if ChatType == "nobitlostlure" then
--No fish bit. You also lost your lure.
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "No fish bit. You also lost your lure." .. "\n");

elseif ChatType == "nobit" then
--No fishbit
GrandTotalFailed = GrandTotalFailed + 1;
if LogFails == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "No fish bit." .. "\n");
end

elseif ChatType == "nocatchlostlure" then
--You didn't catch anything. You also lost your lure.
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You didn\'t catch anything. You also lost your lure." .. "\n");

elseif ChatType == "nocatch" then
--You didn't catch anything.
GrandTotalFailed = GrandTotalFailed + 1;
if LogFails == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You didn\'t catch anything." .. "\n");
end

elseif ChatType == "alreadyfishing" then
--castcount = castcount-1;
lsSleep(15000); -- Long pause to wait for fishing queue to stop. Somehow it pushed the Fish button twice and now you will cast 2 times in a row.
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You are already fishing!" .. "\n");

elseif ChatType == "strange" then
--Strange Fish
GrandTotalStrange = GrandTotalStrange + 1;
GrandTotalFailed = GrandTotalFailed + 1;
if LogStrangeUnusual == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught a STRANGE fish, but your rod was just too clumbsy." .. "\n");
end

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

elseif ChatType == "strangelostlure" then
-- Strange Fish and lost lure
GrandTotalStrange = GrandTotalStrange + 1;
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught a STRANGE fish, but your rod was just too clumbsy. You also lost your lure." .. "\n");

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

elseif ChatType == "unusual" then
-- Unusual Fish
GrandTotalUnusual = GrandTotalUnusual + 1;
GrandTotalFailed = GrandTotalFailed + 1;
if LogStrangeUnusual == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an UNUSUAL fish, but you were not quick enough." .. "\n");
end

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

-- Can't uncomment below elseif statement until we get a screenshot of a message of you were not quick enough. You also lost your lure.
-- This would need to be added to Fishing_Func.inc , in the Chat_Types {array} along with adding Chatlog_AlmostUnusualLostlure.png). Add above "unusual" line in the array

--elseif ChatType == "unusuallostlure" then
-- Unusual Fish
--GrandTotalUnusual = GrandTotalUnusual + 1;
--GrandTotalLostLures = GrandTotalLostLures + 1;
--GrandTotalFailed = GrandTotalFailed + 1;
--if LogStrangeUnusual == true then
--WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an UNUSUAL fish, but you were not quick enough." .. "\n");
--end

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

elseif ChatType == "odd" then
-- Odd Fish
GrandTotalOdd = GrandTotalOdd + 1;
GrandTotalFailed = GrandTotalFailed + 1;
if LogOdd == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an ODD fish, but were too late recognizing the bite." .. "\n");
end

elseif ChatType == "oddlostlure" then
-- Odd Fish and lost lure
GrandTotalOdd = GrandTotalOdd + 1;
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an ODD fish, but were too late recognizing the bite. You also lost your lure." .. "\n");

elseif ChatType == "carry" then
--chat lines are messed up now
castcount=0;

elseif ChatType == "caught" or ChatType == "caughtlostlure" then
Fish = ChatReadFish();

table.insert(gui_log_fish,Fish);

if ChatType == "caughtlostlure" then
GrandTotalLostLures = GrandTotalLostLures + 1;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "Though you lost your lure, you did catch a " .. Fish .. "\n");
-- This Needs Check for new lure. This will cause a error if not.
--Reset, skip to next lure
castcount=0;
else
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "Caught a " .. Fish .. "\n");

end

--gui_refresh();

if SkipCommon == true then
FishType = string.sub(Fish,string.find(Fish,",") + 1);
if FishType == "Abdju" or FishType == "Chromis" or FishType == "Catfish" or FishType == "Carp" or FishType == "Perch" or FishType == "Phagrus" or FishType == "Tilapia" then
--Skip it
castcount=0;

end
end

gui_refresh();
end

gui_refresh();
end

gui_refresh();
end
end
</pre>
{{Collapse bottom}}

{{Collapse top|title=New Raeli Oven Monitor (IN TESTING v2)}}
<pre>
loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/common.inc")();
loadfile("luaScripts/ui_utils.inc")();

askText = singleLine([[
Raeli Color Monitor v1.1b (edit by Selune) --
Make sure the Raeli Oven is pinned, then select the ATITD window and press shift.
]]);

stop_at_CB = false;
take_screenshots = true;
stop_at_color = "White";
confidence_threshold = 15;
saved_x = 0;
saved_y = 0;
go_now = false;

color_names = {"AliceBlue", "AntiqueWhite", "Aqua", "Aquamarine", "Azure", "Beige", "Bisque", "Black", "BlanchedAlmond", "Blue", "BlueViolet", "Brown", "Burlywood", "CadetBlue", "Carrot", "Chartreuse", "Chocolate", "Coral", "CornflowerBlue", "Cornsilk", "Crimson", "DarkBlue", "DarkCyan", "DarkGoldenrod", "DarkGray", "DarkGreen", "DarkKhaki", "DarkMagenta", "DarkOliveGreen", "DarkOrange", "DarkOrchid", "DarkRed", "DarkSalmon", "DarkSeaGreen", "DarkSlateBlue", "DarkSlateGray", "DarkTurquoise", "DarkViolet", "DeepPink", "DeepSkyBlue", "DimGray", "DodgerBlue", "Feldspar", "FireBrick", "FloralWhite", "ForestGreen", "Fuchsia", "Gainsboro", "GhostWhite", "Gold", "Goldenrod", "Gray", "Green", "GreenYellow", "Honeydew", "HotPink", "IndianRed", "Indigo", "Ivory", "Khaki", "Lavender", "LavenderBlush", "LawnGreen", "LemonChiffon", "LightBlue", "LightCoral", "LightCyan", "LightGoldenrodYellow", "LightGreen", "LightGrey", "LightPink", "LightSalmon", "LightSeaGreen", "LightSkyBlue", "LightSlateBlue", "LightSlateGray", "LightSteelBlue", "LightYellow", "Lime", "LimeGreen", "Linen", "Maroon ", "MediumAquamarine", "MediumBlue ", "MediumOrchid", "MediumPurple", "MediumSeaGreen", "MediumSlateBlue", "MediumSpringGreen", "MediumTurquoise", "MediumVioletRed", "MidnightBlue", "MintCream", "MistyRose", "Moccasin", "NavajoWhite", "Navy ", "OldLace", "Olive", "OliveDrab", "Orange", "OrangeRed", "Orchid", "PaleGoldenrod", "PaleGreen", "PaleTurquoise", "PaleVioletRed", "PapayaWhip", "PeachPuff", "Peru", "Pink", "Plum", "PowderBlue", "Purple ", "Red", "RosyBrown", "RoyalBlue", "SaddleBrown", "Salmon", "SandyBrown", "SeaGreen", "Seashell", "Sienna", "Silver", "SkyBlue", "SlateBlue", "SlateGray", "Snow", "SpringGreen", "SteelBlue ", "Tan", "Teal", "Thistle", "Tomato", "Turquoise", "Violet", "VioletRed", "Wheat", "White", "WhiteSmoke", "Yellow", "YellowGreen"};
color_values = {0xF0F8FF, 0xFAEBD7, 0x00FFFF, 0x7FFFD4, 0xF0FFFF, 0xF5F5DC, 0xFFE4C4, 0x000000, 0xFFEBCD, 0x0000FF, 0x8A2BE2, 0xA52A2A, 0xDEB887, 0x5F9EA0, 0xE07020, 0x7FFF00, 0xD2691E, 0xFF7F50, 0x6495ED, 0xFFF8DC, 0xDC143C, 0x00008B, 0x008B8B, 0xB8860B, 0xA9A9A9, 0x006400, 0xBDB76B, 0x8B008B, 0x556B2F, 0xFF8C00, 0x9932CC, 0x8B0000, 0xE9967A, 0x8FBC8F, 0x483D8B, 0x2F4F4F, 0x00CED1, 0x9400D3, 0xFF1493, 0x00BFFF, 0x696969, 0x1E90FF, 0xD19275, 0xB22222, 0xFFFAF0, 0x228B22, 0xFF00FF, 0xDCDCDC, 0xF8F8FF, 0xFFD700, 0xDAA520, 0x808080, 0x008000, 0xADFF2F, 0xF0FFF0, 0xFF69B4, 0xCD5C5C, 0x4B0082, 0xFFFFF0, 0xF0E68C, 0xE6E6FA, 0xFFF0F5, 0x7CFC00, 0xFFFACD, 0xADD8E6, 0xF08080, 0xE0FFFF, 0xFAFAD2, 0x90EE90, 0xD3D3D3, 0xFFB6C1, 0xFFA07A, 0x20B2AA, 0x87CEFA, 0x8470FF, 0x778899, 0xB0C4DE, 0xFFFFE0, 0x00FF00, 0x32CD32, 0xFAF0E6, 0x800000, 0x66CDAA, 0x0000CD, 0xBA55D3, 0x9370DB, 0x3CB371, 0x7B68EE, 0x00FA9A, 0x48D1CC, 0xC71585, 0x191970, 0xF5FFFA, 0xFFE4E1, 0xFFE4B5, 0xFFDEAD, 0x000080, 0xFDF5E6, 0x808000, 0x6B8E23, 0xFFA500, 0xFF4500, 0xDA70D6, 0xEEE8AA, 0x98FB98, 0xAFEEEE, 0xDB7093, 0xFFEFD5, 0xFFDAB9, 0xCD853F, 0xFFC0CB, 0xDDA0DD, 0xB0E0E6, 0x800080, 0xFF0000, 0xBC8F8F, 0x4169E1, 0x8B4513, 0xFA8072, 0xF4A460, 0x2E8B57, 0xFFF5EE, 0xA0522D, 0xC0C0C0, 0x87CEEB, 0x6A5ACD, 0x708090, 0xFFFAFA, 0x00FF7F, 0x4682B4, 0xD2B48C, 0x008080, 0xD8BFD8, 0xFF6347, 0x40E0D0, 0xEE82EE, 0xD02090, 0xF5DEB3, 0xFFFFFF, 0xF5F5F5, 0xFFFF00, 0x9ACD32};

-- Decimal to Hex conversion
function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end

--Color Conversions
function rgb2hsl(src_r, src_g, src_b)
local h, s, l, d;
src_r = src_r / 255;
src_g = src_g / 255;
src_b = src_b / 255;
local max_rgb = math.max(src_r, src_g, src_b);
local min_rgb = math.min(src_r, src_g, src_b);
l = (max_rgb + min_rgb) / 2;

if(max_rgb == min_rgb) then
h = 0; --achromatic
s = 0;
else
d = max_rgb - min_rgb;
if l > 0.5 then
s = d / (2 - max_rgb - min_rgb);
else
s = d / (max_rgb + min_rgb);
end

if src_g > src_b then
if src_r > src_g then
h = (src_g - src_b) / d;
else
h = (src_b - src_r) / d + 2;
end
else
if src_r > src_g then
h = (src_g - src_b) / d + 6;
else
h = (src_r - src_g) / d + 4;
end
end
h = h / 6;
end

if h == nil then
error "NO H";
end

if s == nil then
error ("NO S D:" .. d);
end

if l == nil then
error "NO L";
end

return h, s, l;
end

function rgb2lab(src_r, src_g, src_b)
--R from 0 to 255
--G from 0 to 255
--B from 0 to 255
local r = src_r/255;
local g = src_g/255;
local b = src_b/255;

if (r > 0.04045) then
r = math.pow((r + 0.055) / 1.055, 2.4);
else
r = r / 12.92;
end
if ( g > 0.04045) then
g = math.pow((g + 0.055) / 1.055, 2.4);
else
g = g / 12.92;
end
if (b > 0.04045) then
b = math.pow((b + 0.055) / 1.055, 2.4);
else
b = b / 12.92;
end

r = r * 100;
g = g * 100;
b = b * 100;

local x = r * 0.4124 + g * 0.3576 + b * 0.1805;
local y = r * 0.2126 + g * 0.7152 + b * 0.0722;
local z = r * 0.0193 + g * 0.1192 + b * 0.9505;

x = x / 95.047;
y = y / 100.000;
z = z / 108.883;

if ( x > 0.008856 ) then
x = math.pow( x , 1/3 );
else
x = ( 7.787 * x ) + ( 16/116 );
end
if ( y > 0.008856 ) then
y = math.pow( y , 1/3 );
else
y = ( 7.787 * y ) + ( 16/116 );
end
if ( z > 0.008856 ) then
z = math.pow( z , 1/3 );
else
z = ( 7.787 * z ) + ( 16/116 );
end

local lab_l = ( 116 * y ) - 16;
local lab_a = 500 * ( x - y );
local lab_b = 200 * ( y - z );

return lab_l, lab_a, lab_b;
end

--Get nearest color name
function nearestColor(px)
local rgb_r, rgb_g, rgb_b, tst_r, tst_g, tst_b, test_px;
local lab_l, lab_a, lab_b, lab_tst_l, lab_tst_a, lab_tst_b;
local hsl_h, hsl_s, hsl_l, hsl_tst_h, hsl_tst_s, hsl_tst_l;
local offset, best_name, best_offset, next_best_offset, confidence;
best_offset = 100000;
next_best_offset = 1000000;
rgb_r = ((math.floor(px/256/256/256) % 256) - 7) * 255/248;
rgb_g = ((math.floor(px/256/256) % 256) - 7) * 255/248;
rgb_b = ((math.floor(px/256) % 256) - 6) * 255/248;
lab_l, lab_a, lab_b = rgb2lab(rgb_r, rgb_g, rgb_b);
hsl_h, hsl_s, hsl_l = rgb2hsl(rgb_r, rgb_g, rgb_b);

for i=1, #color_names do
checkBreak();
test_px = color_values[i];
tst_r = (math.floor(test_px/256/256) % 256);
tst_g = (math.floor(test_px/256) % 256);
tst_b = (math.floor(test_px) % 256);
lab_tst_l, lab_tst_a, lab_tst_b = rgb2lab(tst_r, tst_g, tst_b);
hsl_tst_h, hsl_tst_s, hsl_tst_l = rgb2hsl(tst_r, tst_g, tst_b);

---- Different methods to determine "distance" from the ideal colors. Change these to test different options.

--offset = math.abs(rgb_r - tst_r) + math.abs(rgb_g - tst_g) + math.abs(rgb_b - tst_b);
--offset = math.max(math.max((math.abs(rgb_r - tst_r)), math.abs(rgb_g - tst_g)), math.abs(rgb_b - tst_b));
offset = (rgb_r - tst_r)^2 + (rgb_g - tst_g)^2 + (rgb_b - tst_b)^2;
--offset = math.abs(lab_l - lab_tst_l) + math.abs(lab_a - lab_tst_a) + math.abs(lab_b - lab_tst_b);
--offset = (lab_l - lab_tst_l)^2 + (lab_a - lab_tst_a)^2 + (lab_b - lab_tst_b)^2;
--offset = math.max(math.max((math.abs(lab_l - lab_tst_l)), math.abs(lab_a - lab_tst_a)), math.abs(lab_b - lab_tst_b));
--offset = math.abs(hsl_h - hsl_tst_h) + math.abs(hsl_s - hsl_tst_s) + math.abs(hsl_l - hsl_tst_l);
--offset = (hsl_h - hsl_tst_h)^2 + (hsl_s - hsl_tst_s)^2 + (hsl_l - hsl_tst_l)^2;
--offset = math.max(math.max((math.abs(hsl_h - hsl_tst_h)), math.abs(hsl_s - hsl_tst_s)), math.abs(hsl_l - hsl_tst_l));
if (offset < next_best_offset) then
if (offset < best_offset) then
next_best_offset = best_offset;
best_offset = offset;
best_name = color_names[i]; -- .. " Hex: " .. DEC_HEX(color_values[i]);
else
next_best_offset = offset;
end
confidence = ((next_best_offset - best_offset) / best_offset) * 100;
end
end

return best_name, math.floor(confidence);
end

--Check pixel against target
function checkColor(px)
local color_name, confidence;
color_name, confidence = nearestColor(px);

if (color_name:upper() == stop_at_color:upper()) then
return true, confidence;
else
return false, 0;
end
end

-- optional message
function askForPixel()
local is_done = false;
local have_coords = false;
local color_found = false;
local color_guess = "NONE";
local tst_r, tst_g, tst_b, rgb_r, rgb_g, rgb_b;
local confidence = 0;
-- Display message until shift is held
while not go_now do
checkBreak();
srReadScreen();
y = 0;
mouse_x, mouse_y = srMousePos();
if not have_coords then
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xFFFFFFff,
"Mouse over one of the Raeli Oven color pixels and press Shift.");
if lsShiftHeld() then
saved_x = mouse_x;
saved_y = mouse_y;
have_coords = true;
end
else
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xFFFFFFff,
"Coords chosen, press 'Reset' to change or 'Do It' to start.");
end

y = y + 40;
if have_coords then
px = srReadPixel(saved_x, saved_y);
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xffffff,
saved_x .. ", " .. saved_y);
else
px = srReadPixel(mouse_x, mouse_y);
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xB0B0B0ff,
mouse_x .. ", " .. mouse_y);
end

y = y + 15;
color_guess, confidence = nearestColor(px);
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, px,
"(" .. (math.floor(px/256/256/256) % 256) .. "," .. (math.floor(px/256/256) % 256) .. "," .. (math.floor(px/256) % 256) .. "," .. (px % 256) .. ") Hex: " .. DEC_HEX(math.floor((px/256) % 16777216)));

y = y + 20;
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, px, "Best guess: " .. color_guess);
y = y + 15;
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, px, "Confidence: " .. confidence .. " (higher is better)");

-- Testing other methods of grabbing the pixel, making sure RGBA values match
-- srReadScreen();
-- px2 = srReadPixelFromBuffer(mouse_x, mouse_y);
-- lsPrintWrapped(0, 80, 1, lsScreenX, 0.7, 0.7, 0xB0B0B0ff,
-- mouse_x .. ", " .. mouse_y .. " = " .. (math.floor(px2/256/256/256) % 256) .. "," .. (math.floor(px2/256/256) % 256) .. "," .. (math.floor(px2/256) % 256) .. "," .. (px2 % 256) );
-- lsButtonText(lsScreenX - 110, lsScreenY - 90, 0, 100, px, "test1");
-- lsButtonText(lsScreenX - 110, lsScreenY - 60, 0, 100, px2, "test2");

y = y + 20;
take_screenshots = lsCheckBox(15, y, z, 0xffffffff, " Take Screenshots", take_screenshots);

y = y + 20;
stop_at_CB = lsCheckBox(15, y, z, 0xffffffff, " Stop at Color", stop_at_CB);

if stop_at_CB then
y = y + 25;
is_done = false;
color_found = false;
-- Edit box and text display
lsPrint(10, y, z, 0.7, 0.7, 0xFFFFFFff, "Desired Color:");

y = y + 20;
-- lsEditBox returns two different things (a state and a value)
is_done, stop_at_color = lsEditBox("Desired Color:", 10, y, z, 250, 30, 0.7, 0.7, 0x000000ff, "White");
--dropdown_color_cur_value = lsDropdown("ColorDropDown1", 5, y, 0, 200, dropdown_color_cur_value, color_names);

for i=0, #color_names do
if stop_at_color and color_names[i] then
if (stop_at_color:upper() == (color_names[i]):upper()) then
color_found = true;
end
end
end

if not color_found then
lsPrint(130, y - 20, z, 0.7, 0.7, 0xFF0000ff, "No such color");
end

y = y + 35;
lsPrint(5, y, 0, 0.6, 0.6, 0xffffffff, "Confidence Required:");
is_done, confidence_threshold = lsEditBox("confthresh", 150, y, 0, 50, 30, 0.7, 0.7, 0x000000ff, confidence_threshold);
confidence_threshold = tonumber(confidence_threshold);
if not confidence_threshold then
lsPrint(10, y+17, 10, 0.4, 0.4, 0xFF2020ff, "MUST BE A NUMBER");
confidence_threshold = 10;
end
else
is_done = true;
color_found = true;
end

if have_coords then
if color_found then
if lsButtonText(10, lsScreenY - 30, 0, 80, 0xFFFFFFff, "Do It") then
go_now = true;
end
end

if lsButtonText(100, lsScreenY - 30, 0, 80, 0xFFA500ff, "Reset") then
have_coords = false;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end
lsDoFrame();
end
-- Wait for shift to be released
while lsShiftHeld() do end;
xyWindowSize = srGetWindowSize();
end

function doit()
askForWindow(askText);
while lsShiftHeld() do
-- Make user release shift key
lsCheckBreak();
end

askForPixel();

local t0 = lsGetTimer();
local px = 0;
local index=0;
local color_name, confidence;
while 1 do
local y = 0;
checkBreak();
lsSleep(100);
srReadScreen();
new_px = srReadPixel(saved_x, saved_y);
local t = (lsGetTimer() - t0) / 1000 / 60;
t = math.floor(t*10 + 0.5)/10;
local t_string = t;
if not (new_px == px) then
index = index+1;
if take_screenshots then
srSaveLastReadScreen("screen_" .. index .. "_" .. t_string .. ".png");
end
px = new_px;

if stop_at_CB then
color_name, confidence = nearestColor(px);
if (color_name:upper() == stop_at_color:upper()) then
if confidence > confidence_threshold then
clickAllText("Interrupt");
lsPlaySound("Complete.wav");
error ("Stopped burn at: " .. stop_at_color .. " Confidence: " .. confidence);
else
for i = 1, 3 do
lsPlaySound("Clank.wav");
lsSleep(50);
end
end
else
lsPlaySound("Clank.wav");
end
else
lsPlaySound("Clank.wav");
end
end

y = y + 5;
lsPrintWrapped(5, y, 1, lsScreenX - 10, 0.7, 0.7, 0xFFFFFFff,
"Screen: " .. index .. " Timer: " .. t_string);
y = y + 15;
lsPrintWrapped(5, y, 1, lsScreenX - 10, 0.7, 0.7, 0xFFFFFFff,
"Color: " .. color_name .. " Confidence: " .. confidence);

y = y + 30;
lsPrintWrapped(5, y, 1, lsScreenX - 10, 0.7, 0.7, 0xFFFFFFff,
"(" .. (math.floor(px/256/256/256) % 256) .. "," .. (math.floor(px/256/256) % 256) .. "," .. (math.floor(px/256) % 256) .. "," .. (px % 256) .. ") Hex: " .. DEC_HEX(math.floor((new_px/256) % 16777216)));

if lsButtonText(lsScreenX - 110, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end
lsDoFrame();
end
end
</pre>
{{Collapse bottom}}

User:Selune

2013-01-16T00:16:37Z

Selune:

Selune's Macros have been updated to the TaleScripts repository. Please leave any ideas for improvements or new macros here.

{{Collapse top|title=Paint Reaction Template}}
<pre>
Cabbage | RedSand | G | -11 | 26
Cabbage | Iron | W | 27 | 27
Cabbage | Copper | W | -20 | -60
Cabbage | Potash | B | 19 | -63
Carrot | RedSand | B | 32 | -26
Carrot | Lead | W | -17 | 61
Carrot | Potash | W | -59 | 56
Carrot | Lime | G | 0 | 23
Clay | Lead | B | 32 | -16
Clay | Copper | R | 20 | -12
Clay | Sulfur | G | -55 | -41
Clay | Saltpeter | B | 54 | 35
Lead | Iron | B | 4 | 14
Lead | Copper | W | -25 | -40
Lead | Saltpeter | G | -7 | 47
Iron | Sulfur | G | -17 | 0
Iron | Saltpeter | W | -55 | 7
Copper | Sulfur | W | -25 | -12
Copper | Saltpeter | B | 42 | 4
</pre>
{{Collapse bottom}}

{{Collapse top|title=Fishing Macro for Testing}}
<pre>
-- Pin up your Lures menu 'Self Click, Skills, Fishing, Use Lure' (no other pinned up windows can exist)
-- Should have (Chat-Related): 'Chat and Inventory can be minimized' AND 'Minimized chat-channels are still visible'.
-- You must have Main Chat tab showing at all times and window is long/wide enough so no lines don't wrap.

-- Yes, this macro reads your MAIN chat screen, so make sure you read the above statement for it to work correctly.
-- Each line of text must not scroll/wrap to the next line. If it does, then drag your chat window wider so it doesn't wrap.
-- You want to make your chat very wide. Note: It is possible to see a LONG message like "Though you lost your lure, you did catch a 15 deben Orange Spongefish"
-- Another long message is "You didn't catch anything. You also lost your lure. Try different lures and locations"
-- At 1280x1024 your chat screen should reach at least to the mid point of your screen to avoid having a chat line wrap to next line, for a long message, like above.
-- Higher resolutions may not have to reach quite to the mid point.

-- ********** This macro writes to a log file (Fishlog.txt) for most actions, so you can review later! ******
-- ********** This also macro writes to a log file (Fishstats.txt) showing stats of your last fishing session, so you can review later! ******

--You can delete any of the log files if you wish. It will automatically create new ones if they dont exist.
--The fishlog.txt file gets appended everytime you fish, so the file can grow quite long over time.
--The fishstats.txt file gets overwritten everytime your gui program window updates, so it doesn't 'grow' over time.

-- "Main chat tab is not showing" and other errors can usually be overcome by adjusting the main chat window size and restarting, assuming main chat is showing.
-- And also verify the lines aren't wrapping.

-- The very first thing this macro does is to Self Click, Special, What Time is it? option. This will then display the time in main chat window.
-- The macro then parses time displayed, in main chat tab, so it can use it while the macro runs (Log files and on screen display).
-- Thats what the mysterious Self Click is doing, its not a bug, it is suppose to do that and thats why, to fetch the time.

-- Note: These are currently refered to as Common Fish in the below 'SkipCommon' type of fishes (True or False), in the 'Custom Variables' section.

--Abdju
--Chromis
--Catfish
--Carp
--Perch
--Phagrus
--Tilapia

--CUSTOM VARIABLES -- EDIT HERE To Change Fishing Casts, Skips, Updates.

TotalCasts=3; --Total Casts per lure, if a fish caught. If no fish then it skips.
SkipCommon = false; --Skips to next lure if fish caught is a common (Choose True or False).
LureChangesToUpdateTimer = 7; --Total lures used before time is updated. Zero updates every new lure.
IgnoreUnknown = false; --Continues the script if fish is not recognized

--AlmostCaughtAttempts = 0; --Adds additional attempts to the current lure if Unusual, Strange fish are seen;
-- Note: AlmostCaughtAttempts above was already commented out upon arriving to Talescripts.
-- It is also commented out during the script, so uncommenting above will NOT activate the feature.

-- Additional reporting in the log file
-- Choose True or False.
-- Note 'LogStrangeUnusual' and 'LogOdd' (below) overrides LogFails setting. ie if LogStrange true, then it would still log even if LogFails = False
--If LogFails = false and LogStrangeUnusual or LogOdd = true, then failed catches those would still be included in the log file.

LogFails = true; -- Do you want to add Failed Catches to log file? 'Failed to catch anything' or 'No fish bit'. Note the log will still add an entry if you lost lure.
LogStrangeUnusual = true; -- Do you want to add Strange and Unusual fish to the log file? Note the log will still add an entry if you lost lure.
LogOdd = true; -- Do you want to add Odd fish to the log file? Note the log will still add an entry if you lost lure.

-- END CUSTOM VARIABLES

loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();
loadfile("luaScripts/Fishing_Func.inc")();

function SetupLureGroup()

TLures = {};
FirstLure="";
LastLure = "";

srReadScreen();
FindPin = srFindImage("UnPin.png");
if FindPin then

--Click the pinup to refresh the lures window

srClickMouseNoMove(FindPin[0]+5,FindPin[1]+30);
lsSleep(500);

srReadScreen();

DownPin = srFindImageInRange("Fishing/Menu_DownArrow.png",FindPin[0]-10,FindPin[1],50,500);
if DownPin then
--Just Incase
UpArrow = srFindImageInRange("Fishing/Menu_UpArrow.png",FindPin[0]-10,FindPin[1],50,50);
if UpArrow then
srClickMouseNoMove(UpArrow[0]+5,UpArrow[1]+5);
lsSleep(1000);
srReadScreen();
end

-- srClickMouseNoMove(DownPin[0]+5,DownPin[1]+5);
LastLure=FindLureName(DownPin[0]-150,DownPin[1]-10,150,25);
--error(LastLure);
FirstLure = FindLureName(FindPin[0]-150,FindPin[1]-10,150,25);
-- error(FirstLure);
else
--No Arrows on lure menu?
FirstLure=FindLureName(FindPin[0]-150,FindPin[1]-10,150,25);
LastLure=nil;
end
else
error("Didn\'t find Lures pinned window - Self Click->Skills, Fishing -> Use Lure, PIN THIS WINDOW!");
end

if LastLure ~= nil then
--We have last lure, and arrows showing
ChangeLureMenu = LastLure;

FirstLurLoc = srFindImage("fishing/" .. FirstLure);
LastLurLoc = srFindImage("fishing/" .. LastLure);

for i = 1, #Lures,1 do
test = srFindImageInRange(("fishing/" .. Lures[i]),FirstLurLoc[0]-5,FirstLurLoc[1]-5,175,500);

if test then
--Add Lure
table.insert(TLures,Lures[i]);
if Lures[i] == LastLure then
--End of Menu, Use Down Arrow
arrow=srFindImageInRange("Fishing/menu_downarrow.png",test[0],test[1]-5,175,50);
if arrow then
DownArrowLocs = arrow;
srClickMouseNoMove(arrow[0]+5,arrow[1]+5);
lsSleep(1000);
srReadScreen();
lsSleep(1000);
else
error("no arrow found");
end
end
LastLureMenu = Lures[i];

end
end

--Reset Lure Menu
UpArrow = srFindImageInRange("Fishing/Menu_UpArrow.png",FindPin[0]-10,FindPin[1],50,50);
if UpArrow then
srClickMouseNoMove(UpArrow[0]+5,UpArrow[1]+5);
end

else
--No arrows, just get lures
for i = 1, #Lures, 1 do
test = srFindImage("Fishing/" .. Lures[i]);
if test then
table.insert(TLures,Lures[i]);
end
end
end

return TLures;

end

function FindLureName(x,y,w,h)

for i = 1, #Lures, 1 do
Lure = srFindImageInRange("Fishing/" .. Lures[i], x,y,w,h);
if Lure then
return Lures[i]
end
end
end

function GetLure()

srReadScreen();

if CurrentLureIndex == LastLureIndex then
-- Use Down Menu
srClickMouseNoMove(DownArrowLocs[0]-5,DownArrowLocs[1]-5);
srReadScreen();
end

lure = srFindImage("Fishing/" .. PlayersLures[CurrentLureIndex]);
if not lure then
--Failed to find lure
error("Can\'t find a lure!");
else
slure = Lures[PlayersLures[CurrentLureIndex]];
slure = string.sub(slure,string.find(slure,"_")+1,string.len(slure) - 4);
--statusScreen("Using Lure " .. slure);
return slure
end
end

function UseLure()
-- Uses lure according to CurrentLureIndex, which is used in PlayersLures which contains each lure the player has.

if #TLures == 0 then
error 'Can\'t find any lures on the pinned window. Did you run out of lures?'
end

srReadScreen();
lure = srFindImage("Fishing/" .. PlayersLures[CurrentLureIndex]);

if lure then
srClickMouseNoMove(lure[0]+3,lure[1]+3);
lsSleep(500);
srReadScreen();
-- Find Lure Type
for i = 1, #Lure_Types, 1 do
test = srFindImage("Fishing/" .. Lure_Types[i]);
if test then
--Click it!
srClickMouseNoMove(test[0]+3,test[1]+3);
gui_refresh();
break;
end
end

end

if PlayersLures[CurrentLureIndex] == ChangeLureMenu then
down = srFindImage("Fishing/Menu_DownArrow.png");
srClickMouseNoMove(down[0]+5,down[1]+5);
lsSleep(1000);
elseif PlayersLures[CurrentLureIndex] == LastLureMenu then
up = srFindImage("Fishing/Menu_UpArrow.png");
srClickMouseNoMove(up[0]+5,up[1]+5);
CurrentLureIndex=1;
lsSleep(1000);
end

end

function ChatReadFish()
--Find the last line of chat
lsSleep(100);
srReadScreen();
imgs = findAllImages("fishing/chatlog_reddots.png");
Coords = imgs[#imgs];

-- Look for the ** red dots in main chat to see if they exist.
if #imgs == 0 then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

--Caught Something.. Find Fish Details
Sfish = "";

for i = 1, #CL_Fish do
ChatFish = srFindImageInRange("Fishing/" .. CL_Fish[i],Coords[0] ,Coords[1],500,25);
if ChatFish then
Sfish = string.sub(CL_Fish[i],string.find(CL_Fish[i],"Fish_") + 5,string.len(CL_Fish[i]) - 4);
GrandTotalCaught = GrandTotalCaught + 1
break;
end
end

if string.len(Sfish) < 1 then
-- This fish name and fishname.png file likely needs to be added to Fishing_Func.inc, under the CL_Fish array and the .png added to /Images/Fishing folder
if IgnoreUnknown then
Sfish = "Unknown";
SNum = "1";
else
error("Unknown Fish! PLEASE, Take screenshot (Alt+C) of main chat tab, share with Talescripts team!");
end
else
--Find Size
for i = #CL_Number,1,-1 do
ChatSize = srFindImageInRange("fishing/" .. CL_Number[i],Coords[0],Coords[1],500,25);
if ChatSize then
SNum = string.sub(CL_Number[i],string.find(CL_Number[i],"_") + 1, string.len(CL_Number[i]) - 4);
break;
end
end
GrandTotaldb = GrandTotaldb + SNum;
end

return(Sfish .. " (" .. SNum .. "db)");
end

function findchat(line)
--Reads a chat line and returns a basic string for better processing

-- Odd fish means your fly fishing skill is not high enough. Raise it with enormous amounts of fishing.
-- Strange fish means you need a better rod to catch the rish. You may succeed on future attempts.
-- Unusual fish means your speed skill was not high enough to catch this type of fish. If it is almost enough, you may catch them on future casts.

--Possible fishing messages
-- Caught A (SIZE) Deben (FISH)
-- You almost caught a strange fish
-- (You almost caught a strange fish. You also lost your lure.)
-- You almost caught an unusual fish
-- (You almost caught an unusual fish. You also lost your lure.)
-- You almost caught an odd fish
-- (You almost caught an odd fish. You also lost your lure.)
-- Although you lost your lure (Caught a fish)
-- Using a (LURE) (TYPE) lure.
-- You are carrying more than you can manage.
-- You are carrying too much bulk.
-- You didn't catch anything.
-- (You didn't catch anything. You also lost your lure.)
-- No Fish Bit.
-- (No Fish Bit. You also lost your lure.)

--Find the last line of chat
lsSleep(100);
srReadScreen();
imgs = findAllImages("Fishing/chatlog_reddots.png");
Coords = imgs[#imgs];

-- Look for the ** red dots in main chat to see if they exist.
if #imgs == 0 then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

if line and line > 0 then
Coords = imgs[(#imgs) - line];
if not Coords then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

end

--Find What Happened

ChatType = "";

for i = 1, #Chat_Types -1,2 do
test = srFindImageInRange("Fishing/" .. Chat_Types[i],Coords[0],Coords[1],500,30);
if test then
--Found Chat
ChatType = Chat_Types[i + 1];
break;
end
end

--Break down!
if ChatType then
--if ChatType == "lure" then
--elseif ChatType == "nofishlostlure" then
--elseif ChatType == "nofish" then
--elseif ChatType == "strange" then
--elseif ChatType == "unusual" then
return ChatType;
else
error(ChatType);

end

end

function GetTime()
--Reads time stamp using special->what time menu
winsize = srGetWindowSize();

--Open Menu, Press the Esc key to open the Self Click menu

-- Move mouse to center of screen before Sending the Esc key, to get the Self Click menu. We dont want it self clicking near the edge of screen causing an error.
srSetMousePos(winsize[0]/2,winsize[1]/2);
lsSleep(100); -- This delay is critical for any srSetMousePos. Without it, the mouse will not have time to actually move!

srKeyEvent(string.char(27)); -- Send Esc Key
lsSleep(500);

--Find Special Menu
srReadScreen();
menu = srFindImage("Fishing/Menu_Special.png");

if menu then
--Click it!
srClickMouseNoMove(menu[0]+3,menu[1]+3);

lsSleep(500);
srReadScreen();

-- Look for the What Time Is It? option in menu
menu = srFindImage("Fishing/Menu_WhatTime.png");
if menu then
--Click it!
srClickMouseNoMove(menu[0]+3,menu[1]+3);
lsSleep(500);
end
end

srReadScreen();
imgs = findAllImages("Fishing/chatlog_reddots.png");
Coords = imgs[#imgs];

-- Look for the ** red dots in main chat to see if they exist.
if #imgs == 0 then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

for i = #CL_Time, 1, -1 do
Stime = srFindImageInRange("Fishing/" .. CL_Time[i],Coords[0],Coords[1],400,25);
if Stime then
Hour = string.sub(CL_Time[i],string.find(CL_Time[i],"ime_")+4,string.len(CL_Time[i])-4);

AM = srFindImageInRange("Fishing/Chatlog_Time_AM.png",Coords[0],Coords[1],400,25);
if AM then
CurrentTime=(Hour .. "AM");
return (Hour .. "AM");
else
PM = srFindImageInRange("Fishing/chatlog_time_PM.png",Coords[0],Coords[1],400,25);
if PM then
CurrentTime=(Hour .. "PM");
return (Hour .. "PM");
end
end

end
end
end

function gui_refresh()
lsDoFrame();

if GrandTotalCaught < 10 then
last10 = GrandTotalCaught .. "/10";
else
last10 = 10;
end

--Stats (On Screen Display)
--CurrentLureIndex out of PlayersLures
winsize = lsGetWindowSize();

lsPrintWrapped(10, 0, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Lure Index: " .. CurrentLureIndex .. " out of " .. #PlayersLures .. " " .. PlayersLures[CurrentLureIndex]);

lsPrintWrapped(10, 20, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Time: " .. CurrentTime);

lsPrintWrapped(10, 40, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Last [" .. last10 .. "] Fish Caught:");

--Reset this string before showing last 10 fish below. Else the entries will multiply with entries from previous loops/call to this function
last10caught = "";

if #gui_log_fish > 10 then
table.remove(gui_log_fish,1);
end
for i = 1, #gui_log_fish,1 do
lsPrintWrapped(10, 50 + (12*i), 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, gui_log_fish[i]);
last10caught = last10caught .. gui_log_fish[i] .. "\n";
end

lsPrintWrapped(10, winsize[1]-133, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Odd Fish Seen: " .. GrandTotalOdd);
lsPrintWrapped(10, winsize[1]-121, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Unusual Fish Seen: " .. GrandTotalUnusual);
lsPrintWrapped(10, winsize[1]-109, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Strange Fish Seen: " .. GrandTotalStrange);

lsPrintWrapped(10, winsize[1]-97, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "-----------------------------");

lsPrintWrapped(10, winsize[1]-85, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Lures Clicked: " .. GrandTotalLuresUsed);
lsPrintWrapped(10, winsize[1]-73, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Lures Lost: " .. GrandTotalLostLures);

lsPrintWrapped(10, winsize[1]-61, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "-----------------------------");

lsPrintWrapped(10, winsize[1]-49, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Total Casts: " .. GrandTotalCasts);
lsPrintWrapped(10, winsize[1]-37, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Failed Catches: " .. GrandTotalFailed);
lsPrintWrapped(10, winsize[1]-25, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Fish Caught: " .. GrandTotalCaught .. " (" .. GrandTotaldb .. "db)");

-- Write stats to log file. Everytime the GUI screen is updated, so is the log file.

WriteFishStats("Last Session Hour: " .. CurrentTime .. "\n\nOdd Fish Seen: " .. GrandTotalOdd .. "\nUnusual Fish Seen: " .. GrandTotalUnusual .. "\nStrange Fish Seen: " .. GrandTotalStrange .. "\n---------------------\nLures Clicked: " .. GrandTotalLuresUsed .. "\nLures Lost: " .. GrandTotalLostLures .. " \n---------------------\nTotal Casts: " .. GrandTotalCasts .. "\nFailed Catches: " .. GrandTotalFailed .. "\nFish Caught: " .. GrandTotalCaught .. " (" .. GrandTotaldb .. "db)\n---------------------\n\nLast 10 Fish Caught:\n\n".. last10caught);

end

function doit()
askForWindow("MAIN chat tab MUST be showing and wide enough so that each lines doesn't wrap. Pin up Lures Menu (Self, Skills, Fishing, Use Lures). No other pinned menus can exist. More detailed instructions are included inside the script as comments at top. There are options you can set in the script such as how many casts per lure, what gets written to the log file and more! History will be recorded in FishLog.txt and stats in FishStats.txt. Most errors can be fixed by slightly adjusting/moving your chat screen! Press Shift to continue.");

--Gui_Main();

--Variables Used By Program -- Don't Edit Unless you know what you're doing!
CurrentLure = ""; --Don't Edit
gui_log_fish = {}; --Don't Edit, holds log display
log_fish = {};
CurrentLureIndex=0; -- 1 = First Lure Player Owns in alphabetical order
ChangeLureMenu="";
LastLureMenu="";
DownArrowLocs=nil;
PlayersLures={}; --Don't Edit, Holds Current Player Lures
CurrentTime=""; --Don't Edit, Holds Time Check Value
TotalLuresUsed = 0;
castcount = 0;
--strangecounter = 0;

--These variables were later added for displaying additional info on the screen.
-- Used for the extra reporting/statistics, on screen.
-- Dont Edit Unless you know what you're doing!

GrandTotalCaught = 0;
GrandTotalCasts = 0;
GrandTotaldb = 0;
GrandTotalStrange = 0;
GrandTotalOdd = 0;
GrandTotalUnusual = 0;
GrandTotalLuresUsed = 0;
GrandTotalLostLures = 0;
GrandTotalFailed = 0;

PlayersLures = SetupLureGroup();
CurrentTime = GetTime();
lsSleep(1500);

--Write an entry into log file to show this is a new session
WriteFishLog("[New Session]\n");

while 1 do

checkBreak();
srReadScreen();

--cast = srFindImage("Fishing/Button_Fish.png");
cast = srFindImage("fishicon.png");
if not cast then
error("cannot find fishing button");
end

if castcount == 0 then
--Update counters
castcount = 1;
CurrentLureIndex = CurrentLureIndex +1;

if CurrentLureIndex > #PlayersLures then
--Refresh the Lure window, and reindex it, in case some were lost.
PlayersLures = SetupLureGroup();
CurrentLureIndex = 1;
end

--Update the time if ready, always update before new lure to keep chat/log proper
if TotalLuresUsed == LureChangesToUpdateTimer then
--Update Time

CurrentTime = GetTime();
TotalLuresUsed = 0;
end

--Since no casts been made at all, use a lure
UseLure();
lsSleep(2000);
TotalLuresUsed = TotalLuresUsed + 1;
GrandTotalLuresUsed = GrandTotalLuresUsed + 1;

--update log
gui_refresh();

elseif castcount > TotalCasts then
-- if strangecounter > 0 and strangecounter < AlmostCaughtAttempts then
--we don't reset yet!
-- else
--Reset
castcount=0;
strangecounter = 0;
-- end
else
--Cast
srClickMouseNoMove(cast[0]+3,cast[1]+3);
lsSleep(1000);
checkBreak();

while findchat(castcount - 1) == "lure" do
lsSleep(1000);
checkBreak();
end

castcount = castcount + 1;
GrandTotalCasts = GrandTotalCasts + 1;

--Read Chat
ChatType = findchat();

lsSleep(200);

CurrentLure = string.sub(PlayersLures[CurrentLureIndex],string.find(PlayersLures[CurrentLureIndex],"_")+1,string.len(PlayersLures[CurrentLureIndex])-4);

if ChatType == "nobitlostlure" then
--No fish bit. You also lost your lure.
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "No fish bit. You also lost your lure." .. "\n");

elseif ChatType == "nobit" then
--No fishbit
GrandTotalFailed = GrandTotalFailed + 1;
if LogFails == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "No fish bit." .. "\n");
end

elseif ChatType == "nocatchlostlure" then
--You didn't catch anything. You also lost your lure.
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You didn\'t catch anything. You also lost your lure." .. "\n");

elseif ChatType == "nocatch" then
--You didn't catch anything.
GrandTotalFailed = GrandTotalFailed + 1;
if LogFails == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You didn\'t catch anything." .. "\n");
end

elseif ChatType == "alreadyfishing" then
--castcount = castcount-1;
lsSleep(15000); -- Long pause to wait for fishing queue to stop. Somehow it pushed the Fish button twice and now you will cast 2 times in a row.
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You are already fishing!" .. "\n");

elseif ChatType == "strange" then
--Strange Fish
GrandTotalStrange = GrandTotalStrange + 1;
GrandTotalFailed = GrandTotalFailed + 1;
if LogStrangeUnusual == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught a STRANGE fish, but your rod was just too clumbsy." .. "\n");
end

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

elseif ChatType == "strangelostlure" then
-- Strange Fish and lost lure
GrandTotalStrange = GrandTotalStrange + 1;
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught a STRANGE fish, but your rod was just too clumbsy. You also lost your lure." .. "\n");

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

elseif ChatType == "unusual" then
-- Unusual Fish
GrandTotalUnusual = GrandTotalUnusual + 1;
GrandTotalFailed = GrandTotalFailed + 1;
if LogStrangeUnusual == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an UNUSUAL fish, but you were not quick enough." .. "\n");
end

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

-- Can't uncomment below elseif statement until we get a screenshot of a message of you were not quick enough. You also lost your lure.
-- This would need to be added to Fishing_Func.inc , in the Chat_Types {array} along with adding Chatlog_AlmostUnusualLostlure.png). Add above "unusual" line in the array

--elseif ChatType == "unusuallostlure" then
-- Unusual Fish
--GrandTotalUnusual = GrandTotalUnusual + 1;
--GrandTotalLostLures = GrandTotalLostLures + 1;
--GrandTotalFailed = GrandTotalFailed + 1;
--if LogStrangeUnusual == true then
--WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an UNUSUAL fish, but you were not quick enough." .. "\n");
--end

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

elseif ChatType == "odd" then
-- Odd Fish
GrandTotalOdd = GrandTotalOdd + 1;
GrandTotalFailed = GrandTotalFailed + 1;
if LogOdd == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an ODD fish, but were too late recognizing the bite." .. "\n");
end

elseif ChatType == "oddlostlure" then
-- Odd Fish and lost lure
GrandTotalOdd = GrandTotalOdd + 1;
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an ODD fish, but were too late recognizing the bite. You also lost your lure." .. "\n");

elseif ChatType == "carry" then
--chat lines are messed up now
castcount=0;

elseif ChatType == "caught" or ChatType == "caughtlostlure" then
Fish = ChatReadFish();

table.insert(gui_log_fish,Fish);

if ChatType == "caughtlostlure" then
GrandTotalLostLures = GrandTotalLostLures + 1;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "Though you lost your lure, you did catch a " .. Fish .. "\n");
-- This Needs Check for new lure. This will cause a error if not.
--Reset, skip to next lure
castcount=0;
else
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "Caught a " .. Fish .. "\n");

end

--gui_refresh();

if SkipCommon == true then
FishType = string.sub(Fish,string.find(Fish,",") + 1);
if FishType == "Abdju" or FishType == "Chromis" or FishType == "Catfish" or FishType == "Carp" or FishType == "Perch" or FishType == "Phagrus" or FishType == "Tilapia" then
--Skip it
castcount=0;

end
end

gui_refresh();
end

gui_refresh();
end

gui_refresh();
end
end
</pre>
{{Collapse bottom}}

{{Collapse top|title=New Raeli Oven Monitor (IN TESTING)}}
<pre>
loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/common.inc")();
loadfile("luaScripts/ui_utils.inc")();

askText = singleLine([[
Raeli Color Monitor v1.1b (edit by Selune) --
Make sure the Raeli Oven is pinned, then select the ATITD window and press shift.
]]);

stop_at_CB = false;
take_screenshots = true;
stop_at_color = "White";
confidence_threshold = 15;
saved_x = 0;
saved_y = 0;
go_now = false;

color_names = {"AliceBlue", "AntiqueWhite", "Aqua", "Aquamarine", "Azure", "Beige", "Bisque", "Black", "BlanchedAlmond", "Blue", "BlueViolet", "Brown", "Burlywood", "CadetBlue", "Carrot", "Chartreuse", "Chocolate", "Coral", "CornflowerBlue", "Cornsilk", "Crimson", "DarkBlue", "DarkCyan", "DarkGoldenrod", "DarkGray", "DarkGreen", "DarkKhaki", "DarkMagenta", "DarkOliveGreen", "DarkOrange", "DarkOrchid", "DarkRed", "DarkSalmon", "DarkSeaGreen", "DarkSlateBlue", "DarkSlateGray", "DarkTurquoise", "DarkViolet", "DeepPink", "DeepSkyBlue", "DimGray", "DodgerBlue", "Feldspar", "FireBrick", "FloralWhite", "ForestGreen", "Fuchsia", "Gainsboro", "GhostWhite", "Gold", "Goldenrod", "Gray", "Green", "GreenYellow", "Honeydew", "HotPink", "IndianRed", "Indigo", "Ivory", "Khaki", "Lavender", "LavenderBlush", "LawnGreen", "LemonChiffon", "LightBlue", "LightCoral", "LightCyan", "LightGoldenrodYellow", "LightGreen", "LightGrey", "LightPink", "LightSalmon", "LightSeaGreen", "LightSkyBlue", "LightSlateBlue", "LightSlateGray", "LightSteelBlue", "LightYellow", "Lime", "LimeGreen", "Linen", "Maroon ", "MediumAquamarine", "MediumBlue ", "MediumOrchid", "MediumPurple", "MediumSeaGreen", "MediumSlateBlue", "MediumSpringGreen", "MediumTurquoise", "MediumVioletRed", "MidnightBlue", "MintCream", "MistyRose", "Moccasin", "NavajoWhite", "Navy ", "OldLace", "Olive", "OliveDrab", "Orange", "OrangeRed", "Orchid", "PaleGoldenrod", "PaleGreen", "PaleTurquoise", "PaleVioletRed", "PapayaWhip", "PeachPuff", "Peru", "Pink", "Plum", "PowderBlue", "Purple ", "Red", "RosyBrown", "RoyalBlue", "SaddleBrown", "Salmon", "SandyBrown", "SeaGreen", "Seashell", "Sienna", "Silver", "SkyBlue", "SlateBlue", "SlateGray", "Snow", "SpringGreen", "SteelBlue ", "Tan", "Teal", "Thistle", "Tomato", "Turquoise", "Violet", "VioletRed", "Wheat", "White", "WhiteSmoke", "Yellow", "YellowGreen"};
color_values = {0xF0F8FF, 0xFAEBD7, 0x00FFFF, 0x7FFFD4, 0xF0FFFF, 0xF5F5DC, 0xFFE4C4, 0x000000, 0xFFEBCD, 0x0000FF, 0x8A2BE2, 0xA52A2A, 0xDEB887, 0x5F9EA0, 0xE07020, 0x7FFF00, 0xD2691E, 0xFF7F50, 0x6495ED, 0xFFF8DC, 0xDC143C, 0x00008B, 0x008B8B, 0xB8860B, 0xA9A9A9, 0x006400, 0xBDB76B, 0x8B008B, 0x556B2F, 0xFF8C00, 0x9932CC, 0x8B0000, 0xE9967A, 0x8FBC8F, 0x483D8B, 0x2F4F4F, 0x00CED1, 0x9400D3, 0xFF1493, 0x00BFFF, 0x696969, 0x1E90FF, 0xD19275, 0xB22222, 0xFFFAF0, 0x228B22, 0xFF00FF, 0xDCDCDC, 0xF8F8FF, 0xFFD700, 0xDAA520, 0x808080, 0x008000, 0xADFF2F, 0xF0FFF0, 0xFF69B4, 0xCD5C5C, 0x4B0082, 0xFFFFF0, 0xF0E68C, 0xE6E6FA, 0xFFF0F5, 0x7CFC00, 0xFFFACD, 0xADD8E6, 0xF08080, 0xE0FFFF, 0xFAFAD2, 0x90EE90, 0xD3D3D3, 0xFFB6C1, 0xFFA07A, 0x20B2AA, 0x87CEFA, 0x8470FF, 0x778899, 0xB0C4DE, 0xFFFFE0, 0x00FF00, 0x32CD32, 0xFAF0E6, 0x800000, 0x66CDAA, 0x0000CD, 0xBA55D3, 0x9370DB, 0x3CB371, 0x7B68EE, 0x00FA9A, 0x48D1CC, 0xC71585, 0x191970, 0xF5FFFA, 0xFFE4E1, 0xFFE4B5, 0xFFDEAD, 0x000080, 0xFDF5E6, 0x808000, 0x6B8E23, 0xFFA500, 0xFF4500, 0xDA70D6, 0xEEE8AA, 0x98FB98, 0xAFEEEE, 0xDB7093, 0xFFEFD5, 0xFFDAB9, 0xCD853F, 0xFFC0CB, 0xDDA0DD, 0xB0E0E6, 0x800080, 0xFF0000, 0xBC8F8F, 0x4169E1, 0x8B4513, 0xFA8072, 0xF4A460, 0x2E8B57, 0xFFF5EE, 0xA0522D, 0xC0C0C0, 0x87CEEB, 0x6A5ACD, 0x708090, 0xFFFAFA, 0x00FF7F, 0x4682B4, 0xD2B48C, 0x008080, 0xD8BFD8, 0xFF6347, 0x40E0D0, 0xEE82EE, 0xD02090, 0xF5DEB3, 0xFFFFFF, 0xF5F5F5, 0xFFFF00, 0x9ACD32};

-- Decimal to Hex conversion
function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end

--Color Conversions
function rgb2hsl(src_r, src_g, src_b)
local h, s, l, d;
src_r = src_r / 255;
src_g = src_g / 255;
src_b = src_b / 255;
local max_rgb = math.max(src_r, src_g, src_b);
local min_rgb = math.min(src_r, src_g, src_b);
l = (max_rgb + min_rgb) / 2;

if(max_rgb == min_rgb) then
h = 0; --achromatic
s = 0;
else
d = max_rgb - min_rgb;
if l > 0.5 then
s = d / (2 - max_rgb - min_rgb);
else
s = d / (max_rgb + min_rgb);
end

if src_g > src_b then
if src_r > src_g then
h = (src_g - src_b) / d;
else
h = (src_b - src_r) / d + 2;
end
else
if src_r > src_g then
h = (src_g - src_b) / d + 6;
else
h = (src_r - src_g) / d + 4;
end
end
h = h / 6;
end

if h == nil then
error "NO H";
end

if s == nil then
error ("NO S D:" .. d);
end

if l == nil then
error "NO L";
end

return h, s, l;
end

function rgb2lab(src_r, src_g, src_b)
--R from 0 to 255
--G from 0 to 255
--B from 0 to 255
local r = src_r/255;
local g = src_g/255;
local b = src_b/255;

if (r > 0.04045) then
r = math.pow((r + 0.055) / 1.055, 2.4);
else
r = r / 12.92;
end
if ( g > 0.04045) then
g = math.pow((g + 0.055) / 1.055, 2.4);
else
g = g / 12.92;
end
if (b > 0.04045) then
b = math.pow((b + 0.055) / 1.055, 2.4);
else
b = b / 12.92;
end

r = r * 100;
g = g * 100;
b = b * 100;

local x = r * 0.4124 + g * 0.3576 + b * 0.1805;
local y = r * 0.2126 + g * 0.7152 + b * 0.0722;
local z = r * 0.0193 + g * 0.1192 + b * 0.9505;

x = x / 95.047;
y = y / 100.000;
z = z / 108.883;

if ( x > 0.008856 ) then
x = math.pow( x , 1/3 );
else
x = ( 7.787 * x ) + ( 16/116 );
end
if ( y > 0.008856 ) then
y = math.pow( y , 1/3 );
else
y = ( 7.787 * y ) + ( 16/116 );
end
if ( z > 0.008856 ) then
z = math.pow( z , 1/3 );
else
z = ( 7.787 * z ) + ( 16/116 );
end

local lab_l = ( 116 * y ) - 16;
local lab_a = 500 * ( x - y );
local lab_b = 200 * ( y - z );

return lab_l, lab_a, lab_b;
end

--Get nearest color name
function nearestColor(px)
local rgb_r, rgb_g, rgb_b, tst_r, tst_g, tst_b, test_px;
local lab_l, lab_a, lab_b, lab_tst_l, lab_tst_a, lab_tst_b;
local hsl_h, hsl_s, hsl_l, hsl_tst_h, hsl_tst_s, hsl_tst_l;
local offset, best_name, best_offset, next_best_offset, confidence;
best_offset = 100000;
next_best_offset = 1000000;
rgb_r = ((math.floor(px/256/256/256) % 256) - 7) * 255/248;
rgb_g = ((math.floor(px/256/256) % 256) - 7) * 255/248;
rgb_b = ((math.floor(px/256) % 256) - 6) * 255/248;
lab_l, lab_a, lab_b = rgb2lab(rgb_r, rgb_g, rgb_b);
hsl_h, hsl_s, hsl_l = rgb2hsl(rgb_r, rgb_g, rgb_b);

for i=1, #color_names do
checkBreak();
test_px = color_values[i];
tst_r = (math.floor(test_px/256/256) % 256);
tst_g = (math.floor(test_px/256) % 256);
tst_b = (math.floor(test_px) % 256);
lab_tst_l, lab_tst_a, lab_tst_b = rgb2lab(tst_r, tst_g, tst_b);
hsl_tst_h, hsl_tst_s, hsl_tst_l = rgb2hsl(tst_r, tst_g, tst_b);

---- Different methods to determine "distance" from the ideal colors. Change these to test different options.

--offset = math.abs(rgb_r - tst_r) + math.abs(rgb_g - tst_g) + math.abs(rgb_b - tst_b);
--offset = math.max(math.max((math.abs(rgb_r - tst_r)), math.abs(rgb_g - tst_g)), math.abs(rgb_b - tst_b));
offset = (rgb_r - tst_r)^2 + (rgb_g - tst_g)^2 + (rgb_b - tst_b)^2;
--offset = math.abs(lab_l - lab_tst_l) + math.abs(lab_a - lab_tst_a) + math.abs(lab_b - lab_tst_b);
--offset = (lab_l - lab_tst_l)^2 + (lab_a - lab_tst_a)^2 + (lab_b - lab_tst_b)^2;
--offset = math.max(math.max((math.abs(lab_l - lab_tst_l)), math.abs(lab_a - lab_tst_a)), math.abs(lab_b - lab_tst_b));
--offset = math.abs(hsl_h - hsl_tst_h) + math.abs(hsl_s - hsl_tst_s) + math.abs(hsl_l - hsl_tst_l);
--offset = (hsl_h - hsl_tst_h)^2 + (hsl_s - hsl_tst_s)^2 + (hsl_l - hsl_tst_l)^2;
--offset = math.max(math.max((math.abs(hsl_h - hsl_tst_h)), math.abs(hsl_s - hsl_tst_s)), math.abs(hsl_l - hsl_tst_l));
if (offset < next_best_offset) then
if (offset < best_offset) then
next_best_offset = best_offset;
best_offset = offset;
best_name = color_names[i]; -- .. " Hex: " .. DEC_HEX(color_values[i]);
else
next_best_offset = offset;
end
confidence = ((next_best_offset - best_offset) / best_offset) * 100;
end
end

return best_name, math.floor(confidence);
end

--Check pixel against target
function checkColor(px)
local color_name, confidence;
color_name, confidence = nearestColor(px);

if (color_name:upper() == stop_at_color:upper()) then
return true, confidence;
else
return false, 0;
end
end

-- optional message
function askForPixel()
local is_done = false;
local have_coords = false;
local color_found = false;
local color_guess = "NONE";
local tst_r, tst_g, tst_b, rgb_r, rgb_g, rgb_b;
local confidence = 0;
-- Display message until shift is held
while not go_now do
checkBreak();
srReadScreen();
y = 0;
mouse_x, mouse_y = srMousePos();
if not have_coords then
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xFFFFFFff,
"Mouse over one of the Raeli Oven color pixels and press Shift.");
if lsShiftHeld() then
saved_x = mouse_x;
saved_y = mouse_y;
have_coords = true;
end
else
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xFFFFFFff,
"Coords chosen, press 'Reset' to change or 'Do It' to start.");
end

y = y + 40;
if have_coords then
px = srReadPixel(saved_x, saved_y);
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xffffff,
saved_x .. ", " .. saved_y);
else
px = srReadPixel(mouse_x, mouse_y);
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xB0B0B0ff,
mouse_x .. ", " .. mouse_y);
end

y = y + 15;
color_guess, confidence = nearestColor(px);
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, px,
"(" .. (math.floor(px/256/256/256) % 256) .. "," .. (math.floor(px/256/256) % 256) .. "," .. (math.floor(px/256) % 256) .. "," .. (px % 256) .. ") Hex: " .. DEC_HEX(math.floor((px/256) % 16777216)));

y = y + 20;
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, px, "Best guess: " .. color_guess);
y = y + 15;
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, px, "Confidence: " .. confidence .. " (higher is better)");

-- Testing other methods of grabbing the pixel, making sure RGBA values match
-- srReadScreen();
-- px2 = srReadPixelFromBuffer(mouse_x, mouse_y);
-- lsPrintWrapped(0, 80, 1, lsScreenX, 0.7, 0.7, 0xB0B0B0ff,
-- mouse_x .. ", " .. mouse_y .. " = " .. (math.floor(px2/256/256/256) % 256) .. "," .. (math.floor(px2/256/256) % 256) .. "," .. (math.floor(px2/256) % 256) .. "," .. (px2 % 256) );
-- lsButtonText(lsScreenX - 110, lsScreenY - 90, 0, 100, px, "test1");
-- lsButtonText(lsScreenX - 110, lsScreenY - 60, 0, 100, px2, "test2");

y = y + 20;
take_screenshots = lsCheckBox(15, y, z, 0xffffffff, " Take Screenshots", take_screenshots);

y = y + 20;
stop_at_CB = lsCheckBox(15, y, z, 0xffffffff, " Stop at Color", stop_at_CB);

if stop_at_CB then
y = y + 25;
is_done = false;
color_found = false;
-- Edit box and text display
lsPrint(10, y, z, 0.7, 0.7, 0xFFFFFFff, "Desired Color:");

y = y + 20;
-- lsEditBox returns two different things (a state and a value)
is_done, stop_at_color = lsEditBox("Desired Color:", 10, y, z, 250, 30, 0.7, 0.7, 0x000000ff, "White");
--dropdown_color_cur_value = lsDropdown("ColorDropDown1", 5, y, 0, 200, dropdown_color_cur_value, color_names);

for i=0, #color_names do
if stop_at_color and color_names[i] then
if (stop_at_color:upper() == (color_names[i]):upper()) then
color_found = true;
end
end
end

if not color_found then
lsPrint(130, y - 20, z, 0.7, 0.7, 0xFF0000ff, "No such color");
end

y = y + 35;
lsPrint(5, y, 0, 0.6, 0.6, 0xffffffff, "Confidence Required:");
is_done, confidence_threshold = lsEditBox("confthresh", 150, y, 0, 50, 30, 0.7, 0.7, 0x000000ff, confidence_threshold);
confidence_threshold = tonumber(confidence_threshold);
if not confidence_threshold then
lsPrint(10, y+17, 10, 0.4, 0.4, 0xFF2020ff, "MUST BE A NUMBER");
confidence_threshold = 10;
end
else
is_done = true;
color_found = true;
end

if have_coords then
if color_found then
if lsButtonText(10, lsScreenY - 30, 0, 80, 0xFFFFFFff, "Do It") then
go_now = true;
end
end

if lsButtonText(100, lsScreenY - 30, 0, 80, 0xFFA500ff, "Reset") then
have_coords = false;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end
lsDoFrame();
end
-- Wait for shift to be released
while lsShiftHeld() do end;
xyWindowSize = srGetWindowSize();
end

function doit()
askForWindow(askText);
while lsShiftHeld() do
-- Make user release shift key
lsCheckBreak();
end

askForPixel();

local t0 = lsGetTimer();
local px = 0;
local index=0;
local color_name, confidence;
while 1 do
local y = 0;
checkBreak();
lsSleep(100);
srReadScreen();
new_px = srReadPixel(saved_x, saved_y);
local t = (lsGetTimer() - t0) / 1000 / 60;
t = math.floor(t*10 + 0.5)/10;
local t_string = t;
if not (new_px == px) then
index = index+1;
if take_screenshots then
srSaveLastReadScreen("screen_" .. index .. "_" .. t_string .. ".png");
end
px = new_px;

if stop_at_CB then
color_name, confidence = nearestColor(px);
if (color_name:upper() == stop_at_color:upper()) then
if confidence > confidence_threshold then
clickAllText("Interrupt");
lsPlaySound("Complete.wav");
error ("Stopped burn at: " .. stop_at_color .. " Confidence: " .. confidence);
else
for i = 1, 3 do
lsPlaySound("Clank.wav");
lsSleep(50);
end
end
else
lsPlaySound("Clank.wav");
end
else
lsPlaySound("Clank.wav");
end
end

y = y + 5;
lsPrintWrapped(5, y, 1, lsScreenX - 10, 0.7, 0.7, 0xFFFFFFff,
"Screen: " .. index .. " Timer: " .. t_string);
y = y + 15;
lsPrintWrapped(5, y, 1, lsScreenX - 10, 0.7, 0.7, 0xFFFFFFff,
"Color: " .. color_name .. " Confidence: " .. confidence);

y = y + 30;
lsPrintWrapped(5, y, 1, lsScreenX - 10, 0.7, 0.7, 0xFFFFFFff,
"(" .. (math.floor(px/256/256/256) % 256) .. "," .. (math.floor(px/256/256) % 256) .. "," .. (math.floor(px/256) % 256) .. "," .. (px % 256) .. ") Hex: " .. DEC_HEX(math.floor((new_px/256) % 16777216)));

if lsButtonText(lsScreenX - 110, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end
lsDoFrame();
end
end
</pre>
{{Collapse bottom}}

User:Selune

2013-01-15T05:54:17Z

Selune:

Selune's Macros have been updated to the TaleScripts repository. Please leave any ideas for improvements or new macros here.

{{Collapse top|title=Paint Reaction Template}}
<pre>
Cabbage | RedSand | G | -11 | 26
Cabbage | Iron | W | 27 | 27
Cabbage | Copper | W | -20 | -60
Cabbage | Potash | B | 19 | -63
Carrot | RedSand | B | 32 | -26
Carrot | Lead | W | -17 | 61
Carrot | Potash | W | -59 | 56
Carrot | Lime | G | 0 | 23
Clay | Lead | B | 32 | -16
Clay | Copper | R | 20 | -12
Clay | Sulfur | G | -55 | -41
Clay | Saltpeter | B | 54 | 35
Lead | Iron | B | 4 | 14
Lead | Copper | W | -25 | -40
Lead | Saltpeter | G | -7 | 47
Iron | Sulfur | G | -17 | 0
Iron | Saltpeter | W | -55 | 7
Copper | Sulfur | W | -25 | -12
Copper | Saltpeter | B | 42 | 4
</pre>
{{Collapse bottom}}

{{Collapse top|title=Fishing Macro for Testing}}
<pre>
-- Pin up your Lures menu 'Self Click, Skills, Fishing, Use Lure' (no other pinned up windows can exist)
-- Should have (Chat-Related): 'Chat and Inventory can be minimized' AND 'Minimized chat-channels are still visible'.
-- You must have Main Chat tab showing at all times and window is long/wide enough so no lines don't wrap.

-- Yes, this macro reads your MAIN chat screen, so make sure you read the above statement for it to work correctly.
-- Each line of text must not scroll/wrap to the next line. If it does, then drag your chat window wider so it doesn't wrap.
-- You want to make your chat very wide. Note: It is possible to see a LONG message like "Though you lost your lure, you did catch a 15 deben Orange Spongefish"
-- Another long message is "You didn't catch anything. You also lost your lure. Try different lures and locations"
-- At 1280x1024 your chat screen should reach at least to the mid point of your screen to avoid having a chat line wrap to next line, for a long message, like above.
-- Higher resolutions may not have to reach quite to the mid point.

-- ********** This macro writes to a log file (Fishlog.txt) for most actions, so you can review later! ******
-- ********** This also macro writes to a log file (Fishstats.txt) showing stats of your last fishing session, so you can review later! ******

--You can delete any of the log files if you wish. It will automatically create new ones if they dont exist.
--The fishlog.txt file gets appended everytime you fish, so the file can grow quite long over time.
--The fishstats.txt file gets overwritten everytime your gui program window updates, so it doesn't 'grow' over time.

-- "Main chat tab is not showing" and other errors can usually be overcome by adjusting the main chat window size and restarting, assuming main chat is showing.
-- And also verify the lines aren't wrapping.

-- The very first thing this macro does is to Self Click, Special, What Time is it? option. This will then display the time in main chat window.
-- The macro then parses time displayed, in main chat tab, so it can use it while the macro runs (Log files and on screen display).
-- Thats what the mysterious Self Click is doing, its not a bug, it is suppose to do that and thats why, to fetch the time.

-- Note: These are currently refered to as Common Fish in the below 'SkipCommon' type of fishes (True or False), in the 'Custom Variables' section.

--Abdju
--Chromis
--Catfish
--Carp
--Perch
--Phagrus
--Tilapia

--CUSTOM VARIABLES -- EDIT HERE To Change Fishing Casts, Skips, Updates.

TotalCasts=3; --Total Casts per lure, if a fish caught. If no fish then it skips.
SkipCommon = false; --Skips to next lure if fish caught is a common (Choose True or False).
LureChangesToUpdateTimer = 7; --Total lures used before time is updated. Zero updates every new lure.
IgnoreUnknown = false; --Continues the script if fish is not recognized

--AlmostCaughtAttempts = 0; --Adds additional attempts to the current lure if Unusual, Strange fish are seen;
-- Note: AlmostCaughtAttempts above was already commented out upon arriving to Talescripts.
-- It is also commented out during the script, so uncommenting above will NOT activate the feature.

-- Additional reporting in the log file
-- Choose True or False.
-- Note 'LogStrangeUnusual' and 'LogOdd' (below) overrides LogFails setting. ie if LogStrange true, then it would still log even if LogFails = False
--If LogFails = false and LogStrangeUnusual or LogOdd = true, then failed catches those would still be included in the log file.

LogFails = true; -- Do you want to add Failed Catches to log file? 'Failed to catch anything' or 'No fish bit'. Note the log will still add an entry if you lost lure.
LogStrangeUnusual = true; -- Do you want to add Strange and Unusual fish to the log file? Note the log will still add an entry if you lost lure.
LogOdd = true; -- Do you want to add Odd fish to the log file? Note the log will still add an entry if you lost lure.

-- END CUSTOM VARIABLES

loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();
loadfile("luaScripts/Fishing_Func.inc")();

function SetupLureGroup()

TLures = {};
FirstLure="";
LastLure = "";

srReadScreen();
FindPin = srFindImage("UnPin.png");
if FindPin then

--Click the pinup to refresh the lures window

srClickMouseNoMove(FindPin[0]+5,FindPin[1]+30);
lsSleep(500);

srReadScreen();

DownPin = srFindImageInRange("Fishing/Menu_DownArrow.png",FindPin[0]-10,FindPin[1],50,500);
if DownPin then
--Just Incase
UpArrow = srFindImageInRange("Fishing/Menu_UpArrow.png",FindPin[0]-10,FindPin[1],50,50);
if UpArrow then
srClickMouseNoMove(UpArrow[0]+5,UpArrow[1]+5);
lsSleep(1000);
srReadScreen();
end

-- srClickMouseNoMove(DownPin[0]+5,DownPin[1]+5);
LastLure=FindLureName(DownPin[0]-150,DownPin[1]-10,150,25);
--error(LastLure);
FirstLure = FindLureName(FindPin[0]-150,FindPin[1]-10,150,25);
-- error(FirstLure);
else
--No Arrows on lure menu?
FirstLure=FindLureName(FindPin[0]-150,FindPin[1]-10,150,25);
LastLure=nil;
end
else
error("Didn\'t find Lures pinned window - Self Click->Skills, Fishing -> Use Lure, PIN THIS WINDOW!");
end

if LastLure ~= nil then
--We have last lure, and arrows showing
ChangeLureMenu = LastLure;

FirstLurLoc = srFindImage("fishing/" .. FirstLure);
LastLurLoc = srFindImage("fishing/" .. LastLure);

for i = 1, #Lures,1 do
test = srFindImageInRange(("fishing/" .. Lures[i]),FirstLurLoc[0]-5,FirstLurLoc[1]-5,175,500);

if test then
--Add Lure
table.insert(TLures,Lures[i]);
if Lures[i] == LastLure then
--End of Menu, Use Down Arrow
arrow=srFindImageInRange("Fishing/menu_downarrow.png",test[0],test[1]-5,175,50);
if arrow then
DownArrowLocs = arrow;
srClickMouseNoMove(arrow[0]+5,arrow[1]+5);
lsSleep(1000);
srReadScreen();
lsSleep(1000);
else
error("no arrow found");
end
end
LastLureMenu = Lures[i];

end
end

--Reset Lure Menu
UpArrow = srFindImageInRange("Fishing/Menu_UpArrow.png",FindPin[0]-10,FindPin[1],50,50);
if UpArrow then
srClickMouseNoMove(UpArrow[0]+5,UpArrow[1]+5);
end

else
--No arrows, just get lures
for i = 1, #Lures, 1 do
test = srFindImage("Fishing/" .. Lures[i]);
if test then
table.insert(TLures,Lures[i]);
end
end
end

return TLures;

end

function FindLureName(x,y,w,h)

for i = 1, #Lures, 1 do
Lure = srFindImageInRange("Fishing/" .. Lures[i], x,y,w,h);
if Lure then
return Lures[i]
end
end
end

function GetLure()

srReadScreen();

if CurrentLureIndex == LastLureIndex then
-- Use Down Menu
srClickMouseNoMove(DownArrowLocs[0]-5,DownArrowLocs[1]-5);
srReadScreen();
end

lure = srFindImage("Fishing/" .. PlayersLures[CurrentLureIndex]);
if not lure then
--Failed to find lure
error("Can\'t find a lure!");
else
slure = Lures[PlayersLures[CurrentLureIndex]];
slure = string.sub(slure,string.find(slure,"_")+1,string.len(slure) - 4);
--statusScreen("Using Lure " .. slure);
return slure
end
end

function UseLure()
-- Uses lure according to CurrentLureIndex, which is used in PlayersLures which contains each lure the player has.

if #TLures == 0 then
error 'Can\'t find any lures on the pinned window. Did you run out of lures?'
end

srReadScreen();
lure = srFindImage("Fishing/" .. PlayersLures[CurrentLureIndex]);

if lure then
srClickMouseNoMove(lure[0]+3,lure[1]+3);
lsSleep(500);
srReadScreen();
-- Find Lure Type
for i = 1, #Lure_Types, 1 do
test = srFindImage("Fishing/" .. Lure_Types[i]);
if test then
--Click it!
srClickMouseNoMove(test[0]+3,test[1]+3);
gui_refresh();
break;
end
end

end

if PlayersLures[CurrentLureIndex] == ChangeLureMenu then
down = srFindImage("Fishing/Menu_DownArrow.png");
srClickMouseNoMove(down[0]+5,down[1]+5);
lsSleep(1000);
elseif PlayersLures[CurrentLureIndex] == LastLureMenu then
up = srFindImage("Fishing/Menu_UpArrow.png");
srClickMouseNoMove(up[0]+5,up[1]+5);
CurrentLureIndex=1;
lsSleep(1000);
end

end

function ChatReadFish()
--Find the last line of chat
lsSleep(100);
srReadScreen();
imgs = findAllImages("fishing/chatlog_reddots.png");
Coords = imgs[#imgs];

-- Look for the ** red dots in main chat to see if they exist.
if #imgs == 0 then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

--Caught Something.. Find Fish Details
Sfish = "";

for i = 1, #CL_Fish do
ChatFish = srFindImageInRange("Fishing/" .. CL_Fish[i],Coords[0] ,Coords[1],500,25);
if ChatFish then
Sfish = string.sub(CL_Fish[i],string.find(CL_Fish[i],"Fish_") + 5,string.len(CL_Fish[i]) - 4);
GrandTotalCaught = GrandTotalCaught + 1
break;
end
end

if string.len(Sfish) < 1 then
-- This fish name and fishname.png file likely needs to be added to Fishing_Func.inc, under the CL_Fish array and the .png added to /Images/Fishing folder
if IgnoreUnknown then
Sfish = "Unknown";
SNum = "1";
else
error("Unknown Fish! PLEASE, Take screenshot (Alt+C) of main chat tab, share with Talescripts team!");
end
else
--Find Size
for i = #CL_Number,1,-1 do
ChatSize = srFindImageInRange("fishing/" .. CL_Number[i],Coords[0],Coords[1],500,25);
if ChatSize then
SNum = string.sub(CL_Number[i],string.find(CL_Number[i],"_") + 1, string.len(CL_Number[i]) - 4);
break;
end
end
GrandTotaldb = GrandTotaldb + SNum;
end

return(Sfish .. " (" .. SNum .. "db)");
end

function findchat(line)
--Reads a chat line and returns a basic string for better processing

-- Odd fish means your fly fishing skill is not high enough. Raise it with enormous amounts of fishing.
-- Strange fish means you need a better rod to catch the rish. You may succeed on future attempts.
-- Unusual fish means your speed skill was not high enough to catch this type of fish. If it is almost enough, you may catch them on future casts.

--Possible fishing messages
-- Caught A (SIZE) Deben (FISH)
-- You almost caught a strange fish
-- (You almost caught a strange fish. You also lost your lure.)
-- You almost caught an unusual fish
-- (You almost caught an unusual fish. You also lost your lure.)
-- You almost caught an odd fish
-- (You almost caught an odd fish. You also lost your lure.)
-- Although you lost your lure (Caught a fish)
-- Using a (LURE) (TYPE) lure.
-- You are carrying more than you can manage.
-- You are carrying too much bulk.
-- You didn't catch anything.
-- (You didn't catch anything. You also lost your lure.)
-- No Fish Bit.
-- (No Fish Bit. You also lost your lure.)

--Find the last line of chat
lsSleep(100);
srReadScreen();
imgs = findAllImages("Fishing/chatlog_reddots.png");
Coords = imgs[#imgs];

-- Look for the ** red dots in main chat to see if they exist.
if #imgs == 0 then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

if line and line > 0 then
Coords = imgs[(#imgs) - line];
if not Coords then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

end

--Find What Happened

ChatType = "";

for i = 1, #Chat_Types -1,2 do
test = srFindImageInRange("Fishing/" .. Chat_Types[i],Coords[0],Coords[1],500,30);
if test then
--Found Chat
ChatType = Chat_Types[i + 1];
break;
end
end

--Break down!
if ChatType then
--if ChatType == "lure" then
--elseif ChatType == "nofishlostlure" then
--elseif ChatType == "nofish" then
--elseif ChatType == "strange" then
--elseif ChatType == "unusual" then
return ChatType;
else
error(ChatType);

end

end

function GetTime()
--Reads time stamp using special->what time menu
winsize = srGetWindowSize();

--Open Menu, Press the Esc key to open the Self Click menu

-- Move mouse to center of screen before Sending the Esc key, to get the Self Click menu. We dont want it self clicking near the edge of screen causing an error.
srSetMousePos(winsize[0]/2,winsize[1]/2);
lsSleep(100); -- This delay is critical for any srSetMousePos. Without it, the mouse will not have time to actually move!

srKeyEvent(string.char(27)); -- Send Esc Key
lsSleep(500);

--Find Special Menu
srReadScreen();
menu = srFindImage("Fishing/Menu_Special.png");

if menu then
--Click it!
srClickMouseNoMove(menu[0]+3,menu[1]+3);

lsSleep(500);
srReadScreen();

-- Look for the What Time Is It? option in menu
menu = srFindImage("Fishing/Menu_WhatTime.png");
if menu then
--Click it!
srClickMouseNoMove(menu[0]+3,menu[1]+3);
lsSleep(500);
end
end

srReadScreen();
imgs = findAllImages("Fishing/chatlog_reddots.png");
Coords = imgs[#imgs];

-- Look for the ** red dots in main chat to see if they exist.
if #imgs == 0 then
error 'Main chat tab is not showing or the chat window needs to be adjusted!'
end

for i = #CL_Time, 1, -1 do
Stime = srFindImageInRange("Fishing/" .. CL_Time[i],Coords[0],Coords[1],400,25);
if Stime then
Hour = string.sub(CL_Time[i],string.find(CL_Time[i],"ime_")+4,string.len(CL_Time[i])-4);

AM = srFindImageInRange("Fishing/Chatlog_Time_AM.png",Coords[0],Coords[1],400,25);
if AM then
CurrentTime=(Hour .. "AM");
return (Hour .. "AM");
else
PM = srFindImageInRange("Fishing/chatlog_time_PM.png",Coords[0],Coords[1],400,25);
if PM then
CurrentTime=(Hour .. "PM");
return (Hour .. "PM");
end
end

end
end
end

function gui_refresh()
lsDoFrame();

if GrandTotalCaught < 10 then
last10 = GrandTotalCaught .. "/10";
else
last10 = 10;
end

--Stats (On Screen Display)
--CurrentLureIndex out of PlayersLures
winsize = lsGetWindowSize();

lsPrintWrapped(10, 0, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Lure Index: " .. CurrentLureIndex .. " out of " .. #PlayersLures .. " " .. PlayersLures[CurrentLureIndex]);

lsPrintWrapped(10, 20, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Time: " .. CurrentTime);

lsPrintWrapped(10, 40, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Last [" .. last10 .. "] Fish Caught:");

--Reset this string before showing last 10 fish below. Else the entries will multiply with entries from previous loops/call to this function
last10caught = "";

if #gui_log_fish > 10 then
table.remove(gui_log_fish,1);
end
for i = 1, #gui_log_fish,1 do
lsPrintWrapped(10, 50 + (12*i), 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, gui_log_fish[i]);
last10caught = last10caught .. gui_log_fish[i] .. "\n";
end

lsPrintWrapped(10, winsize[1]-133, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Odd Fish Seen: " .. GrandTotalOdd);
lsPrintWrapped(10, winsize[1]-121, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Unusual Fish Seen: " .. GrandTotalUnusual);
lsPrintWrapped(10, winsize[1]-109, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Strange Fish Seen: " .. GrandTotalStrange);

lsPrintWrapped(10, winsize[1]-97, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "-----------------------------");

lsPrintWrapped(10, winsize[1]-85, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Lures Clicked: " .. GrandTotalLuresUsed);
lsPrintWrapped(10, winsize[1]-73, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Lures Lost: " .. GrandTotalLostLures);

lsPrintWrapped(10, winsize[1]-61, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "-----------------------------");

lsPrintWrapped(10, winsize[1]-49, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Total Casts: " .. GrandTotalCasts);
lsPrintWrapped(10, winsize[1]-37, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Failed Catches: " .. GrandTotalFailed);
lsPrintWrapped(10, winsize[1]-25, 0, lsScreenX - 20, 0.5, 0.5, 0xFFFFFFff, "Fish Caught: " .. GrandTotalCaught .. " (" .. GrandTotaldb .. "db)");

-- Write stats to log file. Everytime the GUI screen is updated, so is the log file.

WriteFishStats("Last Session Hour: " .. CurrentTime .. "\n\nOdd Fish Seen: " .. GrandTotalOdd .. "\nUnusual Fish Seen: " .. GrandTotalUnusual .. "\nStrange Fish Seen: " .. GrandTotalStrange .. "\n---------------------\nLures Clicked: " .. GrandTotalLuresUsed .. "\nLures Lost: " .. GrandTotalLostLures .. " \n---------------------\nTotal Casts: " .. GrandTotalCasts .. "\nFailed Catches: " .. GrandTotalFailed .. "\nFish Caught: " .. GrandTotalCaught .. " (" .. GrandTotaldb .. "db)\n---------------------\n\nLast 10 Fish Caught:\n\n".. last10caught);

end

function doit()
askForWindow("MAIN chat tab MUST be showing and wide enough so that each lines doesn't wrap. Pin up Lures Menu (Self, Skills, Fishing, Use Lures). No other pinned menus can exist. More detailed instructions are included inside the script as comments at top. There are options you can set in the script such as how many casts per lure, what gets written to the log file and more! History will be recorded in FishLog.txt and stats in FishStats.txt. Most errors can be fixed by slightly adjusting/moving your chat screen! Press Shift to continue.");

--Gui_Main();

--Variables Used By Program -- Don't Edit Unless you know what you're doing!
CurrentLure = ""; --Don't Edit
gui_log_fish = {}; --Don't Edit, holds log display
log_fish = {};
CurrentLureIndex=0; -- 1 = First Lure Player Owns in alphabetical order
ChangeLureMenu="";
LastLureMenu="";
DownArrowLocs=nil;
PlayersLures={}; --Don't Edit, Holds Current Player Lures
CurrentTime=""; --Don't Edit, Holds Time Check Value
TotalLuresUsed = 0;
castcount = 0;
--strangecounter = 0;

--These variables were later added for displaying additional info on the screen.
-- Used for the extra reporting/statistics, on screen.
-- Dont Edit Unless you know what you're doing!

GrandTotalCaught = 0;
GrandTotalCasts = 0;
GrandTotaldb = 0;
GrandTotalStrange = 0;
GrandTotalOdd = 0;
GrandTotalUnusual = 0;
GrandTotalLuresUsed = 0;
GrandTotalLostLures = 0;
GrandTotalFailed = 0;

PlayersLures = SetupLureGroup();
CurrentTime = GetTime();
lsSleep(1500);

--Write an entry into log file to show this is a new session
WriteFishLog("[New Session]\n");

while 1 do

checkBreak();
srReadScreen();

--cast = srFindImage("Fishing/Button_Fish.png");
cast = srFindImage("fishicon.png");
if not cast then
error("cannot find fishing button");
end

if castcount == 0 then
--Update counters
castcount = 1;
CurrentLureIndex = CurrentLureIndex +1;

if CurrentLureIndex > #PlayersLures then
--Refresh the Lure window, and reindex it, in case some were lost.
PlayersLures = SetupLureGroup();
CurrentLureIndex = 1;
end

--Update the time if ready, always update before new lure to keep chat/log proper
if TotalLuresUsed == LureChangesToUpdateTimer then
--Update Time

CurrentTime = GetTime();
TotalLuresUsed = 0;
end

--Since no casts been made at all, use a lure
UseLure();
lsSleep(2000);
TotalLuresUsed = TotalLuresUsed + 1;
GrandTotalLuresUsed = GrandTotalLuresUsed + 1;

--update log
gui_refresh();

elseif castcount > TotalCasts then
-- if strangecounter > 0 and strangecounter < AlmostCaughtAttempts then
--we don't reset yet!
-- else
--Reset
castcount=0;
strangecounter = 0;
-- end
else
--Cast
srClickMouseNoMove(cast[0]+3,cast[1]+3);
lsSleep(1000);
checkBreak();

while findchat(castcount - 1) == "lure" do
lsSleep(1000);
checkBreak();
end

castcount = castcount + 1;
GrandTotalCasts = GrandTotalCasts + 1;

--Read Chat
ChatType = findchat();

lsSleep(200);

CurrentLure = string.sub(PlayersLures[CurrentLureIndex],string.find(PlayersLures[CurrentLureIndex],"_")+1,string.len(PlayersLures[CurrentLureIndex])-4);

if ChatType == "nobitlostlure" then
--No fish bit. You also lost your lure.
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "No fish bit. You also lost your lure." .. "\n");

elseif ChatType == "nobit" then
--No fishbit
GrandTotalFailed = GrandTotalFailed + 1;
if LogFails == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "No fish bit." .. "\n");
end

elseif ChatType == "nocatchlostlure" then
--You didn't catch anything. You also lost your lure.
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You didn\'t catch anything. You also lost your lure." .. "\n");

elseif ChatType == "nocatch" then
--You didn't catch anything.
GrandTotalFailed = GrandTotalFailed + 1;
if LogFails == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You didn\'t catch anything." .. "\n");
end

elseif ChatType == "alreadyfishing" then
--castcount = castcount-1;
lsSleep(15000); -- Long pause to wait for fishing queue to stop. Somehow it pushed the Fish button twice and now you will cast 2 times in a row.
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You are already fishing!" .. "\n");

elseif ChatType == "strange" then
--Strange Fish
GrandTotalStrange = GrandTotalStrange + 1;
GrandTotalFailed = GrandTotalFailed + 1;
if LogStrangeUnusual == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught a STRANGE fish, but your rod was just too clumbsy." .. "\n");
end

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

elseif ChatType == "strangelostlure" then
-- Strange Fish and lost lure
GrandTotalStrange = GrandTotalStrange + 1;
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught a STRANGE fish, but your rod was just too clumbsy. You also lost your lure." .. "\n");

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

elseif ChatType == "unusual" then
-- Unusual Fish
GrandTotalUnusual = GrandTotalUnusual + 1;
GrandTotalFailed = GrandTotalFailed + 1;
if LogStrangeUnusual == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an UNUSUAL fish, but you were not quick enough." .. "\n");
end

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

-- Can't uncomment below elseif statement until we get a screenshot of a message of you were not quick enough. You also lost your lure.
-- This would need to be added to Fishing_Func.inc , in the Chat_Types {array} along with adding Chatlog_AlmostUnusualLostlure.png). Add above "unusual" line in the array

--elseif ChatType == "unusuallostlure" then
-- Unusual Fish
--GrandTotalUnusual = GrandTotalUnusual + 1;
--GrandTotalLostLures = GrandTotalLostLures + 1;
--GrandTotalFailed = GrandTotalFailed + 1;
--if LogStrangeUnusual == true then
--WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an UNUSUAL fish, but you were not quick enough." .. "\n");
--end

-- if AlmostCaughtAttempts > 0 then
-- strangecounter = strangecounter +1;
-- end

elseif ChatType == "odd" then
-- Odd Fish
GrandTotalOdd = GrandTotalOdd + 1;
GrandTotalFailed = GrandTotalFailed + 1;
if LogOdd == true then
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an ODD fish, but were too late recognizing the bite." .. "\n");
end

elseif ChatType == "oddlostlure" then
-- Odd Fish and lost lure
GrandTotalOdd = GrandTotalOdd + 1;
GrandTotalLostLures = GrandTotalLostLures + 1;
GrandTotalFailed = GrandTotalFailed + 1;
--Reset, skip to next lure
castcount=0;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "You almost caught an ODD fish, but were too late recognizing the bite. You also lost your lure." .. "\n");

elseif ChatType == "carry" then
--chat lines are messed up now
castcount=0;

elseif ChatType == "caught" or ChatType == "caughtlostlure" then
Fish = ChatReadFish();

table.insert(gui_log_fish,Fish);

if ChatType == "caughtlostlure" then
GrandTotalLostLures = GrandTotalLostLures + 1;
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "Though you lost your lure, you did catch a " .. Fish .. "\n");
-- This Needs Check for new lure. This will cause a error if not.
--Reset, skip to next lure
castcount=0;
else
WriteFishLog("[" .. CurrentTime .. "]\t[" .. CurrentLure .. "]\t" .. "Caught a " .. Fish .. "\n");

end

--gui_refresh();

if SkipCommon == true then
FishType = string.sub(Fish,string.find(Fish,",") + 1);
if FishType == "Abdju" or FishType == "Chromis" or FishType == "Catfish" or FishType == "Carp" or FishType == "Perch" or FishType == "Phagrus" or FishType == "Tilapia" then
--Skip it
castcount=0;

end
end

gui_refresh();
end

gui_refresh();
end

gui_refresh();
end
end
</pre>
{{Collapse bottom}}

{{Collapse top|title=New Raeli Oven Monitor (IN TESTING)}}
<pre>

loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/common.inc")();
loadfile("luaScripts/ui_utils.inc")();

askText = singleLine([[
Raeli Color Monitor v1.1a (edit by Selune) --
Make sure the Raeli Oven is pinned, then select the ATITD window and press shift.
]]);

stop_at_CB = false;
take_screenshots = true;
stop_at_color = "White";
saved_x = 0;
saved_y = 0;
go_now = false;

color_names = {"AliceBlue", "AntiqueWhite", "Aqua", "Aquamarine", "Azure", "Beige", "Bisque", "Black", "BlanchedAlmond", "Blue", "BlueViolet", "Brown", "Burlywood", "CadetBlue", "Carrot", "Chartreuse", "Chocolate", "Coral", "CornflowerBlue", "Cornsilk", "Crimson", "DarkBlue", "DarkCyan", "DarkGoldenrod", "DarkGray", "DarkGreen", "DarkKhaki", "DarkMagenta", "DarkOliveGreen", "DarkOrange", "DarkOrchid", "DarkRed", "DarkSalmon", "DarkSeaGreen", "DarkSlateBlue", "DarkSlateGray", "DarkTurquoise", "DarkViolet", "DeepPink", "DeepSkyBlue", "DimGray", "DodgerBlue", "Feldspar", "FireBrick", "FloralWhite", "ForestGreen", "Fuchsia", "Gainsboro", "GhostWhite", "Gold", "Goldenrod", "Gray", "Green", "GreenYellow", "Honeydew", "HotPink", "IndianRed", "Indigo", "Ivory", "Khaki", "Lavender", "LavenderBlush", "LawnGreen", "LemonChiffon", "LightBlue", "LightCoral", "LightCyan", "LightGoldenrodYellow", "LightGreen", "LightGrey", "LightPink", "LightSalmon", "LightSeaGreen", "LightSkyBlue", "LightSlateBlue", "LightSlateGray", "LightSteelBlue", "LightYellow", "Lime", "LimeGreen", "Linen", "Maroon ", "MediumAquamarine", "MediumBlue ", "MediumOrchid", "MediumPurple", "MediumSeaGreen", "MediumSlateBlue", "MediumSpringGreen", "MediumTurquoise", "MediumVioletRed", "MidnightBlue", "MintCream", "MistyRose", "Moccasin", "NavajoWhite", "Navy ", "OldLace", "Olive", "OliveDrab", "Orange", "OrangeRed", "Orchid", "PaleGoldenrod", "PaleGreen", "PaleTurquoise", "PaleVioletRed", "PapayaWhip", "PeachPuff", "Peru", "Pink", "Plum", "PowderBlue", "Purple ", "Red", "RosyBrown", "RoyalBlue", "SaddleBrown", "Salmon", "SandyBrown", "SeaGreen", "Seashell", "Sienna", "Silver", "SkyBlue", "SlateBlue", "SlateGray", "Snow", "SpringGreen", "SteelBlue ", "Tan", "Teal", "Thistle", "Tomato", "Turquoise", "Violet", "VioletRed", "Wheat", "White", "WhiteSmoke", "Yellow", "YellowGreen"};
color_values = {0xF0F8FF, 0xFAEBD7, 0x00FFFF, 0x7FFFD4, 0xF0FFFF, 0xF5F5DC, 0xFFE4C4, 0x000000, 0xFFEBCD, 0x0000FF, 0x8A2BE2, 0xA52A2A, 0xDEB887, 0x5F9EA0, 0xE07020, 0x7FFF00, 0xD2691E, 0xFF7F50, 0x6495ED, 0xFFF8DC, 0xDC143C, 0x00008B, 0x008B8B, 0xB8860B, 0xA9A9A9, 0x006400, 0xBDB76B, 0x8B008B, 0x556B2F, 0xFF8C00, 0x9932CC, 0x8B0000, 0xE9967A, 0x8FBC8F, 0x483D8B, 0x2F4F4F, 0x00CED1, 0x9400D3, 0xFF1493, 0x00BFFF, 0x696969, 0x1E90FF, 0xD19275, 0xB22222, 0xFFFAF0, 0x228B22, 0xFF00FF, 0xDCDCDC, 0xF8F8FF, 0xFFD700, 0xDAA520, 0x808080, 0x008000, 0xADFF2F, 0xF0FFF0, 0xFF69B4, 0xCD5C5C, 0x4B0082, 0xFFFFF0, 0xF0E68C, 0xE6E6FA, 0xFFF0F5, 0x7CFC00, 0xFFFACD, 0xADD8E6, 0xF08080, 0xE0FFFF, 0xFAFAD2, 0x90EE90, 0xD3D3D3, 0xFFB6C1, 0xFFA07A, 0x20B2AA, 0x87CEFA, 0x8470FF, 0x778899, 0xB0C4DE, 0xFFFFE0, 0x00FF00, 0x32CD32, 0xFAF0E6, 0x800000, 0x66CDAA, 0x0000CD, 0xBA55D3, 0x9370DB, 0x3CB371, 0x7B68EE, 0x00FA9A, 0x48D1CC, 0xC71585, 0x191970, 0xF5FFFA, 0xFFE4E1, 0xFFE4B5, 0xFFDEAD, 0x000080, 0xFDF5E6, 0x808000, 0x6B8E23, 0xFFA500, 0xFF4500, 0xDA70D6, 0xEEE8AA, 0x98FB98, 0xAFEEEE, 0xDB7093, 0xFFEFD5, 0xFFDAB9, 0xCD853F, 0xFFC0CB, 0xDDA0DD, 0xB0E0E6, 0x800080, 0xFF0000, 0xBC8F8F, 0x4169E1, 0x8B4513, 0xFA8072, 0xF4A460, 0x2E8B57, 0xFFF5EE, 0xA0522D, 0xC0C0C0, 0x87CEEB, 0x6A5ACD, 0x708090, 0xFFFAFA, 0x00FF7F, 0x4682B4, 0xD2B48C, 0x008080, 0xD8BFD8, 0xFF6347, 0x40E0D0, 0xEE82EE, 0xD02090, 0xF5DEB3, 0xFFFFFF, 0xF5F5F5, 0xFFFF00, 0x9ACD32};

-- Decimal to Hex conversion
function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end

--Color Conversions
function rgb2hsl(src_r, src_g, src_b)
local h, s, l, d;
src_r = src_r / 255;
src_g = src_g / 255;
src_b = src_b / 255;
local max_rgb = math.max(src_r, src_g, src_b);
local min_rgb = math.min(src_r, src_g, src_b);
l = (max_rgb + min_rgb) / 2;

if(max_rgb == min_rgb) then
h = 0; --achromatic
s = 0;
else
d = max_rgb - min_rgb;
if l > 0.5 then
s = d / (2 - max_rgb - min_rgb);
else
s = d / (max_rgb + min_rgb);
end

if src_g > src_b then
if src_r > src_g then
h = (src_g - src_b) / d;
else
h = (src_b - src_r) / d + 2;
end
else
if src_r > src_g then
h = (src_g - src_b) / d + 6;
else
h = (src_r - src_g) / d + 4;
end
end
h = h / 6;
end

if h == nil then
error "NO H";
end

if s == nil then
error ("NO S D:" .. d);
end

if l == nil then
error "NO L";
end

return h, s, l;
end

function rgb2lab(src_r, src_g, src_b)
--R from 0 to 255
--G from 0 to 255
--B from 0 to 255
local r = src_r/255;
local g = src_g/255;
local b = src_b/255;

if (r > 0.04045) then
r = math.pow((r + 0.055) / 1.055, 2.4);
else
r = r / 12.92;
end
if ( g > 0.04045) then
g = math.pow((g + 0.055) / 1.055, 2.4);
else
g = g / 12.92;
end
if (b > 0.04045) then
b = math.pow((b + 0.055) / 1.055, 2.4);
else
b = b / 12.92;
end

r = r * 100;
g = g * 100;
b = b * 100;

local x = r * 0.4124 + g * 0.3576 + b * 0.1805;
local y = r * 0.2126 + g * 0.7152 + b * 0.0722;
local z = r * 0.0193 + g * 0.1192 + b * 0.9505;

x = x / 95.047;
y = y / 100.000;
z = z / 108.883;

if ( x > 0.008856 ) then
x = math.pow( x , 1/3 );
else
x = ( 7.787 * x ) + ( 16/116 );
end
if ( y > 0.008856 ) then
y = math.pow( y , 1/3 );
else
y = ( 7.787 * y ) + ( 16/116 );
end
if ( z > 0.008856 ) then
z = math.pow( z , 1/3 );
else
z = ( 7.787 * z ) + ( 16/116 );
end

local lab_l = ( 116 * y ) - 16;
local lab_a = 500 * ( x - y );
local lab_b = 200 * ( y - z );

return lab_l, lab_a, lab_b;
end

--Get nearest color name
function nearestColor(px)
local rgb_r, rgb_g, rgb_b, tst_r, tst_g, tst_b, test_px;
local lab_l, lab_a, lab_b, lab_tst_l, lab_tst_a, lab_tst_b;
local hsl_h, hsl_s, hsl_l, hsl_tst_h, hsl_tst_s, hsl_tst_l;
local offset, best_name, best_offset;
best_offset = 100000;
rgb_r = (math.floor(px/256/256/256) % 256);
rgb_g = (math.floor(px/256/256) % 256);
rgb_b = (math.floor(px/256) % 256);
lab_l, lab_a, lab_b = rgb2lab(rgb_r, rgb_g, rgb_b);
hsl_h, hsl_s, hsl_l = rgb2hsl(rgb_r, rgb_g, rgb_b);

for i=1, #color_names do
checkBreak();
test_px = color_values[i];
tst_r = (math.floor(test_px/256/256) % 256);
tst_g = (math.floor(test_px/256) % 256);
tst_b = (math.floor(test_px) % 256);
lab_tst_l, lab_tst_a, lab_tst_b = rgb2lab(tst_r, tst_g, tst_b);
hsl_tst_h, hsl_tst_s, hsl_tst_l = rgb2hsl(tst_r, tst_g, tst_b);

---- Different methods to determine "distance" from the ideal colors. Change these to test different options.

--offset = math.abs(rgb_r - tst_r) + math.abs(rgb_g - tst_g) + math.abs(rgb_b - tst_b);
--offset = math.max(math.max((math.abs(rgb_r - tst_r)), math.abs(rgb_g - tst_g)), math.abs(rgb_b - tst_b));
--offset = (rgb_r - tst_r)^2 + (rgb_g - tst_g)^2 + (rgb_b - tst_b)^2;
--offset = (lab_l - lab_tst_l)^2 + (lab_a - lab_tst_a)^2 + (lab_b - lab_tst_b)^2;
offset = math.max(math.max((math.abs(lab_l - lab_tst_l)), math.abs(lab_a - lab_tst_a)), math.abs(lab_b - lab_tst_b));
--offset = (hsl_h - hsl_tst_h)^2 + (hsl_s - hsl_tst_s)^2 + (hsl_l - hsl_tst_l)^2;
--offset = math.max(math.max((math.abs(hsl_h - hsl_tst_h)), math.abs(hsl_s - hsl_tst_s)), math.abs(hsl_l - hsl_tst_l));

if (offset < best_offset) then
best_name = color_names[i] .. " Hex: " .. DEC_HEX(color_values[i]);
best_offset = offset;
end

end

return best_name;
end

--Check pixel against target
function checkColor(px)
local color_name = nearestColor(px);
if (color_name:upper() == stop_at_color:upper()) then
return true;
end

return false;
end

-- optional message
function askForPixel()
local is_done = false;
local have_coords = false;
local color_found = false;
local color_guess = "NONE";
local tst_r, tst_g, tst_b, rgb_r, rgb_g, rgb_b;
-- Display message until shift is held
while not go_now do
checkBreak();
y = 0;
mouse_x, mouse_y = srMousePos();
if not have_coords then
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xFFFFFFff,
"Mouse over one of the Raeli Oven color pixels and press Shift.");
if lsShiftHeld() then
saved_x = mouse_x;
saved_y = mouse_y;
have_coords = true;
end
else
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xFFFFFFff,
"Coords chosen, press 'Reset' to change or 'Do It' to start.");
end

y = y + 40;
if have_coords then
px = srReadPixel(saved_x, saved_y);
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xffffff,
saved_x .. ", " .. saved_y);
else
px = srReadPixel(mouse_x, mouse_y);
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, 0xB0B0B0ff,
mouse_x .. ", " .. mouse_y);
end

y = y + 15;
color_guess = nearestColor(px);
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, px,
"(" .. (math.floor(px/256/256/256) % 256) .. "," .. (math.floor(px/256/256) % 256) .. "," .. (math.floor(px/256) % 256) .. "," .. (px % 256) .. ") Hex: " .. DEC_HEX(px));

y = y + 15;
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, px, "Best guess: " .. color_guess);
y = y + 30;
lsPrintWrapped(0, y, 1, lsScreenX, 0.7, 0.7, px, "Dec: " .. math.floor((px/256) % 16777216) .. " Hex: " .. DEC_HEX(math.floor((px/256) % 16777216)));

-- Testing other methods of grabbing the pixel, making sure RGBA values match
-- srReadScreen();
-- px2 = srReadPixelFromBuffer(mouse_x, mouse_y);
-- lsPrintWrapped(0, 80, 1, lsScreenX, 0.7, 0.7, 0xB0B0B0ff,
-- mouse_x .. ", " .. mouse_y .. " = " .. (math.floor(px2/256/256/256) % 256) .. "," .. (math.floor(px2/256/256) % 256) .. "," .. (math.floor(px2/256) % 256) .. "," .. (px2 % 256) );
-- lsButtonText(lsScreenX - 110, lsScreenY - 90, 0, 100, px, "test1");
-- lsButtonText(lsScreenX - 110, lsScreenY - 60, 0, 100, px2, "test2");

y = y + 20;
take_screenshots = lsCheckBox(15, y, z, 0xffffffff, " Take Screenshots", take_screenshots);

y = y + 20;
stop_at_CB = lsCheckBox(15, y, z, 0xffffffff, " Stop at Color", stop_at_CB);

if stop_at_CB then
y = y + 25;
is_done = false;
color_found = false;
-- Edit box and text display
lsPrint(10, y, z, 0.7, 0.7, 0xFFFFFFff, "Desired Color:");

y = y + 20;
-- lsEditBox returns two different things (a state and a value)
is_done, stop_at_color = lsEditBox("Desired Color:", 10, y, z, 250, 30, 0.7, 0.7, 0x000000ff, "White");
--dropdown_color_cur_value = lsDropdown("ColorDropDown1", 5, y, 0, 200, dropdown_color_cur_value, color_names);

for i=0, #color_names do
if stop_at_color and color_names[i] then
if (stop_at_color:upper() == (color_names[i]):upper()) then
color_found = true;
end
end
end

y = y + 30;
if not color_found then
lsPrint(10, y, z, 0.7, 0.7, 0xFF0000ff, "No such color");
end

srReadScreen();

y = y + 30;

else
is_done = true;
color_found = true;
end

if have_coords then
if color_found then
if lsButtonText(10, lsScreenY - 30, 0, 80, 0xFFFFFFff, "Do It") then
go_now = true;
end
end

if lsButtonText(100, lsScreenY - 30, 0, 80, 0xFFA500ff, "Reset") then
have_coords = false;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end
lsDoFrame();
end
-- Wait for shift to be released
while lsShiftHeld() do end;
xyWindowSize = srGetWindowSize();
end

function doit()
askForWindow(askText);
while lsShiftHeld() do
-- Make user release shift key
lsCheckBreak();
end

askForPixel();

local t0 = lsGetTimer();
local px = 0;
local index=0;
while 1 do
checkBreak();
lsSleep(100);
srReadScreen();
new_px = srReadPixel(mouse_x, mouse_y);
local t = (lsGetTimer() - t0) / 1000 / 60;
t = math.floor(t*10 + 0.5)/10;
local t_string = t;
if not (new_px == px) then
index = index+1;
if take_screenshots then
srSaveLastReadScreen("screen_" .. index .. "_" .. t_string .. ".png");
end
px = new_px;
if stop_at_CB then
if checkColor(px) then
clickAllText("Interrupt");
lsPlaySound("Complete.wav");
break;
end
end

lsPlaySound("Clank.wav");
end

lsPrintWrapped(0, 0, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Color: " .. DEC_HEX(new_px) .. " screen: " .. index .. " timer: " .. t_string);
lsPrintWrapped(0, 60, 1, lsScreenX, 0.7, 0.7, 0xFFFFFFff,
"(" .. (math.floor(px/256/256/256) % 256) .. "," .. (math.floor(px/256/256) % 256) .. "," .. (math.floor(px/256) % 256) .. "," .. (px % 256) .. ")" );

if lsButtonText(lsScreenX - 110, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end
lsDoFrame();
end
end
</pre>
{{Collapse bottom}}

Festivals Player Progress

2013-01-12T14:31:00Z

Selune:

This page is for players to state their current percentage progress in each of the 7 festivals. We also ask that you state your time zone and any notes regarding your log on ability to help arrange festivals on a useful day and time.

Please keep your information up to date and remind folks to add their information. We will be checking this information often to help with festival scheduling.
=The Chart=
{| border="1" cellpadding="5" cellspacing="1" class="wikitable sortable"
|-
! Avatar Name !! Isis !! Osiris !! Bastet !! Ra !! Maat !! Hathor !! Thoth !! [http://www.timeanddate.com/library/abbreviations/timezones/ Timezone (UTC)] !!class="unsortable" | Notes (e.g. mule, can't do Tues)

|- align="right"
|align="left"| Name || 0 || 0 || 0 || 0 || 0 || 0 || 0 || UTC ||align="left"| Notes

|- align="right"
|align="left"| Shiranai || 100 || 0 || 100 || 100 || 100 || 79 || 100 || GMT-8 ||align="left"|
|- align="right"
|align="left"| Myn || 100 || 100 || 100 || 100 || 0 || 100 || 0 || GMT+10 ||align="left"|
|- align="right"
|align="left"| Myna || 100 || 100 || 100 || 100 || 0 || 100 || 0 || GMT+10 ||align="left"|
|- align="right"
|align="left"| JosS || 100 || 100 || 100 || 100 || 0 || 100 || 0 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Waerloga || 100 || 100 || 100 || 100 || 0 || 100 || 0 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Macrodamia || 100 || 100 || 100 || 100 || 0 || 100 || 0 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Menmaatre || 100|| 100 || 100 || 100 || 78 || 100 || 75 || GMT-4 ||align="left"|
|- align="right"
|align="left"| Bryce || 0|| 0 || 0 || 0 || 0 || 0 || 0 || GMT-5 ||align="left"|
|- align="right"
|align="left"| kuupid || 100 || 89 || 100 || 100 ||100 || 25 ||100 || ||align="left"|
|- align="right"
|align="left"| Farmer || 100|| 89|| 71 || 100 || 100 || 69 || 100 || ||align="left"|
|- align="right"
|align="left"| crashley ||100 || 37 || 71 ||79|| 100 || 69 || 100 || ||align="left"|
|- align="right"
|align="left"| Bognor || 100 || 32 || 71 ||79|| 100|| 69 || 100 || ||align="left"|
|- align="right"
|align="left"| SinDrome || 100|| 59 || 71 || 0 ||100 || 0 || 100|| ||align="left"|
|- align="right"
|align="left"| Hipta || 100|| 0 || 71 || 0 || 100|| 0 || 100|| ||align="left"|
|- align="right"
|align="left"| Arahgon || 100 || 100|| 100 || 79 || 100||25||100 ||GMT+1 ||align="left"|
|- align="right"
|align="left"| Nitocris||100 || 100 || 100 ||79 || 100|| 94 || 100 || GMT-5 ||align="left"|
|- align="right"
|align="left"| Veri || 100 || 100 || 100 || 100 || 100 || 100 || 75 ||GMT-6 ||align="left"|
|- align="right"
|align="left"| natta || 100 || 100 ||100 || 68 || 0 || 65 || 0 ||GMT+1 ||align="left"|
|- align="right"
|align="left"| pira || 100 || 100 || 100 || 68 || 0 || 65 || 0 || ||align="left"|
|- align="right"
|align="left"| Spark || 63 || 100 || 100 || 68 || 0 || 65 || 0 || ||align="left"|
|- align="right"
|align="left"| Jyin || 100 || 100 || 100 || 68 || 0 || 65 || 0 || ||align="left"|
|- align="right"
|align="left"| Gyges|| 63 || 92 || 71 || 79 || 78 || 69 || 0 ||GMT-5 ||align="left"|
|- align="right"
|align="left"| buttah|| 100 || 59 || 100 || 100 || 100 || 0 || 100 ||GMT-5 ||align="left"|
|- align="right"
|align="left"| Tammy ||100 || 100 || 100 || 100 || 100 || 94 ||100 || GMT-5 ||align="left"| Notes
|- align="right"
|align="left"| Larynth || 0 || 0 || 71 || 0 || 0 || 65 || 0 || GMT-6 ||align="left"|
|- align="right"
|align="left"| Huntersmoon || 100 || 89 ||100|| 0 ||100 || 25 || 84 ||GMT-0600 ||align="left"|
|- align="right"
|align="left"| McArine || 100 || 67 || 39 || 100 || 100 || 39 || 100 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Ardagan|| 100 || 99 || 39 || 79 || 100 || 39 || 100 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Desim || 100 || 69 || 0 || 0 || 78 || 14 || 84 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Sirena || 0 || 0 || 0 || 0 || 46 || 0 || 29 || GMT-8 ||align="left"|

|}
== People Passed ==

{| border="1" cellpadding="5" cellspacing="1" class="wikitable sortable"
|-
! Avatar Name
|-
|align="left"| Renard
|- align="right"
|align="left"| Bessodia
|- align="right"
|align="left"| GHawkins
|- align="right"
|-
| Solaris
|-
| Ruby
|-
| Stevehotep
|-
| Mariamom
|-
| PetrusIV
|-
|align="left"| Cate
|-
|align="left"| Kalmkitty
|- align="right"
|align="left"| Windrider
|- align="right"
|align="left"| TheMazeEcho
|- align="right"
|align="left"| Avanya
|- align="right"
|align="left"| Maata
|- align="right"
|align="left"| Alphabob
|-
|align="left"| sparkle
|- align="right"
|align="left"| JaylenaeYbarre
|- align="right"
|align="left"| Hounddog
|- align="right"
|align="left"| Thunderstorm
|- align="right"

|}

User:Selune

2013-01-11T18:28:43Z

Selune:

Macros

2013-01-07T06:04:01Z

Selune: /* Selune's Fixed VT Macros */

==Macros==

Well, I see some people are discussing/sharing macros, and I think that's a good thing. Nobody likes the tedium of clicking, and not everyone has the ability to write good macros/scripts to handle that while they are there.

REMEMBER - it is '''ILLEGAL''' to go afk while macroing. If a eGenesis staff member catches you, you could be banned for breaking the terms of service.

With that in mind, let's make this a normal page of the wiki.

===Corrupt Zip File Work Around===

Sometimes when you download a zip file (via Internet Explorer) from this wiki the file will show as corrupt and you cannot open it. There is a browser setting that prevents the download from happening properly.

For Windows IE you need to alter the HTTP options:

#Tools/Internet Options/Advanced Tab/HTTP 1.1 Settings
##'''untick''' Use HTTP 1.1
##'''untick''' Use HTTP 1.1 through proxy connections
#Apply the change and restart the browser (close it and reopen).

Now try to do the download again and your zip file should be OK.
Reverse the above steps once you have the zip files downloaded.

:You know what, I've left this option unticked for quite sometime and have yet to see any negative side effects. I can still download files from various sites, no problems... Now I just leave it unticked all the time so it continues to download uncorrupted .zip files off wiki, via IE. ~Cegaiel

:*Here is why you might want to re-enable this: ~Zhukuram
::HTTP 1.1 is a newer protocol. With this unticked the browser uses HTTP 1.0.
::From Wikipedia http://en.wikipedia.org/wiki/Hypertext_Transfer_Protocol
:::'''HTTP/1.0 uses a separate connection to the same server for every request-response transaction HTTP/1.1 can reuse a connection multiple times''' Hence HTTP/1.1 communications experience less latency as the establishment of TCP connections presents considerable overhead.

==TaleScripts for VeggieTales==
*[[TaleScripts]] is now online and functional - Jan 29, 2012
**Keep your VeggieTales up to date from a central repository, via GIT or SVN (and NOW an Update button in VeggieTales v1.6.0+).
**More tweaks and 3rd party macros will still be added over time. Check updates often!
***The goal is to eventually get every useful 3rd party VT macros added (listed on this page and some that are not) to the repository, as well as other updates and tweaks.
***Once this happens, then you can just download everything with two clicks (and keep everything patched with new updates, also two clicks).
***Note there is a fully automated crematory macro, charcoal macro and kettle macro included here, if you are hunting for one!

We will not update or modify the original zipped versions from their respective author that are displayed on this page. However, any fine tuning/tweaks we find that are needed or would be beneficial will be done in TaleScripts.

NEWS: Read about VeggieTales v1.6.5, It now includes an update button to sync/get updates from TaleScripts. You no longer need to use the Git or SVN program to get your updates. See news in TaleScripts for more info!

[[TaleScripts |Read more...]]

==VeggieTales Macro Program==
* LUA-based macro engine named VeggieTales
* Special modes for:
** Thistle recipe generation
** Carrot harvesting

* Macros for
** Flax
** Glass making
** Quarrying
** Generic repetitive clicking while monitoring your stats (digging, pumping, sand mining, weaving, carving, etc)
** Wood gathering from a copse of trees
** ...and more!

Created during Tale 4, but continuously updated and maintained by the community, during Tales 5 and above. Now maintained with [[TaleScripts|TaleScripts]] beginning Tale 6.

[[Jimbly's Macros | View Jimby's Macro page]]

==Tale 6 Macros==

===[[User:Bardoth|Bardoth's VeggieTales Macros]]===
*[[File:Brick_rack.zip|Brick_rack.zip]]
*[[File:Kettle_full.zip]]
*[[File:Kiln.zip]]
*[[File:HackingRack.zip]]
*[[File:Wheat.zip]]
*[[File:Casting.zip]]

===[[User:Gyges#Macros|Gyges' Macros]]===
*All use AutoHotkey
*Autoharvest - middle click to examine for chickens/queen ants, nick for resin, gather resin, gather wood.

===[[User:Larame/VTMacros|Larame's VeggieTales Macros]]===
I will slowly be releasing some of my own macros for VeggieTales here.

===[[User:TheMazeEcho|TheMazeEcho]]'s macros===
*[[File:barley.zip|Barley]] macro for ACTools, set up for a ful HD screen resolution (1920*1024). Plants 29 beds per round, pin the plant menu to the top right corner, make sure you carry at least 30 barley, and enough water and grain fertilizer.

*[[File:rake.zip | Hackling Rake]] (for VeggieTales)
** Will also crack coconuts while working the rake if you have a kitchen window open with coconuts in your inventory!

===[[User:Mindl/Macros|Mindl's Macros]]===
*Flax 3x5 Seed / Flax Harvest Macro - AutoHotKey - Based on Iggy's Flax Macro
*8x Woodplane Macro - Autohotkey - Planes and Repairs for you
*Up to 4x4 Onion Macro - Autohotkey - Becuase I couldn't get VeggieTales macro to work

===[[User:Shayra|Shayra's]] Macros===

===[[Sithid:Macros|Sithid]]'s Macros===
AutoIT macros I use.

===[[User:KasumiGhia/Macros|KasumiGhia's Macros]]===
* updated veggietales macros are listed above in the Jimbly/VeggieTales section.

* [[User:KasumiGhia/Macros/BarrelVise|Small Barrel Creation Macro]] by [[User:KasumiGhia|KasumiGhia]]
** Run as many barrel vises as you can pin without overlapping (If your computer is fast enough)

*[[User:KasumiGhia/Macros/WaterMine|Water Mine Operation]] by [[User:KasumiGhia|KasumiGhia]]

* [[User:KasumiGhia/lua|Edited macros]] for VeggieTales by [[User:KasumiGhia|KasumiGhia]]
** updated chem_helper Script for T5 essence values
** [[User:KasumiGhia/lua#Onions_macro|modified Onion]] Script

===[[User:Cegaiel | Cegaiel's Macros]]===

As of Feb 3, 2012 my macros have been added to my user page. Previously I was maintaining them on the T4 Wiki. Remove any bookmarks pointing to the T4 wiki.

*Kettles (Run 1 to 21 kettles) - 1280x1024 (Autohotkey) [see Zhukuram's note below on run-away macro]
*Mining (Autohotkey)
*Sand Mining (Autohotkey)
*Barrel Vise 1280x1024 (Autohotkey)
*Brick Racks (Unlimited) (Autohotkey)
*Carpentry Blade (7.1-7.2k) 1680x1050 (Autohotkey) - Duplicate of Oni's Carp Blade Macro, but converted to Autohotkey with extra features - Thanks Oni!
*Flax Hammocks (Unlimited) (Autohotkey)
*Get Mouse Coordinates and Color (Autohotkey)
*Glaziers' Bench (Autohotkey)
*Grass (Autohotkey)
*Grow Barley 1280x1024 (Autohotkey)
*Grow Wheat (Unlimited) (Autohotkey)
*Hackling Rake (Autohotkey)
*Malting Trays (Unlimited) (Autohotkey)
*Plane boards (on Carpentry Shop) (Unlimited) (Autohotkey)
*Popup box closer (Autohotkey)
*Pottery Wheels (Unlimited) (Autohotkey)
*Skills Timer Clicker (Digging, Loom, Dirt, etc - Anything that causes a skill to turn red (Autohotkey)
*Papy Picker (Autohotkey)
*Real Seconds Stopwatch (Autohotkey)
*Teppy and Real Seconds Timer (Great for Glazier Bench) (Autohotkey)

===[[User:Leghk | Leghk's]] Macro Mods===
Update to Cegaiel's carpentry shop blade macro to allow any orientation of the anvil. Get the zip from [[User:Leghk|my user page]] with notes on usage.

===[[User:Skyfeather | Skyfeather's]] VeggieTales Macros===

* Nut's Essence Macro - Ensure you start a batch of nut's essence and pin your toxin kitchen macros so that you can see all options without scrolling.

* Essence Macro Update - Performance improvements

* Glass Macro Update - More time efficient and doesn't need to stop making glass items to spike the temperature

* Board Macro Update - Reloads carpentry shops with carpentry blades, may not work if you don't have a dozen or so spare

* Wood Treatment Macro - Must edit the lua file with the specific recipe you're attempting, recipes included should be close, but likely won't be exact

* Metal Treatment Macro - Same as above for wood treatment, but you have to add a new image file for whatever metal you're using. Sun Steel is included as FromSunSteel.png, currently set to Titanium

* Thermometer Macro - Ensure your heater control is set to standard, hover the mouse over the glory hole when you press shift. May still bungle 20% or so of therms.

* Reactory Macro - Poorly documented, only works with upgraded reactories, automatically loads reactories when the 4x batch menu is pinned, and a reactory menu is pinned after the metal has been crystallized at some percentage.

* Forge macro - Really poorly documented, just clicks all of an image on the screen

* Weave Linen macro - Pin the hand loom, will process as much thread as you're holding, will not stop when you run out of thread

[[media:Sky's_VT_Macros.zip | Sky's VT Macros]]

[[media:Glass.zip | Updated VeggieTales glass macro]]

===[[User:Pheros | Pheros]] Block Macro===
* For Digging up Limestone Blocks for Pyramids and put on rollers

===[[User:Selune | Selune]]'s Fixed VT Macros===
* Various improvements and fixes to the existing VT Macros. Now integrated into TaleScripts.

==Tale 5 Macros==

*Most Macros will still work in Tale 6.
*Note any links below in red, are because User pages were not copied from Tale 5 to Tale 6.
**You would need to visit the [http://www.atitd.org/wiki/tale5/Macros Tale 5 Macro page] to see the original links (that are now red).

===[[User:Anka/Macros|Anka's Macros]]===
I'm back and will be updating all of my old macros
*Barley
*Charcoal Hearth
*Charcoal Oven
*Firepit - autohotkey
*Endless Flax
*MultiTool
*Multiple Resolutions - some are 1920x1080 only for now.

===Iggy's Macros===
*[[Macros/Iggys|Iggy's AutoHotKey Macros]]
**[[Macros/Iggys/Flax|Flax Macro]]
**[[Macros/Iggys/Misc/Clicker|Clicking Macro]]
**[[Macros/Iggys/Gather|Clay, Grass & Slate Macro]]

===Rogarian's Macros (Windows Executables)===
* [http://nemesis2.qx.net/pages/ATITD R-Cubed (Windows Only)]
** R-Cubed is simple program that will allow one to easily pick up grass, slate and clay. It will also do simple skill based tasks such as digging or gathering limestone.
** "It's stupdenous!" ~Traak

===[http://www.atitd.org/wiki/tale5/User:Oni/Macros Oni's Macros] (ACTool)===
Macros with mentioned resolutions work only in that resolution.
*'''[[http://www.atitd.org/wiki/tale4/User:Oni/macros ONI's Macro Guide]]''' Macroing for Dummies (like me).
:*Learn to make a simple macro using ACTool.
*''' [[User:Oni/GrassAuto | Simple Grass/Clay auto move gatherer]] ''' v1.0
:* General purpose grass/clay collecting macro. 1280x1024 resolution. 2nd F8 zoomed all the way in.
*''' [[User:Oni/Macros/CarpBladeWide | Carpentry Blade Macro 1680x1050]]'''
*''' [[User:Oni/Macros/Limstone1024 | Simple Limestone Macro1024x768]]'''.
*''' [[User:Oni/Macros/CC1680 | Charcoal Hearth Macro1680x1050]]'''
*''' [[User:Oni/Macros/CC1024|Charcoal Hearth Macro 1024x768]]'''.

===[http://www.atitd.org/wiki/tale5/User:Blethezar/Macros Blethezar's macro]===
*[[User:Blethezar/Macros|CC hearth macro]]
**this is Anka's CC hearth Macro from T3
** I've re-adjusted this macro to run in 1680x1050 resolution ,
** only tried it with 4 hearths so far , but works fine.
** Not lost a batch yet ( Galagah)

===[http://www.atitd.org/wiki/tale5/User:Thanatic/Macros Thanatic's macros]===
*[[User:Thanatic/Macros/CC|nka's CC macro, altered to work with ovens too]]

===[http://www.atitd.org/wiki/tale5/User:Shayra Shayra's Macros]===
*[[User:Shayra|Flax]] --- Dharma's Continuous Flaxer from T3 updated for T5
**Clay Gatherer (nice, try this one)

===[[Macros/tehm_Grass | Tehm's Grass]] (ACTool)===
*Collects Grass

===[http://www.atitd.org/wiki/tale5/User:Makazi/Macro Makazi's Macros] (VeggieTales)===
* [[User:Makazi/Macro#Flax Assist|Flax Assist]]
** Click saver, helps when running many flax beds at once.
* [[User:Makazi/Macro#CC Assist|CC Assist]]
** CC Heart/Oven interface, run multiple CC Hearts/Ovens from one interface.
* [[User:Makazi/Macro#Pixel_Click|Pixel Click]]
** Select pixel area (16x8) and macro will click that image everytime it sees it. (Grass icon, clay icon, etc.)
* [[User:Makazi/Macro#Clay_Gatherer|Clay Gatherer]]
** Fully automated clay gathering macro.

===[http://www.atitd.org/wiki/tale5/User:Darkfyre/Macros Darkfyre's Macros] VeggieTales===
http://www.atitd.org/wiki/tale5/User:Darkfyre/Macros
#Forge
#Kettle
#Casting Box (In progress)
#Kiln (In progress)
#Pottery Wheel (In progress)

* [http://www.atitd.org/wiki/tale6/images/f/f6/VeggieTalesForge.zip Forge Helper]
** 1/28/2012: Fixed: Sheeting and Wire would give image not found, nill value error. Uploaded the fixed version to T6 wiki and TaleScripts. ~Cegaiel

===[[Tutmault/Macros/Fishing | Tutmault Macros]] (VeggieTales)===
[[Tutmault/Macros/Fishing | Fishing Macro]]
#VeggieTale Fishing Script (Ghostmouse,Screenreading) --
#Cycles Lures, Reads Fish Name/Size, Writes to Log File --

===[[User:Daniels#Macros | Daniels' Macros]]===
Click the link to find my altered/original macros for: Charcoal Hearth, Barrel Vise, Crematory, and an updated Shu's Clicker Macro.

==Information on Distances==

'''Additional Information lifted from Tale 3 Wiki'''

This is a distance chart for mouse locations for items. All locations are in cartographer mode, zoomed in, on Windows. Your mileage may vary depending on OS. Please contribute!

* Brick Rack: Horizontal 32px, Vertical 32px
* One line of text in a box: 16px
* Large Buttons
o The Level button is 128px
o Other buttons are 64px ea
* Small Buttons
o The Level button is 64px
o Other buttons are 32px ea

==Macro Programs==
{| border="1" cellpadding="5" cellspacing="5" style="background-color:#FFF8C6"
|-
! Program Name !! Web Address !! Operating System(s) Supported !! Cost
|-
| Macro Express
| http://www.macros.com
| Windows XP, 2000, ME, 9x, NT 4; Pentium or higher CPU; 32 MB RAM; 20 MB hard disk space
| $39.95 / 30 day trial
|-
| ACTool (Asheron's Call Tool)
| http://www.actool.net
| Windows
| Free and open source
|-
| AutoHotkey
| http://www.autohotkey.com/
| Windows
| Free and open source
|-
| AutoIt 3.0
| http://www.hiddensoft.com/autoit3/
| Windows - no libs added
| Free and open source
|-
| LTool-0.3 (Linux)
| http://ltool.sourceforge.net
| Linux
| Free and open source (Python script)
|-
| xautomation
| http://hoopajoo.net/projects/xautomation.html
| Linux (You Compile, gcc c++)
| Free, Open Source, GPL
|-
| xnee
| http://www.sandklef.com/xnee/
| Linux, Mac
| Free, Open Source, GPL
|-
| SCAR Divi
| http://freddy1990.com/index.php?page=product&name=scar
| Windows
| Free
|-
| Java
| http://java.sun.com/j2se/1.4.2/docs/api/java/awt/Robot.html
| Windows, Linux, Mac
| Free
|}

===AC Tool===
There are a couple of issues with AC Tool that, once you fix, make it very easy and good to use.

* Windows XP, start the program in Administrator Mode.
* If you get the error "Could not find Decal's MEMLOCKS.XML", just click Macro > Asheron's Call 1 Settings > Skip AC Mouse Memory Writes
* Setting <f2> and <f3> as start and stop hot keys will help fix most of the issues of "run away" macros.

===Misc===

* {{5}} [[http://www.fileden.com/files/2010/9/10/2965860/A%20Click%20In%20Time.zip A Click in Time]]
** Written by GarethDahm in Tale4 for Windows.
** Free Application!
** Position a small arrow anywhere on your screen.
** Set the timer.
** Let it ease your RSI factor!

*[http://www.atitd.org/wiki/tale4/images/8/8f/Ghostmouse.zip Ghostmouse] (Windows Executable) - Simple old freeware program that records your mouse movements/clicks. Can adjust the speed with a click in Options, if necessary. Records in real time, no scripts to edit, easy for anyone to use. Program no longer made or supported, found in old archived backup CD. ([http://www.atitd.org/wiki/tale4/images/e/e0/Ghostmouse.jpg Screenshot])

Personally I like autohotkey because it's freeware and is still being updated - Blogot

I second the Autohotkey recommendation, it has some extremely powerful features but is still fast and lightweight, and new features are being added all the time. - Dragyn

Personally I like AutoIt 3.0 it is freeware updated alot and it is very powerful allows macroing of almost anything windows - Ledeanna

I second the AutoIt recommendation, it is very powerful as well, easy to code and allows compiling the scripts for use by people who want to macro but feel not competent enough to write their own or who dont want to install the scripting software. ~Anguz
- Note - AutoHotKey also allows you to compile an exe for machines with out AHK installed. ~Jhnny

Added SCAR Divi, its similar to ACtool, but in my opinion much better. It has very nice support for Bitmap searching, and even Bitmask searching. The bitmaps can be converted to strings, and loaded directly in from the script (Rather then saved as images). Lots of other features, but people will have to find them. SCAR also supports bitmap masks, and Deformable template models, which allows the macro to find and identify multiple images, or peices of text, even when the colours, position, or even size has changed. Its possible to make fairly advanced macros that will work regardless of window positions ingame, or resolution.--Kinslayer 08:32, 29 August 2009 (EST)

===Running without Windows?===
A lot of the macro effort has gone towards programs for windows. The windows version of atitd can be run using www.winehq.org (run Windows applications on Linux, BSD, Solaris and Mac OS X).

VeggieTales and autohotkey work to some extent using this emulator along with the windows emulation of atitd.

Autohotkey 'keys' need to be changed to ones that work (Scrolllock, Numpad up/down/left/pageup/down buttons seem to work on ubuntu10). Recording and playback work only on windows emulated programs, but that's enough to save you from windows.

Festivals Player Progress

2013-01-07T06:00:13Z

Selune:

This page is for players to state their current percentage progress in each of the 7 festivals. We also ask that you state your time zone and any notes regarding your log on ability to help arrange festivals on a useful day and time.

Please keep your information up to date and remind folks to add their information. We will be checking this information often to help with festival scheduling.
=The Chart=
{| border="1" cellpadding="5" cellspacing="1" class="wikitable sortable"
|-
! Avatar Name !! Isis !! Osiris !! Bastet !! Ra !! Maat !! Hathor !! Thoth !! [http://www.timeanddate.com/library/abbreviations/timezones/ Timezone (UTC)] !!class="unsortable" | Notes (e.g. mule, can't do Tues)

|- align="right"
|align="left"| Name || 0 || 0 || 0 || 0 || 0 || 0 || 0 || UTC ||align="left"| Notes

|- align="right"
|align="left"| Shiranai || 100 || 0 || 100 || 100 || 100 || 65 || 100 || GMT-8 ||align="left"|
|- align="right"
|align="left"| Thunderstorm || 100 || 94 || 100 || 100 || 100 || 100 || 100 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Myn || 100 || 100 || 100 || 100 || 0 || 100 || 0 || GMT+10 ||align="left"|
|- align="right"
|align="left"| Myna || 100 || 100 || 100 || 100 || 0 || 100 || 0 || GMT+10 ||align="left"|
|- align="right"
|align="left"| JosS || 100 || 100 || 100 || 100 || 0 || 100 || 0 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Waerloga || 100 || 100 || 100 || 100 || 0 || 100 || 0 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Macrodamia || 100 || 100 || 100 || 100 || 0 || 100 || 0 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Menmaatre || 100|| 100 || 100 || 100 || 78 || 100 || 75 || GMT-4 ||align="left"|
|- align="right"
|align="left"| Bryce || 0|| 0 || 0 || 0 || 0 || 0 || 0 || GMT-5 ||align="left"|
|- align="right"
|align="left"| kuupid || 100 || 89 || 100 || 100 ||100 || 25 ||100 || ||align="left"|
|- align="right"
|align="left"| Farmer || 100|| 89|| 71 || 100 || 100 || 69 || 100 || ||align="left"|
|- align="right"
|align="left"| crashley ||100 || 37 || 71 ||79|| 100 || 69 || 100 || ||align="left"|
|- align="right"
|align="left"| Bognor || 100 || 32 || 71 ||79|| 100|| 69 || 100 || ||align="left"|
|- align="right"
|align="left"| SinDrome || 100|| 59 || 71 || 0 ||100 || 0 || 100|| ||align="left"|
|- align="right"
|align="left"| Hipta || 100|| 0 || 71 || 0 || 100|| 0 || 100|| ||align="left"|
|- align="right"
|align="left"| Arahgon || 100 || 100|| 100 || 79 || 100||25||100 ||GMT+1 ||align="left"|
|- align="right"
|align="left"| Nitocris||100 || 100 || 100 ||79 || 100|| 94 || 100 || GMT-5 ||align="left"|
|- align="right"
|align="left"| Veri || 100 || 100 || 100 || 100 || 100 || 100 || 75 ||GMT-6 ||align="left"|
|- align="right"
|align="left"| natta || 100 || 100 ||100 || 68 || 0 || 65 || 0 ||GMT+1 ||align="left"|
|- align="right"
|align="left"| pira || 100 || 100 || 100 || 68 || 0 || 65 || 0 || ||align="left"|
|- align="right"
|align="left"| Spark || 63 || 100 || 100 || 68 || 0 || 65 || 0 || ||align="left"|
|- align="right"
|align="left"| Jyin || 100 || 100 || 100 || 68 || 0 || 65 || 0 || ||align="left"|
|- align="right"
|align="left"| Gyges|| 63 || 92 || 71 || 79 || 78 || 69 || 0 ||GMT-5 ||align="left"|
|- align="right"
|align="left"| buttah|| 100 || 59 || 100 || 100 || 100 || 0 || 100 ||GMT-5 ||align="left"|
|- align="right"
|align="left"| Tammy ||100 || 100 || 100 || 100 || 100 || 94 ||100 || GMT-5 ||align="left"| Notes
|- align="right"
|align="left"| Larynth || 0 || 0 || 71 || 0 || 0 || 65 || 0 || GMT-6 ||align="left"|
|- align="right"
|align="left"| Huntersmoon || 100 || 89 ||100|| 0 ||100 || 25 || 84 ||GMT-0600 ||align="left"|
|- align="right"
|align="left"| McArine || 100 || 57 || 39 || 100 || 100 || 25 || 100 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Ardagan|| 100 || 89 || 39 || 79 || 100 || 39 || 100 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Desim || 100 || 59 || 0 || 0 || 78 || 14 || 84 || GMT+1 ||align="left"|
|- align="right"
|align="left"| Sirena || 0 || 0 || 0 || 0 || 46 || 0 || 29 || GMT-8 ||align="left"|
|- align="right"
|align="left"| Selune|| 0 || 27 || 0 || 0 || 0 || 0 || 29 || GMT-7 ||align="left"|

|}
== People Passed ==

{| border="1" cellpadding="5" cellspacing="1" class="wikitable sortable"
|-
! Avatar Name
|-
|align="left"| Renard
|- align="right"
|align="left"| Bessodia
|- align="right"
|align="left"| GHawkins
|- align="right"
|-
| Solaris
|-
| Ruby
|-
| Stevehotep
|-
| Mariamom
|-
| PetrusIV
|-
|align="left"| Cate
|-
|align="left"| Kalmkitty
|- align="right"
|align="left"| Windrider
|- align="right"
|align="left"| TheMazeEcho
|- align="right"
|align="left"| Avanya
|- align="right"
|align="left"| Maata
|- align="right"
|align="left"| Alphabob
|-
|align="left"| sparkle
|- align="right"
|align="left"| JaylenaeYbarre
|- align="right"
|align="left"| Hounddog
|- align="right"
|}

User:Selune

2013-01-07T05:51:33Z

Selune:

Macros

2013-01-07T03:38:09Z

Selune: /* Tale 6 Macros */

==Macros==

Well, I see some people are discussing/sharing macros, and I think that's a good thing. Nobody likes the tedium of clicking, and not everyone has the ability to write good macros/scripts to handle that while they are there.

REMEMBER - it is '''ILLEGAL''' to go afk while macroing. If a eGenesis staff member catches you, you could be banned for breaking the terms of service.

With that in mind, let's make this a normal page of the wiki.

===Corrupt Zip File Work Around===

Sometimes when you download a zip file (via Internet Explorer) from this wiki the file will show as corrupt and you cannot open it. There is a browser setting that prevents the download from happening properly.

For Windows IE you need to alter the HTTP options:

#Tools/Internet Options/Advanced Tab/HTTP 1.1 Settings
##'''untick''' Use HTTP 1.1
##'''untick''' Use HTTP 1.1 through proxy connections
#Apply the change and restart the browser (close it and reopen).

Now try to do the download again and your zip file should be OK.
Reverse the above steps once you have the zip files downloaded.

:You know what, I've left this option unticked for quite sometime and have yet to see any negative side effects. I can still download files from various sites, no problems... Now I just leave it unticked all the time so it continues to download uncorrupted .zip files off wiki, via IE. ~Cegaiel

:*Here is why you might want to re-enable this: ~Zhukuram
::HTTP 1.1 is a newer protocol. With this unticked the browser uses HTTP 1.0.
::From Wikipedia http://en.wikipedia.org/wiki/Hypertext_Transfer_Protocol
:::'''HTTP/1.0 uses a separate connection to the same server for every request-response transaction HTTP/1.1 can reuse a connection multiple times''' Hence HTTP/1.1 communications experience less latency as the establishment of TCP connections presents considerable overhead.

==TaleScripts for VeggieTales==
*[[TaleScripts]] is now online and functional - Jan 29, 2012
**Keep your VeggieTales up to date from a central repository, via GIT or SVN (and NOW an Update button in VeggieTales v1.6.0+).
**More tweaks and 3rd party macros will still be added over time. Check updates often!
***The goal is to eventually get every useful 3rd party VT macros added (listed on this page and some that are not) to the repository, as well as other updates and tweaks.
***Once this happens, then you can just download everything with two clicks (and keep everything patched with new updates, also two clicks).
***Note there is a fully automated crematory macro, charcoal macro and kettle macro included here, if you are hunting for one!

We will not update or modify the original zipped versions from their respective author that are displayed on this page. However, any fine tuning/tweaks we find that are needed or would be beneficial will be done in TaleScripts.

NEWS: Read about VeggieTales v1.6.5, It now includes an update button to sync/get updates from TaleScripts. You no longer need to use the Git or SVN program to get your updates. See news in TaleScripts for more info!

[[TaleScripts |Read more...]]

==VeggieTales Macro Program==
* LUA-based macro engine named VeggieTales
* Special modes for:
** Thistle recipe generation
** Carrot harvesting

* Macros for
** Flax
** Glass making
** Quarrying
** Generic repetitive clicking while monitoring your stats (digging, pumping, sand mining, weaving, carving, etc)
** Wood gathering from a copse of trees
** ...and more!

Created during Tale 4, but continuously updated and maintained by the community, during Tales 5 and above. Now maintained with [[TaleScripts|TaleScripts]] beginning Tale 6.

[[Jimbly's Macros | View Jimby's Macro page]]

==Tale 6 Macros==

===[[User:Bardoth|Bardoth's VeggieTales Macros]]===
*[[File:Brick_rack.zip|Brick_rack.zip]]
*[[File:Kettle_full.zip]]
*[[File:Kiln.zip]]
*[[File:HackingRack.zip]]
*[[File:Wheat.zip]]
*[[File:Casting.zip]]

===[[User:Gyges#Macros|Gyges' Macros]]===
*All use AutoHotkey
*Autoharvest - middle click to examine for chickens/queen ants, nick for resin, gather resin, gather wood.

===[[User:Larame/VTMacros|Larame's VeggieTales Macros]]===
I will slowly be releasing some of my own macros for VeggieTales here.

===[[User:TheMazeEcho|TheMazeEcho]]'s macros===
*[[File:barley.zip|Barley]] macro for ACTools, set up for a ful HD screen resolution (1920*1024). Plants 29 beds per round, pin the plant menu to the top right corner, make sure you carry at least 30 barley, and enough water and grain fertilizer.

*[[File:rake.zip | Hackling Rake]] (for VeggieTales)
** Will also crack coconuts while working the rake if you have a kitchen window open with coconuts in your inventory!

===[[User:Mindl/Macros|Mindl's Macros]]===
*Flax 3x5 Seed / Flax Harvest Macro - AutoHotKey - Based on Iggy's Flax Macro
*8x Woodplane Macro - Autohotkey - Planes and Repairs for you
*Up to 4x4 Onion Macro - Autohotkey - Becuase I couldn't get VeggieTales macro to work

===[[User:Shayra|Shayra's]] Macros===

===[[Sithid:Macros|Sithid]]'s Macros===
AutoIT macros I use.

===[[User:KasumiGhia/Macros|KasumiGhia's Macros]]===
* updated veggietales macros are listed above in the Jimbly/VeggieTales section.

* [[User:KasumiGhia/Macros/BarrelVise|Small Barrel Creation Macro]] by [[User:KasumiGhia|KasumiGhia]]
** Run as many barrel vises as you can pin without overlapping (If your computer is fast enough)

*[[User:KasumiGhia/Macros/WaterMine|Water Mine Operation]] by [[User:KasumiGhia|KasumiGhia]]

* [[User:KasumiGhia/lua|Edited macros]] for VeggieTales by [[User:KasumiGhia|KasumiGhia]]
** updated chem_helper Script for T5 essence values
** [[User:KasumiGhia/lua#Onions_macro|modified Onion]] Script

===[[User:Cegaiel | Cegaiel's Macros]]===

As of Feb 3, 2012 my macros have been added to my user page. Previously I was maintaining them on the T4 Wiki. Remove any bookmarks pointing to the T4 wiki.

*Kettles (Run 1 to 21 kettles) - 1280x1024 (Autohotkey) [see Zhukuram's note below on run-away macro]
*Mining (Autohotkey)
*Sand Mining (Autohotkey)
*Barrel Vise 1280x1024 (Autohotkey)
*Brick Racks (Unlimited) (Autohotkey)
*Carpentry Blade (7.1-7.2k) 1680x1050 (Autohotkey) - Duplicate of Oni's Carp Blade Macro, but converted to Autohotkey with extra features - Thanks Oni!
*Flax Hammocks (Unlimited) (Autohotkey)
*Get Mouse Coordinates and Color (Autohotkey)
*Glaziers' Bench (Autohotkey)
*Grass (Autohotkey)
*Grow Barley 1280x1024 (Autohotkey)
*Grow Wheat (Unlimited) (Autohotkey)
*Hackling Rake (Autohotkey)
*Malting Trays (Unlimited) (Autohotkey)
*Plane boards (on Carpentry Shop) (Unlimited) (Autohotkey)
*Popup box closer (Autohotkey)
*Pottery Wheels (Unlimited) (Autohotkey)
*Skills Timer Clicker (Digging, Loom, Dirt, etc - Anything that causes a skill to turn red (Autohotkey)
*Papy Picker (Autohotkey)
*Real Seconds Stopwatch (Autohotkey)
*Teppy and Real Seconds Timer (Great for Glazier Bench) (Autohotkey)

===[[User:Leghk | Leghk's]] Macro Mods===
Update to Cegaiel's carpentry shop blade macro to allow any orientation of the anvil. Get the zip from [[User:Leghk|my user page]] with notes on usage.

===[[User:Skyfeather | Skyfeather's]] VeggieTales Macros===

* Nut's Essence Macro - Ensure you start a batch of nut's essence and pin your toxin kitchen macros so that you can see all options without scrolling.

* Essence Macro Update - Performance improvements

* Glass Macro Update - More time efficient and doesn't need to stop making glass items to spike the temperature

* Board Macro Update - Reloads carpentry shops with carpentry blades, may not work if you don't have a dozen or so spare

* Wood Treatment Macro - Must edit the lua file with the specific recipe you're attempting, recipes included should be close, but likely won't be exact

* Metal Treatment Macro - Same as above for wood treatment, but you have to add a new image file for whatever metal you're using. Sun Steel is included as FromSunSteel.png, currently set to Titanium

* Thermometer Macro - Ensure your heater control is set to standard, hover the mouse over the glory hole when you press shift. May still bungle 20% or so of therms.

* Reactory Macro - Poorly documented, only works with upgraded reactories, automatically loads reactories when the 4x batch menu is pinned, and a reactory menu is pinned after the metal has been crystallized at some percentage.

* Forge macro - Really poorly documented, just clicks all of an image on the screen

* Weave Linen macro - Pin the hand loom, will process as much thread as you're holding, will not stop when you run out of thread

[[media:Sky's_VT_Macros.zip | Sky's VT Macros]]

[[media:Glass.zip | Updated VeggieTales glass macro]]

===[[User:Pheros | Pheros]] Block Macro===
* For Digging up Limestone Blocks for Pyramids and put on rollers

===[[User:Selune | Selune]]'s Fixed VT Macros===
* Various improvements and fixes to the existing VT Macros. PLEASE Contact me if you know how to work with the TaleScripts repository!

==Tale 5 Macros==

*Most Macros will still work in Tale 6.
*Note any links below in red, are because User pages were not copied from Tale 5 to Tale 6.
**You would need to visit the [http://www.atitd.org/wiki/tale5/Macros Tale 5 Macro page] to see the original links (that are now red).

===[[User:Anka/Macros|Anka's Macros]]===
I'm back and will be updating all of my old macros
*Barley
*Charcoal Hearth
*Charcoal Oven
*Firepit - autohotkey
*Endless Flax
*MultiTool
*Multiple Resolutions - some are 1920x1080 only for now.

===Iggy's Macros===
*[[Macros/Iggys|Iggy's AutoHotKey Macros]]
**[[Macros/Iggys/Flax|Flax Macro]]
**[[Macros/Iggys/Misc/Clicker|Clicking Macro]]
**[[Macros/Iggys/Gather|Clay, Grass & Slate Macro]]

===Rogarian's Macros (Windows Executables)===
* [http://nemesis2.qx.net/pages/ATITD R-Cubed (Windows Only)]
** R-Cubed is simple program that will allow one to easily pick up grass, slate and clay. It will also do simple skill based tasks such as digging or gathering limestone.
** "It's stupdenous!" ~Traak

===[http://www.atitd.org/wiki/tale5/User:Oni/Macros Oni's Macros] (ACTool)===
Macros with mentioned resolutions work only in that resolution.
*'''[[http://www.atitd.org/wiki/tale4/User:Oni/macros ONI's Macro Guide]]''' Macroing for Dummies (like me).
:*Learn to make a simple macro using ACTool.
*''' [[User:Oni/GrassAuto | Simple Grass/Clay auto move gatherer]] ''' v1.0
:* General purpose grass/clay collecting macro. 1280x1024 resolution. 2nd F8 zoomed all the way in.
*''' [[User:Oni/Macros/CarpBladeWide | Carpentry Blade Macro 1680x1050]]'''
*''' [[User:Oni/Macros/Limstone1024 | Simple Limestone Macro1024x768]]'''.
*''' [[User:Oni/Macros/CC1680 | Charcoal Hearth Macro1680x1050]]'''
*''' [[User:Oni/Macros/CC1024|Charcoal Hearth Macro 1024x768]]'''.

===[http://www.atitd.org/wiki/tale5/User:Blethezar/Macros Blethezar's macro]===
*[[User:Blethezar/Macros|CC hearth macro]]
**this is Anka's CC hearth Macro from T3
** I've re-adjusted this macro to run in 1680x1050 resolution ,
** only tried it with 4 hearths so far , but works fine.
** Not lost a batch yet ( Galagah)

===[http://www.atitd.org/wiki/tale5/User:Thanatic/Macros Thanatic's macros]===
*[[User:Thanatic/Macros/CC|nka's CC macro, altered to work with ovens too]]

===[http://www.atitd.org/wiki/tale5/User:Shayra Shayra's Macros]===
*[[User:Shayra|Flax]] --- Dharma's Continuous Flaxer from T3 updated for T5
**Clay Gatherer (nice, try this one)

===[[Macros/tehm_Grass | Tehm's Grass]] (ACTool)===
*Collects Grass

===[http://www.atitd.org/wiki/tale5/User:Makazi/Macro Makazi's Macros] (VeggieTales)===
* [[User:Makazi/Macro#Flax Assist|Flax Assist]]
** Click saver, helps when running many flax beds at once.
* [[User:Makazi/Macro#CC Assist|CC Assist]]
** CC Heart/Oven interface, run multiple CC Hearts/Ovens from one interface.
* [[User:Makazi/Macro#Pixel_Click|Pixel Click]]
** Select pixel area (16x8) and macro will click that image everytime it sees it. (Grass icon, clay icon, etc.)
* [[User:Makazi/Macro#Clay_Gatherer|Clay Gatherer]]
** Fully automated clay gathering macro.

===[http://www.atitd.org/wiki/tale5/User:Darkfyre/Macros Darkfyre's Macros] VeggieTales===
http://www.atitd.org/wiki/tale5/User:Darkfyre/Macros
#Forge
#Kettle
#Casting Box (In progress)
#Kiln (In progress)
#Pottery Wheel (In progress)

* [http://www.atitd.org/wiki/tale6/images/f/f6/VeggieTalesForge.zip Forge Helper]
** 1/28/2012: Fixed: Sheeting and Wire would give image not found, nill value error. Uploaded the fixed version to T6 wiki and TaleScripts. ~Cegaiel

===[[Tutmault/Macros/Fishing | Tutmault Macros]] (VeggieTales)===
[[Tutmault/Macros/Fishing | Fishing Macro]]
#VeggieTale Fishing Script (Ghostmouse,Screenreading) --
#Cycles Lures, Reads Fish Name/Size, Writes to Log File --

===[[User:Daniels#Macros | Daniels' Macros]]===
Click the link to find my altered/original macros for: Charcoal Hearth, Barrel Vise, Crematory, and an updated Shu's Clicker Macro.

==Information on Distances==

'''Additional Information lifted from Tale 3 Wiki'''

This is a distance chart for mouse locations for items. All locations are in cartographer mode, zoomed in, on Windows. Your mileage may vary depending on OS. Please contribute!

* Brick Rack: Horizontal 32px, Vertical 32px
* One line of text in a box: 16px
* Large Buttons
o The Level button is 128px
o Other buttons are 64px ea
* Small Buttons
o The Level button is 64px
o Other buttons are 32px ea

==Macro Programs==
{| border="1" cellpadding="5" cellspacing="5" style="background-color:#FFF8C6"
|-
! Program Name !! Web Address !! Operating System(s) Supported !! Cost
|-
| Macro Express
| http://www.macros.com
| Windows XP, 2000, ME, 9x, NT 4; Pentium or higher CPU; 32 MB RAM; 20 MB hard disk space
| $39.95 / 30 day trial
|-
| ACTool (Asheron's Call Tool)
| http://www.actool.net
| Windows
| Free and open source
|-
| AutoHotkey
| http://www.autohotkey.com/
| Windows
| Free and open source
|-
| AutoIt 3.0
| http://www.hiddensoft.com/autoit3/
| Windows - no libs added
| Free and open source
|-
| LTool-0.3 (Linux)
| http://ltool.sourceforge.net
| Linux
| Free and open source (Python script)
|-
| xautomation
| http://hoopajoo.net/projects/xautomation.html
| Linux (You Compile, gcc c++)
| Free, Open Source, GPL
|-
| xnee
| http://www.sandklef.com/xnee/
| Linux, Mac
| Free, Open Source, GPL
|-
| SCAR Divi
| http://freddy1990.com/index.php?page=product&name=scar
| Windows
| Free
|-
| Java
| http://java.sun.com/j2se/1.4.2/docs/api/java/awt/Robot.html
| Windows, Linux, Mac
| Free
|}

===AC Tool===
There are a couple of issues with AC Tool that, once you fix, make it very easy and good to use.

* Windows XP, start the program in Administrator Mode.
* If you get the error "Could not find Decal's MEMLOCKS.XML", just click Macro > Asheron's Call 1 Settings > Skip AC Mouse Memory Writes
* Setting <f2> and <f3> as start and stop hot keys will help fix most of the issues of "run away" macros.

===Misc===

* {{5}} [[http://www.fileden.com/files/2010/9/10/2965860/A%20Click%20In%20Time.zip A Click in Time]]
** Written by GarethDahm in Tale4 for Windows.
** Free Application!
** Position a small arrow anywhere on your screen.
** Set the timer.
** Let it ease your RSI factor!

*[http://www.atitd.org/wiki/tale4/images/8/8f/Ghostmouse.zip Ghostmouse] (Windows Executable) - Simple old freeware program that records your mouse movements/clicks. Can adjust the speed with a click in Options, if necessary. Records in real time, no scripts to edit, easy for anyone to use. Program no longer made or supported, found in old archived backup CD. ([http://www.atitd.org/wiki/tale4/images/e/e0/Ghostmouse.jpg Screenshot])

Personally I like autohotkey because it's freeware and is still being updated - Blogot

I second the Autohotkey recommendation, it has some extremely powerful features but is still fast and lightweight, and new features are being added all the time. - Dragyn

Personally I like AutoIt 3.0 it is freeware updated alot and it is very powerful allows macroing of almost anything windows - Ledeanna

I second the AutoIt recommendation, it is very powerful as well, easy to code and allows compiling the scripts for use by people who want to macro but feel not competent enough to write their own or who dont want to install the scripting software. ~Anguz
- Note - AutoHotKey also allows you to compile an exe for machines with out AHK installed. ~Jhnny

Added SCAR Divi, its similar to ACtool, but in my opinion much better. It has very nice support for Bitmap searching, and even Bitmask searching. The bitmaps can be converted to strings, and loaded directly in from the script (Rather then saved as images). Lots of other features, but people will have to find them. SCAR also supports bitmap masks, and Deformable template models, which allows the macro to find and identify multiple images, or peices of text, even when the colours, position, or even size has changed. Its possible to make fairly advanced macros that will work regardless of window positions ingame, or resolution.--Kinslayer 08:32, 29 August 2009 (EST)

===Running without Windows?===
A lot of the macro effort has gone towards programs for windows. The windows version of atitd can be run using www.winehq.org (run Windows applications on Linux, BSD, Solaris and Mac OS X).

VeggieTales and autohotkey work to some extent using this emulator along with the windows emulation of atitd.

Autohotkey 'keys' need to be changed to ones that work (Scrolllock, Numpad up/down/left/pageup/down buttons seem to work on ubuntu10). Recording and playback work only on windows emulated programs, but that's enough to save you from windows.

User:Selune

2013-01-07T03:36:06Z

Selune:

Selune's updated VT Macros. If you know how to upload changes to TaleScripts, PLEASE contact me! Thanks!

{{Collapse top|title=Paint Reaction Template}}
<pre>
Cabbage | RedSand | G | -11 | 26
Cabbage | Iron | W | 27 | 27
Cabbage | Copper | W | -20 | -60
Cabbage | Potash | B | 19 | -63
Carrot | RedSand | B | 32 | -26
Carrot | Lead | W | -17 | 61
Carrot | Potash | W | -59 | 56
Carrot | Lime | G | 0 | 23
Clay | Lead | B | 32 | -16
Clay | Copper | R | 20 | -12
Clay | Sulfur | G | -55 | -41
Clay | Saltpeter | B | 54 | 35
Lead | Iron | B | 4 | 14
Lead | Copper | W | -25 | -40
Lead | Saltpeter | G | -7 | 47
Iron | Sulfur | G | -17 | 0
Iron | Saltpeter | W | -55 | 7
Copper | Sulfur | W | -25 | -12
Copper | Saltpeter | B | 42 | 4
</pre>
{{Collapse bottom}}

{{Collapse top|title=VT Paint Watch with Reset}}
<pre>
--
--
--

--Cabbage | 129, 63, 145 | 8 | Y | bulk | 10
--Carrot | 225, 113, 33 | 10 | Y | bulk | 10
--Clay | 128, 96, 32 | 4 | Y | bulk | 20
--DeadTongue | 112, 64, 64 | 500 | N | normal | 4
--ToadSkin | 48, 96, 48 | 500 | N | normal | 4
--EarthLight | 128, 240, 224 | 10000 | N | normal | 4
--RedSand | 144, 16, 24 | 10 | Y | bulk | 20
--Lead | 80, 80, 96 | 50 | Y | normal | 6
--Silver | 16, 16, 32 | 50 | N | normal | 6
--Iron | 96, 48, 32 | 30 | Y | normal | 8
--Copper | 64, 192, 192 | 30 | Y | normal | 8

--Sulfur | catalyst | 10 | Y | normal | 1
--Potash | catalyst | 50 | Y | normal | 1
--Lime | catalyst | 20 | Y | normal | 1
--Saltpeter | catalyst | 10 | Y | normal | 1

-- 317, 55, 71
-- cj ca cl dt ts el rs le si ir co su po li sp
paint_colourR = { 129, 225, 129, 112, 48, 128, 145, 81, 16, 97, 64 };
paint_colourG = { 64, 113, 97, 64, 96, 240, 16, 81, 16, 48, 194 };
paint_colourB = { 145, 33, 33, 64, 48, 224, 24, 97, 32, 33, 194 };
catalyst1 = 12;

loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();
loadfile("luascripts/common.inc")();

button_names = {
"CabbageJ","Carrot","Clay","DeadTongue","ToadSkin","EarthLight","RedSand",
"Lead","SilverP","Iron","Copper","C:Sulfur","C:potash","C:Lime","C:Saltpeter"};

per_paint_delay_time = 1000;
per_read_delay_time = 600;
per_click_delay = 10;

function doit()

local paint_sum = {0,0,0};
local paint_count = 0;
local bar_colour = {0,0,0};
local expected_colour = {0,0,0};
local diff_colour = {0,0,0};
local new_px = 0xffffffFF;
local px_R = nil;
local px_G = nil;
local px_B = nil;
local px_A = nil;
local m_x = 0;
local m_y = 0;
local update_now = 1;
local y=0;
local button_push = 0;

lsSetCaptureWindow();

askForWindow("Open the paint window. Take any paint away so to start with 'Black'.");

srReadScreen();
xyWindowSize = srGetWindowSize();
local colour_panel = findAllImages("paint-black.png");
if (#colour_panel == 0) then
m_x, m_y = srMousePos();
else
m_x = colour_panel[1][0];
m_y = colour_panel[1][1];
end

local paint_buttons = findAllImages("paint-button.png");
if (#paint_buttons == 0) then
error "No buttons found";
end

while 1 do
lsSetCamera(0,0,lsScreenX*1.5,lsScreenY*1.5);
-- Where to start putting buttons/text on the screen.
y=0;

if lsButtonText(lsScreenX - 30, lsScreenY - 80, 0, 100, 0xFFFFFFff, "Reset") then
for i= 1, 10 do
srClickMouseNoMove(paint_buttons[7][0]+2,paint_buttons[7][1]+2, right_click);
lsSleep(per_click_delay);
end
srReadScreen();
lsSleep(100);
clickAllText("Take the Paint");
lsSleep(100);
paint_sum = {0,0,0};
paint_count = 0;
bar_colour = {0,0,0};
expected_colour = {0,0,0};
diff_colour = {0,0,0};
new_px = 0xffffffFF;
px_R = nil;
px_G = nil;
px_B = nil;
px_A = nil;
m_x = 0;
m_y = 0;
update_now = 1;
end

-- Create each button and set the button push.
for i=1, #button_names do
if lsButtonText(10, y, 0, 250, 0xFFFFFFff, button_names[i]) then
image_name = button_names[i];
update_now = 1;
button_push = i;
end
y = y + 26;
end
srReadScreen();

-- read the bar pixels
new_px = srReadPixel(m_x, m_y);
px_R = (math.floor(new_px/256/256/256) % 256);
px_G = (math.floor(new_px/256/256) % 256);
px_B = (math.floor(new_px/256) % 256);
px_A = (new_px % 256);

if not(update_now==0) then
--{
if not (button_push==0) then
--{
-- click the appropriate button to add paint.
srClickMouseNoMove(paint_buttons[button_push][0]+2,paint_buttons[button_push][1]+2, right_click);
lsSleep(per_click_delay);

if(button_push < catalyst1) then
-- add the paint estimate
paint_sum[1] = paint_sum[1] + paint_colourR[button_push];
paint_sum[2] = paint_sum[2] + paint_colourG[button_push];
paint_sum[3] = paint_sum[3] + paint_colourB[button_push];
paint_count = paint_count + 1.0;
end
--}
end

-- count up all the pixels.
lsSleep(per_paint_delay_time);
srReadScreen();

bar_colour[1] = #findAllImages("paint-redbarC.png");
lsSleep(per_read_delay_time/3);
bar_colour[2] = #findAllImages("paint-greenbarC.png");
lsSleep(per_read_delay_time/3);
bar_colour[3] = #findAllImages("paint-bluebarC.png");
lsSleep(per_read_delay_time/3);
update_now = 0;

-- tweak/hack because we miss the first pixel
for i=1, 3 do
if(bar_colour[i]>0)then
bar_colour[i]=bar_colour[i]+1;
bar_colour[i]=bar_colour[i]*256.0/259;
end
end

-- New colour has been added, mix in the pot, and see if there's a difference from the expected value.
if not (button_push==0) then
--{
for i=1, 3 do
expected_colour[i] = paint_sum[i] / paint_count;
diff_colour[i] = math.floor(0.5+bar_colour[i]) - math.floor(0.5+expected_colour[i]);
end

button_push = 0;
--}
end
--}
end

-- Display all the goodies
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Pixel RGBA: " .. px_R .. "," .. px_G .. "," .. px_B .. "," .. px_A);
y = y + 26;
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Bar read RGB: " .. math.floor(bar_colour[1]+0.5) .. "," .. math.floor(bar_colour[2]+0.5) .. "," .. math.floor(bar_colour[3]+0.5));
y = y + 26;
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Expected RGB: " .. math.floor(expected_colour[1]+0.5) .. "," .. math.floor(expected_colour[2]+0.5) .. "," .. math.floor(expected_colour[3]+0.5) );
y = y + 26;
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Reactions RGB: " .. math.floor(diff_colour[1]+0.5) .. "," .. math.floor(diff_colour[2]+0.5) .. "," .. math.floor(diff_colour[3]+0.5) );

if lsButtonText(lsScreenX - 30, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end

lsDoFrame();
lsSleep(per_read_delay_time);
end
end
</pre>
{{Collapse bottom}}

{{Collapse top|title=Fixed VT Crematory macro}}
<pre>
-- crematory.lua v1.2 by Tallow
--
-- Runs one or more crematories. Automatically discovers button
-- configuration on its own and loads/unloads materials.
--

assert(loadfile("luaScripts/common.inc"))();

askText = singleLine([[
Crematory v1.2 (by Tallow) --
Automatically runs one or more crematories.
]]);

wmText = "Tap control on Crematories to open and pin.";

OPP = 0;
SAME_UP = 1;
SAME_DOWN = 2;

tolerance = 6500;
tickTime = 1000;
maxWait = 1000;
longWait = 500;
shortWait = 30;

colOffsets = {
{35-40-3, 204-182},
{71-40-3, 204-182},
{107-40-3, 204-182},
{143-40-3, 204-182},
{179-40-3, 204-182},
{215-40-3, 204-182},
{251-40-3, 204-182}
};

colWidth = 36-35+6;
colHeight = 323-204;
colMiddle = 57;

buttonOffsets = {
{49-40, 333-182},
{89-40, 333-182},
{129-40, 333-182},
{169-40, 333-182},
{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;
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
error("Window moved from (" .. current.origin[1] .. ", " ..
current.origin[2] .. ") to (" .. vLime[0] .. ", " .. 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].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 all_done = true;
for i=1,#windows do
if not windows[i].done then
local done = srFindImageInRange("crem-done.png", windows[i].origin[1] - 3,
windows[i].origin[2] - 15, 40, 40,
tolerance);
if done then
windows[i].done = true;
else
all_done = false;
end
end
end
return all_done;
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);
lsSleep(shortWait);
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);
lsSleep(shortWait);
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 updateList = findAllImages("ThisIs.png");
for i=1,#updateList do
safeClick(updateList[i][0], updateList[i][1]);
end
sleepWithStatus(longWait, updateMessage("Update Crematory Windows"));
srReadScreen();
local takeList = findAllImages("crem-take.png");
for i=1,#takeList do
safeClick(takeList[i][0] + 5, takeList[i][1] + 5);
sleepWithStatus(shortWait*2, "Waiting for Everything");
srReadScreen();
local all = waitForImage("Everything.png", maxWait, "Grabbing Everything");
if all then
safeClick(all[0] + 5, all[1] + 5);
end
lsSleep(shortWait*2);
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()
srReadScreen();
local posList = findAllImages("ThisIs.png");
for i=1,#posList do
safeClick(posList[i][0], posList[i][1]);
end
sleepWithStatus(longWait, updateMessage("Update Crematory Windows"));
srReadScreen();
posList = findAllImages("crem-fire.png");
for i=1,#posList do
loadSingle(posList[i], woodOffset, "Wood");
if load_flax then
loadSingle(posList[i], flaxOffset, "Flax");
end
if load_papyrus then
loadSingle(posList[i], papyrusOffset, "Papyrus");
end
if load_leeks then
loadSingle(posList[i], leeksOffset, "Leeks");
end
if load_limestone then
loadSingle(posList[i], limestoneOffset, "Limestone");
end
end
end

-------------------------------------------------------------------------------
-- loadSingle
-------------------------------------------------------------------------------

function loadSingle(pos, offset, type)
sleepWithStatus(200, "Waiting to load");
safeClick(pos[0]+5, pos[1]+5+16);
lsSleep(100);
local limePos = waitForImage("crem-limestone.png", maxWait,
"Loading " .. type .. " Into Crematory");
if limePos then
safeClick(limePos[0] + 5, limePos[1] + 5 + offset);
lsSleep(100);
local maxPos = waitForImage("crem-max.png", maxWait,
"Adding Maximum Amount");
if maxPos then
safeClick(maxPos[0]+5, maxPos[1]+5);
end
end
lsSleep(100);
sleepWithStatus(shortWait, "Waiting for load to complete");
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
</pre>
{{Collapse bottom}}

{{Collapse top|title=Forge.inc to add Treated Metal Sheeting}}
<pre>
button_names = {
"Knife Blade",
"Shovel Blade",
"Nails",
"Copper Pipe",
"Lead Pipe",
"Bars",
"Sheeting",
"Straps",
"Tools",
"Wire"
};

bar_button_names = {
"Iron Bar",
"Gold Bar",
"Silver Bar"
};

sheeting_button_names = {
"Lead Sheeting",
"Gold Sheeting",
"Copper Sheeting",
"Octecs Alloy Sheeting",
"Silver Sheeting",
"Steel Sheeting",
"Gold Foil",
"Metal Blue Sheeting",
"Treated Metal Sheeting",
"Tin Sheeting",
"Moon Steel Sheeting",
"Thoths Metal Sheeting"
};

straps_button_names = {
"Water Metal Strap",
"Iron Strap",
"Aluminum Strap",
"Copper Strap"
};

tools_button_names = {
"Iron Poker",
"Steel Blade",
"Lead Chisel"
};

wire_button_names = {
"Thoths Metal Wire",
"Metal Blue Wire",
"Magnesium Wire",
"Octecs Alloy Wire",
"Silver Wire",
"Copper Wire",
"Steel Wire",
"Gold Wire"
};

----------------- MAKE PROJECTS 'SUPPORTING' FUNCTIONS -----------------

function waitMinutes(minutes)
-- Teppy Minute is 66 seconds or 66000 ms
-- Add a 3 second delay (3000 ms) in case of lag

wait_delay = 3000; -- Extra delay on top of Teppy Time, for lag purposes. Default is 3000
wait = (minutes * 66000) + wait_delay;
askForFocus(); -- Pause to allow user to focus back to ATITD (if they checked the Pause for Focus Box), before starting project.
end

function doneGUI(totalPasses)
wait = 5000; -- Gives a 5 second delay to review the GUI stats, before quitting/returing to Main Menu.
clickAllImages("This.png"); -- Refresh the screen. Update forge window so we know how much charcoal is currently in each forge before next project

sleepWithStatus(wait, "[" .. totalPasses .. "/" .. totalPasses .. "] ALL DONE!\n----------------------------------------------\n[" .. made .. "/" .. batch*project_windows*num_loops .. "] " .. name .. " / Completed");

lsPlaySound("Complete.wav");
runForge(); -- Return to/Display Main Menu
end

function waitGUI(pass)
--If any forge menus shows the Forge_StartFire.png - refreshWindows() function, then display the stalledMessage in the GUI. Suggests its not lit (or out of charcoal)
if #stalled > 0 then
stalledMessage = "\n[" .. #stalled .. "] Forges STALLED (Needs Lit)"
else
stalledMessage = "";
end

sleepWithStatus(wait, "[" .. pass .. "/" .. num_loops .. "] Total Passes\n----------------------------------------------\n[" .. batch .. "] " .. name .. " per forge\n[" .. project_windows .. "] Forges working" .. stalledMessage .. "\n----------------------------------------------\n[" .. batch*project_windows .. "] " .. name .. " per pass\n----------------------------------------------\n[" .. made .. "/" .. batch*project_windows*num_loops .. "] " .. name .. " / Completed");

made = made + (batch*project_windows);
end

function refreshWindows()
checkBreak();
pinned_windows = clickAllImages("This.png");
lsSleep(400);
if pinned_windows == 0 then
error("No pinned windows found!");
else
srReadScreen();
stalled = findAllImages("Forge/Forge_StartFire.png");
if #stalled == pinned_windows/2 then -- The /2 is because each forge has 'This' located in window twice. Can't use ThisIs.png either because idle/working forge has different words (Idle Forge shows 'This' only and Working Forge shows 'This Is'
error("No forges are lit!");
end
end
end

----------------- MAKE PROJECT FUNCTIONS -----------------

function KnifeBlade()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Knife Blade";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
project_windows = clickAllImages("Forge/Forge_Knife_Blade.png");
if project_windows == 0 then
sleepWithStatus(1500, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function ShovelBlade()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Shovel Blade";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
project_windows = clickAllImages("Forge/Forge_Shovel_Blade.png");
if project_windows == 0 then
sleepWithStatus(1500, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function Nails()
num_loops = promptNumber("How many passes ?", 1);
batch = 12;
name = "Nails";
waitMinutes(1);
for i=1, num_loops do
while 1 do
refreshWindows();
project_windows = clickAllImages("Forge/Forge_Nail.png");
if project_windows == 0 then
sleepWithStatus(1500, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function CopperPipe()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Copper Pipe";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
project_windows = clickAllImages("Forge/Forge_Copper_Pipe.png");
if project_windows == 0 then
sleepWithStatus(1500, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function LeadPipe()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Lead Pipe";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
project_windows = clickAllImages("Forge/Forge_Lead_Pipe.png");
if project_windows == 0 then
sleepWithStatus(1500, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function IronBar()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Iron Bar";
waitMinutes(15);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Bars.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Iron_Bar.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function GoldBar()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Gold Bar";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Bars.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Gold_Bar.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function SilverBar()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Silver Bar";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Bars.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Silver_Bar.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function LeadSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Lead Sheeting";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Lead_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function GoldSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 4;
name = "Gold Sheeting";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Gold_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function CopperSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Copper Sheeting";
waitMinutes(1);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Copper_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function TreatedSheeting()
num_loops = promptNumber("How many passes ?", 1);
typeOfMetal = promptText("Enter the metal name:");
batch = 1;
name = "Treated Metal Sheeting";
waitMinutes(2);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllText("Treated");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
lsSleep(400);
local numClicked = clickAllText(typeOfMetal);
if numClicked == 0 then
break;
end
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function OctecsAlloySheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 8;
name = "Octecs Alloy";
waitMinutes(20);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Octecs_Alloy_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function SilverSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Silver Sheeting";
waitMinutes(2);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Silver_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function SteelSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 6;
name = "Steel Sheeting";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Steel_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function GoldFoil()
num_loops = promptNumber("How many passes ?", 1);
batch = 4;
name = "Gold Foil";
waitMinutes(1);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Gold_Foil.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function MetalBlueSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Metal Blue Sheeting";
waitMinutes(15);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Metal_Blue_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function TinSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Tin Sheeting";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Tin_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function MoonSteelSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Moon Steel Sheeting";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Moon_Steel_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function ThothsMetalSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Thoths Metal Sheeting";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Thoths_Metal_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function WaterMetalStrap()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Water Metal Strap";
waitMinutes(1);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Straps.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Water_Metal_Strap.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function IronStrap()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Iron Strap";
waitMinutes(3);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Straps.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Iron_Strap.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function AluminumStrap()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Aluminum Strap";
waitMinutes(1);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Straps.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Aluminum_Strap.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function CopperStrap()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Copper Strap";
waitMinutes(2);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Straps.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Copper_Strap.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function IronPoker()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Iron Poker";
waitMinutes(20);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Tools.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Iron_Poker.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function SteelBlade()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Steel Blade";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Tools.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Steel_Blade.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function LeadChisel()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Lead Chisel";
waitMinutes(6);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Tools.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Lead_Chisel.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function ThothsMetalWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 14;
name = "Thoths Metal Wire";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Thoths_Metal_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function MetalBlueWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 12;
name = "Metal Blue Wire";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Metal_Blue_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function MagnesiumWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 10;
name = "Magnesium Wire";
waitMinutes(1);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Magnesium_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function OctecsAlloyWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 16;
name = "Octecs Alloy Wire";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Octecs_Alloy_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function SilverWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 5;
name = "Silver Wire";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Silver_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function CopperWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 20;
name = "Copper Wire";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Copper_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function SteelWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 20;
name = "Steel Wire";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Steel_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function GoldWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 10;
name = "Gold Wire";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Gold_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function Bars()
while 1 do
-- Ask for which button
local image_name = nil;
local is_done = nil;
while not is_done do
local y = nil;
local x = nil;
local bsize = nil;
for i=1, #bar_button_names do
if bar_button_names[i] == "Iron Bar" then
x = 30;
y = 10;
bsize = 250;
elseif bar_button_names[i] == "Gold Bar" then
x = 30;
y = 40;
bsize = 250;
elseif bar_button_names[i] == "Silver Bar" then
x = 30;
y = 70;
bsize = 250;
end
if lsButtonText(x, y, 0, bsize, 0x80D080ff, bar_button_names[i]) then
image_name = bar_button_names[i];
is_done = 1;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end
lsDoFrame();
lsSleep(10);
end

if image_name == "Iron Bar" then
IronBar();
elseif image_name == "Gold Bar" then
GoldBar();
elseif image_name == "Silver Bar" then
SilverBar();
end
end
end

function Sheeting()
while 1 do
-- Ask for which button
local image_name = nil;
local is_done = nil;
while not is_done do
local y = nil;
local x = nil;
local bsize = nil;
for i=1, #sheeting_button_names do
if sheeting_button_names[i] == "Lead Sheeting" then
x = 30;
y = 10;
bsize = 150;
elseif sheeting_button_names[i] == "Gold Sheeting" then
x = 30;
y = 35;
bsize = 150;
elseif sheeting_button_names[i] == "Copper Sheeting" then
x = 30;
y = 60;
bsize = 150;
elseif sheeting_button_names[i] == "Treated Metal Sheeting" then
x = 30;
y = 285;
bsize = 150;
elseif sheeting_button_names[i] == "Octecs Alloy Sheeting" then
x = 30;
y = 85;
bsize = 150;
elseif sheeting_button_names[i] == "Silver Sheeting" then
x = 30;
y = 110;
bsize = 150;
elseif sheeting_button_names[i] == "Steel Sheeting" then
x = 30;
y = 135;
bsize = 150;
elseif sheeting_button_names[i] == "Gold Foil" then
x = 30;
y = 160;
bsize = 150;
elseif sheeting_button_names[i] == "Metal Blue Sheeting" then
x = 30;
y = 185;
bsize = 150;
elseif sheeting_button_names[i] == "Tin Sheeting" then
x = 30;
y = 210;
bsize = 150;
elseif sheeting_button_names[i] == "Moon Steel Sheeting" then
x = 30;
y = 235;
bsize = 150;
elseif sheeting_button_names[i] == "Thoths Metal Sheeting" then
x = 30;
y = 260;
bsize = 150;
end
if lsButtonText(x, y, 0, 250, 0x80D080ff, sheeting_button_names[i]) then
image_name = sheeting_button_names[i];
is_done = 1;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end
lsDoFrame();
lsSleep(10);
end

if image_name == "Lead Sheeting" then
LeadSheeting();
elseif image_name == "Gold Sheeting" then
GoldSheeting();
elseif image_name == "Copper Sheeting" then
CopperSheeting();
elseif image_name == "Treated Metal Sheeting" then
TreatedSheeting();
elseif image_name == "Octecs Alloy Sheeting" then
OctecsAlloySheeting();
elseif image_name == "Silver Sheeting" then
SilverSheeting();
elseif image_name == "Steel Sheeting" then
SteelSheeting();
elseif image_name == "Gold Foil" then
GoldFoil();
elseif image_name == "Metal Blue Sheeting" then
MetalBlueSheeting();
elseif image_name == "Tin Sheeting" then
TinSheeting();
elseif image_name == "Moon Steel Sheeting" then
MoonSteelSheeting();
elseif image_name == "Thoths Metal Sheeting" then
ThothsMetalSheeting();
end
end

end

function Straps()
while 1 do
-- Ask for which button
local image_name = nil;

local is_done = nil;
while not is_done do
local y = nil;
local x = nil;
local bsize = nil;
for i=1, #straps_button_names do
if straps_button_names[i] == "Water Metal Strap" then
x = 30;
y = 10;
bsize = 250;
elseif straps_button_names[i] == "Iron Strap" then
x = 30;
y = 40;
bsize = 250;
elseif straps_button_names[i] == "Aluminum Strap" then
x = 30;
y = 70;
bsize = 250;
elseif straps_button_names[i] == "Copper Strap" then
x = 30;
y = 100;
bsize = 250;
end
if lsButtonText(x, y, 0, bsize, 0x80D080ff, straps_button_names[i]) then
image_name = straps_button_names[i];
is_done = 1;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end
lsDoFrame();
lsSleep(10);
end

if image_name == "Water Metal Strap" then
WaterMetalStrap();
elseif image_name == "Iron Strap" then
IronStrap();
elseif image_name == "Aluminum Strap" then
AluminumStrap();
elseif image_name == "Copper Strap" then
CopperStrap();
end
end
end

function Tools()
while 1 do
-- Ask for which button
local image_name = nil;
local is_done = nil;
while not is_done do
local y = nil;
local x = nil;
local bsize = nil;
for i=1, #tools_button_names do
if tools_button_names[i] == "Iron Poker" then
x = 30;
y = 10;
bsize = 250;
elseif tools_button_names[i] == "Steel Blade" then
x = 30;
y = 40;
bsize = 250;
elseif tools_button_names[i] == "Lead Chisel" then
x = 30;
y = 70;
bsize = 250;
end
if lsButtonText(x, y, 0, bsize, 0x80D080ff, tools_button_names[i]) then
image_name = tools_button_names[i];
is_done = 1;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end
lsDoFrame();
lsSleep(10);
end

if image_name == "Iron Poker" then
IronPoker();
elseif image_name == "Steel Blade" then
SteelBlade();
elseif image_name == "Lead Chisel" then
LeadChisel();
end
end
end

function Wire()
while 1 do
-- Ask for which button
local image_name = nil;
local is_done = nil;
while not is_done do
local y = nil;
local x = nil;
local bsize = nil;
for i=1, #wire_button_names do
if wire_button_names[i] == "Thoths Metal Wire" then
x = 30;
y = 10;
bsize = 150;
elseif wire_button_names[i] == "Metal Blue Wire" then
x = 30;
y = 35;
bsize = 150;
elseif wire_button_names[i] == "Magnesium Wire" then
x = 30;
y = 60;
bsize = 150;
elseif wire_button_names[i] == "Octecs Alloy Wire" then
x = 30;
y = 85;
bsize = 150;
elseif wire_button_names[i] == "Silver Wire" then
x = 30;
y = 110;
bsize = 150;
elseif wire_button_names[i] == "Copper Wire" then
x = 30;
y = 135;
bsize = 150;
elseif wire_button_names[i] == "Steel Wire" then
x = 30;
y = 160;
bsize = 150;
elseif wire_button_names[i] == "Gold Wire" then
x = 30;
y = 185;
bsize = 150;
end
if lsButtonText(x, y, 0, 250, 0x80D080ff, wire_button_names[i]) then
image_name = wire_button_names[i];
is_done = 1;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end
lsDoFrame();
lsSleep(10);
end

if image_name == "Thoths Metal Wire" then
ThothsMetalWire();
elseif image_name == "Metal Blue Wire" then
MetalBlueWire();
elseif image_name == "Magnesium Wire" then
MagnesiumWire();
elseif image_name == "Octecs Alloy Wire" then
OctecsAlloyWire();
elseif image_name == "Silver Wire" then
SilverWire();
elseif image_name == "Copper Wire" then
CopperWire();
elseif image_name == "Steel Wire" then
SteelWire();
elseif image_name == "Gold Wire" then
GoldWire();
end
end
end
</pre>
{{Collapse bottom}}

{{Collapse top|title=VT Barley with Skip Water}}
<pre>

-- Edit these first 2 to adjust how much is planted in a pass
-- May need to adjust walk_time in Barley_common.inc if you move too slowly to keep up
-- grids tested: 2x2, 3x3, 5x5, 6x6 (probably need 3+ dex and 600ms walk time)
grid_w = 5;
grid_h = 5;
watered = {};
loop_count = 0;
skip_water = 0;

loadfile("luaScripts/Flax_common.inc")();
loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();

function promptBarleyNumbers(is_plant)
scale = 1.0;

local z = 0;
local is_done = nil;
local value = nil;
-- Edit box and text display
while not is_done do
-- Put these everywhere to make sure we don't lock up with no easy way to escape!
checkBreak("disallow pause");

lsPrint(10, 10, z, scale, scale, 0xFFFFFFff, "Choose passes and grid size");

-- lsEditBox needs a key to uniquely name this edit box
-- let's just use the prompt!
-- lsEditBox returns two different things (a state and a value)
local y = 40;
lsPrint(5, y, z, scale, scale, 0xFFFFFFff, "Passes:");
is_done, num_loops = lsEditBox("passes",
100, y, z, 50, 30, scale, scale,
0x000000ff, 1);
if not tonumber(num_loops) then
is_done = nil;
lsPrint(10, y+18, z+10, 0.7, 0.7, 0xFF2020ff, "MUST BE A NUMBER");
num_loops = 1;
end
y = y + 32;

lsPrint(5, y, z, scale, scale, 0xFFFFFFff, "Grid size:");
is_done, grid_w = lsEditBox("grid",
100, y, z, 50, 30, scale, scale,
0x000000ff, grid_w);
if not tonumber(grid_w) then
is_done = nil;
lsPrint(10, y+18, z+10, 0.7, 0.7, 0xFF2020ff, "MUST BE A NUMBER");
grid_w = 1;
grid_h = 1;
end

grid_w = tonumber(grid_w);
grid_h = grid_w;
y = y + 32;

if lsButtonText(170, y-32, z, 100, 0xFFFFFFff, "OK") then
is_done = 1;
end

if is_plant then
lsPrintWrapped(10, y, z+10, lsScreenX - 20, 0.7, 0.7, 0xD0D0D0ff, "This will plant and harvest a " .. grid_w .. "x" .. grid_w .. " grid of Barley " .. num_loops .. " times, requiring " .. (grid_w * grid_w) .. " raw barley and ".. (grid_w * grid_w * num_loops * 4) .. "water in jugs, doing " .. (grid_w*grid_w*num_loops) .. " harvests.");
else
lsPrintWrapped(10, y, z+10, lsScreenX - 20, 0.7, 0.7, 0xD0D0D0ff, "This will plant a " .. grid_w .. "x" .. grid_w .. " grid of Flax " .. num_loops .. " times, requiring " .. (grid_w * grid_w) .. " seeds, yielding " .. (grid_w * grid_w * num_loops) .. " seeds.");
end
y = y + 50;
skip_water = lsCheckBox(10, y, z, 0xFFFFFFff, "Skip Rain Barrel", skip_water);

if is_done and (not num_loops or not grid_w) then
error 'Canceled';
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end

lsDoFrame();
lsSleep(10); -- Sleep just so we don't eat up all the CPU for no reason
end
end

function doit()

promptBarleyNumbers(1);
askForWindow("Make sure the plant barley window is pinned and you are in F8F8 cam zoomed in. You may need to F12 at low resolutions or hide your chat window (if it starts planting and fails to move downward, it probably clicked on your chat window). Will plant grid NE of current location. 'Plant all crops where you stand' must be ON. 'Right click pins/unpins a menu' must be ON.");
lsSleep(1000);
delay_time = 2000;
local x = 1;
local y = 1;
initGlobals();
-- Find the plant barley button
srReadScreen();

local imgBarley = "barley.png";
local xyPlantBarley = srFindImage(imgBarley);
if not xyPlantBarley then
error 'Could not find plant window';
end
xyPlantBarley[0] = xyPlantBarley[0] + 5;

-- Find the Rain Barrel
if not skip_water then
local imgDrawWater = "draw_water.png";
local xyDrawWater = srFindImage(imgDrawWater);
if not xyDrawWater then
error 'Could not find rain barrel';
end
xyDrawWater[0] = xyDrawWater[0] + 5;
end

for loop_count=1, num_loops do
local start_time = lsGetTimer();
harvested = 0;
-- Init watered array to 0
for y=grid_h, 1, -1 do
for x=grid_w, 1, -1 do
watered[x+((y-1)*grid_w)] = 1;
end
end
-- Local variables
local xyCenter = getCenterPos();
local xyBarleyMenu = {};
xyBarleyMenu[0] = xyCenter[0] - 43;
xyBarleyMenu[1] = xyCenter[1] + 0;
local dxi=1;
local dt_max=grid_w;
local dt=grid_w;
local dx={1, 0, -1, 0};
local dy={0, -1, 0, 1};
local num_at_this_length = 3;
local x_pos = 0;
local y_pos = 0;
for y=1, grid_h do
for x=1, grid_w do
lsPrintln('doing ' .. x .. ',' .. y .. ' of ' .. grid_w .. ',' .. grid_h);
statusScreen("Planting " .. x .. ", " .. y);

-- Plant
lsPrintln('planting ' .. xyPlantBarley[0] .. ',' .. xyPlantBarley[1]);
setWaitSpot(xyBarleyMenu[0], xyBarleyMenu[1]);
srClickMouseNoMove(xyPlantBarley[0], xyPlantBarley[1], 0);
srSetMousePos(xyBarleyMenu[0], xyBarleyMenu[1]);
waitForChange();

-- Bring up menu
lsPrintln('menu ' .. xyBarleyMenu[0] .. ',' .. xyBarleyMenu[1]);
setWaitSpot(xyBarleyMenu[0]+5, xyBarleyMenu[1]);
srClickMouse(xyBarleyMenu[0], xyBarleyMenu[1], 0);
waitForChange();

-- Check for window size
window_w = 214;
window_h = 218;

-- Pin
lsPrintln('pin ' .. (xyBarleyMenu[0]+5) .. ',' .. xyBarleyMenu[1]);
srClickMouseNoMove(xyBarleyMenu[0]+5, xyBarleyMenu[1]+0, 1);

-- Move window
local pp = pinnedPos(x, y);
lsPrintln('move ' .. (xyBarleyMenu[0]+5) .. ',' .. xyBarleyMenu[1] .. ' to ' .. pp[0] .. ',' .. pp[1]);
drag(xyBarleyMenu[0] + 5, xyBarleyMenu[1], pp[0], pp[1], 0);

-- Add 2 water now
srReadScreen();
local barleyAddButton = srFindImageInRange("BarleyAdd.png", pp[0], pp[1], 200, 100);
local barleyWater = srFindImageInRange("barleyWater.png", pp[0], pp[1] - 50, 220, 150);
if not barleyAddButton or not barleyWater then
-- bugfix maybe for lag.
lsSleep(100);
srReadScreen();
barleyAddButton = srFindImageInRange("BarleyAdd.png", pp[0], pp[1], 200, 100);
barleyWater = srFindImageInRange("barleyWater.png", pp[0], pp[1] - 50, 220, 150);
end

srClickMouseNoMove(barleyAddButton[0]+8, barleyWater[1]);
srClickMouseNoMove(barleyAddButton[0]+8, barleyWater[1]);
watered[x+((y-1)*grid_w)] = watered[x+((y-1)*grid_w)] + 2;

-- move to next position
if not ((x == grid_w) and (y == grid_h)) then
lsPrintln('walking dx=' .. dx[dxi] .. ' dy=' .. dy[dxi]);
x_pos = x_pos + dx[dxi];
y_pos = y_pos + dy[dxi];
srClickMouseNoMove(xyCenter[0] + walk_px_x*dx[dxi], xyCenter[1] + walk_px_y*dy[dxi], 0);
lsSleep(walk_time);
dt = dt - 1;
if dt == 1 then
dxi = dxi + 1;
num_at_this_length = num_at_this_length - 1;
if num_at_this_length == 0 then
dt_max = dt_max - 1;
num_at_this_length = 2;
end
if dxi == 5 then
dxi = 1;
end
dt = dt_max;
else
lsPrintln('skipping walking, on last leg');
end
end
checkBreak();
end
end

statusScreen("Refocusing windows...");
-- Bring windows to front
for y=grid_h, 1, -1 do
for x=grid_w, 1, -1 do
local rp = refreshPosUp(x, y);
srClickMouseNoMove(rp[0], rp[1], 0);
lsSleep(refocus_click_time);
end
end
lsSleep(refocus_time); -- Wait for last window to bring to the foreground before clicking again

-- Barley has been planted, pinned and refocused

while 1 do
for y=1, grid_h do
for x=1, grid_w do
local pp = pinnedPos(x, y);
local rp = refreshPosDown(x, y);
srClickMouse(rp[0],rp[1]);
lsSleep(200);
srReadScreen();
local leftBar = srFindImageInRange("barleyBarLeft.png", pp[0], pp[1] - 50, 120, 100);
if leftBar then
leftBar[0] = leftBar[0] + 4;
end
local rightBar = srFindImageInRange("barleyBarRight.png", pp[0], pp[1] - 50, 220, 200);
if rightBar then
rightBar[0] = rightBar[0] + 1;
end
if not rightBar then
error 'Could not find rightbar';
end
local barleyWater = srFindImageInRange("barleyWater.png", pp[0], pp[1] - 50, 220, 150);
if not barleyWater then error 'Could not find water button.'; end
local barleyAddButton = srFindImageInRange("BarleyAdd.png", pp[0], pp[1], 200, 100);
if not barleyAddButton then error 'Could not find add button. Ended at batch '; end

while 1 do
if leftBar then
waterBlue = 0;
if rightBar then
if barleyWater then
srReadScreen();
for i=leftBar[0],rightBar[0] do
pxval = srReadPixelFromBuffer(i, barleyWater[1]);
b = (math.floor(pxval/256) % 256);
if b > 220 then
waterBlue = waterBlue + 1;
end
end
waterBlue = (waterBlue/(rightBar[0]-leftBar[0])*100);
end
end
end
checkBreak();

if watered[x+((y-1)*grid_w)] < 5 then
statusScreen("Watering " .. x .. "," .. y .. "step " .. watered[x+((y-1)*grid_w)] .. ".");
if waterBlue < 90 then
if watered[x+((y-1)*grid_w)] == 0 then
end
srClickMouseNoMove(barleyAddButton[0]+8, barleyWater[1]);
watered[x+((y-1)*grid_w)] = watered[x+((y-1)*grid_w)] + 1;
lsSleep(100);
break;
end
else
statusScreen("Harvesting " .. x .. "," .. y .. ".");
if waterBlue < 90 then
srClickMouseNoMove(pp[0]+90, pp[1]+90);
lsSleep(100);
srClickMouseNoMove(pp[0]+180, pp[1]-25);
if watered[x+((y-1)*grid_w)] == 5 then
harvested = 1;
end
break;
end
end
end
end
end

if harvested == 0 then
statusScreen("Refocusing windows...");
-- Bring windows to front
for y=grid_h, 1, -1 do
for x=grid_w, 1, -1 do
local rp = refreshPosUp(x, y);
srClickMouseNoMove(rp[0], rp[1], 0);
lsSleep(refocus_click_time);
end
end
lsSleep(refocus_time); -- Wait for last window to bring to the foreground before clicking again
else
for x=1, x_pos do
srClickMouseNoMove(xyCenter[0] + walk_px_x*-1, xyCenter[1], 0);
lsSleep(walk_time);
end
for x=1, -y_pos do
srClickMouseNoMove(xyCenter[0], xyCenter[1] + walk_px_y, 0);
lsSleep(walk_time);
end
break;
end
end
local end_time = lsGetTimer();
statusScreen("Time taken: " .. (end_time-start_time)/1000);
-- move X and Y every 4 batches, but skip the Y move every 20th batch
if loop_count % 4 == 0 and loop_count % 5 == 0 then
doCorrectiveMove('x')
elseif loop_count % 4 == 0 then
doCorrectiveMove('xy')
end
--doStashWH(num_loops*grid_w*grid_w);
--doRefillWater(4*numloops*grid_w*grid_w);
doStashWH(grid_w*grid_w);
if not skip_water then
doRefillWater(4*grid_w*grid_w);
end
debug('end of batch #' .. loop_count)
end
end

function doCorrectiveMove(move)
statusScreen("Moving to correct for drift");
local xyCenter = getCenterPos();
if move == 'xy' or move == 'x' then
srClickMouseNoMove(xyCenter[0] + walk_px_x*-1, xyCenter[1], 0);
lsSleep(walk_time);
end
if move == 'xy' or move == 'y' then
srClickMouseNoMove(xyCenter[0], xyCenter[1] + walk_px_y, 0);
lsSleep(walk_time);
end
end

function doStashWH(qty)
local wh = srFindImage("stash.png");
if wh then
srClickMouseNoMove(wh[0]+9,wh[1]+9)
debug('found stash, clicked it');
lsSleep(250);

srReadScreen();
local insects = srFindImage("stashInsectEllipsis.png");

local stashes = srFindImage("stashBarley.png");
if not stashes then
error "no barley to stash"
end
srClickMouseNoMove(stashes[0],stashes[1]);

lsSleep(250);
-- stash exactly the right amount by number so we don't lose our seed barley
srKeyEvent(qty);
srKeyEvent('\n');

if insects then
srClickMouseNoMove(wh[0]+9,wh[1]+9)
lsSleep(250);
srReadScreen();

local insects = srFindImage("stashInsectEllipsis.png");
if insects then
srClickMouseNoMove(insects[0],insects[1]);
lsSleep(250);

srReadScreen();
insects = srFindImage("stashAllTheInsects.png");
if not insects then
error "found insects but couldn't stash them";
end
srClickMouseNoMove(insects[0],insects[1]);
end
end
end
end

function doRefillWater(qty)
debug("in refill")
local rb = srFindImage("draw_water.png");
if rb then
srClickMouseNoMove(rb[0]+5,rb[1]+5)
lsSleep(250);
srKeyEvent(qty);
srKeyEvent('\n');
end

end

function debug(msg)
if 0 then
statusScreen(msg);
lsSleep(1000);
end
end
</pre>
{{Collapse bottom}}

{{Collapse top|title=Hackling Rake Fixed}}
<pre>
-- Hackling Rake - Original macro by Bardoth (T6) - Revised by Cegaiel
-- Runs the Hacking Rake (or Flax Comb). Monitors the skills tab and only clicks when its all black.
--
--

assert(loadfile("luaScripts/common.inc"))();

askText = singleLine([[
Hackling Rake v1.0 (by Bardoth - Revised by Cegaiel) --
Pin Hacking Rake or Flax Comb window up and have Rotten Flax in you inventory. Make sure your rake is on the first step before starting. You MUST have Skills window open and everything from Strength to Perception skill should be visible.
Press Shift to continue.
]]);

do_click_refresh = 1;
do_click_refresh_when_end_red = 1;
improved_rake = 0;
num_flax = 0;
num_loops = 0;
per_rake = 10;

function promptRakeNumbers()
scale = 1.0;

local z = 0;
local is_done = nil;
local value = nil;
-- Edit box and text display
while not is_done do
-- Put these everywhere to make sure we don't lock up with no easy way to escape!
checkBreak("disallow pause");

lsPrint(10, 10, z, scale, scale, 0xFFFFFFff, "Hackling Raking Setup");

-- lsEditBox needs a key to uniquely name this edit box
-- let's just use the prompt!
-- lsEditBox returns two different things (a state and a value)
local y = 40;
lsPrint(5, y, z, scale, scale, 0xFFFFFFff, "How much flax: ");
is_done, num_flax = lsEditBox("passes",
160, y, z, 70, 30, scale, scale,
0x000000ff, 1);
if not tonumber(num_flax) then
is_done = nil;
lsPrint(10, y+18, z+10, 0.7, 0.7, 0xFF2020ff, "MUST BE A NUMBER");
num_flax = 1;
end
y = y + 32;
improved_rake = lsCheckBox(10, y, z, 0xFFFFFFff, "Improved Rake", improved_rake);

if improved_rake then
per_rake = 30;
else
per_rake = 10;
end

num_loops = math.floor(num_flax / per_rake);

y = y + 32;

if lsButtonText(170, y+32, z, 100, 0xFFFFFFff, "OK") then
is_done = 1;
end

lsPrintWrapped(10, y, z+10, lsScreenX - 20, 0.7, 0.7, 0xD0D0D0ff, "This will attempt to rake " .. num_flax .. " rotten flax, requiring " .. num_loops .. " cycles.");

if is_done and (not num_flax) then
error 'Canceled';
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end

lsDoFrame();
lsSleep(10); -- Sleep just so we don't eat up all the CPU for no reason
end
end

function doit()
promptRakeNumbers();
askForWindow(askText);

local step = 1;
local task = "";
local task_text = "";
local warn_small_font=nil;
local warn_large_font=nil;
local loop_count=1;
local straw = 0;
local tow = 0;
local lint = 0;
local clean = 0;

while num_loops do
checkBreak();
lsSleep(250);
srReadScreen();
stats_black2 = nil;
stats_black3 = nil;

stats_black = srFindImage("AllStats-Black.png");
if not stats_black then
stats_black2 = srFindImage("AllStats-Black2.png");
if not stats_black2 then
stats_black3 = srFindImage("AllStats-Black3.png");
if stats_black3 then
warn_large_font = true;
end
else
warn_small_font = true;
end
end

local warning="";
if warn_small_font then
warning = "Your font size appears to be smaller than the default, many macros here will not work correctly.";
elseif warn_large_font then
warning = "Your font size appears to be larger than the default, many macros here will not work correctly.";
end

if step == 1 then
task = "Separate Rotten Flax";
task_text = "Separate Straw";
elseif step == 2 then
task = "Continue processing Rotten";
task_text = "Separate Tow";
elseif step == 3 then
task = "Continue processing";
task_text = "Refine the Lint";
elseif step == 4 then
task = "Clean the";
task_text = "Clean the Rake";
end

if not stats_black and not stats_black2 and not stats_black3 then
sleepWithStatus(1200, "Next Step: " .. step .. "/4 - " .. task_text .. "\n----------------------------------------------\n1) Straw Removed: " .. straw .."/" .. num_loops*per_rake .. "\n2) Tow Seperated: " .. tow .. "/" .. num_loops*per_rake .. "\n3) Lint Refined: " .. lint .. "/" .. num_loops*per_rake .. "\n4) Cleanings: " .. clean .. "/" .. num_loops .. "\n----------------------------------------------\nFlax Processed: " .. (loop_count-1)*per_rake .. "\nFlax Remaining: " .. num_flax - ((loop_count-1)*per_rake) .. "\n" .. warning);
elseif loop_count >= num_loops then
num_loops = nil;
else

srReadScreen();
lsSleep(50);
clickAllText("This Is");
lsSleep(200);

srReadScreen();
lsSleep(50);
clickAllText(task);
lsSleep(200);
if step == 1 then
straw = straw + per_rake;
elseif step == 2 then
tow = tow + per_rake;
elseif step == 3 then
lint = lint + per_rake;
elseif
step == 4 then
clean = clean + 1;
step = 0;
loop_count= loop_count +1;
end
step = step + 1;
sleepWithStatus(300, "Refreshing screen");

srReadScreen();
lsSleep(50);
clickAllText("This Is");
lsSleep(200);
end

end
if num_loops == nil then
sleepWithStatus(5000, "ALL DONE!\n----------------------------------------------\n1) Straw Removed: " .. straw .."/" .. clean*10 .. "\n2) Tow Seperated: " .. tow .. "/" .. clean*10 .. "\n3) Lint Refined: " .. lint .. "/" .. clean*10 .. "\n4) Cleanings: " .. clean .. "/" .. clean .. "\n----------------------------------------------\nFlax Processed: " .. (loop_count-1)*10 .. "\nFlax Remaining: " .. num_flax - ((loop_count-1)*10));

lsPlaySound("Complete.wav");
end
end
</pre>
{{Collapse bottom}}

Mega 4u

2013-01-04T17:00:42Z

Selune: /* Materials */

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

Cuttable Gem donation box next to Guild Hall. Please donate as many Cuttable Sunstone as you can spare!

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 48 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 28 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet |24 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 12 | 12 }}
{{ResResourceName|Unity Cut Lapis | 4 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 16 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 800 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 6720 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 10000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 1600 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 14000 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 15600 | 15600 }}
{{ResResourceName|Indigo Paint | 6720 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 25000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 5212 | 5212 }}
{{ResResourceName|Orange Paint | 8602 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 2340 | 2340 }}
{{ResResourceName|Spring Green Paint | 701 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 10784 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 24600 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 8412 | 8412 }}
{{ResResourceName|Gold Wire | 1200 | 1200 }}
{{ResResourceName|Iron Bars | 736 | 736 }}
{{ResResourceName|Gold Bars | 64 | 64 }}
{{ResResourceName|Silver Sheeting | 64 | 64 }}
}}

===Paint Recipes===
Individual recipes ordered by "cost" from cheapest to most expensive.

'''Dark Golden Rod'''

* OneBanana: 3 Carrot, 1 Cabbage, 6 Red Sand
* Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
* Selune: 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead
* Sirena: 1 Lead, 8 Red Sand, 1 Carrot, 1 Saltpeter

'''Indigo'''

* Lenala: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 6 Red Sand
* Sirena: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 8 Red Sand
* Selune: 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter
* Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur

'''Forest Green'''

* Solaris: 1 Cabbage, 1 Copper, 7 Clay, 1 Red Sand
* Selune: 4 Red Sand, 1 Cabbage, 1 Saltpeter, 4 Copper, 1 Lead
* Sirena: 2 Clay, 1 Lead, 2 Copper, 5 Red Sand, 1 Saltpeter

'''Orange'''

* Sirena: 1 Copper, 1 Clay, 1 Red Sand, 7 Carrot, 1 Lead
* Selune: 1 Clay, 3 RedSand, 1 Potash, 1 Cabbage, 5 Carrot
* Solaris: 1 Cabbage, 1 Clay, 1 Iron, 1 Red Sand, 1 Silver, 6 Carrot

'''Tomato'''

* Sirena: 1 Copper, 1 Cabbage, 1 Clay, 1 Lead, 16 Red Sand
* Selune: 1 Lead, 5 RedSand, 4 Carrot, 1 Saltpeter
* Solaris: 1 Iron, 5 Red Sand, 4 Carrots, 1 Sulfur, 1 Saltpeter

'''Spring Green'''

* Solaris: 8 Copper, 1 Clay, 1 Silver
* Sirena: 1 Sulfur, 3 Clay, 1 Iron, 1 Cabbage, 5 Copper

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

Chemistry Laboratory

2013-01-03T20:48:24Z

Selune: /* Powdered Gems */

{{Languages}}

{{Template:BuildingInfo|image=SL_Chemlab.png|size=19x19|where=[[where::Compound]]
|description=Basic chemistry lab for making simple chemicals/compounds, and can be upgrade for Advanced Chemistry}}

== Source ==
This building becomes available after you have learned the [[requires::Basic Chemistry]] tech.

== Cost ==
* 50 [[requires::Glass Jar|Glass Jars]]
* 20 [[requires::Glass Rods]]
* 900 [[requires::Boards]]
* 214 [[requires::Nails]]
* 19 [[requires::Rope]]
* 10 [[requires::Wooden Peg]]
* 5 [[requires::Copper Sheeting]]
* 1 [[requires::Wooden Pestle]]
* 1 [[requires::Clay Mortars]]

Built in a [[Compound]]. Uses 19x19 cells.

=== Upgrades ===
''''Tech required:''' [[Advanced Chemistry 2]]

==== Level 1 ====
''"Upgrade this bench to allow advanced reactions"''
* 1 [[requires::Brass Plate]]
* 20 [[requires::Glass Jars]]
* 1 [[requires::Thermometer]]
* 4 [[requires::Bolt]]
* 8 [[requires::Washer]]
* 4 [[requires::Magnesium Wire]]
* 20 [[requires::Steel Wire]]
* 1 [[requires::Stainless Steel Pot]]

==== Level 2 ====
This upgrade is only visible if you have an Essential Macerator in your inventory

''"Upgrade this bench to allow essence creation"''
* 1 [[requires::Essential Macerator]]
**Requires:
**1 [[requires::Marble Mortar]]
**4 [[requires::Linen]]
**1 [[requires::Reagent Bottle]]
**1 [[requires::Thermometer]]
**1 [[requires::Thoth's Metal Sheeting]]
**2 [[requires::Bolt]]
**2 [[requires::Washer]]
* 10 [[requires::Glass Pipe]]
* 4 [[requires::Tin Sheeting]]
* 4 [[requires::Bolt]]
* 8 [[requires::Washer]]
* 20 [[requires::Steel Wire]]
* 20 [[requires::Gold Wire]]

==== Alcohol Lamp ====
The [[requires::Alcohol Lamp]] must first be assembled using the Skills->Assembly menu. It requires:
*1 [[Reagent Bottle]]
*1 [[Small Gear]]
*1 [[Gold Wire]]
*1 [[Rope]]

==== Glassware ====
Install one each of the following:
* [[requires::Thistle Tube]]
* [[requires::Test Tube]]
* [[requires::Distillation Coil]]
* [[requires::Beaker]]
* [[requires::Florence Flask]]

Chemistry Labs require a level 1 upgrade to be able to install glassware.

Glassware of specific quality will allow for the lab to be calibrated. Calibrated labs give increased powdered gem yield, increased litmus strip solution, and require fewer essences per essential compound.

Calibration level 2 requires the glassware to have an average quality exactly divisible by 100 (rounded down), and an average quality above 7000.

For calibration level 3 the average quality of the glassware must be exactly 8000 or 9000, rounded down. (The sum of the glassware quality must be between 40000 and 40004, or 45000 and 45004)

==== Additional Information====
You will not get any upgrade stuff back when you salvage an upgraded Chem Lab at salvage level 7.

== Use ==
=== Products ===
{| border="1" cellpadding="5"
|-
! Product !! Qty Made !! Recipe !! Upgrades Reqd !! Timer
|-
| [[produces::Arsenic]] || 1 || 1 [[Set's Compound Extract]], 100 [[Lead Ore]], 1 [[Acid]] || None || None
|-
| [[produces::Gunpowder]] || 10 || 1 [[Charcoal]], 1 [[Sulfur]], 10 [[Saltpeter]] || None || [[Constitution]]: 12 sec
|-
| [[produces::Ink]] || 20 || 5 [[Metal_Salts|Salts of Iron]], 5 [[Charcoal]], 20 [[Oil]] || None || [[Constitution]]: 7 sec
|-
| [[produces::Papyrus Strip]] || 8 || 1 [[Papyrus Paper]] || Level 1 || None
|-
| [[produces::Gear Oil]] || 6 || 100 [[Oil]], 50 [[Petroleum]], 5 [[Compound Extract]] (Maat, Set, or Osiris) || Level 1 + Glassware || None
|-
| [[produces::Potash Ointment]] || 6 || 50 [[Water in Jugs]], 25 [[Acid]], 5 [[Compound Extract]] (Geb, Maat, or Set) || Level 1 + Glassware || None
|-
| [[produces::Lime Emulsion]] || 6 || 50 [[Water in Jugs]], 10 [[Bauxite]], 5 [[Compound Extract]] (Maat, Set, or Osiris)) || Level 1 + Glassware || None
|-
| [[produces::Gem Glue]] || 1 || 10 [[Water in Jugs]], 25 [[Gypsum]], 10 [[Mandibular Glue]] 5 [[Compound Extract]] (Set, Osiris or Thoth)) || Level 1 + Glassware || None
|-
| [[produces::Explosives]] || || 50 [[Gunpowder]], 10 [[Aluminum Powder]], 2 [[Compound Extract]] (Set, Osiris, or Thoth) || Level 1 + Glassware || [[Constitution]]
|-
| [[produces::Essences]] || varies || Varies || Level 2 + Alcohol Lamp || 2 teppyminutes
|-
| [[produces::Essential Compound]] || 1 || 5 unique [[Essences]] || Level 2 || None
|-
| [[produces::Compound Extract]] || 3 || 1 [[Essential Compound]] with specific properties || Level 2 || None
|-
| [[produces::Litmus Test]] || 22 drops || Powdered Gems and other stuff, see [[Litmus Test]] || Level 2 || Complicated
|}

=== Powdered Gems ===

Used for [[Test of the Ritual Tattoo]]

''You must have the gems in your inventory in order to see the option on the lab.''

Powdered gem yield is multiplied by (1 + the precise calibration level of the lab). At calibration 3 (maximum known), yields are multiplied by 4.
{| border="1" cellpadding="5"
|-
! Gem Size !! Quantity Made
|-
| Huge || 7
|-
| Large || 4
|-
| Medium || 2
|-
| Small || 1
|-
| Cuttable || 1
|-
| Cut Gem (Any Cut) || 1
|}

[[Category:Buildings]]

User:Selune

2013-01-03T16:14:49Z

Selune:

User:Selune

2013-01-03T16:06:33Z

Selune:

Paint Reaction Template:
<pre>
Cabbage | RedSand | G | -11 | 26
Cabbage | Iron | W | 27 | 27
Cabbage | Copper | W | -20 | -60
Cabbage | Potash | B | 19 | -63
Carrot | RedSand | B | 32 | -26
Carrot | Lead | W | -17 | 61
Carrot | Potash | W | -59 | 56
Carrot | Lime | G | 0 | 23
Clay | Lead | B | 32 | -16
Clay | Copper | R | 20 | -12
Clay | Sulfur | G | -55 | -41
Clay | Saltpeter | B | 54 | 35
Lead | Iron | B | 4 | 14
Lead | Copper | W | -25 | -40
Lead | Saltpeter | G | -7 | 47
Iron | Sulfur | G | -17 | 0
Iron | Saltpeter | W | -55 | 7
Copper | Sulfur | W | -25 | -12
Copper | Saltpeter | B | 42 | 4
</pre>

Modified VT PaintWatch:
<pre>
--
--
--

--Cabbage | 129, 63, 145 | 8 | Y | bulk | 10
--Carrot | 225, 113, 33 | 10 | Y | bulk | 10
--Clay | 128, 96, 32 | 4 | Y | bulk | 20
--DeadTongue | 112, 64, 64 | 500 | N | normal | 4
--ToadSkin | 48, 96, 48 | 500 | N | normal | 4
--EarthLight | 128, 240, 224 | 10000 | N | normal | 4
--RedSand | 144, 16, 24 | 10 | Y | bulk | 20
--Lead | 80, 80, 96 | 50 | Y | normal | 6
--Silver | 16, 16, 32 | 50 | N | normal | 6
--Iron | 96, 48, 32 | 30 | Y | normal | 8
--Copper | 64, 192, 192 | 30 | Y | normal | 8

--Sulfur | catalyst | 10 | Y | normal | 1
--Potash | catalyst | 50 | Y | normal | 1
--Lime | catalyst | 20 | Y | normal | 1
--Saltpeter | catalyst | 10 | Y | normal | 1

-- 317, 55, 71
-- cj ca cl dt ts el rs le si ir co su po li sp
paint_colourR = { 129, 225, 129, 112, 48, 128, 145, 81, 16, 97, 64 };
paint_colourG = { 64, 113, 97, 64, 96, 240, 16, 81, 16, 48, 194 };
paint_colourB = { 145, 33, 33, 64, 48, 224, 24, 97, 32, 33, 194 };
catalyst1 = 12;

loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();
loadfile("luascripts/common.inc")();

button_names = {
"CabbageJ","Carrot","Clay","DeadTongue","ToadSkin","EarthLight","RedSand",
"Lead","SilverP","Iron","Copper","C:Sulfur","C:potash","C:Lime","C:Saltpeter"};

per_paint_delay_time = 1000;
per_read_delay_time = 600;
per_click_delay = 10;

function doit()

local paint_sum = {0,0,0};
local paint_count = 0;
local bar_colour = {0,0,0};
local expected_colour = {0,0,0};
local diff_colour = {0,0,0};
local new_px = 0xffffffFF;
local px_R = nil;
local px_G = nil;
local px_B = nil;
local px_A = nil;
local m_x = 0;
local m_y = 0;
local update_now = 1;
local y=0;
local button_push = 0;

lsSetCaptureWindow();

askForWindow("Open the paint window. Take any paint away so to start with 'Black'.");

srReadScreen();
xyWindowSize = srGetWindowSize();
local colour_panel = findAllImages("paint-black.png");
if (#colour_panel == 0) then
m_x, m_y = srMousePos();
else
m_x = colour_panel[1][0];
m_y = colour_panel[1][1];
end

local paint_buttons = findAllImages("paint-button.png");
if (#paint_buttons == 0) then
error "No buttons found";
end

while 1 do
lsSetCamera(0,0,lsScreenX*1.5,lsScreenY*1.5);
-- Where to start putting buttons/text on the screen.
y=0;

if lsButtonText(lsScreenX - 30, lsScreenY - 80, 0, 100, 0xFFFFFFff, "Reset") then
for i= 1, 10 do
srClickMouseNoMove(paint_buttons[7][0]+2,paint_buttons[7][1]+2, right_click);
lsSleep(per_click_delay);
end
srReadScreen();
lsSleep(100);
clickAllText("Take the Paint");
lsSleep(100);
paint_sum = {0,0,0};
paint_count = 0;
bar_colour = {0,0,0};
expected_colour = {0,0,0};
diff_colour = {0,0,0};
new_px = 0xffffffFF;
px_R = nil;
px_G = nil;
px_B = nil;
px_A = nil;
m_x = 0;
m_y = 0;
update_now = 1;
end

-- Create each button and set the button push.
for i=1, #button_names do
if lsButtonText(10, y, 0, 250, 0xFFFFFFff, button_names[i]) then
image_name = button_names[i];
update_now = 1;
button_push = i;
end
y = y + 26;
end
srReadScreen();

-- read the bar pixels
new_px = srReadPixel(m_x, m_y);
px_R = (math.floor(new_px/256/256/256) % 256);
px_G = (math.floor(new_px/256/256) % 256);
px_B = (math.floor(new_px/256) % 256);
px_A = (new_px % 256);

if not(update_now==0) then
--{
if not (button_push==0) then
--{
-- click the appropriate button to add paint.
srClickMouseNoMove(paint_buttons[button_push][0]+2,paint_buttons[button_push][1]+2, right_click);
lsSleep(per_click_delay);

if(button_push < catalyst1) then
-- add the paint estimate
paint_sum[1] = paint_sum[1] + paint_colourR[button_push];
paint_sum[2] = paint_sum[2] + paint_colourG[button_push];
paint_sum[3] = paint_sum[3] + paint_colourB[button_push];
paint_count = paint_count + 1.0;
end
--}
end

-- count up all the pixels.
lsSleep(per_paint_delay_time);
srReadScreen();

bar_colour[1] = #findAllImages("paint-redbarC.png");
lsSleep(per_read_delay_time/3);
bar_colour[2] = #findAllImages("paint-greenbarC.png");
lsSleep(per_read_delay_time/3);
bar_colour[3] = #findAllImages("paint-bluebarC.png");
lsSleep(per_read_delay_time/3);
update_now = 0;

-- tweak/hack because we miss the first pixel
for i=1, 3 do
if(bar_colour[i]>0)then
bar_colour[i]=bar_colour[i]+1;
bar_colour[i]=bar_colour[i]*256.0/259;
end
end

-- New colour has been added, mix in the pot, and see if there's a difference from the expected value.
if not (button_push==0) then
--{
for i=1, 3 do
expected_colour[i] = paint_sum[i] / paint_count;
diff_colour[i] = math.floor(0.5+bar_colour[i]) - math.floor(0.5+expected_colour[i]);
end

button_push = 0;
--}
end
--}
end

-- Display all the goodies
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Pixel RGBA: " .. px_R .. "," .. px_G .. "," .. px_B .. "," .. px_A);
y = y + 26;
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Bar read RGB: " .. math.floor(bar_colour[1]+0.5) .. "," .. math.floor(bar_colour[2]+0.5) .. "," .. math.floor(bar_colour[3]+0.5));
y = y + 26;
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Expected RGB: " .. math.floor(expected_colour[1]+0.5) .. "," .. math.floor(expected_colour[2]+0.5) .. "," .. math.floor(expected_colour[3]+0.5) );
y = y + 26;
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Reactions RGB: " .. math.floor(diff_colour[1]+0.5) .. "," .. math.floor(diff_colour[2]+0.5) .. "," .. math.floor(diff_colour[3]+0.5) );

if lsButtonText(lsScreenX - 30, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end

lsDoFrame();
lsSleep(per_read_delay_time);
end
end
</pre>

Fixed Crematory Macro:
<pre>
-- crematory.lua v1.2 by Tallow
--
-- Runs one or more crematories. Automatically discovers button
-- configuration on its own and loads/unloads materials.
--

assert(loadfile("luaScripts/common.inc"))();

askText = singleLine([[
Crematory v1.2 (by Tallow) --
Automatically runs one or more crematories.
]]);

wmText = "Tap control on Crematories to open and pin.";

OPP = 0;
SAME_UP = 1;
SAME_DOWN = 2;

tolerance = 6500;
tickTime = 1000;
maxWait = 1000;
longWait = 500;
shortWait = 30;

colOffsets = {
{35-40-3, 204-182},
{71-40-3, 204-182},
{107-40-3, 204-182},
{143-40-3, 204-182},
{179-40-3, 204-182},
{215-40-3, 204-182},
{251-40-3, 204-182}
};

colWidth = 36-35+6;
colHeight = 323-204;
colMiddle = 57;

buttonOffsets = {
{49-40, 333-182},
{89-40, 333-182},
{129-40, 333-182},
{169-40, 333-182},
{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;
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
error("Window moved from (" .. current.origin[1] .. ", " ..
current.origin[2] .. ") to (" .. vLime[0] .. ", " .. 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].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 all_done = true;
for i=1,#windows do
if not windows[i].done then
local done = srFindImageInRange("crem-done.png", windows[i].origin[1] - 3,
windows[i].origin[2] - 15, 40, 40,
tolerance);
if done then
windows[i].done = true;
else
all_done = false;
end
end
end
return all_done;
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);
lsSleep(shortWait);
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);
lsSleep(shortWait);
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 updateList = findAllImages("ThisIs.png");
for i=1,#updateList do
safeClick(updateList[i][0], updateList[i][1]);
end
sleepWithStatus(longWait, updateMessage("Update Crematory Windows"));
srReadScreen();
local takeList = findAllImages("crem-take.png");
for i=1,#takeList do
safeClick(takeList[i][0] + 5, takeList[i][1] + 5);
sleepWithStatus(shortWait*2, "Waiting for Everything");
srReadScreen();
local all = waitForImage("Everything.png", maxWait, "Grabbing Everything");
if all then
safeClick(all[0] + 5, all[1] + 5);
end
lsSleep(shortWait*2);
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()
srReadScreen();
local posList = findAllImages("ThisIs.png");
for i=1,#posList do
safeClick(posList[i][0], posList[i][1]);
end
sleepWithStatus(longWait, updateMessage("Update Crematory Windows"));
srReadScreen();
posList = findAllImages("crem-fire.png");
for i=1,#posList do
loadSingle(posList[i], woodOffset, "Wood");
if load_flax then
loadSingle(posList[i], flaxOffset, "Flax");
end
if load_papyrus then
loadSingle(posList[i], papyrusOffset, "Papyrus");
end
if load_leeks then
loadSingle(posList[i], leeksOffset, "Leeks");
end
if load_limestone then
loadSingle(posList[i], limestoneOffset, "Limestone");
end
end
end

-------------------------------------------------------------------------------
-- loadSingle
-------------------------------------------------------------------------------

function loadSingle(pos, offset, type)
sleepWithStatus(200, "Waiting to load");
safeClick(pos[0]+5, pos[1]+5+16);
lsSleep(100);
local limePos = waitForImage("crem-limestone.png", maxWait,
"Loading " .. type .. " Into Crematory");
if limePos then
safeClick(limePos[0] + 5, limePos[1] + 5 + offset);
lsSleep(100);
local maxPos = waitForImage("crem-max.png", maxWait,
"Adding Maximum Amount");
if maxPos then
safeClick(maxPos[0]+5, maxPos[1]+5);
end
end
lsSleep(100);
sleepWithStatus(shortWait, "Waiting for load to complete");
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
</pre>

Forge.inc to add Treated Metal Sheeting option:

<pre>
button_names = {
"Knife Blade",
"Shovel Blade",
"Nails",
"Copper Pipe",
"Lead Pipe",
"Bars",
"Sheeting",
"Straps",
"Tools",
"Wire"
};

bar_button_names = {
"Iron Bar",
"Gold Bar",
"Silver Bar"
};

sheeting_button_names = {
"Lead Sheeting",
"Gold Sheeting",
"Copper Sheeting",
"Octecs Alloy Sheeting",
"Silver Sheeting",
"Steel Sheeting",
"Gold Foil",
"Metal Blue Sheeting",
"Treated Metal Sheeting",
"Tin Sheeting",
"Moon Steel Sheeting",
"Thoths Metal Sheeting"
};

straps_button_names = {
"Water Metal Strap",
"Iron Strap",
"Aluminum Strap",
"Copper Strap"
};

tools_button_names = {
"Iron Poker",
"Steel Blade",
"Lead Chisel"
};

wire_button_names = {
"Thoths Metal Wire",
"Metal Blue Wire",
"Magnesium Wire",
"Octecs Alloy Wire",
"Silver Wire",
"Copper Wire",
"Steel Wire",
"Gold Wire"
};

----------------- MAKE PROJECTS 'SUPPORTING' FUNCTIONS -----------------

function waitMinutes(minutes)
-- Teppy Minute is 66 seconds or 66000 ms
-- Add a 3 second delay (3000 ms) in case of lag

wait_delay = 3000; -- Extra delay on top of Teppy Time, for lag purposes. Default is 3000
wait = (minutes * 66000) + wait_delay;
askForFocus(); -- Pause to allow user to focus back to ATITD (if they checked the Pause for Focus Box), before starting project.
end

function doneGUI(totalPasses)
wait = 5000; -- Gives a 5 second delay to review the GUI stats, before quitting/returing to Main Menu.
clickAllImages("This.png"); -- Refresh the screen. Update forge window so we know how much charcoal is currently in each forge before next project

sleepWithStatus(wait, "[" .. totalPasses .. "/" .. totalPasses .. "] ALL DONE!\n----------------------------------------------\n[" .. made .. "/" .. batch*project_windows*num_loops .. "] " .. name .. " / Completed");

lsPlaySound("Complete.wav");
runForge(); -- Return to/Display Main Menu
end

function waitGUI(pass)
--If any forge menus shows the Forge_StartFire.png - refreshWindows() function, then display the stalledMessage in the GUI. Suggests its not lit (or out of charcoal)
if #stalled > 0 then
stalledMessage = "\n[" .. #stalled .. "] Forges STALLED (Needs Lit)"
else
stalledMessage = "";
end

sleepWithStatus(wait, "[" .. pass .. "/" .. num_loops .. "] Total Passes\n----------------------------------------------\n[" .. batch .. "] " .. name .. " per forge\n[" .. project_windows .. "] Forges working" .. stalledMessage .. "\n----------------------------------------------\n[" .. batch*project_windows .. "] " .. name .. " per pass\n----------------------------------------------\n[" .. made .. "/" .. batch*project_windows*num_loops .. "] " .. name .. " / Completed");

made = made + (batch*project_windows);
end

function refreshWindows()
checkBreak();
pinned_windows = clickAllImages("This.png");
lsSleep(400);
if pinned_windows == 0 then
error("No pinned windows found!");
else
srReadScreen();
stalled = findAllImages("Forge/Forge_StartFire.png");
if #stalled == pinned_windows/2 then -- The /2 is because each forge has 'This' located in window twice. Can't use ThisIs.png either because idle/working forge has different words (Idle Forge shows 'This' only and Working Forge shows 'This Is'
error("No forges are lit!");
end
end
end

----------------- MAKE PROJECT FUNCTIONS -----------------

function KnifeBlade()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Knife Blade";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
project_windows = clickAllImages("Forge/Forge_Knife_Blade.png");
if project_windows == 0 then
sleepWithStatus(1500, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function ShovelBlade()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Shovel Blade";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
project_windows = clickAllImages("Forge/Forge_Shovel_Blade.png");
if project_windows == 0 then
sleepWithStatus(1500, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function Nails()
num_loops = promptNumber("How many passes ?", 1);
batch = 12;
name = "Nails";
waitMinutes(1);
for i=1, num_loops do
while 1 do
refreshWindows();
project_windows = clickAllImages("Forge/Forge_Nail.png");
if project_windows == 0 then
sleepWithStatus(1500, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function CopperPipe()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Copper Pipe";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
project_windows = clickAllImages("Forge/Forge_Copper_Pipe.png");
if project_windows == 0 then
sleepWithStatus(1500, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function LeadPipe()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Lead Pipe";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
project_windows = clickAllImages("Forge/Forge_Lead_Pipe.png");
if project_windows == 0 then
sleepWithStatus(1500, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function IronBar()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Iron Bar";
waitMinutes(15);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Bars.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Iron_Bar.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function GoldBar()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Gold Bar";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Bars.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Gold_Bar.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function SilverBar()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Silver Bar";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Bars.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Silver_Bar.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function LeadSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Lead Sheeting";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Lead_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function GoldSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 4;
name = "Gold Sheeting";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Gold_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function CopperSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Copper Sheeting";
waitMinutes(1);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Copper_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function TreatedSheeting()
num_loops = promptNumber("How many passes ?", 1);
typeOfMetal = promptText("Enter the metal name:");
batch = 1;
name = "Treated Metal Sheeting";
waitMinutes(2);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllText("Treated");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
lsSleep(400);
local numClicked = clickAllText(typeOfMetal);
if numClicked == 0 then
break;
end
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function OctecsAlloySheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 8;
name = "Octecs Alloy";
waitMinutes(20);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Octecs_Alloy_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function SilverSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Silver Sheeting";
waitMinutes(2);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Silver_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function SteelSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 6;
name = "Steel Sheeting";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Steel_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function GoldFoil()
num_loops = promptNumber("How many passes ?", 1);
batch = 4;
name = "Gold Foil";
waitMinutes(1);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Gold_Foil.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function MetalBlueSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Metal Blue Sheeting";
waitMinutes(15);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Metal_Blue_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function TinSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Tin Sheeting";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Tin_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function MoonSteelSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Moon Steel Sheeting";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Moon_Steel_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function ThothsMetalSheeting()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Thoths Metal Sheeting";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Sheeting.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Thoths_Metal_Sheeting.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function WaterMetalStrap()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Water Metal Strap";
waitMinutes(1);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Straps.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Water_Metal_Strap.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function IronStrap()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Iron Strap";
waitMinutes(3);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Straps.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Iron_Strap.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function AluminumStrap()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Aluminum Strap";
waitMinutes(1);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Straps.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Aluminum_Strap.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function CopperStrap()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Copper Strap";
waitMinutes(2);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Straps.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Copper_Strap.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function IronPoker()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Iron Poker";
waitMinutes(20);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Tools.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Iron_Poker.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function SteelBlade()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Steel Blade";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Tools.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Steel_Blade.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function LeadChisel()
num_loops = promptNumber("How many passes ?", 1);
batch = 1;
name = "Lead Chisel";
waitMinutes(6);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Tools.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Lead_Chisel.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function ThothsMetalWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 14;
name = "Thoths Metal Wire";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Thoths_Metal_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function MetalBlueWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 12;
name = "Metal Blue Wire";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Metal_Blue_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function MagnesiumWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 10;
name = "Magnesium Wire";
waitMinutes(1);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Magnesium_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function OctecsAlloyWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 16;
name = "Octecs Alloy Wire";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Octecs_Alloy_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function SilverWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 5;
name = "Silver Wire";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Silver_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function CopperWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 20;
name = "Copper Wire";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Copper_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function SteelWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 20;
name = "Steel Wire";
waitMinutes(5);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Steel_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function GoldWire()
num_loops = promptNumber("How many passes ?", 1);
batch = 10;
name = "Gold Wire";
waitMinutes(10);
for i=1, num_loops do
while 1 do
refreshWindows();
clickAllImages("Forge/Forge_Wire.png");
lsSleep(400);
project_windows = clickAllImages("Forge/Forge_Gold_Wire.png");
if project_windows == 0 then
sleepWithStatus(1100, "Waiting for Project windows");
else
break;
end
end
waitGUI(i);
end
doneGUI(num_loops);
end

function Bars()
while 1 do
-- Ask for which button
local image_name = nil;
local is_done = nil;
while not is_done do
local y = nil;
local x = nil;
local bsize = nil;
for i=1, #bar_button_names do
if bar_button_names[i] == "Iron Bar" then
x = 30;
y = 10;
bsize = 250;
elseif bar_button_names[i] == "Gold Bar" then
x = 30;
y = 40;
bsize = 250;
elseif bar_button_names[i] == "Silver Bar" then
x = 30;
y = 70;
bsize = 250;
end
if lsButtonText(x, y, 0, bsize, 0x80D080ff, bar_button_names[i]) then
image_name = bar_button_names[i];
is_done = 1;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end
lsDoFrame();
lsSleep(10);
end

if image_name == "Iron Bar" then
IronBar();
elseif image_name == "Gold Bar" then
GoldBar();
elseif image_name == "Silver Bar" then
SilverBar();
end
end
end

function Sheeting()
while 1 do
-- Ask for which button
local image_name = nil;
local is_done = nil;
while not is_done do
local y = nil;
local x = nil;
local bsize = nil;
for i=1, #sheeting_button_names do
if sheeting_button_names[i] == "Lead Sheeting" then
x = 30;
y = 10;
bsize = 150;
elseif sheeting_button_names[i] == "Gold Sheeting" then
x = 30;
y = 35;
bsize = 150;
elseif sheeting_button_names[i] == "Copper Sheeting" then
x = 30;
y = 60;
bsize = 150;
elseif sheeting_button_names[i] == "Treated Metal Sheeting" then
x = 30;
y = 285;
bsize = 150;
elseif sheeting_button_names[i] == "Octecs Alloy Sheeting" then
x = 30;
y = 85;
bsize = 150;
elseif sheeting_button_names[i] == "Silver Sheeting" then
x = 30;
y = 110;
bsize = 150;
elseif sheeting_button_names[i] == "Steel Sheeting" then
x = 30;
y = 135;
bsize = 150;
elseif sheeting_button_names[i] == "Gold Foil" then
x = 30;
y = 160;
bsize = 150;
elseif sheeting_button_names[i] == "Metal Blue Sheeting" then
x = 30;
y = 185;
bsize = 150;
elseif sheeting_button_names[i] == "Tin Sheeting" then
x = 30;
y = 210;
bsize = 150;
elseif sheeting_button_names[i] == "Moon Steel Sheeting" then
x = 30;
y = 235;
bsize = 150;
elseif sheeting_button_names[i] == "Thoths Metal Sheeting" then
x = 30;
y = 260;
bsize = 150;
end
if lsButtonText(x, y, 0, 250, 0x80D080ff, sheeting_button_names[i]) then
image_name = sheeting_button_names[i];
is_done = 1;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end
lsDoFrame();
lsSleep(10);
end

if image_name == "Lead Sheeting" then
LeadSheeting();
elseif image_name == "Gold Sheeting" then
GoldSheeting();
elseif image_name == "Copper Sheeting" then
CopperSheeting();
elseif image_name == "Treated Metal Sheeting" then
TreatedSheeting();
elseif image_name == "Octecs Alloy Sheeting" then
OctecsAlloySheeting();
elseif image_name == "Silver Sheeting" then
SilverSheeting();
elseif image_name == "Steel Sheeting" then
SteelSheeting();
elseif image_name == "Gold Foil" then
GoldFoil();
elseif image_name == "Metal Blue Sheeting" then
MetalBlueSheeting();
elseif image_name == "Tin Sheeting" then
TinSheeting();
elseif image_name == "Moon Steel Sheeting" then
MoonSteelSheeting();
elseif image_name == "Thoths Metal Sheeting" then
ThothsMetalSheeting();
end
end

end

function Straps()
while 1 do
-- Ask for which button
local image_name = nil;

local is_done = nil;
while not is_done do
local y = nil;
local x = nil;
local bsize = nil;
for i=1, #straps_button_names do
if straps_button_names[i] == "Water Metal Strap" then
x = 30;
y = 10;
bsize = 250;
elseif straps_button_names[i] == "Iron Strap" then
x = 30;
y = 40;
bsize = 250;
elseif straps_button_names[i] == "Aluminum Strap" then
x = 30;
y = 70;
bsize = 250;
elseif straps_button_names[i] == "Copper Strap" then
x = 30;
y = 100;
bsize = 250;
end
if lsButtonText(x, y, 0, bsize, 0x80D080ff, straps_button_names[i]) then
image_name = straps_button_names[i];
is_done = 1;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end
lsDoFrame();
lsSleep(10);
end

if image_name == "Water Metal Strap" then
WaterMetalStrap();
elseif image_name == "Iron Strap" then
IronStrap();
elseif image_name == "Aluminum Strap" then
AluminumStrap();
elseif image_name == "Copper Strap" then
CopperStrap();
end
end
end

function Tools()
while 1 do
-- Ask for which button
local image_name = nil;
local is_done = nil;
while not is_done do
local y = nil;
local x = nil;
local bsize = nil;
for i=1, #tools_button_names do
if tools_button_names[i] == "Iron Poker" then
x = 30;
y = 10;
bsize = 250;
elseif tools_button_names[i] == "Steel Blade" then
x = 30;
y = 40;
bsize = 250;
elseif tools_button_names[i] == "Lead Chisel" then
x = 30;
y = 70;
bsize = 250;
end
if lsButtonText(x, y, 0, bsize, 0x80D080ff, tools_button_names[i]) then
image_name = tools_button_names[i];
is_done = 1;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end
lsDoFrame();
lsSleep(10);
end

if image_name == "Iron Poker" then
IronPoker();
elseif image_name == "Steel Blade" then
SteelBlade();
elseif image_name == "Lead Chisel" then
LeadChisel();
end
end
end

function Wire()
while 1 do
-- Ask for which button
local image_name = nil;
local is_done = nil;
while not is_done do
local y = nil;
local x = nil;
local bsize = nil;
for i=1, #wire_button_names do
if wire_button_names[i] == "Thoths Metal Wire" then
x = 30;
y = 10;
bsize = 150;
elseif wire_button_names[i] == "Metal Blue Wire" then
x = 30;
y = 35;
bsize = 150;
elseif wire_button_names[i] == "Magnesium Wire" then
x = 30;
y = 60;
bsize = 150;
elseif wire_button_names[i] == "Octecs Alloy Wire" then
x = 30;
y = 85;
bsize = 150;
elseif wire_button_names[i] == "Silver Wire" then
x = 30;
y = 110;
bsize = 150;
elseif wire_button_names[i] == "Copper Wire" then
x = 30;
y = 135;
bsize = 150;
elseif wire_button_names[i] == "Steel Wire" then
x = 30;
y = 160;
bsize = 150;
elseif wire_button_names[i] == "Gold Wire" then
x = 30;
y = 185;
bsize = 150;
end
if lsButtonText(x, y, 0, 250, 0x80D080ff, wire_button_names[i]) then
image_name = wire_button_names[i];
is_done = 1;
end
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end
lsDoFrame();
lsSleep(10);
end

if image_name == "Thoths Metal Wire" then
ThothsMetalWire();
elseif image_name == "Metal Blue Wire" then
MetalBlueWire();
elseif image_name == "Magnesium Wire" then
MagnesiumWire();
elseif image_name == "Octecs Alloy Wire" then
OctecsAlloyWire();
elseif image_name == "Silver Wire" then
SilverWire();
elseif image_name == "Copper Wire" then
CopperWire();
elseif image_name == "Steel Wire" then
SteelWire();
elseif image_name == "Gold Wire" then
GoldWire();
end
end
end
</pre>

Barley with "Skip gather water" option:
<pre>

-- Edit these first 2 to adjust how much is planted in a pass
-- May need to adjust walk_time in Barley_common.inc if you move too slowly to keep up
-- grids tested: 2x2, 3x3, 5x5, 6x6 (probably need 3+ dex and 600ms walk time)
grid_w = 5;
grid_h = 5;
watered = {};
loop_count = 0;
skip_water = 0;

loadfile("luaScripts/Flax_common.inc")();
loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();

function promptBarleyNumbers(is_plant)
scale = 1.0;

local z = 0;
local is_done = nil;
local value = nil;
-- Edit box and text display
while not is_done do
-- Put these everywhere to make sure we don't lock up with no easy way to escape!
checkBreak("disallow pause");

lsPrint(10, 10, z, scale, scale, 0xFFFFFFff, "Choose passes and grid size");

-- lsEditBox needs a key to uniquely name this edit box
-- let's just use the prompt!
-- lsEditBox returns two different things (a state and a value)
local y = 40;
lsPrint(5, y, z, scale, scale, 0xFFFFFFff, "Passes:");
is_done, num_loops = lsEditBox("passes",
100, y, z, 50, 30, scale, scale,
0x000000ff, 1);
if not tonumber(num_loops) then
is_done = nil;
lsPrint(10, y+18, z+10, 0.7, 0.7, 0xFF2020ff, "MUST BE A NUMBER");
num_loops = 1;
end
y = y + 32;

lsPrint(5, y, z, scale, scale, 0xFFFFFFff, "Grid size:");
is_done, grid_w = lsEditBox("grid",
100, y, z, 50, 30, scale, scale,
0x000000ff, grid_w);
if not tonumber(grid_w) then
is_done = nil;
lsPrint(10, y+18, z+10, 0.7, 0.7, 0xFF2020ff, "MUST BE A NUMBER");
grid_w = 1;
grid_h = 1;
end

grid_w = tonumber(grid_w);
grid_h = grid_w;
y = y + 32;

if lsButtonText(170, y-32, z, 100, 0xFFFFFFff, "OK") then
is_done = 1;
end

if is_plant then
lsPrintWrapped(10, y, z+10, lsScreenX - 20, 0.7, 0.7, 0xD0D0D0ff, "This will plant and harvest a " .. grid_w .. "x" .. grid_w .. " grid of Barley " .. num_loops .. " times, requiring " .. (grid_w * grid_w) .. " raw barley and ".. (grid_w * grid_w * num_loops * 4) .. "water in jugs, doing " .. (grid_w*grid_w*num_loops) .. " harvests.");
else
lsPrintWrapped(10, y, z+10, lsScreenX - 20, 0.7, 0.7, 0xD0D0D0ff, "This will plant a " .. grid_w .. "x" .. grid_w .. " grid of Flax " .. num_loops .. " times, requiring " .. (grid_w * grid_w) .. " seeds, yielding " .. (grid_w * grid_w * num_loops) .. " seeds.");
end
y = y + 50;
skip_water = lsCheckBox(10, y, z, 0xFFFFFFff, "Skip Rain Barrel", skip_water);

if is_done and (not num_loops or not grid_w) then
error 'Canceled';
end

if lsButtonText(lsScreenX - 110, lsScreenY - 30, z, 100, 0xFFFFFFff, "End script") then
error "Clicked End Script button";
end

lsDoFrame();
lsSleep(10); -- Sleep just so we don't eat up all the CPU for no reason
end
end

function doit()

promptBarleyNumbers(1);
askForWindow("Make sure the plant barley window is pinned and you are in F8F8 cam zoomed in. You may need to F12 at low resolutions or hide your chat window (if it starts planting and fails to move downward, it probably clicked on your chat window). Will plant grid NE of current location. 'Plant all crops where you stand' must be ON. 'Right click pins/unpins a menu' must be ON.");
lsSleep(1000);
delay_time = 2000;
local x = 1;
local y = 1;
initGlobals();
-- Find the plant barley button
srReadScreen();

local imgBarley = "barley.png";
local xyPlantBarley = srFindImage(imgBarley);
if not xyPlantBarley then
error 'Could not find plant window';
end
xyPlantBarley[0] = xyPlantBarley[0] + 5;

-- Find the Rain Barrel
if not skip_water then
local imgDrawWater = "draw_water.png";
local xyDrawWater = srFindImage(imgDrawWater);
if not xyDrawWater then
error 'Could not find rain barrel';
end
xyDrawWater[0] = xyDrawWater[0] + 5;
end

for loop_count=1, num_loops do
local start_time = lsGetTimer();
harvested = 0;
-- Init watered array to 0
for y=grid_h, 1, -1 do
for x=grid_w, 1, -1 do
watered[x+((y-1)*grid_w)] = 1;
end
end
-- Local variables
local xyCenter = getCenterPos();
local xyBarleyMenu = {};
xyBarleyMenu[0] = xyCenter[0] - 43;
xyBarleyMenu[1] = xyCenter[1] + 0;
local dxi=1;
local dt_max=grid_w;
local dt=grid_w;
local dx={1, 0, -1, 0};
local dy={0, -1, 0, 1};
local num_at_this_length = 3;
local x_pos = 0;
local y_pos = 0;
for y=1, grid_h do
for x=1, grid_w do
lsPrintln('doing ' .. x .. ',' .. y .. ' of ' .. grid_w .. ',' .. grid_h);
statusScreen("Planting " .. x .. ", " .. y);

-- Plant
lsPrintln('planting ' .. xyPlantBarley[0] .. ',' .. xyPlantBarley[1]);
setWaitSpot(xyBarleyMenu[0], xyBarleyMenu[1]);
srClickMouseNoMove(xyPlantBarley[0], xyPlantBarley[1], 0);
srSetMousePos(xyBarleyMenu[0], xyBarleyMenu[1]);
waitForChange();

-- Bring up menu
lsPrintln('menu ' .. xyBarleyMenu[0] .. ',' .. xyBarleyMenu[1]);
setWaitSpot(xyBarleyMenu[0]+5, xyBarleyMenu[1]);
srClickMouse(xyBarleyMenu[0], xyBarleyMenu[1], 0);
waitForChange();

-- Check for window size
window_w = 214;
window_h = 218;

-- Pin
lsPrintln('pin ' .. (xyBarleyMenu[0]+5) .. ',' .. xyBarleyMenu[1]);
srClickMouseNoMove(xyBarleyMenu[0]+5, xyBarleyMenu[1]+0, 1);

-- Move window
local pp = pinnedPos(x, y);
lsPrintln('move ' .. (xyBarleyMenu[0]+5) .. ',' .. xyBarleyMenu[1] .. ' to ' .. pp[0] .. ',' .. pp[1]);
drag(xyBarleyMenu[0] + 5, xyBarleyMenu[1], pp[0], pp[1], 0);

-- Add 2 water now
srReadScreen();
local barleyAddButton = srFindImageInRange("BarleyAdd.png", pp[0], pp[1], 200, 100);
local barleyWater = srFindImageInRange("barleyWater.png", pp[0], pp[1] - 50, 220, 150);
if not barleyAddButton or not barleyWater then
-- bugfix maybe for lag.
lsSleep(100);
srReadScreen();
barleyAddButton = srFindImageInRange("BarleyAdd.png", pp[0], pp[1], 200, 100);
barleyWater = srFindImageInRange("barleyWater.png", pp[0], pp[1] - 50, 220, 150);
end

srClickMouseNoMove(barleyAddButton[0]+8, barleyWater[1]);
srClickMouseNoMove(barleyAddButton[0]+8, barleyWater[1]);
watered[x+((y-1)*grid_w)] = watered[x+((y-1)*grid_w)] + 2;

-- move to next position
if not ((x == grid_w) and (y == grid_h)) then
lsPrintln('walking dx=' .. dx[dxi] .. ' dy=' .. dy[dxi]);
x_pos = x_pos + dx[dxi];
y_pos = y_pos + dy[dxi];
srClickMouseNoMove(xyCenter[0] + walk_px_x*dx[dxi], xyCenter[1] + walk_px_y*dy[dxi], 0);
lsSleep(walk_time);
dt = dt - 1;
if dt == 1 then
dxi = dxi + 1;
num_at_this_length = num_at_this_length - 1;
if num_at_this_length == 0 then
dt_max = dt_max - 1;
num_at_this_length = 2;
end
if dxi == 5 then
dxi = 1;
end
dt = dt_max;
else
lsPrintln('skipping walking, on last leg');
end
end
checkBreak();
end
end

statusScreen("Refocusing windows...");
-- Bring windows to front
for y=grid_h, 1, -1 do
for x=grid_w, 1, -1 do
local rp = refreshPosUp(x, y);
srClickMouseNoMove(rp[0], rp[1], 0);
lsSleep(refocus_click_time);
end
end
lsSleep(refocus_time); -- Wait for last window to bring to the foreground before clicking again

-- Barley has been planted, pinned and refocused

while 1 do
for y=1, grid_h do
for x=1, grid_w do
local pp = pinnedPos(x, y);
local rp = refreshPosDown(x, y);
srClickMouse(rp[0],rp[1]);
lsSleep(200);
srReadScreen();
local leftBar = srFindImageInRange("barleyBarLeft.png", pp[0], pp[1] - 50, 120, 100);
if leftBar then
leftBar[0] = leftBar[0] + 4;
end
local rightBar = srFindImageInRange("barleyBarRight.png", pp[0], pp[1] - 50, 220, 200);
if rightBar then
rightBar[0] = rightBar[0] + 1;
end
if not rightBar then
error 'Could not find rightbar';
end
local barleyWater = srFindImageInRange("barleyWater.png", pp[0], pp[1] - 50, 220, 150);
if not barleyWater then error 'Could not find water button.'; end
local barleyAddButton = srFindImageInRange("BarleyAdd.png", pp[0], pp[1], 200, 100);
if not barleyAddButton then error 'Could not find add button. Ended at batch '; end

while 1 do
if leftBar then
waterBlue = 0;
if rightBar then
if barleyWater then
srReadScreen();
for i=leftBar[0],rightBar[0] do
pxval = srReadPixelFromBuffer(i, barleyWater[1]);
b = (math.floor(pxval/256) % 256);
if b > 220 then
waterBlue = waterBlue + 1;
end
end
waterBlue = (waterBlue/(rightBar[0]-leftBar[0])*100);
end
end
end
checkBreak();

if watered[x+((y-1)*grid_w)] < 5 then
statusScreen("Watering " .. x .. "," .. y .. "step " .. watered[x+((y-1)*grid_w)] .. ".");
if waterBlue < 90 then
if watered[x+((y-1)*grid_w)] == 0 then
end
srClickMouseNoMove(barleyAddButton[0]+8, barleyWater[1]);
watered[x+((y-1)*grid_w)] = watered[x+((y-1)*grid_w)] + 1;
lsSleep(100);
break;
end
else
statusScreen("Harvesting " .. x .. "," .. y .. ".");
if waterBlue < 90 then
srClickMouseNoMove(pp[0]+90, pp[1]+90);
lsSleep(100);
srClickMouseNoMove(pp[0]+180, pp[1]-25);
if watered[x+((y-1)*grid_w)] == 5 then
harvested = 1;
end
break;
end
end
end
end
end

if harvested == 0 then
statusScreen("Refocusing windows...");
-- Bring windows to front
for y=grid_h, 1, -1 do
for x=grid_w, 1, -1 do
local rp = refreshPosUp(x, y);
srClickMouseNoMove(rp[0], rp[1], 0);
lsSleep(refocus_click_time);
end
end
lsSleep(refocus_time); -- Wait for last window to bring to the foreground before clicking again
else
for x=1, x_pos do
srClickMouseNoMove(xyCenter[0] + walk_px_x*-1, xyCenter[1], 0);
lsSleep(walk_time);
end
for x=1, -y_pos do
srClickMouseNoMove(xyCenter[0], xyCenter[1] + walk_px_y, 0);
lsSleep(walk_time);
end
break;
end
end
local end_time = lsGetTimer();
statusScreen("Time taken: " .. (end_time-start_time)/1000);
-- move X and Y every 4 batches, but skip the Y move every 20th batch
if loop_count % 4 == 0 and loop_count % 5 == 0 then
doCorrectiveMove('x')
elseif loop_count % 4 == 0 then
doCorrectiveMove('xy')
end
--doStashWH(num_loops*grid_w*grid_w);
--doRefillWater(4*numloops*grid_w*grid_w);
doStashWH(grid_w*grid_w);
if not skip_water then
doRefillWater(4*grid_w*grid_w);
end
debug('end of batch #' .. loop_count)
end
end

function doCorrectiveMove(move)
statusScreen("Moving to correct for drift");
local xyCenter = getCenterPos();
if move == 'xy' or move == 'x' then
srClickMouseNoMove(xyCenter[0] + walk_px_x*-1, xyCenter[1], 0);
lsSleep(walk_time);
end
if move == 'xy' or move == 'y' then
srClickMouseNoMove(xyCenter[0], xyCenter[1] + walk_px_y, 0);
lsSleep(walk_time);
end
end

function doStashWH(qty)
local wh = srFindImage("stash.png");
if wh then
srClickMouseNoMove(wh[0]+9,wh[1]+9)
debug('found stash, clicked it');
lsSleep(250);

srReadScreen();
local insects = srFindImage("stashInsectEllipsis.png");

local stashes = srFindImage("stashBarley.png");
if not stashes then
error "no barley to stash"
end
srClickMouseNoMove(stashes[0],stashes[1]);

lsSleep(250);
-- stash exactly the right amount by number so we don't lose our seed barley
srKeyEvent(qty);
srKeyEvent('\n');

if insects then
srClickMouseNoMove(wh[0]+9,wh[1]+9)
lsSleep(250);
srReadScreen();

local insects = srFindImage("stashInsectEllipsis.png");
if insects then
srClickMouseNoMove(insects[0],insects[1]);
lsSleep(250);

srReadScreen();
insects = srFindImage("stashAllTheInsects.png");
if not insects then
error "found insects but couldn't stash them";
end
srClickMouseNoMove(insects[0],insects[1]);
end
end
end
end

function doRefillWater(qty)
debug("in refill")
local rb = srFindImage("draw_water.png");
if rb then
srClickMouseNoMove(rb[0]+5,rb[1]+5)
lsSleep(250);
srKeyEvent(qty);
srKeyEvent('\n');
end

end

function debug(msg)
if 0 then
statusScreen(msg);
lsSleep(1000);
end
end
</pre>

Glenbard Resources/Treatment Recipes

2013-01-03T03:26:54Z

Selune:

Wood and Metal Treatment recipes for the GlenBard tanks.

== Wood Treatment ==
*'''Blonde Glossy''': 140 water, 30 saltpeter, 10 lime, 20 oil, 10 lime, 30 oil
*'''White Glossy''': 140 water, 30 saltpeter, 10 lime, 20 oil, 10 lime, 30 oil, 5 potash
*'''Hard, Rigid, Fireproof, Blonde''': 30 lime, 20 lead, 10 sulfur, 10 lead, 30 lime, 10 lead, 10 lime, 10 petrol, 20 sulfur
*'''Hard, Rotproof''': 10 sulfur, 30 lime, 32 petrol, 7 lead
*'''Hard, Rotproof, Black, Termite-Resistant''': 160 petrol, 5 beeswax, 10 lead

== Metal Treatment - Do NOT Empty the bath. Please contact a Kinsman for Tong rental ==
*'''Stainless, Hard Titanium''': 20 cactus, 10 lime, 30 cactus, 9 gravel, 17 potash
*'''Corrosion Resistant, Hard Titanium''': 20 cactus, 10 lime, 30 cactus, 5 gravel
*'''Stainless, Hard, Insulative, Nontoxic Steel''': 20 cactus, 10 lime, 60 cactus, 9 gravel, 17 potash
*'''Stainless, Hard Moonsteel''': 20 cactus, 10 lime, 10 cactus, 10 lime, 10 cactus, 10 lime, 27 cactus, 9 gravel, 17 potash
*'''Stainless, Hard, Insulative Copper''': 60 cactus, 40 coal, 35 cactus, 9 gravel, 17 potash
*'''Stainless, Hard, Insulative, Nontoxic Sunsteel''': 30 cactus, 10 lime, 60 cactus, 9 gravel, 17 potash

Mega 4u

2013-01-03T01:22:10Z

Selune:

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

Cuttable Gem donation box next to Guild Hall. Please donate as many Cuttable Sunstone as you can spare!

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 23 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 18 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet | 8 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 12 | 12 }}
{{ResResourceName|Unity Cut Lapis | 4 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 2 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 800 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 4000 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 6000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 1600 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 14000 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 3200 | 15600 }}
{{ResResourceName|Indigo Paint | 6720 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 25000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 5212 | 5212 }}
{{ResResourceName|Orange Paint | 8300 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 2340 | 2340 }}
{{ResResourceName|Spring Green Paint | 300 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 10150 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 16895 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 4055 | 8412 }}
{{ResResourceName|Gold Wire | 1200 | 1200 }}
{{ResResourceName|Iron Bars | 131 | 736 }}
{{ResResourceName|Gold Bars | 43 | 64 }}
{{ResResourceName|Silver Sheeting | 64 | 64 }}
}}

===Paint Recipes===
Individual recipes ordered by "cost" from cheapest to most expensive.

'''Dark Golden Rod'''

* OneBanana: 3 Carrot, 1 Cabbage, 6 Red Sand
* Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
* Selune: 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead
* Sirena: 1 Lead, 8 Red Sand, 1 Carrot, 1 Saltpeter

'''Indigo'''

* Lenala: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 6 Red Sand
* Sirena: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 8 Red Sand
* Selune: 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter
* Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur

'''Forest Green'''

* Solaris: 1 Cabbage, 1 Copper, 7 Clay, 1 Red Sand
* Selune: 4 Red Sand, 1 Cabbage, 1 Saltpeter, 4 Copper, 1 Lead
* Sirena: 2 Clay, 1 Lead, 2 Copper, 5 Red Sand, 1 Saltpeter

'''Orange'''

* Sirena: 1 Copper, 1 Clay, 1 Red Sand, 7 Carrot, 1 Lead
* Selune: 1 Clay, 3 RedSand, 1 Potash, 1 Cabbage, 5 Carrot
* Solaris: 1 Cabbage, 1 Clay, 1 Iron, 1 Red Sand, 1 Silver, 6 Carrot

'''Tomato'''

* Sirena: 1 Copper, 1 Cabbage, 1 Clay, 1 Lead, 16 Red Sand
* Selune: 1 Lead, 5 RedSand, 4 Carrot, 1 Saltpeter
* Solaris: 1 Iron, 5 Red Sand, 4 Carrots, 1 Sulfur, 1 Saltpeter

'''Spring Green'''

* Solaris: 8 Copper, 1 Clay, 1 Silver
* Sirena: 1 Sulfur, 3 Clay, 1 Iron, 1 Cabbage, 5 Copper

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

User:Selune

2013-01-02T18:23:24Z

Selune:

Mega 4u

2013-01-02T06:35:45Z

Selune: /* Materials */

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

Cuttable Gem donation box next to Guild Hall. Please donate as many Lapis / Sunstone as you can spare!

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 8 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 4 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet | 5 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 11 | 12 }}
{{ResResourceName|Unity Cut Lapis | 3 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 2 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 800 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 4000 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 6000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 1600 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 0 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 3000 | 15600 }}
{{ResResourceName|Indigo Paint | 6720 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 25000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 5212 | 5212 }}
{{ResResourceName|Orange Paint | 2600 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 1400 | 2340 }}
{{ResResourceName|Spring Green Paint | 300 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 10150 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 15496 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 3635 | 8412 }}
{{ResResourceName|Gold Wire | 1200 | 1200 }}
{{ResResourceName|Iron Bars | 0 | 736 }}
{{ResResourceName|Gold Bars | 29 | 64 }}
{{ResResourceName|Silver Sheeting | 64 | 64 }}
}}

===Paint Recipes===
Individual recipes ordered by "cost" from cheapest to most expensive.

'''Dark Golden Rod'''

* OneBanana: 3 Carrot, 1 Cabbage, 6 Red Sand
* Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
* Selune: 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead
* Sirena: 1 Lead, 8 Red Sand, 1 Carrot, 1 Saltpeter

'''Indigo'''

* Lenala: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 6 Red Sand
* Sirena: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 8 Red Sand
* Selune: 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter
* Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur

'''Forest Green'''

* Solaris: 1 Cabbage, 1 Copper, 7 Clay, 1 Red Sand
* Selune: 4 Red Sand, 1 Cabbage, 1 Saltpeter, 4 Copper, 1 Lead
* Sirena: 2 Clay, 1 Lead, 2 Copper, 5 Red Sand, 1 Saltpeter

'''Orange'''

* Sirena: 1 Copper, 1 Clay, 1 Red Sand, 7 Carrot, 1 Lead
* Selune: 1 Clay, 3 RedSand, 1 Potash, 1 Cabbage, 5 Carrot
* Solaris: 1 Cabbage, 1 Clay, 1 Iron, 1 Red Sand, 1 Silver, 6 Carrot

'''Tomato'''

* Sirena: 1 Copper, 1 Cabbage, 1 Clay, 1 Lead, 16 Red Sand
* Selune: 1 Lead, 5 RedSand, 4 Carrot, 1 Saltpeter
* Solaris: 1 Iron, 5 Red Sand, 4 Carrots, 1 Sulfur, 1 Saltpeter

'''Spring Green'''

* Solaris: 8 Copper, 1 Clay, 1 Silver
* Sirena: 1 Sulfur, 3 Clay, 1 Iron, 1 Cabbage, 5 Copper

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

Mega 4u

2013-01-02T04:46:33Z

Selune: /* Materials */

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

Cuttable Gem donation box next to Guild Hall. Please donate as many Lapis / Sunstone as you can spare!

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 8 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 4 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet | 5 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 7 | 12 }}
{{ResResourceName|Unity Cut Lapis | 2 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 2 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 800 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 4000 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 6000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 1600 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 0 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 3000 | 15600 }}
{{ResResourceName|Indigo Paint | 6720 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 25000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 5212 | 5212 }}
{{ResResourceName|Orange Paint | 2600 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 1400 | 2340 }}
{{ResResourceName|Spring Green Paint | 300 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 10150 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 15496 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 3635 | 8412 }}
{{ResResourceName|Gold Wire | 1200 | 1200 }}
{{ResResourceName|Iron Bars | 0 | 736 }}
{{ResResourceName|Gold Bars | 29 | 64 }}
{{ResResourceName|Silver Sheeting | 64 | 64 }}
}}

===Paint Recipes===
Individual recipes ordered by "cost" from cheapest to most expensive.

'''Dark Golden Rod'''

* OneBanana: 3 Carrot, 1 Cabbage, 6 Red Sand
* Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
* Selune: 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead
* Sirena: 1 Lead, 8 Red Sand, 1 Carrot, 1 Saltpeter

'''Indigo'''

* Lenala: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 6 Red Sand
* Sirena: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 8 Red Sand
* Selune: 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter
* Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur

'''Forest Green'''

* Solaris: 1 Cabbage, 1 Copper, 7 Clay, 1 Red Sand
* Selune: 4 Red Sand, 1 Cabbage, 1 Saltpeter, 4 Copper, 1 Lead
* Sirena: 2 Clay, 1 Lead, 2 Copper, 5 Red Sand, 1 Saltpeter

'''Orange'''

* Sirena: 1 Copper, 1 Clay, 1 Red Sand, 7 Carrot, 1 Lead
* Selune: 1 Clay, 3 RedSand, 1 Potash, 1 Cabbage, 5 Carrot
* Solaris: 1 Cabbage, 1 Clay, 1 Iron, 1 Red Sand, 1 Silver, 6 Carrot

'''Tomato'''

* Sirena: 1 Copper, 1 Cabbage, 1 Clay, 1 Lead, 16 Red Sand
* Selune: 1 Lead, 5 RedSand, 4 Carrot, 1 Saltpeter
* Solaris: 1 Iron, 5 Red Sand, 4 Carrots, 1 Sulfur, 1 Saltpeter

'''Spring Green'''

* Solaris: 8 Copper, 1 Clay, 1 Silver
* Sirena: 1 Sulfur, 3 Clay, 1 Iron, 1 Cabbage, 5 Copper

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

User:Selune

2013-01-02T01:03:01Z

Selune:

Mega 4u

2013-01-01T02:30:27Z

Selune:

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

Cuttable Gem donation box next to Guild Hall. Please donate as many Lapis / Sunstone as you can spare!

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 8 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 4 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet | 1 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 4 | 12 }}
{{ResResourceName|Unity Cut Lapis | 1 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 0 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 650 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 0 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 4000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 1600 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 0 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 2000 | 15600 }}
{{ResResourceName|Indigo Paint | 0 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 11000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 0 | 5212 }}
{{ResResourceName|Orange Paint | 0 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 0 | 2340 }}
{{ResResourceName|Spring Green Paint | 300 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 0 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 14865 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 2250 | 8412 }}
{{ResResourceName|Gold Wire | 300 | 1200 }}
{{ResResourceName|Iron Bars | 0 | 736 }}
{{ResResourceName|Gold Bars | 0 | 64 }}
{{ResResourceName|Silver Sheeting | 64 | 64 }}
}}

===Paint Recipes===
Individual recipes ordered by "cost" from cheapest to most expensive.
 --Sorry, I just added mine at the bottom. Can someone move mine if "cheaper" for each paint? -Sirena

'''Dark Golden Rod'''

* Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
* Selune: 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead
* Sirena: 1 Lead, 8 Red Sand, 1 Carrot, 1 Saltpeter

'''Indigo'''

* Sirena: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 8 Red Sand
* Selune: 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter
* Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur

'''Forest Green'''

* Solaris: 1 Cabbage, 1 Copper, 7 Clay, 1 Red Sand
* Selune: 4 Red Sand, 1 Cabbage, 1 Saltpeter, 4 Copper, 1 Lead
* Sirena: 2 Clay, 1 Lead, 2 Copper, 5 Red Sand, 1 Saltpeter

'''Orange'''

* Sirena: 1 Copper, 1 Clay, 1 Red Sand, 7 Carrot, 1 Lead
* Selune: 1 Clay, 3 RedSand, 1 Potash, 1 Cabbage, 5 Carrot
* Solaris: 1 Cabbage, 1 Clay, 1 Iron, 1 Red Sand, 1 Silver, 6 Carrot

'''Tomato'''

* Sirena: 1 Copper, 1 Cabbage, 1 Clay, 1 Lead, 16 Red Sand
* Selune: 1 Lead, 5 RedSand, 4 Carrot, 1 Saltpeter
* Solaris: 1 Iron, 5 Red Sand, 4 Carrots, 1 Sulfur, 1 Saltpeter

'''Spring Green'''

* Solaris: 8 Copper, 1 Clay, 1 Silver
* Sirena: 1 Sulfur, 3 Clay, 1 Iron, 1 Cabbage, 5 Copper

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

Mega 4u

2013-01-01T02:22:38Z

Selune: /* Materials */

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 8 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 4 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet | 1 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 4 | 12 }}
{{ResResourceName|Unity Cut Lapis | 1 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 0 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 650 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 0 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 4000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 1600 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 0 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 2000 | 15600 }}
{{ResResourceName|Indigo Paint | 0 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 11000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 0 | 5212 }}
{{ResResourceName|Orange Paint | 0 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 0 | 2340 }}
{{ResResourceName|Spring Green Paint | 300 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 0 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 14865 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 2250 | 8412 }}
{{ResResourceName|Gold Wire | 300 | 1200 }}
{{ResResourceName|Iron Bars | 0 | 736 }}
{{ResResourceName|Gold Bars | 0 | 64 }}
{{ResResourceName|Silver Sheeting | 64 | 64 }}
}}

===Paint Recipes===
Individual recipes ordered by "cost" from cheapest to most expensive.
 --Sorry, I just added mine at the bottom. Can someone move mine if "cheaper" for each paint? -Sirena

'''Dark Golden Rod'''

* Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
* Selune: 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead
* Sirena: 1 Lead, 8 Red Sand, 1 Carrot, 1 Saltpeter

'''Indigo'''

* Sirena: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 8 Red Sand
* Selune: 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter
* Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur

'''Forest Green'''

* Solaris: 1 Cabbage, 1 Copper, 7 Clay, 1 Red Sand
* Selune: 4 Red Sand, 1 Cabbage, 1 Saltpeter, 4 Copper, 1 Lead
* Sirena: 2 Clay, 1 Lead, 2 Copper, 5 Red Sand, 1 Saltpeter

'''Orange'''

* Sirena: 1 Copper, 1 Clay, 1 Red Sand, 7 Carrot, 1 Lead
* Selune: 1 Clay, 3 RedSand, 1 Potash, 1 Cabbage, 5 Carrot
* Solaris: 1 Cabbage, 1 Clay, 1 Iron, 1 Red Sand, 1 Silver, 6 Carrot

'''Tomato'''

* Sirena: 1 Copper, 1 Cabbage, 1 Clay, 1 Lead, 16 Red Sand
* Selune: 1 Lead, 5 RedSand, 4 Carrot, 1 Saltpeter
* Solaris: 1 Iron, 5 Red Sand, 4 Carrots, 1 Sulfur, 1 Saltpeter

'''Spring Green'''

* Solaris: 8 Copper, 1 Clay, 1 Silver
* Sirena: 1 Sulfur, 3 Clay, 1 Iron, 1 Cabbage, 5 Copper

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

Mega 4u

2013-01-01T02:16:04Z

Selune: /* Paint Recipes */

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 8 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 4 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet | 1 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 4 | 12 }}
{{ResResourceName|Unity Cut Lapis | 1 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 0 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 650 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 0 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 4000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 1600 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 0 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 2000 | 15600 }}
{{ResResourceName|Indigo Paint | 0 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 11000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 0 | 5212 }}
{{ResResourceName|Orange Paint | 0 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 0 | 2340 }}
{{ResResourceName|Spring Green Paint | 300 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 0 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 14865 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 2250 | 8412 }}
{{ResResourceName|Gold Wire | 300 | 1200 }}
{{ResResourceName|Iron Bars | 0 | 736 }}
{{ResResourceName|Gold Bars | 0 | 64 }}
{{ResResourceName|Silver Sheeting | 0 | 64 }}
}}

===Paint Recipes===
Individual recipes ordered by "cost" from cheapest to most expensive.
 --Sorry, I just added mine at the bottom. Can someone move mine if "cheaper" for each paint? -Sirena

'''Dark Golden Rod'''

* Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
* Selune: 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead
* Sirena: 1 Lead, 8 Red Sand, 1 Carrot, 1 Saltpeter

'''Indigo'''

* Sirena: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 8 Red Sand
* Selune: 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter
* Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur

'''Forest Green'''

* Solaris: 1 Cabbage, 1 Copper, 7 Clay, 1 Red Sand
* Selune: 4 Red Sand, 1 Cabbage, 1 Saltpeter, 4 Copper, 1 Lead
* Sirena: 2 Clay, 1 Lead, 2 Copper, 5 Red Sand, 1 Saltpeter

'''Orange'''

* Sirena: 1 Copper, 1 Clay, 1 Red Sand, 7 Carrot, 1 Lead
* Selune: 1 Clay, 3 RedSand, 1 Potash, 1 Cabbage, 5 Carrot
* Solaris: 1 Cabbage, 1 Clay, 1 Iron, 1 Red Sand, 1 Silver, 6 Carrot

'''Tomato'''

* Sirena: 1 Copper, 1 Cabbage, 1 Clay, 1 Lead, 16 Red Sand
* Selune: 1 Lead, 5 RedSand, 4 Carrot, 1 Saltpeter
* Solaris: 1 Iron, 5 Red Sand, 4 Carrots, 1 Sulfur, 1 Saltpeter

'''Spring Green'''

* Solaris: 8 Copper, 1 Clay, 1 Silver
* Sirena: 1 Sulfur, 3 Clay, 1 Iron, 1 Cabbage, 5 Copper

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

Mega 4u

2013-01-01T02:15:09Z

Selune: /* Paint Recipes */

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 8 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 4 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet | 1 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 4 | 12 }}
{{ResResourceName|Unity Cut Lapis | 1 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 0 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 650 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 0 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 4000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 1600 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 0 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 2000 | 15600 }}
{{ResResourceName|Indigo Paint | 0 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 11000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 0 | 5212 }}
{{ResResourceName|Orange Paint | 0 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 0 | 2340 }}
{{ResResourceName|Spring Green Paint | 300 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 0 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 14865 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 2250 | 8412 }}
{{ResResourceName|Gold Wire | 300 | 1200 }}
{{ResResourceName|Iron Bars | 0 | 736 }}
{{ResResourceName|Gold Bars | 0 | 64 }}
{{ResResourceName|Silver Sheeting | 0 | 64 }}
}}

===Paint Recipes===
Individual recipes ordered by "cost" from cheapest to most expensive.
 --Sorry, I just added mine at the bottom. Can someone move mine if "cheaper" for each paint? -Sirena

'''Dark Golden Rod'''

* Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
* Selune: 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead
* Sirena: 1 Lead, 8 Red Sand, 1 Carrot, 1 Saltpeter

'''Indigo'''

* Selune: 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter
* Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur
* Sirena: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 8 Red Sand

'''Forest Green'''

* Solaris: 1 Cabbage, 1 Copper, 7 Clay, 1 Red Sand
* Selune: 4 Red Sand, 1 Cabbage, 1 Saltpeter, 4 Copper, 1 Lead
* Sirena: 2 Clay, 1 Lead, 2 Copper, 5 Red Sand, 1 Saltpeter

'''Orange'''

* Sirena: 1 Copper, 1 Clay, 1 Red Sand, 7 Carrot, 1 Lead
* Selune: 1 Clay, 3 RedSand, 1 Potash, 1 Cabbage, 5 Carrot
* Solaris: 1 Cabbage, 1 Clay, 1 Iron, 1 Red Sand, 1 Silver, 6 Carrot

'''Tomato'''

* Sirena: 1 Copper, 1 Cabbage, 1 Clay, 1 Lead, 16 Red Sand
* Selune: 1 Lead, 5 RedSand, 4 Carrot, 1 Saltpeter
* Solaris: 1 Iron, 5 Red Sand, 4 Carrots, 1 Sulfur, 1 Saltpeter

'''Spring Green'''

* Solaris: 8 Copper, 1 Clay, 1 Silver
* Sirena: 1 Sulfur, 3 Clay, 1 Iron, 1 Cabbage, 5 Copper

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

User:Selune

2013-01-01T00:45:53Z

Selune:

User:Selune

2013-01-01T00:30:46Z

Selune:

Paint Reaction Template:
<pre>
Cabbage | RedSand | G | -11 | 26
Cabbage | Iron | W | 27 | 27
Cabbage | Copper | W | -20 | -60
Cabbage | Potash | B | 19 | -63
Carrot | RedSand | R | 32 | -26
Carrot | Lead | W | -17 | 61
Carrot | Potash | W | -59 | 56
Carrot | Lime | G | 0 | 23
Clay | Lead | B | 32 | -16
Clay | Copper | R | 20 | -12
Clay | Sulfur | G | -55 | -41
Clay | Saltpeter | B | 54 | 35
Lead | Iron | B | 4 | 14
Lead | Copper | W | -25 | -40
Lead | Saltpeter | G | -7 | 47
Iron | Sulfur | G | -17 | 0
Iron | Saltpeter | W | -55 | 7
Copper | Sulfur | W | -25 | -12
Copper | Saltpeter | B | 42 | 4
</pre>

Modified VT PaintWatch:
<pre>
--
--
--

--Cabbage | 129, 63, 145 | 8 | Y | bulk | 10
--Carrot | 225, 113, 33 | 10 | Y | bulk | 10
--Clay | 128, 96, 32 | 4 | Y | bulk | 20
--DeadTongue | 112, 64, 64 | 500 | N | normal | 4
--ToadSkin | 48, 96, 48 | 500 | N | normal | 4
--EarthLight | 128, 240, 224 | 10000 | N | normal | 4
--RedSand | 144, 16, 24 | 10 | Y | bulk | 20
--Lead | 80, 80, 96 | 50 | Y | normal | 6
--Silver | 16, 16, 32 | 50 | N | normal | 6
--Iron | 96, 48, 32 | 30 | Y | normal | 8
--Copper | 64, 192, 192 | 30 | Y | normal | 8

--Sulfur | catalyst | 10 | Y | normal | 1
--Potash | catalyst | 50 | Y | normal | 1
--Lime | catalyst | 20 | Y | normal | 1
--Saltpeter | catalyst | 10 | Y | normal | 1

-- 317, 55, 71
-- cj ca cl dt ts el rs le si ir co su po li sp
paint_colourR = { 129, 225, 129, 112, 48, 128, 145, 81, 16, 97, 64 };
paint_colourG = { 64, 113, 97, 64, 96, 240, 16, 81, 16, 48, 194 };
paint_colourB = { 145, 33, 33, 64, 48, 224, 24, 97, 32, 33, 194 };
catalyst1 = 12;

loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();
loadfile("luascripts/common.inc")();

button_names = {
"CabbageJ","Carrot","Clay","DeadTongue","ToadSkin","EarthLight","RedSand",
"Lead","SilverP","Iron","Copper","C:Sulfur","C:potash","C:Lime","C:Saltpeter"};

per_paint_delay_time = 1000;
per_read_delay_time = 600;
per_click_delay = 10;

function doit()

local paint_sum = {0,0,0};
local paint_count = 0;
local bar_colour = {0,0,0};
local expected_colour = {0,0,0};
local diff_colour = {0,0,0};
local new_px = 0xffffffFF;
local px_R = nil;
local px_G = nil;
local px_B = nil;
local px_A = nil;
local m_x = 0;
local m_y = 0;
local update_now = 1;
local y=0;
local button_push = 0;

lsSetCaptureWindow();

askForWindow("Open the paint window. Take any paint away so to start with 'Black'.");

srReadScreen();
xyWindowSize = srGetWindowSize();
local colour_panel = findAllImages("paint-black.png");
if (#colour_panel == 0) then
m_x, m_y = srMousePos();
else
m_x = colour_panel[1][0];
m_y = colour_panel[1][1];
end

local paint_buttons = findAllImages("paint-button.png");
if (#paint_buttons == 0) then
error "No buttons found";
end

while 1 do
lsSetCamera(0,0,lsScreenX*1.5,lsScreenY*1.5);
-- Where to start putting buttons/text on the screen.
y=0;

if lsButtonText(lsScreenX - 30, lsScreenY - 80, 0, 100, 0xFFFFFFff, "Reset") then
for i= 1, 10 do
srClickMouseNoMove(paint_buttons[7][0]+2,paint_buttons[7][1]+2, right_click);
lsSleep(per_click_delay);
end
srReadScreen();
lsSleep(100);
clickAllText("Take the Paint");
lsSleep(100);
paint_sum = {0,0,0};
paint_count = 0;
bar_colour = {0,0,0};
expected_colour = {0,0,0};
diff_colour = {0,0,0};
new_px = 0xffffffFF;
px_R = nil;
px_G = nil;
px_B = nil;
px_A = nil;
m_x = 0;
m_y = 0;
update_now = 1;
end

-- Create each button and set the button push.
for i=1, #button_names do
if lsButtonText(10, y, 0, 250, 0xFFFFFFff, button_names[i]) then
image_name = button_names[i];
update_now = 1;
button_push = i;
end
y = y + 26;
end
srReadScreen();

-- read the bar pixels
new_px = srReadPixel(m_x, m_y);
px_R = (math.floor(new_px/256/256/256) % 256);
px_G = (math.floor(new_px/256/256) % 256);
px_B = (math.floor(new_px/256) % 256);
px_A = (new_px % 256);

if not(update_now==0) then
--{
if not (button_push==0) then
--{
-- click the appropriate button to add paint.
srClickMouseNoMove(paint_buttons[button_push][0]+2,paint_buttons[button_push][1]+2, right_click);
lsSleep(per_click_delay);

if(button_push < catalyst1) then
-- add the paint estimate
paint_sum[1] = paint_sum[1] + paint_colourR[button_push];
paint_sum[2] = paint_sum[2] + paint_colourG[button_push];
paint_sum[3] = paint_sum[3] + paint_colourB[button_push];
paint_count = paint_count + 1.0;
end
--}
end

-- count up all the pixels.
lsSleep(per_paint_delay_time);
srReadScreen();

bar_colour[1] = #findAllImages("paint-redbarC.png");
lsSleep(per_read_delay_time/3);
bar_colour[2] = #findAllImages("paint-greenbarC.png");
lsSleep(per_read_delay_time/3);
bar_colour[3] = #findAllImages("paint-bluebarC.png");
lsSleep(per_read_delay_time/3);
update_now = 0;

-- tweak/hack because we miss the first pixel
for i=1, 3 do
if(bar_colour[i]>0)then
bar_colour[i]=bar_colour[i]+1;
bar_colour[i]=bar_colour[i]*256.0/259;
end
end

-- New colour has been added, mix in the pot, and see if there's a difference from the expected value.
if not (button_push==0) then
--{
for i=1, 3 do
expected_colour[i] = paint_sum[i] / paint_count;
diff_colour[i] = math.floor(0.5+bar_colour[i]) - math.floor(0.5+expected_colour[i]);
end

button_push = 0;
--}
end
--}
end

-- Display all the goodies
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Pixel RGBA: " .. px_R .. "," .. px_G .. "," .. px_B .. "," .. px_A);
y = y + 26;
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Bar read RGB: " .. math.floor(bar_colour[1]+0.5) .. "," .. math.floor(bar_colour[2]+0.5) .. "," .. math.floor(bar_colour[3]+0.5));
y = y + 26;
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Expected RGB: " .. math.floor(expected_colour[1]+0.5) .. "," .. math.floor(expected_colour[2]+0.5) .. "," .. math.floor(expected_colour[3]+0.5) );
y = y + 26;
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Reactions RGB: " .. math.floor(diff_colour[1]+0.5) .. "," .. math.floor(diff_colour[2]+0.5) .. "," .. math.floor(diff_colour[3]+0.5) );

if lsButtonText(lsScreenX - 30, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end

lsDoFrame();
lsSleep(per_read_delay_time);
end
end
</pre>

User:Selune

2013-01-01T00:16:34Z

Selune: Created page with "Modified VT PaintWatch: <pre> -- -- -- --Cabbage | 129, 63, 145 | 8 | Y | bulk | 10 --Carrot | 225, 113, 33 | 10 | Y | bulk | 10 --Clay | 128, 96, 32 ..."

Modified VT PaintWatch:
<pre>
--
--
--

--Cabbage | 129, 63, 145 | 8 | Y | bulk | 10
--Carrot | 225, 113, 33 | 10 | Y | bulk | 10
--Clay | 128, 96, 32 | 4 | Y | bulk | 20
--DeadTongue | 112, 64, 64 | 500 | N | normal | 4
--ToadSkin | 48, 96, 48 | 500 | N | normal | 4
--EarthLight | 128, 240, 224 | 10000 | N | normal | 4
--RedSand | 144, 16, 24 | 10 | Y | bulk | 20
--Lead | 80, 80, 96 | 50 | Y | normal | 6
--Silver | 16, 16, 32 | 50 | N | normal | 6
--Iron | 96, 48, 32 | 30 | Y | normal | 8
--Copper | 64, 192, 192 | 30 | Y | normal | 8

--Sulfur | catalyst | 10 | Y | normal | 1
--Potash | catalyst | 50 | Y | normal | 1
--Lime | catalyst | 20 | Y | normal | 1
--Saltpeter | catalyst | 10 | Y | normal | 1

-- 317, 55, 71
-- cj ca cl dt ts el rs le si ir co su po li sp
paint_colourR = { 129, 225, 129, 112, 48, 128, 145, 81, 16, 97, 64 };
paint_colourG = { 64, 113, 97, 64, 96, 240, 16, 81, 16, 48, 194 };
paint_colourB = { 145, 33, 33, 64, 48, 224, 24, 97, 32, 33, 194 };
catalyst1 = 12;

loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();
loadfile("luascripts/common.inc")();

button_names = {
"CabbageJ","Carrot","Clay","DeadTongue","ToadSkin","EarthLight","RedSand",
"Lead","SilverP","Iron","Copper","C:Sulfur","C:potash","C:Lime","C:Saltpeter"};

per_paint_delay_time = 1000;
per_read_delay_time = 600;
per_click_delay = 10;

function doit()

local paint_sum = {0,0,0};
local paint_count = 0;
local bar_colour = {0,0,0};
local expected_colour = {0,0,0};
local diff_colour = {0,0,0};
local new_px = 0xffffffFF;
local px_R = nil;
local px_G = nil;
local px_B = nil;
local px_A = nil;
local m_x = 0;
local m_y = 0;
local update_now = 1;
local y=0;
local button_push = 0;

lsSetCaptureWindow();

askForWindow("Open the paint window. Take any paint away so to start with 'Black'.");

srReadScreen();
xyWindowSize = srGetWindowSize();
local colour_panel = findAllImages("paint-black.png");
if (#colour_panel == 0) then
m_x, m_y = srMousePos();
else
m_x = colour_panel[1][0];
m_y = colour_panel[1][1];
end

local paint_buttons = findAllImages("paint-button.png");
if (#paint_buttons == 0) then
error "No buttons found";
end

while 1 do
lsSetCamera(0,0,lsScreenX*1.5,lsScreenY*1.5);
-- Where to start putting buttons/text on the screen.
y=0;

if lsButtonText(lsScreenX - 30, lsScreenY - 80, 0, 100, 0xFFFFFFff, "Reset") then
for i= 1, 10 do
srClickMouseNoMove(paint_buttons[7][0]+2,paint_buttons[7][1]+2, right_click);
lsSleep(per_click_delay);
end
srReadScreen();
lsSleep(100);
clickAllText("Take the Paint");
lsSleep(100);
paint_sum = {0,0,0};
paint_count = 0;
bar_colour = {0,0,0};
expected_colour = {0,0,0};
diff_colour = {0,0,0};
new_px = 0xffffffFF;
px_R = nil;
px_G = nil;
px_B = nil;
px_A = nil;
m_x = 0;
m_y = 0;
update_now = 1;
end

-- Create each button and set the button push.
for i=1, #button_names do
if lsButtonText(10, y, 0, 250, 0xFFFFFFff, button_names[i]) then
image_name = button_names[i];
update_now = 1;
button_push = i;
end
y = y + 26;
end
srReadScreen();

-- read the bar pixels
new_px = srReadPixel(m_x, m_y);
px_R = (math.floor(new_px/256/256/256) % 256);
px_G = (math.floor(new_px/256/256) % 256);
px_B = (math.floor(new_px/256) % 256);
px_A = (new_px % 256);

if not(update_now==0) then
--{
if not (button_push==0) then
--{
-- click the appropriate button to add paint.
srClickMouseNoMove(paint_buttons[button_push][0]+2,paint_buttons[button_push][1]+2, right_click);
lsSleep(per_click_delay);

if(button_push < catalyst1) then
-- add the paint estimate
paint_sum[1] = paint_sum[1] + paint_colourR[button_push];
paint_sum[2] = paint_sum[2] + paint_colourG[button_push];
paint_sum[3] = paint_sum[3] + paint_colourB[button_push];
paint_count = paint_count + 1.0;
end
--}
end

-- count up all the pixels.
lsSleep(per_paint_delay_time);
srReadScreen();

bar_colour[1] = #findAllImages("paint-redbarC.png");
lsSleep(per_read_delay_time/3);
bar_colour[2] = #findAllImages("paint-greenbarC.png");
lsSleep(per_read_delay_time/3);
bar_colour[3] = #findAllImages("paint-bluebarC.png");
lsSleep(per_read_delay_time/3);
update_now = 0;

-- tweak/hack because we miss the first pixel
for i=1, 3 do
if(bar_colour[i]>0)then
bar_colour[i]=bar_colour[i]+1;
bar_colour[i]=bar_colour[i]*256.0/259;
end
end

-- New colour has been added, mix in the pot, and see if there's a difference from the expected value.
if not (button_push==0) then
--{
for i=1, 3 do
expected_colour[i] = paint_sum[i] / paint_count;
diff_colour[i] = math.floor(0.5+bar_colour[i]) - math.floor(0.5+expected_colour[i]);
end

button_push = 0;
--}
end
--}
end

-- Display all the goodies
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Pixel RGBA: " .. px_R .. "," .. px_G .. "," .. px_B .. "," .. px_A);
y = y + 26;
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Bar read RGB: " .. math.floor(bar_colour[1]+0.5) .. "," .. math.floor(bar_colour[2]+0.5) .. "," .. math.floor(bar_colour[3]+0.5));
y = y + 26;
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Expected RGB: " .. math.floor(expected_colour[1]+0.5) .. "," .. math.floor(expected_colour[2]+0.5) .. "," .. math.floor(expected_colour[3]+0.5) );
y = y + 26;
lsPrintWrapped(0, y, 1, lsScreenX, 1, 1, 0xFFFFFFff,
" Reactions RGB: " .. math.floor(diff_colour[1]+0.5) .. "," .. math.floor(diff_colour[2]+0.5) .. "," .. math.floor(diff_colour[3]+0.5) );

if lsButtonText(lsScreenX - 30, lsScreenY - 30, 0, 100, 0xFFFFFFff, "Exit") then
error "Canceled";
end

lsDoFrame();
lsSleep(per_read_delay_time);
end
end
</pre>

Mega 4u

2013-01-01T00:06:06Z

Selune: /* Materials */

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 8 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 4 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet | 1 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 4 | 12 }}
{{ResResourceName|Unity Cut Lapis | 1 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 0 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 650 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 0 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 4000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 1600 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 0 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 2000 | 15600 }}
{{ResResourceName|Indigo Paint | 0 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 11000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 0 | 5212 }}
{{ResResourceName|Orange Paint | 0 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 0 | 2340 }}
{{ResResourceName|Spring Green Paint | 0 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 0 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 13800 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 2250 | 8412 }}
{{ResResourceName|Gold Wire | 0 | 1200 }}
{{ResResourceName|Iron Bars | 0 | 736 }}
{{ResResourceName|Gold Bars | 0 | 64 }}
{{ResResourceName|Silver Sheeting | 0 | 64 }}
}}

===Paint Recipes===
Individual recipes ordered by "cost" from cheapest to most expensive.

'''Dark Golden Rod'''

* Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
* Selune: 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead
* Sirena: 1 Lead, 8 Red Sand, 1 Carrot, 1 Saltpeter

'''Indigo'''

* Selune: 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter
* Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur
* Sirena: 1 Cabbage, 1 Clay, 1 Carrot, 1 Copper, 8 Red Sand

'''Forest Green'''

* Solaris: 1 Cabbage, 1 Copper, 7 Clay, 1 Red Sand
* Selune: 4 Red Sand, 1 Cabbage, 1 Saltpeter, 4 Copper, 1 Lead
* Sirena: 2 Clay, 1 Lead, 2 Copper, 5 Red Sand, 1 Saltpeter

'''Orange'''

* Selune: 2 Clay, 1 Potash, 4 Carrot, 3 Red Sand, 1 Cabbage
* Solaris: 1 Cabbage, 1 Clay, 1 Iron, 1 Red Sand, 1 Silver, 6 Carrot
* Sirena: 1 Copper, 1 Clay, 1 Red Sand, 7 Carrot, 1 Lead

'''Tomato'''

* Selune: 1 Lead, 1 Carrot, 8 Red Sand
* Solaris: 1 Iron, 5 Red Sand, 4 Carrots, 1 Sulfur, 1 Saltpeter
* Sirena: 1 Copper, 1 Cabbage, 1 Clay, 1 Lead, 16 Red Sand

'''Spring Green'''

* Solaris: 8 Copper, 1 Clay, 1 Silver
* Sirena: 1 Sulfur, 3 Clay, 1 Iron, 1 Cabbage, 5 Copper

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

Mega 4u

2012-12-31T21:51:54Z

Selune: /* Paint Recipes */

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 8 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 4 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet | 1 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 1 | 12 }}
{{ResResourceName|Unity Cut Lapis | 0 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 0 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 650 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 0 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 2000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 0 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 0 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 0 | 15600 }}
{{ResResourceName|Indigo Paint | 0 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 11000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 0 | 5212 }}
{{ResResourceName|Orange Paint | 0 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 0 | 2340 }}
{{ResResourceName|Spring Green Paint | 0 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 0 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 13800 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 2250 | 8412 }}
{{ResResourceName|Gold Wire | 0 | 1200 }}
{{ResResourceName|Iron Bars | 0 | 736 }}
{{ResResourceName|Gold Bars | 0 | 64 }}
{{ResResourceName|Silver Sheeting | 0 | 64 }}
}}

===Paint Recipes===
Individual recipes ordered by "cost" from cheapest to most expensive.

'''Dark Golden Rod'''

* Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
* Selune: 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead

'''Indigo'''

* Selune: 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter
* Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur

'''Forest Green'''

* Solaris: 1 Cabbage, 1 Copper, 7 Clay, 1 Red Sand
* Selune: 4 Red Sand, 1 Cabbage, 1 Saltpeter, 4 Copper, 1 Lead

'''Orange'''

* Selune: 2 Clay, 1 Potash, 4 Carrot, 3 Red Sand, 1 Cabbage
* Solaris: 1 Cabbage, 1 Clay, 1 Iron, 1 Red Sand, 1 Silver, 6 Carrot

'''Tomato'''

* Selune: 1 Lead, 1 Carrot, 8 Red Sand
* Solaris: 1 Iron, 5 Red Sand, 4 Carrots, 1 Sulfur, 1 Saltpeter

'''Spring Green'''

* Solaris: 8 Copper, 1 Clay, 1 Silver

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

Mega 4u

2012-12-31T21:45:25Z

Selune: /* Paint Recipes */

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 8 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 4 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet | 1 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 1 | 12 }}
{{ResResourceName|Unity Cut Lapis | 0 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 0 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 650 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 0 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 2000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 0 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 0 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 0 | 15600 }}
{{ResResourceName|Indigo Paint | 0 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 11000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 0 | 5212 }}
{{ResResourceName|Orange Paint | 0 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 0 | 2340 }}
{{ResResourceName|Spring Green Paint | 0 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 0 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 13800 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 2250 | 8412 }}
{{ResResourceName|Gold Wire | 0 | 1200 }}
{{ResResourceName|Iron Bars | 0 | 736 }}
{{ResResourceName|Gold Bars | 0 | 64 }}
{{ResResourceName|Silver Sheeting | 0 | 64 }}
}}

===Paint Recipes===

'''Dark Golden Rod'''

* Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
* Selune: 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead

'''Indigo'''

* Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur
* Selune: 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter

'''Forest Green'''

* Solaris: 1 Cabbage, 1 Copper, 7 Clay, 1 Red Sand
* Selune: 4 Red Sand, 1 Cabbage, 1 Saltpeter, 4 Copper, 1 Lead

'''Orange'''

* Solaris: 1 Cabbage, 1 Clay, 1 Iron, 1 Red Sand, 1 Silver, 6 Carrot
* Selune: 2 Clay, 1 Potash, 4 Carrot, 3 Red Sand, 1 Cabbage

'''Tomato'''

* Solaris: 1 Iron, 5 Red Sand, 4 Carrots, 1 Sulfur, 1 Saltpeter
* Selune: 1 Lead, 1 Carrot, 8 Red Sand

'''Spring Green'''

* Solaris: 8 Copper, 1 Clay, 1 Silver

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

Mega 4u

2012-12-31T21:45:02Z

Selune: /* Paint Recipes */

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 8 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 4 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet | 1 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 1 | 12 }}
{{ResResourceName|Unity Cut Lapis | 0 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 0 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 650 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 0 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 2000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 0 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 0 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 0 | 15600 }}
{{ResResourceName|Indigo Paint | 0 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 11000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 0 | 5212 }}
{{ResResourceName|Orange Paint | 0 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 0 | 2340 }}
{{ResResourceName|Spring Green Paint | 0 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 0 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 13800 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 2250 | 8412 }}
{{ResResourceName|Gold Wire | 0 | 1200 }}
{{ResResourceName|Iron Bars | 0 | 736 }}
{{ResResourceName|Gold Bars | 0 | 64 }}
{{ResResourceName|Silver Sheeting | 0 | 64 }}
}}

===Paint Recipes===

'''Dark Golden Rod'''

* Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
* Selune : 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead

'''Indigo'''

* Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur
* Selune : 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter

'''Forest Green'''

* Solaris: 1 Cabbage, 1 Copper, 7 Clay, 1 Red Sand
* Selune : 4 Red Sand, 1 Cabbage, 1 Saltpeter, 4 Copper, 1 Lead

'''Orange'''

* Solaris: 1 Cabbage, 1 Clay, 1 Iron, 1 Red Sand, 1 Silver, 6 Carrot
* Selune : 2 Clay, 1 Potash, 4 Carrot, 3 Red Sand, 1 Cabbage

'''Tomato'''

* Solaris: 1 Iron, 5 Red Sand, 4 Carrots, 1 Sulfur, 1 Saltpeter
* Selune : 1 Lead, 1 Carrot, 8 Red Sand

'''Spring Green'''

* Solaris: 8 Copper, 1 Clay, 1 Silver

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

Mega 4u

2012-12-31T21:37:30Z

Selune: /* Paint Recipes */

Guild Hall at 1594, 2915.
Mega at 1826, 2715.

=== Materials ===

{{ResTechnologyName|Cut Gems|state=expanded|
{{ResResourceName|Eyelet Cut Amethyst | 8 | 48}}
{{ResResourceName|Thistle Cut Amethyst | 4 | 28 }}
{{ResResourceName|Corner Heart Cut Garnet | 1 | 24 }}
{{ResResourceName|Bridge Cut Lapis | 1 | 12 }}
{{ResResourceName|Unity Cut Lapis | 0 | 4 }}
{{ResResourceName|Hexas Plate Cut Lapis | 24 | 24 }}
{{ResResourceName|Choronzon Cut Turquoise | 0 | 24 }}
{{ResResourceName|Full Aidenn Mask Cut Sunstone | 1 | 4 }}
{{ResResourceName|Sprocket Cut Sunstone | 6 | 6 }}
{{ResResourceName|Looking Glass Cut Jade | 12 | 12 }}
}}

{{ResTechnologyName|Boards 1|state=expanded|
{{ResResourceName|Boards | 1800 | 1800 }}
{{ResResourceName|Hard, Pliable Boards | 650 | 800 }}
{{ResResourceName|Hard, Glossy, Rotproof Boards | 0 | 6720 }}
{{ResResourceName|Pliable, Soft, Rotproof Boards | 2000 | 14000 }}
}}

{{ResTechnologyName|Boards 2|state=expanded|
{{ResResourceName|Rigid, Rotproof Boards | 1440| 1440 }}
{{ResResourceName|White, Glossy, Fireproof Boards | 0 | 1600 }}
{{ResResourceName|Hard, Rotproof Boards | 6000 | 6000 }}
{{ResResourceName|Hard, Rigid Boards | 0 | 14000 }}
}}

{{ResTechnologyName|Paints 1|state=expanded|
{{ResResourceName|Dark Golden Rod Paint | 0 | 15600 }}
{{ResResourceName|Indigo Paint | 0 | 6720 }}
{{ResResourceName|Feldspar Paint | 1920| 1920 }}
}}

{{ResTechnologyName|Paints 2|state=expanded|
{{ResResourceName|Forest Green Paint | 11000 | 25000 }}
}}

{{ResTechnologyName|Paints 3|state=expanded|
{{ResResourceName|Forest Green Paint | 0 | 5212 }}
{{ResResourceName|Orange Paint | 0 | 16520 }}
}}

{{ResTechnologyName|Paints 4|state=expanded|
{{ResResourceName|Saddle Brown Paint | 5808 | 5808 }}
{{ResResourceName|Tomato Paint | 0 | 2340 }}
{{ResResourceName|Spring Green Paint | 0 | 2800 }}
}}

{{ResTechnologyName|Bricks|state=expanded|
{{ResResourceName|Bricks | 25000 | 25000 }}
}}

{{ResTechnologyName|Basic Materials|state=expanded|
{{ResResourceName|Bricks | 1000 | 1000 }}
{{ResResourceName|Rope | 600 | 600 }}
{{ResResourceName|Canvas | 150 | 150 }}
{{ResResourceName|Concrete | 0 | 10784 }}
}}

{{ResTechnologyName|Cut Stone|state=expanded|
{{ResResourceName|Cut Stone | 13800 | 24600 }}
}}

{{ResTechnologyName|Metals|state=expanded|
{{ResResourceName|Brass Plate | 4 | 4 }}
{{ResResourceName|Gold Foil | 1200| 1200 }}
{{ResResourceName|Nails | 2250 | 8412 }}
{{ResResourceName|Gold Wire | 0 | 1200 }}
{{ResResourceName|Iron Bars | 0 | 736 }}
{{ResResourceName|Gold Bars | 0 | 64 }}
{{ResResourceName|Silver Sheeting | 0 | 64 }}
}}

===Paint Recipes===

'''Dark Golden Rod'''

Solaris: 1 Cabbage, 10 Red Sand, 1 Sulfur, 1 Iron
Selune : 3 Carrot, 5 Red Sand, 1 Cabbage, 1 Saltpeter, 1 Lead

'''Indigo'''

Solaris: 8 Cabbage, 1 Carrots, 1 Copper, 1 Sulfur
Selune : 1 Cabbage, 1 Copper, 1 Clay, 7 Red Sand, 1 Saltpeter

'''Forest Green'''

'''Orange'''

'''Tomato'''

'''Spring Green'''

[[Category:Guilds]] {{DEFAULTSORT:Mega 4u}}

Mega 4u

2012-12-31T19:16:10Z

Selune: /* Materials */

Glenbard Resources

2012-12-30T20:53:03Z

Selune:

== Shared Buildings ==

There are TWO major compound areas with guild resources...lots of useful buildings!

'''-2350,4115''' Original Guild Compound Area - Lots of kilns, pottery wheels, brick racks, forges, casting boxes, glass benches, charcoal ovens, rock saws, mason's benches, reactory, gearbox assembly table, anvils, gem cutting table, tasting table, thistle gardens, kettles, [[Pigment Laboratory]], glory hole and more.

'''-2275,4130''' [[Flax Gin]], [[Marble Tub]], [[Large Distaff]], [[Chemical Bath]], [[Wood Treatment Tank]] ([[Glenbard_Resources/Treatment_Recipes|Treatment Recipes]]), [[Fleet Furnace]], [[Papyrus Tank]], [[Acid Bath]], [[Paper Press]], [[Barrel Vise]], [[Crematory]], [[Brick Machine]]

Feel free to use any building you are able to...if someone has left finished materials, please leave them in the building.

'''EXCEPTION:''' There are nine [[Greenhouse]] near the camel pen for everyone's use. To keep it stocked, please hit "harvest" every time you run by...it will only grow 100 at a time but will store unlimited amounts.

There should be straw in the racks, just take what you need and replenish from the greenhouses...that way there is always straw ready to go!

Also ==> /chat any Kinsman to request any materials from the animal pens, we have plenty of oil, leather, etc.

== Mines & Quarries ==

Iron Mines -2437,4023 and -2440,4220

Copper Mine -2362,4101

Tin Mine -1980,3720

Zinc Mine -2218,4044

Sand Mine, Emeralds -2450,4210

Sand Mine, Diamonds -2435,4055

Sand Mine, Rubys -2435,3995

[[Guides/Mining]]

There is an Oyster Shell Marble quarry just beyond the Guild Hall at -2460, 4160 and a Serpentine Marble quarry a little farther at -2593,4234

NEW! Limestone Auger ==> -2055,3950

NEW! Deep Well ==> -2335,4175

== Misc ==

Dendii went on a '''Thanksgiving Day 2012''' salvage raid of a huge guild that had gone dormant, scored 4 warehouses full of goodies. Among the items...5K camel meat, 7K honey, 14K oil, 4K wool, 5K mutton and much more. /chat Dendii is you need any large quantities for a special project.

== It Takes A Village ==

There is sooooo much to do in Egypt, no one Egyptian can do it all. After achieving Citizenship, performing the dreaded "University Run" and starting to progress up the levels, what's next?

There are some challenging and fun skills to hone that could benefit your guild mates...here are a few suggestions, but there are many more:

'''Cooking''' is an art and a science. A great recipe can reduce the number of players needed for group activities like a dig, and greatly increase the recovery rate of your END, FOCUS, etc timers.

'''Chemistry & Paints''' are needed for many exotic uses.

'''Herbs, Mining, Fishing, Mushrooms''' If you like to go on "walkabouts", these are great things to master...helping the guild with cooking supplies and metal ore.

'''Alloys, Blacksmithing, Glass Making, Gearboxes''' Everyone has that one thing (or three!) that they just don't "get"...if you are a master at these things people will talk about you in hushed, reverent tones.

'''Beer, Wine, Pyrotechnics''' Who doesn't like to drink and watch fireworks???

There is much, much more...be sure to read the wiki on those long desert runs!

== Guild Levels ==

Initiate - Brand-new Immigrant

Associate - Achieve Citizenship

Member - Pull out Credit-Ra Card for Paid Membership

Kinsman - Level 10 or Higher, Actively Recruits Arriving Immigrants

Fellow - 100+ Days in Egypt

Patriarch - Friend IRL

Elder - Dendii

----
'''GLENBARD MISSION STATEMENT: A Tale In The Desert is structured into a series of "tales" which last over a real-time year or longer...periodically the goals of Pharaoh are met and a new telling begins and all players start with just the clothes on their back. Technologies are needed to be researched before the universities can offer the knowledge, civilization starts from scratch. The current "tale" is a bit past the halfway point...we are hoping to get a strong group of players together THIS telling so we can be an influential guild NEXT telling :)'''
----

Glenbard Resources/Treatment Recipies

2012-12-30T20:51:12Z

Selune: moved Glenbard Resources/Treatment Recipies to Glenbard Resources/Treatment Recipes: Typo!

#REDIRECT [[Glenbard Resources/Treatment Recipes]]

Glenbard Resources/Treatment Recipes

2012-12-30T20:51:12Z

Selune: moved Glenbard Resources/Treatment Recipies to Glenbard Resources/Treatment Recipes: Typo!

Wood and Metal Treatment recipes for the GlenBard tanks.

== Wood Treatment ==
*'''Blonde Glossy''': 140 water, 30 saltpeter, 10 lime, 20 oil, 10 lime, 30 oil
*'''White Glossy''': 140 water, 30 saltpeter, 10 lime, 20 oil, 10 lime, 30 oil, 5 potash
*'''Hard, Rigid, Fireproof, Blonde''': 30 lime, 20 lead, 10 sulfur, 10 lead, 30 lime, 10 lead, 10 lime, 10 petrol, 20 sulfur
*'''Hard, Rotproof''': 10 sulfur, 30 lime, 32 petrol, 7 lead

== Metal Treatment - Do NOT Empty the bath. Please contact a Kinsman for Tong rental ==
*'''Stainless, Hard Titanium''': 20 cactus, 10 lime, 30 cactus, 9 gravel, 17 potash
*'''Corrosion Resistant, Hard Titanium''': 20 cactus, 10 lime, 30 cactus, 5 gravel
*'''Stainless, Hard, Insulative, Nontoxic Steel''': 20 cactus, 10 lime, 60 cactus, 9 gravel, 17 potash
*'''Stainless, Hard Moonsteel''': 20 cactus, 10 lime, 10 cactus, 10 lime, 10 cactus, 10 lime, 27 cactus, 9 gravel, 17 potash
*'''Stainless, Hard, Insulative Copper''': 60 cactus, 40 coal, 35 cactus, 9 gravel, 17 potash
*'''Stainless, Hard, Insulative, Nontoxic Sunsteel''': 30 cactus, 10 lime, 60 cactus, 9 gravel, 17 potash

Glenbard Resources/Treatment Recipes

2012-12-30T20:49:37Z

Selune: Created page with "Wood and Metal Treatment recipes for the GlenBard tanks. == Wood Treatment == *'''Blonde Glossy''': 140 water, 30 saltpeter, 10 lime, 20 oil, 10 lime, 30 oil *'''White Glossy''..."

Wood and Metal Treatment recipes for the GlenBard tanks.

== Wood Treatment ==
*'''Blonde Glossy''': 140 water, 30 saltpeter, 10 lime, 20 oil, 10 lime, 30 oil
*'''White Glossy''': 140 water, 30 saltpeter, 10 lime, 20 oil, 10 lime, 30 oil, 5 potash
*'''Hard, Rigid, Fireproof, Blonde''': 30 lime, 20 lead, 10 sulfur, 10 lead, 30 lime, 10 lead, 10 lime, 10 petrol, 20 sulfur
*'''Hard, Rotproof''': 10 sulfur, 30 lime, 32 petrol, 7 lead

== Metal Treatment - Do NOT Empty the bath. Please contact a Kinsman for Tong rental ==
*'''Stainless, Hard Titanium''': 20 cactus, 10 lime, 30 cactus, 9 gravel, 17 potash
*'''Corrosion Resistant, Hard Titanium''': 20 cactus, 10 lime, 30 cactus, 5 gravel
*'''Stainless, Hard, Insulative, Nontoxic Steel''': 20 cactus, 10 lime, 60 cactus, 9 gravel, 17 potash
*'''Stainless, Hard Moonsteel''': 20 cactus, 10 lime, 10 cactus, 10 lime, 10 cactus, 10 lime, 27 cactus, 9 gravel, 17 potash
*'''Stainless, Hard, Insulative Copper''': 60 cactus, 40 coal, 35 cactus, 9 gravel, 17 potash
*'''Stainless, Hard, Insulative, Nontoxic Sunsteel''': 30 cactus, 10 lime, 60 cactus, 9 gravel, 17 potash

Test of Seven Phoenix

2012-12-30T05:15:22Z

Selune: /* Strategy */

{{languages}}
 

==Overview==
The Test of Seven Phoenix will challenge your skills as a contractor, not a laborer. When the Hour of the Phoenix arrives, you'll be given a number of glorious Phoenix statues that you must ensure get built at specific Phoenix parks throughout Egypt. Complete all seven within a (game) hour for maximum score. If you waypoint travel during an Hour, you will be disqualified from that hour. No Egyptian may build more than a single statue in a given hour, and no Egyptian who has traveled during the hour may build. (UArch test signup message)

The Test of Seven Phoenix is about organizing and supplying a team to build for you within a short period of time.

*When the Hour of the Phoenix arrives, check a School of Architecture to receive a list of seven Phoenix Stadiums around *Egypt, and the type of Phoenix statue that must be built at each.
*The list of parks will be the same for each architect during that hour (shown to everyone by clicking on the calendar), but the statue type will be random.
*The Hour of the Phoenix lasts for one hour of TeppyTime (3 Egypt-hours or just over 1 RL hour).

No Egyptian may build more than a single statue in a given hour. If you want points for more than one statue, you'll have to get other people to build each additional statue and give them to you (similar to the Test of Towers). If you try to build a second phoenix with the same builder, you will get a message and the materials will be dropped on the ground.

However, if you use waypoint, chariot or expedition travel at any time during an Hour of the Phoenix, you are disqualified. You will no longer be able to build a statue during that Hour (for yourself or anyone else), any statue you have already built will be worth zero points (this point needs confirmation), and you will receive zero points for statues built for you. Because of this, you will probably need to be at a School to receive your list before the Hour starts.

NOTE: Spousewarp is allowed during the hour, having been dev called and checked.

An architect can build a statue for him/herself, should they be lucky enough to be near the appropriate Phoenix park with the necessary supplies, but clearly this won't happen often and is not worth much alone.

If ownership of a statue is passed to someone who has traveled, that person may transfer ownership to someone else without invalidating the points. In other words, only the original builder and the final recipient need not to have traveled. Note that this is only likely to be useful in the event of typing the wrong name (e.g. the delivery person instead of the intended recipient), as different architects all likely require different phoenix types in each stadium.

Travelling to/from the Spirit Arena is allowed.

At the end of a Hour of the Phoenix, all Phoenix built burn to nothing (Phoenix are fleeting).

==Strategy==
This Test is best passed by a team.

*Collect resources for at least 1 set of all 7 phoenix.
*Organize a group of people to take positions around Egypt before the hour begins. NOTE: Confirm beforehand that your Builders can choose the "Phoenix" project on a construction site.
*Station yourself at a SArch just before the hour begins.
*When the hour begins, check the list and locate the stadiums within 1 hour's run of your team.
*Designate some as builders and some as materials delivery once you know who is close enough to build.
*If your builders don't have enough natural carry to take a kit to a stadium, have someone run with them, drop a waypoint, then nav materials to them.
*Do not use any chariots or expedition/navigation time yourself or you will gain no points.
*Since the score you get is based on the number of Phoenix built in your name in the hour, it may be worth aborting an attempt if you cannot build several.
*[[Atlas/Phoenix|Phoenix Parks]]

==Scoring==
At the end of the Hour of the Phoenix, you will receive n^2 points, where n is the number of statues built. This means 1 point for a single Phoenix, 4 for two, etc up to a max of 7 Phoenix. The three Architects with the highest number of points will pass the test each week.

{| border="1" cellpadding="5"
|-
| Number of Phoenix || Points scored
|-
| 1 || 1
|-
|2 || 4
|-
|3 || 9
|-
|4 || 16
|-
|5 || 25
|-
|6 || 36
|-
|7 || 49
|}

==Guilds==
[[Guilds/Bennu_Cooperative|Bennu Cooperative]] Open membership

==Phoenix Costs (Confirmed for T5)==
===Phoenix Being Born===

[[File:Phoenix Being Born.png|300px|thumb|right|Phoenix Being Born]]

851 weight and bulk (including 5 for small construction site)

*100 [[Beeswax]]
*20 [[Pewter]]
*10 [[Small Topaz]]
*40 [[Silver Wire]]
*15 [[Steel Sheeting]]
*260 [[Treated Boards|Soft, Rotproof, Fireproof Boards]]
*100 [[Paint|Sienna Paint]]
*100 [[Paint|Tan Paint]]
*200 [[Raeli Tiles|Rosy Brown Raeli Tiles]]
*1 [[Spirits|Mineral Spirits of Fire]]
*11 [[Gunpowder ]]
*(1 [[Canvas]])
*(4 [[Rope]])

===Phoenix Growing Old===
[[File:Phénix en croissance.png|300px|thumb|right|Phoenix Growing Old]]
883 weight and bulk (including 5 for small construction site)

*12 [[Linen]]
*22 [[Leather]]
*2 [[Glass Rods]]
*100 [[Steel Wire]]
*20 [[Copper Sheeting]]
*260 [[Treated Boards|Soft, Fireproof, White Boards]]
*125 [[Paint|Sandy Brown Paint]]
*125 [[Paint|Olive Drab Paint]]
*200 [[Raeli Tiles|Tan Raeli Tiles]]
*1 [[Spirits|Wood Spirits of Fire]]
*11 [[Low Explosive]]
*(1 [[Canvas]])
*(4 [[Rope]])

===Phoenix in His Prime===
[[File:Phénix In His Prime.png|300px|thumb|right|Phoenix in His Prime]]
754 weight and 1437 bulk (including 5 for small construction site)

*3 [[Gold Bar]]
*10 [[Small Ruby]]
*1 [[Sheet Glass]]
*50 [[Copper Wire]]
*10 [[Steel Sheeting]]
*260 [[Treated Boards|Hard, Rigid, Fireproof Boards]]
*97 [[Paint|Indian Red Paint]]
*200 [[Raeli Tiles|Yellowish Raeli Tiles]]
*800 [[Gold Foil]]
*1 [[Spirits|Grain Spirits of Fire]]
*11 [[Gunpowder]]
*(1 [[Canvas]])
*(4 [[Rope]])

===Phoenix on the Hunt===
[[File:PhoenixOnTheHunt.jpg|300px|thumb|right|Phoenix on the Hunt]]
1208 weight and 1007 bulk (including 5 for small construction site and 2/1 for the extra jug)

*50 [[Perch fish]]
*200+1 [[Water in Jugs]] (Note: You need another water jug, can't donate your last jug)
*50 [[Concrete]]
*30 [[Magnesium Wire]]
*10 [[Steel Sheeting]]
*260 [[Treated Boards|Hard, Black, Fireproof Boards]]
*100 [[Paint|Dark Orange Paint]]
*100 [[Paint|Golden Rod Paint]]
*200 [[Raeli Tiles|Wheat Raeli Tiles]]
*1 [[Spirits|Fish Spirits of Fire]]
*11 [[Gunpowder]]
*(1 [[Canvas]])
*(4 [[Rope]])

===Phoenix Parting Ways===
824 weight and bulk (including 5 for small construction site)

*23 [[Canvas]] (including 1 for small construction site)
*10 [[Small Diamond]]
*3 [[Ink]]
*100 [[Steel Wire]]
*20 [[Copper Sheeting]]
*260 [[Treated Boards|Hard, Volatile, Black Boards]]
*100 [[Paint|Olive Paint]]
*100 [[Paint|Dark Golden Rod Paint]]
*200 [[Raeli Tiles|Dark Green Raeli Tiles]]
*4 [[Spirits|Grass Spirits of Earth]]
*11 [[Gunpowder]]
*(4 [[Rope]])

===Phoenix Taking Shelter===
[[File:PhoenixTakingShelter.jpg|200px|thumb|right|Phoenix Taking Shelter]]
1128 weight and bulk (including 5 for small construction site)

*100 [[Charcoal]]
*300 [[Firebricks]]
*10 [[Cut Stone]]
*42 [[Thoth's Metal Wire]]
*10 [[Treated Metal Sheeting|Pewter Sheeting: Hard Corrosion Resistant]]
*260 [[Treated Boards|Pliable, Fireproof, Blonde Boards]]
*100 [[Paint|Dark Khaki Paint]]
*100 [[Paint|Dark Gray Paint]]
*200 [[Raeli Tiles|Slate Blue Raeli Tiles]] (Note, Slate Gray tiles were originally called for, which do not exist. This was corrected)
*1 [[Spirits|Vegetable Spirits of Fire]]
*11 [[Gunpowder]]
*(1 [[Canvas]])
*(4 [[Rope]])

===Phoenix Twisting Fate===
[[File:PhoenixTwistingFate.png|300px|thumb|right|Phoenix Twisting Fate]]
843 weight and bulk (including 5 for small construction site)

*9 [[Dried Papyrus]]
*50 [[Nails]]
*10 [[Papyrus Paper]]
*30 [[Metal Blue Wire]]
*7 [[Treated Metal Sheeting|Moon Steel Sheeting: Hard, Non-Toxic]]
*7 [[Steel Sheeting]]
*260 [[Treated Boards|Soft, Nontoxic, Fireproof Boards]]
*130 [[Paint|Pale Golden Rod Paint]]
*120 [[Paint|Fire Brick Paint]]
*200 [[Raeli Tiles|Ghost White Raeli Tiles]]
*4 [[Spirits|Worm Spirits of Fire]]
*11 [[Low Explosive]]
*(1 [[Canvas]])
*(4 [[Rope]])

==Demonstration Required==
To open the Test of Seven Phoenix you require:
*1 [[Beeswax]]
*1 [[Pewter]]
*1 [[Small Topaz]]
*1 [[Silver Wire]]
*1 [[Steel Sheeting]]
*1 [[Treated Boards|Soft, Rotproof, Fireproof Boards]]
*1 [[Paint|Sienna Paint]]
*1 [[Raeli Tiles|Rosy Brown Raeli Tiles]]
*1 [[Spirits|Mineral Spirits of Fire]]
*1 [[Gunpowder]]
*1 [[Linen]]
*1 [[Leather]]
*1 [[Glass Rods]]
*1 [[Steel Wire]]
*1 [[Copper Sheeting]]
*1 [[Low Explosive]]
*1 [[Gold Bar]]
*1 [[Small Ruby]]
*1 [[Sheet Glass]]
*1 [[Copper Wire]]
*1 [[Gold Foil]]
*1 [[Perch Meat]]
*1 [[Water in Jugs]]
*1 [[Concrete]]
*1 [[Magnesium Wire]]
*1 [[Canvas]]
*1 [[Small Diamond]]
*1 [[Ink]]
*1 [[Charcoal]]
*1 [[Firebricks]]
*1 [[Cut Stone]]
*1 [[Thoth's Metal Wire]]
*1 [[Treated Metal Sheeting|Pewter Sheeting: Hard Corrosion Resistant]]
*1 [[Dried Papyrus]]
*1 [[Nails]]
*1 [[Papyrus Paper]]
*1 [[Metal Blue Wire]]