Well i found an high alcher in the forums ( i needed one really bad and i don't want to wait 5 days )
SCAR Code:
{==============================================================|
|==============================================================|
* *
* *SCRIPT INFO* *
* *
* # MADE BY : r4z0rlike *
* # NAME OF SCRIPT : r4z0rs Alcher *
* # DATE STARTED : 12 Jan 2008 *
* # VERSION : 1.3 *
* *
|==============================================================|
* *
* *SCRIPT USAGE* *
* # USAGE : Auto alchs whatever you want *
* # SETUP : Equip a fire staff or have fire *
* runes in your inventory. Have *
* nats and notes to alch in the *
* 16th spot. *
* Enough runes to cast High Alcemy *
* # OTHER : Setup on line 37-53 *
* # INSTRUCTIONS : *
* 1. Set brightness to VB [Very Bright] *
* 2. Leave your chats how you want. *
*
*==============================================================}
program AutoAlcher;
{.include SRL\SRL.scar}
var
x1,y1,x2,y2,AlchTimes,HighAlch,Report,Log,Rest,Talked: Integer;
const
RunDirection ='S'; //What direction do you want to run incase of a fight.
AlchsToDo =10000; //How many items you want to alch
AntiBan =true; //Anti Ban? (true = reccomended)
Talk =false; //Talking (turn off in non-populated areas)
LogTime =0; //0 for off (In minutes)
WaitTime =1; //Log out for how long? (in minutes)
Magelvl ='76'; //Your magic level
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of PLAYERS. active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
Procedure ProgressReport;
var sec:integer;
begin
sec := GetTimeRunning div 1000+1;
Cleardebug;
Writeln('|==================================|');
Writeln('|Worked for: '+ TimeRunning );
Writeln('|Items Alched: '+ IntToStr(AlchTimes));
Writeln('|Mage Experience gained: '+ IntToStr(AlchTimes*65));
Writeln('|Items per hour: '+IntToStr(Round(3600*AlchTimes/Sec)))
Writeln('|Exp per hour: '+IntToStr(Round(3600*AlchTimes/Sec)*65))
Writeln('|We rested: '+IntToStr(Rest) +' times')
Writeln('|We responded: '+IntToStr(Talked) +' times');
Writeln('|==================================|');
Report:=0
end;
Procedure Navigation;
begin
Gametab(7);
HighAlch := DTMFromString('78DA633CC9C4C010C8C8800C7E7DE3613002D' +
'220D1FF40C07816A8C60D550D44164602E98B40357E04D45C01AA' +
'0926A0E612504D3801358788507310A82688809AD34498731EA8C' +
'68B809A23403501F8D50000A66F117D');
if (not(FindDTM(HighAlch, x1, y1, MIX1, MIY1, MIX2, MIY2)))then
begin
Writeln('High Alchemy button not found!')
TerminateScript;
end;
MMouse(x1,y1,5,5);
GetmousePos(x2,y2)
end;
procedure AntiBanz;
begin
if(AntiBan)then
begin
if(not(LoggedIn))then
Exit;
case Random(7) of
0: begin
HoverSkill('Magic', false);
wait(3000+random(500));
Navigation;
end;
1: begin
PickUpMouse;
wait(2000+random(200));
Navigation;
end;
2: begin;
SleepAndMoveMouse(10000+random(5000));
Navigation;
end;
3: case Random(5) of
0: begin
If(Talk)then
TypeSend('Logging off for a min. Cya');
LogOut;
wait(50000+random(10000));
Loginplayer;
Navigation;
Rest:=Rest+1;
end;
4: begin
If(Talk)then
case random(7) of
0: TypeSend('Mage lvls?');
1: Begin
TypeSend('Im bored -.-');
Wait(500+random(100))
TypeSend('Ive been alching for '+ TimeRunning +'Minutes');
end;
2: TypeSend('Only '+ IntToStr(AlchsToDo-Alchtimes) +' alchs left');
3: TypeSend('Hai');
4: TypeSend('Im lagging really bad here');
5: TypeSend('Ooh! its shiny');
6: begin
TypeSend('Dumdiedumdiedum. lalalala');
wait(300+random(200))
TypeSend('Yes, alching is driving me crazy :P');
end;
end;
end;
end;
5: RandomMovement;
6: BoredHuman;
end;
end;
end;
Procedure Alching;
begin
if(not(LoggedIn))then Exit;
GameTab(7);
Mouse(x2, y2, 0, 0, true);
wait(1400+random(200));
Mouse(x2, y2, 0, 0, true);
wait(1000+random(200));
AlchTimes:=AlchTimes + 1
Report:=Report+1
end;
Function InChatLine(myString: string): Boolean;
Begin
Result := ( pos(myString, TheLine) <> 0 );
End;
Function ChatBack: Boolean; // By Lorax(SL Scripts)
Begin
SaveToChatLog;
if ( OldLine = TheLine ) or ( pos(Players[CurrentPlayer].Nick, TheName) <> 0 ) then
Exit;
if InChatLine(Players[CurrentPlayer].Nick) then
Begin
Wait(2000 + Random(500));
Case Random(10) of
0: TypeSend('Hey');
1: TypeSend('sup');
2: TypeSend('whatsup');
3: TypeSend('hai');
4: TypeSend('hi');
5: TypeSend('gday :p');
6: TypeSend('ohi');
7: TypeSend('ohai');
8: TypeSend('hello');
9: TypeSend('hllo');
end;
Talked:=Talked+1;
End;
if ( InChatLine('mage') or InChatLine('magic') or InChatLine('age') ) and
( InChatLine('lv') or InChatLine('leve') ) then
Begin
Wait(1000 + Random(500));
case Random(2) of
0: TypeSend ('im '+(magelvl)+'');
1: Typesend ('me,'+(magelvl)+'.');
End;
Talked:=Talked+1;
Result := True;
Exit;
End;
if InChatLine('hi ') or InChatLine('ello') or InChatLine('sup') or
InChatLine('whats up') then
Begin
Wait(1000 + Random(500));
case Random(4) of
0: TypeSend('hello');
1: TypeSend('hey');
2: TypeSend('hey there');
3: TypeSend('hi');
End;
Talked:=Talked+1;
Result := True;
Exit;
End;
if InChatLine('duel') or InChatLine('fight') or InChatLine('game') or InChatLine('challenge')
or InChatLine('play') then
Begin
Wait(1000 + Random(500));
case Random(5) of
0: TypeSend('Nah, i just want to alch..');
1: TypeSend('nty');
2: TypeSend('nah srry');
3: TypeSend('ím busy');
4: TypeSend('please leave me');
End;
Talked:=Talked+1;
Result := True;
Exit;
End;
Result := True;
Exit;
End;
{*******************************************************************************
function FindDaRS: Boolean;
By: RsN
Description: Finds RS Window
*******************************************************************************}
function FindDaRS: Boolean;
begin
Result := FindWindowBySize(766, 504);
end;
begin
Case random(5) of
1: Disguise('iTunes');
2: Disguise('Windows Live Messenger');
3: Disguise('AIM');
4: Disguise('Internet Explorer 7');
end;
SetupSrl;
DeclarePlayers;
if (not (FindDaRS)) then
begin
WriteLn('No Runescape!.');
TerminateScript;
end;
ActivateClient
if(not(loggedin))then loginplayer;
log := GetSystemTime;
SetAngle(true);
Navigation;
Cleardebug;
repeat
Alching;
if (report=5)then
ProgressReport;
if(LogTime>0)then
begin
if((GetSystemTime-log > (Logtime*60000)))then
begin
Writeln('Taking a break for '+IntToStr(WaitTime)+' minutes');
LogOut;
wait(WaitTime*60000)
wait(5000+random(10000))
LoginPlayer;
Writeln('We are back!');
Navigation;
Rest:=Rest+1;
Log:= GetSystemTime;
end;
end;
If(AntiBan)then
if(random(15) = 1)then
AntiBanz;
ChatBack;
until AlchTimes=AlchsToDo;
ProgressReport;
Writeln('Please post your progress report!');
end.
So, when i run the script, the high alchemy spell keeps being casted on nothing.

The mouse never gets on an item spot and keeps casting the spell on nothing.
I would appreciate any help on fixing the script (if anyone could do it please)
or sending me a link to a good a recent high alcher