//Bonfire macro v1.6b
//written by Helpmaboab, 27th march 2005
//works using the 4 x 4 array of bonfires set up using setup macro
//pin individual bonfire windows in a stack in bottom right corner, then run macro
//requires 112 wood in inventory, and 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 = 4
	columns = 4
	countx = 0
	rightx = 0
	down = -5
	leftx=412
	getx = 935
	gety = 587
	winx = 119
	winy = 40
	unx = 592
	uny = 46
end


mousepos 500,20
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

loop 7
	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 250
				leftclick //refresh window
				compute winy = $winy + 45
				compute winx = $winx + 135
			end
		compute winy = $winy + 165
		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 + 165
		set winx = 100
	end
end