The Wiki for Tale 4 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 "Iron macro"

From A Tale in the Desert
Jump to navigationJump to search
Line 16: Line 16:
 
OEOffset=List
 
OEOffset=List
 
END
 
END
 +
// This macro doesn't work 100%, I have gotten between 80% and 90% return
 +
// When it mis-id's a crystal it will fail as many times in a row as your OELevel is set
 
Constants
 
Constants
 
OELevel = 2  // change this to your Ore Extraction level
 
OELevel = 2  // change this to your Ore Extraction level
totalpulls = 300 // How many times do you want it to pull the mine
+
totalpulls = 50 // How many times do you want it to pull the mine
 
colordiff = 30 // this is used to find a base for comparison, shouldn't need adjusting
 
colordiff = 30 // this is used to find a base for comparison, shouldn't need adjusting
 
CDiff = 0
 
CDiff = 0

Revision as of 05:32, 8 January 2009

// This is what I suggest for setting up for this macro
// First align your view so you can see all 7 crystals clearly
// second use Alt-L to lock your camera angle
// Third before starting this, I suggest you have your mouse sitting over
//  the first crystal.
// You will have 3 seconds between the recording of each crystal's location
// place your mouse over a spot of average gem color for each crystal in turn
// Once it has identified the 7 crystals, it will run the mine
Constructs
	MouseX=List // this is an array of mouse X coords for gem sample points
	MouseY=List // this is an array of mouse X coords for gem sample points
	CrysColorR=List
	CrysColorG=List
	CrysColorB=List
	OEOffset=List
END
// This macro doesn't work 100%, I have gotten between 80% and 90% return
// When it mis-id's a crystal it will fail as many times in a row as your OELevel is set
Constants
	OELevel = 2  // change this to your Ore Extraction level
	totalpulls = 50 // How many times do you want it to pull the mine
	colordiff = 30 // this is used to find a base for comparison, shouldn't need adjusting
	CDiff = 0
	CurrHigh = 0
	Compare = 0
	Currcrys = 0
	DIFFFOUND = 0
	loopcnt = 1 
	Mousecnt = 1
	MouseXN = 0
	MouseYN = 0
	ColorRS = 0
	ColorGS = 0
	ColorBS = 0
	OElistcnt = 0
	OELvlset = 1
End

// First part that requires a detailed explanation
// this loop will pause for 3 seconds then grab the current mouse location
// its purpose is to identify the 7 sampling locations for the crystals
// when it grabs the sampling spot, it will then echo a . to the chat window
// make sure you are in your main chat tab.
Loop 7
	Delay 3000
	Listadd MouseX, {MouseX}
	Listadd MouseY, {MouseY}
	SayPaste .
END

ListClear OEOffset

loop $totalpulls
	Compute loopcnt = 1
	ListClear CrysColorR
	ListClear CrysColorG
	ListClear CrysColorB
	loop 7
		mousepos MouseX[$loopcnt], MouseY[$loopcnt]
		LoadRGB MouseX[$loopcnt], MouseY[$loopcnt]

		Call CALCCOLOR
		Compute loopcnt = $loopcnt + 1
		Delay 100
	END
	
	CALL FindtheOdd
	
	CALL OreExtractionstore
		
	ListCount OEOffset, $OElistcnt
	IF $OELevel > $OElistcnt
		Compute OELvlset = OEOffset[$OElistcnt]
	ELSE
		Compute OELvlset = OEOffset[$OELevel]
	END
	//Saypaste $OELevel $OElistcnt $OELvlset
	
	mousepos MouseX[$OELvlset], MouseY[$OELvlset]
	Delay 200 //200
	leftclick
	Compute MouseXN = MouseX[$OELvlset] + 15 // adjust this if you need to for the menu click
	Compute MouseYN = MouseY[$OELvlset] - 5 // adjust this if you need to for the menu click
	Mousepos $MouseXN, $MouseYN
	Delay 200
	Leftclick
	
	Delay 4300 // Delay to manage the str/perc timer on mining, adjust as needed
	
end

Procedure CALCCOLOR // This procedure grabs the color of the crystal
	Listadd CrysColorR, {RGBRed}
	Listadd CrysColorG, {RGBGreen}
	Listadd CrysColorB, {RGBBlue}

	//Saypaste {RGBRed} {RGBGreen} {RGBBlue}
END

Procedure FindtheOdd
	Call Findcompare
	Compute CDiff = 0
	Compute CurrHigh = 0
	
	Compute Currcrys = 1
	loop 7 // Red loop
		IF $Currcrys <> $Compare
			Compute ColorRS = CrysColorR[$Currcrys] - CrysColorR[$Compare]
			IF $ColorRS < 0
				Compute ColorRS = 0 - $ColorRS
			END
			
			IF $ColorRS > $CDiff
				Compute CDiff = $ColorRS
				Compute CurrHigh = $Currcrys
			END
		END
		
		Compute Currcrys = $Currcrys + 1
	END
	
	Compute Currcrys = 1
	loop 7 // Green loop
		IF $Currcrys <> $Compare
			Compute ColorGS = CrysColorG[$Currcrys] - CrysColorG[$Compare]
			IF $ColorGS < 0
				Compute ColorGS = 0 - $ColorGS
			END
			
			IF $ColorGS > $CDiff
				Compute CDiff = $ColorGS
				Compute CurrHigh = $Currcrys
			END
		END
		
		Compute Currcrys = $Currcrys + 1
	END
	
	Compute Currcrys = 1
	loop 7 // Blue loop
		IF $Currcrys <> $Compare
			Compute ColorBS = CrysColorB[$Currcrys] - CrysColorB[$Compare]
			IF $ColorBS < 0
				Compute ColorBS = 0 - $ColorBS
			END
			
			IF $ColorBS > $CDiff
				Compute CDiff = $ColorBS
				Compute CurrHigh = $Currcrys
			END
		END
		
		Compute Currcrys = $Currcrys + 1
	End
	Compute Mousecnt = $CurrHigh
END

Procedure OreExtractionstore
	ListCount OEOffset, $OElistcnt
	IF $OElistcnt = 0
		Listadd OEOffset, $Mousecnt
	ELSE
		IF $OElistcnt = 1
			Listadd OEOffset, OEOffset[1]
		END
		IF $OElistcnt = 2
			Listadd OEOffset, OEOffset[2]
			Compute OEOffset[2] = OEOffset[1]
		END
		IF $OElistcnt = 3
			Listadd OEOffset, OEOffset[3]
			Compute OEOffset[3] = OEOffset[2]
			Compute OEOffset[2] = OEOffset[1]
		END
		IF $OElistcnt = 4
			Listadd OEOffset, OEOffset[4]
			Compute OEOffset[4] = OEOffset[3]
			Compute OEOffset[3] = OEOffset[2]
			Compute OEOffset[2] = OEOffset[1]
		END
		IF $OElistcnt = 5
			Listadd OEOffset, OEOffset[5]
			Compute OEOffset[5] = OEOffset[4]
			Compute OEOffset[4] = OEOffset[3]
			Compute OEOffset[3] = OEOffset[2]
			Compute OEOffset[2] = OEOffset[1]
		END
		IF $OElistcnt = 6
			Listadd OEOffset, OEOffset[6]
			Compute OEOffset[6] = OEOffset[5]
			Compute OEOffset[5] = OEOffset[4]
			Compute OEOffset[4] = OEOffset[3]
			Compute OEOffset[3] = OEOffset[2]
			Compute OEOffset[2] = OEOffset[1]
		END
		IF $OElistcnt = 7
			Compute OEOffset[7] = OEOffset[6]
			Compute OEOffset[6] = OEOffset[5]
			Compute OEOffset[5] = OEOffset[4]
			Compute OEOffset[4] = OEOffset[3]
			Compute OEOffset[3] = OEOffset[2]
			Compute OEOffset[2] = OEOffset[1]
		END

		Compute OEOffset[1] = $Mousecnt
	END

END

Procedure FindCompare
	Compute ColorRS = CrysColorR[1] - CrysColorR[2]
	Compute ColorGS = CrysColorG[1] - CrysColorG[2]
	Compute ColorBS = CrysColorB[1] - CrysColorB[2]
	
	IF $ColorRS < 0
		Compute ColorRS = 0 - $ColorRS
	END
	IF $ColorGS < 0
		Compute ColorGS = 0 - $ColorGS
	END
	IF $ColorBS < 0
		Compute ColorBS = 0 - $ColorBS
	END
	
	IF $ColorRS < $colordiff AND $ColorGS < $colordiff AND $ColorBS < $colordiff
		Compute Compare = 1
	ELSE
		Compute ColorRS = CrysColorR[1] - CrysColorR[3]
		Compute ColorGS = CrysColorG[1] - CrysColorG[3]
		Compute ColorBS = CrysColorB[1] - CrysColorB[3]
	
		IF $ColorRS < 0
			Compute ColorRS = 0 - $ColorRS
		END
		IF $ColorGS < 0
			Compute ColorGS = 0 - $ColorGS
		END
		IF $ColorBS < 0
			Compute ColorBS = 0 - $ColorBS
		END
		
		IF $ColorRS < $colordiff AND $ColorGS < $colordiff AND $ColorBS < $colordiff
			Compute Compare = 1
		ELSE
			Compute Compare = 2
		END
	END

END

back to Macro list:[Mosaic Macros]