SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
SCAR only

Other Communitys


How Long have You Played Runescape
many years

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

I have played Runescape for a very long time, going back to playing it in the library any time i could….

I quit for 3 years and came back and now have not much interest in actually playing the game. I have fun at this community and hope to become a contributing member. Im very smart and a very fast learner as well as being very active.

Ive had wonderful help from basically anyone who has been around when I needed it and found the irc channel to be very helpful especially. Im easy to talk to and willingly help with any problem I can.

Thank you for taking the time to look this over.

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

program KitchensGuildMiner;
{.include srl/srl.scar}
var
MiniLadder : integer;
Loads : integer;
Const
MaxLoads = 1; // Set to Loads per player.

Procedure DeclarePlayers;
begin
  HowManyPlayers := 2;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name         := 'username';// Your UserName
  Players[0].Pass         := 'passord';// Your PassWord
  Players[0].Nick         := 'owmi';// Your Nick (3-4 letters from your username)
  Players[0].Active       := True;// Use this player ??}

  Players[1].Name         := 'username';// Your UserName
  Players[1].Pass         := 'password';// Your PassWord
  Players[1].Nick         := 'agic';// Your Nick (3-4 letters from your username)
  Players[1].Active       := True;// Use this player ??}

end;


Procedure LadderDTM;
begin
   MiniLadder := DTMFromString('78DA63EC61626098C980029C9421342394CFD' +
       '805543395809A4EA09AD904D4F41161573F61BB000AB707C1');
end;

function FindLadderDown(x, y: Integer): Boolean;
var
  CTS, I, x1, y1, time: Integer;  //CTS will store the ColorToleranceSpeed before we change it, for later.
  TPA: TPointArray; //The TPointArray in which all Coordinates which are found later will be stored
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);  //Sets the color tolerance speed to 2 so we can do HSL tolerance stuff
  SetColorSpeed2Modifiers(0.089, 0.22);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4025991, MSX1, MSY1, MSX2, MSY2, 10); //For tolerance, put in your own tolerance.
  ColorToleranceSpeed(CTS); //Make sure you do this after you're done color finding, so text finding will work again.
  ATPA := TPAToATPAEx(TPA, 15, 15);

  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y); //Returns the middle coords of the current TPA in the ATPA
    MMouse(x, y, 2, 2); //Moves mouse over the object
    If(IsUpTextMultiCustom(['limb', 'open'])) then
    begin
      Result := True;
      FindNormalRandoms;
      Break; //Exits the For To Do statement so it doesn't keep moving around looking for the object
end;
end;
end;



Procedure WalkToLadder;
var
x,y : integer;
 begin
  if FindDTM(MiniLadder, x, y, mmX1, mmY1, mmX2, mmY2) then
   begin
    Mouse(x,y,2,2,true);
    WriteLn('DTMed that bitch');
    wait(4000);
    FFlag(2);
   end else
    RadialWalk(FindFallyRoadColor, 170, 160, 60, 2, 2);
    FindNormalRandoms;
end;

function FindGuildGroundColor: Integer;
var
  i, Red, Green, Blue, GC, TestColor, GuildGroundColor: Integer;
  P: TPointArray;
begin
GC := 4615804
FindColorsSpiralTolerance(mmcx, mmcy, p, gc, mmx1, mmy1, mmx2, mmy2, 50);
for i:= 0 to High(p)-1 do
begin
  if rs_OnMinimap(P[i].x,P[i].y) then
    begin
      TestColor := GetColor(P[i].x,P[i].y);
      ColorToRGB(TestColor, Red, Green, Blue);
      if InRange(Red - Blue, 40, 50) then
        if InRange(Red - Green, 5, 24) then
          if InRange(Green - Blue, 20, 38) then
            if GetColor(P[i].x + 2, P[i].y + 2) = TestColor then
              if GetColor(P[i].x + 1, P[i].y + 1) = TestColor then
                if GetColor(P[i].x, P[i].y + 2) = TestColor then
                  if GetColor(P[i].x + 2, P[i].y) = TestColor then
                    if GetColor(P[i].x, P[i].y + 1) = TestColor then
                      if GetColor(P[i].x + 1, P[i].y) = TestColor then
                        if GetColor(P[i].x + 2, P[i].y + 1) = TestColor then
                          if GetColor(P[i].x + 1, P[i].y + 2) = TestColor then
                           if IsupText('limb') then
                          begin
                            Result := TestColor;
                            FindNormalRandoms;
                            Writeln(' Guild Ground Color = '+IntToStr(Result));
                            TestColor := GuildGroundColor;
                            exit;
                          end;
    end;
  end;
  WriteLn('Guild Ground Color could NOT be Found!');
  Result := 0;
end;

procedure AntiBan;// Simplest Antiban by Method  Prob will update
begin
  case random(100) of //do a random number so it won't always perform the antiban
    0: RandomRClick;
    1: BoredHuman;
    2: HoverSkill('Mining', False);
    3: GameTab(random(6));
  end;
end;


function TPAFinderCoal(x, y: Integer): Boolean;
var
  CTS, I, x2, y2, time: Integer;  //CTS will store the ColorToleranceSpeed before we change it, for later.
  TPA: TPointArray; //The TPointArray in which all Coordinates which are found later will be stored
  ATPA: Array of TPointArray;
begin
  wait(1000+random(200));
  Fflag(0);
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);  //Sets the color tolerance speed to 2 so we can do HSL tolerance stuff
  SetColorSpeed2Modifiers(0.01, 30.5);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 2241331, MSX1, MSY1, MSX2, MSY2, 10); //For tolerance, put in your own tolerance.
  ColorToleranceSpeed(CTS); //Make sure you do this after you're done color finding, so text finding will work again.
  ATPA := TPAToATPAEx(TPA, 15, 15);

  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y); //Returns the middle coords of the current TPA in the ATPA
    MMouse(x, y, 2, 2); //Moves mouse over the object
    If(IsUpTextMultiCustom(['ine'])) then
    begin
      Result := True;
      getmousepos(x2,y2);
      HoldMouse(x2, y2, True);
         wait(random(333));
         ReleaseMouse(x2, y2, True);
         marktime(time);
      repeat
       wait(random(1200));
       FindNormalRandoms;
      until(FindBlackChatMessage('You manage') or FindBlackChatMessage('There is no') or (TimeFromMark(time) >= 8000+random(2000)));
      Break; //Exits the For To Do statement so it doesn't keep moving around looking for the object
end;
end;
end;

function FindLadderUp(x, y: Integer): Boolean;
var
  CTS, I, x1, y1, time: Integer;  //CTS will store the ColorToleranceSpeed before we change it, for later.
  TPA: TPointArray; //The TPointArray in which all Coordinates which are found later will be stored
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);  //Sets the color tolerance speed to 2 so we can do HSL tolerance stuff
  SetColorSpeed2Modifiers(0.023, 1.83);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4281953, MSX1, MSY1, MSX2, MSY2, 10); //For tolerance, put in your own tolerance.
  ColorToleranceSpeed(CTS); //Make sure you do this after you're done color finding, so text finding will work again.
  ATPA := TPAToATPAEx(TPA, 15, 15);

  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y); //Returns the middle coords of the current TPA in the ATPA
    MMouse(x, y, 2, 2); //Moves mouse over the object
    If(IsUpTextMultiCustom(['limb'])) then
    begin
      GetMousePos(x1, y1)
      Result := True;
      FindNormalRandoms;
      Break;
end;
end;
end;

function TPAFinderMith(x, y: Integer): Boolean;
var
  CTS, I, x1, y1, time: Integer;  //CTS will store the ColorToleranceSpeed before we change it, for later.
  TPA: TPointArray; //The TPointArray in which all Coordinates which are found later will be stored
  ATPA: Array of TPointArray;
begin
  wait(1000+random(200));
  Fflag(0);
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);  //Sets the color tolerance speed to 2 so we can do HSL tolerance stuff
  SetColorSpeed2Modifiers(0.029, 0.048);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 8542295, MSX1, MSY1, MSX2, MSY2, 20); //For tolerance, put in your own tolerance.
  ColorToleranceSpeed(CTS); //Make sure you do this after you're done color finding, so text finding will work again.
  ATPA := TPAToATPAEx(TPA, 15, 15);

  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y); //Returns the middle coords of the current TPA in the ATPA
    MMouse(x, y, 2, 2); //Moves mouse over the object
    If(IsUpTextMultiCustom(['ine'])) then
    begin
      GetMousePos(x1, y1)
      Result := True;
      HoldMouse(x1, y1, True);
         wait(random(333));
         ReleaseMouse(x1, y1, True);
         marktime(time);
      repeat
       wait(random(1200));
       FindNormalRandoms;
      until(FindBlackChatMessage('You manage') or FindBlackChatMessage('There is no') or (TimeFromMark(time) >= 9000+random(2000)));
      Break; //Exits the For To Do statement so it doesn't keep moving around looking for the object
end;
end;
end;

function ClimbUp(x, y: Integer): Boolean;
var
  CTS, I, x1, y1, time: Integer;  //CTS will store the ColorToleranceSpeed before we change it, for later.
  TPA: TPointArray; //The TPointArray in which all Coordinates which are found later will be stored
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);  //Sets the color tolerance speed to 2 so we can do HSL tolerance stuff
  SetColorSpeed2Modifiers(0.023, 1.83);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4281953, MSX1, MSY1, MSX2, MSY2, 10); //For tolerance, put in your own tolerance.
  ColorToleranceSpeed(CTS); //Make sure you do this after you're done color finding, so text finding will work again.
  ATPA := TPAToATPAEx(TPA, 15, 15);

  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y); //Returns the middle coords of the current TPA in the ATPA
    MMouse(x, y, 2, 2); //Moves mouse over the object
    If(IsUpTextMultiCustom(['limb'])) then
    begin
      GetMousePos(x1, y1)
      Result := True;
      HoldMouse(x1, y1, True);
         wait(random(333));
         ReleaseMouse(x1, y1, True);
         wait(random(300));
      repeat
       wait(2000);
       wait(random(1200));
       FindNormalRandoms;
      until(FindLadderDown(x, y) = true);
      WriteLn('climbed up');
      Break;
end;
end;
end;

function ClimbDownOne(x, y: Integer): Boolean;
var
  CTS, I, x1, y1, time: Integer;  //CTS will store the ColorToleranceSpeed before we change it, for later.
  TPA: TPointArray; //The TPointArray in which all Coordinates which are found later will be stored
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);  //Sets the color tolerance speed to 2 so we can do HSL tolerance stuff
  SetColorSpeed2Modifiers(0.089, 0.22);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4025991, MSX1, MSY1, MSX2, MSY2, 10); //For tolerance, put in your own tolerance.
  ColorToleranceSpeed(CTS); //Make sure you do this after you're done color finding, so text finding will work again.
  ATPA := TPAToATPAEx(TPA, 15, 15);

  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y); //Returns the middle coords of the current TPA in the ATPA
    MMouse(x, y, 2, 2); //Moves mouse over the object
    If(IsUpTextMultiCustom(['limb-down'])) then
    begin
      GetMousePos(x1, y1)
      Result := True;
      HoldMouse(x1, y1, True);
         wait(random(333));
         ReleaseMouse(x1, y1, True);
      repeat
       wait(random(1200));
       FindNormalRandoms;
      until(FindBlackChatMessage('You climb'));
      WriteLn('climbed');
      Break; //Exits the For To Do statement so it doesn't keep moving around looking for the object
end;
end;
end;

Procedure ClimbDown;
var
x,y : integer;
 begin
  ClimbDownOne(x, y);
  FindNormalRandoms;
   if not(FindBlackChatMessage('You climb')) then
    begin
     wait(random(1200));
     ClimbDownone(x, y);
     FindNormalRandoms;
    end;
end;


Procedure WalkDeeper;
var
x,y, GuildGroundColor:integer;
begin
 if (RadialWalk(GuildGroundColor, 180, 90, 70, 1, 1)) then
  FindNormalRandoms;
   if (RadialWalk(GuildGroundColor, 180, 90, 70, 1, 1)) then
   FindNormalRandoms;
   if (RadialWalk(GuildGroundColor, 180, 90, 70, 1, 1)) then
    begin
     WriteLn('Walked Deep');
end;
end;

Procedure RelocateTwo;
  var
   x, y, GuildGroundColor : integer;
    begin
     if (RadialWalk(GuildGroundColor, 0, 90, 40, 1, 1)) then
      begin
       WriteLn('Relocated');
      end;
end;


Procedure Relocate;
  var
   x, y, GuildGroundColor : integer;
    begin
     if (RadialWalk(GuildGroundColor, 180, 90, 70, 1, 1)) then
      begin
       WriteLn('Relocated');
      end;
end;

Procedure WalkOutOne;
var
guildgroundcolor, x, y : integer;
 begin
   FindNormalRandoms;
  if RadialWalk(GuildGroundColor, 180, 270, 70, 1, 1) then
   FindNormalRandoms;
   if RadialWalk(GuildGroundColor, 180, 300, 70, 1, 1) then
    FindNormalRandoms;
    if RadialWalk(GuildGroundColor, 180, 300, 70, 1, 1) then
     FindNormalRandoms;
     if FindLadderUp(x, y) = False then
     if RadialWalk(GuildGroundColor, 180, 300, 70, 1, 1) then
   begin
    WriteLn('moved out once');
   end;
end;

Procedure GotoBank;
var
x,y : integer;
  begin
    SymbolAccuracy := 0.45;
    FindNormalRandoms;
    RadialWalk(FindFallyRoadColor, 80, 0, 70, 2, 2);
    FindNormalRandoms;
    RadialWalk(FindFallyRoadColor, 20, (-10), 70, 2, 2);
      if FindSymbol(x, y, 'bank') then
        begin
          MMouse(x,(y-3),2,2);
          Wait(random(345));
          HoldMouse(x,y,true);
          wait(random(343));
          ReleaseMouse(x,y, true);
          WriteLn('Used the symbol to bank');
       end;
end;

Procedure DepositIt;
 begin
  FFlag(0);
  if FindBank('feb') then
   begin
   if BankScreen then
     begin
      Deposit(2,28, true);
      Loads := Loads + 1;
       if Loads >= MaxLoads then
        begin
         Logout;
         NextPlayer(True);
        end;
     end;
   end;
end;

Procedure MineRocks;
var
x,y : integer;
 begin
  repeat
   if TpaFinderMith(x,y) then
    begin
     WriteLn('Mined Mith');
    end else
     if TpaFinderCoal(x,y) then
      begin
       WriteLn('Mined Mith');
      end else
       begin
        Relocate;
       end;
   Until(InvFull);
end;

Procedure MainLoopOne;
var
x, y : integer;
 begin
  repeat
   begin
   DeclarePlayers;
   LoginPlayer;
    LadderDTM;
    WalktoLadder;
    Antiban;
    ClimbDown;
    FindGuildGroundColor;
    Antiban;
    WalkDeeper;
    Antiban;
    Minerocks;
    Relocate;
    WalkOutOne;
    Antiban;
    ClimbUp(x,y);
    GotoBank;
    Antiban;
    DepositIt;
    FreeDTM(MiniLadder);
   end;
  until(false);
end;


begin
Setupsrl;
ActivateClient;
MainloopOne;
end.

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

I voted no, but just barely.

Your script is "ok" but not great. Functions are sporatic and used improperly (when you repeat code, consider a function) A few problems could have been solved by a while loops (GetGuildGroundColors).

One other thing that drove me a bit nuts, Your indentation effectively means nothing. Its almost as if you decide "Humm, lets indent this line". This makes your code harder to read, debug, ect. Practice poper indentation techniques (whenever you have a begin you should indent and when ever there the indentation should be decreased by one. Control statements like If, while, ect that don't have begins following them should indent the line that does follow it, unless you are going for an infinite loop or something)

Also, I didn't see much of anything along the lines of anti-bans, anti-randoms, or even many fail-safes. You need more checking for everything.

The way it is setup right now, your multiplayer is pretty much shot. You need a nextplayer function in there somewhere to do something.

Don't give up, your not far.

Program IndentExample; //How it should be done, I think :)
var Stuff:boolean;
begin
  if Stuff then
    begin
      writeln('ohaider');
        begin
          writeln('loll');
            begin
              writeln('lol');
            end;
        end;
    end;
end.

Because standards fail a bit much I lean to know. But I say yes.

hmm is it just me or do all the TPAs look like they were copied out of a tutorial? Anyway i'm holding my vote.

From: Laur€ns

Program IndentExample; //How it should be done, I think :)
var Stuff:boolean;
begin
  if Stuff then
    begin
      writeln('ohaider');
        begin
          writeln('loll');
            begin
              writeln('lol');
            end;
        end;
    end;
end.

Because standards fail a bit much I lean to know. But I say yes.

Are you serious with those standards? That is horrendous.

Anyways, I'm going to have to say no also. You're lacking quite a bit in the failsafes department, apart from what boberman mentioned. It's a good start, but there's quite a bit of work for you still left to do. Keep working on it! :)

Thank yall very much for the feedback. I figured if i didnt make it this time i could use the feedback to finish it up. I got too excited to post it and forgot to fix my standards and also add a funcition ive added now that sets run once it reaches a certain amount.

Well, thanks again for the feedback and hope to get some more. Looks like im probably gonna have to wait another month :/

standards are shit. but i like you. and ur attitude is right. the script needs work, but with help in srl members ull do it. YES

Err dont you mean..

Program IndentExample; //How it should be done, I think :)
var Stuff:boolean;
begin
  if Stuff then
  begin
    writeln('ohaider');
    begin
      writeln('loll');
      begin
        writeln('lol');
      end;
    end;
  end;
end.

was thinking more this.

function FindGuildGroundColor: Integer;
var
  i, Red, Green, Blue, GC, TestColor, GuildGroundColor: Integer;
  P: TPointArray;
begin
GC := 4615804
FindColorsSpiralTolerance(mmcx, mmcy, p, gc, mmx1, mmy1, mmx2, mmy2, 50);
for i:= 0 to High(p)-1 do
begin
  if rs_OnMinimap(P[i].x,P[i].y) then
    begin
      TestColor := GetColor(P[i].x,P[i].y);
      ColorToRGB(TestColor, Red, Green, Blue);
      if InRange(Red - Blue, 40, 50) then
        if InRange(Red - Green, 5, 24) then
          if InRange(Green - Blue, 20, 38) then
            if GetColor(P[i].x + 2, P[i].y + 2) = TestColor then
              if GetColor(P[i].x + 1, P[i].y + 1) = TestColor then
                if GetColor(P[i].x, P[i].y + 2) = TestColor then
                  if GetColor(P[i].x + 2, P[i].y) = TestColor then
                    if GetColor(P[i].x, P[i].y + 1) = TestColor then
                      if GetColor(P[i].x + 1, P[i].y) = TestColor then
                        if GetColor(P[i].x + 2, P[i].y + 1) = TestColor then
                          if GetColor(P[i].x + 1, P[i].y + 2) = TestColor then
                           if IsupText('limb') then
                          begin
                            Result := TestColor;
                            FindNormalRandoms;
                            Writeln(' Guild Ground Color = '+IntToStr(Result));
                            TestColor := GuildGroundColor;
                            exit;
                          end;
    end;
  end;
  WriteLn('Guild Ground Color could NOT be Found!');
  Result := 0;
end;

From: jakeyboy29
standards are shit. but i like you. and ur attitude is right. the script needs work, but with help in srl members ull do it. YES

Awesome man, thanks for the support. How many total votes do these usually receive? That way I can know if im in the running or not.

From: kitchenrange
Awesome man, thanks for the support. How many total votes do these usually receive? That way I can know if im in the running or not.

Most receive 10-20. Some receive more, others receive less.

From: jakeyboy29
was thinking more this.

function FindGuildGroundColor: Integer;
var
  i, Red, Green, Blue, GC, TestColor, GuildGroundColor: Integer;
  P: TPointArray;
begin
GC := 4615804
FindColorsSpiralTolerance(mmcx, mmcy, p, gc, mmx1, mmy1, mmx2, mmy2, 50);
for i:= 0 to High(p)-1 do
begin
  if rs_OnMinimap(P[i].x,P[i].y) then
    begin
      TestColor := GetColor(P[i].x,P[i].y);
      ColorToRGB(TestColor, Red, Green, Blue);
      if InRange(Red - Blue, 40, 50) then
        if InRange(Red - Green, 5, 24) then
          if InRange(Green - Blue, 20, 38) then
            if GetColor(P[i].x + 2, P[i].y + 2) = TestColor then
              if GetColor(P[i].x + 1, P[i].y + 1) = TestColor then
                if GetColor(P[i].x, P[i].y + 2) = TestColor then
                  if GetColor(P[i].x + 2, P[i].y) = TestColor then
                    if GetColor(P[i].x, P[i].y + 1) = TestColor then
                      if GetColor(P[i].x + 1, P[i].y) = TestColor then
                        if GetColor(P[i].x + 2, P[i].y + 1) = TestColor then
                          if GetColor(P[i].x + 1, P[i].y + 2) = TestColor then
                           if IsupText('limb') then
                          begin
                            Result := TestColor;
                            FindNormalRandoms;
                            Writeln(' Guild Ground Color = '+IntToStr(Result));
                            TestColor := GuildGroundColor;
                            exit;
                          end;
    end;
  end;
  WriteLn('Guild Ground Color could NOT be Found!');
  Result := 0;
end;

Thats actually a modified version of FindRockColor or something in autocolor.scar. Looks ike he just inputted his out color and writeln…

Sorry its a no from me, everything looks either copied or from a tutorial. Write some more original stuff, and I will definatly vote yes.

Seems like a yes from me, just fix your standards.

-The_Shermanator

From: The_Shermanator
Seems like a yes from me, just fix your standards.

-The_Shermanator

Thx for the vote.

Am I aloud to post in general news that I applied to attract more attention to this thread?

From: kitchenrange
Thx for the vote.

Am I aloud to post in general news that I applied to attract more attention to this thread?

No, and my vote is the same.

Sorry, but you need to work on all mentioned.

Read the tutorials, don't just copy them. :( Sorry, better luck next time. Nice to know people read them though :D

This does look very copied… Stay for a while and apply again in a month.

From: noidea
This does look very copied… Stay for a while and apply again in a month.

you can see in his tpas that its all the same with different colors in it. (// things are left in all of them)
and also, does this look familiar…

function FindWaterColor: Integer;
var
  GC, a, l, TestColor, Red, Green, Blue: integer;
  P: TPointArray;
begin
  GC := 10324605;
  Flag;
  FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
  l := GetArrayLength(P);
  for a := 0 to l - 1 do
  begin
    if rs_OnMinimap(P[a].x, P[a].y) then
    begin
      TestColor := GetColor(P[a].x, P[a].y);
      if SimilarColors(TestColor, GC, 50) then
      begin
        ColorToRGB(TestColor, Red, Green, Blue);
        if InRange(Blue - Green, -11, 49) then
          if InRange(Green - Red, -17, 43) then
            if InRange(Blue - Red, 2, 62) then
              if GetColor(P[a].x + 2, P[a].y + 2) = TestColor then
                if GetColor(P[a].x + 1, P[a].y + 1) = TestColor then
                  if GetColor(P[a].x, P[a].y + 2) = TestColor then
                    if GetColor(P[a].x + 2, P[a].y) = TestColor then
                      if GetColor(P[a].x, P[a].y + 1) = TestColor then
                        if GetColor(P[a].x + 1, P[a].y) = TestColor then
                          if GetColor(P[a].x + 2, P[a].y + 1) = TestColor then
                            if GetColor(P[a].x + 1, P[a].y + 2) = TestColor then
                            begin
                              Result := TestColor;
                              WaterColor := TestColor;
                              WriteLn('WaterColor = ' + IntToStr(TestColor));
                              Exit;
                            end;
      end;
    end;
  end;
  WriteLn('Could not find Water Color!');
  Result := 0;
end;

thats in autocolor.scar and its for autocoloring water, and heres his findguildgroundcolor.

function FindGuildGroundColor: Integer;
var
  i, Red, Green, Blue, GC, TestColor, GuildGroundColor: Integer;
  P: TPointArray;
begin
GC := 4615804
FindColorsSpiralTolerance(mmcx, mmcy, p, gc, mmx1, mmy1, mmx2, mmy2, 50);
for i:= 0 to High(p)-1 do
begin
  if rs_OnMinimap(P[i].x,P[i].y) then
    begin
      TestColor := GetColor(P[i].x,P[i].y);
      ColorToRGB(TestColor, Red, Green, Blue);
      if InRange(Red - Blue, 40, 50) then
        if InRange(Red - Green, 5, 24) then
          if InRange(Green - Blue, 20, 38) then
            if GetColor(P[i].x + 2, P[i].y + 2) = TestColor then
              if GetColor(P[i].x + 1, P[i].y + 1) = TestColor then
                if GetColor(P[i].x, P[i].y + 2) = TestColor then
                  if GetColor(P[i].x + 2, P[i].y) = TestColor then
                    if GetColor(P[i].x, P[i].y + 1) = TestColor then
                      if GetColor(P[i].x + 1, P[i].y) = TestColor then
                        if GetColor(P[i].x + 2, P[i].y + 1) = TestColor then
                          if GetColor(P[i].x + 1, P[i].y + 2) = TestColor then
                           if IsupText('limb') then
                          begin
                            Result := TestColor;
                            FindNormalRandoms;
                            Writeln(' Guild Ground Color = '+IntToStr(Result));
                            TestColor := GuildGroundColor;
                            exit;
                          end;
    end;
  end;
  WriteLn('Guild Ground Color could NOT be Found!');
  Result := 0;
end;

Sorry its a no from me standards are bad and most of it looks copied. Good Luck on your next app :)

The poll has closed.

Sorry.

3-Yes
11-No

Please stick around and read all of the suggestions people have posted and improve your script and reapply in one month.

Cheers,
Hobbit