Eeehm, let's see. It's pretty nice, though you have the risk of Venegants or however they're named 
And:
SCAR Code:
procedure AntiBanage;
begin
case Random(10) of
0 :
begin
HoverSkill('mining', false);
HoverSkillmining := HoverSkillmining + 1;
end;
1 :
begin
MakeCompass('random');
MakeCompassRandom := MakeCompassRandom + 1;
end;
2 :
begin
Wait(1000+Random(200));
RandomWait := RandomWait + 1;
end;
3 :
begin
RandomMovement;
RandomMovementCount := RandomMovementCount + 1;
end;
4 :
begin
RandomRClick;
RandomRightClick := RandomRightClick + 1;
end;
5 :
begin
HoverSkill('random', false);
HoverSkillRandom := HoverSkillRandom + 1;
end;
6 :
begin
GameTab(3);
OpenQuestsTab := OpenQuestsTab + 1;
end;
end;
end;
The varX := varX + 1 can also be done with "Inc(Var X);"
SCAR Code:
Procedure PickBonesFromFloor;
begin
repeat
AntiRandoms;
if (FindColor(x, y, 13619157, MSX1,MSY1,MSX2,MSY2))
then
MMouse(x,y,1,1);
if isuptext('ones')
then
Mouse(x,y,1,1, true);
wait(4000+random(300))
CantFindBones;
until(InvFull)
end;
Give the (M)Mouses a larger randomness (5 or something).
Oh, and I saw this:
SCAR Code:
procedure setupScript;
begin
cleardebug;
writeln('Jakeyboy29's');
(..)
Should be ('Jakeyboy29'''s');
Oh. And " DisguiseScar('iTunes');" I hate iTunes. 
And rule 227? 
SCAR Code:
players[currentplayer].integers[0]:=countfeathers-players[currentplayer].integers[2];
Countfeathers? :s
Anyways, it's pretty nice, but some things can be changed.