SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
None

Other Communitys
None

How Long have You Played Runescape
6 Months

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

Well what can I say, After finding a way to cheat runescape I was addicted!! Since in Runescape it says that there is no cheats for the game,I was surprised what I found here!!

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

Here Is My Application, It is a Cannonball Maker it starts in Al-kharid Bank!!

program CannonballMaker;

{=======================================================================|
|                                                                       |
|                       Cannonball Maker  1.0                           |
|                               by:                                     |
|                             Gamer 5                                   |
|     Instructions: 1. Fill Out Players                                 |
|                   2. Fill Number Of loads                             |
|                   3. Position Your Character in AL-Kharid Bank        |
|                       Happy Autoing!!!!!!                             |
|                                                                       |
{=======================================================================}
{.include Srl/Srl.scar}

Var
cs,b,time,x,y,ex,Sbar,barsdone,loadsdone,levels:integer;

Const
Loads= 4;// Number of Loads To Do!!
RckColr=863329;//(863329) or (2379393)
FurSym=1203441;//(2719487) or (1203441)
BanSym=4242653;//(5758717) or (4242653)
RunDir='S';// Direction To Run In Case of a Fight!!
RunFar= True;//Keep True

Procedure DeclarePlayers;
begin

  HowManyPlayers:= 2;
  CurrentPlayer:= 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;

end;

Procedure loadDtm;
begin
    sbar := DTMFromString('78DA63946660601062400113DBDB19B880342' +
       '310FF0702460520839B010D302291401A648E0C01353C40429880' +
       '1A652021825F0D00B24D0699');
end;

Procedure Calculate;
begin
  Barsdone:= loadsdone*27
  Ex:= Barsdone *(25)
  b:=0
end;

Procedure Start;
begin
  WriteLn('|=============================|');
  WriteLn('|                             |');
  WriteLn('|                             |');
  WriteLn('|    Cannonball Maker 1.0     |');
  WriteLn('|            By:              |');
  WriteLn('|          Gamer 5            |');
  WriteLn('|                             |');
  WriteLn('|                             |');
  WriteLn('|=============================|');
  Wait(5000)
  ClearDebug;
  WriteLn('Begining In 5 Seconds!!!!');
  Wait(1000);
  WriteLn('4');
  Wait(1000);
  WriteLn('3');
  Wait(1000);
  WriteLn('2');
  Wait(1000);
  WriteLn('1');
  Wait(1000);
end;

Procedure Proggie;
begin
  ClearDebug;
  WriteLn('|=======================|');
  WriteLn('|  CannonBall Maker     |');
  WriteLn('|          By:          |');
  WriteLn('|        Gamer 5        |');
  WriteLn('|=======================|');
  WriteLn('|       Progress        |');
  WriteLn('|     Loads Done:' + inttostr(loadsdone)+'      |');
  WriteLn('|     Bars Done :' + inttostr(barsdone) +'      |');
  WriteLn('|     Experience:' + inttostr(ex) +      '      |');
  WriteLn('|  Levels Gained:' + inttostr(levels) +  '      |');
  WriteLn('|   Thanks For Autoing  |');
  WriteLn('|=======================|');

end;

Function Level:boolean;  // By WT-Fakawi.
begin
  Result:=(GetColor(213, 386)=8388608)
  if (result) then
  begin
    clicktocontinue;
    wait(2000)
    clicktocontinue;
    WriteLn('******** LEVEL UP ********');
    WriteFileString(TheFile, '******** LEVEL UP ********' + Chr(13))
    levels:=levels+1;
    ReportVars[4]:=ReportVars[4]+1;
  end;
end;

Procedure AutoColorCS;

begin
  CS:=(GetColor(664,446))
end;

Function ClearScreen:boolean;

begin
  result:=(GetColor(664, 446)=CS)
end;

Function FindFastRandoms: Boolean;    // By WT-Fakawi.

Var
  i: Integer;

Begin
  For I := 1 To 13 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;

       8: Begin
              If InBlack Then
              Begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              End;
            End;

       9 : If RC Then
             Result := True;

       10 : If FindFight Then
              Begin
                Result := True;
                RunTo(RunDir, RunFar);
              End;

       11: If FindTalk Then
             Result := True;

       12: If Level then
             Result := True;


       //14: SaveToLog;  next version probably if i get it working
       //                will save proggys

       13: If FindDemon Then
             Begin
               result:=True;
               SolveDemon;
             End;

    End;
    Wait(1);
  End;
End;


Procedure WalktoFurnace;
begin
  FindNormalRandoms;
    if RadialWalk(RckColr,5,60,50,2,2) then
      begin
        FFlag(1);
        FindFastRandoms;
     if RadialWalk(Fursym,330,360,60,2,2) then
   begin
     FFlag(1);
    end;
  end;
end;

Procedure WalkToBank;
begin
   MakeCompass('N');
   FindNormalRandoms;
 if RadialWalk(RckColr,200,180,60,2,2) then
    begin
      FFlag(1);
      FindFastRandoms;
 if RadialWalk(BanSym,195, 244, 48, 2,2) then
     begin
     FFlag(1);
    end;
  end;
end;


Procedure StoreCBalls;
begin
  FindNormalRandoms;
  MakeCompass('N');
  OpenBankFast('akb');
  if bankscreen then
  Wait(Random(1500));
  Deposit(1,1,2);
  Closebank;
  LoadsDone:= LoadsDone +1
  Proggie;
end;

Procedure GetBars;
begin
  FindNormalRandoms;
  FindFastRandoms;
  MakeCompass('N');
  OpenBankFast('akb');
  if bankscreen then
  Wait(Random(1500));
  if FindDTM(sbar,x,y,MSX1,MSY1,MSX2,MSY2) then
   begin
    repeat
      Mouse(x,y,2,2,false);
      Wait(random(500));
      until(chooseoption('All'))
    Closebank;
  end;
end;

Procedure MakeBalls;
begin
  MakeCompass('W');
  begin
   FindNormalRandoms;
   FindFastRandoms;
   repeat
     Mouse(578,229,1,1,True);
     Wait(Random (1000));
     FindObj(x,y, 'ace', 2697515,30)
     Mouse(x,y,2,2,True);
     Wait(1000+Random(2500));
     Mouse(248,391,3,3,false);
     Wait(Random(2100));
     b:=b+1
    until (chooseoption('All') or (b=25))
  end;
end;

Procedure GetBar2;
begin
  FindNormalRandoms;
  MakeCompass('N');
  OpenBankFast('akb');
  if bankscreen then
  Wait(Random(1500));
  Deposit(1,1,2);
  LoadsDone:= LoadsDone +1
  Proggie;
  if FindDTM(sbar,x,y,MSX1,MSY1,MSX2,MSY2) then
   begin
     repeat
       Mouse(x,y,2,2,false);
       Wait(random(500));
     until(chooseoption('All'))
   Closebank;
  end;
end;

Procedure WaitForBall;
begin
  Wait(random(6000));
  case random(8) of
  
   0: GameTab(2);
   1: GameTab(4);
   2: HoverSkill('Smithing',False);
   3: MMouse(x,y,45,45);
   4: MMouse(x,y,45,45);
   5: GameTab(5);
   6: MMouse(x,y,45,45);
   7: HoverSkill('Mining',False);
 end;
end;

Procedure WaitSetup;
begin
MarkTime(Time);
  repeat
    FindNormalRandoms;
    FindFastRandoms;
    Waitforball;
    GameTab(4);
    Wait(2000);
  until ((ClearScreen) or (Time < 158000));
end;


begin
  Start;
  ClearDebug;
  SetupSrl;
  DeclarePlayers;
  LoadDTM;
  LoginPlayer;
  HighestAngle;
  AutoColorCS;
  Getbars;
  repeat
    WalktoFurnace;
    MakeBalls;
    WaitSetup;
    WalkToBank;
    Getbar2;
    Calculate;
    Proggie;
  until(Loads=LoadsDone);
  NextPlayer(True);
end.

I Guess I Wait Now!!
Also Sending A Pic of Where To get some colors in case Runescape Changes Them!!

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

It's quiet simple and I don't see alot of failsafes… Or any failsafes at that, but I think it's an excellent start. Whether or not it's srl member quality is another matter, but you clearly worked hard on this, and you've demonstarted you've learned some srl functions/procedures very well. Good job. For the time being, im holding my vote. This is due to your lowish post count and activity. Don't really know you, and therefore know if you're ready for srl membership.

Great effort. I think if it was a little more complex, I would vote yes.

Thanks, Ill Keep that in mind for a future application!!!

I tried to implement failsafes like in Procedure WaitSetup, At the end with Time limit, and in Procedure Makeballs Giving it 25 tries. I Don't know if this is enough or Srl member Quality.:)

Hmm, your stilll learning and you seem like a nice guy too. looks like your really into Scar scripting and a great atitude(forgot how to spell lmao) so ill vote yes.

yea the failsafes just definantly arent there…also everything is really spaced out in some procedures so the script looks longer and same with the intro and its all very simple things no major walking showing your can do it really well so no from me

Hm.. I'll say no.. Pretty much all reasons already explained in the above posts.

I want vote yes, but low post count and activity is bit bad… holding vote
edit: add failsafes

Some standards are wrong too. No from me, sorry.

I have to vote no too, for the above reasons.
Try again next month;)

-Tsn.

No biggie I already Started to fix the script and im going to add more things to it for the next application!

try using findsymbol as well.

this will eliminate input for 2 colors…


also the rock you make them pick a color off of…. make a dtm out of it.

From: Dark_Sniper
try using findsymbol as well.

this will eliminate input for 2 colors…


also the rock you make them pick a color off of…. make a dtm out of it.

Indeed, I remember I started (and almost finished) making an Al Kharid TAnner and Banker, it had also autosandcolor by finding that rock, you can use it when you credit me, here it is:

function FindAlKharidRockColor: integer;
var
  Rock, MaxTolerance: integer;
begin
    Rock := BitmapFromString2(False, 'a80ADC78DA333080015367106' +
       '16E0424CD4DDD80A499A531886DE8049235360593AEC616462E06' +
       '6600267');
  MaxTolerance := 40;
  AlKharidRockColor := AutoColorThis(Rock, MaxTolerance, 648, 5, 715, 83);
  WriteLn('Al Kh. Rock Color: '+IntToStr(AlKharidRockColor));
  result:= AlKharidRockColor;
  FreeBitmap(Rock);
end;


function GetSandColorByRock: integer;;
begin
  if FindColorSpiralTolerance(x, y, FindAlKharidRockColor,648, 5, 715, 83, 10) then
  begin
    result:= GetColor(x+randomrange(5, 10), y+randomrange(2, 5));
    if RadialWalk( SandColor , 20, 50, 35 + randomrange(15, 25)
                  , 0, -1) then//good one (or y +1)
    begin
      FFlag(0);
      result:= true;
      Writeln('Used FindAlKharidRockColor.');
      exit;
    end;
  end;
end;

^^It worked from every bank booth position.

-Tsn.

When Can I Apply Again?
How Long until this poll is closed?

Poll is already closed.
You must wait one month before trying to apply again.
Good Luck!