SCAR Code:
{ NOTE: this is only my first script so it probably isnt the best)
Program AlchMeBot;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL\SRL.SCAR}
// Instructions fill out lies 8-13 and press play!!
const
////////////////////////////
Name ='';
Pass ='';
///////////////////////////
SmartWorld = 'world100';
HowMany = 2; // how many high alchemys?
WindowDisguise ='Lime Wire';// what you want it to be disguised as?
var
HowManyAlchemy: integer;
Procedure ClickOnExistingUserButton;
begin
ClearDebug;
Mouse(327,381,1,1,true);
Mouse(381,174,1,1,true);
Wait(500);
end;
Procedure TypeInUserandPass;
Begin
Mouse(324,258,1,1,true);
TypeSend(name);
Wait(500+Random(1000));
Mouse(330,328,1,1,true);
TypeSend(pass);
Mouse(376,368,1,1,true);
Wait(6000+Random(7000));
Mouse(331,351,1,1,true);
Wait(3000+Random(1000));
end;
Procedure ClickOnMageTab;
begin
SetAllChats('on','off','on','on','on');
Mouse(741,185,1,1,true);
wait(1000);
end;
Procedure RotateCompass;
begin
if not LoggedIn then Exit;
case random(9) of
0:MakeCompass('N');
1:MakeCompass('W');
2:MakeCompass('S');
3:MakeCompass('N');
4:MakeCompass('S');
5:MakeCompass('E');
6:MakeCompass('W');
end;
end;
procedure Randoms;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
end;
Procedure Alch;
var
i: Integer;
begin
i:= 0;
repeat
i:= i + 1;
Mouse(568,364,1,1,true);
Mouse(568,364,1,1,true);
wait(2350);
until(i >= (HowMany));
end;
Procedure WeAreDone;
Begin
mouse(753,11,1,1,true);
wait(500)
Mouse(629,376,1,1,true);
end;
procedure StartUp;
begin
ClearDebug;
writeln('waiting 15 sec for S.M.A.R.T to load!!!!');
Disguise('15');
wait(1000)
Disguise('14');
wait(1000)
Disguise('13');
wait(1000)
Disguise('12');
wait(1000)
Disguise('11');
wait(1000)
Disguise('10');
wait(1000)
Disguise('9');
wait(1000)
Disguise('8');
wait(1000)
Disguise('7');
wait(1000)
Disguise('6');
wait(1000)
Disguise('5');
wait(1000)
Disguise('4');
wait(1000)
Disguise('3');
wait(1000)
Disguise('2');
wait(1000)
Disguise('....1');
wait(1000)
Disguise('STARTING!');
Disguise(WindowDisguise);
end;
procedure TotalAlch;
begin
HowManyAlchemy := HowManyAlchemy +(howmany);
end;
procedure Prog;
begin
WriteLn('[====================================================]');
WriteLn('[ ~ Progress Report ~ ]');
WriteLn('[====================================================]');
Writeln('[ Script Worked for ' + TimeRunning);
Writeln('[ Total Alchemy = ' + IntToStr(HowManyAlchemy));
writeln('[ Thanks for using Soulshooters Basic Alchbot SMART V1.0');
writeln('[====================================================]');
end;
procedure NoUserNameOrPass;
Begin
If (name = '') Or (pass = '') Then
Begin
ClearDebug;
WriteLn('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
WriteLn('|Please enter your Username and/or Password in lines 8 and 9.|');
WriteLn('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
TerminateScript;
End;
end;
///////////////////////////////////////////////////////
begin
NoUserNameOrPass;
SMARTSetUp((SmartWorld), True, True, False); {World prefix, safe mode, unsigned, RS-HD}
SetTargetDC(SMARTGetDC);
SetUpSRL;
STartUp;
ClickOnExistingUserButton;
TypeInUserandPass;
ActivateClient;
ClickOnMageTab;
RotateCompass;
Alch;
WeAreDone;
TotalAlch;
Prog;
End.
///////////////////////////////////////////////////////