1. plaese read up on standards =\
2. please use "[ scar]" and "[/ scar]" tags in future (no space)
3. personaly i wouldent have the f12 and f1 bit try using Ctrl + Alt + P to pause it but ill try and keep it..
SCAR Code:
program New;
{.include SRL/SRL.scar}
Const
Altar = 7831681;//the color of the altar
var
x, y, i, DragonBone: Integer;
Procedure LoadDTM;
begin
DragonBone := DTMFromString('78DA630C656460E8026224509891C1C005A 44' +
'1A2FF81803109C89A8CAA06220B23817400905547408D0790 D54D' +
'400DC8AE56FC6A00E94209BC');
end;
Function ClickBone : boolean;
begin
LoadDTM;
if FindDTM(DragonBone,x,y,MIx1,MIy1,MIx2,MIy2) then
begin
mouse(x,y,5,5,false);
Wait(100+random(200));
if ChooseOption('se') then result:=true;
FreeDTM(DragonBone);
end;
end;
procedure UseOnAltar;
begin
if IsUpText('ragon') then
begin
if findcolorspiraltolerance( x, y, Altar, MSX1, MSY1, MSX2, MSY2, 10) then
begin
mmouse(x,y,5,5);
Wait(100+random(200));
if isuptext('ltar') then mouse(x,y,0,0,true);
end;
end else exit;
end;
begin
SetupSRL;
repeat
if IsFKeyDown(12) then
begin
ActivateClient;
for i:=0 to 26 do
begin
ClickBone;
UseOnAltar;
end;
end;
until(IsFKeyDown(1));
end.
If you whant it to work realy well then ive changed ur script to include a custem made funciton that will search all alter colors till it finds the alter just try it 
SCAR Code:
program New;
{.include SRL/SRL.scar}
Const
Altar = 7831681;//the color of the altar
var
x, y, i, DragonBone: Integer;
Procedure LoadDTM;
begin
DragonBone := DTMFromString('78DA630C656460E8026224509891C1C005A 44' +
'1A2FF81803109C89A8CAA06220B23817400905547408D0790 D54D' +
'400DC8AE56FC6A00E94209BC');
end;
function TPAFind(Var X, y :integer; colors :TIntegerArray; TheUpText :String):boolean;
//By Bazzbarrett and ProphesyOfWolf!
var
CTS, Ic : Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
H, S, L, HueMod, SatMod, tolerance :extended;
midcolor: integer;
HueString, SatString:string;
I,II : integer;
HSLColor : Array[1..3] of Extended;
HSL: Array[0..1] of Array[1..3] of Extended;
begin
//Work Out some values
For Ic:= 1 to 3 do
begin;
HSL[0][ic] := 255; //Max is 240?
end;
For Ic:= 0 to High(Colors) do
begin;
ColortoHSL(Colors[ic],HSLColor[1],HSLColor[2],HSLColor[3]);
For II:= 1 to 3 do
begin;
HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
end;
end;
For Ic:= 0 to 9 do
begin;
end;
H := HSL[1][1] - HSL[0][1];
S := HSL[1][2] - HSL[0][2];
L := HSL[1][3] - HSL[0][3];
midcolor := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
HueMod := (H/L);
SatMod := (S/L);
tolerance := L;
//FIND the TPA!
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(Huemod, satmod );
FindColorsSpiralTolerance(MSCX, MSCY, TPA, MidColor, MSX1, MSY1, MSX2, MSY2, round(tolerance+0.5));
ColorToleranceSpeed(CTS);
ATPA := TPAToATPAEx(TPA, 15, 15);
For Ic := 0 to High(ATPA) do
begin
MiddleTPAEx(ATPA[i], x, y);
MMouse(x, y, 2, 2);
Wait(50);
If(IsUpTextMultiCustom([TheUpText])) then
begin
Result := True;
GetMousePos(x, y);
Break;
end;
end;
end;
Function ClickBone : boolean;
begin
LoadDTM;
if FindDTM(DragonBone,x,y,MIx1,MIy1,MIx2,MIy2) then
begin
mouse(x,y,5,5,false);
Wait(100+random(200));
if ChooseOption('se') then result:=true;
FreeDTM(DragonBone);
end;
end;
procedure UseOnAltar;
begin
if IsUpText('ragon') then
begin
if TPAFind(x, y, [Altar], 'ltar') then
begin
mmouse(x,y,5,5);
Wait(100+random(200));
if isuptext('ltar') then mouse(x,y,0,0,true);
end;
end else exit;
end;
begin
SetupSRL;
repeat
if IsFKeyDown(12) then
begin
ActivateClient;
for i:=0 to 26 do
begin
ClickBone;
UseOnAltar;
end;
end;
until(IsFKeyDown(1));
end.
Overall a very nice script and 1 i may even use my self =)