SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
dark4mdawn - SRL Member Application Form
dark4mdawn

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
none so far

Other Communitys
sythe , mopar,

How Long have You Played Runescape
1 year

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I'm from NZ i have not previous experience so i decided to learn scar which i greatly enjoy using and working with scar.

what i know already about scar

*Btipmap finding
*DTM finding
*Color finding and tolerances
*IsTextup
*ChooseOPtion
*forms

and imam learning radial walk At the moment

thank hope from hearing from you soon
sorry i couldn't add attachment because it says
dark4mdawn, you do not have permission to access this page.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program AutoLogin;
{.include SRL/SRL.scar}

{ ========================================================================}
{             will auto login into runscape.                              }
{             Version 0.2 Released date: 11/ 07/ 07/                      }
{=========================================================================}

{_________________________________________________________________________}
{                                                                         }
{                    * Variables & contants  *                            }
{_________________________________________________________________________}
const
speed=(1);//1 for highspeed internet or 2+ and up for dial up users
version=2;

var
  EU, L, CHTP, a,b,c:integer;
{_________________________________________________________________________}
{                                                                         }
{            *  Declare user here 1 person at The moment *                }
{_________________________________________________________________________}
procedure Declare;
begin
Typesend ('user')//user name
Typesend ('pass')//password
end;
{_________________________________________________________________________}
{                                                                         }
{                        * Loads Dtms *                                   }
{_________________________________________________________________________}
  Procedure LoadDtms;
  begin
     EU := DTMFromString  ('78DA633CC1C8C0A00CC448E0FFFFFF0CAC409' +
          'A11C2FECFD8016409A3AAE1E6E606D33051C64E20CB98801A6126' +
          'E2D410B2EB2490654E400DC85FFCF8D5000003610C68');

     L := DTMFromString  ('78DA633466646048066224F0FFFF7F300D136' +
          '57C0E247C50D5088B88A2AA7901244A50D5707373A3AA296724AC' +
          'A612C8F2C5AF06000DE40885');

     CHTP := DTMFromString  ('78DA639CCAC8C0900DC448E0FFFFFF601A26C' +
          'A280164B9A2AAF16062C0543309554D281B23AA9ACF40D6645435' +
          '790AA2A86A3E02596EA86AAC9951ED02000830095D');
     end;

procedure ExistingUser;
  begin
     if (findDtm(EU, x, y, 118, 113, 901, 658)) then
     A := 1
  end;

procedure Login;
  begin
     if (FindDTM(L, x, y, 118, 113, 901, 658)) then
     B := 1
  end;

procedure ClickHereToPlay;
  begin
     if (FindDTM(CHTP, x, y, 118, 113, 901, 658)) then
     C := 1
  end;


procedure Logo;
begin
WriteLn('   /\    _   _    _      __       ')
wait(100)
WriteLn('  /  \  | | | | _| |_  /    \     ' )
wait(100)
WriteLn(' / __ \ | |_| ||_   _||      |    ' )
wait(100)
WriteLn('/_/  \_\\_____/  |_|   \ __ /     ')
wait(100)
WriteLn('* By Dark4mdawn  version '+IntToStr (Version));
end;
{__________________________________________________________________}
{                                                                  }
{                        * Main procedure *                        }
{__________________________________________________________________}

begin
  ClearDebug;
   Logo;
    Wait(1000);
     ActivateClient;
      SetupSRL;
       LoadDtms;
        ExistingUser;
      if A = 1 then
        Mouse (x, y,3,3,True)else
      begin
        TerminateScript;
     end;
      begin
        Wait(500 + random (300))
         Declare;
          Wait (3000 + random (600))
           Login
          if B = 1 then
            Mouse (x, y,1,1, True)
           if speed = 1 then
             wait(7000 + random(200))else
            begin
              wait(10000 + random(500))
             end;
               ClickHereToPlay;
              if C = 1 then
                Mouse (x, y,5,5, True)
               if (loggedIn)then
             WriteLn ('You should be logged in')
           freeDtm(EU);
         freeDtm(L);
       freeDtm(CHTP);
      end;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

You need more than just a simple autologin.
You need a full working script that plays rs with
antiban
antirandoms
multiplayer
multiple scripting techniques ect.

Please read around more and try again later.