SRL Archive - First Scripts

ok so here's my script

//-------------------------------------------------------------------//
//                                                                   //
//                                                                   //
//                           WELCOME!!                               //
//                                                                   //
//                                                                   //
//             This is playah8tah's very virst script!               //
//                                                                   //
//      This should be used with caution as you can get banned       //
//                                                                   //
//                                                                   //
//                                                                   //
//-------------------------------------------------------------------//

//-----------------------------------------//
//             Directions:                 //
//                                         //
//  1. Fill in script with necessary info  //
//  2. Login to Runescape                  //
//  3. Specify client window via crosshair //
//  4. Run script!                         //
//                                         //
//-----------------------------------------//

program Spaminator;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Mining.scar}

var
Talked : integer;
const YourName = ''; //Your character's name here
SmartWorld = 70; //What world to load smart in
Signed = True; //False = unsigned, slower and for multiplayer
//True = signed, faster and for 1 player only
RunDirection = 'N'; //N = North, E = East, S = South, W = West

procedure spamination;
begin
case (Random(8)) of
//Insert what you wish to spam between the pink ''s
1:TypeSend('');
2:TypeSend('');
3:TypeSend('');
4:TypeSend('');
5:TypeSend('');
6:TypeSend('');
7:TypeSend('');
8:TypeSend('');
//If you want to add more, just copy the template and put the next number eg. (9:TypeSend('');)
//DONT FORGET TO CHANGE THE VARIABLE IN -case (Random()) of- on line 29
end;
end;

//-----------------------------------------------------------//
//                                                           //
//            Please do not touch below this point           //
//                                                           //
//-----------------------------------------------------------//

procedure SetUpSmart;
begin
Status('Setting up SMART!');
smartSetupex(SmartWorld, False, Signed);
While Not (SmartReady) Do
Wait(100);
SetTargetDC(SmartGetDC);
If Not (LoggedIn) Then
While Not (SmartGetColor(386, 249) = 65535) Do
Wait(100);
end;

procedure DontLogOut;
begin
  if not LoggedIn then
    Exit;
    Status('Performing Antiban');
  case Random(68) of
    0: HoverSkill('Mining', False);
    1: HoverSkill('Smithing', false);
    2: begin
        GameTab(1 + Random(12));
        wait(800 + random(500));
        GameTab(4)
      end;
    3: BoredHuman;
    4: AlmostLogout;
    5: DoEmote(400 + Random(90));
  end;
end;

Procedure FindFightEx;
Begin
 If(FindFight) then
   Begin
   Status('Fight found!');
     Writeln('Our player is being attacked!')
     Writeln('Lets run away!')
   Begin
   Status('Running away!');
     WriteLn('Running....')
     RunAway('N',False,1,8000+Random(3000))
     WriteLn('Successfully ran away from fight!')
   end;
 end;
end;

Procedure AntiRandoms;
var
i : Integer;
Begin
Status('Doing AntiRandoms');
 for i := 0 to 3 do
   FindNormalRandoms;
   FindFightEx;
   FindNonInventoryRandoms;
 wait(1)
end;

procedure announce;
begin;
writeln('|----------------------------------------------------------------|');
writeln('|                                                                |');
writeln('|                     This script is brought                     |');
writeln('|                            to you by:                          |');
writeln('|                                                                |');
writeln('|                                      ____ _______              |');
writeln('| |----| |    |   |   |    |   |    | /    \   |      |   |    | |');
writeln('| |    | |   | |  \   /   | |  |    | \    /   |     | |  |    | |');
Writeln('| |    | |  |   |  | |   |   | |    |  |__|    |    |   | |    | |');
writeln('| |----| |  |---|  \ /   |---| |----|  |  |    |    |---| |----| |');
writeln('| |      | |     |  |   |     ||    | /    \   |   |     ||    | |');
writeln('| |      | |     |  |   |     ||    | \____/   |   |     ||    | |');
writeln('|                                                                |');
writeln('|                                                                |');
writeln('|----------------------------------------------------------------|');
end;

Procedure Progress;
Begin
Status('Writing progress report');
cleardebug;
  WriteLn('  *********************************************')
  WriteLn('  Times talked := '+IntToStr(Talked)+' Times!  ')
  WriteLn('  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')
  WriteLn('  Ran For := ' +TimeRunning);
  WriteLn('  *********************************************')
end;

begin
announce;
SetUpSmart;
activateclient;
SetupSRL;
SetAngle(true);
MakeCompass('N');
repeat
spamination;
DontLogOut;
AntiRandoms;
Progress;
until false;
end.

Need another "end;"

end; {<<<<----- right here}
end; 

//-----------------------------------------------------------//
//                                                           //
//            Please do not touch below this point           //
//                                                           //
//-----------------------------------------------------------//

procedure SetUpSmart;

Also use

TypeSend

instead of

Sendkeys

Its safer


Edit: NEED STANDARDS!

thanks for the help, but i still get an error :(

Failed when compiling
Line 80: [Error] (13287:1): Syntax error in script C:\Program Files\SCAR 3.15\Scripts\Games\Runescape\auto-talker.scar

any advice?

In the cases you forgot "2:"

procedure DontLogOut;
begin
  if not LoggedIn then
    Exit;
    Status('Performing Antiban');
  case Random(68) of
    0: HoverSkill('Mining', False);
    1: HoverSkill('Smithing', false);
    2:  begin {<<<<-----Before the begin}
        GameTab(1 + Random(12));
        wait(800 + random(500));
        GameTab(4)
      end;
    3: BoredHuman;
    4: AlmostLogout;
    5: DoEmote(377 + Random(90));
  end;
end;

lol….. thanks :)

I updated the script, but for some reason it is closing right after it begins…. any suggestions?

Try getting it to work without smart, then adding smart in later, I've seen that behavior with smart scripts sometimes.

http://freddy1990.com/fawg.php

download that, run it, and put the file it creates in srl/scss

that'll make smart work again.

~RM