//Bonfire macro v2.11
//written by Helpmaboab, 10th December 2005
//developing macro to run 4 stokde bonfires
//pin individual bonfire windows in a stack in bottom right corner, then run macro
//no onions. cabbages, papyrus, fish, water jugs etc etc.....

constants  //set constants
	x1 = 300 // top left x-coord of search grid
	y1 = 200 // top left y-coord of search grid
	xpos = 0 //mousepos during search
	ypos = 0
	rows = 1
	columns = 4
	countx = 0
	rightx = 0
	down = -5
	leftx=412
	getx = 935
	gety = 587
	winx = 119
	winy = 40
	unx = 726
	uny = 46
end


mousepos 500,10
leftclick
delay 500

//arrange bonfire windows
loop $columns //number of columns
		loop $rows // number of rows
 			mousepos $getx, $gety
			delay 500
 			dragto $winx, $winy
 			compute winy = $winy + 165
 		end
	set winy = 40
	compute winx = $winx + 135
end	


call LightFire

delay 15000 //burn down to 1 wood
loop 4  //get temperature up
	call StokeFire
	delay 7000
end


//wait one tick, stoke one tick
loop 246 //for 1000 wood in total
	delay 18000
	call stokefire
end

//loop $columns // unpin windows when done
//	set ypos = $uny
//	loop $rows
//		mousepos $unx, $ypos
//		delay 500
//		leftclick
//		compute ypos = $ypos+165
//	end
//	compute unx = $unx - 135
//end

procedure LightFire //lights bonfires
	set winx = 100
	set winy = 105 //set for light this bonfire
	loop $rows
			loop $columns
				mousepos $winx, $winy
				delay 500
				leftclick
				compute winy = $winy - 45 
				mousepos $winx, $winy
				delay 500
				leftclick //refresh window
				compute winy = $winy + 45
				compute winx = $winx + 135
			end
		compute winy = $winy + 155
		set winx = 100
	end
end

procedure StokeFire //stokes bonfires
	set winx = 100
	set winy = 90 //set for add some wood
	loop $rows
			loop $columns
				mousepos $winx, $winy
				delay 400  //500 => 69 cc; 300 => 64
				leftclick
				MousePos 583, 406 //add one wood
				delay 400  //delay 500 => 69 cc from 16 fires
				leftclick
				
			
				compute winx = $winx + 135
			end
		compute winy = $winy + 155
		set winx = 100
	end
end