SRL Archive - Archive

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

What is the meaning to life?
to have fun and make the most of the skills you have


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


Programming Knowledge
SCAR

Other Communitys


How Long have You Played Runescape
2 years

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

Well about 2 months ago my freind introduced me to SCAR and how it all works and I thought I'd give it a try to get my levels up without having to do anything. And I then got into it quite well about a month ago and thought that I would have a try at making some of my own scripts, my first was a very simple auto-talker which was very basic and easy, then next I made was an auto-alcher that also logged you in, this was still very basic and had no anti-randoms or anything.

Before I came to SRL I had pretty much no programming skills and I'm quie please how far I've got, and I wouldn't have done it if it wasn't for the niceness and the helpfullness of this community.

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

This is an auto-alcher that I've been working on for quite a while now and have added anti-random, auto-respond and it work using a bitmap finder, not coordinate clicking.

It logs you in at the beggining of the script and then just alchs until it reaches the ammount of alchs you set.

//                    Auto-alcher v1.0                  //

//                   Made by: dude_richard              //
//               Description: alches yew longs in       //
//                            any inventory slot        //
//                      Made: 27/01/2008                //

//                      Instructons                     //

//       Fill out your player information in lines      //
//       26-28. Then drag the cross-hair onto your      //
//       runescape client and click run script.         //
//       This should then let you alch perfectly fine!  //                 //

//       Please post progress reports on the thread.    //

Program AutoAlcher;
{.include SRL/SRL.scar}

Var
  AlchesDone, x,y,Bitmap:integer;

Const
  NumberOfAlches = 10; //How many alches you want to do
  Magelvl = '1'; //Type your mage lvl in for auto-respond

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';//Your runescape username
  Players[0].Pass := '';//Your runescape password
  Players[0].Nick := '';//3 letter of your runescape username
  Players[0].Active := True;
End;

Var
YewLongs, Highalch: integer;

Procedure DeclareBMPs;
Begin
     YewLongs := BitmapFromString(19, 19, 'beNqN001LAlEUxnFbVhCJ' +
       'lvRxWrRx06ZPELgQjUrJKClpIm0TSEWJVCj5UtIrw0RURIvwc/WPJ' +
       'w4Xq0E4HK7X82POvXMmqFzV862TlUhkpHG4RH6+3n7qbhFBu/jY3O' +
       'idrXVqOQpY3DfW2bQAUp9Npci3tQSZEKSSelQIzGcyIkT3aNrW6ke' +
       'QBgYgzZilVXK5EG1Vp17bM6zDoY7pWqK+Hx8GupYzkpcXJ/6DFADN' +
       'skPlajpNpkzPZZ9/f0N2XKg+ZYmF5DhZ0L/cDIcDdn5u7PtNXRRcS' +
       'I1BwqDOaDY5O6qFPU5QlmDzpVdi0z2sLo3wzxOygvQgSDZIV/w0qx' +
       'd9uhc3+HazY1ATZdBm2BouZicFKXi/8wzqtgVZ27C5lnHShHw87AJ' +
       'lKaYHQZ5uU+EOZPPgB3765WGgfQheLqo57AcVagYgmR1TgpTJ6or+' +
       'hJzUPkODugFItRQ79mIsBDUYBu1mpARVoFvqfwHFU+4N');

     Highalch := BitmapFromString(1, 19, 'beNqzNnS2hiJHSz04G6sIC' +
       'hcAdhAM6Q==');

End;
       

Procedure Alch;
Begin
  Gametab(7);
if (FindBitmap(Highalch, x, y)) then
Mouse(x, y, 1, 1, True)
if not (FindBitmap(Highalch, x, y)) then
begin
WriteLN('Couldnt find alch button...');
WriteLN('Logging out and terminating script');
Logout;
TerminateScript;
end;
wait(800 + random(500));
if (FindBitmap(YewLongs, x, y)) then
Mouse(x, y, 1, 1, True)
if not (Findbitmap(YewLongs, x, y)) then
Begin
WriteLN('Couldnt find any Yew Longs...');
WriteLN('Logging out and terminating script');
Logout;
TerminateScript;
End;
  AlchesDone := AlchesDone + 1;
End;

Function InChatLine(myString: string): Boolean;
Begin
Result := ( pos(myString, TheLine) <> 0 );
End;

Function ChatBack: Boolean; //originally by Lorax(SL Scripts)
Begin
  SaveToChatLog;

  If ( OldLine = TheLine ) or ( pos(Players[CurrentPlayer].Nick, TheName) <> 0 ) then
    Exit;

  If InChatLine(Players[CurrentPlayer].Nick) then
  Begin
    Wait(1000 + Random(500));
    Case Random(6) of
      0: TypeSend('hello');
      1: TypeSend('hi');
      2: TypeSend('hey');
      3: TypeSend('hey you');
      4: TypeSend('yo');
      5: TypeSend('sup?');
    End;

    Result := True;
    Exit;
  End;

  If ( InChatLine('mage') or InChatLine('magic') or InChatLine('age') ) and
     ( InChatLine('lv') or InChatLine('leve') ) then
  Begin
    Wait(1000 + Random(500));
    case Random(2) of
      0: TypeSend ('im '+(magelvl)+'');
      1: Typesend ('me,'+(magelvl)+'.');
    End;

    Result := True;
    Exit;
  End;

  If InChatLine('hi ') or InChatLine('ello') or InChatLine('sup') or
     InChatLine('whats up') then
  Begin
    Wait(1000 + Random(500));
    case Random(4) of
      0: TypeSend('hello');
      1: TypeSend('hey');
      2: TypeSend('hey there');
      3: TypeSend('hi');
    End;

    Result := True;
    Exit;
  End;

  If InChatLine('lol') or InChatLine('hehe') or InChatLine('hihi') or
     InChatLine('haha') then
  Begin
    Wait(1000 + Random(500));
    case Random(4) of
      0: TypeSend('...');
      1: TypeSend('lool');
      2: TypeSend('rofl');
    End;

    Result := True;
    Exit;
  End;

    Result := True;
    Exit;
  End;

Function FindFastRandoms: Boolean; //originally made by WT-Fakawi.
Var
  i: Integer;
Begin
  for i := 1 to 9 do
  Begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
      9: FindLamp(Players[CurrentPlayer].Skill);
      10: if FindTalk then
          Result := True;
      11: ClickToContinue;
    End;
    wait(1);
  End;
End;
  
Procedure ProgressReport;
 Begin
  ClearDebug
  WriteLn('<<<<<<<<<<<<Auto Alcher v1.0>>>>>>>>>>>>');
  WriteLn('Alched for ' + TimeRunning + ' ');
  WriteLn('Did ' + IntToStr(AlchesDone) + ' High Alches ');
  WriteLn('Earnt ' + IntToStr(AlchesDone * 65) + ' XP');
  WriteLn('<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>');
  WriteLn(' ');
  WriteLN('Please post progress reports on thread')
  WriteLn(' ')
  Wait(2000 + random(200))
End;

Procedure AntiRandoms;
 Begin
  ChatBack;
  FindNormalRandoms;
  FindFastRandoms;
  FindTalk;
 End;
 
Procedure Prepare;
Begin
 SetupSRL;
 ClearDebug;
 DeclareBMPs;
 ActivateClient;
 DeclarePlayers;
 LoginPlayer;
 SRLRandomsReport;
 GameTab(7);
End;

Begin
Prepare;
Repeat
 Alch;
 AntiRandoms;
 ProgressReport;
 Until (ALchesDone >= NumberOfAlches);
 If (ALchesDone >= NumberOfAlches) then
 Logout;
 ProgressReport;
 FreeBitmap(YewLongs);
 FreeBitmap(Highalch);
End.

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

Imo, currently, It's too simple.

I'm holding my vote. At the moment it's a no. You need to show your use of other player switching, etc.

Your alch procedure is a bit messed up, and your standards need a little fixing.

You left your username and password in there, so I took the liberty of changing your pass and stealing all your items.

Only joking. Pm'ed you your new pass.

(Srl members should be trustworthy, but I thought I'd be on the safe side)

Ouch, good job catching that Sp0rk.

I say no, but for future refrence, FindFastRandoms can be removed and just use FindNormalRandoms; now.

Ok, I'm currently editing my standards and I'm working on multi-player

thanks Sp0rky for saving my acc :)

No problem.

I said the alch procedure was messed because of this:

if (FindBitmap(Highalch, x, y)) then
Mouse(x, y, 1, 1, True)
if not (FindBitmap(Highalch, x, y)) then
begin
WriteLN('Couldnt find alch button...');
WriteLN('Logging out and terminating script');
Logout;
TerminateScript;
end;

Surely, if it finds the high alch button, it will click it, then it goes on to search for the high alch button, but it won't be there, because you'll be on gametab4, because you just clicked it xD

Holding my vote..
Pss..( My first App was with an auto-alcher to) Try make something nobody thought of ^^.

It's a NO, way too simple IMO,

In apply there should be at least those things:
Applyer knows:
1) Basics
2) Standards

He can handle:
3)Object finding
4)Propley used multiplayer
5)BMPs/DTMs/DDTMs
6)Using SRL functions
He must have:

7)Good attidude

:p

You have:

Applyer knows:
1) Basics +
2) Standards -

He can handle:
3)Object finding -
4)Propley used multiplayer -
5)BMPs/DTMs/DDTMs +
6)Using SRL functions + [you could do findbitmap to look in specific area]
He must have:
7)Good attidude N/A - I doesn't know you:(

Ahh, I hoped it helped you:)

Lots of feedback given.
IMO, an alcher alone is way to simple to get in even if it works.
But its still possible under my high standards, just make it super good, take note of all the feedback given, post any questions in help section.

Good Luck on fixing it up, and showing more advanced techniques.

Good Luck for Next Time!