SRL Archive - First Scripts

W00T!! OK firstly the credits
Mat_de_b - This guy fixed EXTREME errors, this would've taken weeks to do without him.
Mylesmadness - Gave me standards
For a link of my first version and to see their corrections, its at http://www.villavu.com/forum/showthread.php?t=17103?p=210741#post210741
Alright this is my first script so don't be too critical please <_< I WILL correct this until it is perfect. I didn't add a few things in, so it may be detectable. I've been having difficulties with randoms but it should be good anyway ^^ Have fun, even if it is worse than a regular do-your-own-runs air crafter.
Update:
Fixed Standards
Update:Fixed major bugs, changed constant names, fixed coordinates, fixed a few bad loops.
Next Update:This is going to include something possibly completely new, that could stomp out the very banning of armies ^^
Login will be added, tweaks here and there.
Progress on Update:Standards have been thoroughly fixed.

Work on Standards, they are all over the place.

I was thinking about something like this awhile back.

Ill run it later and post proggie.

program World16AirCrafter;   //By JackLKrawl  MAJOR CREDITS go to
{.include srl/srl.scar}
                        //Mat_de_b - Fixed MAJOR errors
                        //For fixing standards -Mylesmadness
const
  Chat = 8388736;//Change this to the trade color to be safe
  E = 0;         //Change this to the essence color
  Z = 0;         //This is how many times you want the script to craft airs.
var              //Other Directions....
  x,y: integer;          //keep GOLD in the first slot
  I: integer;            //keep ESSENCE in the second slot
  Spammed: integer;
  Essence: integer;
  Tradedz: integer;
procedure Spaminate;
begin
  Spammed:=Spammed+1;
  Random(5);
    case random(5) of
      0: TypeSend('Open 2k!'+chr(13));
      1: TypeSend('Open 2k'+chr(13));
      2: TypeSend('Open 2k + Ess!'+chr(13));
      3: TypeSend('Open 2k + Ess Back!'+chr(13));
      4: TypeSend('Open 2000 + Essence Back!'+chr(13));
    end;
end;

Procedure FindChat;
begin
    if (GetColor(12,451)=Chat) Then
    begin
      Mouse(12,451,1,1,true);
    end;
    if (not(GetColor(12,451)=Chat)) Then
    begin
        repeat
          Spaminate;
          FindChat;
        until(GetColor(12,451)=chat);
    end;
end;

Procedure EnterGold;
begin
  Mouse(577,238,1,1,false);
  wait(700+random(20));
  Mouse(577,318,1,1,true);
  wait(700+random(20));
  TypeSend('2000'+chr(13));
  wait(334+random(986));
  Tradedz:=Tradedz+1
end;

Procedure EnterEssence;
begin
  Mouse(619,226,1,1,false);
  Wait(239+random(59));
  Mouse(619,318,1,1,true);
  wait(286+random(340));
  Typesend('25'+chr(13));
  Essence:=(Essence+1)*25;
end;

procedure AcceptorDecline;
begin
    if GetColor(331, 92) and GetColor(324, 290) = E then
    begin
      Mouse(263, 186, 1, 1, true);
      Wait(200 + random(200));
      Mouse(222, 311, 1, 1, true); ;
      Wait(200 + random(200));
    end;

    if not (GetColor(331, 92)= E) or not (Getcolor(324, 290)= E) then
    begin
      Mouse(x, y, 1, 1, true);
    end;

end;

Procedure CraftZehRunes;
begin
  Mouse(x,y,1,1, true);
  wait(5000);
  Mouse(x,y,1,1, true);
end;

Procedure Proggy;
begin
  Writeln('----JACKLKRAWLS---WORLD16---Air---Crafter----')
  Writeln('You have spammed '+ inttostr(spammed)+' Innocent People');
  Writeln('You have traded '+ inttostr(tradedz)+' Air Runners');
  Writeln('You have made '+ inttostr(essence)+' Rune Essence into Airs!!')
end;

begin
    repeat
      SetupSRL;
      AntiRandoms;
      EnterGold;
      EnterEssence;
      AcceptOrDecline;
      CraftZehRunes;
    until(I=Z);
end.

Think i sorted the standards, thanks for the mention, you should look into trading failsafes so you dont get scammed… other wise it looks good

Thanks mat
I think that you just stole mylesmadness's part though lol

looks good ive been searching for one these, good money maker =D thank you very much for this and great work

Seems good for a first script.

Good job.

Thankyou ^^ Mat fixed a whole lot of things, I got mixed up with sendkeys and typesend, and used movemousesmooth instead of just mouse -_- Honestly, you should see the corrections he made.

Sounds like his script?.

Whats up with the non related consts?

  Z = 0;         //This is how many times you want the script to craft airs.

Just call it runs? loads?. Z has no meaning as doesn't really help when editing or adding settings. same with…

 E = 0;         //Change this to the essence color

esscolor? ecolor?

Learn more.

Uh, what? If the constants bug you, I can change it, but I was just trying to get it finished, and keep the names low.

Sounds like his script?.

Are you implying that I stole it, or was that just a typo?

Learn more.

LOL! I thought that was similar to the community's motto ^^ And yes, I do plan on doing so.

Sweet Starter Script. I'll revise over it tomorrow {posting this at 23:13PM on a school night} and then tell you what I think. :) Also I'll try and fetch a couple of those errors out for you. ;)

Thanks england ^^ I think I have enough time to fix it now though, the only real problems were efficiency(which because of the way I wrote it, I can't really completely fix), randoms and a few getcolors that should be used with tolerance. I'm going to have it updated within two hours

what he ment with ''sounds like his script'''because you said you need to see what corrections chris made

ty works ok now not laggy at all

Procedure CraftZehRunes;
  begin
    Mouse(x,y,1,1, true);
    wait(5000);
    Mouse(x,y,1,1, true);
  end;

i dont think that will exactly craft the runes i think theres a runecraft procedure in SRL for findaltar or somethink

From: JackLKrawl
Uh, what? If the constants bug you, I can change it, but I was just trying to get it finished, and keep the names low.

Are you implying that I stole it, or was that just a typo?

LOL! I thought that was similar to the community's motto ^^ And yes, I do plan on doing so.

As a user yes, the consts do bug me. Without reading the comments i would have no clue what the settings do.

I would be much happier (and would be n00b friendly) if it said. NumberToCraft: etc.

Ahh ok =/ Yeah, it really does, he did a whole lot. Mine was pretty much an outline, and it kinda made me sad lol
Anyways I've updated it, and yeah, you caught the slight mistake. I'll change some constants before I upload it though. When this thing IS finished, it will actually look a whole lot different from what it currently is. I have yet another question though, is there a way to 'randomize' the typing speed? Not as a whole, but so it gives a lag between keys thats more human-like…Such as…
E(25)A(26)T(26) (29)M(30)Y(32) (34)S(23)H(39)O(49)R(53)T(35)S(32)!

And yeah, Rudeboi, I know I saw a findaltar, but I think I'm going to write my own procedures <_< All these variations of Sendkeys etc are confusing a nub like me.

These things will not be updated at the moment, however - The Constant E, and the altar location in CraftZehRunes, as it can be filled in by the user, and we don't need 30 autoers standing at the same place - That would make people suspicious.

These things have been updated - Z has been changed to Crafts. Anti-Randoms have been added. The "slight" mistake involving decline coordinates not being added.

It spazzed my mouse at first..but i got it working now..it works well.

dr speanus getting your psot count to 10?

Nah Herm, I actually did mess up where the mouse would spaz. I had to shut down the computer twice because I wasn't smart enough to add in waits. LOL! It went into a loop of moving the mouse off the screen <_<

Read and apply these; nowhere is more specific.
http://www.villavu.com/forum/showthread.php?t=3293

Edit:
I've looked at it now…

Your failsafes need better implementation and in order for find normal randoms to work you need to declare your players.

When using TypeSend you don't need to add the additional chr(13);

One last thing Ive noticed is that your mouse coordinates could be a bit more random.

OK, thankyou ^^ It's kinda late now, so I'm not sure if I'll be finished with it today, but I think the SCAR Tutorial.exe will give me enough to work with…BTW, if you come back to this Bam Bam, could you read this link, and tell me what you think? Maybe I misunderstood the site's policies, but really…
http://www.villavu.com/forum/showthread.php?t=17356
This is really frustrating for me, and I have no doubt that it's going to look like I'm a leecher if I continue posting Hillary Clinton Jokes, debates, and my opinions all over the place without at least contributing something original…I have no doubt that anyone else here could do better, but no one needs some noob script.
Edit:Oh yes, I am curious. Is there a way to add in useless keys such as, when it types 2000, add in a possibility of a mistype such as "2000qw" and have Jagex detect that? Or do they only know how fast you're typing on average, your accuracy, coordination, etc?
P.S.
I think England forgot about me.. <_<

Line 11: [Error] (17677:1): Duplicate identifier 'x' in script C:\Documents and Settings\owner\Local Settings\Temporary Internet Files\Content.IE5\LZ56YZ87\World16AirCrafter[2].scar

      0: TypeSend('Open 2k!'+chr(13));
      1: TypeSend('Open 2k'+chr(13));
      2: TypeSend('Open 2k + Ess!'+chr(13));
      3: TypeSend('Open 2k + Ess Back!'+chr(13));
      4: TypeSend('Open 2000 + Essence Back!'+chr(13));

TypeSend has enter key in it, don't add chr(13) that will make it hit enter then hit again! lol…. i think jackex might catch on if everytime you hit enter twice? maybe hit enter twice 1/4 of the time?? for anti ban? but id say nahh….

nice first script like it A+ :)

From: footballjds

      0: TypeSend('Open 2k!'+chr(13));
      1: TypeSend('Open 2k'+chr(13));
      2: TypeSend('Open 2k + Ess!'+chr(13));
      3: TypeSend('Open 2k + Ess Back!'+chr(13));
      4: TypeSend('Open 2000 + Essence Back!'+chr(13));

TypeSend has enter key in it, don't add chr(13) that will make it hit enter then hit again! lol…. i think jackex might catch on if everytime you hit enter twice? maybe hit enter twice 1/4 of the time?? for anti ban? but id say nahh….

Thats actually a good idea. I'm going to be redoing this when I have the chance, after I finish the Air Crafter (outside 16)

you have some Infinit loops, IE repeat crap until(findColorCrap); maybe do
until(FindColorCrap) or (not(LoggedIn));
also there is a function in SRL for finding trades, look in the includes folder, under "trades" i tink*

why there is no download link and the person is only active during the summer so unresponsible

…. Look at the post dates.. this script is very old and out dated and has not been posted on in years, that's why..

Seriously I don't mean to come across mad but how hard is to look at the damn date?