User:Heplotep

That's right. I am the player formerly known as DisShovel. My main camp is around -650, 400 in Khmun. Drop by some time.

And now Barrel Master 1000 !

// This will not load the barrels.. and it important to get the vise window size correct.
// it changes size after you load... so load one barrel, close the vise window, click to
// reopen, then pin it in upper left corner
// After the first barrel, the window will remain the correct size, just unload, and load 
// and then start the macro.

// IT IS NOT AUTOMATIC YET, it will not stop when the barrel completes, you must stop it
// As allow, you screen size may affect the constants.. the descriptions are pretty 
// self descriptive. The decision method is the fuel level and flamebar as described
// on the wiki.

Constants
//User Definable variables
LeftBarendX = 65
FuelBarY = 151
FlameBarDecisionX = 160
FlameBarY = 169
ProgreesBarY = 215  
FuelPixelPerTick =  5
TempX = 0
TempY = 0
Fuel = 0
Flame = 0
ColorDetect = 50

End



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


// Start up - 7 stokes
Loop 7

	Call Stoke
	Delay 1500
End

// Then Main Control Loop until stopped

While 1 = 1

	Call CheckBars
	
	If $Flame = 0
		If $Fuel < 2 
			If $Fuel < 1
				Call Stoke
				Delay 1000
				Call Stoke
			Else	
				Call Stoke
			End
		End
	End
	
	Delay 2500
end

Procedure CheckBars
	
	Compute TempX = $LeftBarendX + $FuelPixelPerTick
	Compute TempY = $FuelBarY
	// Point Mouse at fuel bar as indication of action	
  MousePos $TempX, $TempY
 	delay 200
	//check if fuel is fist tick or above
  LoadRGB $TempX, $TempY
  if {RGBRed} < $ColorDetect
    SetConst Fuel = 1
    
  Else
    SetConst Fuel = 0
    
  End
	// if it is, check one tick left
	If $Fuel > 0 
		Compute TempX = $TempX + $FuelPixelPerTick
		LoadRGB $TempX, $TempY
  	if {RGBRed} < $ColorDetect
    	Compute Fuel = $Fuel + 1
   	End
   End
   
  // Now check the flame
	Compute TempX = $FlameBarDecisionX
	Compute TempY = $FlameBarY
	// Point Mouse at flame bar as indication of action	
  MousePos $TempX, $TempY
 	delay 200
	//check if fuel is fist tick or above
  LoadRGB $TempX, $TempY
  if {RGBRed} < $ColorDetect
    SetConst Flame = 1
  	//Bell Asterisk 
  Else
    SetConst Flame = 0
  End

End



Procedure Stoke
	
	MousePos 161, 220
	delay 100
	Leftclick
	//Bell
  
End
	
	
	Bell