SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Php, javascript html css, action script (flash)

Other Communitys
None

How Long have You Played Runescape
2 years

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

started using computers since i was around 8, and become addicted to coding, and graphics related things.

Through the years my ability to 'script' has improved, and i have learnt a lot over the few years that i have been on the computer, and obviously i have matured through continually use. Some may call it an addiction, i merely call it a Hobbie.

I find that scripting is fun, why? it's like some people find crosswords challenging, i find scripting challenging, as in. Best way of doing this, maybe this way is faster? Mhmm, it isn't working, perhaps i should create my own function for this.

I started learning HTML (which is no real relevence to this website, other than it was the main structure for me learning PHP + css)
Most of my experiance is from web based applications.

I then moved onto the obvious choice of Flash, thenslow broadening my horizons by learning scar!!

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

program New;
{.include srl/srl/misc/smart.scar}
{.include SRL/SRL.Scar}

// Vars
var
x,y, bankdtm, stonemason, summoning, blocks, gained, spent, antibans, dooropen, world, worldchanges: integer;
// For sleeping
var hours, minutes, seconds, sleeps, timer,starting: Integer;


// Constants
const
YourSRLID       = '3138';        // Eneter your srl ID
YourSRLPassword = 'TAKE OUT PASS!';    // SRL password
//------Do NOT edit----- \\
       version = 1;
// --------------------- \\
color1 = 7510470;
color2 = 2108229;
color3 = 3822649;
loads = 1;
worldhopping = True;  // If false, world hopping does not occur
sleeping = True;      // If false, Sleeping will not occur (Part of antiban)

// Smart options
smart = True;    //to NOT Use SMART you have to delete {.include srl/srl/misc/Smart.scar} as well (line 2)
signed = True;   // True or False
worldnumber =  69;


// Call disguise and Bitmaps
procedure setupbox;
begin
  Case Random(6) of
    0: Disguise('iTunes');
    1: Disguise('Windows Live Messenger');
    2: Disguise('FileZilla');
    3: Disguise('RuneScape - the massive online adventure game by Jagex Ltd - Mozzila Firefox');
    4,5,6: Disguise('iTunes');
  end;
  stonemason := BitmapFromString(15, 15, 'beNpjYMAEjEiAAS/Ysm' +
       '8bMsKqBSgCV5BVkgNByFqwqiwJUcrPDASimLQ4IIKLYyoGqkz2EfQ' +
       'xYPYO9YUgNMXIKqMtuYEqp8ybClEJZCC7H64YWSUcYfUskAGxHa6m' +
       'vLEC6EE0Z8MVAxGaSrhiuHpkxXAElIWrRHY8JADR1KOphCiGBzVWw' +
       '4Fq3Dwd0IzFqh4tTLDGOKYV+JMTIypAkQMAvWPn/Q==');
  summoning := BitmapFromString(15, 15, 'beNpjYEADjIxsyIgBB4D' +
       'I7tpztKRMJtVHNCXAAMjGqgWiDIJcwpRv3n8a4mE7c/YSiAiyemSV' +
       'QOSkLARUbKQoDFeMrB5ZsU1Jzv5Tz4DGSgmKYCpGM3bFuhlA1wINR' +
       '1MMdz+yCFBlW1kkkARaQVAx0HddsY5AkqDJQDcAvQZEQJMzYtyACI' +
       '9iiBuAaoDqgYZjDRC4+iA9IaB6IAKqBIYJskvQgg4Ya0AEiT6gYmC' +
       'AAF0F9CbWeAEqgyCIYqAbVLQ0IGGCNcaBCCiFjIhJTthTHQAdf+h+' +
       '');
  world := BitmapFromString(6, 22, 'beNpjYMAEZ3fWoKHjm8rREAMD' +
         '4yiCoxRPTTQU76aOhhgIAgCAkiHT');
  BankDTM := DTMFromString('78DA63F4606260D06264000108C9C0A0ADA1C' +
         '1F01FCAFF0F048C8E403546A86AFEFC61629044E2337A12A1C605' +
         'A8C60CD32E1435A14035C604D4D810560300FFE60E4E');
end;

//Declare players
Procedure DeclarePlayers;
Begin
  NumberOfPlayers(2);
  CurrentPlayer := 0;

  Players[0].Name        := '';       // Player Name
  Players[0].Pass        := '';       // Player Pass
  Players[0].Nick        := '';       // Player Nick (if your name is 'macroman' then your nick should be 'acro')
  Players[0].Active      := true;     // Is this player active? (True / False)


  Players[1].Name        := '';       // Player Name
  Players[1].Pass        := '';       // Player Pass
  Players[1].Nick        := '';       // Player Nick (if your name is 'macroman' then your nick should be 'acro')
  Players[1].Active      := true;     // Is this player active? (True / False)

end;

// AUTOCOLOUR BY SUMILLION AND NIELSIE +REP
function AutoColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(10.00, 0.16);

  if not (FindColorsTolerance(arP, 6776671, MMX1, MMY1, MMX2, MMY2, 5)) then
  begin
    Writeln('Auto-Colouring Failed, please reload runescape and press play again.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    if (rs_OnMinimap(arP[i].x, arP[i].y)) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);

      if (X >= 9.03) and (X <= 15.05) and (Y >= 9.17) and (Y <= 15.26) and (Z >= 9.46) and (Z <= 16.35) then
      begin
        Result := arC[i];
        Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('Auto-Colouring Failed, please reload runescape and press play again.');
end;

procedure hop;
var a: integer;
begin
  if worldhopping = False then
    Exit;
  if LoggedIn then Logout;
    // Allowing for Us to switch worlds...
    // Find if logged off
  if (FindTextTpa(clwhite,0,194, 174,564, 367,'xis',UpChars,Nothing)) or
    (FindTextTpa(clwhite,0,194, 174,564, 367,'Cancel',UpChars,ClickLeft)) then
       a:= 0;
  repeat
    a:= a + 1;
    wait(1000+random(500));
    // Click world trade button
    Mouse(50,480, 20, 8, true);
    wait(1000+random(500));
    Case Random(5) of
      // Click World
      0 : Mouse(288,13, 3, 3, true);
      // Click Players
      1,2,3 :  Mouse(397,13, 3, 3, true);
      // Click Type
      4 : Mouse(620,13, 3, 3, true);
    end;
    wait(300+random(300));
    if (a > 10) then
    begin
      Players[CurrentPlayer].Active := False;
      exit;
    end;
  // Bitmap of empty space
  until (FindBitmapSpiralTolerance(world,x,y,0, 60, 700, 700, 0));
  freebitmap(world);
  repeat
    Mouse(x - 3,y - 5, 0, 0, true);
  until((FindTextTpa(clwhite,0,194, 174,564, 367,'xis',UpChars,Nothing)) or (FindTextTpa(clwhite,0,194, 174,564, 367,'Cancel',UpChars,ClickLeft)));
  writeln('world hopped please');
end;

// Very crude sleeping, gets the job done.
procedure boxcropsleep;
begin
  if sleeping = False then
    Exit;
  if LoggedIn then
    Logout;
  // Allow for a random sleep timer :\
  Case Random(3) of
    //Small Afk
    0 : Timer :=  randomrange(10000, 100000);
    // Activity, toilet / tv
    1 : Timer :=  randomrange(20000, 1000400);
    //Propper sleep
    2 : Timer :=  randomrange(1000000, 10000000);
  end;
  Marktime(starting);
  ConvertTime(Timer, Hours, Minutes, Seconds);
  WriteLn('Sleeping for: '+inttostr(Hours)+' Hours, '+ InttoStr(Minutes)+' Minutes, and '+IntTostr(Seconds)+' Seconds')
  repeat
    ConvertTime(Round(Timer-TimeFromMark(starting)), Hours, minutes, Seconds);
    // One minute and 40 seconds each time before checking
    wait(100000);
    writeln('Sleeping commenced at'+IntToStr(starting)+'');
    writeln('Sleep '+ IntToStr(hours)+'hours, '+IntToStr(minutes)+'minutes remaining.'+IntToStr(Seconds)+'seconds remaining');
  until(TimeFromMark(starting) >= Timer);
  Writeln('Sleeping Finished');
  cleardebug;
  hop;
  sleeps := sleeps + 1;
end;

procedure antiban;
begin
  if(not(LoggedIn)) then
    LoginPlayer;
   Case Random(4) of
      0 : AlmostLogout;
      1 : RandomRClick;
      2 : HoverSkill('random', False);
      3 : PickUpMouse;
      4 : BoredHuman;
   end;
end;

procedure walktoshop;
var a: integer;
begin
  if (not(LoggedIn)) then
    exit;
  a:= 0;
  RoadColor := AutoColor;
  repeat
    RadialRoadWalk(RoadColor, 80, 110, 55, 1, 1);
    a:= a +1;
  until(FindSymbol(X,Y,'farming spot')) or (a > 5);
  writeln('Found Farming');
  Mouse(x,y, 10, 10, true);
  writeln('clicked farming spot');
  timer := 20000;
  Marktime(starting);
  Case Random(3) of
    0 : FFlag(7);
    1 : antiban;
    2 : FFlag(4 + random(5));
    3 : wait(1000 + random(40))
  end;
  // 1 minutes
  if(TimeFromMark(starting) > 6000) then
    writeln('FFlag failed, continuing');
  writeln('waiting for flag to disappear');
  FindNormalRandoms;
  repeat
    RadialRoadWalk(RoadColor , 170, 190, 50, 1, 1);
  Until(FindBitmapSpiralTolerance(stonemason,x,y,MMX1,MMY1,MMX2,MMY2, 40 ));
  writeln('Found The Shop symbol');
  Mouse(x, y , 1, 1, true);
  flag;
  FindNormalRandoms;
  freeBITMAP(stonemason);
end;

procedure walkfromshop;
var a: integer;
begin
  if (not(LoggedIn)) then
    LoginPlayer;
  RoadColor := AutoColor;
  a := 0;
  repeat
    a:= a +1;
    if(AutoColor = 0) then
    begin
      Writeln('Colour not found, randomly guessing');
      Mouse(634, 45, 6,5, true);
      Break;
    end;
    RoadColor := AutoColor;
    RadialRoadWalk(RoadColor, 330, 395, 70, 1, 1);
    writeln('Finding Summoning symbol');
    Break;
  until(FindBitmapSpiralTolerance(summoning,x,y,MMX1,MMY1,MMX2,MMY2, 10)) or (a > 5);
  writeln('Found Summoning spot');
  Mouse(x,y, 10, 10, true);
  writeln('clicked summoning spot');
  wait(200 + random(300));
  Case Random(1) of
    0: FFlag(10);
    1: antiban;
    2: FFlag(2 + random(5));
    3: wait(1000 + random(40))
  end;
  writeln('waiting for flag to disappear');
  FindNormalRandoms;
  a:=0;
  repeat
    RadialRoadWalk(RoadColor , 300, 310, 50, 1, 1);
    a := a +1;
  until (FindSymbol(X,Y,'bank')) or(a > 5);
  writeln('Found dtm of bank');
  Mouse(x, y , 1, 1, true);
  flag;
  FindNormalRandoms;
  freeBITMAP(summoning);
  FreeDTM(Bankdtm);
end;

procedure boxlog;
begin
  repeat
    LoginPlayer;
    wait(300+random(400));
    if(FindSymbol(x,y, 'bank')) then
      writeln('Found bank symbol, restarting script')
    else
      if(FindBitmapSpiralTolerance(stonemason,x,y,MMX1,MMY1,MMX2,MMY2, 80)) then
      Begin
        writeln('Found stone mason');
        FindNormalRandoms;
        walkfromshop;
      end;
  until(false);
end;

Function FindTheDoorSafe(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean;
var
  a, b, c, i, x1, y1, x2, y2, x3, y3: Integer;
  Start: Boolean;
begin
  if (not(LoggedIn)) then
  LoginPlayer;
  For b := 0 to (GetArrayLength(Color)-1) do
  Begin
    if (FindColorSpiralTolerance(cx, cy, color[b], MSX1, MSY1, MSX2, MSY2, Tolerance)) then
    Begin
      Start := True;
      Break;
    end;
  end;
  If(Start)then
  Begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      If not(LoggedIn)then
        break;
      a := a + 1;
      If (a = 1) then
        c := c + 1
      else If (a = 3) then
        c := c + 1;
      For i := 1 to c do
      Begin
        If (a = 1) then
        Begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        end else
        If (a = 2) then
        Begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        end else
        If (a = 3) then
        Begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        end else
        If (a = 4) then
        Begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        end;
        If (x1 = 485) and (x2 = 517) then
          x2 := x2 - 2;
        If (y1 = 325) and (y2 = 345) then
          y2 := y2 - 7;
        If (x2 > 515) then
          Break;
        For b := 0 to (GetArrayLength(Color)-1) do
          If (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
            if not FindColorTolerance(x3, y3, 4873581, (cx - 5), (cy - 5), (cx + 5), (cy + 5), 5) then
              Result := False
            else
            begin
              MMouse(cx, cy, 0, 0);
              Wait(50 + random(100));
              if (IsUpTextMultiCustom(text)) then
              Begin
                Result := True;
                Exit;
              end;
        end;
      end;
      if (a = 4) then a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;

procedure door;
var a: integer;
begin
  a:= 0;
  if(FindTheDoorSafe(x, y, ['oor'], [5788242,3622225,1387833,5327691,7432553], 10))then
  repeat
    a:= a + a;
    writeln('finding door close/ open');
    if(IsUpText('pen'))then
    begin
      wait(400+random(500));
      Mouse(x, y, 5, 5, false);
      wait(400+random(500));
      writeln('door found');
      if(ChooseOption('Open'))then
        dooropen := dooropen +1;
      wait(400 + random (300));
      FindNormalRandoms;
      Exit;
    end else
    if(IsUpText('los'))then
    Exit;
  until(a >= 30);
end;

procedure banking;
var b, a : Integer;
begin
  if (not(LoggedIn)) then
    exit;
  a:= 0;
  repeat
    if (FindSymbol(x,y,'bank')) then
      break;
    a:= b + 1;
  until(a >= 10);
  wait(200+random(600));
  if(OpenBankQuiet('veb'))then
  begin
    DepositAll;
    banks := banks +1;
    fixbank;
    wait(100+random(400));
    OpenBankQuiet('veb');
    wait(200+random(400));
    Withdraw(-1, 1, 588);
    FindNormalRandoms;
  end
end;

procedure BuyStuff;
begin
  MakeCompass('N');
  if (not(LoggedIn)) then
    exit;
  if shopscreen then
  begin
    mouse(76,115,10,10, false);
    if ChooseOption('Buy X') then
    begin
      wait(1000+random(400));
      typesend('28');
      Wait(1000 + Random(500));
      // Closes shop window
      mouse(485,40,7,7, true);
      FindNormalRandoms;
      spent := spent + 588;
    end;
  end;
end;

Function FindTheDude(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean;
var
  a, b, c, i, x1, y1, x2, y2, x3, y3: Integer;
  Start: Boolean;
begin
  if (not(LoggedIn)) then
    exit;
  For b := 0 to (GetArrayLength(Color)-1) do
    if (FindColorSpiralTolerance(cx, cy, color[b], MSX1, MSY1, MSX2, MSY2, Tolerance)) then
    Begin
      Start := True;
      Break;
    end;
  If(Start)then
  Begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      If not(LoggedIn)then
        break;
      a := a + 1;
      If (a = 1) then
        c := c + 1
      else If (a = 3) then
        c := c + 1;
      For i := 1 to c do
      Begin
        If (a = 1) then
        Begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        end else
        If (a = 2) then
        Begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        end else
        If (a = 3) then
        Begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        end else
        If (a = 4) then
        Begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        end;
        If (x1 = 485) and (x2 = 517) then
          x2 := x2 - 2;
        If (y1 = 325) and (y2 = 345) then
          y2 := y2 - 7;
        If (x2 > 515) then
          Break;
        For b := 0 to (GetArrayLength(Color)-1) do
        Begin
          If (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
            if not FindColorTolerance(x3, y3, Color3, (cx - 5), (cy - 5), (cx + 5), (cy + 5), 5) then
              Result := False
            else
            begin
              MMouse(cx, cy, 0, 0);
              Wait(50 + random(100));
              if (IsUpTextMultiCustom(Text)) then
              Begin
                Result := True;
                Exit;
              end;
            end;
          end;
      end;
      if (a = 4) then a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;

procedure findNtrade;
var a, NotFoundHIm : integer;
begin
  writeln('Attempting to find');
  a := 0;
  if (not(LoggedIn)) then
    exit;
  repeat
    case random(5)of
      0: MakeCompass('S');
      1: wait(random(100));
      2: MakeCompass('W');
      3: MakeCompass('N');
      4: MakeCompass('E');
      5: wait(random(500));
    end;
    If FindTheDude(x, y, ['Stonemason', 'mason'], [color1, color2], 6) then
    begin
      // Trade him
      Mouse(X, Y, 1, 1, false);
      Wait(20 + Random(70));
      if ChooseOption('rade') then
      begin
        Wait(700 + Random(200));
        BuyStuff;
        MakeCompass('N');
        exit;
      end;
        FindNormalRandoms;
        a := a + 1;
    end;
  until (a >= 1) or (NotFoundHim >20);
end;

Procedure ProgressReport;
begin
  blocks := banks * 28;
  gained:= ((blocks * 108) - spent);
  writeln(' ');
  WriteLn('|-------------------[Version '+inttostr(Version)+']-------------------|');
  Writeln('Amount of banks:' + inttostr(banks) +'');
  Writeln('Amount of Blocks:' + inttostr(blocks) +'');
  Writeln('Money spent:' + inttostr(spent) +'');
  Writeln('Money gained:' + inttostr(gained) +'');
  if dooropen > 0 then
    writeln('Doors opened:' + inttostr(dooropen) +'');
  if antibans > 0 then
    writeln('Antibans performed:' + inttostr(antibans) +'');
  if worldchanges > 0 then
    writeln('World changes:' + inttostr(worldchanges) +'');
  if sleeps > 0 then
    writeln('Slept:' + inttostr(sleeps) +' times');
  if minutes > 0 then
    writeln('Slept for:' + inttostr(hours) +' Minutes:'+inttostr(minutes) +' Seconds'+inttostr(seconds) +'');
  Writeln ('|-----------------[Money gained:' + inttostr(gained) +'|-----------------');
  Writeln('Started '+(TheTime)+' Worked for '+ TimeRunning);
  SRLRandomsReport;
end;

begin
  cleardebug;
  SetupSRL;
  if smart then
  begin
    SmartSetupEx(worldnumber, false, signed);
    while not SmartReady do wait(100);
    SetTargetDC(SmartGetDC);
  end;
  setupbox;
  activateclient;
  DeclarePlayers;
  banks := 0;
  if (not(LoggedIn)) then
    LoginPlayer;
  repeat
    repeat
        case random(8)of
          0,1,2,3,4,5,6: ;;
          7: hop;
          8: boxcropsleep;
        end;
        ProgressReport;
        //Just incase
        findnormalrandoms;
        walktoshop;
        door;
        FindNTrade;
        door;
        walkfromshop;
    until(banks > loads) or (not(LoggedIn));
    boxcropsleep;
    NextPlayer(True);
  Until(false);
end.

[===============================]
[ ~ Result = 148
[===============================]
Apply for members, unless you have cheated this
Successfully executed

I can't remember when i last apped, but this is MUCH better than it was previously.

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

Oops, i forgot about the time period

Well, sticking by SRL rules is just as important as the script, and as you only applied like a week ago, I would say no. But its a good script, so I'm afriad I'll have to vote yes…

One thing though, you don't need the disguise, its just a waste of lines.

it looks nice. yes.

Shame that 2 people have voted no and not admitted, you should ask an admin who voted no and kick there asses :p

From: Dude Richard
Shame that 2 people have voted no and not admitted, you should ask an admin who voted no and kick there asses :p

Since you're new, let me inform you that you do NOT have to give any sort of explanation for voting no or even admit you voted no.

Ok, first of all, thanks for insulting me by saying I'm new.

I think that if someone votes no that its unfair on the person whos is applying because then you don't know why it is they voted no, and how they could improve.

Dude richard, i completely agree that someone who votes 'No' should give an explanation, because if 10 people vote no, and i dont' know why, then i've learnt nothing on how to improve my script.

I hope the people perhaps later post a message saying why they don't like it, it would be nice of them to explain why :)

No flames please :D

- you put :

repeat
  RadialRoadWalk(bla);
until (bla);

What happen if that fails?
RadialRoadWalk is a boolean, so use the boolean!
if RadialRoadWalk then begin else end;

Yes from me.

From: Hugolord
Since you're new, let me inform you that you do NOT have to give any sort of explanation for voting no or even admit you voted no.

LOL, Dude Richard may be new(?) but he was right ass :p, I Forgive you :p
every one makes mistakes :p

Hermpie

Being new isn't bad at all tbh, I'm "old" yet you can probably script now better than me so don't go around thinking you are less important because you are new.

As for the unnecessary explanation when voting "no", well, that's not really up to me to think fair or not.

Don't worry about it. You probably can script better than me, I'm currently competely failing at the radial walk for my smelter…

Why don't you use the SRL WorldSwitcher. It is not broken, is it?
I'll hold my vote. I was hoping to see some TPA Object finding (FIndObjTPA) instead of copying the old FindObj algorithm…
The script is pretty basic. And you have applied within within a week? Maybe you should waited a bit longer.
Let's see what the other SRL-Members say. :)

I'm sorry, no mainly because you didn't use the SRL worldswitcher (and a lot of other things, your most advanced function was made by ACA) which shows you have too little knowledge about SRL and its includes. Try exploring them. You've got potencial!

I think this guy should get alowed to re-apply in two weeks if he doesn't get it. What do you think, guys?

From: Wizzup?
Why don't you use the SRL WorldSwitcher. It is not broken, is it?
I'll hold my vote. I was hoping to see some TPA Object finding (FIndObjTPA) instead of copying the old FindObj algorithm…
The script is pretty basic. And you have applied within within a week? Maybe you should waited a bit longer.
Let's see what the other SRL-Members say. :)

No, it's not broke, i noticed that there was a world switcher after i made that :P

Derek said it would be best to leave it in, as it showed that i took the time to make something new, it still works obviously :P

I know you very well, You are an really workaholic I know you can / want to make allot more stuff, It will be an yes from me.

Yes. I mean, I got in with a rather lucky vote, so I think you should get in with a script about the same standard.

I vote no because you don't know that the meaning to live is 42

thats a valid reason right?

From: metagen
I vote no because you don't know that the meaning to live is 42

thats a valid reason right?

That would be pretty mean, not everyone knows The Hitchhikers Guide To The Galaxy. ;)

After taking another look at your walking, I will no longer hold my vote, and vote yes.

From: metagen
I vote no because you don't know that the meaning to live is 42

thats a valid reason right?

Yes, I'm quiet aware that in a movie / book, the answer is 42.

When the researchers – cleverly disguised as mice – asked how that could be the answer to their Ultimate Question of Life, the Universe and Everything, the computer responds, "I think the problem, to be quite honest with you, is that you've never actually known what the question is."

Then telling them the Meaning to life is 42, but the thing was they didn't know teh question.

Therefore the 'Mice' decided to follow the last human being on earth, and ask him, to which he replied
'How many raods must it take before coming a man' (Or something a like)

So, i sadly have to reply that your reason is somewhat, invalid? :~)

Unless you have another reason, i don't really count your post as much use other than spam, sorry.

From: Wizzup?
That would be pretty mean, not everyone knows The Hitchhikers Guide To The Galaxy. ;)

After taking another look at your walking, I will no longer hold my vote, and vote yes.

LOL! Wizzup?

rofl :P

Like some others have said, Disguising SCAR doesn't do anything since Jagex, legally, can't check the names of the programs that are running unless you download and install a client.

The world switcher isn't fantastic but it shows a good attempt at re-creating SRLs world switcher in a different way, although I would have user SRLs IMO.

The Sleeping feature is a good idea if you're planning on running this script for a long time, so I'll give you props for that.

Anti-ban isn't really as extensive as I would like it to be but it does show your knowledge of some of the functions in SRL. I'd add a couple more options to that if I were you.

In your "WalktoShop" procedure you really, really, need a better failsafe for walking than just if a > 5. Something that will correct itself not just understand that it's wrong, but thats some higher level stuff so I won't hound you for that. However… that one mistake would mess up the entire script for that character. I haven't played RS in a while but don't you only get randoms when performing an action other than walking? If so then the FindNormalRandoms in this procedure would be pointless.

  repeat
    RadialRoadWalk(RoadColor , 170, 190, 50, 1, 1);
  Until(FindBitmapSpiralTolerance(stonemason,x,y,MMX1,MMY1,MMX2,MMY2, 40 ));

Bad… Boxcrop, that could be an infinite loop!

Similar mistakes in WalkFromShop as well… but other than that your walking does look good.

Who made "FindTheDoorSafe" or is it from a code generator? Because that looks nothing like the rest of the script.

In Door, "A" will never increase, thus making another infinite loop.

Banking looks Ok, although not much to it.

"FindTheDude" looks to be from the same code generating thing as "FindTheDoorSafe" unless you made both of those.

As for posts and attitude both of those look good, so I think I'm going to vote yes. I hope you make it in!

O0oh!! Special Ed, TYVM.

Some GREAT feedback, i'll start to work on that straight away, and i'll increase antiban.

The thing with antiban is, i was gonna heavily rely on RC, but since it no longer works… I wasn't sure whether i should wait untill it was fixed or make my own? :\

And the thing i find about antiban is, is it really nes..a..cary ?:S (SP :duh:)

But, yes i really do want advanced antiban.

And yea i'll try to improve my walking and getting lost, that's why i had the 'exits' in the hope it eventually says 'oh wait found bank symbol, banking now'

I'll look into those points :O

Thnx for the great advice ;o (And the vote)

First Script Analysis

One= Your cases aren't right.

procedure setupbox;
begin
  Case Random(7) of
    0: Disguise('iTunes');
    1: Disguise('Windows Live Messenger');
    2: Disguise('FileZilla');
    3: Disguise('RuneScape - the massive online adventure game by Jagex Ltd - Mozzila Firefox');
    4,5,6: Disguise('iTunes');
  end;
  
   stonemason := BitmapFromString(15, 15, 'beNpjYMAEjEiAAS/Ysm' +
       '8bMsKqBSgCV5BVkgNByFqwqiwJUcrPDASimLQ4IIKLYyoGqkz2EfQ' +
       'xYPYO9YUgNMXIKqMtuYEqp8ybClEJZCC7H64YWSUcYfUskAGxHa6m' +
       'vLEC6EE0Z8MVAxGaSrhiuHpkxXAElIWrRHY8JADR1KOphCiGBzVWw' +
       '4Fq3Dwd0IzFqh4tTLDGOKYV+JMTIypAkQMAvWPn/Q==');
  
   summoning := BitmapFromString(15, 15, 'beNpjYEADjIxsyIgBB4D' +
       'I7tpztKRMJtVHNCXAAMjGqgWiDIJcwpRv3n8a4mE7c/YSiAiyemSV' +
       'QOSkLARUbKQoDFeMrB5ZsU1Jzv5Tz4DGSgmKYCpGM3bFuhlA1wINR' +
       '1MMdz+yCFBlW1kkkARaQVAx0HddsY5AkqDJQDcAvQZEQJMzYtyACI' +
       '9iiBuAaoDqgYZjDRC4+iA9IaB6IAKqBIYJskvQgg4Ya0AEiT6gYmC' +
       'AAF0F9CbWeAEqgyCIYqAbVLQ0IGGCNcaBCCiFjIhJTthTHQAdf+h+' +
       '');
  
   world := BitmapFromString(6, 22, 'beNpjYMAEZ3fWoKHjm8rREAMD' +
         '4yiCoxRPTTQU76aOhhgIAgCAkiHT');
 
   BankDTM := DTMFromString('78DA63F4606260D06264000108C9C0A0ADA1C' +
         '1F01FCAFF0F048C8E403546A86AFEFC61629044E2337A12A1C605' +
         'A8C60CD32E1435A14035C604D4D810560300FFE60E4E');
end;

You need 7 instead of six, also leave a space between the end of the bitmaps.
Just looks nice :).

Two= An integer always starts as zero so

 a:= 0; 

is useless :).

Three= No need for this:

 Players[CurrentPlayer].Active := False;

Just use:

 NextPlayer(False) 

^ what this does it logs into the next player (or stops the script) if there is no more, False at the end means that it automaticaly sets the .active as False;


Four= Another case problem :p

procedure antiban;
begin
  if(not(LoggedIn)) then
    LoginPlayer;
   Case Random(5) of
      0 : AlmostLogout;
      1 : RandomRClick;
      2 : HoverSkill('random', False);
      3 : PickUpMouse;
      4 : BoredHuman;
   end;
end;

and this:

  Case Random(4) of
    0 : FFlag(7);
    1 : antiban;
    2 : FFlag(4 + random(5));
    3 : wait(1000 + random(40))
  end;

And this is confusing as it will only do '0'?

  Case Random(4) of
    0: FFlag(10);
    1: antiban;
    2: FFlag(2 + random(5));
    3: wait(1000 + random(40))
  end;

This is wierd at most procedures you declare them right. Just helps if you remember this:

 Case Random (4) +1 of 

:).


Five= Dont use

Flag;

always use

FFlag(0)

Why?
Because if the flag is of the minimap Flag quits but FFlag() always waits.

Six= never use this:

procedure boxlog;
begin
  repeat
    LoginPlayer;
    wait(300+random(400));
    if(FindSymbol(x,y, 'bank')) then
      writeln('Found bank symbol, restarting script')
    else
      if(FindBitmapSpiralTolerance(stonemason,x,y,MMX1,MMY1,MMX2,MMY2, 80)) then
      Begin
        writeln('Found stone mason');
        FindNormalRandoms;
        walkfromshop;
      end;
  until(false);
end;

Don't ever use until(false) except in your mainloop
Always make it a good habit to use a failsafe.


Seven= This just puzzels me?

  if(OpenBankQuiet('veb'))then
  begin
    DepositAll;
    banks := banks +1;
    fixbank;
    wait(100+random(400));
    OpenBankQuiet('veb');
    wait(200+random(400));
    Withdraw(-1, 1, 588);
    FindNormalRandoms;
  end
end;

How will the find the bank if the bankscreen is already up? Might want to alter that.

Just a Case problem nothing drastic.
Looks good.
I think i might have posted before but good work keep it up :)

Nauman, all his cases are correct…

  Writeln(inttostr(Random(7)));

This returns 1 of 7 random integers starting with 0.

Random(0) - 0
Random(1) - 0
Random(2) - 0 - 1
Random(3) - 0 - 2
Random(4) - 0 - 3
Random(5) - 0 - 4
Random(6) - 0 - 5
Random(7) - 0 - 6

I do however agree with all your other statements, except using Flag is Ok when you're sure you're not going to move it off the Minimap.

Hahahahahaha u got PWNED :D

Looks Good :D , Yes

:(!

const
YourSRLID       = '3138';        // Eneter your srl ID
YourSRLPassword = 'XXX';    // SRL password

Take the passwords out of your scripts! Went on your acc & edited pass out of your post ;), didn't touch anything else.

From: Dude Richard
Ok, first of all, thanks for insulting me by saying I'm new.

I think that if someone votes no that its unfair on the person whos is applying because then you don't know why it is they voted no, and how they could improve.

actually the admins have said you dont have to say so. thats why they dont do public polls.

Atually Special Ed. I got them from the script and corrected them and then posted them. Sorry should have posted the origonal bits before then the corrected versions :)

From: NaumanAkhlaQ
Atually Special Ed. I got them from the script and corrected them and then posted them. Sorry should have posted the origonal bits before then the corrected versions :)

Oh! Sorry for that misunderstanding, I had assumed (wrongly) that you had posted his cases in your post, not the fixed versions of them. I didn't mean to sound like I was "pwing" as Timer said.

As far as the actual application goes, I think we've pretty much covered all aspect of his script, now it's wait time I guess.

My fault too.
Also maybe some admin should take care of boxcrop (Reject or accept).

Ya, cause i feel unloved, i don't mind getting declined D: Cause then iget even better advice on my script! :O
I've made all the changes suggested, and tyvm Nauman on my cases! Such a silly mistake! XDD I've changed them in my 'improved' script, better fail safes etc which were suggested :)

Thnx for help again ;)

Nah, dw, I think you're in. You've got 63% yes so thats pretty much an in. I had 66.67% (2/3 :p) so you're probs in. GL!

I voted Yes btw.

Lol! I'd never thought i'd say this… THNX JESUS !:D

Welcome sir!