SRL Archive - Archive

How Long have You Played Runescape?
10 Year(s)


Are you affilated in anyway with Jagex LTD?
no

Were you Referred to SRL?
DansTheMan


What is your general programming knowledge?
PHP, HTML/XHTML,


Are you a member of any other communities?
Rsbot
Sythe


Tell us about yourself…

From: Simtoon
Im cool

Please show us one (or multiple) of your scripts.

{ =============================================================================
  SimMiner by Simtoon - A VarrockEastMiner

  Setup players at DeclarePlayers (Line 13+).
 ============================================================================= }

{.include SRL\SRL\misc\SMART.scar}
{.include SRL\SRL.scar}

var
  World, x, y: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //How many players are you using?
  NumberOfPlayers(HowManyPlayers); //Ignore this line.
  CurrentPlayer := 0; //Which player to start with?

  World := 123; //World to use for SMART?

  Players[0].Name := ''; //Player username.
  Players[0].Pass := ''; //Password for player.
  Players[0].Nick := ''; //Nickname of your username.
  Players[0].Pin := '0000'; //Bank pin, leave if none.
  Players[0].Strings[0] := 'iron'; //Only works for iron now
  Players[0].Strings[3] := 'north'; //Run direction for fights?
  Players[0].Strings[4] := 'Windows Live Messenger'; //Disguise title.
  Players[0].Integers[0] := 21; //Amount of loads to do?
  Players[0].Booleans[0] := False;
    //Powermine? Doesn't have to be in VEM if case.
  Players[0].Active := True; //Are you using this player?

  {
    Players[1].User := 'Username';     //Player username.
    Players[1].Pass := 'Password';     //Password for player.
    Players[1].Nick := 'erna';         //Nickname of your username.
    Players[1].Strings[0] := 'silver'; //Ore to mine the most?
    Players[1].Strings[1] := 'iron';   //Ore to mine moderately?
    Players[1].Strings[2] := 'copper'; //Ore to mine least?
    Players[1].Strings[3] := 'north';  //Run direction for fights?
    Players[1].Strings[4] := 'Windows Live Messenger'; //Disguise title.
    Players[1].Integers[0] := 21;      //Amount of loads to do?
    Players[1].Active := False;        //Are you using this player?
  }
{
    (*******
       ISN'T NECESSARY TO EDIT BEYOND THIS POINT
                                              *******)
}
  Writeln('You are using ' + IntToStr(HowManyPlayers) + ' player(s).');
end;

function FindObject(var fx, fy: Integer): Boolean;
var
  arP, arAP: TPointArray;
  arC, arUC: TIntegerArray;
  ararP: T2DPointArray;
  tmpCTS, i, j, arL, arL2: Integer;
  P: TPoint;
  H, S, L: Extended;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  if not (FindColorsTolerance(arP, 4219784, MSX1, MSY1, MSX2, MSY2, 31)) then
  begin
    Writeln('Failed to find the color, no object found.');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;
  arC := GetColors(arP);
  arUC := arC;
  ClearSameIntegers(arUC);
  arL := High(arUC);
  arL2 := High(arC);
  for i := 0 to arL do
  begin
    ColorToHSL(arC[i], H, S, L);
    if (H >= 7.92) and (H <= 8.08) and (S >= 35.98) and (S <= 36.61) and (L >=
      32.53) and (L <= 45.71) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);
      if (X >= 10.45) and (X <= 21.69) and (Y >= 9.78) and (Y <= 20.15) and (Z
        >= 4.69) and (Z <= 9.24) then
      begin
        for j := 0 to arL2 do
        begin
          if (arUC[i] = arC[j]) then
          begin
            SetLength(arAP, Length(arAP) + 1);
            arAP[High(arAP)] := arP[j];
          end;
        end;
      end;
    end;
  end;
  SortTPAFrom(arAP, Point(MSCX, MSCY));
  ararP := SplitTPAEx(arAP, 10, 10);
  arL := High(ararP);
  for i := 0 to arL do
  begin
    if (Length(ararP[i]) < 10) then
      Continue;
    P := MiddleTPA(ararP[i]);
    MMouse(P.x, P.y, 5, 5);
    Wait(100 + Random(100));
    if (IsUpText('ine')) then
    begin
      Mouse(P.x, P.y, 5, 5, True);
      Result := True;
      Break;
    end;
  end;
  ColorToleranceSpeed(tmpCTS);
  if (i = arL + 1) then
  begin
    Writeln('FindObject could not find object.');
    Exit;
  end;
  GetMousePos(fx, fy);
end;

procedure BankThisShit;
var
  i: Integer;
begin
  if FindSymbol(x, y, 'bank') then
    Wait(1000 + Random(600));
  begin
    OpenBankFast('veb');
    Wait(1000 + Random(600));
    repeat
      i := i + 1;
      Wait(250 + RandomRange(250, 300));
    until ((BankScreen) or (i > 5));
    if (i > 5) then
    begin
      Writeln('Not at bank.');
      Writeln('Switching Players');
      RandomNextPlayer(False);
    end;
    if (PinScreen) then
      InPin(Players[CurrentPlayer].Pin);
  end;
  DepositAll;
end;

var
  OFTP: TPoint;

  { =============================================================================
      Description: Find's the specified ore colour from the RuneScape
          MainScreen. Stores found coordinates in variable O.
    ============================================================================ }

function OreAutoColour(OreType: string; O: TPoint): Integer;
var
  TPA: TPointArray;
  i, bI: Integer;
  BColour, BaColour: Integer;
begin
  case (Lowercase(OreType)) of
    'iron': BColour := 4219784;
  end;
  FindColorsSpiralTolerance(MMCX, MMCY, TPA, BColour, MSX1, MSY1, MSX2, MSY2,
    40);
  bI := High(TPA);
  for i := 0 to bI do
  begin
    BaColour := GetColor(TPA[i].X, TPA[i].Y);
    if (SimilarColors(BColour, BaColour, 40)) then
    begin
      if (GetColor(TPA[i].X + 2, TPA[i].Y) = BaColour) then
        if (GetColor(TPA[i].X, TPA[i].Y + 2) = BaColour) then
          if (GetColor(TPA[i].X + 1, TPA[i].Y + 1) = BaColour) then
            if (GetColor(TPA[i].X + 2, TPA[i].Y + 2) = BaColour) then
            begin
              Result := BaColour;
              Writeln('Auto colouring found for ' + OreType);
              O := TPA[i];
              Exit;
            end;
    end;
  end;
  Writeln('Ore colour could not be found');
end;

function WalkToMine: Boolean;
var
  xx, yy: integer;
begin

  if not LoggedIn then
    LoginPlayer;
  if (RadialRoadWalk(FindVarrockRoadColor, 0, 90, 74, 1, 1)) then
  begin
    if (RadialRoadWalk(FindVarrockRoadColor, 0, 180, 74, 1, 1)) then
    begin
      if (RadialRoadWalk(FindVarrockRoadColor, 90, 180, 74, 1, -1)) then
      begin
        if (RadialRoadWalk(FindVarrockRoadColor, 90, 195, 74, -1, -1)) then
        begin
          repeat
            RadialRoadWalk(FindVarrockRoadColor, 90, 195, 74, -1, -1);
          until (FindSymbol(xx, yy, 'mining site'));
          Result := True;
          Mouse(xx, yy, 5, 5, True);
          WriteLn('Found Mining Symbol & Clicked');
          Players[CurrentPlayer].Loc := 'Mine';
          Exit;
        end
        else
          Writeln('Couldn''t Walk 4');
        Result := False;
        Logout;
        if (HowManyPlayers > 1) then
          RandomNextPlayer(True)
        else
          TerminateScript;
      end
      else
        Writeln('Couldn''t Walk 3');
      Result := False;
      Logout;
      if (HowManyPlayers > 1) then
        RandomNextPlayer(True)
      else
        TerminateScript;
    end
    else
      Writeln('Couldn''t Walk 2');
    Result := False;
    Logout;
    if (HowManyPlayers > 1) then
      RandomNextPlayer(True)
    else
      TerminateScript;
  end
  else
    Writeln('Couldn''t Walk 1');
  Result := False;
  Logout;
  if (HowManyPlayers > 1) then
    RandomNextPlayer(True)
  else
    TerminateScript;
end;

function WalkToVarrock: Boolean;
var
  x, y: integer;
begin
  if not LoggedIn then
    LoginPlayer;
  if FindSymbol(x, y, 'mining site') then
    Result := True;
  Mouse(x, y, 5, 5, True);
  WriteLn('Walked 1');
  if RadialRoadWalk(FindVarrockRoadColor, 0, 90, 74, 1, 1) then
  begin
    if RadialRoadWalk(FindVarrockRoadColor, 270, 90, 74, 1, 1) then
    begin
      if RadialRoadWalk(FindVarrockRoadColor, 270, 90, 74, 1, 1) then
      begin
        if RadialRoadWalk(FindVarrockRoadColor, 270, 310, 74, 1, 1) then
        begin
        end
        else
          Writeln('Couldn''t Walk 4');
        Result := False;
        Logout;
        if (HowManyPlayers > 1) then
          RandomNextPlayer(True)
        else
          TerminateScript;
      end
      else
        Writeln('Couldn''t Walk 3');
      Result := False;
      Logout;
      if (HowManyPlayers > 1) then
        RandomNextPlayer(True)
      else
        TerminateScript;

    end
    else
      Writeln('Couldn''t Walk 2');
    Result := False;
    Logout;
    if (HowManyPlayers > 1) then
      RandomNextPlayer(True)
    else
      TerminateScript;
  end
  else
    Writeln('Couldn''t Walk 1');
  Result := False;
  Logout;
  if (HowManyPlayers > 1) then
    RandomNextPlayer(True)
  else
    TerminateScript;
end;

{ =============================================================================
    Description: Find's gas at found ores coordinates. If gas is
        found then it will return the Box in LGF.
  ============================================================================ }
{
function FindGas(OFTP: TPoint; var LGF: TBox): Boolean;
var
  TPA: TPointArray;
  i, bI: Integer;
  Colour, BaColour: Integer;
  bTBox: TBox;
begin
  Colour := 7244690;
  FindColorsSpiralTolerance(OFTP.X, OFTP.Y, TPA, Colour, OFTP.X - 10,
    OFTP.Y - 5, OFTP.X + 15, OFTP.Y + 20, 32);
  bI := High(TPA);
  for i := 0 to bI do
  begin
    BaColour := GetColor(TPA[i].X, TPA[i].Y);
    if(SimilarColors(Colour, BaColour, 32)) then
    begin
      if(GetColor(TPA[i].X + 2, TPA[i].Y) = BaColour) then
        if(GetColor(TPA[i].X, TPA[i].Y + 2) = BaColour) then
          if(GetColor(TPA[i].X + 1, TPA[i].Y + 1) = BaColour) then
            if(GetColor(TPA[i].X + 2, TPA[i].Y + 2) = BaColour) then
            begin
              Result := True;
              Writeln('Gas found.');
              LGF.X1 := OFTP.X - 10;
              LGF.X2 := OFTP.X + 15;
              LGF.Y1 := OFTP.Y - 5;
              LGF.Y2 := OFTP.Y + 20;
              Exit;
            end;
    end;
  end;
  Writeln('No gas has been detected');
end;

function GetGasAt(LGF: TBox): Boolean;
var
  TPA: TPointArray;
  i, bI: Integer;
  Colour, BaColour: Integer;
begin
  Colour := 7244690;
  FindColorsSpiralTolerance(OFTP.X, OFTP.Y, TPA, Colour, LGF.X1,
    LGF.Y1, LGF.X2, LGF.Y2, 32);
  bI := High(TPA);
  for i := 0 to bI do
  begin
    BaColour := GetColor(TPA[i].X, TPA[i].Y);
    if(SimilarColors(Colour, BaColour, 32)) then
    begin
      if(GetColor(TPA[i].X + 2, TPA[i].Y) = BaColour) then
        if(GetColor(TPA[i].X, TPA[i].Y + 2) = BaColour) then
          if(GetColor(TPA[i].X + 1, TPA[i].Y + 1) = BaColour) then
            if(GetColor(TPA[i].X + 2, TPA[i].Y + 2) = BaColour) then
            begin
              Result := True;
              Exit;
            end;
    end;
  end;
end;
}

procedure AntiBan;
begin
  case Random(7) of
    0: HoverSkill('mining', False);
    1: HoverSkill('random', False);
    2: GameTab(1 + Random(14));
    3: BoredHuman;
    4: RandomMovement;
    5: PickupMouse;
    6: RandomRClick;
  end;
end;

var
  SPos: Integer;

procedure DropOresSafe;
var
  i, NSPosC: Integer;
  TB: TBox;
begin

  if not LoggedIn then
    LoginPlayer;
  if (SPos < 1) then
  begin
    for i := 1 to 28 do
    begin
      TB := InvBox(i);
      MMouse(RandomRange(TB.X1 + 4, TB.X2 - 4), RandomRange(TB.Y1 + 4,
        TB.Y2 - 4), 3, 3);
      if (Uppercase(GetUpText) = 'ORE') then
        DropItem(i)
      else
      begin
        NSPosC := NSPosC + 1;
        Continue;
      end;
    end;
  end
  else
  begin
    for i := SPos to 28 do
    begin
      TB := InvBox(i);
      MMouse(RandomRange(TB.X1 + 4, TB.X2 - 4), RandomRange(TB.Y1 + 4,
        TB.Y2 - 4), 3, 3);
      if (Uppercase(GetUpText) = 'ORE') then
        DropItem(i)
      else
      begin
        NSPosC := NSPosC + 1;
        Continue;
      end;
    end;
  end;
  if (NSPosC > 0) then
  begin
    ArrangeInv;
    SPos := SPos + NSPosC;
  end;
end;

var
  LGF: TBox;

function OreMine: Boolean;
var
  OC, I: Integer;
begin
  if not LoggedIn then
    LoginPlayer;
  if (OreAutoColour(Players[CurrentPlayer].Strings[0], OFTP) > -1) then
  begin
    OC := GetColor(OFTP.X, OFTP.Y);
    Mouse(OFTP.X, OFTP.Y, 3, 3, True);
    repeat
      if (I - GetSystemTime > 4000 + RandomRange(400, 1000)) then
      begin
        AntiBan;
        I := GetSystemTime;
      end;
      if (FindNormalRandoms) then
        SRLRandomsReport;
    until (GetColor(OFTP.X, OFTP.Y) <> OC);
  end
  else if (OreAutoColour(Players[CurrentPlayer].Strings[1], OFTP) > -1) then
  begin
    OC := GetColor(OFTP.X, OFTP.Y);
    Mouse(OFTP.X, OFTP.Y, 3, 3, True);
    repeat
      AntiBan;
      if (FindNormalRandoms) then
        SRLRandomsReport;
    until (GetColor(OFTP.X, OFTP.Y) <> OC);
  end
  else if (OreAutoColour(Players[CurrentPlayer].Strings[0], OFTP) > -1) then
  begin
    OC := GetColor(OFTP.X, OFTP.Y);
    Mouse(OFTP.X, OFTP.Y, 3, 3, True);
    repeat
      AntiBan;
      if (FindNormalRandoms) then
        SRLRandomsReport;
    until (GetColor(OFTP.X, OFTP.Y) <> OC);
  end;
end;

var
  Loads, TLoads, Mined, TMined: Integer;

procedure MainPower;
begin

  if not LoggedIn then
    LoginPlayer;
  repeat
    if (not (Oremine)) then
      Continue;
    Mined := Mined + 1;
  until (InvFull);
  Loads := Loads + 1;
  Wait(235 + Random(321));
  DropOresSafe;
end;

procedure Main;
begin
  if not LoggedIn then
    LoginPlayer;
  repeat
    WalkToMine;
    if (not (Oremine)) then
      Continue;
    Mined := Mined + 1;
  until (InvFull);
  Loads := Loads + 1;
  Wait(235 + Random(321));
  BankThisShit;
  WalkToVarrock;
end;

procedure p_Report;
begin
  Writeln('[========================================================]');
  Writeln('[                   Simtoons PowerMiner                  ]');
  Writeln('[                       Version 1.0                      ]');
  Writeln('[--------------------------------------------------------]');
  Writeln(PadR('[ Active Players: ' + IntToStr(PlayersActive), 57) + ']');
  Writeln(PadR('[ Current Player: ' + Players[CurrentPlayer].Nick, 57) + ']');
  Writeln(PadR('[   Player Ores : ' + IntToStr(Mined), 57) + ']');
  Writeln(PadR('[   Player Loads: ' + IntToStr(Loads), 57) + ']');
  Writeln(PadR('[ Total Mined   : ' + IntToStr(TMined), 57) + ']');
  Writeln(PadR('[ Total Loads   : ' + IntToStr(TLoads), 57) + ']');
  Writeln('[========================================================]');
end;

begin
  ClearDebug;
  ClearReport;
  SetupSRL;
  MouseSpeed := RandomRange(12, 16);
  DeclarePlayers;
  SmartSetupEx(World, False, True, False);
  Wait(5000);
  SetTargetDC(SmartGetDC);
  repeat
    Wait(10);
  until (SmartGetColor(253, 233) <> 1118604);
  Wait(1000 + RandomRange(100, 600));
  LoginPlayer;
  Wait(1000 + RandomRange(100, 600));
  begin
    repeat
      if (not (Players[CurrentPlayer].Booleans[0])) then
        Main
      else
        MainPower;
      TLoads := TLoads + Loads;
      TMined := TMined + Mined;
      if (Loads >= Players[CurrentPlayer].Integers[0]) then
      begin
        Loads := 0;
        if (HowManyPlayers > 1) then
          RandomNextPlayer(True)
        else
        begin
          Writeln('The one player has achieved it''s load goal');
          Writeln('No more players to use, terminating script.');
          TerminateScript;
        end;
      end;
      if ((not (LoggedIn)) and (HowManyPlayers > 1)) then
        NextPlayer(False)
      else
      begin
        Writeln('No more active players available :( MAKE A BIGGER ARMY');
        p_Report;
        TerminateScript;
      end;
      p_Report;
    until (False);
  end;
end.

First of all:
Line 192: [Error] (17055:58): Closing parenthesis expected in script

easy mistake, holding my vote.

Learn Some PHP says:
vote "yes"
http://www.villavu.com/forum/showthread.php?t=46247

no

From: Metagen
Learn Some PHP says:
vote "yes"
http://www.villavu.com/forum/showthread.php?t=46247

no

Sorry

Nickname: Learn Some PHP
Status: Vote "yes" for Simtoon http://www.villavu.com/forum/showthread.php?t=46247
Has you: Yes
Blocked: No

Pretty sure almost everyone viewing this topic is from msn spam

No from me too :(

From: ~~Joker~~
First of all:
Line 192: [Error] (17055:58): Closing parenthesis expected in script

easy mistake, holding my vote.

lol forgot to save the real version have to fix it again.

Oh so this is you lol :o
i see cool cool talked to you just today , heh you better not tell people to vote yes for you lol…
THATS a huge NO NO.
degrades your rep and shows your just wanna get in for scripts :(

From: ~~Joker~~
Oh so this is you lol :o
i see cool cool talked to you just today , heh you better not tell people to vote yes for you lol…
THATS a huge NO NO.
degrades your rep and shows your just wanna get in for scripts :(

How the hell does that say you only want in for script. Most people who apply for members only want in for script, they have no idea what else becoming a SRL means. Your logic is horrible.

Fixed

I remember on an appliance a while back that a user told everyone on MSN and PMs to check his SRL Members Application, and everyone thought it was a mature and responsible thing to do – and he got most yes'.

I vote yes.

Reasons:

• Walking
• Multiplayer
• AutoColour
• Standards
• Attitude
• Knowledge
• Seems to know how to shorten a script instead of bloating it with begins and ends
• No reflection

Good luck ;)

[QUOTE=Dan's The Man;581529]I remember on an appliance a while back that a user told everyone on MSN and PMs to check his SRL Members Application, and everyone thought it was a mature and responsible thing to do – and he got most yes'.


Yes, but I'm betting he said to check his application, not to go vote yes on his application.

Anyway, I'm too tired to think straight at the moment. I'll come to my decision one way or the other sometime tomorrow.

[QUOTE=Dan's The Man;581529]I remember on an appliance a while back that a user told everyone on MSN and PMs to check his SRL Members Application, and everyone thought it was a mature and responsible thing to do – and he got most yes'.


That was me :)

19-0.

Shouldn't you credit some of that simtoon :rolleyes:

Credit wat?

    (*******
       ISN'T NECESSARY TO EDIT BEYOND THIS POINT
                                              *******)
  Writeln('You are using ' + IntToStr(HowManyPlayers) + ' player(s).');

What…?

And I did not want to get in SRL Members for scripts :p.

Who said i want to get into srl members for scripts

From: ~~Joker~~
Oh so this is you lol :o
i see cool cool talked to you just today , heh you better not tell people to vote yes for you lol…
THATS a huge NO NO.
degrades your rep and shows your just wanna get in for scripts :(

Him.

From: Da 0wner

    (*******
       ISN'T NECESSARY TO EDIT BEYOND THIS POINT
                                              *******)
  Writeln('You are using ' + IntToStr(HowManyPlayers) + ' player(s).');

What…?

And I did not want to get in SRL Members for scripts :p.

Im asumeing you added that in right before you uploaded your script cause you thought it would make it look better and didnt realize it was screwing things up :P so i wont vote no for it.
I also didnt see any failsafes in the walking part of your script, not even logging out if the walking didnt work.. which is bad, but im going to vote yes anyway if you promise to always add that in from now on :P I like your script it looks good to me :D

Yay, Yes Sir i might add it tomorrow or something im doing my Student Research Project now 50% OF MY MARKS

From: ~~Joker~~
Oh so this is you lol :o
i see cool cool talked to you just today , heh you better not tell people to vote yes for you lol…
THATS a huge NO NO.
degrades your rep and shows your just wanna get in for scripts :(

Remember the time when i helped you with like 5 maths questions before your test?

Just so people know, the highlight mess up is due to the Scar tags here - fine if you actually paste into Scar.

FindObject - Use InRange for the HSL & XYZ checks as it looks much tidier and is a logical choice for it. Right before that though you do 'ColorToHSL(arC, H, S, L);' and I'm pretty sure you should be using arUC since the loop you're doing is up to the high of arUC, so could cause out of range if duplicate colours are cleared (same for getting the XYZ values). Slightly on the same area, you have global x, y variables, so should be using different X and Y variables locally. Also, the main for loop for it would be much cleared if doing 'if not (InRange( etc)) then continue' for both the HSL and XYZ check as then the indenting can be removed and the begin and end's removed, but this is just my opinion and doesn't really affect anything. Towards the end of the function, you have 'if (i = arL + 1) then' when 'if (not Result) then' makes more sense - you set it to True if it does find it, so should only be true if it succeeded.

BankThisShit - (it's his procedure, don't shoot!) it looks like you have the begin on the wrong line. Also, you don't check the location of the bank - you just make sure you can find it. If at some other points you ensure you're in the bank, then it's fine. If not, you should check the distance from MMCX/Y and x,y to see if you are actually in the bank. Also looks like your last end; is in the wrong place.

OreAutoColour - Fundamental flaw in its operation is that o is not set to var o: TPoint, so it won't store the co-ordinate.

WalkToMine - No failsafes already mentioned. Infinite loop when you look for MiningSite symbol - should add a timeout / loop counter to ensure it doesn't clog up the script.

WalkToVarrock - Use x, y local integer variables again - should change them. Also looks like missing begin and end; for your 'if FindSymbol() then'. For your last 'if(RRW) then', you don't have anything to do, just an else so you may want to change it to 'if (not RRW) then' and remove the else, thus having the Writeln as the next step. Failsafes would be nice here as well. Also, don't see the need for the exit as the last command of the function - seems unneeded.

DropOresSafe - I would suggest using MouseBox with the move option to hover over the item rather than having your peculiar values for it, but just a suggestion. The Continue in the else clause of the UpText check is unneeded as it's the end of the loop. Same with later else clause. The whole thing itself could be shortened to just one loop - have a temp variable and just do 'if (SPos < 1) then t := 1 else t := SPos; for i := SPos to 28 do' and there you have halved the size of the function while maintaining functionality and making it easier to update.

OreMine - l is never set a value before hand, so 'l - GetSystemTime' will always be smaller than 4000 + blah, so that makes the inside of the if then clause never run. The procedure as a whole is just the same code repeated three times (though the first section differs slightly), twice while trying to get use the data assigned to Strings[0] and once with Strings[1]. Instead of the mass of code, you could just have:

  if (not (OreAutoColour(Players[CurrentPlayer].Strings[0], OFTP) > -1)) then
    if (not (OreAutoColour(Players[CurrentPlayer].Strings[1], OFTP) > -1)) then
      if (not (OreAutoColour(Players[CurrentPlayer].Strings[0], OFTP) > -1)) then
      begin
        Writeln('Failed to get an ore colour using ''OreAutoColour'', exiting');
        exit; // Probably would want to do NextPlayer(false) or something like that now
      end;

Then having your whole OC := GetColour(); etc after that as you can trust you have a colour and a position. This still wouldn't make it work though, as OreAutoColour would need to be fixed first. It's also set as a function, but you don't set Result anyway so this would need to be fixed.

Main - I just have to say WAT. If you can't mine, you tell it to try and walk all the way to the mine from Varrock again, which is just bound to get it lost. If it never runs into a mine, it will still just keep trying to walk. Seriously needs something else other than InvFull to ensure it's not gonna keep wandering forever. You also try to bank before walking to Varrock.

As a whole, you never ensure the player is logged in before doing stuff, which can cause many problems. You also seem to have not tested it as I don't think it would manage to mine anything at all with OreAutoColour not working correctly, which in turns stops your mining procedure working (or at least should screw with it). No from me.

Yes from me.

Don't know. Holding vote.

yes from me. I like you, the script is pretty good (although i see a bit of resemblance from aca or something in there ;)), and your incredibly active. Good luck

Thanks :P

Don't hate! Simtoon is cool.

BTW. There's like no scripts in SRL Mems

yeh heaps of people tell me but why do people this im getting in for scripts?

seem to be a nice guy around the forums and on irc and msn and what nots. An active person, I say yes from me.

Yes.

Should applied earlier tho >;D

updated the script

qui de moi.

From: WT-Fakawi
qui de moi.

¿Qué?

Is this Dutch? Translate :P

Is this 100% your writing? If you used ACA or some other peoples functions/procedures, which and where?

I hold my vote until i hear from you.

Also a yes from me now ;) script looks good.

From: marpis
Is this 100% your writing? If you used ACA or some other peoples functions/procedures, which and where?

I hold my vote until i hear from you.

ACA for the FindObject because the OreAutoColour (one of my functions) wasn't working correctly
:)

Yes from me. I luff you (he has a great attitude!). :P

You certainly don't have a perfect script, but the mistakes are small.
It is a good start and you seem willing to make changes.

Like I said over IRC, a big part of applying is learning as you go along.

Yes.
-Bam Bam

o0o0o someone loves me :)

bump.

~RM

Gone until September ?

Looks sweet, and also i noticed you are from the Faggot region in NSW which is xD?

Yes from me.

Harry had a pic of Australia once with the states and asked me which part and NSW was Faggot Region :)

Im between Parramatta and Central.

Somethings in your script I would have done different, such as used Inc/IncEx for your sums. However I do feel you deserve Members so I am pushing yes!

<3's Yous

In! gj!

Thank You WT-Fakawi

Congratz. :D

congrats simtoon

T~M