SRL Archive - First Scripts

This is my first script i made it a alcher cuz i needed things alched and was to lazy to do it myself :p
Instructions: set up likes 8-13 (verry easy) than try it out. (workd for me plz post if it works for you/ dosnt work and plz tell me what i did wrong)

{ 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.
///////////////////////////////////////////////////////

Second script My auto typer!! plz test it to and tell me what you think

 Program Auto-typer (second script made)
   // instructions pretty much everything with (//) in it
{.include srl/srl.scar}

var
  times  : integer; // make this integer for let it stop after wanted types.

const
howmuch = 20; // how much times to type the text
text1    = 'mesage here'; // mesage you want to send
text2   = 'mesage here'; // mesage 2
text3   = 'mesage here'; // mesage 3
text4   = 'mesage here'; // mesage 4
text5   = 'mesage here'; // mesage 5
text6   = 'mesage here'; // mesage 6
text7   = 'mesage here'; // mesage 7

procedure typing;
begin
  case random(3) of  // will choose random one of this 3 mesages
  0 : typesend(mesage1);  // use typesend for not being banned
  1 : typesend(mesage2);
  2 : typesend(mesage3);
end;
  times := times + 1
end;

begin
  SetupSRL;
  FindWindowBySize(766, 504); // these
  Activateclient;             //will select the client!
  repeat
    typing;
    wait(2000 + random(500));  // use +random in your wait, i would advise (better for anti ban)
    until(times = howmuch)
  terminatescript;
end. 

Kool I tell you how it went in a few :)

Looks good. might use for my mem (when i make me) and post proggies…good attempt for first script!

BTW you might wanna add in anti ban :p

Movemouse….

Not to bad for your first script :f: Keep going u need anti- ban features tho :P since they can easily tell wether your auto talking :f: