The Wiki for Tale 5 is in read-only mode and is available for archival and reference purposes only. Please visit the current Tale 11 Wiki in the meantime.

If you have any issues with this Wiki, please post in #wiki-editing on Discord or contact Brad in-game.

Difference between revisions of "Alpha/cc"

From ATITD5
Jump to navigationJump to search
Line 1: Line 1:
−
<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
 
Constants
 
   //User Definable variables
 
   //User Definable variables

Revision as of 03:06, 22 September 2010

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

Retrieved from "http://www.atitd.org/wiki/t5w/index.php?title=Alpha/cc&oldid=22358"