A Tale in the Desert - User contributions [en]

User:Kinslayer/Recipes

2009-09-11T06:03:40Z

Kinslayer: /* COOKING 1 */

===COOKING 1===

{| border="1" class="wikitable sortable"
! Base(s) !! Additive(s)
! STR !! DEX !! END !! SPD !! CON !! FOC !! PER !! Duration
|-
| 33 Grilled Onions
| 5 Tiny Clover
| -2
| 2
| -2
| 2
| 3
| 0
| 0
| 17
|}

User:Kinslayer/Recipes

2009-09-11T05:45:09Z

Kinslayer: /* COOKING 1 */

User:Kinslayer/Recipes

2009-09-11T05:43:02Z

Kinslayer: New page: ===COOKING 1=== {| border="1" class="wikitable sortable" ! Base(s) !! Additive(s) ! STR !! DEX !! END !! SPD !! CON !! FOC !! PER !! Duration

===COOKING 1===

{| border="1" class="wikitable sortable"
! Base(s) !! Additive(s)
! STR !! DEX !! END !! SPD !! CON !! FOC !! PER !! Duration

User:Kinslayer

2009-09-11T05:42:07Z

Kinslayer:

===[[User:Kinslayer/Vineyards|Vineyards]]===
===[[User:Kinslayer/Recipes|Recipes]]===

User:Kinslayer

2009-09-11T05:41:43Z

Kinslayer:

===[[User:Kinslayer/Macros|Macros]]===
===[[User:Kinslayer/Vineyards|Vineyards]]===
===[[User:Kinslayer/Recipes|Recipes]]===

User:Kinslayer/Vineyards

2009-09-11T05:30:24Z

Kinslayer: New page: ===K1===

===K1===

User:Kinslayer

2009-09-11T05:30:02Z

Kinslayer:

===[[User:Kinslayer/Macros|Macros]]===
===[[User:Kinslayer/Vineyards|Vineyards]]===

Fumeology/Single Herb

2009-09-10T22:53:01Z

Kinslayer:

Taken from T3 Wiki:
It seems that one can not get a Fumeology point from the same herb or combination of herbs more than once, although it has been confirmed by multiple people that different herbs, or combinations thereof, with identical tastes and aromas (see tables below) will give additional Fumeology points. At 49 Fumeology, one receives a permanent increase to their perception. At 243 Fumeology, one receives a second permanent increase to their perception.

=Single Herb Table=

Please update as needed with taste and aroma. Others were taken from T3 data. In past tales it has not changed. ''--[[User:Phantasia|Phantasia]] 01:09, 31 January 2009 (EST)''

{| border="1" class="wikitable sortable"
! Herb Name !! Flavor !! Aroma !! Verified in T4
|-
| Allbright || Antiseptic || Exotic Spices || Verified
|-
| Aloe || Mellow || Moss ||
|-
| Altar's Blessing || Spicy || Pepper || Verified
|-
| Anansi || Spicy || Sulfur || Verified
|-
| Apiphenalm || Woody || Licorice || Verified
|-
| Apothecary's Scythe || Antiseptic || Pine ||
|-
| Artemisia || Antiseptic || Lead Pencil ||
|-
| Asafoetida || Mellow || Pepper ||
|-
| Asane || Bitter || Sulfur ||
|-
| Ashoka || Sweet || Roasted Onions || Verified
|-
| Azure Tristeria || Woody || Leather ||
|-
| Banto || Hot || Pepper || Verified
|-
| Bay Tree || Smokey ||Minerals || Verified
|-
| Bee Balm || Hot || Sulfur || Verified
|-
| Beetle Leaf || Dry || Pine || Verified
|-
| Beggar's Button || Spicy || Licorice || Verified
|-
| Bhillawa || Toasty || Dried Cherries ||
|-
| Bilimbi || Mellow || Pine ||
|-
| Bitter Florian || Spicy || Stewed Vegetables || Verified
|-
| Black Pepper Plant || Mellow || Berries || Verified
|-
| Blessed Mariae || Hot || Camel Dung ||
|-
| Blood Balm || Hot || Rotting Flesh ||
|-
| Blood Root || Astringent || Roasted Onions ||
|-
| Blood Blossom || Toasty || Licorice ||
|-
| Blooded Harebell || Mellow || Camel Dung ||
|-
| Bloodwort || Sweet || Pepper ||
|-
| Blue Damia || Bitter || Smoldering Paper ||
|-
| Blue Tarafern || Toasty || Stewed Vegetables || Verified
|-
| Blueberry Tea Tree || Smokey || Roasted Nuts ||
|-
| Bluebottle Clover || Antiseptic || Cedar || Verified
|-
| Blushing Blossom || Toasty || Berries ||
|-
| Brassy Caltrops || Toasty || Moss ||
|-
| Brown Muskerro || Toasty || Candy ||
|-
| Buckler-leaf || Mellow || Licorice || Verified
|-
| Bull's Blood || Harsh || Roasted Onions ||
|-
| Burnt Tarragon || Harsh || Stewed Vegetables || Verified
|-
| Butterfly Damia || Bitter || Camel Dung ||
|-
| Butterroot || Antiseptic || Pepper ||
|-
| Calabash || Dry || Dried Apples ||
|-
| Camelmint || Smokey || Moss ||
|-
| Caraway || Harsh || Moss || Verified
|-
| Cardamom || Woody || Roasted Nuts || Verified
|-
| Cassia || Woody || Cedar || Verified
|-
| Chaffa || Woody || Pine || Verified
|-
| Chatinabrae || Woody || Berries || Verified
|-
| Chives || Burnt || Exotic Spices || Verified
|-
| Chukkah || Dry || Moss ||
|-
| Cicada Bean || Woody || Smoldering Paper || Verified
|-
| Cinnamon || Spicy || Moss || Verified
|-
| Cinquefoil || Smokey || Berries ||
|-
| Cirallis || Bitter || Maple ||
|-
| Clingroot || Spicy || Candy ||
|-
| Common Basil || Smokey || Earth || Verified
|-
| Common Rosemary || Dry || Exotic Spices || Verified
|-
| Common Sage || Mellow || Camel Dung || Verified
|-
| Corsacia || Burnt || Cedar ||
|-
| Covage || Dry || Licorice || Verified
|-
| Crampbark || Spicy || Exotic Spices ||
|-
| Cranesbill || Sweet || Cedar ||
|-
| Creeping Black Nightshade || Burnt || Dried Apples ||
|-
| Creeping Thyme || Woody || Chocolate || Verified
|-
| Crimson Clover || Antiseptic || Maple || Verified
|-
| Crimson Lettuce || Burnt || Stewed Vegetables || Verified
|-
| Crimson Nightshade || Smokey || Sulfur ||
|-
| Crimson Pipeweed || Sweet || Dried Apples || Verified
|-
| Crimson Windleaf || Toasty || Pine || Verified
|-
| Crumpled Leaf Basil || Smokey || Licorice || Verified
|-
| Curly Sage || Dry || Smoldering Paper ||
|-
| Cyan Cressida || Dry || Rotting Flesh ||
|-
| Daggerleaf || Toasty || Maple ||
|-
| Dalchini || Burnt || Pine ||
|-
| Dameshood || Dry || Lead Pencil ||
|-
| Dank Mullien || Toasty || Cedar ||
|-
| Dark Ochoa || Antiseptic || Dried Cherries || Verified
|-
| Dark Radish || Smokey || Sulfur || Verified
|-
| Dark Russet || Woody || Dried Apples ||
|-
| Deadly Catsclaw || Dry || Minerals ||
|-
| Deadwood Tree || Bitter || Dried Apples ||
|-
| Death's Piping || Hot || Rotting Flesh ||
|-
| Dewplant || Sweet || Chocolate || Verified
|-
| Digweed || Burnt || Berries || Verified
|-
| Discorea || Mellow || Roasted Nuts || Verified
|-
| Drapeau D'or || Toasty || Earth || Verified
|-
| Dusty Blue Sage || Mellow || Rotting Flesh ||
|-
| Dwarf Hogweed || Sweet || Exotic Spices || Verified
|-
| Dwarf Wild Lettuce || Burnt || Dried Cherries || Verified
|-
| Earth Apple || Smokey || Cedar ||
|-
| Elegia || Bitter || Moss || Verified
|-
| Enchanter's Plant || Antiseptic || Roasted Onions ||
|-
| Finlow || Smokey || Roasted Onions ||
|-
| Fire Allspice || Bitter || Licorice ||
|-
| Fire Lily || Spicy || Dried Cherries ||
|-
| Fivesleaf || Burnt || Leather ||
|-
| Flaming Skirret || Spicy || Moss ||
|-
| Flander's Blossom || Spicy || Smoldering Paper ||
|-
| Fleabane || Dry || Roasted Nuts || Verified
|-
| Fool's Agar || Spicy || Cedar || Verified
|-
| Fumitory || Harsh || Chocolate ||
|-
| Garcinia || Burnt || Maple ||
|-
| Garlic Chives || Burnt || Candy ||
|-
| Ginger Root || Mellow || Licorice ||
|-
| Ginger Taragon || Harsh || Dried Cherries ||
|-
| Ginseng Root || Spicy || Licorice ||
|-
| Glechoma || Antiseptic || Minerals || Verified
|-
| Gnemnon || Spicy || Berries ||
|-
| Gokhru || Spicy || Rotting Flesh ||
|-
| Golden Dubloon || Sweet || Maple ||
|-
| Golden Gladalia || Astringent || Dried Apple ||
|-
| Golden Sellia || Bitter || Minerals ||
|-
| Golden Sun || Spicy || Rotting Flesh || Verified
|-
| Golden Sweetgrass || Harsh || Roasted Nuts ||
|-
| Golden Thyme || Woody || Dried Cherries || Verified
|-
| Gynura || Mellow || Earth ||
|-
| Harebell || Mellow || Oak ||
|-
| Harrow || Spicy || Oak ||
|-
| Hazlewort || Spicy || Lead Pencil || Verified
|-
| Headache Tree || Spicy || Camel Dung ||
|-
| Heartsease || Hot || Roasted Nuts ||
|-
| Hogweed || Spicy || Roasted Nuts ||
|-
| Homesteader's Palm || Dry || Sulfur ||
|-
| Honey Mint || Spicy || Chocolate || Verified
|-
| Houseleek || Sweet || Pine || Verified
|-
| Hyssop || Spicy || Pine || Verified
|-
| Ice Blossom || Toasty || Lead Pencil ||
|-
| Ice Mint || Spicy || Stewed Vegetables ||
|-
| Ilex || Mellow || Lead Pencil || Verified
|-
| Indigo Damia || Bitter || Rotting Flesh || Verified
|-
| Ipomoea || Woody || Camel Dung ||
|-
| Jagged Dewcup || Mellow || Maple ||
|-
| Jaivanti || Sweet || Exotic Spices || Verified
|-
| Jaiyanti || Sweet || Candy ||
|-
| Joy of the Mountain || Burnt || Smoldering Paper ||
|-
| Jugwort || Spicy || Dried Cherries ||
|-
| Katako Root || Harsh || Pine || Verified
|-
| Khokali || Toasty || Chocolate || Verified
|-
| King's Coin || Burnt || Lead Pencil || Verified
|-
| Lamae || Harsh || Cedar ||
|-
| Larkspur || Hot || Minerals ||
|-
| Lavender Navarre || Bitter || Pepper ||
|-
| Lavender Scented Thyme || Woody || Leather ||
|-
| Lemon Basil || Smokey || Lead Pencil ||
|-
| Lemongrass || Woody || Candy ||
|-
| Lemondrop || Sweet || Dried Cherries || Verified
|-
| Lilia || Sweet || Rotting Flesh || Added
|-
| Liquorice || Smokey || Pepper ||
|-
| Lungclot || Bitter || Lead Pencil || Verified
|-
| Lythrum || Mellow || Berries || Verified
|-
| Mahonia || Antiseptic || Berries || Verified
|-
| Malice Weed || Spicy || Camel Dung ||
|-
| Mandrake Root || Spicy || Pine ||
|-
| Maragosa || Dry || Earth ||
|-
| Mariae || Spicy || Earth ||
|-
| Meadowsweet || Burnt || Licorice ||
|-
| Medicago || Woody || Minerals || Verified
|-
| Mindanao || Woody || Smoldering Paper ||
|-
| Miniature Bamboo || Woody || Smoldering Paper ||
|-
| Miniature Lamae || Harsh || Maple ||
|-
| Mirabellis Fern || Toasty || Minerals ||
|-
| Moon Aloe || Dried Apple || ||
|-
| Morpha || Spicy || Chocolate ||
|-
| Motherwort || Hot || Berries || Verified
|-
| Mountain Mint || Spicy || Candy ||
|-
| Myristica || Hot || Smoldering Paper || Verified
|-
| Myrrh || Woody || Earth ||
|-
| Naranga || Dry || Berries ||
|-
| Nubian Liquorice || Woody || Oak ||
|-
| Octec's Grace || Burnt || Earth ||
|-
| Opal Harebell || Mellow || Rotting Flesh ||
|-
| Orange Niali || Burnt || Moss || Verified ||
|-
| Orange Sweetgrass || Harsh || Minerals || Verified ||
|-
| Orris || Bitter || Stewed Vegetables || Verified ||
|-
| Pale Dhamasa || Burnt || Chocolate || Verified
|-
| Pale Ochoa || Antiseptic || Chocolate ||
|-
| Pale Russet || Woody || Dried Apple ||
|-
| Pale Skirret || Hot || Sulfur || Verified
|-
| Panoe || Woody || Chocolate ||
|-
| Paradise Lily || || ||
|-
| Patchouli || Antiseptic || Dried Apple ||
|-
| Peppermint || Spicy || Minerals ||
|-
| Pippali || Dry || Cedar ||
|-
| Pitcher Plant || Spicy || Maple ||
|-
| Primula || Woody || Sulfur ||
|-
| Prisniparni || Toasty || Leather ||
|-
| Pulmonaria Opal || Burnt || Candy ||
|-
| Purple Tintiri || Dry || Maple || Verified
|-
| Quamash || || ||
|-
| Red Pepper Plant || Mellow || Pepper ||
|-
| Revivia || Woody || Roasted Onions ||
|-
| Rhubarb || Harsh || Berries ||
|-
| Royal Rosemary || Dry || Candy || Verified
|-
| Rubia || Sweet || Stewed Vegetables ||
|-
| Rubydora || Spicy || Leather ||
|-
| Sacred Palm || Sweet || Oak ||
|-
| Sagar Ghota || Spicy || Sulfur ||
|-
| Sandalwood || Woody || Sulfur ||
|-
| Sandy Dustweed || Dry || Oak ||
|-
| Satsachi || Astringent || Stewed Vegetables ||
|-
| Scaley Hardwood || Bitter || Roasted Onions ||
|-
| Schisandra || Woody || Lead Pencil ||
|-
| Shrubby Basil || Smokey || Rotting Flesh ||
|-
| Shrub Sage || Dry || Roasted Onions ||
|-
| Shyama || Burnt || Stewed Vegetables ||
|-
| Shyamalata || Burnt || Dried Cherries ||
|-
| Sickly Root || Woody || Maple ||
|-
| Silvertongue Damia || Bitter || Roasted Nuts ||
|-
| Skirret || Spicy || Dried Apples || Verified
|-
| Sky Gladalia || Astringent || Exotic Spices ||
|-
| Soapwort || Smokey || Camel Dung ||
|-
| Sorrel || Woody || Pine || Verified
|-
| Spinach || Mellow || Roasted Nuts ||
|-
| Spinnea || Harsh || Oak ||
|-
| Squill || Mellow || Minerals ||
|-
| Steel Bladegrass || Harsh || Camel Dung ||
|-
| Stickler Hedge || Sweet || Roasted Onions || Verified
|-
| Strawberry Tea || Woody || Roasted Nuts || Verified
|-
| Strychnos || Toasty || Pepper || Verified
|-
| Sugar Cane || Woody || Rotting Flesh || Verified
|-
| Sweet Groundmaple || Mellow || Cedar ||
|-
| Sweetflower || Sweet || Leather || Verified
|-
| Sweetgrass || Harsh || Smoldering Paper || Verified
|-
| Sweetsop || Spicy || Perpper || Verified
|-
| Tagetese || Mellow || Smoldering Paper ||
|-
| Tamarask || Harsh || Candy ||
|-
| Tangerine Dream || Dry || Pepper ||
|-
| Thunder Plant || Antiseptic || Candy || Verified
|-
| Thyme || Woody || Stewed Vegetables || Verified
|-
| Tiny Clover || Antiseptic || Oak || Verified
|-
| Trilobe || Mellow || Cedar ||
|-
| Tristeria || Woody || Stewed Vegetables ||
|-
| True Tarragon || Harsh || Leather || Verified
|-
| Tsangto || Bitter || Berries ||
|-
| Tsatso || Antiseptic || Leather || Verified
|-
| Turtle's Shell || Burnt || Oak ||
|-
| Umber Basil || Smokey || Moss ||
|-
| Upright Ochoa || Antiseptic || Stewed Vegetables ||
|-
| Vanilla Tea Tree || || ||
|-
| Verdant Squill || Mellow || Sulfur || Verified
|-
| Verdant Two-Lobe || Dry || Camel Dung ||
|-
| Wasabi || Harsh || Pepper || Verified
|-
| Weeping Patala || Toasty || Oak ||
|-
| White Pepper Plant || Mellow || Minerals ||
|-
| Whitebelly || Hot || Berries || Verified
|-
| Wild Garlic || Woody || Cedar ||
|-
| Wild Lettuce || Burnt || Chocolate || Verified
|-
| Wild Onion || Burnt || Minerals || Verified
|-
| Wild Yam || Spicy || Leather || Verified
|-
| Wood Sage || Mellow || Sulfur || Verified
|-
| Xanat || Woody || Oak ||
|-
| Xanosi || Burnt || Sulfur || Verified
|-
| Yava || Sweet || Dried Apples ||
|-
| Yellow Gentian || Woody || Pepper ||
|-
|Yellow Tristeria || Woody || Dried Cherries ||
|-
|Yigory || Mellow || Pine || Verified
|-
|Zanthoxylum || Spicy || Roasted Onions ||
|}

Who Got Speed

2009-09-07T00:11:33Z

Kinslayer: /* Current Month */

[[Test of the Singing Cicada | < Test of the Singing Cicada]]

Reminder: Speed is awarded once per Teppyday. It is normal that some days are skipped as a result. 

:Q: what does the (x + n) mean after the name?? [[User:Shuofthefieryheat|ShuoftheFieryHeat]]
:A: x = the number of speed points the player has and n = the number of times the player has been in the top 21 since they last recevied there last speed point. Check out the [[Test_of_the_Singing_Cicada#Speed_Points | Singing Cicada Test]] page.
:A: OK here's what happens: Once you get the past the base-score you will continue to gain cicada points. When the pass happens your points are deducted but no speed increase is given until you bump up to the next tier. So to go from speed 9 to speed 10 you need 4 bumps. To go from 10 to 11 you need 8 bumps. There is no indication on the status menu how many bumps you have just the last time you got bumped up. [[User:Shuofthefieryheat|ShuoftheFieryHeat]] 14:51, 13 August 2009 (EST)

= Current Month =
{| border="1" cellpadding="5"
! Date !! Point Cost !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed)
|-
||2009-09-01 || 48734 || [[User:BlueGrass|BlueGrass]] (11+6) || TheMazeEcho (11+7) || lilinou (11+9)|| Salrilk (2) || Soret (4) || Iy-Nefer (9+3)||
|-
||2009-09-02 || 47834 || [[User:BlueGrass|BlueGrass]] (11+7) || lilinou (11+10) || Naia (4) || Soret (5) || || ||
|-
||2009-09-03 || 47530 || [[User:BlueGrass|BlueGrass]] (11+8) || TheMazeEcho (11+8) || Soret (6) || Seiun (1) || jazkar (2) || Halana (9+3)||
|-
||2009-09-04 || 48365 || '''Ammut 7''' || TheMazeEcho (11+9) || [[User:Kinslayer|Kinslayer]] (1) || || || ||
|-
||2009-09-05 || 48256 || TheMazeEcho (11+10) || [[User:BlueGrass|BlueGrass]] (11+9) || [[User:Kinslayer|Kinslayer]] (2) || || || ||
|}

'''Bold''' names indicate a test pass.

'''Hint:''' Great for Prophet Test.

== Previous Months ==
[[Who_Got_Speed/January_09|January 2009]] 
[[Who_Got_Speed/February_09|February 2009]] 
[[Who_Got_Speed/March_09|March 2009]] 
[[Who_Got_Speed/April_09|April 2009]] 
[[Who_Got_Speed/May_09|May 2009]] 
[[Who_Got_Speed/June_09|June 2009]] 
[[Who_Got_Speed/July_09|July 2009]] 
[[Who_Got_Speed/August_09|August 2009]]

[[Image:cage_cost.jpg|100px|thumb|left|T2, 3 and 4 costs]]

Who Got Speed

2009-09-07T00:11:15Z

Kinslayer: /* Current Month */

[[Test of the Singing Cicada | < Test of the Singing Cicada]]

Reminder: Speed is awarded once per Teppyday. It is normal that some days are skipped as a result. 

:Q: what does the (x + n) mean after the name?? [[User:Shuofthefieryheat|ShuoftheFieryHeat]]
:A: x = the number of speed points the player has and n = the number of times the player has been in the top 21 since they last recevied there last speed point. Check out the [[Test_of_the_Singing_Cicada#Speed_Points | Singing Cicada Test]] page.
:A: OK here's what happens: Once you get the past the base-score you will continue to gain cicada points. When the pass happens your points are deducted but no speed increase is given until you bump up to the next tier. So to go from speed 9 to speed 10 you need 4 bumps. To go from 10 to 11 you need 8 bumps. There is no indication on the status menu how many bumps you have just the last time you got bumped up. [[User:Shuofthefieryheat|ShuoftheFieryHeat]] 14:51, 13 August 2009 (EST)

= Current Month =
{| border="1" cellpadding="5"
! Date !! Point Cost !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed)
|-
||2009-09-01 || 48734 || [[User:BlueGrass|BlueGrass]] (11+6) || TheMazeEcho (11+7) || lilinou (11+9)|| Salrilk (2) || Soret (4) || Iy-Nefer (9+3)||
|-
||2009-09-02 || 47834 || [[User:BlueGrass|BlueGrass]] (11+7) || lilinou (11+10) || Naia (4) || Soret (5) || || ||
|-
||2009-09-03 || 47530 || [[User:BlueGrass|BlueGrass]] (11+8) || TheMazeEcho (11+8) || Soret (6) || Seiun (1) || jazkar (2) || Halana (9+3)||
|-
||2009-09-04 || 48365 || '''Ammut 7''' || TheMazeEcho (11+9) || Kinslayer (1) || || || ||
|-
||2009-09-05 || 48256 || TheMazeEcho (11+10) || [[User:BlueGrass|BlueGrass]] (11+9) || [[User:Kinslayer|Kinslayer]] (2) || || || ||
|}

'''Bold''' names indicate a test pass.

'''Hint:''' Great for Prophet Test.

== Previous Months ==
[[Who_Got_Speed/January_09|January 2009]] 
[[Who_Got_Speed/February_09|February 2009]] 
[[Who_Got_Speed/March_09|March 2009]] 
[[Who_Got_Speed/April_09|April 2009]] 
[[Who_Got_Speed/May_09|May 2009]] 
[[Who_Got_Speed/June_09|June 2009]] 
[[Who_Got_Speed/July_09|July 2009]] 
[[Who_Got_Speed/August_09|August 2009]]

[[Image:cage_cost.jpg|100px|thumb|left|T2, 3 and 4 costs]]

Who Got Speed

2009-09-07T00:10:47Z

Kinslayer: /* Current Month */

[[Test of the Singing Cicada | < Test of the Singing Cicada]]

Reminder: Speed is awarded once per Teppyday. It is normal that some days are skipped as a result. 

:Q: what does the (x + n) mean after the name?? [[User:Shuofthefieryheat|ShuoftheFieryHeat]]
:A: x = the number of speed points the player has and n = the number of times the player has been in the top 21 since they last recevied there last speed point. Check out the [[Test_of_the_Singing_Cicada#Speed_Points | Singing Cicada Test]] page.
:A: OK here's what happens: Once you get the past the base-score you will continue to gain cicada points. When the pass happens your points are deducted but no speed increase is given until you bump up to the next tier. So to go from speed 9 to speed 10 you need 4 bumps. To go from 10 to 11 you need 8 bumps. There is no indication on the status menu how many bumps you have just the last time you got bumped up. [[User:Shuofthefieryheat|ShuoftheFieryHeat]] 14:51, 13 August 2009 (EST)

= Current Month =
{| border="1" cellpadding="5"
! Date !! Point Cost !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed)
|-
||2009-09-01 || 48734 || [[User:BlueGrass|BlueGrass]] (11+6) || TheMazeEcho (11+7) || lilinou (11+9)|| Salrilk (2) || Soret (4) || Iy-Nefer (9+3)||
|-
||2009-09-02 || 47834 || [[User:BlueGrass|BlueGrass]] (11+7) || lilinou (11+10) || Naia (4) || Soret (5) || || ||
|-
||2009-09-03 || 47530 || [[User:BlueGrass|BlueGrass]] (11+8) || TheMazeEcho (11+8) || Soret (6) || Seiun (1) || jazkar (2) || Halana (9+3)||
|-
||2009-09-04 || 48365 || '''Ammut 7''' || TheMazeEcho (11+9) || Kinslayer (1) || || || ||
|-
||2009-09-05 || 48256 || TheMazeEcho (11+10) || [[User:BlueGrass|BlueGrass]] (11+9) || [[User:Kinslayer]] (2) || || || ||
|}

'''Bold''' names indicate a test pass.

'''Hint:''' Great for Prophet Test.

== Previous Months ==
[[Who_Got_Speed/January_09|January 2009]] 
[[Who_Got_Speed/February_09|February 2009]] 
[[Who_Got_Speed/March_09|March 2009]] 
[[Who_Got_Speed/April_09|April 2009]] 
[[Who_Got_Speed/May_09|May 2009]] 
[[Who_Got_Speed/June_09|June 2009]] 
[[Who_Got_Speed/July_09|July 2009]] 
[[Who_Got_Speed/August_09|August 2009]]

[[Image:cage_cost.jpg|100px|thumb|left|T2, 3 and 4 costs]]

Who Got Speed

2009-09-07T00:10:05Z

Kinslayer: /* Current Month */

[[Test of the Singing Cicada | < Test of the Singing Cicada]]

Reminder: Speed is awarded once per Teppyday. It is normal that some days are skipped as a result. 

:Q: what does the (x + n) mean after the name?? [[User:Shuofthefieryheat|ShuoftheFieryHeat]]
:A: x = the number of speed points the player has and n = the number of times the player has been in the top 21 since they last recevied there last speed point. Check out the [[Test_of_the_Singing_Cicada#Speed_Points | Singing Cicada Test]] page.
:A: OK here's what happens: Once you get the past the base-score you will continue to gain cicada points. When the pass happens your points are deducted but no speed increase is given until you bump up to the next tier. So to go from speed 9 to speed 10 you need 4 bumps. To go from 10 to 11 you need 8 bumps. There is no indication on the status menu how many bumps you have just the last time you got bumped up. [[User:Shuofthefieryheat|ShuoftheFieryHeat]] 14:51, 13 August 2009 (EST)

= Current Month =
{| border="1" cellpadding="5"
! Date !! Point Cost !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed)
|-
||2009-09-01 || 48734 || [[User:BlueGrass|BlueGrass]] (11+6) || TheMazeEcho (11+7) || lilinou (11+9)|| Salrilk (2) || Soret (4) || Iy-Nefer (9+3)||
|-
||2009-09-02 || 47834 || [[User:BlueGrass|BlueGrass]] (11+7) || lilinou (11+10) || Naia (4) || Soret (5) || || ||
|-
||2009-09-03 || 47530 || [[User:BlueGrass|BlueGrass]] (11+8) || TheMazeEcho (11+8) || Soret (6) || Seiun (1) || jazkar (2) || Halana (9+3)||
|-
||2009-09-04 || 48365 || '''Ammut 7''' || TheMazeEcho (11+9) || Kinslayer (1) || || || ||
|-
||2009-09-05 || 48256 || TheMazeEcho (11+10) || [[User:BlueGrass|BlueGrass]] (11+9) || Kinslayer(2) || || || ||
|}

'''Bold''' names indicate a test pass.

'''Hint:''' Great for Prophet Test.

== Previous Months ==
[[Who_Got_Speed/January_09|January 2009]] 
[[Who_Got_Speed/February_09|February 2009]] 
[[Who_Got_Speed/March_09|March 2009]] 
[[Who_Got_Speed/April_09|April 2009]] 
[[Who_Got_Speed/May_09|May 2009]] 
[[Who_Got_Speed/June_09|June 2009]] 
[[Who_Got_Speed/July_09|July 2009]] 
[[Who_Got_Speed/August_09|August 2009]]

[[Image:cage_cost.jpg|100px|thumb|left|T2, 3 and 4 costs]]

User:Kinslayer/Macros

2009-09-06T19:40:55Z

Kinslayer: User:Kinslayer/Macros moved to User:Kinslayer/MacrosNeedsFixing: broken scripts

#REDIRECT [[User:Kinslayer/MacrosNeedsFixing]]

User:Kinslayer/MacrosNeedsFixing

2009-09-06T19:40:55Z

Kinslayer: User:Kinslayer/Macros moved to User:Kinslayer/MacrosNeedsFixing: broken scripts

==Macros==
Some ACTool Macros are Resolution/Windows version dependent due to different mouse co-ordinates. Make sure if using Vista/Windows 7 that you make sure the window is maximised.
To download the macros directly, right click Download, and select Save As

===My Macros===

{| style="color:black;" cellpadding="5" cellspacing="0" border="1"
|+ Macros
! Type !! Name !! Function !! Features !! O/S !! Resolution !! Download
|-
| SCAR Divi
| Kin's Barrel Monkey
| Barrel Vice
| Fast, Almost not configuration needed
| Windows (All)
| Any
| [[Media:KinsBarrelMonkey.txt|Download]]|[[User:Kinslayer/Macros/KinsBarrelMonkey|View]]
|-
| Scar Divi
| Kin's Bored Maker
| Carpentry Shop
| Not yet Complete
| Windows (All)
| Any
|
|}

===Macros I have edited===
{| style="color:black;" cellpadding="5" cellspacing="0" border="1"
|+ Macros
! Type !! Name !! O/S !! Resolution !! Download
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows 7 (Vista too?)
| 1440x900 Window Maximised
| [[Media:Charcoal1440x900.mac|Download]]|[[User:Kinslayer/Macros/Charcoal1440x900|View]]
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows XP
| 1920x1200
| [[Download]]|[[User:Kinslayer/Macros/Charcoal1920x1200|View]]
|-
|}

User:Kinslayer/MacrosNeedsFixing

2009-09-06T00:18:27Z

Kinslayer: /* Macros */

User:Kinslayer/MacrosNeedsFixing

2009-09-06T00:11:06Z

Kinslayer: /* Macros */

==Macros==
Some ACTool Macros are Resolution/Windows version dependent due to different mouse co-ordinates. Make sure if using Vista/Windows 7 that you make sure the window is maximised.
To download the macros directly, right click Download, and select Save As

===My Macros===

{| style="color:black;" cellpadding="5" cellspacing="0" border="1"
|+ Macros
! Type !! Name !! Function !! O/S !! Resolution !! Download
|-
| SCAR Divi
| Kin's Barrel Monkey
| Barrel Vice
| Windows (All)
| Any
| [[Media:KinsBarrelMonkey.txt|Download]]|[[User:Kinslayer/Macros/KinsBarrelMonkey|View]]
|-
|}

===Macros I have edited===
{| style="color:black;" cellpadding="5" cellspacing="0" border="1"
|+ Macros
! Type !! Name !! O/S !! Resolution !! Download
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows 7 (Vista too?)
| 1440x900 Window Maximised
| [[Media:Charcoal1440x900.mac|Download]]|[[User:Kinslayer/Macros/Charcoal1440x900|View]]
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows XP
| 1920x1200
| [[Download]]|[[User:Kinslayer/Macros/Charcoal1920x1200|View]]
|-
|}

User:Kinslayer/MacrosNeedsFixing

2009-09-06T00:10:15Z

Kinslayer: /* Macros */

==Macros==
Some ACTool Macros are Resolution/Windows version dependent due to different mouse co-ordinates. Make sure if using Vista/Windows 7 that you make sure the window is maximised.
To download the macros directly, right click Download, and select Save As

===My Macros===

{| style="color:black;" cellpadding="5" cellspacing="0" border="1"
|+ Macros
! Type !! Name !! O/S !! Resolution !! Download
|-
| SCAR Divi
| Kin's Barrel Monkey
| Windows (All)
| Any
| [[Media:KinsBarrelMonkey.txt|Download]]|[[User:Kinslayer/Macros/KinsBarrelMonkey|View]]
|-
|}

===Macros I have edited===
{| style="color:black;" cellpadding="5" cellspacing="0" border="1"
|+ Macros
! Type !! Name !! O/S !! Resolution !! Download
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows 7 (Vista too?)
| 1440x900 Window Maximised
| [[Media:Charcoal1440x900.mac|Download]]|[[User:Kinslayer/Macros/Charcoal1440x900|View]]
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows XP
| 1920x1200
| [[Download]]|[[User:Kinslayer/Macros/Charcoal1920x1200|View]]
|-
|}

Who Got Speed

2009-09-05T20:44:01Z

Kinslayer: /* Current Month */

[[Test of the Singing Cicada | < Test of the Singing Cicada]]

Reminder: Speed is awarded once per Teppyday. It is normal that some days are skipped as a result. 

:Q: what does the (x + n) mean after the name?? [[User:Shuofthefieryheat|ShuoftheFieryHeat]]
:A: x = the number of speed points the player has and n = the number of times the player has been in the top 21 since they last recevied there last speed point. Check out the [[Test_of_the_Singing_Cicada#Speed_Points | Singing Cicada Test]] page.
:A: OK here's what happens: Once you get the past the base-score you will continue to gain cicada points. When the pass happens your points are deducted but no speed increase is given until you bump up to the next tier. So to go from speed 9 to speed 10 you need 4 bumps. To go from 10 to 11 you need 8 bumps. There is no indication on the status menu how many bumps you have just the last time you got bumped up. [[User:Shuofthefieryheat|ShuoftheFieryHeat]] 14:51, 13 August 2009 (EST)

= Current Month =
{| border="1" cellpadding="5"
! Date !! Point Cost !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed)
|-
||2009-09-01 || 48734 || [[User:BlueGrass|BlueGrass]] (11+6) || TheMazeEcho (11+7) || lilinou (11+9)|| Salrilk (2) || Soret (4) || Iy-Nefer (9+3)||
|-
||2009-09-02 || 47834 || [[User:BlueGrass|BlueGrass]] (11+7) || lilinou (11+10) || Naia (4) || Soret (5) || || ||
|-
||2009-09-03 || 47530 || [[User:BlueGrass|BlueGrass]] (11+8) || TheMazeEcho (11+8) || Soret (6) || Seiun (1) || jazkar (2) || Halana (9+3)||
|-
||2009-09-04 || 48365 || '''Ammut 7''' || TheMazeEcho (11+9) || Kinslayer (1) || || || ||
|}

'''Bold''' names indicate a test pass.

'''Hint:''' Great for Prophet Test.

== Previous Months ==
[[Who_Got_Speed/January_09|January 2009]] 
[[Who_Got_Speed/February_09|February 2009]] 
[[Who_Got_Speed/March_09|March 2009]] 
[[Who_Got_Speed/April_09|April 2009]] 
[[Who_Got_Speed/May_09|May 2009]] 
[[Who_Got_Speed/June_09|June 2009]] 
[[Who_Got_Speed/July_09|July 2009]] 
[[Who_Got_Speed/August_09|August 2009]]

[[Image:cage_cost.jpg|100px|thumb|left|T2, 3 and 4 costs]]

Who Got Speed

2009-09-05T20:36:24Z

Kinslayer: /* Current Month */

[[Test of the Singing Cicada | < Test of the Singing Cicada]]

Reminder: Speed is awarded once per Teppyday. It is normal that some days are skipped as a result. 

:Q: what does the (x + n) mean after the name?? [[User:Shuofthefieryheat|ShuoftheFieryHeat]]
:A: x = the number of speed points the player has and n = the number of times the player has been in the top 21 since they last recevied there last speed point. Check out the [[Test_of_the_Singing_Cicada#Speed_Points | Singing Cicada Test]] page.
:A: OK here's what happens: Once you get the past the base-score you will continue to gain cicada points. When the pass happens your points are deducted but no speed increase is given until you bump up to the next tier. So to go from speed 9 to speed 10 you need 4 bumps. To go from 10 to 11 you need 8 bumps. There is no indication on the status menu how many bumps you have just the last time you got bumped up. [[User:Shuofthefieryheat|ShuoftheFieryHeat]] 14:51, 13 August 2009 (EST)

= Current Month =
{| border="1" cellpadding="5"
! Date !! Point Cost !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed) !! Person (Speed)
|-
||2009-09-01 || 48734 || [[User:BlueGrass|BlueGrass]] (11+6) || TheMazeEcho (11+7) || lilinou (11+9)|| Salrilk (2) || Soret (4) || Iy-Nefer (9+3)||
|-
||2009-09-02 || 47834 || [[User:BlueGrass|BlueGrass]] (11+7) || lilinou (11+10) || Naia (4) || Soret (5) || || ||
|-
||2009-09-03 || 47530 || [[User:BlueGrass|BlueGrass]] (11+8) || TheMazeEcho (11+8) || Soret (6) || Seiun (1) || jazkar (2) || Halana (9+3)||
|-
||2009-09-05 || 48365 || '''Ammut 7''' || TheMazeEcho (11+9) || Kinslayer (1) || || || ||
|}

'''Bold''' names indicate a test pass.

'''Hint:''' Great for Prophet Test.

== Previous Months ==
[[Who_Got_Speed/January_09|January 2009]] 
[[Who_Got_Speed/February_09|February 2009]] 
[[Who_Got_Speed/March_09|March 2009]] 
[[Who_Got_Speed/April_09|April 2009]] 
[[Who_Got_Speed/May_09|May 2009]] 
[[Who_Got_Speed/June_09|June 2009]] 
[[Who_Got_Speed/July_09|July 2009]] 
[[Who_Got_Speed/August_09|August 2009]]

[[Image:cage_cost.jpg|100px|thumb|left|T2, 3 and 4 costs]]

Macros

2009-09-04T21:06:41Z

Kinslayer:

==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.
===[[User:Kinslayer/Macros|Kinslayer's Macros]]===
*Barrel Vice Macro
*Modified Galagah/Anki cc Hearth macros for various resolutions.

===Bourbon's Macros===
:[[User:Bourbon/Macros/thermo|Thermometers]]

===Corran's Macros===
:[[User:Corrans/macros|Corrans AC Tool Macros]]

===eNTi's Macros===
:[[ENTi/Linux macros (xautomation)]]

===Galagah's Macros===
:[[User:Galagah| ACTool Macro - Grass]]
:[[User:Galagah| ACTool - CC hearth Macro ( Anka's from T3 set to now work on 1680x1050 resolution )]]

===Iggy's Macros===
:[[Macros/Iggys|Iggy's AutoHotKey Macros]]
::[[Macros/Iggys/Gather|Clay, Grass & Slate Macro]]
::[[Macros/Iggys/Flax|Flax Macro]]
::[[Macros/Iggys/Misc/Clicker|Clicking Macro]]

===Lucasdo's Macros===
:[[Macro/Lucasdo/Slate|Slate Macro]]
:[[Macro/Lucasdo/Flax|Flax Macro]]
:[[Macro/Lucasdo/Grass|Grass Macro]]
:[[Macro/Lucasdo/Timer|Timer Click]]

===Mosaic Guilds' Macros===
::Uses AC Tool
:[[Aluminum_Macro|Aluminum Macro]]
:[[Copper_macroOE|Copper Macro]]
:[[Iron_macro|Iron Macro]]
:[[Lead_Macro|Lead Macro]]
:[[Silver_Macro|Silver Macro]]
:[[Tin_macro|Tin Macro]]
:[[Titanium Macro]]
:[[Zinc_macro|Zinc Macro]]

::Uses AHK
:[[AHKAluminum|Aluminum Macro]]
:[[Antimony_macro| Antimony Macro]]
:[[AHKCopper|Copper Macro]]
:[[AHKIron|Iron Macro]]
:[[AHKSilver|Silver Macro]]
:[[AHKTin|Tin Macro]]
:[[AHKTungsten|Tungsten Macro]]
:[[AHKZinc|Zinc Macro]]

===Oni's Macros (ACTool)===
*[[User:Oni| "Macroing for Dummies" guide using ACTool]]
*[[User:Oni| Carpentry Blade Macro]] NOW with 1024x768 Version!
*[[User:Oni| Onion Macro]]
*[[User:Oni| Anka's CC Hearth Macro (does up to 8, 1024x768 - From T3 but works fine in T4).]]

===Pazifist's Macros===
:[[User:Pazifist\Macro|Charcoal Hearth Macro]]

===Rogarian's Macros (Windows Executables)===
:[http://nemesis2.qx.net/pages/ATITD R-Cubed and O'-Niner Miner (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.
* O'-Niner Miner will assist or automatically work all mine types.
** "It's stupdenous!" ~Traak

===Selune's Macros===
:[[User:Selune/Macros|Selune's Mining & Flax Macros]]

===ShuoftheFieryHeat's Macros===

: [http://www.atitd.org/wiki/tale4/User:Shuofthefieryheat/MyUtilitiesPage/Shu_Enhanced_Clicker Shu Enhanced Clicker Macro]
: This macro clicks a location and monitors for Red and Green Status. It has a Counter with Count Update and Click Delay setting.

: [http://www.atitd.org/wiki/tale4/User:Shuofthefieryheat/MyUtilitiesPage/Shu_Repeat_Clicker Shu Repeat Clicker Macro]
: This macro clicks a location and has a Click Delay setting

===Sithid's Macros===
:[[User:Sithid/Macros/AutoIT| Sithid's AutoIT Macros]]

=== [[user:Eldrad | Eldrad]] (Java) ===
:A [[user:Eldrad/Macros|Mining macro]] which works on any operating system.

===Viscis' ACTools Macros===
:[[User:Viscis#Flint|Flint]]
:[[User:Viscis#Grass|Grass]]
:[[User:Viscis#Wood|Wood]]
:[[User:Viscis#Limestone|Limestone]]
:[[User:Viscis#Flax|Flax (Plating/Seeding/Harvesting)]]

===Macros from Adn Residents===
:[[User:Gemstar#Barley|Barley from Bellamoon]]
:[[User:Gemstar#IconGather|Icon Gather for Grass, Clay, Slate]]

=== [[user:kibble|kibble's]] (ACTools) ===
{{:user:kibble/Macros}}

=== [[user:docsaintly|Doc's]] (AutoHotKey) ===

=== Menhotep's Macros (ACTool) ===
:[[user:Menhotep/macros|Any # of Woodplanes 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
|}
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

I love actool because it's the best out of all of them. - Soak

Actool does not seem to work on vista 32 bit - goes mad... - daninicholls

ACTool works fine on vista 64 bit on my machine - could be our different setups - [[User:AnarchyRising|AnarchyRising]] 07:05, 14 January 2009 (EST)

Im having trouble as well with ACtool on Vista 32bit - LOKY

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.--[[User:Kinslayer|Kinslayer]] 08:32, 29 August 2009 (EST)

User:Kinslayer/Macros/Charcoal1920x1200

2009-09-04T21:01:11Z

Kinslayer: New page: Anka/Galagah's Charcoal Hearth Macro for 1920x1440 Resolutions <pre> //Charcoal Hearth // this is Anka's CC hearth Macro from T3 // I've re-adjusted this macro to run in ...

Anka/Galagah's Charcoal Hearth Macro for 1920x1440 Resolutions

<pre>
//Charcoal Hearth
// 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)
//
// Setup: I've added a setup routine to the macro. Pin the windows on top of each
// other in the top left corner. I suggest at least 200 wood per hearth
// and about 15 water per hearth to be safe. All hearths are slightly
// different but I suggest that you put your fastest burning hearths first
// in line. You can tweak the settings in the built in menu.
//
// Hearths: Total number of hearths you are running.
// Hearths Across: How many Hearths on the top row of windows. Make sure
// you set this each time even if you are running 1 hearth.
// Variables in the macro are set off of this number.
// Guilded?: Check this box if you are using guilded hearths.
// Need Setup?: Check this box if you need the macro to position your
// windows that are stacked in top left corner. This is
// usefull if you run another round on the hearths and your
// windows are set up already. Check if needed or not.
// Stealth Mouse: Check this if you don't want to see the mouse move around
// on the hearth windows. When checked, it will save your
// mouse position, move to the spot it needs, perform its
// action then return the pointer to where it started. Alows
// you to change chat windows are dig in chest while the
// macro is running :)
// Heat: Threshold for Heat bar, increase or decrease as needed. If heat
// reaches this lvl, water will be added.
// Wood: Wood threshold, adds wood up to this point.
// Water: Alowable water level, not much play here. If the water lvl is above
// this lvl, water will not be added. Prevents drowning the hearth.
// RGBGreen: Used to detect completion bar. If the macro adds a bunch of water
// before the macro is done then moves to the next hearth, increase
// this number. Or lower it if it doesnt see green.
// RGBBlue: Works just like RGBGreen but for blue bars. If the macro keeps
// adding wood till the hearth is full, it's not seeing blue. If
// this happens, lower this number. Other problem may be that the
// mouse pointer is not lining up over the bar correctly. Run the
// Mouse Test.
// Check Bars Interval: This is the pause time between bar checks. The
// default value of 4000 works well for 1-8 hearths
// but you may need to decrease this number if you
// are running more than 8.
// Mouse Test: This is to test if the mouse pointer is lining up correctly
// with your windows. Run 1 hearth manually and start the macro
// with this option checked. You don't need to worry about any
// other option. It will move over the Heat, Wood, Water, Danger,
// and Status bar then over the Wood and Water buttons 10 times
// before it stops. If these positions are off a bit, you can
// change the Y coordinates below in the constants section.
//
// The macro doesn't watch Oxygen. I was going to add a vent option but this
// macro runs very well and never fails for me. If your oxygen is getting too
// high, try adding more wood. But, by adding more wood, you add more heat
// which may require you adding more water. A small amount of water in the
// presence of heat evaporates producing more Oxygen. :) Find the balance
// you want.
//
// ENJOY! :)
// Anka
//
Constants
//User Definable variables
Hearths = 4
HeatX = 165
WoodX = 107
WaterX = 76
DangerX = 165
RGBBlue = 220
RGBGreen = 240
Guild = 1

// Y Coordinates - Don't change unless you are having a problem.
RegY = 75 // Y coord for Regulator button
BeginY = 243 // Y coord for Begin Button
HeatY = 155 // Y coord for Heat Bar
WoodY = 178 // Y coord for Wood Bar
WaterY = 193 // Y coord for Water Bar
DangerY = 204 // Y coord for Danger Bar
StatusY = 217 // Y coord for Status Bar
WoodBY = 245 // Y coord for Wood and Water buttons
//End User variables

Hrow = 0
Hrow1 = 0
AddX = 226
Add2X = 15
Add1Y = 65
Add2Y = 17
Add3Y = 250
RegX = 47
BeginX = 111
NewX = 0
New2X = 0
New2Y = 0
NewY = 0
Heat = 0
Wood = 0
Water = 0
Danger = 0
Status = 0
OxyY = 168
StatusX = 167
WoodBX = 35
WaterBX = 85
Num = 0
Jump = 5
JumpM = 0
Jumped = 0
Used = 0
MDelay = 250
SDelay = 200
S1Delay = 100
Count = 0
CountM = 0
MouseX = 0
MouseY = 0
CheckDelay = 0
Setup = 0
SetX = 10
SetY = 40
SetAddX = 227
SetAddY = 250
SetLoop = 0
Mouse = 1
OrigX = 0
OrigY = 0
End

Form ccHearth, Settings
ed1=Combobox:Hearths:1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
ed13=Editbox:Hearths Across:4
ed2=CheckBox:Guilded?:True
ed14=Checkbox:Need Setup?:True
ed15=Checkbox:Stealth Mouse:True
ed3=Editbox:Heat (75-188):165
//ed10=Editbox:HeatMin (75-188):116
//ed11=Editbox:HeatMax (75-188):184
//ed4=Editbox:Low Oxy (75-188):82
//ed5=Editbox:High Oxy (75-188):134
ed6=Editbox:Wood (75-188):107
ed7=Editbox:Water (75-188):76
ed8=Editbox:RGBGreen:240
ed9=Editbox:RGBBlue:220
ed12=Editbox:Check Bars Interval (miliseconds):4000
ed16=Checkbox:Mouse Check:False
end

FormLoad ccHearth, ccHearth.frm

if ShowForm ccHearth
SetConst Hearths = ccHearth[ed1]
If ccHearth[ed2] = True
SetConst Guild = 1
Else
SetConst Guild = 0
End
SetConst HeatX = ccHearth[ed3]
//SetConst Oxy1X = ccHearth[ed4]
//SetConst Oxy2X = ccHearth[ed5]
SetConst WoodX = ccHearth[ed6]
SetConst WaterX = ccHearth[ed7]
SetConst RGBGreen = ccHearth[ed8]
SetConst RGBBlue = ccHearth[ed9]
//SetConst HeatMin = ccHearth[ed10]
//SetConst HeatMax = ccHearth[ed11]
SetConst CheckDelay = ccHearth[ed12]
Set HRow = ccHearth[ed13]
Compute SetLoop = $Hearths - 1
Compute HRow1 = $Hrow + 1
If ccHearth[ed15] = True
Set Mouse = 0
End
else
Stop
end

FormSave ccHearth, ccHearth.frm

MousePos 100, 20 //Activates eGenesis window.. Don't run ACTool maximized.
Delay $MDelay
LeftClick
Delay 2000

If $Guild = 1
Call Guild
End
if ccHearth[ed16] = True
Call HearthTest
End
If ccHearth[ed14] = True
Call Setup
End

Call SetReg
SetConst NewX = $BeginX
SetConst NewY = $BeginY
SetConst Count = 1
Loop $Hearths
If $Count = $HRow1 //$Jump
SetConst NewX = $BeginX
Compute NewY = $BeginY + $Add3Y
End
MousePos $NewX, $NewY
Delay $MDelay
Rightclick
Delay $MDelay
Compute NewX = $NewX + $AddX
Compute Count = $Count + 1
End
SetConst NewX = $BeginX //Dont remember why this is here :)
Call Main

Procedure Setup
Set NewX = $SetX
Set NewY = $SetY
Loop $SetLoop
Mousepos $SetX, $SetY
if {loopno} = $HRow
Set NewX = $SetX
Compute NewY = $SetY + $SetAddY
else
Compute NewX = $NewX + $SetAddX
End
Dragto $NewX, $NewY
End
End

Procedure Main
SetConst CountM = 1
SetConst Status = 0
Compute JumpM = $HRow1 - 1 //$Jump - 1
Loop $Hearths
If $CountM = $HRow1 //$Jump
// may have to use New Newx and newy variables in Main
SetConst NewX = $StatusX
Compute NewY = $StatusY + $Add3Y
SetConst New2X = $WaterBX
Compute New2Y = $WoodBY + $Add3Y
End

While $Status = 0
Call CheckBars
If $Status = 1
Call Snuff
//code to advance to next hearth
Compute Used = $Used + 1
If $Used = $JumpM
Compute HeatX = $HeatX - (($Used - 1) * $AddX)
Compute HeatY = $HeatY + $Add3Y
Compute WoodX = $WoodX - (($Used - 1) * $AddX)
Compute WoodY = $WoodY + $Add3Y
Compute WaterX = $WaterX - (($Used - 1) * $AddX)
Compute WaterY = $WaterY + $Add3Y
Compute DangerX = $DangerX - (($Used - 1) * $AddX)
Compute DangerY = $DangerY + $Add3Y
Compute StatusX = $StatusX - (($Used - 1) * $AddX)
Compute StatusY = $StatusY + $Add3Y
//Compute WaterBX = $WaterBX - (($Used -1) * $AddX)
//Compute WoodBX = $WoodBX - (($Used - 1 ) * $AddX)
//Compute WoodBY = $WoodBY + $Add3Y
SetConst Jumped = 1
Continue
Else
Compute HeatX = $HeatX + $AddX
Compute WoodX = $WoodX + $AddX
Compute WaterX = $WaterX + $AddX
Compute DangerX = $DangerX + $AddX
Compute StatusX = $StatusX + $AddX
//Compute WaterBX = $WaterBX + $AddX
//Compute WoodBX = $WoodBX + $AddX
End
Continue
End
If $Heat = 0 and $Danger = 0 and $Wood = 0
Call Wood
Else
If $Heat = 1 or $Danger = 1
If $Water = 0
Call Water
End
End
End

Delay $CheckDelay
End
Compute CountM = $CountM + 1
SetConst Status = 0
End
End

Procedure CheckBars
If $Mouse = 1
MousePos $HeatX, $HeatY
Delay $SDelay
end
LoadRGB $HeatX, $HeatY
if {RGBBlue} > $RGBBlue
SetConst Heat = 1
Else
SetConst Heat = 0
End
If $Mouse = 1
MousePos $WoodX, $WoodY
Delay $S1Delay
end
LoadRGB $WoodX, $WoodY
if {RGBBlue} > $RGBBlue
SetConst Wood = 1
Else
SetConst Wood = 0
End
If $Mouse = 1
MousePos $WaterX, $WaterY
Delay $S1Delay
End
LoadRGB $WaterX, $WaterY
if {RGBBlue} > $RGBBlue
SetConst Water = 1
Else
SetConst Water = 0
End
If $Mouse = 1
MousePos $DangerX, $DangerY
Delay $S1Delay
End
LoadRGB $DangerX, $DangerY
if {RGBBlue} > $RGBBlue
SetConst Danger = 1
Else
SetConst Danger = 0
End
If $Mouse = 1
MousePos $StatusX, $StatusY
End
LoadRGB $StatusX, $StatusY
if {RGBGreen} > $RGBGreen
SetConst Status = 1
Else
SetConst Status = 0
End
End

Procedure Water
SetConst NewX = $WaterBX
SetConst NewY = $WoodBY
Loop $Hearths
IF {loopno} = $HRow1 //$Jump
SetConst NewX = $WaterBX
Compute NewY = $WoodBY + $Add3Y
End
If {loopno} > $Used
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $NewX, $NewY
Delay $SDelay
Rightclick
Delay $SDelay
If $Mouse = 0
Mousepos $OrigX, $OrigY
End
End
Compute NewX = $NewX + $AddX
End
SetConst NewX = $WaterBX
End

Procedure Snuff
SetConst New2X = $WaterBX
SetConst New2Y = $WoodBY
Compute Num = $Used + 1
Loop $Hearths
IF {loopno} = $Hrow1 //$Jump
SetConst New2X = $WaterBX
Compute New2Y = $WoodBY + $Add3Y
End
If {loopno} = $Num
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $New2X, $New2Y
Loop 8
Rightclick
End
If $Mouse = 0
Mousepos $OrigX, $OrigY
End
End
Compute New2X = $New2X + $AddX
End
End

Procedure Wood
SetConst NewX = $WoodBX
SetConst NewY = $WoodBY
Loop $Hearths
IF {loopno} = $HRow1 //$Jump
SetConst NewX = $WoodBX
Compute NewY = $WoodBY + $Add3Y
End
If {loopno} > $Used
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $NewX, $NewY
Delay $SDelay
Rightclick
Delay $SDelay
If $Mouse = 0
MousePos $OrigX, $OrigY
End
End
Compute NewX = $NewX + $AddX
End
SetConst NewX = $WoodBX
End

Procedure SetReg
SetConst NewX = $RegX
SetConst Count = 1
Loop $Hearths
If $Count = $HRow1
SetConst NewX = $RegX
Compute RegY = $RegY + $Add3Y
End
MousePos $NewX, $RegY
Delay $MDelay
Rightclick
Compute NewX = $NewX + $Add2X
If $Count > $HRow
Compute NewY = $RegY + $Add2Y
else
Compute NewY = $RegY + $Add1Y
end
MousePos $NewX, $NewY
Delay $MDelay
Rightclick
Delay $MDelay
Compute NewX = $NewX + $AddX
Compute Count = $Count + 1
End
SetConst NewX = $RegX
SetConst Count = 1
End

Procedure Guild
Compute BeginX = $BeginX - 7
Compute BeginY = $BeginY + 16
Compute RegY = $RegY + 16
Compute RegX = $RegX - 14
Compute AddX = $AddX - 15
Compute Add3Y = $Add3Y + 16
Compute Add1Y = $Add1Y - 16
Compute WoodBY = $WoodBY + 16
Compute HeatX = $HeatX - 4
Compute HeatY = $HeatY + 16
Compute WoodX = $WoodX - 1
Compute WoodY = $WoodY + 16
Compute WaterY = $WaterY + 16
Compute DangerX = $DangerX - 4
Compute DangerY = $DangerY + 16
Compute StatusX = $StatusX - 5
Compute StatusY = $StatusY + 16
Set SetAddX = 212
Set SetAddY = 266
End

Procedure HearthTest
Loop 10
MousePos $HeatX, $HeatY
Delay 2000

MousePos $WoodX, $WoodY
Delay 2000

MousePos $WaterX, $WaterY
Delay 2000

MousePos $DangerX, $DangerY
Delay 2000

MousePos $StatusX, $StatusY
Delay 2000

MousePos $WoodBX, $WoodBY
Delay 2000

MousePos $WaterBX, $WoodBY
Delay 2000
end
Stop
End
//Written with ACTool 5.3.0 by Anka
Bell Asterisk
</pre>

User:Kinslayer/Macros/KinsBarrelMonkey

2009-09-04T08:26:38Z

Kinslayer:

This is my Barrel Vice macro for [http://freddy1990.com/scar.php SCAR Divi]. If you like this macro, or have any problems, let me know! I love feedback.

TODO:
*Seriously clean up the code
*Add a GUI for options/debug/info
*Add support for multiple barrel vices running at once.

<pre>
{.Script Info:
# ScriptName = Kin's Barrel Monkey
# Author = Kinslayer
# Description = Barrel Vice Macro
# Version = 0.1
# Date = 9/4/2009
# Comments = kurisui@gmail.com
# Ingame: Kinslayer
# Newest version available at http://www.atitd.org/wiki/tale4/User:Kinslayer/Macros
# Instruction = Pin Barrel vice window anywhere, have all materials you need on you.
# If barrel has been started already, only wood is needed, otherwise
make sure you have straps and boards as well. Try to have 100+ wood
at all times.
/Script Info}

program BarrelMonkey;
//---------
//Settings
//---------
Const
//Amount of time in milleseconds to wait before rescanning
//If in doubt, leave this alone.
CheckTime = 200;
//This will track the Barrel vice window, so you can move it around
//But it uses extra CPU
//false = off (Default)
//True = on
UseActiveScan = False;
//This tells the script whether to add a bundle at once when starting,
//to decrease the amount used overall. You can disable this if you
//Already have fuel in the barrel vice when starting the script
//(Eg. You had to restart the script) Otherwise, leave this on.
UseFastlane = True;
//At what flame height 2 wood will not be added.
MaxFlameHeight = 90;

var
Fuel: Integer;
Fuelx: Integer;
Fuely: Integer;

Flame: Integer;
Flamex: Integer;
Flamey:Integer;

Heat: Integer;
Heatx: Integer;
Heaty:Integer;

Progress: Integer;
Progressx: Integer;
Progressy:Integer;

Stoke: Integer;
Stokex: Integer;
Stokey:Integer;

Tick: Integer;
RedTick: Integer;

NoWood: Integer;

MakeBarrel: Integer;
MakeBarrelx: Integer;
MakeBarrely: Integer;

Ticks: Integer;

Stop: Boolean;

i: Integer;

LastAction: String;

SaveX: Integer;
SaveY: Integer;

AlmostDone: Boolean;

WoodUsed: Integer;

procedure LoadMasks;
begin
Fuel := BitmapFromString(24, 9, 'beNpdUUty00AQ9XEgsCMklI8B4' +
'RAhqwSKHRU2UBwhqVCxPpY8kiJbSYBDkFilz8zIssuSNfqMZVucgR' +
'45K09NTfXn9evuN53OzuFEX0VmGer1xEoeegtXLbBRYlQEehlq6Vh' +
'JHqWKoNzXODUBnwfa7G9vMVbBBkBNLWBgvlpTtJqYYK9ndvrYy1wF' +
'kGXYr7DGico8OR1fl0TLfXVJkajFeupK4ILNPCi3AAw863gEkTqy/' +
'qX3qauwYABuRUzo3n29d3r87vDVsxvpaw4TEqNNWTk2t7vknrSOjC' +
'KQC1/mpC+yWGuSEczD2kZFoJ19eDuUz6GvfvH5zf7zzFczX9nulbW' +
'YnbPEIsux3MyNbHyV+5KgDcVbU5W5V+nDpSj3r8s2yLyfCwGTRbsQ' +
'lVhjngTyruKbVrF+k9xlrlxRC9z1zNlpV1F7GdmCBxsFscAVVQRVV' +
'M99Bf5lM78X81CrWfwGfj4ZCp42uJqO6tjOCaqnt8BftjqzcAB21W' +
'oFGoL44kfoYDMfdg/2htKXJnFAjY8nR4Ihtj6dvB8p55zqLFC7By8' +
'4RTxC7WAwA3rSJHKAClbjkV3Hzq3+DZDblKN/h3eT/GrSP93Dl9vg' +
'HfpRTx24TwtOnM5/X2hroA==');

Flame := BitmapFromString(33, 9, 'beNplkuuK00AUx/s4ovvNS3Ef' +
'QhDW9fIGWkHcVUERFVF2P/gEgrht2jSZNJe2u7Lr+gpC2yQzuZg0S' +
'Zt7UvoInpnKfliHYfjz58w5c35zGo1LK8V8YYkgYqO3mHHRtJ0Y3a' +
'XeXs64DPdLW8wwXzpyOOFik88sofbVOhiVrpxhIYIYa1C6SukMEiy' +
'kZADZEtyDbPNJd2kKsBOMUiLmFgJzMesGEyjBJZiPjW5uS4Wj1L6W' +
'4H5uSdGES7GUElR5ShUMa3+YEyGadlIila5a+RoItkWoBdn+/O4uD' +
'DGm+WUa4yhgRno/xvJFd2r7Y25rIPZb9zaO0v6033qw0aP+YW4rC0' +
'O4ffPaq2ePtptb0tH7BEMv4iYgmvWg/YwImQVVUGlLFJQpxiaCvuD' +
'90rfX4FSOykrsFLYifH3D9P3KOz5GX0CXzuj5k12VO1iH5xp/2Lxx' +
'dWkOFjrf+G9BwvV8CCIjCCoCbUCRE4pu5dGmMqtf+wr8EYVpcKU7q' +
'HyFfSLHbgmVKxXskanZARNiQAczFJNhao0SDKDUdfgTzCVW5PbnF0' +
'8fXlSvwx9wFs649k/DCSWwwFo9P11Fv2jXevfSawt3nLuj2KJ4gyk' +
'X6TyQTLC0xGjlj2kJEzEUuxmwwqyL4ORfifA8mFInMtVqflrOz0An' +
'BhsSXciwlBE5mPZSouXeSWpTJuG0HekcHTnSB1ArBgrGBk756G2Ou' +
'Zetu6DXAfUrT4UN38dGokfnx2NgMdpr7SidD3AxMYXm9Svw3QV7Le' +
'uiBxMVGighcu7ABFI/tTSNP9gE7D2+Q0Exv/KPS28czRCDqRbeeB2' +
'ese40ILB9a2tzBX1/B8OZu3LjL8Xl8kc=');

Heat := BitmapFromString(26, 9, 'beNp1UduK1EAQzd/4oPgkXtbvE' +
'NQX/QAVkV1RHwR3QRf0F5TVcTLXTDLJJJMZXcFPWHV7kg6d+066O5' +
'0h8wdWJyoiWIRQdbrqVNUpRQErA6tO3SpxqtguVjogInK29KuI5iJ' +
'e0MDmgS2i5SY7FrFbZ5+rxD5DwzXqZd86kLxG4wIbhaczYkPI/YEI' +
'RgXqsFWXom7Dr9WFWxIDCplvUE8TsQU+IJvUFqGen3YZ1rMfMvkM9' +
'Qt/DN8ajSBk/ohjvUB9inoUfZT8WIfanSsXHj+8vXP5vPZhH0IRmc' +
'pv0zsHIpwqfxnDRuts0kWdH9fZUnYPJVhF7tPdu7PhmypxDfUV0ML' +
'K4FehXWcLc3Ao1SAT6hnNphonFgtmyn+MB7LvNl+K2K6SuUQIbOpw' +
'bNSp0w5ZkmmOhg0baDgB3WhDWHgmDCPITBBLNDwcm//wg9SG+nL33' +
's0/iAjnhS/Tsu9dUIljizZhibUq0DdEr6OpIEazheTcRCaEfDXIT9' +
'61suw9uAV3B2Xka7Jg2Go3pagPx2JYVrGVVuIJ88YV0bkn71L62t7' +
'9G6a6L4IJnObapXPwl+K/f17iETyBT1e9ogEHb5+tT9X05KidGdas' +
'008idLb5F+gokdCpk+X1qxfbhPHRCxDHHLxuwyeP7jRK2pw4hnr4S' +
'wpPU34CX4yHLg==');

Progress := BitmapFromString(47, 11, 'beNpVVGuT02QU5u8siHzZ' +
'hb34J3RUdHR0/MbIjCA7rHxAQWXRD46OnxgvAwvZpm2SNpduS7vl4' +
'sogIAvD9pLrNkmTtLlnuusf8HnTlcFM5p33nLx5zznPeZ6jVQ+98p' +
'w/86GnSJ7M211m2GVGcjXURLfHxuZGqIuBIaR2MzHr6bCROe09737' +
'qbIZaNbVuT5wWPmVuOx22E7OxHz7aj57sh4/3gofp8O7E+yMyW5m7' +
'lbn3cSC1626v5MkMfkzNxkgRcHk4qEdmEzmM1FpgSKnTXpo/ujB3x' +
'JPZ3eeUtVN0ZW6ssPZOwVe4QK2M+6WxzPoKGw9qkVlH0MQSR731UO' +
'Myu5YMqrFeiTU2VJlkIGZOfeK29vx2MsDNLZyfuHcyZzNzkFXL7eH' +
'Ocmo30mELaSR2K7aa0aCOZGLnz8DcnPiPM28LptevYHVkAWtg1EeK' +
'tHji6BS6xfljgSaiQJy8cO6TA+fcEazpkNSVmiLWzLkz8e6+sXDsw' +
'rmPFo+/JtHf+UqFX786PY+S3W6h/PvK1JyfOxwNxNAQp6av150+G+' +
'i10NiAOezQWKlrK0636PXLZ0+9xa19BXC8fomnriyffjtU2fOfvSf' +
'Qq6m9MZKL3NqXOJ8MeKwS/XWsc8mgdmH54zr30553Vyp+vzT/eqCT' +
'myUGnq169eexJsHkqW8y9x5HXd0LHqTD+9Nk0L5hpzBWK/OzM8un3' +
'3E7FJzqX784HQp4Yj+WS4HKen3aV0lEtCyPXsucBpIZyyT5xCRIhj' +
'Ll92+GCvHEejHRy7HGkBA94hHoK2hx5t52+yWYqCLSKoEuTLw7iXU' +
'bmL9K4LOfnvQ1yXqxnrepFlttgEbAd++RvbaReQ/yuKRM8HM/eBgo' +
'wpR4E4+UFhtiZIiT0dah/z8jmWXXLi3kDeWpS9az66VfVxZmZ2Cya' +
'xfBsXggjPLCI3PTU8TYarmQj1EzttfgtDtFMNmTy1MofJWDBCAoYu' +
'bO2KolZg37SOdzoEhdE7cJWUFNJNv06T/Z89Ru7422QqOJF8qSSj/' +
'ktOSIVAdNqfxjXgjadA8mSVsRdl8UfE1w+8xYLuvbN+Hcfb7u9sqo' +
'aPn0SZ5aDfC1x1QIZ96FnFfOfCCsX4VS+JuXpwSOdDZPqRrIxXjAf' +
'/H5+1LpSmbxgUwvzh12u9TZU29GegX0y5Mp4p6xXOHpVYK83YTc/u' +
'NMxe4WERflj2VGf3qdINMtQMhEy2pl8fiRA+bPzgQqE2osgi6eIM6' +
'FuRlu7SIBSsvhMrhILePrxJGWThz8JdGrGAhQzdQU6W9BxZdmlbqc' +
'mCIKJNrpMw7eHmnKWK6Cq8qj3/RtCqMmVxODToF10BoGDjwHGSpcq' +
'FRjg/dlmiNkOIwh4ytMavLJgMxGTLbYqGRDIVLpSKHHcsHZuYU1IF' +
'MIIBedbgH9xc2x2cCIi4w6ojuyNOxxu88KdqeE0PYO1XtwTXlyQ/3' +
'7xu4zCglYLyhkCMIY27ecXhl9dDoEtJfknJ9FF4qRXgW1MtSoshit' +
'mdWIdAFyC+RShMwJB1CCgMkG/jvdMmQSajxejCBwD7QP/wUHbL2a');

Stoke := BitmapFromString(29, 9, 'beNpVUttu00AQzd9QnL40V76' +
'jDagSrzSiNG3hEakoVQn0DwqNUpI2iXdr594HxBcQ23FkO77F8SUi' +
'fAhnbSrBarSamd2dOefM3nz09X4xn07FK595WimXljMaLfoIlzNiS' +
'21zeofMUiWO3IHvqdSV2jgNFzTUiK92YKFO1wsh0LpBEmqkmNt+d/' +
'QyNEaBMbj7el7IpoPYx0NH4l1FNKfUkXvuTLQlavwkjtJ3lR5rqvC' +
'uTDxV8LWeP+/7qhDp4lJGo17yfOM8hEYfkCxWR1jNe6l/liXRfIZ7' +
'pMN5qGCMGFpjEMRWyKX5m4tAHz7Lb1cOSsDJN2rFXBohaV6AnSN1b' +
'QmMepEh4KE97bgKrRzs3X754MrQ4b5Tr568fr6aU5yuzVFkjk4PX/' +
'i6COftm33h9jOwkSarGZnjk8P9BEwhwzWvzgBgbQ5jnAQiJIAdmXr' +
'zYWBMYvoEO21+oq3LaMEU27g/kPntffe1/toaMy66GMAM0deF43Ip' +
't7MVsu6sGpB7cwbblXlr+s1TeV9jYTLQQo7rNqrwkdxYD6n/F34CL' +
'FwMsAMeMoHOfFZNEbx5PDuZ2rEIq7gLKCcP+WaNtmq+Jkax2pgRHK' +
'BdW5NClmtfV0OdNT16tYsQThCXbderK20AbZtX723p3tMGyOAOkjE' +
'FAi6YV6dxjhanTNvLX+ZkbY4xtePyHko9DnoLTG2p5amkfX2WJN1p' +
'Pbfz5K/4WQ5zXOnJr2YfeKVRJKEGpMOkkmvkD12DojM=');
Tick := BitmapFromString(1, 12, 'beNqr/8fC3MTKepmN7S9WpK//t' +
'x4A46sNBg==');
RedTick := BitmapFromString(1, 11, 'beNqrr7/KyvKfjRUT/QMifb' +
'1/ANIFDIU=');
NoWood := BitmapFromString(46, 9, 'beNo9lNty2lYYhf0yre3cdYw' +
'TO+/QxuC4h+vOdGwg4xiwEy46vuor1HXBAqEDCHEY+6bvkNqMQNKW' +
'BEWAzkjgySN0STRlNJq9f0l7f/9aayNRW1tbS729NERXZdt3ZUxDv' +
'R2NxWjcDgiPKe6uwgR6e232PMKFhrDUW8+z/mf7YWX2A9JyVc4l7N' +
'JoRhMxINxSb7oqE2hNFOPVxqKjMFjcGjG2wvua4JLmatoPtNZBavc' +
'gtXORzbza2zE+VUr5k6vzH8NxNxp3C9ljfHv57odo0l9N7/GomDvx' +
'Ce8TIdA7a/PeI2DuATsad55nD6HR8dQWiq4CWnapibh7hEfRUVuWz' +
'MWN6KKjNj0izofsTGIdVcDU10Ts9f40PZeYhcSc/3KU//nbwtnRZf' +
'7YU5lQ40HYZ65LueNQFyKjXcq9LebeYl80fpja3Up+h/sv0E406a7' +
'M3uuXL/4rpnZcuRZovCNTxVx6U3x/erSR1FMYDGZPlPlYtUe0DwG1' +
'FioLqT4bULbcMB8rL7/5CnixQUYPImAXqBHfjU5kdFF3FQ79gl+4K' +
'wekCf5u/RpCraY9KHnP/2aNeFvmhOpVMZsGcCGbOdzfdWTakZkvJK' +
'wzrMX7Dqh/Pt24ckJCYjZLurUGVVTmAypJRRyG0OAf+OvC2ZtQZ0v' +
'5zNoUns2YMDKaQWK3TyAa5wyrnkJjup4246eTNvpyZcYe1ZOlhE3q' +
'7BFjJVfSC+uMaE/lFkMKF/SE3Zs3UbelO5BYUi1h5i7fwYX0ZT5jS' +
'dWAIGzsh/OTD+ffwyafQBMmsbu5mvUQRTBj+jxvxzyzrjWigYokJ+' +
'EUEjzBI6ybXAkYtzS4QEMeKtawutQaS0KHWrymM7y1h7e+WoM4CTP' +
'To3/FprgwDsdtHI2PFz+BBFI7iKLKJev3Prt/ebqIhMQMG8XGwlyq' +
'A8NLNkULuHuEQe+OQpuDSiImDQyPNGyZdgmDTwC8Njsb4/ByoPNuc' +
'kiBuhEcRsNfhAE+QqV4TYWxhnV7WC+cpTu1j+uJ4IyoXr0MEz25Ws' +
'q96dfLs79hfU2krkq5dOxsLt2hyvOnCr56tbe98T0ax/l0CedrGOM' +
'vQlhPRbhQzB65ch0hx6m5OP1u9njrydRB6mtXrs4ff1883VjSH4FS' +
'TUhqzugO0iEeB6ntL2dnF8fKh006/3p/Z1PEU9gKEsj+/5vcTSHWR' +
'EV3DQzmT38m7iOxjRBSEPZgbxsMpVwGR2/xL1zd4HU=');
MakeBarrel := BitmapFromString(80, 10, 'beNplVllzFNcV1p9xwD' +
'gvwYBF/oGrgsViO+VHVxkZBEJIgMoLReUheUleLEvMaPae3qZnkLA' +
'wIZWngEGaqVm60/v09LR7n02y/4O/242JUp7qunXudu79vvOdc2du' +
'LtKYQ7s+MflYZ0YGi26kM4FCu2LFESl8Vrsw6JSGPcqTaXM/Z7Urc' +
'3Nzgco5YtWTGU9mfYWDEShMpPGxIUQaNzaEWGNGOh/IaLmpKUQKA3' +
'vYKXkiFcpVdEca+ez2tt3KemLFl6hhpwDPmPV6WFbGIOwhTm9ue71' +
'KqDBej0o2crHKoYsW3eSs2qS/MzYfzfq7I6PhSexssHf049OfhnsY' +
'8WUGt0Ibqdzcr78j91+z4T8P3X9H5t50+Gz+7CkMOgCi1Owu7Ugsj' +
'NjcsXv0oMtgyldrjsQ4Ep2CRYvjYqMe6cJksPuT+yxScb0CwM4GO0' +
'f2bqxxIMSVqqFCA+Zs0Dj88Wms8WCV3ESrgSs4gedp/1GocRFZT4d' +
'K1ekUPYmCH+JQrIx0FvbYFDAFNkIVa+hAro40dqzzY4PHQZ5Iw8nU' +
'bMws0oYqG6m8JzEw3uC9t/LJxHo8Gz4Brh36b+kgwuqr9UGHcZW6K' +
'/Oh3nBEpt+hMRUZj32tMRRrZKRdcYm3mk84+X48+B68+VIVR0wHT6' +
'f209ngCWbRdbpUoLKxWf85eHbkPx+Z32GjJ2MjF6g8WIXnsbkDP0Q' +
'2Modxu0O5EhtqQmyQ0yO9AVZn9h4JmcKhBY1EMyo7MgTEmohKYYAX' +
'YMdmDczEGhtIFQgGzKS41m5cIRA0Zmxyw27hvXdPLl+9gBG7lRk08' +
'3PHfmxuXfrPJolvEtZ+M4/FdPaOJ1VWrl6YP3NydenK+bNvB3LR7R' +
'VciFBlEmFzsIft7eOu6qWvJqYADdvtrNvNO50cDIyvXr+YLnjv9Am' +
'3R1nNnN2ljm8UivdHRh1GrXh//syp9DJoG+UH82fehgFJz+wn95Y/' +
'OX/21NrSR9BqjChrtZHZSD1M7B20d29+fOQ+FkpfkvTUeaLnHslcq' +
'5WzWtlQ5xuV+xiUXmSS+NY9hV1evBgZgiOzd258fPva5UivD3uVeu' +
'lLkBDqiBEdEe3xh/ajiEAu44tJcaAANgmlYLeLTq+E5A2UKg4i5C9' +
'd8iSSv7Xc+q2rFwbNbH8/M+zkPbGIZOezd8npCsmpW4sfICUDqQq3' +
'hKhrl+EE2vZlem3pQ3xJftV3q389f/b3sfEYqnuNt9+4u/wRMUz23' +
'B/eWlm84EsldIe9IvCiLgGv29mGNwz+9zmJb6Pyda34hStVUNxcqZ' +
'zIoxoo5UE7CxURzqW8LxdivToxmUOrhly2Xn3rdLYjnZ6Y3NQSkjW' +
'U3dp2u4VIpeEcwBMsFM6yWw/9LoEPvNZBFikcyDSgQboYjHUS0IAU' +
'qxrKF4oASXyzMdJRxKrpPTEVSGWnnYkVsgWceNJrPSMEiCyMP557B' +
'60nU5FaTfCWzGb+1uKl43JSXjxEC6kIpa9JYTGEofh/ekt/vlSBRJ' +
'Eg+FD8cbR1kLl97eLxNcgCu503DzKehNCDW1KfPbFkN7es/Q23Q+Q' +
'9aGWNl5vLn/3p+MZAJFTYzYehXArlMmgkJKhMIBbQRWL+9j6kWia0' +
'4Dezdw/dvTs3SYhXFhfcpAzCtlokeZcXF8xXm0636KskKOpLcg3kQ' +
'p160KAehGYDhZrEBYqVyJsVJqWYyKxL6jM4n5pQHdHAyucLvljEla' +
'Z94h9TkF//IGM1s8huO0lwwHRaW9arjRSFkyT17cUFPFJAFKaxM8l' +
'2p1tCpMYG3iYqSVs21qqRiveOnDW1auiGSmVsopbCgJYyKd6piVzm' +
'MLh24xLoHTQzuBXGjR++QUtt3DR/2ICozp0+ga72YjN5f5EmFJ9f5' +
'3LrUPvt65dWFj+wDrY8scBkV+ffPeF2t3FV+JkY1YmOt4NwWy+uQ2' +
'+AiZqW4p2aPEoWimRAwkTo5bNrvpiHpBulL25++r69v5UOBsmrhJJ' +
'INiYRxMaRRvt4qXvktmO8faaQPlhrS1fuLf8Z7x1KxHfMX7Ar1lkv' +
'AZUooRwppVgpBWI+kEr9/a1AItJCoWCz995IIv+PqyS+z79JSiI17' +
'JJSAxLorVUoc/VXrZ47/Tshv243M4CPNlaKkZRD1JjN5TeuarlV4q' +
'SbjZWC/vzvEDAwDpoPk7L81utX4/qC9XLD6+Tob/+3kd8m9SpVC1I' +
'bfLqdXFr5IeYp/i+hZEnlWKXvLF1Ot5w/c5LLroJAhGDuF4AZaPI=' +
'');
end;
procedure FindBmps;
begin
FindBitmap(Fuel,Fuelx,Fuely);
FindBitmap(Flame,Flamex,Flamey);
FindBitmap(Heat,Heatx,Heaty);
FindBitmap(Progress,Progressx,Progressy);
FindBitmap(Stoke,Stokex,Stokey);
FindBitmap(MakeBarrel,MakeBarrelX,MakeBarrelY);
end;

//Tick Counting functions, Perform all the code to convert
//blue/red bars to something we can work with easily

Function ReturnFuel: Integer;
begin
Ticks:= CountBitmapTolerance(Tick,Fuelx + 28 ,Fuely - 4, Fuelx + 154,Fuely + 11,2);
if (Ticks = 0) then
begin
Result:= 0;
end;
if (Ticks = 3) then
begin
Result:= 1;
end;
if (Ticks = 10) then
begin
Result:= 2;
end;
if (Ticks = 16) then
begin
Result:= 3;
end;
if (Ticks = 22) then
begin
Result:= 4;
end;
if (Ticks = 28) then
begin;
Result:= 5;
end;
if (Ticks = 35) then
begin;
Result:= 6;
end;
if (Ticks = 41) then
begin;
Result:= 7;
if (Ticks >= 42) then
Result:= 8;
end;
end;

Function ReturnFlame: Integer;
begin
Ticks:= CountBitMapTolerance(Tick,Flamex + 38, Flamey - 4,Flamex + 162,Flamey + 11,3);
Result:= Ticks;
end;

Function ReturnHeat: Integer;
begin
if((CountBitMapTolerance(RedTick,Heatx + 31, Heaty - 4,Heatx + 155,Heaty + 11,3)) <= 0) then
begin
Ticks:= CountBitMapTolerance(Tick,Heatx + 31, Heaty - 4,Heatx + 155,Heaty + 11,3);
Result:= Ticks;
end else
Ticks:= CountBitMapTolerance(RedTick,Heatx + 31, Heaty - 4,Heatx + 155,Heaty + 11,3);
Result:= Ticks;
end;

Function ReturnProgress: Integer;
begin
Ticks:= CountBitMapTolerance(Tick,Progressx + 52, Progressy - 4,Progressx + 176,Progressy + 11,3);
Result:= Ticks;
end;

Function ReturnBarrel: Boolean;
begin
if (CountBitmap(MakeBarrel,0,0,2000,2000) >= 1) then
begin
Result:= True;
end;
if (CountBitmap(MakeBarrel,0,0,2000,2000) <= 0) then
begin
Result:= False;
end;
end;

procedure Setup;
begin
LoadMasks();
FindBmps();
Stop:= False;
end;

procedure Debug;
begin
//i:= i + 1;
ClearDebug();
Writeln('Kins Barrel Monkey Debug Output')
Writeln('/Chat Kinslayer if you have any problems')
Writeln('------------------');
Writeln('FuelLoc ' + IntToStr(Fuelx) + ' ' + IntToStr(Fuely));
Writeln('FlameLoc ' + IntToStr(Flamex) + ' ' + IntToStr(Flamey));
Writeln('HeatLoc ' + IntToStr(Heatx) + ' ' + IntToStr(Heaty));
Writeln('ProgressLoc ' + IntToStr(Progressx) + ' ' + IntToStr(Progressy));
Writeln('StokeLoc ' + IntToStr(Stokex) + ' ' + IntToStr(Stokey));
Writeln('------------------');
Writeln('Fuel: ' + IntToStr(ReturnFuel()));
Writeln('Flame: ' + IntToStr(ReturnFlame()));
Writeln('Heat: ' + IntToStr(ReturnHeat()));
Writeln('Progress: ' + IntToStr(ReturnProgress()));
Writeln('Time: ' + IntToStr(GetTickCount()));
Writeln('Last: ' + LastAction);
Writeln('WoodUsed: ' + IntToStr(WoodUsed));
Writeln('------------------');
end;

Procedure SilentMouseClick(x: Integer; y: Integer; left: boolean);
begin
GetMousePos(SaveX,SaveY);
MoveMouse(x,y);
ClickMouse(x,y,left);
MoveMouse(SaveX,SaveY);
end;

Procedure StokeFire(count: Integer);
begin
for i:= 1 to count do
begin
SilentMouseClick(Stokex,stokey,true);
end;
WoodUsed:= WoodUsed + count;
LastAction:= 'Stoked Fire ' + IntToStr(count) + ' times';
end;

begin
Setup();
LastAction:= 'Setup';
Debug();
if (ReturnBarrel = True) then
begin
SilentMouseClick(MakeBarrelx + 10, MakeBarrely + 3, True);
end;
if (UseFastLane = True) then
begin
StokeFire(7);
sleep(10000);
end;

while(Stop = False) do
begin
Debug();
if (UseActiveScan = True) then
begin
FindBmps();
end;
if (ReturnProgress >= 70) then
begin
AlmostDone:= True;
end;
if (AlmostDone = True) then
begin
if (ReturnProgress = 0) then
begin
if (ReturnFlame = 0) then
begin
Stop:= True
end;
end;
end;
// No fuel
if(ReturnFuel <= 0) then
begin
if (Stop = False) then
begin
if (ReturnFlame >= MaxFlameHeight) then
begin
StokeFire(1);
end;
if (ReturnFlame <= MaxFlameHeight) then
begin
StokeFire(2);
end;
end;
end;
//1 Fuel
if (ReturnFuel = 1) then
begin
if (Stop = False) then
begin
if (ReturnFlame >= MaxFlameHeight) then
begin
LastAction:= 'Fire Hot. Waiting';
end;
if (ReturnFlame <= MaxFlameHeight) then
begin
StokeFire(1);
end;
end;
end;
//2 Fuel
if (ReturnFuel = 2 ) then
begin
if (Stop = False) then
begin
LastAction:= 'Lots of fuel, waiting';
end;
end;
Sleep(CheckTime);
end;
end.
</pre>

User:Kinslayer/Macros/KinsBarrelMonkey

2009-09-04T08:24:15Z

Kinslayer:

This is my Barrel Vice macro for SCAR Divi. If you like this macro, or have any problems, let me know! I love feedback.

TODO:
*Seriously clean up the code
*Add a GUI for options/debug/info
*Add support for multiple barrel vices running at once.

<pre>
{.Script Info:
# ScriptName = Kin's Barrel Monkey
# Author = Kinslayer
# Description = Barrel Vice Macro
# Version = 0.1
# Date = 9/4/2009
# Comments = kurisui@gmail.com
# Ingame: Kinslayer
# Newest version available at http://www.atitd.org/wiki/tale4/User:Kinslayer/Macros
# Instruction = Pin Barrel vice window anywhere, have all materials you need on you.
# If barrel has been started already, only wood is needed, otherwise
make sure you have straps and boards as well. Try to have 100+ wood
at all times.
/Script Info}

program BarrelMonkey;
//---------
//Settings
//---------
Const
//Amount of time in milleseconds to wait before rescanning
//If in doubt, leave this alone.
CheckTime = 200;
//This will track the Barrel vice window, so you can move it around
//But it uses extra CPU
//false = off (Default)
//True = on
UseActiveScan = False;
//This tells the script whether to add a bundle at once when starting,
//to decrease the amount used overall. You can disable this if you
//Already have fuel in the barrel vice when starting the script
//(Eg. You had to restart the script) Otherwise, leave this on.
UseFastlane = True;
//At what flame height 2 wood will not be added.
MaxFlameHeight = 90;

var
Fuel: Integer;
Fuelx: Integer;
Fuely: Integer;

Flame: Integer;
Flamex: Integer;
Flamey:Integer;

Heat: Integer;
Heatx: Integer;
Heaty:Integer;

Progress: Integer;
Progressx: Integer;
Progressy:Integer;

Stoke: Integer;
Stokex: Integer;
Stokey:Integer;

Tick: Integer;
RedTick: Integer;

NoWood: Integer;

MakeBarrel: Integer;
MakeBarrelx: Integer;
MakeBarrely: Integer;

Ticks: Integer;

Stop: Boolean;

i: Integer;

LastAction: String;

SaveX: Integer;
SaveY: Integer;

AlmostDone: Boolean;

WoodUsed: Integer;

procedure LoadMasks;
begin
Fuel := BitmapFromString(24, 9, 'beNpdUUty00AQ9XEgsCMklI8B4' +
'RAhqwSKHRU2UBwhqVCxPpY8kiJbSYBDkFilz8zIssuSNfqMZVucgR' +
'45K09NTfXn9evuN53OzuFEX0VmGer1xEoeegtXLbBRYlQEehlq6Vh' +
'JHqWKoNzXODUBnwfa7G9vMVbBBkBNLWBgvlpTtJqYYK9ndvrYy1wF' +
'kGXYr7DGico8OR1fl0TLfXVJkajFeupK4ILNPCi3AAw863gEkTqy/' +
'qX3qauwYABuRUzo3n29d3r87vDVsxvpaw4TEqNNWTk2t7vknrSOjC' +
'KQC1/mpC+yWGuSEczD2kZFoJ19eDuUz6GvfvH5zf7zzFczX9nulbW' +
'YnbPEIsux3MyNbHyV+5KgDcVbU5W5V+nDpSj3r8s2yLyfCwGTRbsQ' +
'lVhjngTyruKbVrF+k9xlrlxRC9z1zNlpV1F7GdmCBxsFscAVVQRVV' +
'M99Bf5lM78X81CrWfwGfj4ZCp42uJqO6tjOCaqnt8BftjqzcAB21W' +
'oFGoL44kfoYDMfdg/2htKXJnFAjY8nR4Ihtj6dvB8p55zqLFC7By8' +
'4RTxC7WAwA3rSJHKAClbjkV3Hzq3+DZDblKN/h3eT/GrSP93Dl9vg' +
'HfpRTx24TwtOnM5/X2hroA==');

Flame := BitmapFromString(33, 9, 'beNplkuuK00AUx/s4ovvNS3Ef' +
'QhDW9fIGWkHcVUERFVF2P/gEgrht2jSZNJe2u7Lr+gpC2yQzuZg0S' +
'Zt7UvoInpnKfliHYfjz58w5c35zGo1LK8V8YYkgYqO3mHHRtJ0Y3a' +
'XeXs64DPdLW8wwXzpyOOFik88sofbVOhiVrpxhIYIYa1C6SukMEiy' +
'kZADZEtyDbPNJd2kKsBOMUiLmFgJzMesGEyjBJZiPjW5uS4Wj1L6W' +
'4H5uSdGES7GUElR5ShUMa3+YEyGadlIila5a+RoItkWoBdn+/O4uD' +
'DGm+WUa4yhgRno/xvJFd2r7Y25rIPZb9zaO0v6033qw0aP+YW4rC0' +
'O4ffPaq2ePtptb0tH7BEMv4iYgmvWg/YwImQVVUGlLFJQpxiaCvuD' +
'90rfX4FSOykrsFLYifH3D9P3KOz5GX0CXzuj5k12VO1iH5xp/2Lxx' +
'dWkOFjrf+G9BwvV8CCIjCCoCbUCRE4pu5dGmMqtf+wr8EYVpcKU7q' +
'HyFfSLHbgmVKxXskanZARNiQAczFJNhao0SDKDUdfgTzCVW5PbnF0' +
'8fXlSvwx9wFs649k/DCSWwwFo9P11Fv2jXevfSawt3nLuj2KJ4gyk' +
'X6TyQTLC0xGjlj2kJEzEUuxmwwqyL4ORfifA8mFInMtVqflrOz0An' +
'BhsSXciwlBE5mPZSouXeSWpTJuG0HekcHTnSB1ArBgrGBk756G2Ou' +
'Zetu6DXAfUrT4UN38dGokfnx2NgMdpr7SidD3AxMYXm9Svw3QV7Le' +
'uiBxMVGighcu7ABFI/tTSNP9gE7D2+Q0Exv/KPS28czRCDqRbeeB2' +
'ese40ILB9a2tzBX1/B8OZu3LjL8Xl8kc=');

Heat := BitmapFromString(26, 9, 'beNp1UduK1EAQzd/4oPgkXtbvE' +
'NQX/QAVkV1RHwR3QRf0F5TVcTLXTDLJJJMZXcFPWHV7kg6d+066O5' +
'0h8wdWJyoiWIRQdbrqVNUpRQErA6tO3SpxqtguVjogInK29KuI5iJ' +
'e0MDmgS2i5SY7FrFbZ5+rxD5DwzXqZd86kLxG4wIbhaczYkPI/YEI' +
'RgXqsFWXom7Dr9WFWxIDCplvUE8TsQU+IJvUFqGen3YZ1rMfMvkM9' +
'Qt/DN8ajSBk/ohjvUB9inoUfZT8WIfanSsXHj+8vXP5vPZhH0IRmc' +
'pv0zsHIpwqfxnDRuts0kWdH9fZUnYPJVhF7tPdu7PhmypxDfUV0ML' +
'K4FehXWcLc3Ao1SAT6hnNphonFgtmyn+MB7LvNl+K2K6SuUQIbOpw' +
'bNSp0w5ZkmmOhg0baDgB3WhDWHgmDCPITBBLNDwcm//wg9SG+nL33' +
's0/iAjnhS/Tsu9dUIljizZhibUq0DdEr6OpIEazheTcRCaEfDXIT9' +
'61suw9uAV3B2Xka7Jg2Go3pagPx2JYVrGVVuIJ88YV0bkn71L62t7' +
'9G6a6L4IJnObapXPwl+K/f17iETyBT1e9ogEHb5+tT9X05KidGdas' +
'008idLb5F+gokdCpk+X1qxfbhPHRCxDHHLxuwyeP7jRK2pw4hnr4S' +
'wpPU34CX4yHLg==');

Progress := BitmapFromString(47, 11, 'beNpVVGuT02QU5u8siHzZ' +
'hb34J3RUdHR0/MbIjCA7rHxAQWXRD46OnxgvAwvZpm2SNpduS7vl4' +
'sogIAvD9pLrNkmTtLlnuusf8HnTlcFM5p33nLx5zznPeZ6jVQ+98p' +
'w/86GnSJ7M211m2GVGcjXURLfHxuZGqIuBIaR2MzHr6bCROe09737' +
'qbIZaNbVuT5wWPmVuOx22E7OxHz7aj57sh4/3gofp8O7E+yMyW5m7' +
'lbn3cSC1626v5MkMfkzNxkgRcHk4qEdmEzmM1FpgSKnTXpo/ujB3x' +
'JPZ3eeUtVN0ZW6ssPZOwVe4QK2M+6WxzPoKGw9qkVlH0MQSR731UO' +
'Myu5YMqrFeiTU2VJlkIGZOfeK29vx2MsDNLZyfuHcyZzNzkFXL7eH' +
'Ocmo30mELaSR2K7aa0aCOZGLnz8DcnPiPM28LptevYHVkAWtg1EeK' +
'tHji6BS6xfljgSaiQJy8cO6TA+fcEazpkNSVmiLWzLkz8e6+sXDsw' +
'rmPFo+/JtHf+UqFX786PY+S3W6h/PvK1JyfOxwNxNAQp6av150+G+' +
'i10NiAOezQWKlrK0636PXLZ0+9xa19BXC8fomnriyffjtU2fOfvSf' +
'Qq6m9MZKL3NqXOJ8MeKwS/XWsc8mgdmH54zr30553Vyp+vzT/eqCT' +
'myUGnq169eexJsHkqW8y9x5HXd0LHqTD+9Nk0L5hpzBWK/OzM8un3' +
'3E7FJzqX784HQp4Yj+WS4HKen3aV0lEtCyPXsucBpIZyyT5xCRIhj' +
'Ll92+GCvHEejHRy7HGkBA94hHoK2hx5t52+yWYqCLSKoEuTLw7iXU' +
'bmL9K4LOfnvQ1yXqxnrepFlttgEbAd++RvbaReQ/yuKRM8HM/eBgo' +
'wpR4E4+UFhtiZIiT0dah/z8jmWXXLi3kDeWpS9az66VfVxZmZ2Cya' +
'xfBsXggjPLCI3PTU8TYarmQj1EzttfgtDtFMNmTy1MofJWDBCAoYu' +
'bO2KolZg37SOdzoEhdE7cJWUFNJNv06T/Z89Ru7422QqOJF8qSSj/' +
'ktOSIVAdNqfxjXgjadA8mSVsRdl8UfE1w+8xYLuvbN+Hcfb7u9sqo' +
'aPn0SZ5aDfC1x1QIZ96FnFfOfCCsX4VS+JuXpwSOdDZPqRrIxXjAf' +
'/H5+1LpSmbxgUwvzh12u9TZU29GegX0y5Mp4p6xXOHpVYK83YTc/u' +
'NMxe4WERflj2VGf3qdINMtQMhEy2pl8fiRA+bPzgQqE2osgi6eIM6' +
'FuRlu7SIBSsvhMrhILePrxJGWThz8JdGrGAhQzdQU6W9BxZdmlbqc' +
'mCIKJNrpMw7eHmnKWK6Cq8qj3/RtCqMmVxODToF10BoGDjwHGSpcq' +
'FRjg/dlmiNkOIwh4ytMavLJgMxGTLbYqGRDIVLpSKHHcsHZuYU1IF' +
'MIIBedbgH9xc2x2cCIi4w6ojuyNOxxu88KdqeE0PYO1XtwTXlyQ/3' +
'7xu4zCglYLyhkCMIY27ecXhl9dDoEtJfknJ9FF4qRXgW1MtSoshit' +
'mdWIdAFyC+RShMwJB1CCgMkG/jvdMmQSajxejCBwD7QP/wUHbL2a');

Stoke := BitmapFromString(29, 9, 'beNpVUttu00AQzd9QnL40V76' +
'jDagSrzSiNG3hEakoVQn0DwqNUpI2iXdr594HxBcQ23FkO77F8SUi' +
'fAhnbSrBarSamd2dOefM3nz09X4xn07FK595WimXljMaLfoIlzNiS' +
'21zeofMUiWO3IHvqdSV2jgNFzTUiK92YKFO1wsh0LpBEmqkmNt+d/' +
'QyNEaBMbj7el7IpoPYx0NH4l1FNKfUkXvuTLQlavwkjtJ3lR5rqvC' +
'uTDxV8LWeP+/7qhDp4lJGo17yfOM8hEYfkCxWR1jNe6l/liXRfIZ7' +
'pMN5qGCMGFpjEMRWyKX5m4tAHz7Lb1cOSsDJN2rFXBohaV6AnSN1b' +
'QmMepEh4KE97bgKrRzs3X754MrQ4b5Tr568fr6aU5yuzVFkjk4PX/' +
'i6COftm33h9jOwkSarGZnjk8P9BEwhwzWvzgBgbQ5jnAQiJIAdmXr' +
'zYWBMYvoEO21+oq3LaMEU27g/kPntffe1/toaMy66GMAM0deF43Ip' +
't7MVsu6sGpB7cwbblXlr+s1TeV9jYTLQQo7rNqrwkdxYD6n/F34CL' +
'FwMsAMeMoHOfFZNEbx5PDuZ2rEIq7gLKCcP+WaNtmq+Jkax2pgRHK' +
'BdW5NClmtfV0OdNT16tYsQThCXbderK20AbZtX723p3tMGyOAOkjE' +
'FAi6YV6dxjhanTNvLX+ZkbY4xtePyHko9DnoLTG2p5amkfX2WJN1p' +
'Pbfz5K/4WQ5zXOnJr2YfeKVRJKEGpMOkkmvkD12DojM=');
Tick := BitmapFromString(1, 12, 'beNqr/8fC3MTKepmN7S9WpK//t' +
'x4A46sNBg==');
RedTick := BitmapFromString(1, 11, 'beNqrr7/KyvKfjRUT/QMifb' +
'1/ANIFDIU=');
NoWood := BitmapFromString(46, 9, 'beNo9lNty2lYYhf0yre3cdYw' +
'TO+/QxuC4h+vOdGwg4xiwEy46vuor1HXBAqEDCHEY+6bvkNqMQNKW' +
'BEWAzkjgySN0STRlNJq9f0l7f/9aayNRW1tbS729NERXZdt3ZUxDv' +
'R2NxWjcDgiPKe6uwgR6e232PMKFhrDUW8+z/mf7YWX2A9JyVc4l7N' +
'JoRhMxINxSb7oqE2hNFOPVxqKjMFjcGjG2wvua4JLmatoPtNZBavc' +
'gtXORzbza2zE+VUr5k6vzH8NxNxp3C9ljfHv57odo0l9N7/GomDvx' +
'Ce8TIdA7a/PeI2DuATsad55nD6HR8dQWiq4CWnapibh7hEfRUVuWz' +
'MWN6KKjNj0izofsTGIdVcDU10Ts9f40PZeYhcSc/3KU//nbwtnRZf' +
'7YU5lQ40HYZ65LueNQFyKjXcq9LebeYl80fpja3Up+h/sv0E406a7' +
'M3uuXL/4rpnZcuRZovCNTxVx6U3x/erSR1FMYDGZPlPlYtUe0DwG1' +
'FioLqT4bULbcMB8rL7/5CnixQUYPImAXqBHfjU5kdFF3FQ79gl+4K' +
'wekCf5u/RpCraY9KHnP/2aNeFvmhOpVMZsGcCGbOdzfdWTakZkvJK' +
'wzrMX7Dqh/Pt24ckJCYjZLurUGVVTmAypJRRyG0OAf+OvC2ZtQZ0v' +
'5zNoUns2YMDKaQWK3TyAa5wyrnkJjup4246eTNvpyZcYe1ZOlhE3q' +
'7BFjJVfSC+uMaE/lFkMKF/SE3Zs3UbelO5BYUi1h5i7fwYX0ZT5jS' +
'dWAIGzsh/OTD+ffwyafQBMmsbu5mvUQRTBj+jxvxzyzrjWigYokJ+' +
'EUEjzBI6ybXAkYtzS4QEMeKtawutQaS0KHWrymM7y1h7e+WoM4CTP' +
'To3/FprgwDsdtHI2PFz+BBFI7iKLKJev3Prt/ebqIhMQMG8XGwlyq' +
'A8NLNkULuHuEQe+OQpuDSiImDQyPNGyZdgmDTwC8Njsb4/ByoPNuc' +
'kiBuhEcRsNfhAE+QqV4TYWxhnV7WC+cpTu1j+uJ4IyoXr0MEz25Ws' +
'q96dfLs79hfU2krkq5dOxsLt2hyvOnCr56tbe98T0ax/l0CedrGOM' +
'vQlhPRbhQzB65ch0hx6m5OP1u9njrydRB6mtXrs4ff1883VjSH4FS' +
'TUhqzugO0iEeB6ntL2dnF8fKh006/3p/Z1PEU9gKEsj+/5vcTSHWR' +
'EV3DQzmT38m7iOxjRBSEPZgbxsMpVwGR2/xL1zd4HU=');
MakeBarrel := BitmapFromString(80, 10, 'beNplVllzFNcV1p9xwD' +
'gvwYBF/oGrgsViO+VHVxkZBEJIgMoLReUheUleLEvMaPae3qZnkLA' +
'wIZWngEGaqVm60/v09LR7n02y/4O/242JUp7qunXudu79vvOdc2du' +
'LtKYQ7s+MflYZ0YGi26kM4FCu2LFESl8Vrsw6JSGPcqTaXM/Z7Urc' +
'3Nzgco5YtWTGU9mfYWDEShMpPGxIUQaNzaEWGNGOh/IaLmpKUQKA3' +
'vYKXkiFcpVdEca+ez2tt3KemLFl6hhpwDPmPV6WFbGIOwhTm9ue71' +
'KqDBej0o2crHKoYsW3eSs2qS/MzYfzfq7I6PhSexssHf049OfhnsY' +
'8WUGt0Ibqdzcr78j91+z4T8P3X9H5t50+Gz+7CkMOgCi1Owu7Ugsj' +
'NjcsXv0oMtgyldrjsQ4Ep2CRYvjYqMe6cJksPuT+yxScb0CwM4GO0' +
'f2bqxxIMSVqqFCA+Zs0Dj88Wms8WCV3ESrgSs4gedp/1GocRFZT4d' +
'K1ekUPYmCH+JQrIx0FvbYFDAFNkIVa+hAro40dqzzY4PHQZ5Iw8nU' +
'bMws0oYqG6m8JzEw3uC9t/LJxHo8Gz4Brh36b+kgwuqr9UGHcZW6K' +
'/Oh3nBEpt+hMRUZj32tMRRrZKRdcYm3mk84+X48+B68+VIVR0wHT6' +
'f209ngCWbRdbpUoLKxWf85eHbkPx+Z32GjJ2MjF6g8WIXnsbkDP0Q' +
'2Modxu0O5EhtqQmyQ0yO9AVZn9h4JmcKhBY1EMyo7MgTEmohKYYAX' +
'YMdmDczEGhtIFQgGzKS41m5cIRA0Zmxyw27hvXdPLl+9gBG7lRk08' +
'3PHfmxuXfrPJolvEtZ+M4/FdPaOJ1VWrl6YP3NydenK+bNvB3LR7R' +
'VciFBlEmFzsIft7eOu6qWvJqYADdvtrNvNO50cDIyvXr+YLnjv9Am' +
'3R1nNnN2ljm8UivdHRh1GrXh//syp9DJoG+UH82fehgFJz+wn95Y/' +
'OX/21NrSR9BqjChrtZHZSD1M7B20d29+fOQ+FkpfkvTUeaLnHslcq' +
'5WzWtlQ5xuV+xiUXmSS+NY9hV1evBgZgiOzd258fPva5UivD3uVeu' +
'lLkBDqiBEdEe3xh/ajiEAu44tJcaAANgmlYLeLTq+E5A2UKg4i5C9' +
'd8iSSv7Xc+q2rFwbNbH8/M+zkPbGIZOezd8npCsmpW4sfICUDqQq3' +
'hKhrl+EE2vZlem3pQ3xJftV3q389f/b3sfEYqnuNt9+4u/wRMUz23' +
'B/eWlm84EsldIe9IvCiLgGv29mGNwz+9zmJb6Pyda34hStVUNxcqZ' +
'zIoxoo5UE7CxURzqW8LxdivToxmUOrhly2Xn3rdLYjnZ6Y3NQSkjW' +
'U3dp2u4VIpeEcwBMsFM6yWw/9LoEPvNZBFikcyDSgQboYjHUS0IAU' +
'qxrKF4oASXyzMdJRxKrpPTEVSGWnnYkVsgWceNJrPSMEiCyMP557B' +
'60nU5FaTfCWzGb+1uKl43JSXjxEC6kIpa9JYTGEofh/ekt/vlSBRJ' +
'Eg+FD8cbR1kLl97eLxNcgCu503DzKehNCDW1KfPbFkN7es/Q23Q+Q' +
'9aGWNl5vLn/3p+MZAJFTYzYehXArlMmgkJKhMIBbQRWL+9j6kWia0' +
'4Dezdw/dvTs3SYhXFhfcpAzCtlokeZcXF8xXm0636KskKOpLcg3kQ' +
'p160KAehGYDhZrEBYqVyJsVJqWYyKxL6jM4n5pQHdHAyucLvljEla' +
'Z94h9TkF//IGM1s8huO0lwwHRaW9arjRSFkyT17cUFPFJAFKaxM8l' +
'2p1tCpMYG3iYqSVs21qqRiveOnDW1auiGSmVsopbCgJYyKd6piVzm' +
'MLh24xLoHTQzuBXGjR++QUtt3DR/2ICozp0+ga72YjN5f5EmFJ9f5' +
'3LrUPvt65dWFj+wDrY8scBkV+ffPeF2t3FV+JkY1YmOt4NwWy+uQ2' +
'+AiZqW4p2aPEoWimRAwkTo5bNrvpiHpBulL25++r69v5UOBsmrhJJ' +
'INiYRxMaRRvt4qXvktmO8faaQPlhrS1fuLf8Z7x1KxHfMX7Ar1lkv' +
'AZUooRwppVgpBWI+kEr9/a1AItJCoWCz995IIv+PqyS+z79JSiI17' +
'JJSAxLorVUoc/VXrZ47/Tshv243M4CPNlaKkZRD1JjN5TeuarlV4q' +
'SbjZWC/vzvEDAwDpoPk7L81utX4/qC9XLD6+Tob/+3kd8m9SpVC1I' +
'bfLqdXFr5IeYp/i+hZEnlWKXvLF1Ot5w/c5LLroJAhGDuF4AZaPI=' +
'');
end;
procedure FindBmps;
begin
FindBitmap(Fuel,Fuelx,Fuely);
FindBitmap(Flame,Flamex,Flamey);
FindBitmap(Heat,Heatx,Heaty);
FindBitmap(Progress,Progressx,Progressy);
FindBitmap(Stoke,Stokex,Stokey);
FindBitmap(MakeBarrel,MakeBarrelX,MakeBarrelY);
end;

//Tick Counting functions, Perform all the code to convert
//blue/red bars to something we can work with easily

Function ReturnFuel: Integer;
begin
Ticks:= CountBitmapTolerance(Tick,Fuelx + 28 ,Fuely - 4, Fuelx + 154,Fuely + 11,2);
if (Ticks = 0) then
begin
Result:= 0;
end;
if (Ticks = 3) then
begin
Result:= 1;
end;
if (Ticks = 10) then
begin
Result:= 2;
end;
if (Ticks = 16) then
begin
Result:= 3;
end;
if (Ticks = 22) then
begin
Result:= 4;
end;
if (Ticks = 28) then
begin;
Result:= 5;
end;
if (Ticks = 35) then
begin;
Result:= 6;
end;
if (Ticks = 41) then
begin;
Result:= 7;
if (Ticks >= 42) then
Result:= 8;
end;
end;

Function ReturnFlame: Integer;
begin
Ticks:= CountBitMapTolerance(Tick,Flamex + 38, Flamey - 4,Flamex + 162,Flamey + 11,3);
Result:= Ticks;
end;

Function ReturnHeat: Integer;
begin
if((CountBitMapTolerance(RedTick,Heatx + 31, Heaty - 4,Heatx + 155,Heaty + 11,3)) <= 0) then
begin
Ticks:= CountBitMapTolerance(Tick,Heatx + 31, Heaty - 4,Heatx + 155,Heaty + 11,3);
Result:= Ticks;
end else
Ticks:= CountBitMapTolerance(RedTick,Heatx + 31, Heaty - 4,Heatx + 155,Heaty + 11,3);
Result:= Ticks;
end;

Function ReturnProgress: Integer;
begin
Ticks:= CountBitMapTolerance(Tick,Progressx + 52, Progressy - 4,Progressx + 176,Progressy + 11,3);
Result:= Ticks;
end;

Function ReturnBarrel: Boolean;
begin
if (CountBitmap(MakeBarrel,0,0,2000,2000) >= 1) then
begin
Result:= True;
end;
if (CountBitmap(MakeBarrel,0,0,2000,2000) <= 0) then
begin
Result:= False;
end;
end;

procedure Setup;
begin
LoadMasks();
FindBmps();
Stop:= False;
end;

procedure Debug;
begin
//i:= i + 1;
ClearDebug();
Writeln('Kins Barrel Monkey Debug Output')
Writeln('/Chat Kinslayer if you have any problems')
Writeln('------------------');
Writeln('FuelLoc ' + IntToStr(Fuelx) + ' ' + IntToStr(Fuely));
Writeln('FlameLoc ' + IntToStr(Flamex) + ' ' + IntToStr(Flamey));
Writeln('HeatLoc ' + IntToStr(Heatx) + ' ' + IntToStr(Heaty));
Writeln('ProgressLoc ' + IntToStr(Progressx) + ' ' + IntToStr(Progressy));
Writeln('StokeLoc ' + IntToStr(Stokex) + ' ' + IntToStr(Stokey));
Writeln('------------------');
Writeln('Fuel: ' + IntToStr(ReturnFuel()));
Writeln('Flame: ' + IntToStr(ReturnFlame()));
Writeln('Heat: ' + IntToStr(ReturnHeat()));
Writeln('Progress: ' + IntToStr(ReturnProgress()));
Writeln('Time: ' + IntToStr(GetTickCount()));
Writeln('Last: ' + LastAction);
Writeln('WoodUsed: ' + IntToStr(WoodUsed));
Writeln('------------------');
end;

Procedure SilentMouseClick(x: Integer; y: Integer; left: boolean);
begin
GetMousePos(SaveX,SaveY);
MoveMouse(x,y);
ClickMouse(x,y,left);
MoveMouse(SaveX,SaveY);
end;

Procedure StokeFire(count: Integer);
begin
for i:= 1 to count do
begin
SilentMouseClick(Stokex,stokey,true);
end;
WoodUsed:= WoodUsed + count;
LastAction:= 'Stoked Fire ' + IntToStr(count) + ' times';
end;

begin
Setup();
LastAction:= 'Setup';
Debug();
if (ReturnBarrel = True) then
begin
SilentMouseClick(MakeBarrelx + 10, MakeBarrely + 3, True);
end;
if (UseFastLane = True) then
begin
StokeFire(7);
sleep(10000);
end;

while(Stop = False) do
begin
Debug();
if (UseActiveScan = True) then
begin
FindBmps();
end;
if (ReturnProgress >= 70) then
begin
AlmostDone:= True;
end;
if (AlmostDone = True) then
begin
if (ReturnProgress = 0) then
begin
if (ReturnFlame = 0) then
begin
Stop:= True
end;
end;
end;
// No fuel
if(ReturnFuel <= 0) then
begin
if (Stop = False) then
begin
if (ReturnFlame >= MaxFlameHeight) then
begin
StokeFire(1);
end;
if (ReturnFlame <= MaxFlameHeight) then
begin
StokeFire(2);
end;
end;
end;
//1 Fuel
if (ReturnFuel = 1) then
begin
if (Stop = False) then
begin
if (ReturnFlame >= MaxFlameHeight) then
begin
LastAction:= 'Fire Hot. Waiting';
end;
if (ReturnFlame <= MaxFlameHeight) then
begin
StokeFire(1);
end;
end;
end;
//2 Fuel
if (ReturnFuel = 2 ) then
begin
if (Stop = False) then
begin
LastAction:= 'Lots of fuel, waiting';
end;
end;
Sleep(CheckTime);
end;
end.
</pre>

User:Kinslayer/MacrosNeedsFixing

2009-09-04T08:11:32Z

Kinslayer:

== Macros ==
Some ACTool Macros are Resolution/Windows version dependent due to different mouse co-ordinates. Make sure if using Vista/Windows 7 that you make sure the window is maximised.
To download the macros directly, right click Download, and select Save As

{| style="color:black;" cellpadding="5" cellspacing="0" border="1"
|+ Macros
! Type !! Name !! O/S !! Resolution !! Download
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows 7 (Vista too?)
| 1440x900 Window Maximised
| [[Media:Charcoal1440x900.mac|Download]]|[[User:Kinslayer/Macros/Charcoal1440x900|View]]
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows XP
| 1920x1200
| [[Download]]|[[User:Kinslayer/Macros/Charcoal1920x1200|View]]
|-
| SCAR Divi
| Kin's Barrel Monkey
| Windows (All)
| Any
| [[Media:KinsBarrelMonkey.txt|Download]]|[[User:Kinslayer/Macros/KinsBarrelMonkey|View]]
|-
|}

File:KinsBarrelMonkey.txt

2009-09-04T08:10:38Z

Kinslayer: Kinslayer's Barrel Macro Script (Alpha)

Kinslayer's Barrel Macro Script (Alpha)

User:Kinslayer/Macros/KinsBarrelMonkey

2009-09-04T08:08:25Z

Kinslayer: New page: This is my Barrel Vice macro for SCAR Divi. If you like this macro, or have any problems, let me know! I love feedback. <pre> {.Script Info: # ScriptName = Kin's Barrel Monkey # Author ...

This is my Barrel Vice macro for SCAR Divi. If you like this macro, or have any problems, let me know! I love feedback.

<pre>
{.Script Info:
# ScriptName = Kin's Barrel Monkey
# Author = Kinslayer
# Description = Barrel Vice Macro
# Version = 0.1
# Date = 9/4/2009
# Comments = kurisui@gmail.com
# Ingame: Kinslayer
# Newest version available at http://www.atitd.org/wiki/tale4/User:Kinslayer/Macros
# Instruction = Pin Barrel vice window anywhere, have all materials you need on you.
# If barrel has been started already, only wood is needed, otherwise
make sure you have straps and boards as well. Try to have 100+ wood
at all times.
/Script Info}

program BarrelMonkey;
//---------
//Settings
//---------
Const
//Amount of time in milleseconds to wait before rescanning
//If in doubt, leave this alone.
CheckTime = 200;
//This will track the Barrel vice window, so you can move it around
//But it uses extra CPU
//false = off (Default)
//True = on
UseActiveScan = False;
//This tells the script whether to add a bundle at once when starting,
//to decrease the amount used overall. You can disable this if you
//Already have fuel in the barrel vice when starting the script
//(Eg. You had to restart the script) Otherwise, leave this on.
UseFastlane = True;
//At what flame height 2 wood will not be added.
MaxFlameHeight = 90;

var
Fuel: Integer;
Fuelx: Integer;
Fuely: Integer;

Flame: Integer;
Flamex: Integer;
Flamey:Integer;

Heat: Integer;
Heatx: Integer;
Heaty:Integer;

Progress: Integer;
Progressx: Integer;
Progressy:Integer;

Stoke: Integer;
Stokex: Integer;
Stokey:Integer;

Tick: Integer;
RedTick: Integer;

NoWood: Integer;

MakeBarrel: Integer;
MakeBarrelx: Integer;
MakeBarrely: Integer;

Ticks: Integer;

Stop: Boolean;

i: Integer;

LastAction: String;

SaveX: Integer;
SaveY: Integer;

AlmostDone: Boolean;

WoodUsed: Integer;

procedure LoadMasks;
begin
Fuel := BitmapFromString(24, 9, 'beNpdUUty00AQ9XEgsCMklI8B4' +
'RAhqwSKHRU2UBwhqVCxPpY8kiJbSYBDkFilz8zIssuSNfqMZVucgR' +
'45K09NTfXn9evuN53OzuFEX0VmGer1xEoeegtXLbBRYlQEehlq6Vh' +
'JHqWKoNzXODUBnwfa7G9vMVbBBkBNLWBgvlpTtJqYYK9ndvrYy1wF' +
'kGXYr7DGico8OR1fl0TLfXVJkajFeupK4ILNPCi3AAw863gEkTqy/' +
'qX3qauwYABuRUzo3n29d3r87vDVsxvpaw4TEqNNWTk2t7vknrSOjC' +
'KQC1/mpC+yWGuSEczD2kZFoJ19eDuUz6GvfvH5zf7zzFczX9nulbW' +
'YnbPEIsux3MyNbHyV+5KgDcVbU5W5V+nDpSj3r8s2yLyfCwGTRbsQ' +
'lVhjngTyruKbVrF+k9xlrlxRC9z1zNlpV1F7GdmCBxsFscAVVQRVV' +
'M99Bf5lM78X81CrWfwGfj4ZCp42uJqO6tjOCaqnt8BftjqzcAB21W' +
'oFGoL44kfoYDMfdg/2htKXJnFAjY8nR4Ihtj6dvB8p55zqLFC7By8' +
'4RTxC7WAwA3rSJHKAClbjkV3Hzq3+DZDblKN/h3eT/GrSP93Dl9vg' +
'HfpRTx24TwtOnM5/X2hroA==');

Flame := BitmapFromString(33, 9, 'beNplkuuK00AUx/s4ovvNS3Ef' +
'QhDW9fIGWkHcVUERFVF2P/gEgrht2jSZNJe2u7Lr+gpC2yQzuZg0S' +
'Zt7UvoInpnKfliHYfjz58w5c35zGo1LK8V8YYkgYqO3mHHRtJ0Y3a' +
'XeXs64DPdLW8wwXzpyOOFik88sofbVOhiVrpxhIYIYa1C6SukMEiy' +
'kZADZEtyDbPNJd2kKsBOMUiLmFgJzMesGEyjBJZiPjW5uS4Wj1L6W' +
'4H5uSdGES7GUElR5ShUMa3+YEyGadlIila5a+RoItkWoBdn+/O4uD' +
'DGm+WUa4yhgRno/xvJFd2r7Y25rIPZb9zaO0v6033qw0aP+YW4rC0' +
'O4ffPaq2ePtptb0tH7BEMv4iYgmvWg/YwImQVVUGlLFJQpxiaCvuD' +
'90rfX4FSOykrsFLYifH3D9P3KOz5GX0CXzuj5k12VO1iH5xp/2Lxx' +
'dWkOFjrf+G9BwvV8CCIjCCoCbUCRE4pu5dGmMqtf+wr8EYVpcKU7q' +
'HyFfSLHbgmVKxXskanZARNiQAczFJNhao0SDKDUdfgTzCVW5PbnF0' +
'8fXlSvwx9wFs649k/DCSWwwFo9P11Fv2jXevfSawt3nLuj2KJ4gyk' +
'X6TyQTLC0xGjlj2kJEzEUuxmwwqyL4ORfifA8mFInMtVqflrOz0An' +
'BhsSXciwlBE5mPZSouXeSWpTJuG0HekcHTnSB1ArBgrGBk756G2Ou' +
'Zetu6DXAfUrT4UN38dGokfnx2NgMdpr7SidD3AxMYXm9Svw3QV7Le' +
'uiBxMVGighcu7ABFI/tTSNP9gE7D2+Q0Exv/KPS28czRCDqRbeeB2' +
'ese40ILB9a2tzBX1/B8OZu3LjL8Xl8kc=');

Heat := BitmapFromString(26, 9, 'beNp1UduK1EAQzd/4oPgkXtbvE' +
'NQX/QAVkV1RHwR3QRf0F5TVcTLXTDLJJJMZXcFPWHV7kg6d+066O5' +
'0h8wdWJyoiWIRQdbrqVNUpRQErA6tO3SpxqtguVjogInK29KuI5iJ' +
'e0MDmgS2i5SY7FrFbZ5+rxD5DwzXqZd86kLxG4wIbhaczYkPI/YEI' +
'RgXqsFWXom7Dr9WFWxIDCplvUE8TsQU+IJvUFqGen3YZ1rMfMvkM9' +
'Qt/DN8ajSBk/ohjvUB9inoUfZT8WIfanSsXHj+8vXP5vPZhH0IRmc' +
'pv0zsHIpwqfxnDRuts0kWdH9fZUnYPJVhF7tPdu7PhmypxDfUV0ML' +
'K4FehXWcLc3Ao1SAT6hnNphonFgtmyn+MB7LvNl+K2K6SuUQIbOpw' +
'bNSp0w5ZkmmOhg0baDgB3WhDWHgmDCPITBBLNDwcm//wg9SG+nL33' +
's0/iAjnhS/Tsu9dUIljizZhibUq0DdEr6OpIEazheTcRCaEfDXIT9' +
'61suw9uAV3B2Xka7Jg2Go3pagPx2JYVrGVVuIJ88YV0bkn71L62t7' +
'9G6a6L4IJnObapXPwl+K/f17iETyBT1e9ogEHb5+tT9X05KidGdas' +
'008idLb5F+gokdCpk+X1qxfbhPHRCxDHHLxuwyeP7jRK2pw4hnr4S' +
'wpPU34CX4yHLg==');

Progress := BitmapFromString(47, 11, 'beNpVVGuT02QU5u8siHzZ' +
'hb34J3RUdHR0/MbIjCA7rHxAQWXRD46OnxgvAwvZpm2SNpduS7vl4' +
'sogIAvD9pLrNkmTtLlnuusf8HnTlcFM5p33nLx5zznPeZ6jVQ+98p' +
'w/86GnSJ7M211m2GVGcjXURLfHxuZGqIuBIaR2MzHr6bCROe09737' +
'qbIZaNbVuT5wWPmVuOx22E7OxHz7aj57sh4/3gofp8O7E+yMyW5m7' +
'lbn3cSC1626v5MkMfkzNxkgRcHk4qEdmEzmM1FpgSKnTXpo/ujB3x' +
'JPZ3eeUtVN0ZW6ssPZOwVe4QK2M+6WxzPoKGw9qkVlH0MQSR731UO' +
'Myu5YMqrFeiTU2VJlkIGZOfeK29vx2MsDNLZyfuHcyZzNzkFXL7eH' +
'Ocmo30mELaSR2K7aa0aCOZGLnz8DcnPiPM28LptevYHVkAWtg1EeK' +
'tHji6BS6xfljgSaiQJy8cO6TA+fcEazpkNSVmiLWzLkz8e6+sXDsw' +
'rmPFo+/JtHf+UqFX786PY+S3W6h/PvK1JyfOxwNxNAQp6av150+G+' +
'i10NiAOezQWKlrK0636PXLZ0+9xa19BXC8fomnriyffjtU2fOfvSf' +
'Qq6m9MZKL3NqXOJ8MeKwS/XWsc8mgdmH54zr30553Vyp+vzT/eqCT' +
'myUGnq169eexJsHkqW8y9x5HXd0LHqTD+9Nk0L5hpzBWK/OzM8un3' +
'3E7FJzqX784HQp4Yj+WS4HKen3aV0lEtCyPXsucBpIZyyT5xCRIhj' +
'Ll92+GCvHEejHRy7HGkBA94hHoK2hx5t52+yWYqCLSKoEuTLw7iXU' +
'bmL9K4LOfnvQ1yXqxnrepFlttgEbAd++RvbaReQ/yuKRM8HM/eBgo' +
'wpR4E4+UFhtiZIiT0dah/z8jmWXXLi3kDeWpS9az66VfVxZmZ2Cya' +
'xfBsXggjPLCI3PTU8TYarmQj1EzttfgtDtFMNmTy1MofJWDBCAoYu' +
'bO2KolZg37SOdzoEhdE7cJWUFNJNv06T/Z89Ru7422QqOJF8qSSj/' +
'ktOSIVAdNqfxjXgjadA8mSVsRdl8UfE1w+8xYLuvbN+Hcfb7u9sqo' +
'aPn0SZ5aDfC1x1QIZ96FnFfOfCCsX4VS+JuXpwSOdDZPqRrIxXjAf' +
'/H5+1LpSmbxgUwvzh12u9TZU29GegX0y5Mp4p6xXOHpVYK83YTc/u' +
'NMxe4WERflj2VGf3qdINMtQMhEy2pl8fiRA+bPzgQqE2osgi6eIM6' +
'FuRlu7SIBSsvhMrhILePrxJGWThz8JdGrGAhQzdQU6W9BxZdmlbqc' +
'mCIKJNrpMw7eHmnKWK6Cq8qj3/RtCqMmVxODToF10BoGDjwHGSpcq' +
'FRjg/dlmiNkOIwh4ytMavLJgMxGTLbYqGRDIVLpSKHHcsHZuYU1IF' +
'MIIBedbgH9xc2x2cCIi4w6ojuyNOxxu88KdqeE0PYO1XtwTXlyQ/3' +
'7xu4zCglYLyhkCMIY27ecXhl9dDoEtJfknJ9FF4qRXgW1MtSoshit' +
'mdWIdAFyC+RShMwJB1CCgMkG/jvdMmQSajxejCBwD7QP/wUHbL2a');

Stoke := BitmapFromString(29, 9, 'beNpVUttu00AQzd9QnL40V76' +
'jDagSrzSiNG3hEakoVQn0DwqNUpI2iXdr594HxBcQ23FkO77F8SUi' +
'fAhnbSrBarSamd2dOefM3nz09X4xn07FK595WimXljMaLfoIlzNiS' +
'21zeofMUiWO3IHvqdSV2jgNFzTUiK92YKFO1wsh0LpBEmqkmNt+d/' +
'QyNEaBMbj7el7IpoPYx0NH4l1FNKfUkXvuTLQlavwkjtJ3lR5rqvC' +
'uTDxV8LWeP+/7qhDp4lJGo17yfOM8hEYfkCxWR1jNe6l/liXRfIZ7' +
'pMN5qGCMGFpjEMRWyKX5m4tAHz7Lb1cOSsDJN2rFXBohaV6AnSN1b' +
'QmMepEh4KE97bgKrRzs3X754MrQ4b5Tr568fr6aU5yuzVFkjk4PX/' +
'i6COftm33h9jOwkSarGZnjk8P9BEwhwzWvzgBgbQ5jnAQiJIAdmXr' +
'zYWBMYvoEO21+oq3LaMEU27g/kPntffe1/toaMy66GMAM0deF43Ip' +
't7MVsu6sGpB7cwbblXlr+s1TeV9jYTLQQo7rNqrwkdxYD6n/F34CL' +
'FwMsAMeMoHOfFZNEbx5PDuZ2rEIq7gLKCcP+WaNtmq+Jkax2pgRHK' +
'BdW5NClmtfV0OdNT16tYsQThCXbderK20AbZtX723p3tMGyOAOkjE' +
'FAi6YV6dxjhanTNvLX+ZkbY4xtePyHko9DnoLTG2p5amkfX2WJN1p' +
'Pbfz5K/4WQ5zXOnJr2YfeKVRJKEGpMOkkmvkD12DojM=');
Tick := BitmapFromString(1, 12, 'beNqr/8fC3MTKepmN7S9WpK//t' +
'x4A46sNBg==');
RedTick := BitmapFromString(1, 11, 'beNqrr7/KyvKfjRUT/QMifb' +
'1/ANIFDIU=');
NoWood := BitmapFromString(46, 9, 'beNo9lNty2lYYhf0yre3cdYw' +
'TO+/QxuC4h+vOdGwg4xiwEy46vuor1HXBAqEDCHEY+6bvkNqMQNKW' +
'BEWAzkjgySN0STRlNJq9f0l7f/9aayNRW1tbS729NERXZdt3ZUxDv' +
'R2NxWjcDgiPKe6uwgR6e232PMKFhrDUW8+z/mf7YWX2A9JyVc4l7N' +
'JoRhMxINxSb7oqE2hNFOPVxqKjMFjcGjG2wvua4JLmatoPtNZBavc' +
'gtXORzbza2zE+VUr5k6vzH8NxNxp3C9ljfHv57odo0l9N7/GomDvx' +
'Ce8TIdA7a/PeI2DuATsad55nD6HR8dQWiq4CWnapibh7hEfRUVuWz' +
'MWN6KKjNj0izofsTGIdVcDU10Ts9f40PZeYhcSc/3KU//nbwtnRZf' +
'7YU5lQ40HYZ65LueNQFyKjXcq9LebeYl80fpja3Up+h/sv0E406a7' +
'M3uuXL/4rpnZcuRZovCNTxVx6U3x/erSR1FMYDGZPlPlYtUe0DwG1' +
'FioLqT4bULbcMB8rL7/5CnixQUYPImAXqBHfjU5kdFF3FQ79gl+4K' +
'wekCf5u/RpCraY9KHnP/2aNeFvmhOpVMZsGcCGbOdzfdWTakZkvJK' +
'wzrMX7Dqh/Pt24ckJCYjZLurUGVVTmAypJRRyG0OAf+OvC2ZtQZ0v' +
'5zNoUns2YMDKaQWK3TyAa5wyrnkJjup4246eTNvpyZcYe1ZOlhE3q' +
'7BFjJVfSC+uMaE/lFkMKF/SE3Zs3UbelO5BYUi1h5i7fwYX0ZT5jS' +
'dWAIGzsh/OTD+ffwyafQBMmsbu5mvUQRTBj+jxvxzyzrjWigYokJ+' +
'EUEjzBI6ybXAkYtzS4QEMeKtawutQaS0KHWrymM7y1h7e+WoM4CTP' +
'To3/FprgwDsdtHI2PFz+BBFI7iKLKJev3Prt/ebqIhMQMG8XGwlyq' +
'A8NLNkULuHuEQe+OQpuDSiImDQyPNGyZdgmDTwC8Njsb4/ByoPNuc' +
'kiBuhEcRsNfhAE+QqV4TYWxhnV7WC+cpTu1j+uJ4IyoXr0MEz25Ws' +
'q96dfLs79hfU2krkq5dOxsLt2hyvOnCr56tbe98T0ax/l0CedrGOM' +
'vQlhPRbhQzB65ch0hx6m5OP1u9njrydRB6mtXrs4ff1883VjSH4FS' +
'TUhqzugO0iEeB6ntL2dnF8fKh006/3p/Z1PEU9gKEsj+/5vcTSHWR' +
'EV3DQzmT38m7iOxjRBSEPZgbxsMpVwGR2/xL1zd4HU=');
MakeBarrel := BitmapFromString(80, 10, 'beNplVllzFNcV1p9xwD' +
'gvwYBF/oGrgsViO+VHVxkZBEJIgMoLReUheUleLEvMaPae3qZnkLA' +
'wIZWngEGaqVm60/v09LR7n02y/4O/242JUp7qunXudu79vvOdc2du' +
'LtKYQ7s+MflYZ0YGi26kM4FCu2LFESl8Vrsw6JSGPcqTaXM/Z7Urc' +
'3Nzgco5YtWTGU9mfYWDEShMpPGxIUQaNzaEWGNGOh/IaLmpKUQKA3' +
'vYKXkiFcpVdEca+ez2tt3KemLFl6hhpwDPmPV6WFbGIOwhTm9ue71' +
'KqDBej0o2crHKoYsW3eSs2qS/MzYfzfq7I6PhSexssHf049OfhnsY' +
'8WUGt0Ibqdzcr78j91+z4T8P3X9H5t50+Gz+7CkMOgCi1Owu7Ugsj' +
'NjcsXv0oMtgyldrjsQ4Ep2CRYvjYqMe6cJksPuT+yxScb0CwM4GO0' +
'f2bqxxIMSVqqFCA+Zs0Dj88Wms8WCV3ESrgSs4gedp/1GocRFZT4d' +
'K1ekUPYmCH+JQrIx0FvbYFDAFNkIVa+hAro40dqzzY4PHQZ5Iw8nU' +
'bMws0oYqG6m8JzEw3uC9t/LJxHo8Gz4Brh36b+kgwuqr9UGHcZW6K' +
'/Oh3nBEpt+hMRUZj32tMRRrZKRdcYm3mk84+X48+B68+VIVR0wHT6' +
'f209ngCWbRdbpUoLKxWf85eHbkPx+Z32GjJ2MjF6g8WIXnsbkDP0Q' +
'2Modxu0O5EhtqQmyQ0yO9AVZn9h4JmcKhBY1EMyo7MgTEmohKYYAX' +
'YMdmDczEGhtIFQgGzKS41m5cIRA0Zmxyw27hvXdPLl+9gBG7lRk08' +
'3PHfmxuXfrPJolvEtZ+M4/FdPaOJ1VWrl6YP3NydenK+bNvB3LR7R' +
'VciFBlEmFzsIft7eOu6qWvJqYADdvtrNvNO50cDIyvXr+YLnjv9Am' +
'3R1nNnN2ljm8UivdHRh1GrXh//syp9DJoG+UH82fehgFJz+wn95Y/' +
'OX/21NrSR9BqjChrtZHZSD1M7B20d29+fOQ+FkpfkvTUeaLnHslcq' +
'5WzWtlQ5xuV+xiUXmSS+NY9hV1evBgZgiOzd258fPva5UivD3uVeu' +
'lLkBDqiBEdEe3xh/ajiEAu44tJcaAANgmlYLeLTq+E5A2UKg4i5C9' +
'd8iSSv7Xc+q2rFwbNbH8/M+zkPbGIZOezd8npCsmpW4sfICUDqQq3' +
'hKhrl+EE2vZlem3pQ3xJftV3q389f/b3sfEYqnuNt9+4u/wRMUz23' +
'B/eWlm84EsldIe9IvCiLgGv29mGNwz+9zmJb6Pyda34hStVUNxcqZ' +
'zIoxoo5UE7CxURzqW8LxdivToxmUOrhly2Xn3rdLYjnZ6Y3NQSkjW' +
'U3dp2u4VIpeEcwBMsFM6yWw/9LoEPvNZBFikcyDSgQboYjHUS0IAU' +
'qxrKF4oASXyzMdJRxKrpPTEVSGWnnYkVsgWceNJrPSMEiCyMP557B' +
'60nU5FaTfCWzGb+1uKl43JSXjxEC6kIpa9JYTGEofh/ekt/vlSBRJ' +
'Eg+FD8cbR1kLl97eLxNcgCu503DzKehNCDW1KfPbFkN7es/Q23Q+Q' +
'9aGWNl5vLn/3p+MZAJFTYzYehXArlMmgkJKhMIBbQRWL+9j6kWia0' +
'4Dezdw/dvTs3SYhXFhfcpAzCtlokeZcXF8xXm0636KskKOpLcg3kQ' +
'p160KAehGYDhZrEBYqVyJsVJqWYyKxL6jM4n5pQHdHAyucLvljEla' +
'Z94h9TkF//IGM1s8huO0lwwHRaW9arjRSFkyT17cUFPFJAFKaxM8l' +
'2p1tCpMYG3iYqSVs21qqRiveOnDW1auiGSmVsopbCgJYyKd6piVzm' +
'MLh24xLoHTQzuBXGjR++QUtt3DR/2ICozp0+ga72YjN5f5EmFJ9f5' +
'3LrUPvt65dWFj+wDrY8scBkV+ffPeF2t3FV+JkY1YmOt4NwWy+uQ2' +
'+AiZqW4p2aPEoWimRAwkTo5bNrvpiHpBulL25++r69v5UOBsmrhJJ' +
'INiYRxMaRRvt4qXvktmO8faaQPlhrS1fuLf8Z7x1KxHfMX7Ar1lkv' +
'AZUooRwppVgpBWI+kEr9/a1AItJCoWCz995IIv+PqyS+z79JSiI17' +
'JJSAxLorVUoc/VXrZ47/Tshv243M4CPNlaKkZRD1JjN5TeuarlV4q' +
'SbjZWC/vzvEDAwDpoPk7L81utX4/qC9XLD6+Tob/+3kd8m9SpVC1I' +
'bfLqdXFr5IeYp/i+hZEnlWKXvLF1Ot5w/c5LLroJAhGDuF4AZaPI=' +
'');
end;
procedure FindBmps;
begin
FindBitmap(Fuel,Fuelx,Fuely);
FindBitmap(Flame,Flamex,Flamey);
FindBitmap(Heat,Heatx,Heaty);
FindBitmap(Progress,Progressx,Progressy);
FindBitmap(Stoke,Stokex,Stokey);
FindBitmap(MakeBarrel,MakeBarrelX,MakeBarrelY);
end;

//Tick Counting functions, Perform all the code to convert
//blue/red bars to something we can work with easily

Function ReturnFuel: Integer;
begin
Ticks:= CountBitmapTolerance(Tick,Fuelx + 28 ,Fuely - 4, Fuelx + 154,Fuely + 11,2);
if (Ticks = 0) then
begin
Result:= 0;
end;
if (Ticks = 3) then
begin
Result:= 1;
end;
if (Ticks = 10) then
begin
Result:= 2;
end;
if (Ticks = 16) then
begin
Result:= 3;
end;
if (Ticks = 22) then
begin
Result:= 4;
end;
if (Ticks = 28) then
begin;
Result:= 5;
end;
if (Ticks = 35) then
begin;
Result:= 6;
end;
if (Ticks = 41) then
begin;
Result:= 7;
if (Ticks >= 42) then
Result:= 8;
end;
end;

Function ReturnFlame: Integer;
begin
Ticks:= CountBitMapTolerance(Tick,Flamex + 38, Flamey - 4,Flamex + 162,Flamey + 11,3);
Result:= Ticks;
end;

Function ReturnHeat: Integer;
begin
if((CountBitMapTolerance(RedTick,Heatx + 31, Heaty - 4,Heatx + 155,Heaty + 11,3)) <= 0) then
begin
Ticks:= CountBitMapTolerance(Tick,Heatx + 31, Heaty - 4,Heatx + 155,Heaty + 11,3);
Result:= Ticks;
end else
Ticks:= CountBitMapTolerance(RedTick,Heatx + 31, Heaty - 4,Heatx + 155,Heaty + 11,3);
Result:= Ticks;
end;

Function ReturnProgress: Integer;
begin
Ticks:= CountBitMapTolerance(Tick,Progressx + 52, Progressy - 4,Progressx + 176,Progressy + 11,3);
Result:= Ticks;
end;

Function ReturnBarrel: Boolean;
begin
if (CountBitmap(MakeBarrel,0,0,2000,2000) >= 1) then
begin
Result:= True;
end;
if (CountBitmap(MakeBarrel,0,0,2000,2000) <= 0) then
begin
Result:= False;
end;
end;

procedure Setup;
begin
LoadMasks();
FindBmps();
Stop:= False;
end;

procedure Debug;
begin
//i:= i + 1;
ClearDebug();
Writeln('Kins Barrel Monkey Debug Output')
Writeln('/Chat Kinslayer if you have any problems')
Writeln('------------------');
Writeln('FuelLoc ' + IntToStr(Fuelx) + ' ' + IntToStr(Fuely));
Writeln('FlameLoc ' + IntToStr(Flamex) + ' ' + IntToStr(Flamey));
Writeln('HeatLoc ' + IntToStr(Heatx) + ' ' + IntToStr(Heaty));
Writeln('ProgressLoc ' + IntToStr(Progressx) + ' ' + IntToStr(Progressy));
Writeln('StokeLoc ' + IntToStr(Stokex) + ' ' + IntToStr(Stokey));
Writeln('------------------');
Writeln('Fuel: ' + IntToStr(ReturnFuel()));
Writeln('Flame: ' + IntToStr(ReturnFlame()));
Writeln('Heat: ' + IntToStr(ReturnHeat()));
Writeln('Progress: ' + IntToStr(ReturnProgress()));
Writeln('Time: ' + IntToStr(GetTickCount()));
Writeln('Last: ' + LastAction);
Writeln('WoodUsed: ' + IntToStr(WoodUsed));
Writeln('------------------');
end;

Procedure SilentMouseClick(x: Integer; y: Integer; left: boolean);
begin
GetMousePos(SaveX,SaveY);
MoveMouse(x,y);
ClickMouse(x,y,left);
MoveMouse(SaveX,SaveY);
end;

Procedure StokeFire(count: Integer);
begin
for i:= 1 to count do
begin
SilentMouseClick(Stokex,stokey,true);
end;
WoodUsed:= WoodUsed + count;
LastAction:= 'Stoked Fire ' + IntToStr(count) + ' times';
end;

begin
Setup();
LastAction:= 'Setup';
Debug();
if (ReturnBarrel = True) then
begin
SilentMouseClick(MakeBarrelx + 10, MakeBarrely + 3, True);
end;
if (UseFastLane = True) then
begin
StokeFire(7);
sleep(10000);
end;

while(Stop = False) do
begin
Debug();
if (UseActiveScan = True) then
begin
FindBmps();
end;
if (ReturnProgress >= 70) then
begin
AlmostDone:= True;
end;
if (AlmostDone = True) then
begin
if (ReturnProgress = 0) then
begin
if (ReturnFlame = 0) then
begin
Stop:= True
end;
end;
end;
// No fuel
if(ReturnFuel <= 0) then
begin
if (Stop = False) then
begin
if (ReturnFlame >= MaxFlameHeight) then
begin
StokeFire(1);
end;
if (ReturnFlame <= MaxFlameHeight) then
begin
StokeFire(2);
end;
end;
end;
//1 Fuel
if (ReturnFuel = 1) then
begin
if (Stop = False) then
begin
if (ReturnFlame >= MaxFlameHeight) then
begin
LastAction:= 'Fire Hot. Waiting';
end;
if (ReturnFlame <= MaxFlameHeight) then
begin
StokeFire(1);
end;
end;
end;
//2 Fuel
if (ReturnFuel = 2 ) then
begin
if (Stop = False) then
begin
LastAction:= 'Lots of fuel, waiting';
end;
end;
Sleep(CheckTime);
end;
end.
</pre>

User:Kinslayer/MacrosNeedsFixing

2009-09-04T08:07:13Z

Kinslayer:

Cooperage

2009-09-02T03:11:30Z

Kinslayer:

Cooperage is the craft of barrel making. The Cooperage skill allows you to construct a [[Barrel Vise]] and to use it to create [[Small Barrels]].

==Tuition cost==

*2 [[requires::Brass Plate]]
*50 [[requires::Copper Straps]]
*100 [[requires::Boards]]
*You also need to have learned [[requires::Advanced Metallurgy]] first.
*School: Body

This skill has multiple levels (7) to it like Stone Blade Fabrication and Sheet Glass.
Exact gains per level of skill are still currently unknown.

{{RequiredBy}}

[[Category:Skills]]

Talk:Small Barrels

2009-09-02T00:44:47Z

Kinslayer: New page: This should be merged with Small Barrel

This should be merged with [[Small Barrel]]

Events/RareMovesAcro

2009-08-31T22:48:39Z

Kinslayer:

=Rare Moves Acro Line=

==What This Is==

This is an acro line designed to teach the rarer moves (see the list below) and get more teachers of them. There will be an acro-blob near the line for those than want to acro generally too.

==When This Is==

Sunday March 15th, starting 4 pm GMT (noon EST). It's an all day event, so turn up at some point in your timezone.

==Where This Is==

Shabbat Ab UArt.

==The Moves==
The most important part. For the purpose of this line only, rare moves are (in order of current 'rarity'):

* Cartwheel
* Crunches
* Handstand
* Pinwheel
* Pushups
* Windmill

==Additional Info==

'''There is only one line. Each station has a teacher of 1 or more Rare moves. Only the Rare moves listed will be taught in this Acro Line. Students will spend a maximum of three minutes with a teacher, and display their rarest move.'''

<s>A New teacher of a Rare move joining the line will start at the begining of the waiting queue to allow them to join the teachers to benefit all waiting students.</s> Stricken, [[User:Tlanthil|tlanthil]]. Okay in theory, and for small lines when the moves are very rare, but impractical when there are more than a couple of people who will qualify.

Upon reaching the end of the line, teachers of Rare moves may take up the next station.

Students completing the line that cannot teach a Rare move may return to the end of the waiting queue and go through again to Acro with new teachers that may have joined the line, join an acro blob, return home, etc (the only limitation is that each station must have someone who can teach the rare moves).

Students and teachers should cooperate to keep this line moving since only limited Rare moves are being taught. Please move along when a move is called in regional, even if the next station is not yet vacant (because then it soon will be).

Please bring herbs/hookahs for the teachers. Give people a reason to stay there when there are no students/teachers.

There will also be an '''Acro-Blob''' around when numbers are enough (no control on that, total free for all).

==Teachers==

Please place your name under the move if you know it. Anyone who is close to one of these moves (5/7 or 6/7 ish) please try and contact a teacher and learn it by the. The more the merrier.

===Cartwheel===
* Aghor
* Ar
* Astrina
* Aubery
* Daninicholls
* Forgaras
* Hanid
* JCC
* LeFaye
* MAMteles
* Niut
* Rabble
* Shaha
* Shalimar
* Traboh
* Zildjan
* Nori
* heplotep (tentative)
* Beyyla
* Veldon
* Xasis
* Nissim
* Keko
* Torns

===Crunches===
* AliceBlue
* Astrina
* JCC
* Nemoder
* Pascalito
* Fadenra
* Amhur
* Jadzi
* Tjutenkamen
* Aiko
* Kric
* merek
* Mariamom
* Xasis
* torns
* Zintwana
* Rosenfeuer
* Nissim
* Wyked
* Xspell
* Carrera
* Thance
* Zapster
* Ephemere
* TheMazeEcho
* Keko
* Inkoaten
* Sharae
* Osre

===Handstand===
* AliceBlue
* Astrina
* Bluegrass
* Carrera
* Hilly
* JCC
* Jonatan
* Keko
* Logosmaid
* Merek
* Nissim
* Sefired
* Tjutenkamen
* Wyked
* Xasis

===Windmill===
* AliceBlue
* Astrina
* JCC
* Lithare
* Pascalito
* Rabble
* Phebein
* Amhur
* Tjutenkamen
* Bunnita
* merek
* TheMazeEcho
* Saicosis
* Carrera
* Xasis
* Tedra
* Dreasimy
* Keko
* Torns

===Pinwheel===
* AliceBlue
* Amhur
* Astrina
* Booklegger
* Daermon
* Ephemere
* Fadenra
* Golden
* Gumby
* Keko
* JCC
* Lucasdo
* Pascalito
* TheMazeEcho
* Tjutenkamen
* Wyked (tentative)
* Xasis
* Orrin
* Torns
* Osre
* Kinslayer

===Pushups===
* Astrina
* JCC
* Nemoder
* Orrin
* Rabble
* Zipporah
* Fadenra
* Herat
* Hekatef
* Steus
* AliceBlue
* Tjutenkamen
* Duskheart
* Reyzer (tentative)
* Torns
* Carrera
* Neophant
* Inkoaten
* Xasis
* Nissim
* Keko

===Jumping Jacks===
* AliceBlue
* Astrina
* JCC
* Rabble
* Rodent
* Wyked
* Fadenra
* Khaemwaset
* Amhur
* Tjutenkamen
* merek
* Xasis
* Shaha
* torns
* Zintwana
* Chart
* Carrera
* Ralomein
* Ptahiah
* Ephemere
* TheMazeEcho
* Nissim
* Keko
* Inkoaten
* Orrin
* Osre

===Squats===
* AliceBlue
* Astrina
* Atma
* Choltai
* Interman
* JCC
* Lyo
* Pascalito
* Rabble
* Wyked (tentative)
* Tjutenkamen
* merek
* Vulpine
* Shaha
* torns
* Nissim
* Carrera
* Ephemere
* Xasis
* Zintwana
* Zapster
* Keko
* Xirxx

===Inverted Pushups===
* AliceBlue
* Astrina
* JCC
* Nemoder
* Rabble
* Rodent
* Fadenra
* Karat
* Amhur
* merek
* Xasis
* Xaxyx
* TheMazeEcho
* Vulpine
* Rena
* torns
* Rosenfeuer
* Wyked
* Carrera
* Inkoaten
* Ephemere
* Nissim
* Keko

===Run in Place===
* AliceBlue
* Astrina
* Interman
* JCC
* Nemoder
* Wyked
* Fadenra
* Lucasdo
* Inkoaten
* Amhur
* Tjutenkamen
* Kric
* merek
* Xasis
* TheMazeEcho
* Niut
* torns
* Zintwana
* Rosenfeuer
* Nissim
* Chart
* Carrera
* Zapster
* Ephemere
* Keko
* Orrin
* Osre

Macros

2009-08-31T19:30:52Z

Kinslayer:

==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.

===Bourbon's Macros===
:[[User:Bourbon/Macros/thermo|Thermometers]]

===Corran's Macros===
:[[User:Corrans/macros|Corrans AC Tool Macros]]

===eNTi's Macros===
:[[ENTi/Linux macros (xautomation)]]

===Galagah's Macros===
:[[User:Galagah| ACTool Macro - Grass]]
:[[User:Galagah| ACTool - CC hearth Macro ( Anka's from T3 set to now work on 1680x1050 resolution )]]

===Iggy's Macros===
:[[Macros/Iggys|Iggy's AutoHotKey Macros]]
::[[Macros/Iggys/Gather|Clay, Grass & Slate Macro]]
::[[Macros/Iggys/Flax|Flax Macro]]
::[[Macros/Iggys/Misc/Clicker|Clicking Macro]]

===Lucasdo's Macros===
:[[Macro/Lucasdo/Slate|Slate Macro]]
:[[Macro/Lucasdo/Flax|Flax Macro]]
:[[Macro/Lucasdo/Grass|Grass Macro]]
:[[Macro/Lucasdo/Timer|Timer Click]]

===Mosaic Guilds' Macros===
::Uses AC Tool
:[[Aluminum_Macro|Aluminum Macro]]
:[[Copper_macroOE|Copper Macro]]
:[[Iron_macro|Iron Macro]]
:[[Lead_Macro|Lead Macro]]
:[[Silver_Macro|Silver Macro]]
:[[Tin_macro|Tin Macro]]
:[[Titanium Macro]]
:[[Zinc_macro|Zinc Macro]]

::Uses AHK
:[[AHKAluminum|Aluminum Macro]]
:[[Antimony_macro| Antimony Macro]]
:[[AHKCopper|Copper Macro]]
:[[AHKIron|Iron Macro]]
:[[AHKSilver|Silver Macro]]
:[[AHKTin|Tin Macro]]
:[[AHKTungsten|Tungsten Macro]]
:[[AHKZinc|Zinc Macro]]

===Oni's Macros (ACTool)===
*[[User:Oni| "Macroing for Dummies" guide using ACTool]]
*[[User:Oni| Carpentry Blade Macro]] NOW with 1024x768 Version!
*[[User:Oni| Onion Macro]]
*[[User:Oni| Anka's CC Hearth Macro (does up to 8, 1024x768 - From T3 but works fine in T4).]]

===Pazifist's Macros===
:[[User:Pazifist\Macro|Charcoal Hearth Macro]]

===Rogarian's Macros (Windows Executables)===
:[http://nemesis2.qx.net/pages/ATITD R-Cubed and O'-Niner Miner (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.
* O'-Niner Miner will assist or automatically work all mine types.
** "It's stupdenous!" ~Traak

===Selune's Macros===
:[[User:Selune/Macros|Selune's Mining & Flax Macros]]

===ShuoftheFieryHeat's Macros===

: [http://www.atitd.org/wiki/tale4/User:Shuofthefieryheat/MyUtilitiesPage/Shu_Enhanced_Clicker Shu Enhanced Clicker Macro]
: This macro clicks a location and monitors for Red and Green Status. It has a Counter with Count Update and Click Delay setting.

: [http://www.atitd.org/wiki/tale4/User:Shuofthefieryheat/MyUtilitiesPage/Shu_Repeat_Clicker Shu Repeat Clicker Macro]
: This macro clicks a location and has a Click Delay setting

===Sithid's Macros===
:[[User:Sithid/Macros/AutoIT| Sithid's AutoIT Macros]]

=== [[user:Eldrad | Eldrad]] (Java) ===
:A [[user:Eldrad/Macros|Mining macro]] which works on any operating system.

===Viscis' ACTools Macros===
:[[User:Viscis#Flint|Flint]]
:[[User:Viscis#Grass|Grass]]
:[[User:Viscis#Wood|Wood]]
:[[User:Viscis#Limestone|Limestone]]
:[[User:Viscis#Flax|Flax (Plating/Seeding/Harvesting)]]

===Macros from Adn Residents===
:[[User:Gemstar#Barley|Barley from Bellamoon]]
:[[User:Gemstar#IconGather|Icon Gather for Grass, Clay, Slate]]

=== [[user:kibble|kibble's]] (ACTools) ===
{{:user:kibble/Macros}}

=== [[user:docsaintly|Doc's]] (AutoHotKey) ===

=== Menhotep's Macros (ACTool) ===
:[[user:Menhotep/macros|Any # of Woodplanes 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
|}
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

I love actool because it's the best out of all of them. - Soak

Actool does not seem to work on vista 32 bit - goes mad... - daninicholls

ACTool works fine on vista 64 bit on my machine - could be our different setups - [[User:AnarchyRising|AnarchyRising]] 07:05, 14 January 2009 (EST)

Im having trouble as well with ACtool on Vista 32bit - LOKY

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.--[[User:Kinslayer|Kinslayer]] 08:32, 29 August 2009 (EST)

Talk:Macros

2009-08-31T19:28:40Z

Kinslayer:

==== Confessions of a Frustrated Macro User ====

I'm using more macros in T4 than I did in T3. All the macros are from these donations. However, some of them do not run correctly on the first go. I found out that my monitor is (evidently) not exactly the same dimensions as noted in the macros. And while my hardware may say 1680 x 1050 it's not '''the precisely like one listed in the macro info text'''. Hikahi suggested that I check the location/positions needed for the CC Macro from Galagah's contribution.

So, here's some tips if you are a macro ''"no-know-how"''.

* Get the AutoIt program. This has a handly screen position reader called AutoIt v3 Window Info. This tool will stay on top of the screen you are trying to measure and you can use CTRL+ALT+F to "freeze" the position you are measuring, so you can write it down.

* You want to measure the CLIENT, not the screen or the window. This is set in the Coord Mode option.

* The famous I don't know "Y" - Smaller Numbers->Larger Number go from Top to Bottom of the screen. So 74 is farther DOWN the Screen than 64. (I know - I didn't invent this)

Once you get everything measured - you gotta find the RIGHT SPOT in the macro to put it. In Galagah's Anka's CC macro these are lines that I needed to adjust cause my screen is just "off".

// Original Y Coordinates - Don't change unless you are having a problem.
// RegY = 74 // Y coord for Regulator button
// BeginY = 245 // Y coord for Begin Button
// HeatY = 156 // Y coord for Heat Bar
// WoodY = 180 // Y coord for Wood Bar
// WaterY = 192 // Y coord for Water Bar
// DangerY = 204 // Y coord for Danger Bar
// StatusY = 216 // Y coord for Status Bar
// WoodBY = 250 // Y coord for Wood and Water buttons

// These are what I had to change them too
// RegY = 68 // Y coord for Regulator button
// BeginY = 234 // Y coord for Begin Button
// HeatY = 149 // Y coord for Heat Bar
// WoodY = 173 // Y coord for Wood Bar
// WaterY = 184 // Y coord for Water Bar
// DangerY = 198 // Y coord for Danger Bar
// StatusY = 209 // Y coord for Status Bar
// WoodBY = 243 // Y coord for Wood and Water buttons

I made one other change that made the macro (seem) to run better. I changed the heat value from 165 to 175. You can do this is the form that pops up when you run the macro or you can make the change permanent in the macro file itself. FWIW - I don't really know what this setting does - but I burn up fewer loads with this setting.

ed3=Editbox:Heat (75-188):175

And one more piece of un-needed advice. To run this macro you have to be on a tranquilizers, cause it will look like the whole load is gonna incenerate every second. Take 10 deep breaths and the macro will recover (most of the time).

And lastly I am '''VERY VERY GRATEFUL''' to all the folks that donated macros to T4! This has really extended my ability to play with out having to visit a hand-surgeon because of all the clicking need!

'''''ShuoftheFieryHeat bows to all the Macro Masters!'''''

--[[User:Shuofthefieryheat|ShuoftheFieryHeat]] 00:54, 10 February 2009 (EST)

=== The most common reason that the macros won't work, is due to the fact that the window frame in Vista/Windows (I don't believe this applies to XP) changes size by about 10px depending on whether or not the windows is maximized or not. ===
--[[User:Kinslayer|Kinslayer]] 14:28, 31 August 2009 (EST)

Talk:Macros

2009-08-31T19:27:36Z

Kinslayer:

==== Confessions of a Frustrated Macro User ====

I'm using more macros in T4 than I did in T3. All the macros are from these donations. However, some of them do not run correctly on the first go. I found out that my monitor is (evidently) not exactly the same dimensions as noted in the macros. And while my hardware may say 1680 x 1050 it's not '''the precisely like one listed in the macro info text'''. Hikahi suggested that I check the location/positions needed for the CC Macro from Galagah's contribution.

So, here's some tips if you are a macro ''"no-know-how"''.

* Get the AutoIt program. This has a handly screen position reader called AutoIt v3 Window Info. This tool will stay on top of the screen you are trying to measure and you can use CTRL+ALT+F to "freeze" the position you are measuring, so you can write it down.

* You want to measure the CLIENT, not the screen or the window. This is set in the Coord Mode option.

* The famous I don't know "Y" - Smaller Numbers->Larger Number go from Top to Bottom of the screen. So 74 is farther DOWN the Screen than 64. (I know - I didn't invent this)

Once you get everything measured - you gotta find the RIGHT SPOT in the macro to put it. In Galagah's Anka's CC macro these are lines that I needed to adjust cause my screen is just "off".

// Original Y Coordinates - Don't change unless you are having a problem.
// RegY = 74 // Y coord for Regulator button
// BeginY = 245 // Y coord for Begin Button
// HeatY = 156 // Y coord for Heat Bar
// WoodY = 180 // Y coord for Wood Bar
// WaterY = 192 // Y coord for Water Bar
// DangerY = 204 // Y coord for Danger Bar
// StatusY = 216 // Y coord for Status Bar
// WoodBY = 250 // Y coord for Wood and Water buttons

// These are what I had to change them too
// RegY = 68 // Y coord for Regulator button
// BeginY = 234 // Y coord for Begin Button
// HeatY = 149 // Y coord for Heat Bar
// WoodY = 173 // Y coord for Wood Bar
// WaterY = 184 // Y coord for Water Bar
// DangerY = 198 // Y coord for Danger Bar
// StatusY = 209 // Y coord for Status Bar
// WoodBY = 243 // Y coord for Wood and Water buttons

I made one other change that made the macro (seem) to run better. I changed the heat value from 165 to 175. You can do this is the form that pops up when you run the macro or you can make the change permanent in the macro file itself. FWIW - I don't really know what this setting does - but I burn up fewer loads with this setting.

ed3=Editbox:Heat (75-188):175

And one more piece of un-needed advice. To run this macro you have to be on a tranquilizers, cause it will look like the whole load is gonna incenerate every second. Take 10 deep breaths and the macro will recover (most of the time).

And lastly I am '''VERY VERY GRATEFUL''' to all the folks that donated macros to T4! This has really extended my ability to play with out having to visit a hand-surgeon because of all the clicking need!

'''''ShuoftheFieryHeat bows to all the Macro Masters!'''''

--[[User:Shuofthefieryheat|ShuoftheFieryHeat]] 00:54, 10 February 2009 (EST)

'''The most common reason that the macros won't work, is due to the fact that the window frame in Vista/Windows (I don't believe this applies to XP) changes size by about 10px depending on whether or not the windows is maximized or not.''' --[[User:Kinslayer|Kinslayer]] 14:27, 31 August 2009 (EST)

User:Kinslayer/Macros/Charcoal1440x900

2009-08-29T15:27:35Z

Kinslayer:

'''Anka/Galagah's Charcoal Hearth Macro for 1440x900 Resolutions'''
<pre>
//Charcoal Hearth
// 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)
//
// Setup: I've added a setup routine to the macro. Pin the windows on top of each
// other in the top left corner. I suggest at least 200 wood per hearth
// and about 15 water per hearth to be safe. All hearths are slightly
// different but I suggest that you put your fastest burning hearths first
// in line. You can tweak the settings in the built in menu.
//
// Hearths: Total number of hearths you are running.
// Hearths Across: How many Hearths on the top row of windows. Make sure
// you set this each time even if you are running 1 hearth.
// Variables in the macro are set off of this number.
// Guilded?: Check this box if you are using guilded hearths.
// Need Setup?: Check this box if you need the macro to position your
// windows that are stacked in top left corner. This is
// usefull if you run another round on the hearths and your
// windows are set up already. Check if needed or not.
// Stealth Mouse: Check this if you don't want to see the mouse move around
// on the hearth windows. When checked, it will save your
// mouse position, move to the spot it needs, perform its
// action then return the pointer to where it started. Alows
// you to change chat windows are dig in chest while the
// macro is running :)
// Heat: Threshold for Heat bar, increase or decrease as needed. If heat
// reaches this lvl, water will be added.
// Wood: Wood threshold, adds wood up to this point.
// Water: Alowable water level, not much play here. If the water lvl is above
// this lvl, water will not be added. Prevents drowning the hearth.
// RGBGreen: Used to detect completion bar. If the macro adds a bunch of water
// before the macro is done then moves to the next hearth, increase
// this number. Or lower it if it doesnt see green.
// RGBBlue: Works just like RGBGreen but for blue bars. If the macro keeps
// adding wood till the hearth is full, it's not seeing blue. If
// this happens, lower this number. Other problem may be that the
// mouse pointer is not lining up over the bar correctly. Run the
// Mouse Test.
// Check Bars Interval: This is the pause time between bar checks. The
// default value of 4000 works well for 1-8 hearths
// but you may need to decrease this number if you
// are running more than 8.
// Mouse Test: This is to test if the mouse pointer is lining up correctly
// with your windows. Run 1 hearth manually and start the macro
// with this option checked. You don't need to worry about any
// other option. It will move over the Heat, Wood, Water, Danger,
// and Status bar then over the Wood and Water buttons 10 times
// before it stops. If these positions are off a bit, you can
// change the Y coordinates below in the constants section.
//
// The macro doesn't watch Oxygen. I was going to add a vent option but this
// macro runs very well and never fails for me. If your oxygen is getting too
// high, try adding more wood. But, by adding more wood, you add more heat
// which may require you adding more water. A small amount of water in the
// presence of heat evaporates producing more Oxygen. :) Find the balance
// you want.
//
// ENJOY! :)
// Anka
//
Constants
//User Definable variables
Hearths = 4
HeatX = 165
WoodX = 107
WaterX = 76
DangerX = 165
RGBBlue = 220
RGBGreen = 240
Guild = 1

// Y Coordinates - Don't change unless you are having a problem.
RegY = 70 // Y coord for Regulator button
BeginY = 240 // Y coord for Begin Button
HeatY = 151 // Y coord for Heat Bar
WoodY = 176 // Y coord for Wood Bar
WaterY = 189 // Y coord for Water Bar
DangerY = 201 // Y coord for Danger Bar
StatusY = 212 // Y coord for Status Bar
WoodBY = 245 // Y coord for Wood and Water buttons
//End User variables

Hrow = 0
Hrow1 = 0
AddX = 226
Add2X = 15
Add1Y = 65
Add2Y = 17
Add3Y = 250
RegX = 47
BeginX = 111
NewX = 0
New2X = 0
New2Y = 0
NewY = 0
Heat = 0
Wood = 0
Water = 0
Danger = 0
Status = 0
OxyY = 168
StatusX = 167
WoodBX = 35
WaterBX = 85
Num = 0
Jump = 5
JumpM = 0
Jumped = 0
Used = 0
MDelay = 250
SDelay = 200
S1Delay = 100
Count = 0
CountM = 0
MouseX = 0
MouseY = 0
CheckDelay = 0
Setup = 0
SetX = 10
SetY = 40
SetAddX = 227
SetAddY = 250
SetLoop = 0
Mouse = 1
OrigX = 0
OrigY = 0
End

Form ccHearth, Settings
ed1=Combobox:Hearths:1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
ed13=Editbox:Hearths Across:4
ed2=CheckBox:Guilded?:True
ed14=Checkbox:Need Setup?:True
ed15=Checkbox:Stealth Mouse:True
ed3=Editbox:Heat (75-188):165
//ed10=Editbox:HeatMin (75-188):116
//ed11=Editbox:HeatMax (75-188):184
//ed4=Editbox:Low Oxy (75-188):82
//ed5=Editbox:High Oxy (75-188):134
ed6=Editbox:Wood (75-188):107
ed7=Editbox:Water (75-188):76
ed8=Editbox:RGBGreen:240
ed9=Editbox:RGBBlue:220
ed12=Editbox:Check Bars Interval (miliseconds):4000
ed16=Checkbox:Mouse Check:False
end

FormLoad ccHearth, ccHearth.frm

if ShowForm ccHearth
SetConst Hearths = ccHearth[ed1]
If ccHearth[ed2] = True
SetConst Guild = 1
Else
SetConst Guild = 0
End
SetConst HeatX = ccHearth[ed3]
//SetConst Oxy1X = ccHearth[ed4]
//SetConst Oxy2X = ccHearth[ed5]
SetConst WoodX = ccHearth[ed6]
SetConst WaterX = ccHearth[ed7]
SetConst RGBGreen = ccHearth[ed8]
SetConst RGBBlue = ccHearth[ed9]
//SetConst HeatMin = ccHearth[ed10]
//SetConst HeatMax = ccHearth[ed11]
SetConst CheckDelay = ccHearth[ed12]
Set HRow = ccHearth[ed13]
Compute SetLoop = $Hearths - 1
Compute HRow1 = $Hrow + 1
If ccHearth[ed15] = True
Set Mouse = 0
End
else
Stop
end

FormSave ccHearth, ccHearth.frm

MousePos 100, 20 //Activates eGenesis window.. Don't run ACTool maximized.
Delay $MDelay
LeftClick
Delay 2000

If $Guild = 1
Call Guild
End
if ccHearth[ed16] = True
Call HearthTest
End
If ccHearth[ed14] = True
Call Setup
End

Call SetReg
SetConst NewX = $BeginX
SetConst NewY = $BeginY
SetConst Count = 1
Loop $Hearths
If $Count = $HRow1 //$Jump
SetConst NewX = $BeginX
Compute NewY = $BeginY + $Add3Y
End
MousePos $NewX, $NewY
Delay $MDelay
Rightclick
Delay $MDelay
Compute NewX = $NewX + $AddX
Compute Count = $Count + 1
End
SetConst NewX = $BeginX //Dont remember why this is here :)
Call Main

Procedure Setup
Set NewX = $SetX
Set NewY = $SetY
Loop $SetLoop
Mousepos $SetX, $SetY
if {loopno} = $HRow
Set NewX = $SetX
Compute NewY = $SetY + $SetAddY
else
Compute NewX = $NewX + $SetAddX
End
Dragto $NewX, $NewY
End
End

Procedure Main
SetConst CountM = 1
SetConst Status = 0
Compute JumpM = $HRow1 - 1 //$Jump - 1
Loop $Hearths
If $CountM = $HRow1 //$Jump
// may have to use New Newx and newy variables in Main
SetConst NewX = $StatusX
Compute NewY = $StatusY + $Add3Y
SetConst New2X = $WaterBX
Compute New2Y = $WoodBY + $Add3Y
End

While $Status = 0
Call CheckBars
If $Status = 1
Call Snuff
//code to advance to next hearth
Compute Used = $Used + 1
If $Used = $JumpM
Compute HeatX = $HeatX - (($Used - 1) * $AddX)
Compute HeatY = $HeatY + $Add3Y
Compute WoodX = $WoodX - (($Used - 1) * $AddX)
Compute WoodY = $WoodY + $Add3Y
Compute WaterX = $WaterX - (($Used - 1) * $AddX)
Compute WaterY = $WaterY + $Add3Y
Compute DangerX = $DangerX - (($Used - 1) * $AddX)
Compute DangerY = $DangerY + $Add3Y
Compute StatusX = $StatusX - (($Used - 1) * $AddX)
Compute StatusY = $StatusY + $Add3Y
//Compute WaterBX = $WaterBX - (($Used -1) * $AddX)
//Compute WoodBX = $WoodBX - (($Used - 1 ) * $AddX)
//Compute WoodBY = $WoodBY + $Add3Y
SetConst Jumped = 1
Continue
Else
Compute HeatX = $HeatX + $AddX
Compute WoodX = $WoodX + $AddX
Compute WaterX = $WaterX + $AddX
Compute DangerX = $DangerX + $AddX
Compute StatusX = $StatusX + $AddX
//Compute WaterBX = $WaterBX + $AddX
//Compute WoodBX = $WoodBX + $AddX
End
Continue
End
If $Heat = 0 and $Danger = 0 and $Wood = 0
Call Wood
Else
If $Heat = 1 or $Danger = 1
If $Water = 0
Call Water
End
End
End

Delay $CheckDelay
End
Compute CountM = $CountM + 1
SetConst Status = 0
End
End

Procedure CheckBars
If $Mouse = 1
MousePos $HeatX, $HeatY
Delay $SDelay
end
LoadRGB $HeatX, $HeatY
if {RGBBlue} > $RGBBlue
SetConst Heat = 1
Else
SetConst Heat = 0
End
If $Mouse = 1
MousePos $WoodX, $WoodY
Delay $S1Delay
end
LoadRGB $WoodX, $WoodY
if {RGBBlue} > $RGBBlue
SetConst Wood = 1
Else
SetConst Wood = 0
End
If $Mouse = 1
MousePos $WaterX, $WaterY
Delay $S1Delay
End
LoadRGB $WaterX, $WaterY
if {RGBBlue} > $RGBBlue
SetConst Water = 1
Else
SetConst Water = 0
End
If $Mouse = 1
MousePos $DangerX, $DangerY
Delay $S1Delay
End
LoadRGB $DangerX, $DangerY
if {RGBBlue} > $RGBBlue
SetConst Danger = 1
Else
SetConst Danger = 0
End
If $Mouse = 1
MousePos $StatusX, $StatusY
End
LoadRGB $StatusX, $StatusY
if {RGBGreen} > $RGBGreen
SetConst Status = 1
Else
SetConst Status = 0
End
End

Procedure Water
SetConst NewX = $WaterBX
SetConst NewY = $WoodBY
Loop $Hearths
IF {loopno} = $HRow1 //$Jump
SetConst NewX = $WaterBX
Compute NewY = $WoodBY + $Add3Y
End
If {loopno} > $Used
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $NewX, $NewY
Delay $SDelay
Rightclick
Delay $SDelay
If $Mouse = 0
Mousepos $OrigX, $OrigY
End
End
Compute NewX = $NewX + $AddX
End
SetConst NewX = $WaterBX
End

Procedure Snuff
SetConst New2X = $WaterBX
SetConst New2Y = $WoodBY
Compute Num = $Used + 1
Loop $Hearths
IF {loopno} = $Hrow1 //$Jump
SetConst New2X = $WaterBX
Compute New2Y = $WoodBY + $Add3Y
End
If {loopno} = $Num
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $New2X, $New2Y
Loop 8
Rightclick
End
If $Mouse = 0
Mousepos $OrigX, $OrigY
End
End
Compute New2X = $New2X + $AddX
End
End

Procedure Wood
SetConst NewX = $WoodBX
SetConst NewY = $WoodBY
Loop $Hearths
IF {loopno} = $HRow1 //$Jump
SetConst NewX = $WoodBX
Compute NewY = $WoodBY + $Add3Y
End
If {loopno} > $Used
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $NewX, $NewY
Delay $SDelay
Rightclick
Delay $SDelay
If $Mouse = 0
MousePos $OrigX, $OrigY
End
End
Compute NewX = $NewX + $AddX
End
SetConst NewX = $WoodBX
End

Procedure SetReg
SetConst NewX = $RegX
SetConst Count = 1
Loop $Hearths
If $Count = $HRow1
SetConst NewX = $RegX
Compute RegY = $RegY + $Add3Y
End
MousePos $NewX, $RegY
Delay $MDelay
Rightclick
Compute NewX = $NewX + $Add2X
If $Count > $HRow
Compute NewY = $RegY + $Add2Y
else
Compute NewY = $RegY + $Add1Y
end
MousePos $NewX, $NewY
Delay $MDelay
Rightclick
Delay $MDelay
Compute NewX = $NewX + $AddX
Compute Count = $Count + 1
End
SetConst NewX = $RegX
SetConst Count = 1
End

Procedure Guild
Compute BeginX = $BeginX - 7
Compute BeginY = $BeginY + 16
Compute RegY = $RegY + 16
Compute RegX = $RegX - 14
Compute AddX = $AddX - 15
Compute Add3Y = $Add3Y + 16
Compute Add1Y = $Add1Y - 16
Compute WoodBY = $WoodBY + 16
Compute HeatX = $HeatX - 4
Compute HeatY = $HeatY + 16
Compute WoodX = $WoodX - 1
Compute WoodY = $WoodY + 16
Compute WaterY = $WaterY + 16
Compute DangerX = $DangerX - 4
Compute DangerY = $DangerY + 16
Compute StatusX = $StatusX - 5
Compute StatusY = $StatusY + 16
Set SetAddX = 212
Set SetAddY = 266
End

Procedure HearthTest
Loop 10
MousePos $HeatX, $HeatY
Delay 2000

MousePos $WoodX, $WoodY
Delay 2000

MousePos $WaterX, $WaterY
Delay 2000

MousePos $DangerX, $DangerY
Delay 2000

MousePos $StatusX, $StatusY
Delay 2000

MousePos $WoodBX, $WoodBY
Delay 2000

MousePos $WaterBX, $WoodBY
Delay 2000
end
Stop
End
//Written with ACTool 5.3.0 by Anka
Bell Asterisk

</pre>

User:Kinslayer/MacrosNeedsFixing

2009-08-29T15:23:34Z

Kinslayer:

User:Kinslayer/Macros/Charcoal440x900

2009-08-29T15:22:45Z

Kinslayer: User:Kinslayer/Macros/Charcoal440x900 moved to User:Kinslayer/Macros/Charcoal1440x900

#REDIRECT [[User:Kinslayer/Macros/Charcoal1440x900]]

User:Kinslayer/Macros/Charcoal1440x900

2009-08-29T15:22:45Z

Kinslayer: User:Kinslayer/Macros/Charcoal440x900 moved to User:Kinslayer/Macros/Charcoal1440x900

'''Anka/Galagah's Charcoal Hearth Macro for 1440x900 Resolutions'''
<pre>
//Charcoal Hearth
// 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)
//
// Setup: I've added a setup routine to the macro. Pin the windows on top of each
// other in the top left corner. I suggest at least 200 wood per hearth
// and about 15 water per hearth to be safe. All hearths are slightly
// different but I suggest that you put your fastest burning hearths first
// in line. You can tweak the settings in the built in menu.
//
// Hearths: Total number of hearths you are running.
// Hearths Across: How many Hearths on the top row of windows. Make sure
// you set this each time even if you are running 1 hearth.
// Variables in the macro are set off of this number.
// Guilded?: Check this box if you are using guilded hearths.
// Need Setup?: Check this box if you need the macro to position your
// windows that are stacked in top left corner. This is
// usefull if you run another round on the hearths and your
// windows are set up already. Check if needed or not.
// Stealth Mouse: Check this if you don't want to see the mouse move around
// on the hearth windows. When checked, it will save your
// mouse position, move to the spot it needs, perform its
// action then return the pointer to where it started. Alows
// you to change chat windows are dig in chest while the
// macro is running :)
// Heat: Threshold for Heat bar, increase or decrease as needed. If heat
// reaches this lvl, water will be added.
// Wood: Wood threshold, adds wood up to this point.
// Water: Alowable water level, not much play here. If the water lvl is above
// this lvl, water will not be added. Prevents drowning the hearth.
// RGBGreen: Used to detect completion bar. If the macro adds a bunch of water
// before the macro is done then moves to the next hearth, increase
// this number. Or lower it if it doesnt see green.
// RGBBlue: Works just like RGBGreen but for blue bars. If the macro keeps
// adding wood till the hearth is full, it's not seeing blue. If
// this happens, lower this number. Other problem may be that the
// mouse pointer is not lining up over the bar correctly. Run the
// Mouse Test.
// Check Bars Interval: This is the pause time between bar checks. The
// default value of 4000 works well for 1-8 hearths
// but you may need to decrease this number if you
// are running more than 8.
// Mouse Test: This is to test if the mouse pointer is lining up correctly
// with your windows. Run 1 hearth manually and start the macro
// with this option checked. You don't need to worry about any
// other option. It will move over the Heat, Wood, Water, Danger,
// and Status bar then over the Wood and Water buttons 10 times
// before it stops. If these positions are off a bit, you can
// change the Y coordinates below in the constants section.
//
// The macro doesn't watch Oxygen. I was going to add a vent option but this
// macro runs very well and never fails for me. If your oxygen is getting too
// high, try adding more wood. But, by adding more wood, you add more heat
// which may require you adding more water. A small amount of water in the
// presence of heat evaporates producing more Oxygen. :) Find the balance
// you want.
//
// ENJOY! :)
// Anka
//
Constants
//User Definable variables
Hearths = 4
HeatX = 165
WoodX = 107
WaterX = 76
DangerX = 165
RGBBlue = 220
RGBGreen = 240
Guild = 1

// Y Coordinates - Don't change unless you are having a problem.
RegY = 80 // Y coord for Regulator button
BeginY = 265 // Y coord for Begin Button
HeatY = 159 // Y coord for Heat Bar
WoodY = 184 // Y coord for Wood Bar
WaterY = 196 // Y coord for Water Bar
DangerY = 208 // Y coord for Danger Bar
StatusY = 222 // Y coord for Status Bar
WoodBY = 255 // Y coord for Wood and Water buttons
//End User variables

Hrow = 0
Hrow1 = 0
AddX = 226
Add2X = 15
Add1Y = 65
Add2Y = 17
Add3Y = 250
RegX = 47
BeginX = 111
NewX = 0
New2X = 0
New2Y = 0
NewY = 0
Heat = 0
Wood = 0
Water = 0
Danger = 0
Status = 0
OxyY = 168
StatusX = 167
WoodBX = 35
WaterBX = 85
Num = 0
Jump = 5
JumpM = 0
Jumped = 0
Used = 0
MDelay = 250
SDelay = 200
S1Delay = 100
Count = 0
CountM = 0
MouseX = 0
MouseY = 0
CheckDelay = 0
Setup = 0
SetX = 10
SetY = 40
SetAddX = 227
SetAddY = 250
SetLoop = 0
Mouse = 1
OrigX = 0
OrigY = 0
End

Form ccHearth, Settings
ed1=Combobox:Hearths:1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
ed13=Editbox:Hearths Across:4
ed2=CheckBox:Guilded?:True
ed14=Checkbox:Need Setup?:True
ed15=Checkbox:Stealth Mouse:True
ed3=Editbox:Heat (75-188):165
//ed10=Editbox:HeatMin (75-188):116
//ed11=Editbox:HeatMax (75-188):184
//ed4=Editbox:Low Oxy (75-188):82
//ed5=Editbox:High Oxy (75-188):134
ed6=Editbox:Wood (75-188):107
ed7=Editbox:Water (75-188):76
ed8=Editbox:RGBGreen:240
ed9=Editbox:RGBBlue:220
ed12=Editbox:Check Bars Interval (miliseconds):4000
ed16=Checkbox:Mouse Check:False
end

FormLoad ccHearth, ccHearth.frm

if ShowForm ccHearth
SetConst Hearths = ccHearth[ed1]
If ccHearth[ed2] = True
SetConst Guild = 1
Else
SetConst Guild = 0
End
SetConst HeatX = ccHearth[ed3]
//SetConst Oxy1X = ccHearth[ed4]
//SetConst Oxy2X = ccHearth[ed5]
SetConst WoodX = ccHearth[ed6]
SetConst WaterX = ccHearth[ed7]
SetConst RGBGreen = ccHearth[ed8]
SetConst RGBBlue = ccHearth[ed9]
//SetConst HeatMin = ccHearth[ed10]
//SetConst HeatMax = ccHearth[ed11]
SetConst CheckDelay = ccHearth[ed12]
Set HRow = ccHearth[ed13]
Compute SetLoop = $Hearths - 1
Compute HRow1 = $Hrow + 1
If ccHearth[ed15] = True
Set Mouse = 0
End
else
Stop
end

FormSave ccHearth, ccHearth.frm

MousePos 100, 20 //Activates eGenesis window.. Don't run ACTool maximized.
Delay $MDelay
LeftClick
Delay 2000

If $Guild = 1
Call Guild
End
if ccHearth[ed16] = True
Call HearthTest
End
If ccHearth[ed14] = True
Call Setup
End

Call SetReg
SetConst NewX = $BeginX
SetConst NewY = $BeginY
SetConst Count = 1
Loop $Hearths
If $Count = $HRow1 //$Jump
SetConst NewX = $BeginX
Compute NewY = $BeginY + $Add3Y
End
MousePos $NewX, $NewY
Delay $MDelay
Rightclick
Delay $MDelay
Compute NewX = $NewX + $AddX
Compute Count = $Count + 1
End
SetConst NewX = $BeginX //Dont remember why this is here :)
Call Main

Procedure Setup
Set NewX = $SetX
Set NewY = $SetY
Loop $SetLoop
Mousepos $SetX, $SetY
if {loopno} = $HRow
Set NewX = $SetX
Compute NewY = $SetY + $SetAddY
else
Compute NewX = $NewX + $SetAddX
End
Dragto $NewX, $NewY
End
End

Procedure Main
SetConst CountM = 1
SetConst Status = 0
Compute JumpM = $HRow1 - 1 //$Jump - 1
Loop $Hearths
If $CountM = $HRow1 //$Jump
// may have to use New Newx and newy variables in Main
SetConst NewX = $StatusX
Compute NewY = $StatusY + $Add3Y
SetConst New2X = $WaterBX
Compute New2Y = $WoodBY + $Add3Y
End

While $Status = 0
Call CheckBars
If $Status = 1
Call Snuff
//code to advance to next hearth
Compute Used = $Used + 1
If $Used = $JumpM
Compute HeatX = $HeatX - (($Used - 1) * $AddX)
Compute HeatY = $HeatY + $Add3Y
Compute WoodX = $WoodX - (($Used - 1) * $AddX)
Compute WoodY = $WoodY + $Add3Y
Compute WaterX = $WaterX - (($Used - 1) * $AddX)
Compute WaterY = $WaterY + $Add3Y
Compute DangerX = $DangerX - (($Used - 1) * $AddX)
Compute DangerY = $DangerY + $Add3Y
Compute StatusX = $StatusX - (($Used - 1) * $AddX)
Compute StatusY = $StatusY + $Add3Y
//Compute WaterBX = $WaterBX - (($Used -1) * $AddX)
//Compute WoodBX = $WoodBX - (($Used - 1 ) * $AddX)
//Compute WoodBY = $WoodBY + $Add3Y
SetConst Jumped = 1
Continue
Else
Compute HeatX = $HeatX + $AddX
Compute WoodX = $WoodX + $AddX
Compute WaterX = $WaterX + $AddX
Compute DangerX = $DangerX + $AddX
Compute StatusX = $StatusX + $AddX
//Compute WaterBX = $WaterBX + $AddX
//Compute WoodBX = $WoodBX + $AddX
End
Continue
End
If $Heat = 0 and $Danger = 0 and $Wood = 0
Call Wood
Else
If $Heat = 1 or $Danger = 1
If $Water = 0
Call Water
End
End
End

Delay $CheckDelay
End
Compute CountM = $CountM + 1
SetConst Status = 0
End
End

Procedure CheckBars
If $Mouse = 1
MousePos $HeatX, $HeatY
Delay $SDelay
end
LoadRGB $HeatX, $HeatY
if {RGBBlue} > $RGBBlue
SetConst Heat = 1
Else
SetConst Heat = 0
End
If $Mouse = 1
MousePos $WoodX, $WoodY
Delay $S1Delay
end
LoadRGB $WoodX, $WoodY
if {RGBBlue} > $RGBBlue
SetConst Wood = 1
Else
SetConst Wood = 0
End
If $Mouse = 1
MousePos $WaterX, $WaterY
Delay $S1Delay
End
LoadRGB $WaterX, $WaterY
if {RGBBlue} > $RGBBlue
SetConst Water = 1
Else
SetConst Water = 0
End
If $Mouse = 1
MousePos $DangerX, $DangerY
Delay $S1Delay
End
LoadRGB $DangerX, $DangerY
if {RGBBlue} > $RGBBlue
SetConst Danger = 1
Else
SetConst Danger = 0
End
If $Mouse = 1
MousePos $StatusX, $StatusY
End
LoadRGB $StatusX, $StatusY
if {RGBGreen} > $RGBGreen
SetConst Status = 1
Else
SetConst Status = 0
End
End

Procedure Water
SetConst NewX = $WaterBX
SetConst NewY = $WoodBY
Loop $Hearths
IF {loopno} = $HRow1 //$Jump
SetConst NewX = $WaterBX
Compute NewY = $WoodBY + $Add3Y
End
If {loopno} > $Used
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $NewX, $NewY
Delay $SDelay
Rightclick
Delay $SDelay
If $Mouse = 0
Mousepos $OrigX, $OrigY
End
End
Compute NewX = $NewX + $AddX
End
SetConst NewX = $WaterBX
End

Procedure Snuff
SetConst New2X = $WaterBX
SetConst New2Y = $WoodBY
Compute Num = $Used + 1
Loop $Hearths
IF {loopno} = $Hrow1 //$Jump
SetConst New2X = $WaterBX
Compute New2Y = $WoodBY + $Add3Y
End
If {loopno} = $Num
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $New2X, $New2Y
Loop 8
Rightclick
End
If $Mouse = 0
Mousepos $OrigX, $OrigY
End
End
Compute New2X = $New2X + $AddX
End
End

Procedure Wood
SetConst NewX = $WoodBX
SetConst NewY = $WoodBY
Loop $Hearths
IF {loopno} = $HRow1 //$Jump
SetConst NewX = $WoodBX
Compute NewY = $WoodBY + $Add3Y
End
If {loopno} > $Used
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $NewX, $NewY
Delay $SDelay
Rightclick
Delay $SDelay
If $Mouse = 0
MousePos $OrigX, $OrigY
End
End
Compute NewX = $NewX + $AddX
End
SetConst NewX = $WoodBX
End

Procedure SetReg
SetConst NewX = $RegX
SetConst Count = 1
Loop $Hearths
If $Count = $HRow1
SetConst NewX = $RegX
Compute RegY = $RegY + $Add3Y
End
MousePos $NewX, $RegY
Delay $MDelay
Rightclick
Compute NewX = $NewX + $Add2X
If $Count > $HRow
Compute NewY = $RegY + $Add2Y
else
Compute NewY = $RegY + $Add1Y
end
MousePos $NewX, $NewY
Delay $MDelay
Rightclick
Delay $MDelay
Compute NewX = $NewX + $AddX
Compute Count = $Count + 1
End
SetConst NewX = $RegX
SetConst Count = 1
End

Procedure Guild
Compute BeginX = $BeginX - 7
Compute BeginY = $BeginY + 16
Compute RegY = $RegY + 16
Compute RegX = $RegX - 14
Compute AddX = $AddX - 15
Compute Add3Y = $Add3Y + 16
Compute Add1Y = $Add1Y - 16
Compute WoodBY = $WoodBY + 16
Compute HeatX = $HeatX - 4
Compute HeatY = $HeatY + 16
Compute WoodX = $WoodX - 1
Compute WoodY = $WoodY + 16
Compute WaterY = $WaterY + 16
Compute DangerX = $DangerX - 4
Compute DangerY = $DangerY + 16
Compute StatusX = $StatusX - 5
Compute StatusY = $StatusY + 16
Set SetAddX = 212
Set SetAddY = 266
End

Procedure HearthTest
Loop 10
MousePos $HeatX, $HeatY
Delay 2000

MousePos $WoodX, $WoodY
Delay 2000

MousePos $WaterX, $WaterY
Delay 2000

MousePos $DangerX, $DangerY
Delay 2000

MousePos $StatusX, $StatusY
Delay 2000

MousePos $WoodBX, $WoodBY
Delay 2000

MousePos $WaterBX, $WoodBY
Delay 2000
end
Stop
End
//Written with ACTool 5.3.0 by Anka
Bell Asterisk

</pre>

User:Kinslayer/MacrosNeedsFixing

2009-08-29T15:18:42Z

Kinslayer:

== Macros ==
Some ACTool Macros are Resolution/Windows version dependent due to different mouse co-ordinates. Make sure if using Vista/Windows 7 that you make sure the window is maximised.

{| style="color:black;" cellpadding="5" cellspacing="0" border="1"
|+ Macros
! Type !! Name !! O/S !! Resolution !! Download
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows 7 (Vista too?)
| 1440x900 Window Maximised
| [[Media:Charcoal1440x900.mac|Download]]|[[User:Kinslayer/Macros/Charcoal1440x900|View]]
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows XP
| 1920x1200
| [[Download]]|[[User:Kinslayer/Macros/Charcoal1920x1200|View]]
|-
|}

File:Charcoal1440x900.mac

2009-08-29T15:17:27Z

Kinslayer: Anki's Charcoal Hearth Macro for Windows 7 1440x900 (window Maximised)

Anki's Charcoal Hearth Macro for Windows 7 1440x900 (window Maximised)

User:Kinslayer/MacrosNeedsFixing

2009-08-29T15:13:12Z

Kinslayer:

== Macros ==
Some ACTool Macros are Resolution/Windows version dependent due to different mouse co-ordinates. Make sure if using Vista/Windows 7 that you make sure the window is maximised.

{| style="color:black;" cellpadding="5" cellspacing="0" border="1"
|+ Macros
! Type !! Name !! O/S !! Resolution !! Download
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows 7 (Vista too?)
| 1440x900 Window Maximised
|
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows XP
| 1920x1200
|
|-
|}

User:Kinslayer/MacrosNeedsFixing

2009-08-29T14:41:43Z

Kinslayer:

== Macros ==
Some ACTool Macros are Resolution/Windows version dependent due to different mouse co-ordinates. Make sure if using Vista/Windows 7 that you make sure the window is maximised.

{| border='1px'
|+ Macros
! Type !! Name !! O/S !! Resolution !! Download
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows 7 (Vista too?)
| 1440x900 Window Maximised
|
|-
| ACTool
| Galagah/Anki's Charcoal Hearth
| Windows XP
| 1920x1200
|
|-
|}

User:Kinslayer

2009-08-29T14:37:07Z

Kinslayer:

===[[User:Kinslayer/Macros|Macros]]===

User:Kinslayer/MacrosNeedsFixing

2009-08-29T14:16:15Z

Kinslayer: /* ACTool */

== Macros ==

===ACTool===
'''Galagah/Anki Charcoal Hearth Macro Adjusted for 1440x900'''

[[User:Kinslayer/Macros/Charcoal440x900|Download]]

'''Galagah/Anki Charcoal Hearth Macro Adjusted for 1920x1200'''

[[User:Kinslayer/Macros/Charcoal920x1200|Not Yet Complete]]

User:Kinslayer/Macros/Charcoal1440x900

2009-08-29T14:15:43Z

Kinslayer:

'''Anka/Galagah's Charcoal Hearth Macro for 1440x900 Resolutions'''
<pre>
//Charcoal Hearth
// 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)
//
// Setup: I've added a setup routine to the macro. Pin the windows on top of each
// other in the top left corner. I suggest at least 200 wood per hearth
// and about 15 water per hearth to be safe. All hearths are slightly
// different but I suggest that you put your fastest burning hearths first
// in line. You can tweak the settings in the built in menu.
//
// Hearths: Total number of hearths you are running.
// Hearths Across: How many Hearths on the top row of windows. Make sure
// you set this each time even if you are running 1 hearth.
// Variables in the macro are set off of this number.
// Guilded?: Check this box if you are using guilded hearths.
// Need Setup?: Check this box if you need the macro to position your
// windows that are stacked in top left corner. This is
// usefull if you run another round on the hearths and your
// windows are set up already. Check if needed or not.
// Stealth Mouse: Check this if you don't want to see the mouse move around
// on the hearth windows. When checked, it will save your
// mouse position, move to the spot it needs, perform its
// action then return the pointer to where it started. Alows
// you to change chat windows are dig in chest while the
// macro is running :)
// Heat: Threshold for Heat bar, increase or decrease as needed. If heat
// reaches this lvl, water will be added.
// Wood: Wood threshold, adds wood up to this point.
// Water: Alowable water level, not much play here. If the water lvl is above
// this lvl, water will not be added. Prevents drowning the hearth.
// RGBGreen: Used to detect completion bar. If the macro adds a bunch of water
// before the macro is done then moves to the next hearth, increase
// this number. Or lower it if it doesnt see green.
// RGBBlue: Works just like RGBGreen but for blue bars. If the macro keeps
// adding wood till the hearth is full, it's not seeing blue. If
// this happens, lower this number. Other problem may be that the
// mouse pointer is not lining up over the bar correctly. Run the
// Mouse Test.
// Check Bars Interval: This is the pause time between bar checks. The
// default value of 4000 works well for 1-8 hearths
// but you may need to decrease this number if you
// are running more than 8.
// Mouse Test: This is to test if the mouse pointer is lining up correctly
// with your windows. Run 1 hearth manually and start the macro
// with this option checked. You don't need to worry about any
// other option. It will move over the Heat, Wood, Water, Danger,
// and Status bar then over the Wood and Water buttons 10 times
// before it stops. If these positions are off a bit, you can
// change the Y coordinates below in the constants section.
//
// The macro doesn't watch Oxygen. I was going to add a vent option but this
// macro runs very well and never fails for me. If your oxygen is getting too
// high, try adding more wood. But, by adding more wood, you add more heat
// which may require you adding more water. A small amount of water in the
// presence of heat evaporates producing more Oxygen. :) Find the balance
// you want.
//
// ENJOY! :)
// Anka
//
Constants
//User Definable variables
Hearths = 4
HeatX = 165
WoodX = 107
WaterX = 76
DangerX = 165
RGBBlue = 220
RGBGreen = 240
Guild = 1

// Y Coordinates - Don't change unless you are having a problem.
RegY = 80 // Y coord for Regulator button
BeginY = 265 // Y coord for Begin Button
HeatY = 159 // Y coord for Heat Bar
WoodY = 184 // Y coord for Wood Bar
WaterY = 196 // Y coord for Water Bar
DangerY = 208 // Y coord for Danger Bar
StatusY = 222 // Y coord for Status Bar
WoodBY = 255 // Y coord for Wood and Water buttons
//End User variables

Hrow = 0
Hrow1 = 0
AddX = 226
Add2X = 15
Add1Y = 65
Add2Y = 17
Add3Y = 250
RegX = 47
BeginX = 111
NewX = 0
New2X = 0
New2Y = 0
NewY = 0
Heat = 0
Wood = 0
Water = 0
Danger = 0
Status = 0
OxyY = 168
StatusX = 167
WoodBX = 35
WaterBX = 85
Num = 0
Jump = 5
JumpM = 0
Jumped = 0
Used = 0
MDelay = 250
SDelay = 200
S1Delay = 100
Count = 0
CountM = 0
MouseX = 0
MouseY = 0
CheckDelay = 0
Setup = 0
SetX = 10
SetY = 40
SetAddX = 227
SetAddY = 250
SetLoop = 0
Mouse = 1
OrigX = 0
OrigY = 0
End

Form ccHearth, Settings
ed1=Combobox:Hearths:1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
ed13=Editbox:Hearths Across:4
ed2=CheckBox:Guilded?:True
ed14=Checkbox:Need Setup?:True
ed15=Checkbox:Stealth Mouse:True
ed3=Editbox:Heat (75-188):165
//ed10=Editbox:HeatMin (75-188):116
//ed11=Editbox:HeatMax (75-188):184
//ed4=Editbox:Low Oxy (75-188):82
//ed5=Editbox:High Oxy (75-188):134
ed6=Editbox:Wood (75-188):107
ed7=Editbox:Water (75-188):76
ed8=Editbox:RGBGreen:240
ed9=Editbox:RGBBlue:220
ed12=Editbox:Check Bars Interval (miliseconds):4000
ed16=Checkbox:Mouse Check:False
end

FormLoad ccHearth, ccHearth.frm

if ShowForm ccHearth
SetConst Hearths = ccHearth[ed1]
If ccHearth[ed2] = True
SetConst Guild = 1
Else
SetConst Guild = 0
End
SetConst HeatX = ccHearth[ed3]
//SetConst Oxy1X = ccHearth[ed4]
//SetConst Oxy2X = ccHearth[ed5]
SetConst WoodX = ccHearth[ed6]
SetConst WaterX = ccHearth[ed7]
SetConst RGBGreen = ccHearth[ed8]
SetConst RGBBlue = ccHearth[ed9]
//SetConst HeatMin = ccHearth[ed10]
//SetConst HeatMax = ccHearth[ed11]
SetConst CheckDelay = ccHearth[ed12]
Set HRow = ccHearth[ed13]
Compute SetLoop = $Hearths - 1
Compute HRow1 = $Hrow + 1
If ccHearth[ed15] = True
Set Mouse = 0
End
else
Stop
end

FormSave ccHearth, ccHearth.frm

MousePos 100, 20 //Activates eGenesis window.. Don't run ACTool maximized.
Delay $MDelay
LeftClick
Delay 2000

If $Guild = 1
Call Guild
End
if ccHearth[ed16] = True
Call HearthTest
End
If ccHearth[ed14] = True
Call Setup
End

Call SetReg
SetConst NewX = $BeginX
SetConst NewY = $BeginY
SetConst Count = 1
Loop $Hearths
If $Count = $HRow1 //$Jump
SetConst NewX = $BeginX
Compute NewY = $BeginY + $Add3Y
End
MousePos $NewX, $NewY
Delay $MDelay
Rightclick
Delay $MDelay
Compute NewX = $NewX + $AddX
Compute Count = $Count + 1
End
SetConst NewX = $BeginX //Dont remember why this is here :)
Call Main

Procedure Setup
Set NewX = $SetX
Set NewY = $SetY
Loop $SetLoop
Mousepos $SetX, $SetY
if {loopno} = $HRow
Set NewX = $SetX
Compute NewY = $SetY + $SetAddY
else
Compute NewX = $NewX + $SetAddX
End
Dragto $NewX, $NewY
End
End

Procedure Main
SetConst CountM = 1
SetConst Status = 0
Compute JumpM = $HRow1 - 1 //$Jump - 1
Loop $Hearths
If $CountM = $HRow1 //$Jump
// may have to use New Newx and newy variables in Main
SetConst NewX = $StatusX
Compute NewY = $StatusY + $Add3Y
SetConst New2X = $WaterBX
Compute New2Y = $WoodBY + $Add3Y
End

While $Status = 0
Call CheckBars
If $Status = 1
Call Snuff
//code to advance to next hearth
Compute Used = $Used + 1
If $Used = $JumpM
Compute HeatX = $HeatX - (($Used - 1) * $AddX)
Compute HeatY = $HeatY + $Add3Y
Compute WoodX = $WoodX - (($Used - 1) * $AddX)
Compute WoodY = $WoodY + $Add3Y
Compute WaterX = $WaterX - (($Used - 1) * $AddX)
Compute WaterY = $WaterY + $Add3Y
Compute DangerX = $DangerX - (($Used - 1) * $AddX)
Compute DangerY = $DangerY + $Add3Y
Compute StatusX = $StatusX - (($Used - 1) * $AddX)
Compute StatusY = $StatusY + $Add3Y
//Compute WaterBX = $WaterBX - (($Used -1) * $AddX)
//Compute WoodBX = $WoodBX - (($Used - 1 ) * $AddX)
//Compute WoodBY = $WoodBY + $Add3Y
SetConst Jumped = 1
Continue
Else
Compute HeatX = $HeatX + $AddX
Compute WoodX = $WoodX + $AddX
Compute WaterX = $WaterX + $AddX
Compute DangerX = $DangerX + $AddX
Compute StatusX = $StatusX + $AddX
//Compute WaterBX = $WaterBX + $AddX
//Compute WoodBX = $WoodBX + $AddX
End
Continue
End
If $Heat = 0 and $Danger = 0 and $Wood = 0
Call Wood
Else
If $Heat = 1 or $Danger = 1
If $Water = 0
Call Water
End
End
End

Delay $CheckDelay
End
Compute CountM = $CountM + 1
SetConst Status = 0
End
End

Procedure CheckBars
If $Mouse = 1
MousePos $HeatX, $HeatY
Delay $SDelay
end
LoadRGB $HeatX, $HeatY
if {RGBBlue} > $RGBBlue
SetConst Heat = 1
Else
SetConst Heat = 0
End
If $Mouse = 1
MousePos $WoodX, $WoodY
Delay $S1Delay
end
LoadRGB $WoodX, $WoodY
if {RGBBlue} > $RGBBlue
SetConst Wood = 1
Else
SetConst Wood = 0
End
If $Mouse = 1
MousePos $WaterX, $WaterY
Delay $S1Delay
End
LoadRGB $WaterX, $WaterY
if {RGBBlue} > $RGBBlue
SetConst Water = 1
Else
SetConst Water = 0
End
If $Mouse = 1
MousePos $DangerX, $DangerY
Delay $S1Delay
End
LoadRGB $DangerX, $DangerY
if {RGBBlue} > $RGBBlue
SetConst Danger = 1
Else
SetConst Danger = 0
End
If $Mouse = 1
MousePos $StatusX, $StatusY
End
LoadRGB $StatusX, $StatusY
if {RGBGreen} > $RGBGreen
SetConst Status = 1
Else
SetConst Status = 0
End
End

Procedure Water
SetConst NewX = $WaterBX
SetConst NewY = $WoodBY
Loop $Hearths
IF {loopno} = $HRow1 //$Jump
SetConst NewX = $WaterBX
Compute NewY = $WoodBY + $Add3Y
End
If {loopno} > $Used
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $NewX, $NewY
Delay $SDelay
Rightclick
Delay $SDelay
If $Mouse = 0
Mousepos $OrigX, $OrigY
End
End
Compute NewX = $NewX + $AddX
End
SetConst NewX = $WaterBX
End

Procedure Snuff
SetConst New2X = $WaterBX
SetConst New2Y = $WoodBY
Compute Num = $Used + 1
Loop $Hearths
IF {loopno} = $Hrow1 //$Jump
SetConst New2X = $WaterBX
Compute New2Y = $WoodBY + $Add3Y
End
If {loopno} = $Num
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $New2X, $New2Y
Loop 8
Rightclick
End
If $Mouse = 0
Mousepos $OrigX, $OrigY
End
End
Compute New2X = $New2X + $AddX
End
End

Procedure Wood
SetConst NewX = $WoodBX
SetConst NewY = $WoodBY
Loop $Hearths
IF {loopno} = $HRow1 //$Jump
SetConst NewX = $WoodBX
Compute NewY = $WoodBY + $Add3Y
End
If {loopno} > $Used
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $NewX, $NewY
Delay $SDelay
Rightclick
Delay $SDelay
If $Mouse = 0
MousePos $OrigX, $OrigY
End
End
Compute NewX = $NewX + $AddX
End
SetConst NewX = $WoodBX
End

Procedure SetReg
SetConst NewX = $RegX
SetConst Count = 1
Loop $Hearths
If $Count = $HRow1
SetConst NewX = $RegX
Compute RegY = $RegY + $Add3Y
End
MousePos $NewX, $RegY
Delay $MDelay
Rightclick
Compute NewX = $NewX + $Add2X
If $Count > $HRow
Compute NewY = $RegY + $Add2Y
else
Compute NewY = $RegY + $Add1Y
end
MousePos $NewX, $NewY
Delay $MDelay
Rightclick
Delay $MDelay
Compute NewX = $NewX + $AddX
Compute Count = $Count + 1
End
SetConst NewX = $RegX
SetConst Count = 1
End

Procedure Guild
Compute BeginX = $BeginX - 7
Compute BeginY = $BeginY + 16
Compute RegY = $RegY + 16
Compute RegX = $RegX - 14
Compute AddX = $AddX - 15
Compute Add3Y = $Add3Y + 16
Compute Add1Y = $Add1Y - 16
Compute WoodBY = $WoodBY + 16
Compute HeatX = $HeatX - 4
Compute HeatY = $HeatY + 16
Compute WoodX = $WoodX - 1
Compute WoodY = $WoodY + 16
Compute WaterY = $WaterY + 16
Compute DangerX = $DangerX - 4
Compute DangerY = $DangerY + 16
Compute StatusX = $StatusX - 5
Compute StatusY = $StatusY + 16
Set SetAddX = 212
Set SetAddY = 266
End

Procedure HearthTest
Loop 10
MousePos $HeatX, $HeatY
Delay 2000

MousePos $WoodX, $WoodY
Delay 2000

MousePos $WaterX, $WaterY
Delay 2000

MousePos $DangerX, $DangerY
Delay 2000

MousePos $StatusX, $StatusY
Delay 2000

MousePos $WoodBX, $WoodBY
Delay 2000

MousePos $WaterBX, $WoodBY
Delay 2000
end
Stop
End
//Written with ACTool 5.3.0 by Anka
Bell Asterisk

</pre>

User:Kinslayer/Macros/Charcoal1440x900

2009-08-29T14:04:59Z

Kinslayer:

//Charcoal Hearth
// 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)
//
// Setup: I've added a setup routine to the macro. Pin the windows on top of each
// other in the top left corner. I suggest at least 200 wood per hearth
// and about 15 water per hearth to be safe. All hearths are slightly
// different but I suggest that you put your fastest burning hearths first
// in line. You can tweak the settings in the built in menu.
//
// Hearths: Total number of hearths you are running.
// Hearths Across: How many Hearths on the top row of windows. Make sure
// you set this each time even if you are running 1 hearth.
// Variables in the macro are set off of this number.
// Guilded?: Check this box if you are using guilded hearths.
// Need Setup?: Check this box if you need the macro to position your
// windows that are stacked in top left corner. This is
// usefull if you run another round on the hearths and your
// windows are set up already. Check if needed or not.
// Stealth Mouse: Check this if you don't want to see the mouse move around
// on the hearth windows. When checked, it will save your
// mouse position, move to the spot it needs, perform its
// action then return the pointer to where it started. Alows
// you to change chat windows are dig in chest while the
// macro is running :)
// Heat: Threshold for Heat bar, increase or decrease as needed. If heat
// reaches this lvl, water will be added.
// Wood: Wood threshold, adds wood up to this point.
// Water: Alowable water level, not much play here. If the water lvl is above
// this lvl, water will not be added. Prevents drowning the hearth.
// RGBGreen: Used to detect completion bar. If the macro adds a bunch of water
// before the macro is done then moves to the next hearth, increase
// this number. Or lower it if it doesnt see green.
// RGBBlue: Works just like RGBGreen but for blue bars. If the macro keeps
// adding wood till the hearth is full, it's not seeing blue. If
// this happens, lower this number. Other problem may be that the
// mouse pointer is not lining up over the bar correctly. Run the
// Mouse Test.
// Check Bars Interval: This is the pause time between bar checks. The
// default value of 4000 works well for 1-8 hearths
// but you may need to decrease this number if you
// are running more than 8.
// Mouse Test: This is to test if the mouse pointer is lining up correctly
// with your windows. Run 1 hearth manually and start the macro
// with this option checked. You don't need to worry about any
// other option. It will move over the Heat, Wood, Water, Danger,
// and Status bar then over the Wood and Water buttons 10 times
// before it stops. If these positions are off a bit, you can
// change the Y coordinates below in the constants section.
//
// The macro doesn't watch Oxygen. I was going to add a vent option but this
// macro runs very well and never fails for me. If your oxygen is getting too
// high, try adding more wood. But, by adding more wood, you add more heat
// which may require you adding more water. A small amount of water in the
// presence of heat evaporates producing more Oxygen. :) Find the balance
// you want.
//
// ENJOY! :)
// Anka
//
Constants
//User Definable variables
Hearths = 4
HeatX = 165
WoodX = 107
WaterX = 76
DangerX = 165
RGBBlue = 220
RGBGreen = 240
Guild = 1

// Y Coordinates - Don't change unless you are having a problem.
RegY = 80 // Y coord for Regulator button
BeginY = 265 // Y coord for Begin Button
HeatY = 159 // Y coord for Heat Bar
WoodY = 184 // Y coord for Wood Bar
WaterY = 196 // Y coord for Water Bar
DangerY = 208 // Y coord for Danger Bar
StatusY = 222 // Y coord for Status Bar
WoodBY = 255 // Y coord for Wood and Water buttons
//End User variables

Hrow = 0
Hrow1 = 0
AddX = 226
Add2X = 15
Add1Y = 65
Add2Y = 17
Add3Y = 250
RegX = 47
BeginX = 111
NewX = 0
New2X = 0
New2Y = 0
NewY = 0
Heat = 0
Wood = 0
Water = 0
Danger = 0
Status = 0
OxyY = 168
StatusX = 167
WoodBX = 35
WaterBX = 85
Num = 0
Jump = 5
JumpM = 0
Jumped = 0
Used = 0
MDelay = 250
SDelay = 200
S1Delay = 100
Count = 0
CountM = 0
MouseX = 0
MouseY = 0
CheckDelay = 0
Setup = 0
SetX = 10
SetY = 40
SetAddX = 227
SetAddY = 250
SetLoop = 0
Mouse = 1
OrigX = 0
OrigY = 0
End

Form ccHearth, Settings
ed1=Combobox:Hearths:1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
ed13=Editbox:Hearths Across:4
ed2=CheckBox:Guilded?:True
ed14=Checkbox:Need Setup?:True
ed15=Checkbox:Stealth Mouse:True
ed3=Editbox:Heat (75-188):165
//ed10=Editbox:HeatMin (75-188):116
//ed11=Editbox:HeatMax (75-188):184
//ed4=Editbox:Low Oxy (75-188):82
//ed5=Editbox:High Oxy (75-188):134
ed6=Editbox:Wood (75-188):107
ed7=Editbox:Water (75-188):76
ed8=Editbox:RGBGreen:240
ed9=Editbox:RGBBlue:220
ed12=Editbox:Check Bars Interval (miliseconds):4000
ed16=Checkbox:Mouse Check:False
end

FormLoad ccHearth, ccHearth.frm

if ShowForm ccHearth
SetConst Hearths = ccHearth[ed1]
If ccHearth[ed2] = True
SetConst Guild = 1
Else
SetConst Guild = 0
End
SetConst HeatX = ccHearth[ed3]
//SetConst Oxy1X = ccHearth[ed4]
//SetConst Oxy2X = ccHearth[ed5]
SetConst WoodX = ccHearth[ed6]
SetConst WaterX = ccHearth[ed7]
SetConst RGBGreen = ccHearth[ed8]
SetConst RGBBlue = ccHearth[ed9]
//SetConst HeatMin = ccHearth[ed10]
//SetConst HeatMax = ccHearth[ed11]
SetConst CheckDelay = ccHearth[ed12]
Set HRow = ccHearth[ed13]
Compute SetLoop = $Hearths - 1
Compute HRow1 = $Hrow + 1
If ccHearth[ed15] = True
Set Mouse = 0
End
else
Stop
end

FormSave ccHearth, ccHearth.frm

MousePos 100, 20 //Activates eGenesis window.. Don't run ACTool maximized.
Delay $MDelay
LeftClick
Delay 2000

If $Guild = 1
Call Guild
End
if ccHearth[ed16] = True
Call HearthTest
End
If ccHearth[ed14] = True
Call Setup
End

Call SetReg
SetConst NewX = $BeginX
SetConst NewY = $BeginY
SetConst Count = 1
Loop $Hearths
If $Count = $HRow1 //$Jump
SetConst NewX = $BeginX
Compute NewY = $BeginY + $Add3Y
End
MousePos $NewX, $NewY
Delay $MDelay
Rightclick
Delay $MDelay
Compute NewX = $NewX + $AddX
Compute Count = $Count + 1
End
SetConst NewX = $BeginX //Dont remember why this is here :)
Call Main

Procedure Setup
Set NewX = $SetX
Set NewY = $SetY
Loop $SetLoop
Mousepos $SetX, $SetY
if {loopno} = $HRow
Set NewX = $SetX
Compute NewY = $SetY + $SetAddY
else
Compute NewX = $NewX + $SetAddX
End
Dragto $NewX, $NewY
End
End

Procedure Main
SetConst CountM = 1
SetConst Status = 0
Compute JumpM = $HRow1 - 1 //$Jump - 1
Loop $Hearths
If $CountM = $HRow1 //$Jump
// may have to use New Newx and newy variables in Main
SetConst NewX = $StatusX
Compute NewY = $StatusY + $Add3Y
SetConst New2X = $WaterBX
Compute New2Y = $WoodBY + $Add3Y
End

While $Status = 0
Call CheckBars
If $Status = 1
Call Snuff
//code to advance to next hearth
Compute Used = $Used + 1
If $Used = $JumpM
Compute HeatX = $HeatX - (($Used - 1) * $AddX)
Compute HeatY = $HeatY + $Add3Y
Compute WoodX = $WoodX - (($Used - 1) * $AddX)
Compute WoodY = $WoodY + $Add3Y
Compute WaterX = $WaterX - (($Used - 1) * $AddX)
Compute WaterY = $WaterY + $Add3Y
Compute DangerX = $DangerX - (($Used - 1) * $AddX)
Compute DangerY = $DangerY + $Add3Y
Compute StatusX = $StatusX - (($Used - 1) * $AddX)
Compute StatusY = $StatusY + $Add3Y
//Compute WaterBX = $WaterBX - (($Used -1) * $AddX)
//Compute WoodBX = $WoodBX - (($Used - 1 ) * $AddX)
//Compute WoodBY = $WoodBY + $Add3Y
SetConst Jumped = 1
Continue
Else
Compute HeatX = $HeatX + $AddX
Compute WoodX = $WoodX + $AddX
Compute WaterX = $WaterX + $AddX
Compute DangerX = $DangerX + $AddX
Compute StatusX = $StatusX + $AddX
//Compute WaterBX = $WaterBX + $AddX
//Compute WoodBX = $WoodBX + $AddX
End
Continue
End
If $Heat = 0 and $Danger = 0 and $Wood = 0
Call Wood
Else
If $Heat = 1 or $Danger = 1
If $Water = 0
Call Water
End
End
End

Delay $CheckDelay
End
Compute CountM = $CountM + 1
SetConst Status = 0
End
End

Procedure CheckBars
If $Mouse = 1
MousePos $HeatX, $HeatY
Delay $SDelay
end
LoadRGB $HeatX, $HeatY
if {RGBBlue} > $RGBBlue
SetConst Heat = 1
Else
SetConst Heat = 0
End
If $Mouse = 1
MousePos $WoodX, $WoodY
Delay $S1Delay
end
LoadRGB $WoodX, $WoodY
if {RGBBlue} > $RGBBlue
SetConst Wood = 1
Else
SetConst Wood = 0
End
If $Mouse = 1
MousePos $WaterX, $WaterY
Delay $S1Delay
End
LoadRGB $WaterX, $WaterY
if {RGBBlue} > $RGBBlue
SetConst Water = 1
Else
SetConst Water = 0
End
If $Mouse = 1
MousePos $DangerX, $DangerY
Delay $S1Delay
End
LoadRGB $DangerX, $DangerY
if {RGBBlue} > $RGBBlue
SetConst Danger = 1
Else
SetConst Danger = 0
End
If $Mouse = 1
MousePos $StatusX, $StatusY
End
LoadRGB $StatusX, $StatusY
if {RGBGreen} > $RGBGreen
SetConst Status = 1
Else
SetConst Status = 0
End
End

Procedure Water
SetConst NewX = $WaterBX
SetConst NewY = $WoodBY
Loop $Hearths
IF {loopno} = $HRow1 //$Jump
SetConst NewX = $WaterBX
Compute NewY = $WoodBY + $Add3Y
End
If {loopno} > $Used
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $NewX, $NewY
Delay $SDelay
Rightclick
Delay $SDelay
If $Mouse = 0
Mousepos $OrigX, $OrigY
End
End
Compute NewX = $NewX + $AddX
End
SetConst NewX = $WaterBX
End

Procedure Snuff
SetConst New2X = $WaterBX
SetConst New2Y = $WoodBY
Compute Num = $Used + 1
Loop $Hearths
IF {loopno} = $Hrow1 //$Jump
SetConst New2X = $WaterBX
Compute New2Y = $WoodBY + $Add3Y
End
If {loopno} = $Num
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $New2X, $New2Y
Loop 8
Rightclick
End
If $Mouse = 0
Mousepos $OrigX, $OrigY
End
End
Compute New2X = $New2X + $AddX
End
End

Procedure Wood
SetConst NewX = $WoodBX
SetConst NewY = $WoodBY
Loop $Hearths
IF {loopno} = $HRow1 //$Jump
SetConst NewX = $WoodBX
Compute NewY = $WoodBY + $Add3Y
End
If {loopno} > $Used
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $NewX, $NewY
Delay $SDelay
Rightclick
Delay $SDelay
If $Mouse = 0
MousePos $OrigX, $OrigY
End
End
Compute NewX = $NewX + $AddX
End
SetConst NewX = $WoodBX
End

Procedure SetReg
SetConst NewX = $RegX
SetConst Count = 1
Loop $Hearths
If $Count = $HRow1
SetConst NewX = $RegX
Compute RegY = $RegY + $Add3Y
End
MousePos $NewX, $RegY
Delay $MDelay
Rightclick
Compute NewX = $NewX + $Add2X
If $Count > $HRow
Compute NewY = $RegY + $Add2Y
else
Compute NewY = $RegY + $Add1Y
end
MousePos $NewX, $NewY
Delay $MDelay
Rightclick
Delay $MDelay
Compute NewX = $NewX + $AddX
Compute Count = $Count + 1
End
SetConst NewX = $RegX
SetConst Count = 1
End

Procedure Guild
Compute BeginX = $BeginX - 7
Compute BeginY = $BeginY + 16
Compute RegY = $RegY + 16
Compute RegX = $RegX - 14
Compute AddX = $AddX - 15
Compute Add3Y = $Add3Y + 16
Compute Add1Y = $Add1Y - 16
Compute WoodBY = $WoodBY + 16
Compute HeatX = $HeatX - 4
Compute HeatY = $HeatY + 16
Compute WoodX = $WoodX - 1
Compute WoodY = $WoodY + 16
Compute WaterY = $WaterY + 16
Compute DangerX = $DangerX - 4
Compute DangerY = $DangerY + 16
Compute StatusX = $StatusX - 5
Compute StatusY = $StatusY + 16
Set SetAddX = 212
Set SetAddY = 266
End

Procedure HearthTest
Loop 10
MousePos $HeatX, $HeatY
Delay 2000

MousePos $WoodX, $WoodY
Delay 2000

MousePos $WaterX, $WaterY
Delay 2000

MousePos $DangerX, $DangerY
Delay 2000

MousePos $StatusX, $StatusY
Delay 2000

MousePos $WoodBX, $WoodBY
Delay 2000

MousePos $WaterBX, $WoodBY
Delay 2000
end
Stop
End
//Written with ACTool 5.3.0 by Anka
Bell Asterisk

User:Kinslayer/Macros/Charcoal1440x900

2009-08-29T14:04:34Z

Kinslayer: New page: //Charcoal Hearth // 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 ...

//Charcoal Hearth
// 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)
//
// Setup: I've added a setup routine to the macro. Pin the windows on top of each
// other in the top left corner. I suggest at least 200 wood per hearth
// and about 15 water per hearth to be safe. All hearths are slightly
// different but I suggest that you put your fastest burning hearths first
// in line. You can tweak the settings in the built in menu.
//
// Hearths: Total number of hearths you are running.
// Hearths Across: How many Hearths on the top row of windows. Make sure
// you set this each time even if you are running 1 hearth.
// Variables in the macro are set off of this number.
// Guilded?: Check this box if you are using guilded hearths.
// Need Setup?: Check this box if you need the macro to position your
// windows that are stacked in top left corner. This is
// usefull if you run another round on the hearths and your
// windows are set up already. Check if needed or not.
// Stealth Mouse: Check this if you don't want to see the mouse move around
MousePos 1036, 133
// on the hearth windows. When checked, it will save your
// mouse position, move to the spot it needs, perform its
// action then return the pointer to where it started. Alows
// you to change chat windows are dig in chest while the
// macro is running :)
// Heat: Threshold for Heat bar, increase or decrease as needed. If heat
// reaches this lvl, water will be added.
// Wood: Wood threshold, adds wood up to this point.
// Water: Alowable water level, not much play here. If the water lvl is above
// this lvl, water will not be added. Prevents drowning the hearth.
// RGBGreen: Used to detect completion bar. If the macro adds a bunch of water
// before the macro is done then moves to the next hearth, increase
// this number. Or lower it if it doesnt see green.
// RGBBlue: Works just like RGBGreen but for blue bars. If the macro keeps
// adding wood till the hearth is full, it's not seeing blue. If
// this happens, lower this number. Other problem may be that the
// mouse pointer is not lining up over the bar correctly. Run the
// Mouse Test.
// Check Bars Interval: This is the pause time between bar checks. The
// default value of 4000 works well for 1-8 hearths
// but you may need to decrease this number if you
// are running more than 8.
// Mouse Test: This is to test if the mouse pointer is lining up correctly
// with your windows. Run 1 hearth manually and start the macro
// with this option checked. You don't need to worry about any
// other option. It will move over the Heat, Wood, Water, Danger,
// and Status bar then over the Wood and Water buttons 10 times
// before it stops. If these positions are off a bit, you can
// change the Y coordinates below in the constants section.
//
// The macro doesn't watch Oxygen. I was going to add a vent option but this
// macro runs very well and never fails for me. If your oxygen is getting too
// high, try adding more wood. But, by adding more wood, you add more heat
// which may require you adding more water. A small amount of water in the
// presence of heat evaporates producing more Oxygen. :) Find the balance
// you want.
//
// ENJOY! :)
// Anka
//
Constants
//User Definable variables
Hearths = 4
HeatX = 165
WoodX = 107
WaterX = 76
DangerX = 165
RGBBlue = 220
RGBGreen = 240
Guild = 1

// Y Coordinates - Don't change unless you are having a problem.
RegY = 80 // Y coord for Regulator button
BeginY = 265 // Y coord for Begin Button
HeatY = 159 // Y coord for Heat Bar
WoodY = 184 // Y coord for Wood Bar
WaterY = 196 // Y coord for Water Bar
DangerY = 208 // Y coord for Danger Bar
StatusY = 222 // Y coord for Status Bar
WoodBY = 255 // Y coord for Wood and Water buttons
//End User variables

Hrow = 0
Hrow1 = 0
AddX = 226
Add2X = 15
Add1Y = 65
Add2Y = 17
Add3Y = 250
RegX = 47
BeginX = 111
NewX = 0
New2X = 0
New2Y = 0
NewY = 0
Heat = 0
Wood = 0
Water = 0
Danger = 0
Status = 0
OxyY = 168
StatusX = 167
WoodBX = 35
WaterBX = 85
Num = 0
Jump = 5
JumpM = 0
Jumped = 0
Used = 0
MDelay = 250
SDelay = 200
S1Delay = 100
Count = 0
CountM = 0
MouseX = 0
MouseY = 0
CheckDelay = 0
Setup = 0
SetX = 10
SetY = 40
SetAddX = 227
SetAddY = 250
SetLoop = 0
Mouse = 1
OrigX = 0
OrigY = 0
End

Form ccHearth, Settings
ed1=Combobox:Hearths:1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
ed13=Editbox:Hearths Across:4
ed2=CheckBox:Guilded?:True
ed14=Checkbox:Need Setup?:True
ed15=Checkbox:Stealth Mouse:True
ed3=Editbox:Heat (75-188):165
//ed10=Editbox:HeatMin (75-188):116
//ed11=Editbox:HeatMax (75-188):184
//ed4=Editbox:Low Oxy (75-188):82
//ed5=Editbox:High Oxy (75-188):134
ed6=Editbox:Wood (75-188):107
ed7=Editbox:Water (75-188):76
ed8=Editbox:RGBGreen:240
ed9=Editbox:RGBBlue:220
ed12=Editbox:Check Bars Interval (miliseconds):4000
ed16=Checkbox:Mouse Check:False
end

FormLoad ccHearth, ccHearth.frm

if ShowForm ccHearth
SetConst Hearths = ccHearth[ed1]
If ccHearth[ed2] = True
SetConst Guild = 1
Else
SetConst Guild = 0
End
SetConst HeatX = ccHearth[ed3]
//SetConst Oxy1X = ccHearth[ed4]
//SetConst Oxy2X = ccHearth[ed5]
SetConst WoodX = ccHearth[ed6]
SetConst WaterX = ccHearth[ed7]
SetConst RGBGreen = ccHearth[ed8]
SetConst RGBBlue = ccHearth[ed9]
//SetConst HeatMin = ccHearth[ed10]
//SetConst HeatMax = ccHearth[ed11]
SetConst CheckDelay = ccHearth[ed12]
Set HRow = ccHearth[ed13]
Compute SetLoop = $Hearths - 1
Compute HRow1 = $Hrow + 1
If ccHearth[ed15] = True
Set Mouse = 0
End
else
Stop
end

FormSave ccHearth, ccHearth.frm

MousePos 100, 20 //Activates eGenesis window.. Don't run ACTool maximized.
Delay $MDelay
LeftClick
Delay 2000

If $Guild = 1
Call Guild
End
if ccHearth[ed16] = True
Call HearthTest
End
If ccHearth[ed14] = True
Call Setup
End

Call SetReg
SetConst NewX = $BeginX
SetConst NewY = $BeginY
SetConst Count = 1
Loop $Hearths
If $Count = $HRow1 //$Jump
SetConst NewX = $BeginX
Compute NewY = $BeginY + $Add3Y
End
MousePos $NewX, $NewY
Delay $MDelay
Rightclick
Delay $MDelay
Compute NewX = $NewX + $AddX
Compute Count = $Count + 1
End
SetConst NewX = $BeginX //Dont remember why this is here :)
Call Main

Procedure Setup
Set NewX = $SetX
Set NewY = $SetY
Loop $SetLoop
Mousepos $SetX, $SetY
if {loopno} = $HRow
Set NewX = $SetX
Compute NewY = $SetY + $SetAddY
else
Compute NewX = $NewX + $SetAddX
End
Dragto $NewX, $NewY
End
End

Procedure Main
SetConst CountM = 1
SetConst Status = 0
Compute JumpM = $HRow1 - 1 //$Jump - 1
Loop $Hearths
If $CountM = $HRow1 //$Jump
// may have to use New Newx and newy variables in Main
SetConst NewX = $StatusX
Compute NewY = $StatusY + $Add3Y
SetConst New2X = $WaterBX
Compute New2Y = $WoodBY + $Add3Y
End

While $Status = 0
Call CheckBars
If $Status = 1
Call Snuff
//code to advance to next hearth
Compute Used = $Used + 1
If $Used = $JumpM
Compute HeatX = $HeatX - (($Used - 1) * $AddX)
Compute HeatY = $HeatY + $Add3Y
Compute WoodX = $WoodX - (($Used - 1) * $AddX)
Compute WoodY = $WoodY + $Add3Y
Compute WaterX = $WaterX - (($Used - 1) * $AddX)
Compute WaterY = $WaterY + $Add3Y
Compute DangerX = $DangerX - (($Used - 1) * $AddX)
Compute DangerY = $DangerY + $Add3Y
Compute StatusX = $StatusX - (($Used - 1) * $AddX)
Compute StatusY = $StatusY + $Add3Y
//Compute WaterBX = $WaterBX - (($Used -1) * $AddX)
//Compute WoodBX = $WoodBX - (($Used - 1 ) * $AddX)
//Compute WoodBY = $WoodBY + $Add3Y
SetConst Jumped = 1
Continue
Else
Compute HeatX = $HeatX + $AddX
Compute WoodX = $WoodX + $AddX
Compute WaterX = $WaterX + $AddX
Compute DangerX = $DangerX + $AddX
Compute StatusX = $StatusX + $AddX
//Compute WaterBX = $WaterBX + $AddX
//Compute WoodBX = $WoodBX + $AddX
End
Continue
End
If $Heat = 0 and $Danger = 0 and $Wood = 0
Call Wood
Else
If $Heat = 1 or $Danger = 1
If $Water = 0
Call Water
End
End
End

Delay $CheckDelay
End
Compute CountM = $CountM + 1
SetConst Status = 0
End
End

Procedure CheckBars
If $Mouse = 1
MousePos $HeatX, $HeatY
Delay $SDelay
end
LoadRGB $HeatX, $HeatY
if {RGBBlue} > $RGBBlue
SetConst Heat = 1
Else
SetConst Heat = 0
End
If $Mouse = 1
MousePos $WoodX, $WoodY
Delay $S1Delay
end
LoadRGB $WoodX, $WoodY
if {RGBBlue} > $RGBBlue
SetConst Wood = 1
Else
SetConst Wood = 0
End
If $Mouse = 1
MousePos $WaterX, $WaterY
Delay $S1Delay
End
LoadRGB $WaterX, $WaterY
if {RGBBlue} > $RGBBlue
SetConst Water = 1
Else
SetConst Water = 0
End
If $Mouse = 1
MousePos $DangerX, $DangerY
Delay $S1Delay
End
LoadRGB $DangerX, $DangerY
if {RGBBlue} > $RGBBlue
SetConst Danger = 1
Else
SetConst Danger = 0
End
If $Mouse = 1
MousePos $StatusX, $StatusY
End
LoadRGB $StatusX, $StatusY
if {RGBGreen} > $RGBGreen
SetConst Status = 1
Else
SetConst Status = 0
End
End

Procedure Water
SetConst NewX = $WaterBX
SetConst NewY = $WoodBY
Loop $Hearths
IF {loopno} = $HRow1 //$Jump
SetConst NewX = $WaterBX
Compute NewY = $WoodBY + $Add3Y
End
If {loopno} > $Used
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $NewX, $NewY
Delay $SDelay
Rightclick
Delay $SDelay
If $Mouse = 0
Mousepos $OrigX, $OrigY
End
End
Compute NewX = $NewX + $AddX
End
SetConst NewX = $WaterBX
End

Procedure Snuff
SetConst New2X = $WaterBX
SetConst New2Y = $WoodBY
Compute Num = $Used + 1
Loop $Hearths
IF {loopno} = $Hrow1 //$Jump
SetConst New2X = $WaterBX
Compute New2Y = $WoodBY + $Add3Y
End
If {loopno} = $Num
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $New2X, $New2Y
Loop 8
Rightclick
End
If $Mouse = 0
Mousepos $OrigX, $OrigY
End
End
Compute New2X = $New2X + $AddX
End
End

Procedure Wood
SetConst NewX = $WoodBX
SetConst NewY = $WoodBY
Loop $Hearths
IF {loopno} = $HRow1 //$Jump
SetConst NewX = $WoodBX
Compute NewY = $WoodBY + $Add3Y
End
If {loopno} > $Used
If $Mouse = 0
Set OrigX = {mousex}
Set OrigY = {mousey}
End
MousePos $NewX, $NewY
Delay $SDelay
Rightclick
Delay $SDelay
If $Mouse = 0
MousePos $OrigX, $OrigY
End
End
Compute NewX = $NewX + $AddX
End
SetConst NewX = $WoodBX
End

Procedure SetReg
SetConst NewX = $RegX
SetConst Count = 1
Loop $Hearths
If $Count = $HRow1
SetConst NewX = $RegX
Compute RegY = $RegY + $Add3Y
End
MousePos $NewX, $RegY
Delay $MDelay
Rightclick
Compute NewX = $NewX + $Add2X
If $Count > $HRow
Compute NewY = $RegY + $Add2Y
else
Compute NewY = $RegY + $Add1Y
end
MousePos $NewX, $NewY
Delay $MDelay
Rightclick
Delay $MDelay
Compute NewX = $NewX + $AddX
Compute Count = $Count + 1
End
SetConst NewX = $RegX
SetConst Count = 1
End

Procedure Guild
Compute BeginX = $BeginX - 7
Compute BeginY = $BeginY + 16
Compute RegY = $RegY + 16
Compute RegX = $RegX - 14
Compute AddX = $AddX - 15
Compute Add3Y = $Add3Y + 16
Compute Add1Y = $Add1Y - 16
Compute WoodBY = $WoodBY + 16
Compute HeatX = $HeatX - 4
Compute HeatY = $HeatY + 16
Compute WoodX = $WoodX - 1
Compute WoodY = $WoodY + 16
Compute WaterY = $WaterY + 16
Compute DangerX = $DangerX - 4
Compute DangerY = $DangerY + 16
Compute StatusX = $StatusX - 5
Compute StatusY = $StatusY + 16
Set SetAddX = 212
Set SetAddY = 266
End

Procedure HearthTest
Loop 10
MousePos $HeatX, $HeatY
Delay 2000

MousePos $WoodX, $WoodY
Delay 2000

MousePos $WaterX, $WaterY
Delay 2000

MousePos $DangerX, $DangerY
Delay 2000

MousePos $StatusX, $StatusY
Delay 2000

MousePos $WoodBX, $WoodBY
Delay 2000

MousePos $WaterBX, $WoodBY
Delay 2000
end
Stop
End
//Written with ACTool 5.3.0 by Anka
Bell Asterisk

User:Kinslayer/MacrosNeedsFixing

2009-08-29T14:02:02Z

Kinslayer: New page: == Macros == ===ACTool=== '''Galagah/Anki Charcoal Macro Adjusted for 1440x900''' Download '''Galagah/Anki Charcoal Macro Adjusted for 1920x12...

== Macros ==

===ACTool===
'''Galagah/Anki Charcoal Macro Adjusted for 1440x900'''

[[User:Kinslayer/Macros/Charcoal440x900|Download]]

'''Galagah/Anki Charcoal Macro Adjusted for 1920x1200'''

[[User:Kinslayer/Macros/Charcoal920x1200|Not Yet Complete]]

User:Kinslayer

2009-08-29T14:00:26Z

Kinslayer:

[[User:Kinslayer/Macros|Macros]]

User:Kinslayer

2009-08-29T14:00:15Z

Kinslayer: New page: [User:Kinslayer/Macros|Macros]

[User:Kinslayer/Macros|Macros]

Macros

2009-08-29T13:32:24Z

Kinslayer:

==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.

===Bourbon's Macros===
:[[User:Bourbon/Macros/thermo|Thermometers]]

===Corran's Macros===
:[[User:Corrans/macros|Corrans AC Tool Macros]]

===eNTi's Macros===
:[[ENTi/Linux macros (xautomation)]]

===Galagah's Macros===
:[[User:Galagah| ACTool Macro - Grass]]
:[[User:Galagah| ACTool - CC hearth Macro ( Anka's from T3 set to now work on 1680x1050 resolution )]]

===Iggy's Macros===
:[[Macros/Iggys|Iggy's AutoHotKey Macros]]
::[[Macros/Iggys/Gather|Clay, Grass & Slate Macro]]
::[[Macros/Iggys/Flax|Flax Macro]]
::[[Macros/Iggys/Misc/Clicker|Clicking Macro]]

===Lucasdo's Macros===
:[[Macro/Lucasdo/Slate|Slate Macro]]
:[[Macro/Lucasdo/Flax|Flax Macro]]
:[[Macro/Lucasdo/Grass|Grass Macro]]
:[[Macro/Lucasdo/Timer|Timer Click]]

===Mosaic Guilds' Macros===
::Uses AC Tool
:[[Aluminum_Macro|Aluminum Macro]]
:[[Copper_macroOE|Copper Macro]]
:[[Iron_macro|Iron Macro]]
:[[Lead_Macro|Lead Macro]]
:[[Silver_Macro|Silver Macro]]
:[[Tin_macro|Tin Macro]]
:[[Titanium Macro]]
:[[Zinc_macro|Zinc Macro]]

::Uses AHK
:[[AHKAluminum|Aluminum Macro]]
:[[Antimony_macro| Antimony Macro]]
:[[AHKCopper|Copper Macro]]
:[[AHKIron|Iron Macro]]
:[[AHKSilver|Silver Macro]]
:[[AHKTin|Tin Macro]]
:[[AHKTungsten|Tungsten Macro]]
:[[AHKZinc|Zinc Macro]]

===Oni's Macros (ACTool)===
*[[User:Oni| "Macroing for Dummies" guide using ACTool]]
*[[User:Oni| Carpentry Blade Macro]] NOW with 1024x768 Version!
*[[User:Oni| Onion Macro]]
*[[User:Oni| Anka's CC Hearth Macro (does up to 8, 1024x768 - From T3 but works fine in T4).]]

===Pazifist's Macros===
:[[User:Pazifist\Macro|Charcoal Hearth Macro]]

===Rogarian's Macros (Windows Executables)===
:[http://nemesis2.qx.net/pages/ATITD R-Cubed and O'-Niner Miner (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.
* O'-Niner Miner will assist or automatically work all mine types.
** "It's stupdenous!" ~Traak

===Selune's Macros===
:[[User:Selune/Macros|Selune's Mining & Flax Macros]]

===ShuoftheFieryHeat's Macros===

: [http://www.atitd.org/wiki/tale4/User:Shuofthefieryheat/MyUtilitiesPage/Shu_Enhanced_Clicker Shu Enhanced Clicker Macro]
: This macro clicks a location and monitors for Red and Green Status. It has a Counter with Count Update and Click Delay setting.

: [http://www.atitd.org/wiki/tale4/User:Shuofthefieryheat/MyUtilitiesPage/Shu_Repeat_Clicker Shu Repeat Clicker Macro]
: This macro clicks a location and has a Click Delay setting

===Sithid's Macros===
:[[User:Sithid/Macros/AutoIT| Sithid's AutoIT Macros]]

=== [[user:Eldrad | Eldrad]] (Java) ===
:A [[user:Eldrad/Macros|Mining macro]] which works on any operating system.

===Viscis' ACTools Macros===
:[[User:Viscis#Flint|Flint]]
:[[User:Viscis#Grass|Grass]]
:[[User:Viscis#Wood|Wood]]
:[[User:Viscis#Limestone|Limestone]]
:[[User:Viscis#Flax|Flax (Plating/Seeding/Harvesting)]]

===Macros from Adn Residents===
:[[User:Gemstar#Barley|Barley from Bellamoon]]
:[[User:Gemstar#IconGather|Icon Gather for Grass, Clay, Slate]]

=== [[user:kibble|kibble's]] (ACTools) ===
{{:user:kibble/Macros}}

=== [[user:docsaintly|Doc's]] (AutoHotKey) ===

=== Menhotep's Macros (ACTool) ===
:[[user:Menhotep/macros|Any # of Woodplanes 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
|}
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

I love actool because it's the best out of all of them. - Soak

Actool does not seem to work on vista 32 bit - goes mad... - daninicholls

ACTool works fine on vista 64 bit on my machine - could be our different setups - [[User:AnarchyRising|AnarchyRising]] 07:05, 14 January 2009 (EST)

Im having trouble as well with ACtool on Vista 32bit - LOKY

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 values, and loaded directly in from the script (Rather then saved as images). Lots of other features, but people will have to find them. --[[User:Kinslayer|Kinslayer]] 08:32, 29 August 2009 (EST)