Also you have
SCAR Code:
Case LowerCase(Players[CurrentPlayer].Strings[0]) of
'Tin':
(Theres an upprcase T in your tin and C in your copper silly!)
Change Tin to tin and Copper to copper in your setrock.
I think you may have the parameters wrong on this, but im not 100% sure.
SCAR Code:
if FindObjTPA(x, y, Colors[i], 0, -1, 2, 2, 1, ['Mine','Rocks'])then
SCAR Code:
{*******************************************************************************
function FindObjTPA(var x, y: integer; color, tol, cts, ObjWidth, ObjHeight, minCount :Integer; UpText: tstringarray): Boolean;
By: Wizzup?
Description: Finds object using WizzyPlugin functions.
Starts with a Spiral from x and y.
Put in the color, Tolerance and ColorToleranceSpeed.
If you don't know what colortolerancespeed to choose, put in -1.
ObjWidth and ObjHeight are the parameters TPAToATPAEx uses, thus filtering
the MS's FindColorsSpiralTolerance points in boxes defined by
ObjWidth and ObjHeigth.
minCount is the amount of colors it should at least find in a Object box.
UpText, is ofcourse the text the object should have. In the Multi variant the
UpText is a string array.
*******************************************************************************}