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

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.

I 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

I KNOW i will get declined but,
i REALLY want suggestions for improvements on this script please :P

program New;
{.include SRL/SRL.Scar}

var
x,y, NotFoundHim, stonemason: integer;



const
color1 = 7510470;
color2 = 2108229;
color3 = 3822649;
load = 1;

Procedure DeclarePlayers;
Begin
  NumberOfPlayers(4);
  CurrentPlayer := 0;

  Players[0].Name        := '--';       // Player Name
  Players[0].Pass        := 'lolcat';       // 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)
  LampSkill := 'construction';

  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==');
       
end;




// Function created by ACA(the autocolor program by sumilion and nielsie)
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('Failed to find the color, no result.');
    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('AutoColor failed in finding the color.');
end;






procedure walktoshop;
begin
  antiban;
  RoadColor := AutoColor;
  RadialRoadWalk(RoadColor, 70, 100, 40, 1, 1);
  repeat
    RadialRoadWalk(RoadColor, 70, 100, 40, 1, 1);
  until(FindSymbol(X,Y,'farming spot'));
     writeln('Found Farming');
     antiban;
     FindNormalRandoms;
  repeat
    RadialRoadWalk(RoadColor , 170, 190, 50, 1, 1);
  Until(FindBitmapSpiralTolerance(stonemason,x,y,MMX1,MMY1,MMX2,MMY2, 80));
  writeln('Found The Shop symbol');
  Mouse(x, y , 1, 1, true);
  FindNormalRandoms;
  flag;
  antiban;
end;

procedure antiban;
begin
  if not LoggedIn then Exit;
  case Random(30) of
    1: RandomRClick;
    2: HoverSkill('random', False);
    3: RandomMovement;
    4: Almostlogout;
    5,6,7,8: Bored Human;
  end;
end;



procedure walkfromshop;
begin
  antiban;
  RoadColor := FindRoadColor;
  FindNormalRandoms;
  repeat
  RadialRoadWalk(RoadColor , 350, 10, 50, 1, 1);
   until(FindSymbol(X,Y,'farming spot'));
      writeln('finding farm');
  repeat
    writeln('walking back')
    RadialRoadWalk(RoadColor , 270, 330, 50, 1, 1);
  Until(Findsymbol(x, y, 'bank'));
  Mouse(x, y, 1, 1, true);
  FindNormalRandoms;
  flag;
  antiban;
end;


procedure door;
var
  i: Integer;
begin
  FindNormalRandoms;
  SetAngle(False);
  makecompass('s');
  i:= 0;
  if(FindObjCustom(x, y, ['oor'], [5788242,4873581,3622225,1387833], 10))then
  repeat
    i:= i + 1;
    writeln('finding door close/ open');
    if(IsUpText('pen'))then
    begin
      Mouse(x, y, 5, 5, false);
      writeln('door found');
      if(ChooseOption('Open'))then
    end else
    if(IsUpText('los'))then
    Exit;
  until(i >= 10);
  if findbitmap(stonemason, x, y) then
  mouse(x, y, 2, 2, true);
  FindNormalRandoms;
end;

procedure banking;
var
  b: Integer;
begin
  b:= 0;
  repeat
    if (FindSymbol(x,y,'bank')) then
    b:= b + 1;
    until(b >= 10);
    begin
      antiban;
      wait(100+random(600));
      FindNormalRandoms;
      if(not(OpenBankQuiet('veb')))then
      begin
        if(FindColorSpiral(x, y, 7107700, 547, 206, 734, 464))then
        begin
          Mouse(x, y, 4, 3, false);
          ChooseOption('All');
        end;
        fixbank;
        FindNormalRandoms;
        MakeCompass('S');
        SetAngle(False);
        wait(100+random(400));
        OpenBankQuiet('veb');
        wait(200+random(400));
        Withdraw(-1, 1, 588);
      end else
      fixbank;
      if(FindColorSpiral(x, y, 7107700, 547, 206, 734, 464))then
      begin
        Mouse(x, y, 4, 3, false);
        ChooseOption('All');
      end;
      Withdraw(-1, 1, 588);
      FindNormalRandoms;
    end;
    antiban;
end;

procedure BuyStuff;
begin
  FindNormalRandoms;
  if shopscreen then
  begin
    mouse(76,115,10,10, false);
    if ChooseOption('Buy X') then
    begin
      typesend('28');
      Wait(1000 + Random(500));
      mouse(485,40,7,7, true);
    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
  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
        Begin
          If (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
          Begin
            if not FindColorTolerance(x3, y3, Color3, (cx - 5), (cy - 5), (cx + 5), (cy + 5), 5) then
            begin
              Result := False;
            end else
            begin
              MMouse(cx, cy, 0, 0);
              Wait(50 + random(100));
              if (IsUpTextMultiCustom(Text)) then
              Begin
                Result := True;
                Exit;
              end;
            end;
          end;
        end;
      end;
      if (a = 4) then a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;



procedure findNtrade;
begin
  repeat
    case random(5)of
      0: MakeCompass('S');
      1: wait(random(100));
      2: MakeCompass('W');
      3: MakeCompass('N');
      4: MakeCompass('E');
      5: antiban;
    end;
    If FindTheDude(x, y, ['Stonemason', 'mason'], [color1, color2], 6) then
    begin
      Mouse(X, Y, 1, 1, false);
      Wait(20 + Random(70));
      if ChooseOption('rade') then
      Wait(700 + Random(200));
      BuyStuff;
      MakeCompass('N');
    end else
    NotFoundHim := NotFoundHim+1;
    antiban;
    FindNTrade;
    wait(500+random(200));
  until(shopscreen) or (NotFoundHim > 20);
  if (notFoundHim > 20) or (ShopScreen = False) then
  begin
    writeln('Failed while finding the shopkeeper');
    logout;
    terminatescript;
  end;
end;








begin
  SetupSRL;
  activateclient;

  DeclarePlayers;
  if (not(LoggedIn)) then
  LoginPlayer;
  repeat
 // autocolor;
  banking;
   walktoshop;
   door;
 FindNormalRandoms;
 FindNTrade;
   walkfromshop;
   // load:=load+1;
  until(false);
  //until (load=20);
  //if(load = 20) then logout;
end.

Please be helpful,

Added anti randoms and anti ban, left out before :O! And already changed Cazax's suggestion.

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

Some things:

- You forgot to credit ACA(the autocolor program by sumilion and nielsie) for the functions.

- Try using if RadialRoadWalk then instead of RadialRoadWalk, more safer.

-

 4 : Disguise('iTunes');
    5 : Disguise('iTunes');
    6 : Disguise('iTunes');

shorter:

4, 5, 6: Disguise('ITunes');

- What happened with the antiban and antirandoms ? Torrent Of Flame wrote a tut on it.

No.

repeat
  RadialRoadWalk(RoadColor , 350, 10, 50, 1, 1);
   until(FindSymbol(X,Y,'farming spot'));

This is dangerous.. What if it like goes past the symbol and gets stuck but keeps trying to get to the symbol.

Do this to fix it.

Make a var called Tries (Integer).

Example:

Var
Tries:integer;

Procedure blah;
begin
  repeat
    RadialRoadWalk(RoadColor , 350, 10, 50, 1, 1);
    Tries := Tries + 1;
  until(FindSymbol(X,Y,'farming spot')) or (Tries > 5);
   If (Tries > 5) then
   begin
     Writeln('Couldnt walk to the farm spot');
     Logout;
  end;
end;

Just an example (Each time it radialwalks it adds 1 to the try then if "tries" goes over 5 it will logout your player. Good try, but sorry no from me.

Read the requirements told here.

Woah. You cant change the script when its been put up for vote.

You have to do it after.

No.

if there would be failsafes, I would vote yes. I'm feeling you have to apply again.

Im holding vote though. if you can post new fixed script with failsafes then it'll be yes from here.

How can i get 7 no's and 5 replys? I kinda want feedback :(

I'm afraid you're not getting in this time.
You may try again in one month, good luck :)
Closed.