ATITD5 - User contributions [en]

Alpha/cc

2010-09-22T03:25:40Z

AlphaBob: Blanked the page

Alpha/cc

2010-09-22T03:06:20Z

AlphaBob:

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</nowiki><nowiki>'''Insert non-formatted text here'''<nowiki><nowiki>Insert non-formatted text here</nowiki>''Italic text''</nowiki></nowiki></nowiki></nowiki>

Alpha/cc

2010-09-22T03:05:01Z

AlphaBob:

<nowiki>//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</nowiki><nowiki>'''Insert non-formatted text here'''<nowiki><nowiki>Insert non-formatted text here</nowiki>''Italic text''</nowiki></nowiki></nowiki></nowiki>

Alpha/cc

2010-09-22T03:03:12Z

AlphaBob: Created page with "//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 t..."

//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
//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

Alpha

2010-09-08T02:27:11Z

AlphaBob: Created page with "Alpha Guild page yay! Category:Guilds {{DEFAULTSORT:Alpha}}"

Alpha Guild page yay!

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

Guilds/Alpha

2010-09-08T02:26:24Z

AlphaBob: Blanked the page

Guilds/Alpha

2010-09-08T02:25:50Z

AlphaBob:

Alpha guild site yay!

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

Guilds/Alpha

2010-09-08T02:25:01Z

AlphaBob: Created page with "Alpha guild site yay! Category:Guilds {{DEFAULTSORT:Guildname}}"

Alpha guild site yay!

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