Thanks Nava2, here's my procedure so far:
Simba Code:
{SelectSkin- Thanks to Dgby714, ZephyrsFury, and Nava2 for help with this}
procedure SSkin;
var
GPos: TPointArray;
i, Skin: Integer;
C : TPoint;
begin
if not(CCScreen) then
Exit;
SetLength(GPos, 12);
GPos := [Point(463, 27), Point(486, 27), Point(515, 27), Point(538, 27),
Point(561, 27), Point(587, 27), Point(614, 27), Point(640, 27),
Point(663, 27), Point(687, 27), Point(713, 27), Point(739, 27)];
for i:= Low(GPos) to High(GPos) do
if (CountColorTolerance(14859158, GPos[i].x, GPos[i].y, GPos[i].x+1, GPos[i].y+1, 63) > 0) then
C := GPos[i];
case (C.x) of
463: Constant := 0;
486: Constant := 1;
515: Constant := 2;
538: Constant := 3;
561: Constant := 4;
587: Constant := 5;
614: Constant := 6;
640: Constant := 7;
663: Constant := 8;
687: Constant := 9;
713: Constant := 10;
739: Constant := 11;
end;
Skin := Random(11);
if (Skin = Constant) then
if (Constant = 11) then
Dec(Skin)
else
if (Constant > -1) then
Inc(Skin);
Mouse(GPos[Skin].x, GPos[Skin].y+2+random(4), 5, 5, True);
Wait(356+random(653));
end;
The case seems large, I'll see what I can do with it. 
E:
Simba Code:
{SelectSkin- Thanks to Dgby714 and ZephyrsFury for help with this}
procedure SSkin;
var
GPos: TPointArray;
i, Skin: Integer;
SkinID: TIntegerArray;
C : TPoint;
begin
if not(CCScreen) then
Exit;
SetLength(GPos, 12);
GPos := [Point(463, 27), Point(486, 27), Point(515, 27), Point(538, 27),
Point(561, 27), Point(587, 27), Point(614, 27), Point(640, 27),
Point(663, 27), Point(687, 27), Point(713, 27), Point(739, 27)];
SetLength(SkinID, 12);
SkinID := [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11];
for i:= Low(GPos) to High(GPos) do
if (CountColorTolerance(14859158, GPos[i].x, GPos[i].y, GPos[i].x+1, GPos[i].y+1, 63) > 0) then
begin
C := GPos[i];
Constant := SkinID[i];
end;
Skin := Random(11);
if (Skin = Constant) then
if (Constant = 11) then
Dec(Skin)
else
if (Constant > -1) then
Inc(Skin);
Mouse(GPos[Skin].x, GPos[Skin].y+2+random(4), 5, 5, True);
Wait(356+random(653));
end;
Made it shorter!