SRL Archive - Archive

How Long have You Played Runescape?
6 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
n/a


What is your general programming knowledge?
scar >> new
turing >> less new


Are you a member of any other communities?
fknowned.com
scapegaming.com
and some nameless others that I dunno.


Tell us about yourself…

From: mrpickle
(** It has only been 23 days since I last sent an application, but I strongly feel that i should send one about now. But, feel free to ignore this for 7 more days if I really have to solidly wait for a month. **)

Male: and Canadian
pros: swiming, soccer, strategy related things.
cons: Amount of sleep.

I do not like pickles. and I like cheating.

Please show us one (or multiple) of your scripts.
This wont work for some reason. The
WaitForBitmap(1000,35,CAfirststart); at line 113 doesnot seem to work properly. Script clicks CA, and opens it. then it starts pressing backspace >.>…???

(+ this is like a non-release way to ask for help ^^)

// CombatArms Resolution at 800 x 600 before hand. 32 bit true color.
// Start script with Combat Arms closed, and an Icon to the Combat Arms laucher.
//
//
program CombatArmsAutoPlayer;
{.Include SRL/SRL.Scar}

const
PlayerUser = (''); // Your username?
PlayerPass = (''); //Your password?
Battles = 25; // How many battles to face before stopping?
//******************************************************************************
Version = ('0.11'); // No touch
//******************************************************************************
Full = 2760862;
Busy = 1855142;
Moderate = 1605743;
Loww = 8220699;

var Timer1,x,y,CAicon,CAfirststart,NexonLogoSmall,CannotContactNexon,CAmainlobby,
xChoice,yChoice,QuickJoin,CAgamestart,LoadBar,SprintBar,CAmatchfinished,Count
:integer;

//By: Da 0wner
procedure iType(Text : string; WaitTime : integer; Return : boolean);
var
  i: integer;
  s : string;
begin
  s := '~!@#$%^&*()_+ABCDEFGHIJKLMNOPQRSTUVWXYZ{}|:"<>?';
  for i := 1 to Length(Text) do
  begin
    if  pos(Text[i], s) > 0 then
    begin
      KeyDown(VK_SHIFT);
      Wait(WaitTime + Random(15) + Random(50));
    end;
    KeyDown(GetKeyCode(Text[i]));
    Wait(WaitTime + Random(30));
    KeyUp(GetKeyCode(Text[i]));
    Wait(WaitTime + Random(30));
    if  pos(Text[i], s) > 0 then KeyUp(VK_SHIFT);
  end;
  if Return then
  begin
    Wait(10 + Random(30));
    KeyDown(VK_RETURN);
    Wait(10 + Random(30));
    KeyUp(VK_RETURN);
  end;
end;

// By Da Owner
// Edit By mixter
function WaitForBitmap(Delay, MaxTime, Bitmap : integer) : boolean;
var
  T, x, y : integer;
begin
  T := GetSystemTime;
  Result := True;
  while (GetSystemTime - T >= MaxTime) do
    if (FindBitmap(Bitmap, x, y)) then
      exit
    else
      wait(Delay);
  Result := False;
end;

Procedure WaitForDTM(DelayCounting, MaxDelayCounting, DTM:integer);
var time:integer;
begin
  repeat
      wait(DelayCounting);
      Time := Time + 1
      If Time > MaxDelayCounting then
        Writeln ('Timed Out');
        Break;
  until (FindDTM(DTM,x,y,0,0,1400,1200))
  Time := 0
end;

Procedure ClickingCombatArms;
begin
CAicon := BitmapFromString(2, 7, 'beNqbkdfe2V1cXF5QUJKVke1n' +
       'YVDoZ7+uKm5PV+6jbRMebZmwpTFpS13cpQkZ1wGvpBWT');
  If (FindBitmap(CAicon,x,y)) then
  begin
    MoveMouseSmooth(x,y);
    clickmouse(x,y,true);
    wait(10+random(5));
    clickmouse(x,y,true);
  end else
  writeln('Cannot Find Combat Arms icon, exiting');
  exit;
end;

Procedure StartingCombatArms;
begin
CAfirststart := BitmapFromString(12, 14, 'beNrj5Lx8nQeCrtzg' +
       'BZKXrnED0YnTvNExWiYmJhZgcPCoSHOrdnqGWUqqUWaW9rSZUmBlX' +
       'BevcgG5pqamBgYGDg4O9vb2NjY2QK6hoSFQr5+/5vFTPBevcjY2yw' +
       'IV6Onp2YOBlZWVkZFRV490do68jo6Oi6t2Q5OsjY0+UBdQma2tLdA' +
       'QIENTU/P8ZY6zF9kWLeXx9lEzAQOIybX1klU14hVVIkAEVABH7Z3i' +
       '1tb6QAVAN0D0IqNzl9jOX2YHMo6d5E5KUdHX179whQMoeOYCy5kLr' +
       'ECEqpgdKAtUAzEHrgbMgLL3H2b18xcQExOrqhErrxQuLuUvLRcEKj' +
       '59ngViWm09r4wMvwAYKCsrS0hICAsLA9UDFZw6xzx7HpuxMZ+WtqC' +
       'RMa+QkBBQXElJSUREhA8Myis5QsO4gAwDQ+59h0Dq1dR4gVygIYKC' +
       'gjxgAOQCSX0Drn0HmYEKgMoUlTiAYNtOjowsAVs7bhtbLv8AgdZ2z' +
       'pNnmYAIqCYwmI0TCACdJKuH');
NexonLogoSmall := BitmapFromString(5, 7, 'beNq7oc/gOQEf6j3H' +
       'UHeAIXMtQ+Q8EHfuHTgyWL4GwlBZsWfiyaiDN/QllhyrPFQAZGBBA' +
       'DqvLsQ=');
    WaitForBitmap(1000,35,CAfirststart);
    FindBitmap(CAfirststart,x,y)
    Mouse(x+random(2)-random(2),y-random(2),5,5,true);
    WaitForBitmap(1000,110,NexonLogoSmall);
end;

Procedure Login;
begin
CAfirststart := BitmapFromString(2, 6, 'beNo7yHz2Itu5S+xnLr' +
       'DuP8RSVskuJMymqMiurcO67yDzqXMgtA8AFosOcg==');
NexonLogoSmall := BitmapFromString(5, 7, 'beNq7oc/gOQEf6j3H' +
       'UHeAIXMtQ+Q8EHfuHTgyWL4GwlBZsWfiyaiDN/QllhyrPFQAZGBBA' +
       'DqvLsQ=');
CannotContactNexon := DTMFromString('78DA637CCFC0C0F09F910119ACADF402D3305' +
       '1461620A181AA46564A0C55CD3546C26AA4812C6E261435622242' +
       'A86AF60309365435AAD2A86A0038C006AF');
  // Clears the Login
  KeyDown(VK_TAB);
  wait(100+random(100));
  KeyUp(VK_TAB);
  repeat
      KeyDown(VK_BACK);
      wait(100+random(100));
      KeyUp(VK_BACK);
      Timer1 := Timer1 + 1
  until (Timer1 = 16+random(2))
  Timer1 := 0
  // The Login
  FindBitMap(NexonLogoSmall,x,y)
  Mouse(x-485+random(4)-random(4),y-227+random(4)-random(4),5,5,true);
  Writeln('Typing your username ' + PlayerUser);
  iType(PlayerUser,7+random(3),false);
  wait(250+random(250));
  Mouse(x-487+random(4)-random(4),y-190+random(4)-random(4),5,5,true);
  Writeln('Typing your password ' + PlayerPass);
  iType(PlayerPass,12+random(3),true);
  Writeln('Pressed Enter, and we are logging in');
  wait(794+random(500));
  If (FindDTM(CannotContactNexon,x,y,0,0,1000,800)) then
  iType('',14+random(3),true);
  wait(1000+random(500));
  iType('',14+random(3),true);
end;

Procedure ChoosingServerAndGame;
begin
CAmainlobby := BitmapFromString(12, 2, 'beNrj4fy3lgGI/q5lmJ' +
       '3NyM7GwsHOxs7OurueESLurMfKx8u1uwHKBaLTXYwc7KzsbAg1Tno' +
       'svACC7BhN');
QuickJoin := DTMFromString('78DA63FCC1C0C010CCC8800CF2DC84C0344C9' +
       '4713790704255030370357B80442CAA1A011E4E54352781442AAA' +
       '1A69696954358640563C01BB8C1931DC8CA1468F11C3CDFCDC1CA' +
       '86A981909FBEB3E61BF030046FC08F9');
CAgamestart := BitmapFromString(122, 1, 'beNrT0PDx8dHQ0GBkZ' +
       'Ey2lsiyFC4wF6h1Ee8MkJsYqjA9WmVakOxEJ5FpfpKLkjWWZeoujF' +
       'VZlKC2IFZ5mqfY3Ej5FdkG8yIVZ/hKzg2Tnx0s0xGkEGIs+u/fv//' +
       '//xcmheXYiTV6S+V7am5YueQ/GJw4cqDY37DbR6zRTyIrxPbD+3dA' +
       'wQxPyWVZ8qe6dS6scLi03PbsdMM9XXr9GYr9zTn////7DwM3rl7I8' +
       'lfuipOuCJKY2dcMEZw1sSXFhj/HRTjUmM9MldvPQevG5XMQqTPHD5' +
       'oqc50+dgDCXTZvsrepUJAhL0LvpNbOdOX9XdoXOtQuT9W9sdnp+ka' +
       'Hq/NNrs43vTLHCMi4sd3t2lLz89UKZ3MkznerXZyofb5H48IEndM1' +
       'SsezpY6VKZyeYnRyguHhGtV95co7s+U2xkpsKdXY0mK2NF15mq94r' +
       '69Ei6tYjZdUkZt0vD5/qqepBgAPf7OE');
LoadBar := BitmapFromString(3, 11, 'beNoz5Vp7WRGClpyUh6BZe2' +
       'UhqH2tFASVThODoKRaIQgKSOeHIMdgHggydeaCIG1zDgjSNeUCIQD' +
       'HdiA+');
SprintBar := BitmapFromString(4, 4, 'beNr79//s//+n/v9f' +
       '/g+ECLMBMBQrbQ==');
CAmatchfinished := BitmapFromString(101, 1, 'beNp9kEEKhCAYR' +
       'q0LFBJt3AhBC08U7RRp0CwmpnI8Tfeoy82HwjAww7yV6C+89zNWVR' +
       'WllDHWNA3nvCiKvu+VUlrrYRhuEWOMtXYcR+fcNE3zPN8jy7I8Iuu' +
       '6btu277v3/hkJIaSD/8V1XVmWEULO83xfHseB+zzPSQQDeP2c/P7y' +
       'H/jACm5JErZJG/6oQAuK0IW6lIleHZFSdl1XliUWIoRo2xb7qeuav' +
       'QBdfXGY');
        writeln('Running Normally');
        Case random(2) of
        0:begin
            xChoice := 427
            yChoice := 247
          end;
        1:begin
            xChoice := 424
            yChoice := 279
          end;
        end;
        WaitForBitmap(1000,30000,CAmainlobby);
        writeln('We are now in the Channel Screen');
        wait(1000+random(500));
        Case random(6) of
          0:begin
              xChoice := 389
              yChoice := 216
            end;
          1:begin
              xChoice := 387
              yChoice := 245
            end;
         2:begin
              xChoice := 387
              yChoice := 274
           end;
         3:begin
              xChoice := 387
              yChoice := 301
           end;
         4:begin
              xChoice := 388
              yChoice := 328
           end;
         5:begin
              xChoice := 388
              yChoice := 358
           end;
        end;
        Mouse(xChoice+random(5)-random(5),yChoice-random(5)+random(5),5,5,true);
        wait(100+random(100));
        Mouse(495+random(5)-random(5),663-random(5)+random(5),5,5,true);
        WaitForDTM(1000,25,QuickJoin);
        writeln('We are now in the Game lobby');
        If(FindDTM(QuickJoin,x,y,0,0,1000,800)) then
          Mouse(x+random(5)-random(5),y-random(5)+random(5),5,5,true);
          writeln('We are joining a game');
          WaitForBitmap(1000,25,CAgamestart);
          If(FindBitmap(CAgamestart,x,y)) then
            Mouse(x+random(5)-random(5),y-random(5)+random(5),5,5,true);
            writeln('We are starting the game... checking for loading');
            WaitForBitmap(1000,25,LoadBar);
            writeln('Game is loading, we are waiting to Join the Game');
            WaitForBitmap(1000,60,SprintBar);
         end;
            
Procedure MatchFightingAndEnding;
begin
QuickJoin := DTMFromString('78DA63FCC1C0C010CCC8800CF2DC84C0344C9' +
       '4713790704255030370357B80442CAA1A011E4E54352781442AAA' +
       '1A69696954358640563C01BB8C1931DC8CA1468F11C3CDFCDC1CA' +
       '86A981909FBEB3E61BF030046FC08F9');
CAgamestart := BitmapFromString(122, 1, 'beNrT0PDx8dHQ0GBkZ' +
       'Ey2lsiyFC4wF6h1Ee8MkJsYqjA9WmVakOxEJ5FpfpKLkjWWZeoujF' +
       'VZlKC2IFZ5mqfY3Ej5FdkG8yIVZ/hKzg2Tnx0s0xGkEGIs+u/fv//' +
       '//xcmheXYiTV6S+V7am5YueQ/GJw4cqDY37DbR6zRTyIrxPbD+3dA' +
       'wQxPyWVZ8qe6dS6scLi03PbsdMM9XXr9GYr9zTn////7DwM3rl7I8' +
       'lfuipOuCJKY2dcMEZw1sSXFhj/HRTjUmM9MldvPQevG5XMQqTPHD5' +
       'oqc50+dgDCXTZvsrepUJAhL0LvpNbOdOX9XdoXOtQuT9W9sdnp+ka' +
       'Hq/NNrs43vTLHCMi4sd3t2lLz89UKZ3MkznerXZyofb5H48IEndM1' +
       'SsezpY6VKZyeYnRyguHhGtV95co7s+U2xkpsKdXY0mK2NF15mq94r' +
       '69Ei6tYjZdUkZt0vD5/qqepBgAPf7OE');
CAmatchfinished := BitmapFromString(101, 1, 'beNp9kEEKhCAYR' +
       'q0LFBJt3AhBC08U7RRp0CwmpnI8Tfeoy82HwjAww7yV6C+89zNWVR' +
       'WllDHWNA3nvCiKvu+VUlrrYRhuEWOMtXYcR+fcNE3zPN8jy7I8Iuu' +
       '6btu277v3/hkJIaSD/8V1XVmWEULO83xfHseB+zzPSQQDeP2c/P7y' +
       'H/jACm5JErZJG/6oQAuK0IW6lIleHZFSdl1XliUWIoRo2xb7qeuav' +
       'QBdfXGY');
  repeat
  wait(1+random(33421)); // No fighting yet, just waiting and random move to not get auto kicked.
    Case random(2) of
        0:begin
             Mouse(400+random(5)-random(5),300-random(5)+random(5),5,5,true);
          end;
        1:begin
             Mouse(400,300,5,5,true);
         {   KeyDown(VK_C);
            wait(100+random(200));
            KeyDown(VK_C);    }
          end;
        end;
  until (FindBitmap(CAmatchfinished,x,y))
  wait(2000+random(2000));
  FindBitmap(CAmatchfinished,x,y);
  Mouse(x+random(7)-random(7),y-random(7)+random(7),5,5,true);
  WaitForBitmap(1000,25,CAgamestart);
  wait(1000+random(2000));
  Mouse(685+random(10)-random(7),515-random(7)+random(7),5,5,true);
  WaitForDTM(1000,25,QuickJoin);
  wait(1000+random(2000));
  Mouse(685+random(10)-random(7),515-random(7)+random(7),5,5,true);
end;

begin
  setupsrl;
  ClickingCombatArms;
  StartingCombatArms;
  Login;
  repeat
    count := count + 1
    WaitForBitmap(1000,40,CAmainlobby);
    if (not(findcolor(x,y,Full,408,350,422,367))) then
      if (not(findcolor(x,y,Busy,408,350,422,367))) then
        if (not(findcolor(x,y,Moderate,408,350,422,367))) then
          if (not(findcolor(x,y,Loww,408,350,422,367))) then
          begin
            ChoosingServerAndGame;
            MatchFightingAndEnding;
          end else
            Writeln('There is a Popup, pressing enter and then continuing');
            repeat
              iType('',14+random(3),true);
            until (findcolor(x,y,Full,408,350,422,367) or (findcolor(x,y,Busy,408,350,422,367)) or (findcolor(x,y,Moderate,408,350,422,367)) or  (findcolor(x,y,Loww,408,350,422,367)))
            ChoosingServerAndGame;
            MatchFightingAndEnding;
   Until (Count > Battles)
end.

0/10.

Reason :

    MoveMouseSmooth(x,y);
    clickmouse(x,y,true);
    wait(10+random(5));
    clickmouse(x,y,true);

I used Mouse. but the randomness in it wouldn't double click properly =D.

EDIT: that's also before it even connects to the game.

Dr D, read before, it isn't a script for RS, from what I can see it's for CombatArms.

From: Cazax
Dr D, read before, it isn't a script for RS, from what I can see it's for CombatArms.

Thought the rules said RuneScape related only ?

… well, if that's the case. Fail#2 for me X_x.

Q: What if it is not an RS script?
A: Judge it as another kind of script. If you think the script is not complex enought then vote according to your thoughts. RS scripts are the usual in applications, but not a must.

Nope.

Well. Its just not advanced Enough.
I see no DTMs, TPA's or anything. The most comlicated things I see in there are those BitMap procedures, and thsoe arnt even close to complicated.
(I see 1 DTM)
Better luck next time ;)

what i want to know is who voted yes?!?!?!?!?

i voted no. Reason: No DTM's, no complexity. Applied just to get help (msn)
sorry if im not allowed to post this info

T~M

Well, i will get to the complicated things later… the actually running and shooting in the game. But then that's a colossal jump in the scripting skills that are required. So far, it's just clicks + fail safes.

I can't use TPA or even arrays and other things that are common in most scar scripts, only because I dont need it xD.

From: The Man
i voted no. Reason: No DTM's, no complexity. Applied just to get help (msn)
sorry if im not allowed to post this info

T~M

what happened to waiting a little b4 voting??
u became me about 3 minutes ago :rolleyes:

In either case. if you vote positively or negatively, I do think this script was a major jump in my ability to script in scar since last time (23 days ago)! ^^.

It is a good start, but I suggest reading a few more tutorials before applying again. Learn to use DTMs, TPAs and failsafes. Also, I would suggest making an RS related script, so you can incorporate these into the script.

Richard

you know basics, though rs related scripts will get us to understand even more and make the voting process easier.

Sorry NO.

It doesn't really matter how much better you are now, the point is (not to be a dick or brutally mean) that it doesn't function well enough and show enough skills to be a SRL Member.

I suggest making an RS script and showing skills that way.

No no, I accept criticism quite freely, and none of you are being dicks xD.

I can make an rs script, and bring in all the pre-made functions. But the way I view this is we already have all the scripts for everything….. I'm pretty happy with all the actively updated scripts that are here: and it's pretty hard to beat those =D. So, I wondered to myself, why not make something that is not here. So I resulted to this.
But of course I know more fuctions and things on this script, just I dont need them and can't use them.

I will make a RS script if I get tired of trying to make this and my own fuctions as I go along.

From: The Man
i voted no. Reason: No DTM's, no complexity. Applied just to get help (msn)
sorry if im not allowed to post this info

T~M

Don't vote this fast…wtf?

The thing is, you need to show those things. So if you can't with this script, then you will need to make a different type of script.

BTW - I'm not voting either way on this poll.

Np ;D, i'll do one for member's sake, then go on struggling on this one.

I'm thinking low lv script, or if I have more time, a combination script that uses previously made tut runners, and auto account making.

Lol, waiting before posting is not a rule, it's a suggestion…
Anyway, this decision is not something that requires any experience in voting… No, because of the reasons named above

sorry its a no from me, and incase you havent already been told or noticed you have left your pass and user in

dont worry about that. it is a test file =D. if it gets banned, hacked, etc. doesn't matter. Edit: I erased that, too much hassle to make a new acc if that happens.

And thanks for everyone's input on their decisions. This was more commented on then my last appication, which means there are some improvement with something I did.

I havn't heard from the person who voted yes… I would like to hear your view too.

Let's stop this nonsense please. It does NOT have to be an rs script, although it'd have to be a very good non-rs script for you to get in.

What is most important is the logic and the techniques used, and from what i can see, those are not extremely advanced which is why i would vote no.

However, some of you, should understand that using ClickMouse and MoveMouseSmooth is acceptable in circunstances outside of RS because these other sites / games do not check for such things.

Also, by not being for RS you don't show knowledge of using SRL and important things such as multiplayer.

But remember guys, it does NOT have to be an rs script. As long as it sows the applicant is more than able to script.

~RM