Alpha/cc

//Charcoal Oven - modified Ver 2.2 // // Setup: handles from 1 to 8 charcoal ovens at a time. Pin the windows // in 2 rows of 4 starting in top left corner. But them up together but // Don't overlap them at all. I suggest at least 300 // wood per oven and a normally hold about 150 water jugs (for 8 ovens). // All ovens are slightly different but I suggest that you put your // fastest burning oven first in line. You can tweak the settings // to your liking in the new GUI window. Your settings will be saved. // SETUP ADDENUM BELOW // // If you see anything odd, /chat me. // // ENJOY! :) // Anka // // This version has been modified by rwindmtg // // Follow setup as writen by anka and adust the check bars interval acording to // the number of ovens used (more ovens less time) // // Settings provided are those for 4 ovens and have done 3 whole runs without probs for me // // ineterval increace on the menu will increce the wait between checks delay // when an oven finishes. hopefully this will keep the chk interval for each // oven the same. // if win setup is checked place all the windows in the top left corner on top of eachother // // The modifications are to allow the macro to moniter each oven indervidually // Constants //User Definable variables Ovens = 1 //Number of Ovens you are running. 1-8 HeatMinX = 129 HeatX = 157 //Threshold for Heat bar, increase or decrease as needed. HeatMaxX = 178 Oxy1X = 90 Oxy2X = 133 WoodX = 109 //Wood threshold, adds wood/round up to this point. WaterX = 76 //Alowable water level, not much play here.. dont lower more than 2 DangerX = 150 //Threshold for Danger bar, increase or decrease as needed. DangerMaxX = 160 // maximum danger lvl RGBBlue = 220 //Threshold for detecting the color blue. RGBGreen = 250 //Threshold for detecting the color green. Some video cards // are having problems with this. If you are having problems, run // just 1 oven and try lowering this number by 10 at a time. It's // hard for me to see what is going on without using your pc :( // This method is used for RGBBlue and RGBGreen. CheckDelay = 1100 Guild = 0 // 1 for Guilded or public ovens, 0 for Personal ovens //End User variables AddX = 215 // 215-Personal 212-Guilded Add2X = 15 Add1Y = 65 Add2Y = 17 Add3Y = 233 HeatMin = 0 HeatMax = 0 maxwoodx = 160 maxwood = 0 DangerMax = 0 BeginX = 103 BeginY = 229 NewX = 0 New2X = 0 New3X = 0 New2Y = 0 NewY = 0 Heat = 0 Oxy = 0 Wood = 0 Water = 0 Danger = 0 Status = 0 HeatY = 140 OxyY = 152 WoodY = 164 WaterY = 176 DangerY = 188 StatusX = 172 StatusY = 200 WoodBX = 35 WoodBY = 234 WaterBX = 85 Vent0 = 130 Vent1 = 155 Vent2 = 180 VentBX = 0 Num = 0 Jump = 5 // should be 5 JumpM = 0 Jumped = 0 Used = 0 MDelay = 250 SDelay = 180 // 200 S1Delay = 85 // 100 Count = 0 CountM = 0 MouseX = 0 MouseY = 0 // oven stas chks oven1 = 0 oven2 = 0 oven3 = 0 oven4 = 0 oven5 = 0 oven6 = 0 oven7 = 0 oven8 = 0 curentoven = 1 looped = 1 sHeatMinX = 0 sHeatX = 0 sHeatMaxX = 0 sHeatY = 0 sOxy1X = 0 sOxy2X = 0 sOxyY = 0 sWoodX = 0 sWoodY = 0 sWaterX = 0 sWaterY = 0 sDangerY = 0 sStatusX = 0 sStatusY = 0 sDangerX = 0 sDangermaxX = 0 smaxwoodx = 0 amaxwood = 0 ovenfinidhed = 0 OldVent1 = 1 OldVent2 = 1 OldVent3 = 1 OldVent4 = 1 OldVent5 = 1 OldVent6 = 1 OldVent7 = 1 OldVent8 = 1 WoodNum1 = 0 WoodNum2 = 0 WoodNum3 = 0 WoodNum4 = 0 WoodNum5 = 0 WoodNum6 = 0 WoodNum7 = 0 WoodNum8 = 0 interval = 0 ovendone = 0 setup = 0 WinX = 3 WinY = 29 dragX = 3 dragY = 115 m = 1 End // safty message ShowMessage m = Infomation, OK:Cancel, Do not Leave Macros running unatended! if $m = 2 stop end Form ccOven, Settings // settings listed here are for 4 ovens ed1=Combobox:Ovens:1, 2, 3, 4, 5, 6, 7, 8 ed2=CheckBox:Guilded?:True ed16=checkbox:Window Setup :True ed3=Editbox:Heat (75-188):162 ed10=Editbox:HeatMin (75-188):116 ed11=Editbox:HeatMax (75-188):174 ed4=Editbox:Low Oxy (75-188):95 ed5=Editbox:High Oxy (75-188):134 ed6=Editbox:Wood (75-188):104 ed7=Editbox:Water (75-188):77 ed13=Editbox:Danger (75-188):160 // now used ed15=Editbox:Max Danger (75-188):170 // companion value ed8=Editbox:RGBGreen:240 ed9=Editbox:RGBBlue:220 ed12=Editbox:Check Bars Interval (miliseconds):1100 ed14=Editbox:Interval Increace (miliseconds):150 end FormLoad ccOven, ccOvenall.frm if ShowForm ccOven SetConst Ovens = ccOven[ed1] If ccOven[ed2] = True SetConst Guild = 1 Else SetConst Guild = 0 End If ccOven[ed16] = True Setconst setup = 1 Else Setconst setup = 0 End SetConst HeatX = ccOven[ed3] SetConst Oxy1X = ccOven[ed4] SetConst Oxy2X = ccOven[ed5] SetConst WoodX = ccOven[ed6] SetConst WaterX = ccOven[ed7] Setconst DangerX = ccOven[ed13] setconst DangerMaxX = ccOven[ed15] SetConst RGBGreen = ccOven[ed8] SetConst RGBBlue = ccOven[ed9] SetConst HeatMin = ccOven[ed10] SetConst HeatMax = ccOven[ed11] SetConst CheckDelay = ccOven[ed12] Setconst interval = ccOven[ed14] else Stop end FormSave ccOven, ccOvenall.frm MousePos 100, 20 //Activates eGenesis window.. Don't run ACTool maximized. Delay $MDelay LeftClick Delay 2000 If $Guild = 1 Call Guild End If $setup = 1 call WindowSetup end Procedure WindowSetup SetConst DragX = $winx setconst Dragy = $winy setconst count = 1 Loop $ovens if $count = $jump Compute DragX = $DragX - (($count - 1) * $AddX) Compute DragY = $DragY + $Add3Y End MousePos $WinX, $WinY Delay $MDelay Dragto $DragX, $DragY Compute DragX = $DragX + $AddX compute count = $count + 1 End End SetConst NewX = $BeginX SetConst NewY = $BeginY SetConst Count = 1 Loop $Ovens If $Count = $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 Main SetConst CountM = 1 SetConst Status = 0 Compute JumpM = $Jump - 1 // rwinds ver //stores some vars setconst sHeatMinX = $HeatMinX setconst sHeatX = $HeatX setconst sHeatMaxX = $HeatMaxX setconst sHeatY = $HeatY setconst sOxy1X = $Oxy1X setconst sOxy2X = $Oxy2X setconst sOxyY = $OxyY setconst sWoodX = $WoodX setconst sWoodY = $WoodY setconst sWaterX = $WaterX setconst sWaterY = $WaterY setconst sDangerY = $DangerY setconst sStatusX = $StatusX setconst sStatusY = $StatusY setconst sDangerX = $DangerX setconst sDangermaxX = $DangermaxX setconst smaxwoodx = $maxwoodx While $Status < $Ovens Loop $Ovens setconst curentoven = {loopno} If $CountM = $Jump SetConst NewX = $StatusX Compute NewY = $StatusY + $Add3Y SetConst New2X = $WaterBX Compute New2Y = $WoodBY + $Add3Y End // next 8 ifs determine if current oven has finished If $curentoven = 1 and $oven1 = 1 setconst ovenfinidhed = 1 End If $curentoven = 2 and $oven2 = 1 setconst ovenfinidhed = 1 End If $curentoven = 3 and $oven3 = 1 setconst ovenfinidhed = 1 End If $curentoven = 4 and $oven4 = 1 setconst ovenfinidhed = 1 End If $curentoven = 5 and $oven5 = 1 setconst ovenfinidhed = 1 End If $curentoven = 6 and $oven6 = 1 setconst ovenfinidhed = 1 End If $curentoven = 7 and $oven7 = 1 setconst ovenfinidhed = 1 End If $curentoven = 8 and $oven8 = 1 setconst ovenfinidhed = 1 End If $ovenfinidhed = 0 //skips if set to 1 Call CheckBars if $curentoven = 1 Case When $HeatMin = 1 Call Wood Set WoodNum1 = 1 Else If $Heat = 0 and $Danger = 0 If $WoodNum1 = 0 and $Wood = 0 Call Wood Set WoodNum1 = 1 else Set WoodNum1 = 0 End Else If $Heat = 1 or $Danger = 1 If $Water = 0 or $HeatMax = 1 or $DangerMax = 1 Call Water End End End End End if $curentoven = 2 Case When $HeatMin = 1 Call Wood Set WoodNum2 = 1 Else If $Heat = 0 and $Danger = 0 If $WoodNum2 = 0 and $Wood = 0 Call Wood Set WoodNum2 = 1 else Set WoodNum2 = 0 End Else If $Heat = 1 or $Danger = 1 If $Water = 0 or $HeatMax = 1 or $DangerMax = 1 Call Water End End End End End if $curentoven = 3 Case When $HeatMin = 1 Call Wood Set WoodNum3 = 1 Else If $Heat = 0 and $Danger = 0 If $WoodNum3 = 0 and $Wood = 0 Call Wood Set WoodNum3 = 1 else Set WoodNum3 = 0 End Else If $Heat = 1 or $Danger = 1 If $Water = 0 or $HeatMax = 1 or $DangerMax = 1 Call Water End End End End End if $curentoven = 4 Case When $HeatMin = 1 Call Wood Set WoodNum4 = 1 Else If $Heat = 0 and $Danger = 0 If $WoodNum4 = 0 and $Wood = 0 Call Wood Set WoodNum4 = 1 else Set WoodNum4 = 0 End Else If $Heat = 1 or $Danger = 1 If $Water = 0 or $HeatMax = 1 or $DangerMax = 1 Call Water End End End End End if $curentoven = 5 Case When $HeatMin = 1 Call Wood Set WoodNum5 = 1 Else If $Heat = 0 and $Danger = 0 If $WoodNum5 = 0 and $Wood = 0 Call Wood Set WoodNum5 = 1 else Set WoodNum5 = 0 End Else If $Heat = 1 or $Danger = 1 If $Water = 0 or $HeatMax = 1 or $DangerMax = 1 Call Water End End End End End if $curentoven = 6 Case When $HeatMin = 1 Call Wood Set WoodNum6 = 1 Else If $Heat = 0 and $Danger = 0 If $WoodNum6 = 0 and $Wood = 0 Call Wood Set WoodNum6 = 1 else Set WoodNum6 = 0 End Else If $Heat = 1 or $Danger = 1 If $Water = 0 or $HeatMax = 1 or $DangerMax = 1 Call Water End End End End End if $curentoven = 7 Case When $HeatMin = 1 Call Wood Set WoodNum7 = 1 Else If $Heat = 0 and $Danger = 0 If $WoodNum7 = 0 and $Wood = 0 Call Wood Set WoodNum7 = 1 else Set WoodNum7 = 0 End Else If $Heat = 1 or $Danger = 1 If $Water = 0 or $HeatMax = 1 or $DangerMax = 1 Call Water End End End End End if $curentoven = 8 Case When $HeatMin = 1 Call Wood Set WoodNum8 = 1 Else If $Heat = 0 and $Danger = 0 If $WoodNum8 = 0 and $Wood = 0 Call Wood Set WoodNum8 = 1 else Set WoodNum8 = 0 End Else If $Heat = 1 or $Danger = 1 If $Water = 0 or $HeatMax = 1 or $DangerMax = 1 Call Water End End End End End If $looped > 3 if $curentoven = 1/// Work in progress .......................... isolate ovens vents Case When $Oxy = 0 // Open vent full If $OldVent1 <> $Oxy SetConst VentBX = $Vent2 Call Vent SetConst OldVent1 = 0 Delay 100 End When $Oxy = 1 // Oxy set normal If $OldVent1 <> $Oxy SetConst VentBX = $Vent1 Call Vent SetConst OldVent1 = 1 Delay 100 End When $Oxy = 2 // Close vent If $OldVent1 <> $Oxy SetConst VentBX = $Vent0 Call Vent SetConst OldVent1 = 2 Delay 100 End End End ///// Work in progresss ............... if $curentoven = 2/// Work in progress .......................... isolate ovens vents Case When $Oxy = 0 // Open vent full If $OldVent2 <> $Oxy SetConst VentBX = $Vent2 Call Vent SetConst OldVent2 = 0 Delay 100 End When $Oxy = 1 // Oxy set normal If $OldVent2 <> $Oxy SetConst VentBX = $Vent1 Call Vent SetConst OldVent2 = 1 Delay 100 End When $Oxy = 2 // Close vent If $OldVent2 <> $Oxy SetConst VentBX = $Vent0 Call Vent SetConst OldVent2 = 2 Delay 100 End End End ///// Work in progresss ............... if $curentoven = 3/// Work in progress .......................... isolate ovens vents Case When $Oxy = 0 // Open vent full If $OldVent3 <> $Oxy SetConst VentBX = $Vent2 Call Vent SetConst OldVent3 = 0 Delay 100 End When $Oxy = 1 // Oxy set normal If $OldVent3 <> $Oxy SetConst VentBX = $Vent1 Call Vent SetConst OldVent3 = 1 Delay 100 End When $Oxy = 2 // Close vent If $OldVent3 <> $Oxy SetConst VentBX = $Vent0 Call Vent SetConst OldVent3 = 2 Delay 100 End End End ///// Work in progresss ............... if $curentoven = 4/// Work in progress .......................... isolate ovens vents Case When $Oxy = 0 // Open vent full If $OldVent4 <> $Oxy SetConst VentBX = $Vent2 Call Vent SetConst OldVent4 = 0 Delay 100 End When $Oxy = 1 // Oxy set normal If $OldVent4 <> $Oxy SetConst VentBX = $Vent1 Call Vent SetConst OldVent4 = 1 Delay 100 End When $Oxy = 2 // Close vent If $OldVent4 <> $Oxy SetConst VentBX = $Vent0 Call Vent SetConst OldVent4 = 2 Delay 100 End End End ///// Work in progresss ............... if $curentoven = 5/// Work in progress .......................... isolate ovens vents Case When $Oxy = 0 // Open vent full If $OldVent5 <> $Oxy SetConst VentBX = $Vent2 Call Vent SetConst OldVent5 = 0 Delay 100 End When $Oxy = 1 // Oxy set normal If $OldVent5 <> $Oxy SetConst VentBX = $Vent1 Call Vent SetConst OldVent5 = 1 Delay 100 End When $Oxy = 2 // Close vent If $OldVent5 <> $Oxy SetConst VentBX = $Vent0 Call Vent SetConst OldVent5 = 2 Delay 100 End End End ///// Work in progresss ............... if $curentoven = 6/// Work in progress .......................... isolate ovens vents Case When $Oxy = 0 // Open vent full If $OldVent6 <> $Oxy SetConst VentBX = $Vent2 Call Vent SetConst OldVent6 = 0 Delay 100 End When $Oxy = 1 // Oxy set normal If $OldVent6 <> $Oxy SetConst VentBX = $Vent1 Call Vent SetConst OldVent6 = 1 Delay 100 End When $Oxy = 2 // Close vent If $OldVent6 <> $Oxy SetConst VentBX = $Vent0 Call Vent SetConst OldVent6 = 2 Delay 100 End End End ///// Work in progresss ............... if $curentoven = 7/// Work in progress .......................... isolate ovens vents Case When $Oxy = 0 // Open vent full If $OldVent7 <> $Oxy SetConst VentBX = $Vent2 Call Vent SetConst OldVent7 = 0 Delay 100 End When $Oxy = 1 // Oxy set normal If $OldVent7 <> $Oxy SetConst VentBX = $Vent1 Call Vent SetConst OldVent7 = 1 Delay 100 End When $Oxy = 2 // Close vent If $OldVent7 <> $Oxy SetConst VentBX = $Vent0 Call Vent SetConst OldVent7 = 2 Delay 100 End End End ///// Work in progresss ............... if $curentoven = 8/// Work in progress .......................... isolate ovens vents Case When $Oxy = 0 // Open vent full If $OldVent8 <> $Oxy SetConst VentBX = $Vent2 Call Vent SetConst OldVent8 = 0 Delay 100 End When $Oxy = 1 // Oxy set normal If $OldVent8 <> $Oxy SetConst VentBX = $Vent1 Call Vent SetConst OldVent8 = 1 Delay 100 End When $Oxy = 2 // Close vent If $OldVent8 <> $Oxy SetConst VentBX = $Vent0 Call Vent SetConst OldVent8 = 2 Delay 100 End End End ///// Work in progresss ............... End End if $ovendone = 1 setconst ovendone = 0 call snuff End // nxt oven setconst ovenfinidhed = 0 Compute Used = $Used + 1 If $Used = $JumpM Compute HeatMinX = $HeatMinX - (($Used - 1) * $AddX) Compute HeatX = $HeatX - (($Used - 1) * $AddX) Compute HeatMaxX = $HeatMaxX - (($Used - 1) * $AddX) Compute HeatY = $HeatY + $Add3Y Compute Oxy1X = $Oxy1X - (($Used - 1) * $AddX) Compute Oxy2X = $Oxy2X - (($Used - 1) * $AddX) Compute OxyY = $OxyY + $Add3Y Compute WoodX = $WoodX - (($Used - 1) * $AddX) Compute maxwoodx = $maxwoodx - (($Used - 1) * $AddX) Compute WoodY = $WoodY + $Add3Y Compute WaterX = $WaterX - (($Used - 1) * $AddX) Compute WaterY = $WaterY + $Add3Y Compute DangerX = $DangerX - (($Used - 1) * $AddX) Compute DangermaxX = $DangermaxX - (($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 HeatMinX = $HeatMinX + $AddX Compute HeatX = $HeatX + $AddX Compute HeatMaxX = $HeatMaxX + $AddX Compute Oxy1X = $Oxy1X + $AddX Compute Oxy2X = $Oxy2X + $AddX Compute WoodX = $WoodX + $AddX Compute maxwoodx = $maxwoodx + $AddX Compute WaterX = $WaterX + $AddX Compute DangerX = $DangerX + $AddX Compute DangermaxX = $DangermaxX + $AddX Compute StatusX = $StatusX + $AddX //Compute WaterBX = $WaterBX + $AddX //Compute WoodBX = $WoodBX + $AddX End Continue End // resets positions Compute Used = 0 Compute HeatMinX = $sHeatMinX Compute HeatX = $sHeatX Compute HeatMaxX = $sHeatMaxX Compute HeatY = $sHeatY Compute Oxy1X = $sOxy1X Compute Oxy2X = $sOxy2X Compute OxyY = $sOxyY Compute WoodX = $sWoodX Compute WoodY = $sWoodY Compute WaterX = $sWaterX Compute WaterY = $sWaterY Compute DangerY = $sDangerY Compute StatusX = $sStatusX Compute StatusY = $sStatusY compute DangerX = $sDangerX compute DangermaxX = $sDangermaxX compute maxwoodx = $smaxwoodx Delay $CheckDelay compute looped = $looped +1 // incremts loop for vent enable End End // end rwinds ver Procedure CheckBars //reads the data MousePos $HeatMinX, $HeatY //heat min Delay $SDelay LoadRGB {MouseX}, {MouseY} if {RGBBlue} < $RGBBlue SetConst HeatMin = 1 else Set HeatMin = 0 End MousePos $HeatX, $HeatY //heat target Delay $SDelay LoadRGB {MouseX}, {MouseY} if {RGBBlue} > $RGBBlue SetConst Heat = 1 Else SetConst Heat = 0 End MousePos $HeatMaxX, $HeatY // heat max Delay $SDelay LoadRGB {MouseX}, {MouseY} if {RGBBlue} > $RGBBlue SetConst HeatMax = 1 Else SetConst HeatMax = 0 End MousePos $Oxy1X, $OxyY // oxy min Delay $SDelay LoadRGB {MouseX}, {MouseY} if {RGBBlue} > $RGBBlue SetConst Oxy = 1 Else SetConst Oxy = 0 End MousePos $Oxy2X, $OxyY // oxy max Delay $SDelay LoadRGB {MouseX}, {MouseY} if {RGBBlue} > $RGBBlue SetConst Oxy = 2 End MousePos $WoodX, $WoodY // wood target Delay $S1Delay LoadRGB {mousex}, {mousey} if {RGBBlue} > $RGBBlue SetConst Wood = 1 Else SetConst Wood = 0 End MousePos $maxwoodx, $WoodY // maxwood target Delay $S1Delay LoadRGB {mousex}, {mousey} if {RGBBlue} > $RGBBlue SetConst maxwood = 1 Else SetConst maxwood = 0 End MousePos $WaterX, $WaterY // water max Delay $S1Delay LoadRGB {mousex}, {mousey} if {RGBBlue} > $RGBBlue SetConst Water = 1 Else SetConst Water = 0 End MousePos $DangerX, $DangerY // danger warn?? Delay $S1Delay LoadRGB {MouseX}, {MouseY} if {RGBBlue} > $RGBBlue SetConst Danger = 1 Else SetConst Danger = 0 End MousePos $DangerMaxX, $DangerY // danger out of controll?? Delay $S1Delay LoadRGB {MouseX}, {MouseY} if {RGBBlue} > $RGBBlue SetConst DangerMax = 1 Else SetConst DangerMax = 0 End MousePos $StatusX, $StatusY // checks to see if it is done LoadRGB {MouseX}, {MouseY} if {RGBGreen} > $RGBGreen //if {RGBRed} = 6 and {RGBGreen} = 254 and {RGBBlue} = 5 compute Status = $Status + 1 // say yes // debuging code setconst ovendone = 1 compute $CheckDelay = $CheckDelay + $interval If $curentoven = 1 setconst oven1 = 1 End If $curentoven = 2 setconst oven2 = 1 End If $curentoven = 3 setconst oven3 = 1 End If $curentoven = 4 setconst oven4 = 1 End If $curentoven = 5 setconst oven5 = 1 End If $curentoven = 6 setconst oven6 = 1 End If $curentoven = 7 setconst oven7 = 1 End If $curentoven = 8 setconst oven8 = 1 End Else // SetConst Status = 0 compute Status = $Status + 0 // dummy line //say no // debuging code End End Procedure Water // adds water SetConst NewX = $WaterBX SetConst NewY = $WoodBY Loop $Ovens IF {loopno} = $Jump SetConst NewX = $WaterBX Compute NewY = $WoodBY + $Add3Y End If {loopno} = $curentoven MousePos $NewX, $NewY Delay $SDelay Rightclick Delay $SDelay End Compute NewX = $NewX + $AddX End SetConst NewX = $WaterBX End Procedure Vent // sets vent SetConst NewX = $VentBX SetConst NewY = $WoodBY Loop $Ovens IF {loopno} = $Jump SetConst NewX = $VentBX Compute NewY = $WoodBY + $Add3Y End If {loopno} = $curentoven MousePos $NewX, $NewY Delay $SDelay Rightclick Delay $SDelay End Compute NewX = $NewX + $AddX End SetConst NewX = $VentBX End Procedure Snuff // kills the oven SetConst New2X = $WaterBX SetConst New3X = $Vent2 SetConst New2Y = $WoodBY Compute Num = $Used + 1 Loop $Ovens IF {loopno} = $Jump SetConst New2X = $WaterBX SetConst New3X = $Vent2 Compute New2Y = $WoodBY + $Add3Y End If {loopno} = $Num MousePos $New2X, $New2Y Loop 10 Rightclick End MousePos $New3X, $WoodBY Delay 200 Rightclick End Compute New2X = $New2X + $AddX Compute New3X = $New3X + $AddX End End Procedure Wood // adds some wood if $ovendone = 0 if $maxwood = 0 SetConst NewX = $WoodBX SetConst NewY = $WoodBY Loop $Ovens IF {loopno} = $Jump SetConst NewX = $WoodBX Compute NewY = $WoodBY + $Add3Y End If {loopno} = $curentoven MousePos $NewX, $NewY Delay $SDelay Rightclick Delay $SDelay End Compute NewX = $NewX + $AddX End SetConst NewX = $WoodBX End end end Procedure Guild // adjusts positions for guilded ovens //Compute BeginX = $BeginX - 7 Compute BeginY = $BeginY + 12 Compute AddX = $AddX - 3 Compute Add3Y = $Add3Y + 12 Compute Add1Y = $Add1Y - 12 Compute WoodBY = $WoodBY + 12 //Compute HeatX = $HeatX - 4 Compute HeatY = $HeatY + 12 //Compute Oxy1X = $Oxy1X //Compute Oxy2X = Compute OxyY = $OxyY + 12 //Compute WoodX = $WoodX - 1 Compute WoodY = $WoodY + 12 Compute WaterY = $WaterY + 12 //Compute DangerX = $DangerX - 4 Compute DangerY = $DangerY + 12 //Compute StatusX = $StatusX - 5 Compute StatusY = $StatusY + 12 End //Written with ACTool 5.3.0 by Anka //Modified with ACTool 5.4.0 by rwindmtg Bell Asterisk<nowiki><nowiki>Insert non-formatted text here'''Insert non-formatted text here'''<nowiki><nowiki>Insert non-formatted text hereItalic text</nowiki></nowiki></nowiki></nowiki>