|
|
| (9 intermediate revisions by the same user not shown) |
| Line 5: |
Line 5: |
| | | | |
| | | | |
| − | Macro's. | + | Macro's. <http://www.atitd.org/wiki/tale6/User:Justin/Macros> |
| | | | |
| − | CC Macro.
| + | Thistles Guide <http://www.atitd.org/wiki/tale6/User:Justin/Thistles> |
| | | | |
| − | I use the following CC Macro (see after for settings) - it's been tweaked a bit, and seems to work pretty well. the hardest bit, and the bit you need to get right, is positioning the pinned CCoven menus in the top left of the screen, if using Vista, leave a small gap (about the same distance as the righthand edge of the arrow of the mouse pointer) between the top of the CCOven window and the top bar of the Client window. I may get round to amending this, I may not.
| |
| | | | |
| − | ***********************************************************************************
| + | ==<span style="font-family:Monotype Corsiva; font-size: 20pt">Our Aqueduct Line. Eureka!:</span>== |
| − | //Charcoal Oven - modified Ver 2.2
| |
| − | //
| |
| − | // Setup: This 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
| + | {{CondMap| |
| − | //User Definable variables
| + | (PinLb) 650, -156, Tower 1 - Constitution |
| − | Ovens = 4 //Number of Ovens you are running. 1-8
| + | (PinRd) 659, -173, Tower 2 - Strength |
| − | HeatMinX = 129
| + | (PinVi) 680, -173, Tower 3 - Perception |
| − | HeatX = 157 //Threshold for Heat bar, increase or decrease as needed.
| + | (PinOr) 699, -173, Tower 4 - Speed |
| − | HeatMaxX = 178
| + | (PinLb) 710, -190, Tower 5 - Constitution |
| − | Oxy1X = 90
| + | (PinOrB) 730, -190, Tower 6 - Speed, Cabbage Bonus |
| − | Oxy2X = 133
| + | (PinGr) 740, -207, Tower 7 - Endurance |
| − | WoodX = 109 //Wood threshold, adds wood/round up to this point.
| + | (PinRd) 760, -207, Tower 8 - Strength |
| − | WaterX = 76 //Alowable water level, not much play here.. dont lower more than 2
| + | (PinGr) 780, -207, Tower 9 - Endurance |
| − | DangerX = 162 //Threshold for Danger bar, increase or decrease as needed.
| + | (PinLb) 800, -207, Tower 10 - Constitution |
| − | DangerMaxX = 170 // maximum danger lvl
| + | (PinVi) 810, -225, Tower 11 - Perception |
| − | RGBBlue = 220 //Threshold for detecting the color blue.
| + | (PinBl) 820, -242, Tower 12 - Focus |
| − | RGBGreen = 250 //Threshold for detecting the color green. Some video cards
| + | (PinVi) 830, -260, Tower 13 - Perception |
| − | // are having problems with this. If you are having problems, run
| + | (PinOr) 850, -260, Tower 14 - Speed |
| − | // just 1 oven and try lowering this number by 10 at a time. It's
| + | (PinPk) 870, -260, Tower 15 - Dexterity |
| − | // hard for me to see what is going on without using your pc :(
| + | (PinPk) 890, -260, Tower 16 - Dexterity |
| − | // This method is used for RGBBlue and RGBGreen.
| + | (PinGr) 910, -260, Tower 17 - Endurance |
| − | CheckDelay = 1100
| + | (PinPk) 930, -260, Tower 18 - Dexterity |
| − | Guild = 0 // 1 for Guilded or public ovens, 0 for Personal ovens
| + | (PinRd) 950, -260, Tower 19 - Strength |
| − | //End User variables
| + | (PinRd) 970, -260, Tower 20 - Strength |
| − | AddX = 215 // 215-Personal 212-Guilded
| + | (PinLb) 990, -260, Tower 21 - Constitution |
| − | Add2X = 15
| + | (PinPk) 1010, -260, Tower 22 - Dexterity |
| − | Add1Y = 65
| + | (PinOr) 1030, -260, Tower 23 - Speed |
| − | Add2Y = 17
| + | (PinVi) 1040, -242, Tower 24 - Perception |
| − | Add3Y = 233
| + | (PinPk) 1060, -242, Tower 25 - Dexterity |
| − | HeatMin = 0
| + | (PinOr) 1080, -242, Tower 26 - Speed |
| − | HeatMax = 0
| + | (PinRd) 1100, -242, Tower 27 - Strength |
| − | maxwoodx = 160
| + | (PinLb) 1110, -225, Tower 28 - Constitution |
| − | maxwood = 0
| + | (PinVi) 1120, -208, Tower 29 - Perception, Grass, No Bonus found |
| − | DangerMax = 0
| + | (PinPk) 1140, -208, Tower 30 - Dexterity. Grass, No Bonus found |
| − | BeginX = 106
| + | (PinVi) 1160, -208, Tower 31 - Perception, Grass, No Bonus found |
| − | BeginY = 234
| + | (PinRd) 1170, -224, Tower 32 - Strength, Grass, No Bonus found |
| − | NewX = 0
| + | (PinBl) 1190, -224, Tower 33 - Focus, Grass, No Bonus found |
| − | New2X = 0
| + | (PinBl) 1210, -224, Tower 34 - Focus, Grass, No Bonus found |
| − | New3X = 0
| + | (PinLb) 1230, -224, Tower 35 - Constitution, Grass, No Bonus found |
| − | New2Y = 0
| + | (PinLb) 1250, -224, Tower 36 - Constitution, Grass, No Bonus found |
| − | NewY = 0
| + | (PinRdU) 1270, -224, Tower 37 - Strength, Grass, Cucumber Bonus |
| − | Heat = 0
| + | |lat=950|lon=-227|zoom=6|width=790|height=500}} |
| − | Oxy = 0
| |
| − | Wood = 0
| |
| − | Water = 0
| |
| − | Danger = 0
| |
| − | Status = 0
| |
| − | HeatY = 149
| |
| − | OxyY = 161
| |
| − | WoodY = 173
| |
| − | WaterY = 185
| |
| − | DangerY = 197
| |
| − | StatusX = 172
| |
| − | StatusY = 209
| |
| − | WoodBX = 35
| |
| − | WoodBY = 243
| |
| − | WaterBX = 85
| |
| − | Vent0 = 130
| |
| − | Vent1 = 155
| |
| − | Vent2 = 180
| |
| − | VentBX = 0
| |
| − | Num = 0
| |
| − | Jump = 5 // should be 5
| |
| − | JumpM = 0
| |
| − | Jumped = 0
| |
| − | Used = 0
| |
| − | MDelay = 50
| |
| − | SDelay = 50 // 200
| |
| − | S1Delay = 50 // 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
| + | ==<span style="font-family:Monotype Corsiva; font-size: 20pt">Tower Legend:</span>== |
| − | ShowMessage m = Infomation, OK:Cancel, Do not Leave Macros running unatended!
| + | {{:Maps/Aqueduct/Legend|contentonly=yes}} |
| − | 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 20
| |
| − | End
| |
| − | When $Oxy = 1
| |
| − | // Oxy set normal
| |
| − | If $OldVent1 <> $Oxy
| |
| − | SetConst VentBX = $Vent1
| |
| − | Call Vent
| |
| − | SetConst OldVent1 = 1
| |
| − | Delay 20
| |
| − | End
| |
| − | When $Oxy = 2
| |
| − | // Close vent
| |
| − | If $OldVent1 <> $Oxy
| |
| − | SetConst VentBX = $Vent0
| |
| − | Call Vent
| |
| − | SetConst OldVent1 = 2
| |
| − | Delay 20
| |
| − | 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 20
| |
| − | End
| |
| − | When $Oxy = 1
| |
| − | // Oxy set normal
| |
| − | If $OldVent2 <> $Oxy
| |
| − | SetConst VentBX = $Vent1
| |
| − | Call Vent
| |
| − | SetConst OldVent2 = 1
| |
| − | Delay 20
| |
| − | End
| |
| − | When $Oxy = 2
| |
| − | // Close vent
| |
| − | If $OldVent2 <> $Oxy
| |
| − | SetConst VentBX = $Vent0
| |
| − | Call Vent
| |
| − | SetConst OldVent2 = 2
| |
| − | Delay 20
| |
| − | 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 120
| |
| − | End
| |
| − | When $Oxy = 1
| |
| − | // Oxy set normal
| |
| − | If $OldVent3 <> $Oxy
| |
| − | SetConst VentBX = $Vent1
| |
| − | Call Vent
| |
| − | SetConst OldVent3 = 1
| |
| − | Delay 20
| |
| − | End
| |
| − | When $Oxy = 2
| |
| − | // Close vent
| |
| − | If $OldVent3 <> $Oxy
| |
| − | SetConst VentBX = $Vent0
| |
| − | Call Vent
| |
| − | SetConst OldVent3 = 2
| |
| − | Delay 20
| |
| − | 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 20
| |
| − | End
| |
| − | When $Oxy = 1
| |
| − | // Oxy set normal
| |
| − | If $OldVent4 <> $Oxy
| |
| − | SetConst VentBX = $Vent1
| |
| − | Call Vent
| |
| − | SetConst OldVent4 = 1
| |
| − | Delay 20
| |
| − | End
| |
| − | When $Oxy = 2
| |
| − | // Close vent
| |
| − | If $OldVent4 <> $Oxy
| |
| − | SetConst VentBX = $Vent0
| |
| − | Call Vent
| |
| − | SetConst OldVent4 = 2
| |
| − | Delay 20
| |
| − | 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 20
| |
| − | End
| |
| − | When $Oxy = 1
| |
| − | // Oxy set normal
| |
| − | If $OldVent5 <> $Oxy
| |
| − | SetConst VentBX = $Vent1
| |
| − | Call Vent
| |
| − | SetConst OldVent5 = 1
| |
| − | Delay 20
| |
| − | End
| |
| − | When $Oxy = 2
| |
| − | // Close vent
| |
| − | If $OldVent5 <> $Oxy
| |
| − | SetConst VentBX = $Vent0
| |
| − | Call Vent
| |
| − | SetConst OldVent5 = 2
| |
| − | Delay 20
| |
| − | 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 20
| |
| − | End
| |
| − | When $Oxy = 1
| |
| − | // Oxy set normal
| |
| − | If $OldVent6 <> $Oxy
| |
| − | SetConst VentBX = $Vent1
| |
| − | Call Vent
| |
| − | SetConst OldVent6 = 1
| |
| − | Delay 20
| |
| − | End
| |
| − | When $Oxy = 2
| |
| − | // Close vent
| |
| − | If $OldVent6 <> $Oxy
| |
| − | SetConst VentBX = $Vent0
| |
| − | Call Vent
| |
| − | SetConst OldVent6 = 2
| |
| − | Delay 20
| |
| − | 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 20
| |
| − | End
| |
| − | When $Oxy = 1
| |
| − | // Oxy set normal
| |
| − | If $OldVent7 <> $Oxy
| |
| − | SetConst VentBX = $Vent1
| |
| − | Call Vent
| |
| − | SetConst OldVent7 = 1
| |
| − | Delay 20
| |
| − | End
| |
| − | When $Oxy = 2
| |
| − | // Close vent
| |
| − | If $OldVent7 <> $Oxy
| |
| − | SetConst VentBX = $Vent0
| |
| − | Call Vent
| |
| − | SetConst OldVent7 = 2
| |
| − | Delay 20
| |
| − | 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 20
| |
| − | End
| |
| − | When $Oxy = 1
| |
| − | // Oxy set normal
| |
| − | If $OldVent8 <> $Oxy
| |
| − | SetConst VentBX = $Vent1
| |
| − | Call Vent
| |
| − | SetConst OldVent8 = 1
| |
| − | Delay 20
| |
| − | End
| |
| − | When $Oxy = 2
| |
| − | // Close vent
| |
| − | If $OldVent8 <> $Oxy
| |
| − | SetConst VentBX = $Vent0
| |
| − | Call Vent
| |
| − | SetConst OldVent8 = 2
| |
| − | Delay 20
| |
| − | 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 50
| |
| − | 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 + 16
| |
| − | Compute AddX = $AddX - 3
| |
| − | Compute Add3Y = $Add3Y + 16
| |
| − | Compute Add1Y = $Add1Y - 16
| |
| − | Compute WoodBY = $WoodBY + 16
| |
| − | //Compute HeatX = $HeatX - 4
| |
| − | Compute HeatY = $HeatY + 16
| |
| − | //Compute Oxy1X = $Oxy1X
| |
| − | //Compute Oxy2X =
| |
| − | Compute OxyY = $OxyY + 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
| |
| − | End
| |
| − | //Written with ACTool 5.3.0 by Anka
| |
| − | //Modified with ACTool 5.4.0 by rwindmtg
| |
| − | //Modified Further with ACTool 5.4.0 for personal use by Justin
| |
| − | Bell Asterisk
| |
| − | | |
| − | | |
| − | ***********************************************************************************
| |
| − | | |
| − | Settings: Note these work well for me for 2 CCovens at once. for 4 ovens, reduce the Check Bars Interval to a value of 900.
| |
| − | | |
| − | Ovens = 2
| |
| − | Guilded? = checked
| |
| − | Window Setup = unchecked
| |
| − | Heat = 162
| |
| − | HeatMin = 128
| |
| − | HeatMax = 174
| |
| − | Low Oxy = 93
| |
| − | High Oxy = 134
| |
| − | Wood = 104
| |
| − | Water = 77
| |
| − | Danger = 160
| |
| − | MaxDanger = 170
| |
| − | RGBGreen = 240
| |
| − | RGBBlue = 220
| |
| − | Check Bars Interval = 1200
| |
| − | Interval Increase = 500
| |
