SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
no

Were you Referred to SRL?
kuibo


What is your general programming knowledge?
java


Are you a member of any other communities?
kuobo


Tell us about yourself…

From: kuibo
i am a human

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

program tree;
// Includes...
{$i srl/srl/misc/smart.simba}
{$loadlib sps}
{$i srl/srl.simba}
{$i sps/sps.simba}
 {$i SRL/SRL/skill/fighting.simba}

Var
foodDTM,T, W,Breaks: Integer;
    Uptexts: TStringArray;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Set the number of players you are using
  NumberOfPlayers(HowManyPlayers); // Don't touch
  CurrentPlayer := 0; // This is the player to start with; the first player will always be 0

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True; // Set to true if you want to use Player 0
  Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
  Players[0].WorldInfo := [True, 114];   // Either [Members, WorldNo] or for random world [Members, -1, PVP]
  Players[0].BoxRewards := ['Pure ess', 'Coal', 'Uncut', 'oins'];
  Players[0].Integers[1] := 20000000;//# of loads to do.
  Players[0].Integers[2] := 30000000; // Time before breaking ( In minutes)
end;

procedure SetupLogin;
begin
  ClearDebug;
  // Setting up SMART;
  Smart_Server := 22;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  ActivateClient;
  LoginPlayer; //  Logging in...
end;
procedure SetDTM;
begin
foodDTM := DTMFromString('mWAAAAHicY2FgYIhnYWAIBOIEIM4EYhFGBgYpIFYGYl4gXuAvxrApQpJhd4wUGIsA9SBjRjQMAgBoBgbO');
end;
procedure FreDTM;
begin
FreeDTM(foodDTM);
end;

function ffff: Boolean;
begin
 if(LoggedIn)then
 begin
    Result := False;
         if not SPS_PosOnMM(Point(3712, 3135))then
          begin
          Gametab(Tab_Inv);
           Gametab(Tab_Inv);
        Mouse(579, 225, 0, 0,true);
        Mouse(579, 225, 0, 0,true);
        wait(6000 + random(2000));
        end else
      while  SPS_PosOnMM(Point(3712, 3135))do
        begin
            Result := true;
            exit;
        end;
         end;
          end;
procedure WalkTobb;
var
ToBb: TPointArray;
begin
  if (LoggedIn) then
  begin
    if not FindNormalRandoms then
    begin
SPS_Setup(RUNESCAPE_SURFACE, ['9_7','8_7','8_8']);
      ClickNorth(SRL_ANGLE_HIGH);
      Writeln('Walking to bank...');
      ToBb  :=  [Point(3712, 3135), Point(3671, 3130), Point(3642, 3146), Point(3621, 3179)];
      if SPS_WalkPath(ToBb) then
        Writeln('At the Bank..');
      while(IsMoving) do
        Wait(Random(200));
      end else
        Writeln('found Random!');
    end;
end;
function Bank: Boolean;
var
x,y,p, t: Integer;

begin
  if (LoggedIn) then
  Result:= false;
  t := 0; //Tries starts at zero
        begin
          CloseBank;
          ffff;
         WalkToBb;
        SPS_WalkToPos(Point(3624, 3185));
       repeat
        Inc(t);
      Writeln('Trying to open the bank: ' + IntToStr(t) + ' out of 10');
      OpenBankNPC;
      Wait(Random(2000));
    until BankScreen or (t > 9)or not (LoggedIn);

    if BankScreen then
    begin
      Writeln('Opened the bank...');
      Deposit(2, 28, true);
       wait(1000 + random(1000));
       repeat
       Inc(t);
      withdrawex(0, 0, 25, [' ']);
        wait(1000 + random(1000));
        until  FindDTM(foodDTM,x, y, MIX1,MIY1,MIX2,MIY2) or not (LoggedIn)or (t > 5);
        end;
         CloseBank;
      end;
      begin
        Exit;
      end;
    end;
Function HpCheck(): boolean;
var
  x, y:Integer;
begin
    if (LoggedIn) then
    begin
  if not(FindColorTolerance(x, y, 65280, 718, 18, 744, 43,10)) and LoggedIn  then
  begin
    while not(FindColorTolerance(x, y, 65280, 718, 18, 744, 43,10)) do
    begin
        if FindDTM(foodDTM,x, y, MIX1,MIY1,MIX2,MIY2) then
        begin
            Mouse(x, y, 0, 0, true);
            Mouse(x, y, 0, 0, true);
            wait(500 + random(1000));
        end else
        begin
            Result := true;
            exit;
        end;
      end;
  end;
  if not(FindDTM(foodDTM,x, y, MIX1,MIY1,MIX2,MIY2)) then
  begin
    Result := true;
    exit;
  end;
  if InvFull and LoggedIn then
    begin
      if FindDTM(foodDTM,x, y, MIX1,MIY1,MIX2,MIY2) then
      begin
          Mouse(x, y, 0, 0, true);
          Mouse(x, y, 0, 0, true);
          wait(500 + random(1000));
      end;
    end;
  Result := false;
end;
end;
function sos: Boolean;
var
x, y: integer;
begin
 if(LoggedIn)then
 begin
   HpCheck;
    while (FindColorTolerance(x, y, 2070783, 718, 18, 744, 43,10)) do
          begin
        Bank;
    begin
      repeat
        if FindDTM(foodDTM,x, y, MIX1,MIY1,MIX2,MIY2) then
        begin
            Mouse(x, y, 0, 0, true);
            Mouse(x, y, 0, 0, true);
            wait(500 + random(1000));
            end;
       until (FindColorTolerance(x, y, 65280, 718, 18, 744, 43,10));
        end;
         begin
 CloseBank;
LogOut;
wait(2000 + random(1000));
 end;
         end;
 begin
Exit;
end;
end;
end;

function Randoms: Boolean;
begin
if FindNormalRandoms then
begin
if Gametab(Tab_Inv) then
ffff;
CloseBank;
LogOut;
end;
sos;
end;
procedure BreakTime;
var
s, i: Integer;
begin
  if (s = 0) then
    s :=  Players[CurrentPlayer].Integers[2] * 60000; //+ RandomRange(300000, 600000);
  if T = 1 then
  begin
    W:= GetTimeRunning;
    if (W > s) then
    begin
      Logout;
      i:= RandomRange(10, 15);
      Writeln('Taking a break for ' + IntToStr(i) + ' minutes');
      i:= i * 60000;
      Wait(i);
      T := 0;
      s:= W + s;
      Inc(Breaks);
      LoginPlayer;
    end;
  end else
  if T = 0 then
  begin
    T := T + 1;
  end;
end;

procedure AntiBan;
begin
  if(not(LoggedIn))then
  Exit;
  Randoms;
   begin
  case Random(100) of
    10: BoredHuman;
    20: HoverSkill('strength', False);
    30: HoverSkill('attack', False);
    40: PickUpMouse;
    50: RandomRClick;
    60: RandomMovement;
    70: SleepAndMoveMouse(200 + Random(50));
    80: ExamineInv;
    90: ClickNorth(SRL_ANGLE_HIGH);
  end;
   begin
   Gametab(Tab_Inv);
     MakeCompass('N');
    Randoms;
   end;
  end;
end;


procedure RestUp;
begin
  if not (LoggedIn) then
    Exit;
  begin
    SetRest;
    while not RunEnergy(90) do
    begin
      Antiban;
      Wait(RandomRange(500, 700));
    end;
  end;
end;

procedure WalkToBank;
var
ToBank: TPointArray;
begin
  if not (LoggedIn) then
    Exit;
  begin
    if not Randoms then
    begin
   if not RunEnergy(40) then
        RestUp;
SPS_Setup(RUNESCAPE_SURFACE, ['9_7','8_7','8_8']);
      ClickNorth(SRL_ANGLE_HIGH);
      Writeln('Walking to bank...');
      ToBank  :=  [Point(3712, 3135), Point(3671, 3130), Point(3642, 3146), Point(3621, 3179)];
      if SPS_WalkPath(ToBank) then
        Writeln('At the Bank..');
      while(IsMoving) do
        Wait(Random(200));
      end else
        Writeln('found Random!');
    end;
end;
function Banking: Boolean;
var
x,y,p, t: Integer;

begin
  if not (LoggedIn) then
   Exit;
  Result:= false;
  t := 0; //Tries starts at zero
        begin
          CloseBank;
          ffff;
         WalkToBank;
       SPS_WalkToPos(Point(3624, 3185));
       repeat
        Inc(t);
      Writeln('Trying to open the bank: ' + IntToStr(t) + ' out of 10');
    OpenBankNPC;
      Wait(Random(2000));
    until BankScreen or (t > 9)or not (LoggedIn);

    if BankScreen then
    begin
      Writeln('Opened the bank...');
      Deposit(2, 28, true);
       wait(1000 + random(1000));
      withdrawex(0, 0, 20, [' ']);
        wait(2000 + random(1000));
        end;
         CloseBank;
      end;
      begin
        Exit;
      end;
    end;
procedure WalkToa;
var
Toa: TPointArray;
begin
  if not (LoggedIn) then
   Exit;
  begin
    if not Randoms then
    begin
          while(IsMoving) do
        Wait(Random(2000));
      if not RunEnergy(40) then
        RestUp;

      SPS_Setup(RUNESCAPE_SURFACE, ['9_7','8_7','8_8']);
      ClickNorth(SRL_ANGLE_HIGH);
      Writeln('Walking to a...');
      Toa  :=  [Point(3726, 3138), Point(3696, 3136), Point(3653, 3128), Point(3635, 3151), Point(3596, 3169), Point(3598, 3199), Point(3585, 3234)];
      if SPS_WalkPath(Toa) then
      Writeln('At the a..');
          while(IsMoving) do
        Wait(Random(2000));
      end else
        Writeln('found Random!');
    end;
end;
procedure WalkTotree;
var
Totree: TPointArray;
begin
  if not (LoggedIn) then
    Exit;
  begin
    if not Randoms then
    begin
      if not RunEnergy(40) then
        RestUp;
      SPS_Setup(RUNESCAPE_SURFACE, ['8_7','8_8']);
      ClickNorth(SRL_ANGLE_HIGH);
      Writeln('Walking to tree...');
      Totree  :=  [Point(3575, 3235), Point(3565, 3180), Point(3522, 3159), Point(3483, 3134), Point(3442, 3113), Point(3403, 3095), Point(3372, 3067)];
      if SPS_WalkPath(Totree) then
      Writeln('At the tree..');
          while(IsMoving) do
        Wait(Random(200));
      end else
        Writeln('found Random!');
    end;
end;
procedure WalkTot;
var
Tot: TPointArray;
begin
  if not (LoggedIn) then
   Exit;
  begin
    if not Randoms then
    begin
      if not RunEnergy(40) then
        RestUp;
      SPS_Setup(runecrafting_altars, ['0_0']);
      ClickNorth(SRL_ANGLE_HIGH);
      Writeln('Walking to t...');
      Tot  := [Point(357, 322), Point(365, 318), Point(375, 315), Point(381, 312)];
      if SPS_WalkPath(Tot) then
      Writeln('At the t..');
          while(IsMoving) do
        Wait(Random(200));
      end else
        Writeln('found Random!');
    end;
end;

procedure Chopb;
var x, y: integer;
begin
  if not (LoggedIn) then
    Exit;
              while(IsMoving) do
        Wait(Random(6000));
        SPS_WalkToPos(Point(3372, 3067));
        MarkTime(T);
     repeat
     Randoms;
   if FindObjEx(X, Y, ['limb', 'own S'], [6513247,7368299], 15, 30, 190, 24, 335, 200)  Then
   if WaitUpText('limb', 600) then
        begin
    Mouse(x, y, 0, 0, false);
    end;
    if (TimeFromMark(T) > 150000) then
       begin
if Gametab(Tab_Inv) then
 ffff;
 CloseBank;
  LogOut;
 end;
    until  ChooseOption('limb')or (not(LoggedIn));
       wait(8000 + random(1000));
    end;

procedure Chopa;
var x, y: integer;
begin
  if not (LoggedIn) then
   Exit;
          while(IsMoving) do
        Wait(Random(6000));
         SPS_WalkToPos(Point(3585, 3234));
         MarkTime(T);
     repeat
       Randoms;
     MakeCompass('w');
   if FindObjEx(X, Y, ['limb', 'ver C'], [3360076], 5, 30, 190, 24, 335, 200)or FindObjEx(X, Y, ['alk'], [3360076], 5, 30, 190, 24, 335, 200)Then
        begin
    Mouse(x, y, 0,10, false);
    end;
      wait(300 + random(500));
          if (TimeFromMark(T) > 150000) then
       begin
if Gametab(Tab_Inv) then
 ffff;
 CloseBank;
  LogOut;
 end;
    until  ChooseOption('limb')or (not(LoggedIn));
    end;

Procedure ReturnValues(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
  Var
    h, s, t: Extended;
    I,II : integer;
    HSLColor : Array[1..3] of Extended;
    HSL : Array[0..1] of Array[1..3] of Extended;
  begin;
    For I:= 1 to 3 do
    begin;
      HSL[0][i] := 255;
    end;

    For I:= 0 to High(Colors) do
    begin;
      ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
      For II:= 1 to 3 do
      begin;
        HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
        HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
      end;
    end;

    H := (HSL[1][1] - HSL[0][1]);
    S := (HSL[1][2] - HSL[0][2]);
    T := (HSL[1][3] - HSL[0][3]);

    try
      HueMods := (H/T);
      SatMods := (S/T);
      Tolerance := Round(t);
    except
      HueMods := 0;
      SatMods := 0;
      Tolerance := Round(0.0);
    end;

    Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
  end;
Function Findbones(Var X,Y: Integer): Boolean;
  var
    B: TBox;
    TPA: TPointArray;
    Hmod,Smod: Extended;
    L,i,Tol,CTS,Col: Integer;
    ATPA: T2DPointArray;
  begin
    Result := False;

    ReturnValues([13948894,14212066,14803435,14606056,15132657,15263987,14344164], Hmod, Smod, Col, Tol);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(Hmod, SMod);
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, Col, MSX1, MSY1, MSX2, MSY2, Tol);
    ColorToleranceSpeed(CTS);
    if (Length(TPA) < 1) then
      Exit;
    ATPA := TPAToATPAEx(TPA, 60, 60);
    SortATPAFrom(ATPA, Point(MSCX,MSCY));
    L := High(ATPA);
    SetArrayLength(ATPA, L+1);
    for i := 0 to L do
    begin
      if (GetArrayLength(ATPA[i]) > 5) then
      begin
        B := GetTPABounds(ATPA[i]);

        MiddleTPAEx(ATPA[i], X, Y);
        MMouse(X, Y, 0, 0);
        if WaitUpTextMulti(['ake', 'Tak'], 600) then
        begin
          Result := True;
          GetMousePos(X, Y);
          Exit;
          writeln('Found bone');
        end else
          Result := False;

      end;
    end;
  end;
 Function hideFinder(Colors: TIntegerArray;TheUpText: TStringArray; midx, midy: integer): Boolean;
var
    m,n,T,i,x,y: Integer;
    TPA: TPointArray;
    ATPA: Array of TPointArray;
begin

begin
Uptexts:= ['ke Run','ke Natur','ranar''my dwarf we','Uncut ru','diamon',
         'lf of a ke','ke aw run','ke aw run', 'ke Deat','ke Bloo','ke Silv',
         'ke Uncut drag','ke Clean','ke Pure ess','ke Big bo', 'ke Coal',
         'talism', 'ke Raw ','nyx bolt','une arro','Air or', 'Fire or',
         'Runite or','Adamant ba','Rune ba','Yew see', 'Magic see','Palm tree s',
         'Torstol se','Snapdragon se','Yew log', 'Dragon dag', 'Saradomin bre',
         'Vecna s','onhide', 'ake Dra'];
         end;
           Begin
    MarkTime(T);
    Repeat
      SetArrayLength(ATPA, Length(Colors));
      for i := 0 to High(Colors) do
        FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 20);
      TPA := MergeATPA(ATPA);
      ATPA := TPAtoATPAEx(TPA, 5, 2);
      SortATPAFrom(ATPA, Point(MSCX, MSCY));
      if (Length(ATPA) = 0) then
        Exit;

      MiddleTPAEx(ATPA[0], x, y);

      if (TimeFromMark(T) > 5000) then
        Exit;

      MMouse(x, y, 3, 3);
      Wait(randomrange(10,15));
          if not WaitUpTextMulti([' scale'],50) then
      begin
      if WaitUpTextMulti(['ake','Take'],50) then
      begin
        ClickMouse2(False);
       WaitOptionMulti(Uptexts, 600);
          Wait(RandomRange(1000, 2000));
           end;
             end;
                      while IsMoving do
            begin
              Wait(1000);
            end;
                    if InvFull then
  begin
    Wait(250);
    if FindDTM(foodDTM,m, n, MIX1,MIY1,MIX2,MIY2) then
    begin
        Mouse(m, n, 0, 0, true);
        Mouse(m, n, 0, 0, true);
        wait(500)
    end else exit;
  end;
    Until(Result)
  end;
    end;
Function Pickuphide:Boolean;
Var
  m, n,X, Y: Integer;
Begin
begin
  if not (LoggedIn) then
   exit;
  Randoms;
    if InvFull then
  begin
    Wait(250);
    if FindDTM(foodDTM,m, n, MIX1,MIY1,MIX2,MIY2) then
    begin
        Mouse(m, n, 0, 0, true);
        Mouse(m, n, 0, 0, true);
        wait(500)
    end else exit;
  end;
   If hideFinder([7934736,16598563,15166790,15035717,14382914], ['ake'], MSCX, MSCY) then
  Begin
    writeln('You have found the some hides!');
    While IsMoving do
    Wait(50);
    Randoms;
    Wait(RandomRange(500,750));
      end;
    if InvFull then
  begin
    Wait(250);
    if FindDTM(foodDTM,m, n, MIX1,MIY1,MIX2,MIY2) then
    begin
        Mouse(m, n, 0, 0, true);
        Mouse(m, n, 0, 0, true);
        wait(500)
    end else exit;
    end;
    End;
    End;

      Function PickupBones:Boolean;
Var
  x,y,m, n: Integer;
Begin
begin
Uptexts:= ['ke Run','ke Natur','ranar''my dwarf we','Uncut ru','diamon',
         'lf of a ke','ke aw run','ke aw run', 'ke Deat','ke Bloo','ke Silv',
         'ke Uncut drag','ke Clean','ke Pure ess','ke Big bo', 'ke Coal',
         'talism', 'ke Raw ','nyx bolt','une arro','Air or', 'Fire or',
         'Runite or','Adamant ba','Rune ba','Yew see', 'Magic see','Palm tree s',
         'Torstol se','Snapdragon se','Yew log', 'Dragon dag', 'Saradomin bre',
         'Vecna s','onhide', 'ake Dra'];
         end;
  if not (LoggedIn) then
 exit;
  Randoms;
    if InvFull then
  begin
    Wait(250);
    if FindDTM(foodDTM,m, n, MIX1,MIY1,MIX2,MIY2) then
    begin
        Mouse(m, n, 0, 0, true);
        Mouse(m, n, 0, 0, true);
        wait(500)
    end else exit;
  end;
   If Findbones(x,y) then
   Begin
    ClickMouse2(False);
  WaitOptionMulti(Uptexts, 600);
    writeln('You have found the some bones!');
    While IsMoving do
    Wait(RandomRange(500,750));
    Randoms;
    Wait(RandomRange(500,750));
      end;
    if InvFull then
  begin
    Wait(250);
    if FindDTM(foodDTM,m, n, MIX1,MIY1,MIX2,MIY2) then
    begin
        Mouse(m, n, 0, 0, true);
        Mouse(m, n, 0, 0, true);
        wait(500)
    end else exit;
    end;
    End;



Function TalkingToMages: Boolean;

Var
   TPAA: T2DPointArray; // The Variables of the Functions
   TPA: TPointArray;
   x, y,CTS, I, Retry: Integer;
Begin
 if not InFight then
    Begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 8090166, MSX1, MSY1, MSX2, MSY2, 25) // Enter the Color and Tolerance Here at the Right place.
  ColorToleranceSpeed(CTS);
  TPAA := TPAToATPAEx(TPA, 400, 50); //Put the Width and Heigh here
  SortATPASize(TPAA, True);
  For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 50 Then // Set How Much Points you need for your function to take Action
    Begin
      inc(Retry);
      MiddleTPAEx(TPAA[i], x, y);
      MMouse(X, Y, 3, 3);
      Begin
        Result := True;
        GetMousePos(X, Y);
      Mouse(x, y, 0, 0, false);
    ChooseOption('ack Blu');
    Writeln('We have found our dragon1, Yeh!');
        Break;
      End;
      Break;
      end;
      end;
       end;
Function TalkingToM: Boolean;

Var
   TPAA: T2DPointArray; // The Variables of the Functions
   TPA: TPointArray;
   x, y,CTS, I, Retry: Integer;
Begin
 if not InFight then
    Begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 8940364, MSX1, MSY1, MSX2, MSY2, 25) // Enter the Color and Tolerance Here at the Right place.
  ColorToleranceSpeed(CTS);
  TPAA := TPAToATPAEx(TPA, 400, 50); //Put the Width and Heigh here
  SortATPASize(TPAA, True);
  For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 50 Then // Set How Much Points you need for your function to take Action
    Begin
      inc(Retry);
      MiddleTPAEx(TPAA[i], x, y);
      MMouse(X, Y, 3, 3);
      Begin
        Result := True;
        GetMousePos(X, Y);
          Mouse(x, y, 0, 0, false);
    ChooseOption('ack Blu');
    Writeln('We have found our dragon2, Yeh!');
        Break;
      End;
      Break;
      end;
      end;
      end;
procedure ChopTree;
var x, y: integer;
begin
  if not (LoggedIn) then
  exit;
    Randoms;
    begin
    MarkTime(T);
   repeat
        begin
    Mouse(290, 150, 0, 0,true);
    end;
      wait(500 + random(1000));
      Randoms;
          if (TimeFromMark(T) > 150000) then
       begin
if Gametab(Tab_Inv) then
 ffff;
 CloseBank;
  LogOut;
 end;
      until FindObjEx(X, Y, [' '], [2171426], 5, 30, 245, 25, 255, 35) or (not(LoggedIn));
end;
end;
procedure Choptt;
var x, y: integer;
begin
  if not (LoggedIn) then
  exit;
  MarkTime(T);
    repeat
     Randoms;
 Mouse(660, 50, 0, 0,true);
  wait(2000 + random(1000));
 Mouse(660, 50, 0, 0,true);
  wait(2000 + random(1000));
  Mouse(660, 50, 0, 0,true);
   wait(2000 + random(1000));
   Mouse(660, 50, 0, 0,true);
       if (TimeFromMark(T) > 150000) then
       begin
if Gametab(Tab_Inv) then
 ffff;
 CloseBank;
  LogOut;
 end;
  until FindObj(x, y, 'sterious', 8620680, 20)or (not(LoggedIn));
end;
procedure Chop1;
var x, y: integer;
begin
  if not (LoggedIn) then
 exit;
          while(IsMoving) do
        Wait(Random(1000));
        MarkTime(T);
         repeat
            Randoms;
   if FindObj(x, y, 'sterious', 8620680, 20)  Then
   if (IsUpTextMultiCustom(['terio'])) then
        begin
    Mouse(x, y, 20, 0, false);
     wait(300 + random(500));
    end;
        if (TimeFromMark(T) > 200000) then
       begin
if Gametab(Tab_Inv) then
 ffff;
 CloseBank;
  LogOut;
 end;
    until  ChooseOption('ter Myst')or (not(LoggedIn));
    end;
procedure Chop2;
begin
  if not (LoggedIn) then
  exit;
    Randoms;
        wait(6000 + random(2000));
        Mouse(630, 140, 0, 0,true);
        wait(7000 + random(2000));
        Mouse(600, 140, 0, 0,true);
                   while IsMoving do
            begin
              Wait(1000);
          end;
             end;


procedure ChopTr;
var
  x,y,num,t,t1:integer;
begin
  MarkTime(t);
  MarkTime(t1);
  num :=1;
  repeat
  if not (LoggedIn) then
  exit;
   Randoms;


   TalkingToM;
   TalkingToMages;
   if InFight then
        begin
           AntiBan;
            wait(2000 + random(1000));
            begin
                if HpCheck() then
                begin
                Pickuphide;
        PickupBones;
                  exit;
                end;
                end;
                    MarkTime(t);
               num :=1;
                  end;
                 Pickuphide;
        PickupBones;

        if(TimeFromMark(t1)>25*60000)then  exit;
        if(TimeFromMark(t)>60000)then
        begin
          if FindColorTolerance(X, Y, 1179647, MMX1, MMY1, MMX2, MMY2, 30) then
          begin
             Mouse(x, y, 0, 0,true);
             MarkTime(t);
          end;
        end;
        if num = 1 then
        if not(Pickuphide or PickupBones) then  num := 2;
  until (not FindDTM(foodDTM,x, y, MIX1,MIY1,MIX2,MIY2))or not(LoggedIn);
    Pickuphide;
        PickupBones;
end;

procedure aa;
begin
  if not (LoggedIn) then
  exit;

    Randoms;
     begin
       WalkToa;
             while(IsMoving) do
         wait(3000 + random(1000));
          WalkToa;
           while(IsMoving) do
         wait(3000 + random(1000));
if SPS_WalkToPos(Point(3585, 3234))then
     begin
     Chopa;
     end;
     WalkTotree;
            while(IsMoving) do
         wait(3000 + random(1000));
         WalkTotree;
          while(IsMoving) do
         wait(3000 + random(1000));
  if SPS_WalkToPos(Point(3372, 3067))then
     begin
     Chopb;
      end;
       end;
end;
procedure MainLoop;
begin
  SetupLogin;
  SetDTM;
    repeat
    repeat
       Gametab(Tab_Inv);
 Banking;
     aa;
    wait(7000 + random(3000));
   Mouse(290, 32, 0, 0,true);
   wait(4000 + random(500));
   ChopTree;
    Choptt;
    Chop1;
    Chop2;
     ChopTr;
      Wait(Random(200));
    until not (LoggedIn);
  SetupLogin;
 until False;
writeLn('Freeing DTMs');
FreDTM;
end;


begin
MainLoop;
end.

I don't have a chance to look through it now, I'll look through it in a bit. However, SRL member is more then a scripting rank, its also a community rank. My advice is get to know the community, get active on the forums, learn some more, work on your standards, and then maybe apply again. However, for this application, good luck!

Footy

E: Also, please tell us a bit about yourself, other then the obvious. :)

This is literally your first post, and your script is pretty weird considering that you are using pre-navbar stuff and your standards are all over the place. I'm giving you a definite no.

Nice to see another daring applicant apply towards SRL members. :)

To start off, the first thing I notice in your application (before reaching the script portion) is that you have played RS for a while now, are human, and have java experience (not to mention the 1st post is an application to SRL members and join date is last month).

So this information leads me to think that you are new here and may have some potential for scripting (again without subjecting script to review yet). I also am personally lead to believe that you haven't yet engaged in the community (which indeed helps users learn the methods to use in Simba - I've seem even the most talented users have a portion of an include overlooked and pointed out by another villavu member) or in my assumptions, reviewed the entirety of Simba functions/procedures/includes/etc. (portion of statement used with data from script overview). This evidence I've for myself gather's a strong opionion that you've probably yet to get to know villavu and may not be ready for SRL members.

However!, with review of the script (perhaps my shaking and confusing words may be proven wrong) ensures a full review/vote/personal opinion.

With review of the script submitted, I conclude that you have some strengths (I'm sure a java background may be acknowledge for such strengths) as well as some weaknesses. I will compile a personal list for which I think these pro's/con's entail - leaving less elaborated, the pro's (points/subjects) because I think you probably understand them enough to use them effectively & elaborating on the con's (to potentially help you learn [better] alternatives). I bare no bias, so bare with me :)

Pro's

• Your declare players is nice, also nice to see you understand the WorldInfo record.
• Some loops have failsafes / time outs.
• A couple of Function's use ATPA's which shows high hopes
• Back up proc/func (general good idea to incorporate)
• Antiban is always a nice addition, especially in with recent events

Con's

• Script's purpose / intention – I honestly don't know what/where/etc. this script is supposed to do? I say this because I see the program name as tree; however I see eating functions and looting functions and chopping functions? Perhaps it is some sort of multiple script integration?
• unnecessary begin .. end's, you don't need to enclose code that will execute without begin .. end's, with random begin .. ends. For example, I think unneeded use of would be in the function Bank; – this function is going to end at the very end, so there's no need to encapsulate a begin exit; end; – or even an exit for that matter as the function is going to finish at that point anyways. You could look in the same function too and see that after t = 0; – we don't need to use a begin after it, as this serves no purpose here because the next chunk of code will execute no matter what.
• Code comments – this plays back into the scripts purpose/use, as usually I can somewhat deduce what func/proc does what.. However I can't tell what colors are being searched for in functions such as sos; //Code comments may help out you and me
• FindObj isn't any compliment to the script presented. In my view, it's thought that a member applicant can create script specific object finding methods to better enhance their script.
• The Choptt proc, I've no idea what it does, or why the user would move the mouse statically for 150seconds.. O.O (again related back to code comments / script intentions).
• Random event were removed from the game, so I don't think the excessive calls for Randoms; is needed anymore - perhaps inventory squeal spins or more specific checks would suffice.
• Main loop - I see a double repeat loop, but the outer loop goes until false? perhaps this could be allplayersinactive?
• procedure aa; – might better the script to use checks other than static waits as IsMoving only checks for movement not area identifiers.
• Your includes / setup settings (smart) may need some updating. Try out the new version of Simba + Smart :)
• Standards! upon first paste to Simba, it was difficult to read/follow some code. I'd suggest testing out the extension paster.sex (in Simba, view -> extensions -> click once on paster.sex). Then open the drop down in simba tools and format script. This is a good guideline for simba script format.

Also, crediting ideas/snippets/inspirations for chunks of code can't hurt. When it comes down to final decisions pertaining to acceptance, I think that you should definitely hang around the forums and interact more. In my opinion, I do indeed like potential over attitude, but I can't create a definite picture of your potential without at least some background other than being human :p. Who knows, maybe when you dive into the community more, you'll shine like a Ben in the Land of wealthy knowledge ^_^

Hence, my vote for this application is a (leaning heavily on, yet still undecided because I do see some nifty functions but for some reason can't place them if I've seen them before or not) no :( but I hope this doesn't discourage you from applying in the future. I wish to see you around here again, that I do.

Cheers,
Lj

Some code is extremely similar to these:

http://villavu.com/forum/showthread.php?t=43913

procedure SleepTime;
begin
  if not(TimeFromMark(Lala) >= Players[CurrentPlayer].Integers[1] * (60000))
    or not Players[CurrentPlayer].Booleans[1] = True then EXIT;
  Writeln('Sleeping For Anti-BAN');
  Logout;
  MarkTime(LaLa);
  wait((Players[CurrentPlayer].Integers[2] * 60000) + random(60000));
  LoginPlayer;
  Writeln('Just Took A break for: ' + IntToStr(Players[CurrentPlayer].Integers[2] * 60000));
  inc(TimesSlepted);
end;

http://villavu.com/forum/showthread.php?t=69217&page=33

Procedure ReturnValues(colors: TIntegerArray; Var HueMods, SatMods: Extended; Var color, Tolerance: Integer);
Var
  H,S,T: Extended;
  I,II: integer;
  HSLColor: Array[1..3] Of Extended;
  HSL: Array[0..1] Of Array[1..3] Of Extended;
begin;
  For I:= 1 to 3 do
  begin;
    HSL[0][i] := 255;
  end;

  For I:= 0 to High(Colors) do
  begin;
    ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
    For II:= 1 to 3 do
    begin;
      HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
      HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
    end;
  end;

  H := (HSL[1][1] - HSL[0][1]);
  S := (HSL[1][2] - HSL[0][2]);
  T := (HSL[1][3] - HSL[0][3]);

  Try
    HueMods := (H/T);
    SatMods := (S/T);
    Tolerance := Round(T);
  Except
    HueMods := 0;
    SatMods := 0;
    Tolerance := Round(0.0);
  End;

  Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
End;

Then here you have a pointless writeln because it will exit

if WaitUpTextMulti(['ake', 'Tak'], 600) then
        begin
          Result := True;
          GetMousePos(X, Y);
          Exit;
          writeln('Found bone');
        end else
          Result := False;

In your code:

SPS_Setup(runecrafting_altars, ['0_0']);

You did not give us the map.

Everything together it looks like you merged a lot of functions and procedures together. Messed up standards probably by copying and this doesn't even compile.

Formatted script

program tree;
{$i srl/srl/misc/smart.simba}
{$loadlib sps}
{$i srl/srl.simba}
{$i sps/sps.simba}
{$i SRL/SRL/skill/fighting.simba}

var
  foodDTM, T, W, Breaks: Integer;
  Uptexts: TStringArray;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Active := True;
  Players[0].Pin := '';
  Players[0].WorldInfo := [True, 114];
  Players[0].BoxRewards := ['Pure ess', 'Coal', 'Uncut', 'oins'];
  Players[0].Integers[1] := 20000000;
  Players[0].Integers[2] := 30000000;
end;

procedure SetupLogin;
begin
  ClearDebug;
  Smart_Server := 22;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  ActivateClient;
  LoginPlayer;
end;

procedure SetDTM;
begin
  foodDTM := DTMFromString('mWAAAAHicY2FgYIhnYWAIBOIEIM4EYhFGBgYpIFYGYl4gXuAvxrApQpJhd4wUGIsA9SBjRjQMAgBoBgbO');
end;

procedure FreDTM;
begin
  FreeDTM(foodDTM);
end;

function ffff: Boolean;
begin
  if (LoggedIn) then
  begin
    Result := False;
    if not SPS_PosOnMM(Point(3712, 3135)) then
    begin
      Gametab(Tab_Inv);
      Gametab(Tab_Inv);
      Mouse(579, 225, 0, 0, true);
      Mouse(579, 225, 0, 0, true);
      wait(6000 + random(2000));
    end
    else
      while SPS_PosOnMM(Point(3712, 3135)) do
      begin
        Result := true;
        exit;
      end;
  end;
end;

procedure WalkTobb;
var
  ToBb: TPointArray;
begin
  if (LoggedIn) then
  begin
    if not FindNormalRandoms then
    begin
      SPS_Setup(RUNESCAPE_SURFACE, ['9_7', '8_7', '8_8']);
      ClickNorth(SRL_ANGLE_HIGH);
      Writeln('Walking to bank...');
      ToBb := [Point(3712, 3135), Point(3671, 3130), Point(3642, 3146), Point(3621, 3179)];
      if SPS_WalkPath(ToBb) then
        Writeln('At the Bank..');
      while (IsMoving) do
        Wait(Random(200));
    end
    else
      Writeln('found Random!');
  end;
end;

function Bank: Boolean;
var
  x, y, p, t: Integer;
begin
  if (LoggedIn) then
    Result := false;
  t := 0;
  begin
    CloseBank;
    ffff;
    WalkToBb;
    SPS_WalkToPos(Point(3624, 3185));
    repeat
      Inc(t);
      Writeln('Trying to open the bank: ' + IntToStr(t) + ' out of 10');
      OpenBankNPC;
      Wait(Random(2000));
    until BankScreen or (t > 9) or not (LoggedIn);
    if BankScreen then
    begin
      Writeln('Opened the bank...');
      Deposit(2, 28, true);
      wait(1000 + random(1000));
      repeat
        Inc(t);
        withdrawex(0, 0, 25, [' ']);
        wait(1000 + random(1000));
      until FindDTM(foodDTM, x, y, MIX1, MIY1, MIX2, MIY2) or not (LoggedIn) or (t > 5);
    end;
    CloseBank;
  end;
  begin
    Exit;
  end;
end;

function HpCheck(): boolean;
var
  x, y: Integer;
begin
  if (LoggedIn) then
  begin
    if not (FindColorTolerance(x, y, 65280, 718, 18, 744, 43, 10)) and LoggedIn then
    begin
      while not (FindColorTolerance(x, y, 65280, 718, 18, 744, 43, 10)) do
      begin
        if FindDTM(foodDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Mouse(x, y, 0, 0, true);
          Mouse(x, y, 0, 0, true);
          wait(500 + random(1000));
        end
        else
        begin
          Result := true;
          exit;
        end;
      end;
    end;
    if not (FindDTM(foodDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
    begin
      Result := true;
      exit;
    end;
    if InvFull and LoggedIn then
    begin
      if FindDTM(foodDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
        Mouse(x, y, 0, 0, true);
        Mouse(x, y, 0, 0, true);
        wait(500 + random(1000));
      end;
    end;
    Result := false;
  end;
end;

function sos: Boolean;
var
  x, y: integer;
begin
  if (LoggedIn) then
  begin
    HpCheck;
    while (FindColorTolerance(x, y, 2070783, 718, 18, 744, 43, 10)) do
    begin
      Bank;
      begin
        repeat
          if FindDTM(foodDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
          begin
            Mouse(x, y, 0, 0, true);
            Mouse(x, y, 0, 0, true);
            wait(500 + random(1000));
          end;
        until (FindColorTolerance(x, y, 65280, 718, 18, 744, 43, 10));
      end;
      begin
        CloseBank;
        LogOut;
        wait(2000 + random(1000));
      end;
    end;
    begin
      Exit;
    end;
  end;
end;

function Randoms: Boolean;
begin
  if FindNormalRandoms then
  begin
    if Gametab(Tab_Inv) then
      ffff;
    CloseBank;
    LogOut;
  end;
  sos;
end;

procedure BreakTime;
var
  s, i: Integer;
begin
  if (s = 0) then
    s := Players[CurrentPlayer].Integers[2] * 60000;
  if T = 1 then
  begin
    W := GetTimeRunning;
    if (W > s) then
    begin
      Logout;
      i := RandomRange(10, 15);
      Writeln('Taking a break for ' + IntToStr(i) + ' minutes');
      i := i * 60000;
      Wait(i);
      T := 0;
      s := W + s;
      Inc(Breaks);
      LoginPlayer;
    end;
  end
  else if T = 0 then
  begin
    T := T + 1;
  end;
end;

procedure AntiBan;
begin
  if (not (LoggedIn)) then
    Exit;
  Randoms;
  begin
    case Random(100) of
      10: BoredHuman;
      20: HoverSkill('strength', False);
      30: HoverSkill('attack', False);
      40: PickUpMouse;
      50: RandomRClick;
      60: RandomMovement;
      70: SleepAndMoveMouse(200 + Random(50));
      80: ExamineInv;
      90: ClickNorth(SRL_ANGLE_HIGH);
    end;
    begin
      Gametab(Tab_Inv);
      MakeCompass('N');
      Randoms;
    end;
  end;
end;

procedure RestUp;
begin
  if not (LoggedIn) then
    Exit;
  begin
    SetRest;
    while not RunEnergy(90) do
    begin
      Antiban;
      Wait(RandomRange(500, 700));
    end;
  end;
end;

procedure WalkToBank;
var
  ToBank: TPointArray;
begin
  if not (LoggedIn) then
    Exit;
  begin
    if not Randoms then
    begin
      if not RunEnergy(40) then
        RestUp;
      SPS_Setup(RUNESCAPE_SURFACE, ['9_7', '8_7', '8_8']);
      ClickNorth(SRL_ANGLE_HIGH);
      Writeln('Walking to bank...');
      ToBank := [Point(3712, 3135), Point(3671, 3130), Point(3642, 3146), Point(3621, 3179)];
      if SPS_WalkPath(ToBank) then
        Writeln('At the Bank..');
      while (IsMoving) do
        Wait(Random(200));
    end
    else
      Writeln('found Random!');
  end;
end;

function Banking: Boolean;
var
  x, y, p, t: Integer;
begin
  if not (LoggedIn) then
    Exit;
  Result := false;
  t := 0;
  begin
    CloseBank;
    ffff;
    WalkToBank;
    SPS_WalkToPos(Point(3624, 3185));
    repeat
      Inc(t);
      Writeln('Trying to open the bank: ' + IntToStr(t) + ' out of 10');
      OpenBankNPC;
      Wait(Random(2000));
    until BankScreen or (t > 9) or not (LoggedIn);
    if BankScreen then
    begin
      Writeln('Opened the bank...');
      Deposit(2, 28, true);
      wait(1000 + random(1000));
      withdrawex(0, 0, 20, [' ']);
      wait(2000 + random(1000));
    end;
    CloseBank;
  end;
  begin
    Exit;
  end;
end;

procedure WalkToa;
var
  Toa: TPointArray;
begin
  if not (LoggedIn) then
    Exit;
  begin
    if not Randoms then
    begin
      while (IsMoving) do
        Wait(Random(2000));
      if not RunEnergy(40) then
        RestUp;
      SPS_Setup(RUNESCAPE_SURFACE, ['9_7', '8_7', '8_8']);
      ClickNorth(SRL_ANGLE_HIGH);
      Writeln('Walking to a...');
      Toa := [Point(3726, 3138), Point(3696, 3136), Point(3653, 3128), Point(3635, 3151), Point(3596, 3169), Point(3598, 3199), Point(3585, 3234)];
      if SPS_WalkPath(Toa) then
        Writeln('At the a..');
      while (IsMoving) do
        Wait(Random(2000));
    end
    else
      Writeln('found Random!');
  end;
end;

procedure WalkTotree;
var
  Totree: TPointArray;
begin
  if not (LoggedIn) then
    Exit;
  begin
    if not Randoms then
    begin
      if not RunEnergy(40) then
        RestUp;
      SPS_Setup(RUNESCAPE_SURFACE, ['8_7', '8_8']);
      ClickNorth(SRL_ANGLE_HIGH);
      Writeln('Walking to tree...');
      Totree := [Point(3575, 3235), Point(3565, 3180), Point(3522, 3159), Point(3483, 3134), Point(3442, 3113), Point(3403, 3095), Point(3372, 3067)];
      if SPS_WalkPath(Totree) then
        Writeln('At the tree..');
      while (IsMoving) do
        Wait(Random(200));
    end
    else
      Writeln('found Random!');
  end;
end;

procedure WalkTot;
var
  Tot: TPointArray;
begin
  if not (LoggedIn) then
    Exit;
  begin
    if not Randoms then
    begin
      if not RunEnergy(40) then
        RestUp;
      SPS_Setup(runecrafting_altars, ['0_0']);
      ClickNorth(SRL_ANGLE_HIGH);
      Writeln('Walking to t...');
      Tot := [Point(357, 322), Point(365, 318), Point(375, 315), Point(381, 312)];
      if SPS_WalkPath(Tot) then
        Writeln('At the t..');
      while (IsMoving) do
        Wait(Random(200));
    end
    else
      Writeln('found Random!');
  end;
end;

procedure Chopb;
var
  x, y: integer;
begin
  if not (LoggedIn) then
    Exit;
  while (IsMoving) do
    Wait(Random(6000));
  SPS_WalkToPos(Point(3372, 3067));
  MarkTime(T);
  repeat
    Randoms;
    if FindObjEx(X, Y, ['limb', 'own S'], [6513247, 7368299], 15, 30, 190, 24, 335, 200) then
      if WaitUpText('limb', 600) then
      begin
        Mouse(x, y, 0, 0, false);
      end;
    if (TimeFromMark(T) > 150000) then
    begin
      if Gametab(Tab_Inv) then
        ffff;
      CloseBank;
      LogOut;
    end;
  until ChooseOption('limb') or (not (LoggedIn));
  wait(8000 + random(1000));
end;

procedure Chopa;
var
  x, y: integer;
begin
  if not (LoggedIn) then
    Exit;
  while (IsMoving) do
    Wait(Random(6000));
  SPS_WalkToPos(Point(3585, 3234));
  MarkTime(T);
  repeat
    Randoms;
    MakeCompass('w');
    if FindObjEx(X, Y, ['limb', 'ver C'], [3360076], 5, 30, 190, 24, 335, 200) or FindObjEx(X, Y, ['alk'], [3360076], 5, 30, 190, 24, 335, 200) then
    begin
      Mouse(x, y, 0, 10, false);
    end;
    wait(300 + random(500));
    if (TimeFromMark(T) > 150000) then
    begin
      if Gametab(Tab_Inv) then
        ffff;
      CloseBank;
      LogOut;
    end;
  until ChooseOption('limb') or (not (LoggedIn));
end;

procedure ReturnValues(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
var
  h, s, t: Extended;
  I, II: integer;
  HSLColor: array [1..3] of Extended;
  HSL: array [0..1] of array [1..3] of Extended;
begin
  for I := 1 to 3 do
  begin
    HSL[0][i] := 255;
  end;
  for I := 0 to High(Colors) do
  begin
    ColortoHSL(Colors[i], HSLColor[1], HSLColor[2], HSLColor[3]);
    for II := 1 to 3 do
    begin
      HSL[0][II] := MinE(HSLColor[II], HSL[0][II]);
      HSL[1][II] := MaxE(HSLColor[II], HSL[1][II]);
    end;
  end;
  H := (HSL[1][1] - HSL[0][1]);
  S := (HSL[1][2] - HSL[0][2]);
  T := (HSL[1][3] - HSL[0][3]);
  try
    HueMods := (H / T);
    SatMods := (S / T);
    Tolerance := Round(t);
  except
    HueMods := 0;
    SatMods := 0;
    Tolerance := Round(0.0);
  end;
  Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2, (HSL[1][2] + HSL[0][2]) div 2, (HSL[1][3] + HSL[0][3]) div 2);
end;

function Findbones(var X, Y: Integer): Boolean;
var
  B: TBox;
  TPA: TPointArray;
  Hmod, Smod: Extended;
  L, i, Tol, CTS, Col: Integer;
  ATPA: T2DPointArray;
begin
  Result := False;
  ReturnValues([13948894, 14212066, 14803435, 14606056, 15132657, 15263987, 14344164], Hmod, Smod, Col, Tol);
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(Hmod, SMod);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, Col, MSX1, MSY1, MSX2, MSY2, Tol);
  ColorToleranceSpeed(CTS);
  if (Length(TPA) < 1) then
    Exit;
  ATPA := TPAToATPAEx(TPA, 60, 60);
  SortATPAFrom(ATPA, Point(MSCX, MSCY));
  L := High(ATPA);
  SetArrayLength(ATPA, L + 1);
  for i := 0 to L do
  begin
    if (GetArrayLength(ATPA[i]) > 5) then
    begin
      B := GetTPABounds(ATPA[i]);
      MiddleTPAEx(ATPA[i], X, Y);
      MMouse(X, Y, 0, 0);
      if WaitUpTextMulti(['ake', 'Tak'], 600) then
      begin
        Result := True;
        GetMousePos(X, Y);
        Exit;
        writeln('Found bone');
      end
      else
        Result := False;
    end;
  end;
end;

function hideFinder(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
var
  m, n, T, i, x, y: Integer;
  TPA: TPointArray;
  ATPA: array of TPointArray;
begin
  begin
    Uptexts := ['ke Run', 'ke Natur', 'ranar' 'my dwarf we', 'Uncut ru', 'diamon', 'lf of a ke', 'ke aw run', 'ke aw run', 'ke Deat', 'ke Bloo', 'ke Silv', 'ke Uncut drag', 'ke Clean', 'ke Pure ess', 'ke Big bo', 'ke Coal', 'talism', 'ke Raw ', 'nyx bolt', 'une arro', 'Air or', 'Fire or', 'Runite or', 'Adamant ba', 'Rune ba', 'Yew see', 'Magic see', 'Palm tree s', 'Torstol se', 'Snapdragon se', 'Yew log', 'Dragon dag', 'Saradomin bre', 'Vecna s', 'onhide', 'ake Dra'];
  end;
  begin
    MarkTime(T);
    repeat
      SetArrayLength(ATPA, Length(Colors));
      for i := 0 to High(Colors) do
        FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 20);
      TPA := MergeATPA(ATPA);
      ATPA := TPAtoATPAEx(TPA, 5, 2);
      SortATPAFrom(ATPA, Point(MSCX, MSCY));
      if (Length(ATPA) = 0) then
        Exit;
      MiddleTPAEx(ATPA[0], x, y);
      if (TimeFromMark(T) > 5000) then
        Exit;
      MMouse(x, y, 3, 3);
      Wait(randomrange(10, 15));
      if not WaitUpTextMulti([' scale'], 50) then
      begin
        if WaitUpTextMulti(['ake', 'Take'], 50) then
        begin
          ClickMouse2(False);
          WaitOptionMulti(Uptexts, 600);
          Wait(RandomRange(1000, 2000));
        end;
      end;
      while IsMoving do
      begin
        Wait(1000);
      end;
      if InvFull then
      begin
        Wait(250);
        if FindDTM(foodDTM, m, n, MIX1, MIY1, MIX2, MIY2) then
        begin
          Mouse(m, n, 0, 0, true);
          Mouse(m, n, 0, 0, true);
          wait(500)
        end
        else
          exit;
      end;
    until (Result)
  end;
end;

function Pickuphide: Boolean;
var
  m, n, X, Y: Integer;
begin
  begin
    if not (LoggedIn) then
      exit;
    Randoms;
    if InvFull then
    begin
      Wait(250);
      if FindDTM(foodDTM, m, n, MIX1, MIY1, MIX2, MIY2) then
      begin
        Mouse(m, n, 0, 0, true);
        Mouse(m, n, 0, 0, true);
        wait(500)
      end
      else
        exit;
    end;
    if hideFinder([7934736, 16598563, 15166790, 15035717, 14382914], ['ake'], MSCX, MSCY) then
    begin
      writeln('You have found the some hides!');
      while IsMoving do
        Wait(50);
      Randoms;
      Wait(RandomRange(500, 750));
    end;
    if InvFull then
    begin
      Wait(250);
      if FindDTM(foodDTM, m, n, MIX1, MIY1, MIX2, MIY2) then
      begin
        Mouse(m, n, 0, 0, true);
        Mouse(m, n, 0, 0, true);
        wait(500)
      end
      else
        exit;
    end;
  end;
end;

function PickupBones: Boolean;
var
  x, y, m, n: Integer;
begin
  begin
    Uptexts := ['ke Run', 'ke Natur', 'ranar' 'my dwarf we', 'Uncut ru', 'diamon', 'lf of a ke', 'ke aw run', 'ke aw run', 'ke Deat', 'ke Bloo', 'ke Silv', 'ke Uncut drag', 'ke Clean', 'ke Pure ess', 'ke Big bo', 'ke Coal', 'talism', 'ke Raw ', 'nyx bolt', 'une arro', 'Air or', 'Fire or', 'Runite or', 'Adamant ba', 'Rune ba', 'Yew see', 'Magic see', 'Palm tree s', 'Torstol se', 'Snapdragon se', 'Yew log', 'Dragon dag', 'Saradomin bre', 'Vecna s', 'onhide', 'ake Dra'];
  end;
  if not (LoggedIn) then
    exit;
  Randoms;
  if InvFull then
  begin
    Wait(250);
    if FindDTM(foodDTM, m, n, MIX1, MIY1, MIX2, MIY2) then
    begin
      Mouse(m, n, 0, 0, true);
      Mouse(m, n, 0, 0, true);
      wait(500)
    end
    else
      exit;
  end;
  if Findbones(x, y) then
  begin
    ClickMouse2(False);
    WaitOptionMulti(Uptexts, 600);
    writeln('You have found the some bones!');
    while IsMoving do
      Wait(RandomRange(500, 750));
    Randoms;
    Wait(RandomRange(500, 750));
  end;
  if InvFull then
  begin
    Wait(250);
    if FindDTM(foodDTM, m, n, MIX1, MIY1, MIX2, MIY2) then
    begin
      Mouse(m, n, 0, 0, true);
      Mouse(m, n, 0, 0, true);
      wait(500)
    end
    else
      exit;
  end;
end;

function TalkingToMages: Boolean;
var
  TPAA: T2DPointArray;
  TPA: TPointArray;
  x, y, CTS, I, Retry: Integer;
begin
  if not InFight then
  begin
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, 8090166, MSX1, MSY1, MSX2, MSY2, 25) ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 400, 50);
    SortATPASize(TPAA, True);
    for I := 0 to High(TPAA) do
      if GetArraylength(TPAA[i]) > 50 then
      begin
        inc(Retry);
        MiddleTPAEx(TPAA[i], x, y);
        MMouse(X, Y, 3, 3);
        begin
          Result := True;
          GetMousePos(X, Y);
          Mouse(x, y, 0, 0, false);
          ChooseOption('ack Blu');
          Writeln('We have found our dragon1, Yeh!');
          Break;
        end;
        Break;
      end;
  end;
end;

function TalkingToM: Boolean;
var
  TPAA: T2DPointArray;
  TPA: TPointArray;
  x, y, CTS, I, Retry: Integer;
begin
  if not InFight then
  begin
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, 8940364, MSX1, MSY1, MSX2, MSY2, 25) ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 400, 50);
    SortATPASize(TPAA, True);
    for I := 0 to High(TPAA) do
      if GetArraylength(TPAA[i]) > 50 then
      begin
        inc(Retry);
        MiddleTPAEx(TPAA[i], x, y);
        MMouse(X, Y, 3, 3);
        begin
          Result := True;
          GetMousePos(X, Y);
          Mouse(x, y, 0, 0, false);
          ChooseOption('ack Blu');
          Writeln('We have found our dragon2, Yeh!');
          Break;
        end;
        Break;
      end;
  end;
end;

procedure ChopTree;
var
  x, y: integer;
begin
  if not (LoggedIn) then
    exit;
  Randoms;
  begin
    MarkTime(T);
    repeat
      begin
        Mouse(290, 150, 0, 0, true);
      end;
      wait(500 + random(1000));
      Randoms;
      if (TimeFromMark(T) > 150000) then
      begin
        if Gametab(Tab_Inv) then
          ffff;
        CloseBank;
        LogOut;
      end;
    until FindObjEx(X, Y, [' '], [2171426], 5, 30, 245, 25, 255, 35) or (not (LoggedIn));
  end;
end;

procedure Choptt;
var
  x, y: integer;
begin
  if not (LoggedIn) then
    exit;
  MarkTime(T);
  repeat
    Randoms;
    Mouse(660, 50, 0, 0, true);
    wait(2000 + random(1000));
    Mouse(660, 50, 0, 0, true);
    wait(2000 + random(1000));
    Mouse(660, 50, 0, 0, true);
    wait(2000 + random(1000));
    Mouse(660, 50, 0, 0, true);
    if (TimeFromMark(T) > 150000) then
    begin
      if Gametab(Tab_Inv) then
        ffff;
      CloseBank;
      LogOut;
    end;
  until FindObj(x, y, 'sterious', 8620680, 20) or (not (LoggedIn));
end;

procedure Chop1;
var
  x, y: integer;
begin
  if not (LoggedIn) then
    exit;
  while (IsMoving) do
    Wait(Random(1000));
  MarkTime(T);
  repeat
    Randoms;
    if FindObj(x, y, 'sterious', 8620680, 20) then
      if (IsUpTextMultiCustom(['terio'])) then
      begin
        Mouse(x, y, 20, 0, false);
        wait(300 + random(500));
      end;
    if (TimeFromMark(T) > 200000) then
    begin
      if Gametab(Tab_Inv) then
        ffff;
      CloseBank;
      LogOut;
    end;
  until ChooseOption('ter Myst') or (not (LoggedIn));
end;

procedure Chop2;
begin
  if not (LoggedIn) then
    exit;
  Randoms;
  wait(6000 + random(2000));
  Mouse(630, 140, 0, 0, true);
  wait(7000 + random(2000));
  Mouse(600, 140, 0, 0, true);
  while IsMoving do
  begin
    Wait(1000);
  end;
end;

procedure ChopTr;
var
  x, y, num, t, t1: integer;
begin
  MarkTime(t);
  MarkTime(t1);
  num := 1;
  repeat
    if not (LoggedIn) then
      exit;
    Randoms;
    TalkingToM;
    TalkingToMages;
    if InFight then
    begin
      AntiBan;
      wait(2000 + random(1000));
      begin
        if HpCheck() then
        begin
          Pickuphide;
          PickupBones;
          exit;
        end;
      end;
      MarkTime(t);
      num := 1;
    end;
    Pickuphide;
    PickupBones;
    if (TimeFromMark(t1) > 25 * 60000) then
      exit;
    if (TimeFromMark(t) > 60000) then
    begin
      if FindColorTolerance(X, Y, 1179647, MMX1, MMY1, MMX2, MMY2, 30) then
      begin
        Mouse(x, y, 0, 0, true);
        MarkTime(t);
      end;
    end;
    if num = 1 then
      if not (Pickuphide or PickupBones) then
        num := 2;
  until (not FindDTM(foodDTM, x, y, MIX1, MIY1, MIX2, MIY2)) or not (LoggedIn);
  Pickuphide;
  PickupBones;
end;

procedure aa;
begin
  if not (LoggedIn) then
    exit;
  Randoms;
  begin
    WalkToa;
    while (IsMoving) do
      wait(3000 + random(1000));
    WalkToa;
    while (IsMoving) do
      wait(3000 + random(1000));
    if SPS_WalkToPos(Point(3585, 3234)) then
    begin
      Chopa;
    end;
    WalkTotree;
    while (IsMoving) do
      wait(3000 + random(1000));
    WalkTotree;
    while (IsMoving) do
      wait(3000 + random(1000));
    if SPS_WalkToPos(Point(3372, 3067)) then
    begin
      Chopb;
    end;
  end;
end;

procedure MainLoop;
begin
  SetupLogin;
  SetDTM;
  repeat
    repeat
      Gametab(Tab_Inv);
      Banking;
      aa;
      wait(7000 + random(3000));
      Mouse(290, 32, 0, 0, true);
      wait(4000 + random(500));
      ChopTree;
      Choptt;
      Chop1;
      Chop2;
      ChopTr;
      Wait(Random(200));
    until not (LoggedIn);
    SetupLogin;
  until False;
  writeLn('Freeing DTMs');
  FreDTM;
end;

begin
  MainLoop;
end.

I have no idea what this script is doing, you have a procedure that picks up bones and one that attacks blue dragons. And then somewhere else you are chopping tree's? :cartman:

I'm voting no.

I kindly ask that you try to write a working script to apply for members. We also value community around here, both on the forums, and in the irc room. I am not voting on an application of this nature, but look forward to seeing your participation on the forums.

The atpa function is copied from this tut http://villavu.com/forum/showthread.php?t=76005

It literally looks like a bunch of separate procedures/functions from several scripts were poorly stitched together. Tons of things are outdated too (eg the old smart_server stuff). No.

Sorry not going to look at script until I see some sort of activity boost.
This is a community rank, and someone who is not active in the lowest sense cannot help the community!

Sorry, next time! Just start posting, help some people out the help forums always need a hand!

Standards are bad, procedures are stolen and your only two posts are both members applications. Guaranteed no. Report the thread, there is nothing more that needs to be said.

Hi kuibo,

It appears you won't be getting in this time. :( You may apply again in one month. :) Please take this time to take in what others have said, to improve yourself and your script, so that you can garner a perfect score the next time you apply! Also, please read the various threads around the SRL Tutorial Island section regarding SRL members and the application process. A neat example is my How to become an SRL Member thread.

Best of luck!