[SRL] Auto Alcher 2007[SRL]

I DO NOT TAKE ANY CREDIT FOR THIS>> i found it on http://www.scar-scripts.com/archive

I need some1 to verify if its safe..


{
_______ __ __ _______ __ __
| | |__|.-----.| |--. | _ | |.----.| |--.-----.----.
| | || _ || | | | || __|| | -__| _|
|___|___|__||___ ||__|__| |___|___|__||____||__|__|_____|__|
|_____|
______ _____
| __ \.--.--. _| |.-----.-----.-----.
| __ <| | | | || -__| |__ --|
|______/|___ | |_______||_____|__|__|_____|
|_____|

Feel free to distribute this script, You are allowed to modify it and keep
it for personal use. If you want to distribute a modified version of this
script, contact me at webmaster[at]scar-scripts[dot]com. N-joy

>>> INSTRUCTIONS
- Equip a fire staff
- Notes to alch in first inventory spot
- Nature Runes somewhere in inventory

>>> VERSION HISTORY
1.1 [mar '07] Compatible with SRL and also for the normal runescape client
1.0 [jan '06] Original Scarscape version

>>> CREDITS
SRL : Thanks for the awesome include
Scar-Scripts.com : Great scripts library and community
}

program HighAlcher;
{.include SRL/SRL.scar}
var Count, ux, uy : Integer;

const
Notes = 321; //Number of notes you are going to alch
AntiBanFeature = true; // true = Enables the antiban feature

procedure MagicTab;
begin
if(not(GetColor(733,177)=2829182))then
Mouse(730,179,19,22,true);
end;

function Click(What: String): boolean;
begin
repeat
if(What = 'Alch')then
begin
MMouse(711,325,20,18);
end else
MMouse(569,213,31,31);
Wait(50 + Random(79));
until(ReadUpText('Cast'))
Wait(Random(27));
GetMousePos(ux,uy);
Mouse(ux,uy,0,0,true);
Result:= true;
end;

procedure Randoms;
var SafeBan: Integer;
begin
FindNormalRandoms;
if(AntiBanFeature)then
begin
SafeBan := Random(100);
case SafeBan of
1: RotateEvery(10 + Random(2));
2: RandomRClickEvery(5 + Random(6));
3: LeaveScreenEvery(8 + Random(9));
4: HoverSkill('Magic', false);
5: PickUpMouseEvery(2 + Random(4));
6: WWait(5400 + Random(1500));
7: PickUpMouse;
8: AlmostLogout;
9: BoredEvery(10 + Random(2));
end;
end;
end;

begin
ActivateClient;
SetupSRL;
DisguiseScar('C:\Program Files\iTunes');
MagicTab;
Randoms;
Status('Alching...');
repeat
Click('Alch');
Randoms;
Click('Note');
Count:= Count + 1;
Wait(1290+random(200));
until(Count >= Notes)
Randoms;
Status('Done Alching');
Logout;
end.



---------------------------------------

Can some1 tell me how safe is it? thx.

 

it doesnt work that well.. if at all

and you should prolly post your own scripts

or get permission from the owner

 

There also is no finding talking randoms in it or running from fights. The first procedure is also useless because this script does use SRL so it could have just been Gametab(7). I wouldn't trust this script if i was alching some mage longs with 400k ish worth of items.