Boxes for Aker must be made from:
1 Small Emerald
3 Silk Panels: Light Steel Blue Silk Panels 4 cabbage juice, 1 saltpeter, 3 copper, 1 clay, 2 iron (taylor)
6 Metal Sheeting: Strontium Sheeting: Ductile Toxic
Each box must contain: 6 Chicken Meat
Boxes for Babi must be made from:
1 Small Diamond
3 Silk Panels: Orange Red Silk Panels NOPE
6 Metal Sheeting: Magnesium Sheeting: Insulative Stainless
Each box must contain: 9 Mutton
Boxes for Kheper must be made from:
3 Small Ruby
5 Silk Panels: Sea Shell Silk Panels 1 iron, 3 copper, 1 lead, 2 cabbage juice, 3 carrots (taylor)
6 Metal Sheeting: Titanium Sheeting: Brittle Shiny
Each box must contain: 48 Silt
Boxes for Mafdet must be made from:
2 Small Diamond
4 Silk Panels: Indian Red Silk Panels Cabbage juice and carrots SPARKLE
6 Metal Sheeting: Strontium Sheeting: Insulative Toxic
Each box must contain: 1 Canvas
Boxes for Meret must be made from:
3 Small Diamond
5 Silk Panels: Sea Shell Silk Panels 1 iron, 3 copper, 1 lead, 2 cabbage juice, 3 carrots (taylor)
6 Metal Sheeting: Platinum Sheeting: Hard Stainless
Each box must contain: 1 Cuttable Turquoise
Boxes for Nunet must be made from:
3 Small Quartz
5 Silk Panels: Orange Red Silk Panels NOPE
6 Metal Sheeting: Platinum Sheeting: Ductile Corrosion Resistant
Each box must contain: 3 Carp Fish
Boxes for Sopdu must be made from:
3 Small Sapphire
5 Silk Panels: Indian Red Silk Panels Cabbage juice and carrots SPARKLE
6 Metal Sheeting: Titanium Sheeting: Stainless Shiny
Each box must contain: 9 Iron
Your Menu has been written:
First course:
Dish with Catfish at least one seventh by item, duration at least 28 minutes 37 seconds
Wine with: Age at least 2 vintages. Residual sugar at least 13 percent.
Beer that is: Fruity Black Cinnamon
Second course:
Dish with Grilled Garlic at least one seventh by item, duration at least 16 minutes 6 seconds
Wine with: Tannin at least 5. Alcohol at least 10 percent.
Beer that is: Fruity Brown Date
Third course:
Dish with Grilled Onions at least one seventh by item, duration at least 24 minutes 37 seconds
Wine with: Age at least 1 vintages. Residal Sugar at least 5 percent.
Beer that is: Spicy Brown Cherry
Fourth course:
Dish with Tilapia Fish at least one seventh by item, duration at least 21 minutes 15 seconds
Wine with: Tannin at least 5. Residual Sugar at least 10 percent.
Beer that is: Potent Brown Nutmeg
Fifth course:
Dish with Dates at least one seventh by item, duration at least 18 minutes 46 seconds
Wine with: Age at least 1 vintages. Alcohol at least 9 percent.
Beer that is: Fruity Brown Cinnamon
Sixth course:
Dish with Leeks at least one seventh by item, duration at least 27 minutes 15 seconds
Wine with: Tannin at least 7. Residual Sugar at least 1 percent.
Beer that is: Fruity Black Barley
Seventh course:
Dish with Camel Meat at least one seventh by item, duration at least 27 minutes 42 seconds
Wine with: Age of at least 3 vintages. Alcohol at least 9 percent.
Beer that is: Fruity Sweet Date
22 Catfish, 3 Barley (medium)
22 Grilled Garlic, 3 Grilled Carrots
22 Grilled Onions, 3 Grilled Fish
22 Tilapia Fish, 3 Cabbage
22 Leeks, 3 Malt (dark)
22 Camel Meat, 3 Onions
// Multi Tool // // This macro does Digs, Mining , Limestone, Dirt, Loom, Hackling Rake. // This macro also does not work on timers and will watch your End, Str and Per // timers. It will do the next action as soon as the timers have expired. // Resolution 1024x768. If you have problems with the macro detecting colors, run // ColorTest. // //INSTRUCTIONS // // I use small action icons in Utility>Interface>Action icons appear in // smaller size. Have not tried with large icons. // ColorTest - Run this if you are having problems with the macro detecting colors. // Once the macro starts, it will ring a bell. You have 5 seconds // to place your mouse pointer over the spot you want to color test. // A bell will ring again when the macro is done. Look in the test // log to retrieve your RGB values for that color. You can use // these values for the Dirt and Limestone proceedures if needed. // // Dig - Pin the "Dig Deeper" window where ever you want it. // Put the mouse pointer over the "Dig Deeper" button. // Alt tab to ACTool(Don't move the mouse) and press F2 // It will then dig whenever the END timer expires. // // Dirt - This one is a bit more automated. // Have a shovel in inventory and stand over dirt. // Start the macro. // This one will find the dirt icon on it's own and dig whenever // the timer is ready. // // Firepit - This one will run 1 firepit. The firepit has to have a certain // orientation so I'll be posting a screenshot on my user page. The // initial pointer position is crucial also. Pin the firepit window to // the top left corner. Place the pointer in the position expained on // my user page. Don't move the mouse and alt tab to ACTool. Press Start // or F2 to start the macro. It will switch to the ATITD client and after // a few seconds will ring a bell. All that is happened so far is that the // mouse position has been stored and the macro is paused. At this point, // put everything you want in your fire, have an iron poker in your // inventory. This is run on a guilded firepit, if you need one for a // personal firepit, chat me and I'll add that feature. Once the fire // starts, Alt tab to ACTool once again and press the resume button // (Next to start button). I'm not claiming this to be 100% but once you // get the pointer in the right spot, it hasn't failed any test so far. // // Hackling Rake - Have rotten flax on hand // Make sure rake is on step 1 // Pin Rake window to top left corner. // Put mouse pointer over step 1 option. // Alt tab to windows (Don't touch mouse) Press F2 // This also will watch the end timer and act when ready. // // Hookah - Simple macro that will smoke the hookah for you. Put the window any place // you want it. Place pointer over the smoke option. It will keep trying to // smoke even when the hookah is empty. I'll add in a safeguard soon. // // Limestone - Simply start this macro. // It will gather limestone when the timer is ready. // // Loom - Load the loom // Pin Loom window to top left corner. // Put the mouse pointer over the item you want to create. // Alt tab to windows (Dont touch mouse) Press F2 // This will work the loom when the End timer is gone. // // Mine - Pin 18 crystals and put the windows stacked on top of each other // in the top left corner. Make sure the mine is empty (no Take // option). If you end up stopping the macro and want to restart // without going through the setup section, uncheck Mine Setup // when able. It will position the windows and randomly pull from a // window whenever the PerStr timers are gone. X Coord Work is there // if your mouse pointer is missing the work button. If the mouse is too // far to the right, decrease the number. // // Anka
Include Objects.mac
Constants
Rounds = 0 YWork = 163 //95 //75 XWork = 89 XOrig = 0 YOrig = 0 AddX = 249 //100 AddY = 63 //95 //63 MouseX = 0 MouseY = 0 FireX = 23 FireY = 93 Fire1 = 423,644 Fire2 = 0 Fire3 = 0 Fire4 = 0 Fire5 = 0 Fire1X = 88 Fire1Y = 32 Fire2X = 74 Fire2Y = 58 Fire3X = 90 Fire3Y = 65 Fire4X = 107 Fire4Y = 58 Fire5X = 105 Fire5Y = 44 Red = 0 Green = 0 Blue = 0 ButtonX = 1010 ButtonY = 32 SubX = 31 Button = 0
Num = 0 First = 0 WinX = 3 WinY = 29 //625 //593 DragX = 3 DragY = 115 //49 //29 NewX = 0 NewY = 0 Minval = 1 Maxval = 18 RanX = 0 RanY = 0 Setup = 0 Guild = 0 Done = 0 SDelay = 100 MDelay = 250End
SetConst MouseX = {MouseX} SetConst MouseY = {MouseY}
Form MultiTool, Choose your Job
ed1=EditBox:Rounds:1 ed2=Combobox:Which Job?:Dig,Dirt,FirePit,Hackling,Hookah,Limestone,Loom,Mine,ColorTest ed3=Checkbox:Guilded Mine:False ed4=Checkbox:Mine Setup:True ed5=Checkbox:StokeBell:True ed6=Checkbox:Mine Repaired:False ed7=EditBox:X Coord Work:240end
FormLoad MultiTool, MultiTool.frm
if ShowForm MultiTool
Set Rounds = MultiTool[ed1]
Set XWork = MultiTool[ed7]
If MultiTool[ed4] = True
setConst Setup = 0
else
setConst Setup = 1
End
else
Stopend FormSave MultiTool, MultiTool.frm
MousePos 100, 20 Delay 250 LeftClick MousePos 25, 60 Delay 5000
Loop $Rounds
Call MultiTool[ed2] Call CheckforlostfocusEnd
Procedure FirePit
If $Setup = 0
Bell Asterisk
Pause
SetConst Setup = 1
End
MousePos 100, 20 Delay 250 LeftClick Delay 1000
MousePos 15, 45 Delay 100 Rightclick SetConst Done = 0
If $Button = 0
Compute NewX = $MouseX + $Fire1X
Compute NewY = $MouseY + $Fire1Y
SetConst Fire1 = $NewX,$NewY
Compute NewX = $MouseX + $Fire2X
Compute NewY = $MouseY + $Fire2Y
SetConst Fire2 = $NewX,$NewY
Compute NewX = $MouseX + $Fire3X
Compute NewY = $MouseY + $Fire3Y
SetConst Fire3 = $NewX,$NewY
Compute NewX = $MouseX + $Fire4X
Compute NewY = $MouseY + $Fire4Y
SetConst Fire4 = $NewX,$NewY
Compute NewX = $MouseX + $Fire5X
Compute NewY = $MouseY + $Fire5Y
SetConst Fire5 = $NewX,$NewY
Inc Button
End
While $Done = 0
Mousepos $Fire1
Delay 100
LoadRGB {mousex},{mousey}
IF {RGBGreen} = 255
MousePos $Fire2
Delay 100
LoadRGB {mousex},{mousey}
IF {RGBGreen} = 255
MousePos $Fire3
Delay 100
LoadRGB {mousex},{mousey}
IF {RGBGreen} = 255
MousePos $Fire4
Delay 100
LoadRGB {mousex},{mousey}
IF {RGBGreen} = 255
MousePos $Fire5
Delay 100
LoadRGB {mousex},{mousey}
IF {RGBGreen} = 255
//Stoke
MousePos 37, 93
Delay 200
Rightclick
If MultiTool[ed5] = True
bell asterisk
End
Delay 26000
MousePos 28, 61
Delay 200
Rightclick
SetConst Done = 1
End
End
End
End
End
End
End
Procedure Dig
SetConst Button = 0
While $Button = 0
IsObject Endur at 973, 79
Delay 500
Else
SetConst XOrig = {mousex}
SetConst YOrig = {mousey}
MousePos $MouseX, $MouseY
Delay 200
Rightclick
Delay 500
End
End
SetConst Button = 1
End
Procedure Hookah
SetConst Button = 0
While $Button = 0
IsObject Con at 975, 79
Delay 500
Else
SetConst XOrig = {mousex}
SetConst YOrig = {mousey}
MousePos $MouseX, $MouseY
Delay 200
Rightclick
End
End
SetConst Button = 1
End
Procedure Hackling
Loop Num = 1 to 4
SetConst Button = 0
While $Button = 0
IsObject Endur at 973, 79
Delay 500
Else
SetConst XOrig = {mousex}
SetConst YOrig = {mousey}
MousePos 5, 32
Delay 200
Rightclick
Delay 200
If $Num < 2 or $Num > 3
MousePos $MouseX, $MouseY
Delay 250
Rightclick
Delay 200
Else
Compute MouseY = $MouseY + 15
MousePos $MouseX, $MouseY
Delay 250
Rightclick
Delay 200
Compute MouseY = $MouseY - 15
End
Mousepos $XOrig, $YOrig
SetConst Button = 1
End
End
End
End
Procedure Loom
SetConst Button = 0
While $Button = 0
IsObject Endur at 973, 79
Delay 500
Else
SetConst XOrig = {mousex}
SetConst YOrig = {mousey}
MousePos $MouseX, $MouseY
Delay 250
Rightclick
Delay 200
Mousepos $XOrig, $YOrig
SetConst Button = 1
End
End
End
Procedure Mine
If $Guild = 0
If MultiTool[ed3] = True
Call GuildMine
End
if MultiTool[ed6] = true
Call Guildmine
End
End
If $Setup = 0
Call Minesetup
End
SetConst Button = 0
While $Button = 0
IsObject PerStr at 924, 80
Delay 500
Else
SetConst Num = $Random
Timestamp $Num
Case
When $Num > 15 //12
Compute NewY = $YWork + $AddY * 5 //2
Compute NewX = $AddX * ($Num - 16) + $XWork
When $Num > 12
Compute NewY = $YWork + $AddY * 4
Compute NewX = $AddX * ($Num - 13) + $XWork
When $Num > 9
Compute NewY = $YWork + $AddY * 3
Compute NewX = $AddX * ($Num - 10) + $XWork
When $Num > 6
Compute NewY = $YWork + $AddY * 2
Compute NewX = $AddX * ($Num - 7) + $XWork
When $Num > 3
Compute NewY = $YWork + $AddY
Compute NewX = $AddX * ($Num - 4) + $XWork
Else
Compute NewX = $AddX * ($Num - 1) + $XWork
Compute NewY = $YWork
End
MousePos $NewX, $NewY
Timestamp $NewX, $NewY
Delay 250
Rightclick
Delay 2250
SetConst Button = 1
End
End
End
Procedure Limestone
If $Button = 0
SetConst Red = 113
SetConst Green = 146
SetConst Blue = 100
Call FindButton
End
SetConst Button = 1
While $Button = 1
IsObject Endur at 973, 79
Delay 500
Else
SetConst XOrig = {mousex}
SetConst YOrig = {mousey}
MousePos $ButtonX, $ButtonY
Delay 250
Rightclick
Delay 200
Mousepos $XOrig, $YOrig
Delay 10000
SetConst Button = 2
End
End
End
Procedure Dirt
If $Button = 0
SetConst Red = 91 //104
SetConst Green = 138 //149
SetConst Blue = 184 //192
Call FindButton
End
SetConst Button = 1
While $Button = 1
IsObject Endur at 973, 79
Delay 500
Else
SetConst XOrig = {mousex}
SetConst YOrig = {mousey}
MousePos $ButtonX, $ButtonY
Delay 250
Rightclick
Delay 200
Mousepos $XOrig, $YOrig
Delay 10000
SetConst Button = 2
End
End
End
Procedure Pull
SetConst XOrig = {MouseX}
SetConst YOrig = {MouseY}
MousePos $RanX, $RanY
Delay 200
Rightclick
Delay 100
Compute RanX = $RanX + 14
Compute RanY = $RanY - 3
MousePos $RanX, $RanY
Delay 250
Rightclick
Delay 100
MousePos $XOrig, $YOrig
Delay 100
End
Procedure FindButton
MousePos $ButtonX, $ButtonY
Delay 200
LoadRGB {mousex}, {mousey}
While {rgbred} <> $Red and {rgbgreen} <> $Green and {rgbblue} <> $Blue
Compute ButtonX = $ButtonX - $SubX
MousePos $ButtonX, $ButtonY
Delay 200
LoadRGB {mousex}, {mousey}
End
SetConst ButtonX = {mousex}
SetConst ButtonY = {mousey}
SetConst Button = 1
End
Procedure MineSetup
Loop 6
Loop 3
MousePos $WinX, $WinY
Delay $MDelay
Dragto $DragX, $DragY
Compute DragX = $DragX + $AddX
Call Checkforlostfocus
End
SetConst DragX = 3
Compute DragY = $DragY + $AddY
End
SetConst Setup = 1
End
Procedure Generate
Compute Minval = $MouseX - 49 Compute Maxval = $MouseX + 50 SetConst RanX = $Random Compute Minval = $MouseY - 57 Compute Maxval = $MouseY + 83 SetConst RanY = $RandomEnd
Procedure GuildMine
//Compute WinY = $WinY - 16 Compute AddY = $AddY + 16 Compute YWork = $YWork + 16 //Compute DragY = $DragY + 16 Set Guild = 1End
Procedure ColorTest
Bell Asterisk
Delay 5000
LoadRGB {mousex},{mousey}
Timestamp RGB - {rgbred}, {rgbgreen}, {rgbblue}
End
Procedure CheckforLostFocus
if {activewindow} contains eGenesis
Exit
Else
Stop
End
End
Function Random
Compute Result = int(($Maxval - $Minval + 1) * rnd(1)) + $MinvalEnd Bell Asterisk //Written with ACTool 5.3.0 by Anka