SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
I'll give the credit to Sumilion =D

Programming Knowledge
Scar is my first and only Language atm.

Other Communitys
Sythe.org

How Long have You Played Runescape
4 Years, at least..

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

Well, I am pretty young for a scripter at 13 years old but I try my best to avoid some childish things that you might expect from someone of that age. I have been playing runescape for a very long time with a couple friends of mine. When they stopped, I continued playing on and off. Once I got rich and had nothing better to do, a started surfing Google for cheating forums. After about 3 weeks of leeching Keyloggers and Trojans I found Sythe, where I learned about Scar. I give most of the credit to my starting of scripting to Who Cares357. I made my first script directly from his guide. From there I starting using SRL Procedures and I starting making decent scripts. I have not been part of this community very long but hopefully this application is still enough.

The Script below is untested though I am sure that it works how it is sopposed to. If it doesn't, I posted an older version in the Free Scripts Forum.

(Off Topic) When I preview this page, one of the questions is "What is the meaning to life?", is that sarcasm?

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

{Fill in setup, and then go =D

 !~Start the script logged out~!
 !~You must have your axe in the first inventory slot~!
 !~Make sure you are in the Most Southern Bank Booth~!
 !~If you have any questions contact me at [email]Shadow.Doctor@hotmail.com[/email]~!}


Program EdgeVilleYewCutter;

{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
{.include SRL\SRL\extended\xAntiBan.scar}

var
Trips:integer;
Entz:integer;
cx:integer;
cy:integer;
i:integer;
Tripz:integer;
NewAxe:integer;
Reach:integer;
Doors:integer;
Axes:integer;

///////////////////////////////////////////////////////////////////////////
////////////////////////////////SETUP BOX//////////////////////////////////
/////////////////////Only Touch Things Inside This Box/////////////////////
const                                                                    //
Wield = 1; //1 if you can/will be wielding you axe, 2 if not             //
TotalTrips = 4; // # of trips for each player                            //
ExtraAxe = 3; // How many extra axes do you have?                        //
WantOpenDoor = False; // Do You Want To Open Door If Its Closed?         //
TwoTrees = True; // Switch Between The Two Trees?                        //
Ms = 20; // Mouse Speed? (It Is Still Random)                            //
TooLong = 60; // Longest That You Want To Have The Script Run (Minutes)  //
                                                                         //
Procedure DeclarePlayers;                                                //
begin                                                                    //
     HowManyPlayers  :=1;               // Number of Players.            //
     NumberOfPlayers(HowManyPlayers);   // Leave                         //
     CurrentPlayer:=0;        // Leave                                   //
                                                                         //
     Players[0].Name :='YourUserName'; // Your Username                  //
     Players[0].Pass :='YourPassword'; // Your RS Password               //
     Players[0].Nick :='sern'; // First 3 lowercase letters of your name //
     Players[0].Loc  :='Bank'; //Leave                                   //
     Players[0].Skill:='Attack'; //Leave                                 //
     Players[0].Active:=True; //Leave                                    //
                                                                         //
     Players[1].Name :='';                                               //
     Players[1].Pass :='';                                               //
     Players[1].Nick :='';                                               //
     Players[1].Loc  :='Location';                                       //
     Players[1].Skill:='';                                               //
     Players[1].Active:=False;                                           //
                                                                         //
     Players[2].Name :='';                                               //
     Players[2].Pass :='';                                               //
     Players[2].Nick :='';                                               //
     Players[2].Loc  :='Location';                                       //
     Players[2].Skill:='';                                               //
     Players[2].Active:=False;                                           //
                                                                         //
     Players[3].Name :='';                                               //
     Players[3].Pass :='';                                               //
     Players[3].Nick :='';                                               //
     Players[3].Loc  :='Location';                                       //
     Players[3].Skill:='';                                               //
     Players[3].Active:=False;                                           //
                                                                         //
     Players[4].Name :='';                                               //
     Players[4].Pass :='';                                               //
     Players[4].Nick :='';                                               //
     Players[4].Loc  :='Location';                                       //
     Players[4].Skill:='';                                               //
     Players[4].Active:=False;                                           //
                                                                         //
     Players[5].Name :='';                                               //
     Players[5].Pass :='';                                               //
     Players[5].Nick :='';                                               //
     Players[5].Loc  :='Location';                                       //
     Players[5].Skill:='';                                               //
     Players[5].Active:=False;                                           //                                                                                                                                                                                                                           //
                                                                         //
                                                                         //
     writeln(inttostr(HowManyPlayers)+' Players');                       //
///////////////////////////////////////////////////////////////////////////
end;

//-----------------------------------------------------------------------//

Procedure Setup; // Logs In, Sets Up Player, Gets Axe Color, Equips Axe
begin
 ClearDebug;
 SetupSrl;
 DisguiseScar('Runescape - the massive online adventure game by Jagex Ltd');
 DeclarePlayers;
 ActivateClient;
 If(not(LoggedIn)) Then
 begin
  WriteLN('Player Not Logged In, Logging In')
  LoginPlayer
 end
 HighestAngle;
 MakeCompass('n');
 GameTab(4);
 FindAxeHeadColor;
 If(true) Then
 begin
  If(Wield=1) Then
  begin
   MouseItem(1,true)
  End Else
  begin
   Wait(1000+Random(500))
  end
 end Else
 begin
  Logout
 end
end;

//-----------------------------------------------------------------------//

Procedure Signiture; // My Signiture
Begin
 WriteLN('Thank You For Using ')
 WriteLN('TTTTTTTTTTTTTTTTTTTT')
 WriteLN('TTTTTTTTTTTTTTTTTTTT')
 WriteLN('TTTTTTTTTTTTTTTTTTTT')
 WriteLN('     TTTTTTTTTT     ')
 WriteLN('     TTTTTTTTTT     ')
 WriteLN('     TTTTTTTTTT     ')
 WriteLN('     TTTTTTTTTT     ')
 WriteLN('     TTTTTTTTTT     ')
 WriteLN('     TTTTTTTTTT     ')
 WriteLN('     Yew Cutter     ')
end;

//-----------------------------------------------------------------------//

Procedure ProgressReport; // Progress Report..
Begin
 WriteLN('<============== Progress Report ===============>');
 WriteLN('Finished Chopping');
 WriteLN('Chopped '+IntToStr(Trips)+' Loads');
 WriteLN('Worked For '+TimeRunning);
 WriteLN('Encountered '+IntToStr(Entz)+' Ents');
 WriteLN('Retrieved '+IntToStr(NewAxe)+' New Axes');
 If(WantOpenDoor=True) Then
 begin
  WriteLN('Opened '+IntToStr(Doors)+' Doors')
 end Else
 begin
  WriteLN('Opening Doors Is Set As False')
 end
 WriteLN('Currently At The '+Players[CurrentPlayer].Loc);
 WriteLN('<============== Progress Report ===============>');
end;

//-----------------------------------------------------------------------//

Function DoorClosed: Boolean;
begin
 If(WantOpenDoor=True) Then
 begin
  InChat('reach that')
  If(True) Then
  begin
   Result:=true;
   WriteLN('Door Is Closed')
  end Else
  begin
   Result:=false
   Wait(50)
  end
 end Else
 begin
  Wait(100+Random(200))
 end
end;

//-----------------------------------------------------------------------//

Function OpenDoor: Boolean; // My Open Door Procedure
begin
 If(FindSymbol(x,y,'Dungeon')) Then
 begin
  Mouse(x,y,1,1,true)
  Flag
  ClickMSColor(2240608,false)
  ChooseOption(x,y,'Open')
  Mouse(x,y,1,1,true)
  Doors:=Doors+1
  If(FindSymbol(x,y, 'rare trees')) Then
  begin
   Mouse(x,y,1,1,true)
   GameTab(4)
   Flag
  end Else
  begin
   WriteLN('Cant Find Tree Symbol')
   Logout
  end
 end Else
 begin
  WriteLN('Door Closed But Cant Find Dungeon On MiniMap')
  Logout
  Result:=false
 end
end;

//-----------------------------------------------------------------------//

Procedure WalkTrees; // Clicks On Rare Tree Symbol
begin
 FindSymbol(x,y, 'rare trees');
 If(true) Then
 begin
  SetRun(true)
  Mouse(x,y,1,1,true)
  GameTab(4)
  Flag
  If(FindMSColor(x,y,3438704))or
  (FindMSColor(x,y,3887184))or
  (FindMSColor(x,y,1925200)) Then
  begin
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
   Wait(500+Random(200))
   If(WantOpenDoor=True) Then
   begin
    DoorClosed
    If(True) Then
    begin
     OpenDoor
    end
   end
   Players[CurrentPlayer].Loc:='North Tree'
   Flag
  end Else
  begin
   FindMSColor(x,y,3365486)
   If(true) Then
   begin
    ClickMSColor(1197648,true)
    Wait(500+Random(200))
    If(WantOpenDoor=True) Then
    begin
     DoorClosed
     If(True) Then
     begin
      OpenDoor
     end
    end
    Players[CurrentPlayer].Loc:='North Tree'
    Flag
   end
  end
 end Else
 begin
  Logout
  WriteLN('Tree Symbol Not Found')
 end
end;

//-----------------------------------------------------------------------//

Function SwitchTrees: Boolean;
begin
 If(FindMsColor(x,y,2180697)) Then
 begin
  WriteLN('Tree Is Cut Down, Switching Trees')
  MakeCompass('e')
  If(Players[CurrentPlayer].Loc= 'North Tree') Then
  begin
   FindMsColor(x,y,403516)
   If(true) Then
   begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    MakeCompass('n')
    Players[CurrentPlayer].Loc:='South Tree'
    Result:= True
    Wait(3000+Random(500))
   end Else
   begin
    FindMsColor(x,y,928314)
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    MakeCompass('n')
    Wait(3000+Random(500))
    FindMsColor(x,y,403516)
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    Players[CurrentPlayer].Loc:='South Tree'
    Result:= True
    Wait(2000+Random(500))
   end
  end Else
  begin
   If(Players[CurrentPlayer].Loc= 'South Tree') Then
   begin
    FindMsColor(x,y,938358)
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    MakeCompass('n')
    Players[CurrentPlayer].Loc:= 'North Tree'
    Result:= True
    Wait(3000+Random(500))
   end
  end
 end
end;

//-----------------------------------------------------------------------//

Procedure WalkBank; // Finds Bank Symbol And Runs To It
begin
 If(Players[CurrentPlayer].Loc= 'North Tree') Then
 begin
  FindSymbol(x,y,'bank');
  If(true) Then
  begin
   SetRun(false)
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
   Players[CurrentPlayer].Loc:= 'Bank'
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
  end Else
  begin
   Logout;
   WriteLN('Cannot Find Bank Symbol')
  end
  FindSymbol(x,y,'bank');
  If(true) Then
  begin
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
   Players[CurrentPlayer].Loc:= 'Bank'
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
  end Else
  begin
   Logout
   WriteLN('Cannot Find Bank Symbol')
  end
 end
 If(Players[CurrentPlayer].Loc= 'South Tree') Then
 begin
  MakeCompass('e')
  FindMsColor(x,y,938358)
  MMouse(x,y,1,1)
  Mouse(x,y,1,1,true)
  MakeCompass('n')
  Wait(1000+Random(500))
  If(FindMSColor(x,y,3438704))or
  (FindMSColor(x,y,3887184))or
  (FindMSColor(x,y,1925200)) Then
  begin
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
  end
  FindMSColor(x,y,3365486)
  If(true) Then
  begin
   ClickMSColor(1197648,true)
  end
  FindSymbol(x,y,'bank');
  If(true) Then
  begin
   SetRun(false)
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
   Players[CurrentPlayer].Loc:= 'Bank'
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
  end Else
  begin
   Logout;
   WriteLN('Cannot Find Bank Symbol')
  end
  FindSymbol(x,y,'bank');
  If(true) Then
  begin
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
   Players[CurrentPlayer].Loc:= 'Bank'
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
  end Else
  begin
   Logout
   WriteLN('Cannot Find Bank Symbol')
  end
 end
end;

//-----------------------------------------------------------------------//

Procedure BankLogs; // Uses Colors To Open The Bank
begin
 Wait(15000+Random(5000));
 FindMSColor(x,y,4999248);
 If(IsUpText('pen')) Then
 begin
  ClickMSColor(4999248,false)
  OpenBank3
  BankScreen
  If(true) Then
  begin
   Wait(500+Random(500))
  end
  If(not(IsUpText('pen'))) Then
  begin
   FindSymbol(x,y,'bank')
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
   Flag
   FindMSColor(x,y,4999248)
   If(IsUpText('pen')) Then
   begin
    ClickMSColor(4999248,false)
    OpenBank3
    BankScreen
    If(not(BankScreen)) Then
    begin
     WriteLN('Lost Near Bank')
    end
   end
  end
  If(Wield=1) then
  begin
   DepositAll
  end
  If(Wield=2) then
  begin
   Deposit(2,28,2)
  end
  CloseBank;
 end Else
 begin
  FindMSColor(x,y,607580);
  If(true) Then
  begin
   ClickMSColor(607580,false)
   OpenBank3;
   BankScreen;
   If(true) Then
   begin
    Wait(500+Random(500))
   end Else
   begin
    OpenBank
    Wait(500+Random(300))
   end
   If(Wield=1) then
   begin
    DepositAll
   end
   If(Wield=2) then
   begin
    Deposit(2,28,2)
   end
   CloseBank;
  end Else
  begin
   Logout
   WriteLN('Could Not Open Bank Correctly')
  end
 end
end;

//-----------------------------------------------------------------------//

Function GetNewAxe: Boolean;
begin
 WriteLN('Do We Have A Broken Axe?');
 HighestAngle;
 MakeCompass('n');
 GameTab(5);
 TakeOffName('Broken Axe');
 If(true) then
 begin
  Result:=true
  WriteLN('Yes, We Do Have A Broken Axe, Getting New One')
  GameTab(4)
  FindSymbol(x,y,'bank')
  If(true) Then
  begin
   SetRun(false)
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
  end Else
  begin
   FindSymbol(x,y, 'rare trees')
   If(true) Then
   begin
    SetRun(false)
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    Wait(5000+Random(2000))
    RunWhere('North',true)
    FindSymbol(x,y,'bank')
    If(true) Then
    begin
     MMouse(x,y,1,1)
     Mouse(x,y,1,1,true)
    end Else
    begin
     Logout;
     WriteLN('Cannot Find Bank Symbol')
    end
   end
  end
  FindSymbol(x,y,'bank');
  If(true) Then
  begin
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
  end Else
  begin
   Logout;
   WriteLN('Cannot Find Bank Symbol')
  end
  Flag
  FindMSColor(x,y,4999248);
  If(true) Then
  begin
   ClickMSColor(4999248,false)
   OpenBank3;
   BankScreen;
   If(true) Then
   begin
    Wait(500+Random(500))
   end Else
   begin
    OpenBank
    Wait(500+Random(300))
   end
   ClickItemName('Broken Axe',true)
   If(Axes > 0) Then
   begin
    Withdraw(1,1,1)
    Axes:=ExtraAxe
    Axes:= Axes-1
    CloseBank;
    I:=InventoryCount
    DragItem(I,1)
    FindAxeHeadColor;
    If(Wield=1) Then
    begin
     MouseItem(1,true)
    End Else
    begin
     Wait(1000+Random(500))
    end
   end Else
   begin
    Logout
    WriteLN('Out Of Axes')
   end
   FindSymbol(x,y, 'rare trees');
   If(true) Then
   begin
    SetRun(true)
    Mouse(x,y,1,1,true)
    GameTab(4)
    Flag
   end Else
   begin
    Logout
    WriteLN('Tree Symbol Not Found')
   end
  end Else
  begin
   Logout
   WriteLN('Trouble Opening Bank')
  end
 end Else
 begin
  WriteLN('Axe Is Not Broken, Other Problems')
  Result:=false
 end
end;

//-----------------------------------------------------------------------//

Function GetNewAxeNotBroken: Boolean;
begin
 TakeOff(5);
 GameTab(4);
 WriteLN('Getting New Axe');
 FindSymbol(x,y,'bank');
 If(true) Then
 begin
  SetRun(false)
  MMouse(x,y,1,1)
  Mouse(x,y,1,1,true)
 end Else
 begin
  FindSymbol(x,y, 'rare trees')
  If(true) Then
  begin
   SetRun(false)
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
   Wait(5000+Random(2000))
   RunWhere('North',true)
   FindSymbol(x,y,'bank')
   If(true) Then
   begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
   end Else
   begin
    Logout
    WriteLN('Cannot Find Bank Symbol')
   end
  end
 end
 FindSymbol(x,y,'bank')
 If(true) Then
 begin
  MMouse(x,y,1,1)
  Mouse(x,y,1,1,true)
 end Else
 begin
  Logout
  WriteLN('Cannot Find Bank Symbol')
 end
 Flag;
 FindMSColor(x,y,4999248);
 If(true) Then
 begin
  ClickMSColor(4999248,false)
  OpenBank3
  BankScreen
  If(true) Then
  begin
   Wait(500+Random(500))
  end Else
  begin
   OpenBank
   Wait(500+Random(300))
  end
  I:=InventoryCount
  MouseItem(I,true)
  If(Axes > 0) Then
  begin
   Withdraw(1,1,1)
   Axes:= ExtraAxe
   Axes:= Axes-1
   CloseBank
   DragItem(I,1)
   FindAxeHeadColor
   If(Wield=1) Then
   begin
    MouseItem(1,true)
   End Else
   begin
    Wait(1000+Random(500))
   end
  end Else
  begin
   Logout
   WriteLN('Out Of Axes')
  end
  FindSymbol(x,y, 'rare trees');
  If(true) Then
  begin
   SetRun(true)
   Mouse(x,y,1,1,true)
   GameTab(4)
   Flag
  end Else
  begin
   Logout
   WriteLN('Tree Symbol Not Found')
  end
 end Else
 begin
  Logout
  WriteLN('Trouble Opening Bank')
 end
end;

//-----------------------------------------------------------------------//

function FindAxeHead: Boolean; // SRL's Procedure But Edited A Bit
var
  c, AxeHeadDTM, Tries, x, y: Integer;
  hStart: Boolean;
begin
  AxeHeadDTM := DTMFromString('78DA63CC62626078C180021C2312191E02694' +
    '620FE0F048C694035CF18D000231209A473816A9E12A1E6150135' +
    'A94035AF09A801B9F9090135994498930C54F392809A3CCCF0415' +
    '70300FB8311DF');
  GameTab(4);
  Result := True;

  c := CreateBitmapMaskFromText('You do not have an axe', SmallChars);
  if (FindBitmapMaskTolerance(c, x, y, 17, 410, 495, 452, 10, 85)) then
  begin
    if ((EquipAxe = False) and
      not (GetColor(590, 220) = Head) or
      not (GetColor(587, 219) = Head2) or
      not (GetColor(588, 218) = Head3)) then
      hStart := True;
    if (EquipAxe) then
    begin
      GameTab(5);
      Wait(200 + Random(200));
      if not (GetColor(597, 294) = Head) or
        not (GetColor(600, 295) = Head2) or
        not (GetColor(599, 298) = Head3) then
      begin
        hStart := True;
        Mouse(592, 297, 2, 2, True);
        Wait(1000);
      end;
    end;
  end;
  if (hStart = True) then
  begin
    Result := False;
    Tries := 0;
    repeat
      if not LoggedIn then Exit;
      if (FindDTM(AxeHeadDTM, x, y, 550, 200, 745, 465)) then
        Break;
      if not (FindObjMulti('Take', Head, Head2, Head3, 5)) then
      begin
        Tries := Tries + 1;
        WriteLn('Axe head not found. Taken ' + IntToStr(tries) + ' tries');
        Status('Axe Head not found - Rotating Screen');
        KeyDown(VK_LEFT);
        Wait(1000 + Random(1000));
        KeyUp(VK_LEFT);
        Wait(400 + Random(300));
        if not FindObjMulti('Take', Head, Head2, Head3, 5) then
      end;
      if FindObjMulti('Take', Head, Head2, Head3, 5) then
      begin
        Status('Found Axe Head');
        WriteLn('Axe head was found.  Picking it up');
        Wait(450 + Random(400));
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, True);
        Flag;
        Wait(500 + Random(300));
        GameTab(4);
        AttachHead;
      end;
    until (tries > 5) or
      (FindDTM(AxeHeadDTM, x, y, 550, 200, 745, 465))
      if (tries > 5) then Exit;
      if not (tries > 5) then
      if (AttachHead) then
        Result := True;
  end;
  FreeBitmap(c);
  FreeDTM(AxeHeadDTM);
end;

//-----------------------------------------------------------------------//

Function AntiRandomsAntiBan: Boolean; // Great Anti-Randoms, As Well As Anti-Ban
begin
 If (FindColorSpiralTolerance(cx, cy, 515029, MSX1, MSY1, 180, 25, 20))or
 (FindColorSpiralTolerance(cx, cy, 122333, MSX1, MSY1, 123, 15, 10))or
 (FindColorSpiralTolerance(cx, cy, 65535, MSX1, MSY1, 180, 25, 20))then
 begin
  WriteLN('Found Ent, Logging Out')
  Logout
  Wait(30000+Random(2000))
  LoginPlayer
  Entz:=Entz+1
  Result:= True
 end Else
 begin
  Wait(200+Random(100))
 end
 FindFight;
 If(True) Then
 begin
  WriteLN('Found A Fighting Random, Running Away')
  Result:= True
  If(Players[CurrentPlayer].Loc= 'North Tree') Then
  begin
   FindSymbol(x,y,'bank')
   If(true) Then
   begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    Players[CurrentPlayer].Loc:= 'Bank'
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
   end Else
   begin
    WriteLN('Cannot Find Bank Symbol')
   end
   FindSymbol(x,y,'bank')
   If(true) Then
   begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    Players[CurrentPlayer].Loc:= 'Bank'
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
   end Else
   begin
    WriteLN('Cannot Find Bank Symbol')
   end
  end
  If(Players[CurrentPlayer].Loc= 'South Tree') Then
  begin
   MakeCompass('e')
   FindMsColor(x,y,938358)
   MMouse(x,y,1,1)
   Mouse(x,y,1,1,true)
   MakeCompass('n')
   Wait(1000+Random(500))
   If(FindMSColor(x,y,3438704))or
   (FindMSColor(x,y,3887184))or
   (FindMSColor(x,y,1925200)) Then
   begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
   end
   FindMSColor(x,y,3365486)
   If(true) Then
   begin
    ClickMSColor(1197648,true)
   end
   FindSymbol(x,y,'bank');
   If(true) Then
   begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    Players[CurrentPlayer].Loc:= 'Bank'
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
   end Else
   begin
    WriteLN('Cannot Find Bank Symbol')
   end
   FindSymbol(x,y,'bank')
   If(true) Then
   begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    Players[CurrentPlayer].Loc:= 'Bank'
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
   end Else
   begin
    WriteLN('Cannot Find Bank Symbol')
   end
  end
 end Else
 begin
  Wait(50)
 end
 If (FindColorSpiralTolerance(cx, cy, 515029, MSX1, MSY1, 180, 25, 20))or // Ent Procedure From StarBlaster100's Power Skills
 (FindColorSpiralTolerance(cx, cy, 122333, MSX1, MSY1, 123, 15, 10))or
 (FindColorSpiralTolerance(cx, cy, 65535, MSX1, MSY1, 180, 25, 20))then
 begin
  WriteLN('Found Ent, Logging Out')
  Logout
  Wait(30000+Random(2000))
  LoginPlayer
  Entz:=Entz+1
  Result:= True
 end Else
 begin
  Wait(200+Random(100))
 end
 FindAxeHead;
 If(false) then
 begin
  GetNewAxe;
  NewAxe:=NewAxe+1;
  Result:= True
  If(false) then
  begin
   GetNewAxeNotBroken;
  end
 end Else
 begin
  Result:= True
  Wait(50)
 end
 If (FindColorSpiralTolerance(cx, cy, 515029, MSX1, MSY1, 180, 25, 20))or
 (FindColorSpiralTolerance(cx, cy, 122333, MSX1, MSY1, 123, 15, 10))or
 (FindColorSpiralTolerance(cx, cy, 65535, MSX1, MSY1, 180, 25, 20))then
 begin
  Logout
  Wait(30000+Random(2000))
  LoginPlayer
  Entz:=Entz+1
  Result:= True
 end Else
 begin
  Wait(200+Random(100))
 end
 HoverEvery(2+Random(16),'WoodCutting');
 PickUpMouseEvery(3+Random(18));
 LeaveScreenEvery(3+Random(12));
 SetMouseSpeedEvery(20,Ms,6);
 If(ScriptTime(2) >= TooLong) Then
 begin
  Logout
  ProgressReport
  Signiture
  WriteLN('Running Too Long')
  TerminateScript
 end
end;

//-----------------------------------------------------------------------//

Procedure ChopIt; // Chops Tree Using Colors
begin
 if (FindMSColor(x,y,3438704))or
 (FindMSColor(x,y,3887184))or
 (FindMSColor(x,y,1925200))then
 begin
  MMouse(x,y,1,1)
  IsUpText('hop')
  If(true) Then
  begin
   Mouse(x,y,1,1,true)
   Flag
   Wait(500+Random(200))
   MMouse(x,y,1,1)
   P:=0
   repeat
    Wait(500+Random(500))
    FindNormalRandoms
    AntiRandomsAntiBan
    p:=p+1
   Until(not(IsUpText('hop')))or(AntiRandomsAntiBan=true)or(InvFull=true)or(p=20+Random(5))
   If(p > 19) Then
   begin
    RandomRClick
    Wait(1000+Random(1000))
    MMouse(x,y,1,1)
   end
   If(InvFull=True) Then Exit
   If(not(IsUpText('hop')))and(TwoTrees=True) Then
   begin
    SwitchTrees
   end
  end Else
  begin
   Wait(50+Random(100))
  end
 end Else
 begin
  Wait(50+Random(100))
 end
end;

//-----------------------------------------------------------------------//
////////////////////////////////Main Loop//////////////////////////////////
begin
 Setup;
 repeat
  repeat
   ProgressReport;
   WalkTrees;
   repeat
    ChopIt;
   until(InvFull)or(LoggedIn=false);
   WalkBank;
   BankLogs;
   trips:=trips+1;
  until (trips = TotalTrips)or(LoggedIn=false);
  If (trips = TotalTrips)or(LoggedIn=false) then
  begin
   Players[CurrentPlayer].Active := false;
   Logout;
   Nextplayer(true);
  end;
 until(false);
 Signiture;
end.

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

If(false) Then
begin
SolveSandwich
end

This is pointless. It will never do solvesandwich. If (true) then will always do something. Either you don't get if statements or you don't get boolean values. Fix this and you get yes from me, as the rest is good.

Edit: Also check out findnormalrandoms, and how other scripts use antirandoms.

You have too many begins and ends in you random fidnings.

 If(True) Then

Isnt needed

ALl randoms can basically be handled by
FindNormalRanoms;
You don need that huge procedure

Overall the code seems fine, but lots of useless long procedures can be shortened down a lot.
Im gonna check if this coding is original, if it is

then
Begin
If CheckForCopiedCode = False; 
then
begin
 Vote:=Yes;
end else;
voteno;
end.

Ok, all the code seems pretty original to me, and credit is given when necessary.
Im still skeptical about a 7 poster making this but it seems fine to me.
YES

And people, please don't be retarded correct this "coding"

yoho says
CheckForCopiedCode:= false;

I will vote yes once you fix the randoms and the if (true) then stuff

Ill say yes :) Looks good enough to me.

Yes from me! But if I was you I would change something in script… But nice script!

Wow, I didn't realise how much of a critique of my script this was. Thanks for all of your input.

– I took off all of that wasted space in the Anti-Randoms. I didn't realize how much trouble that would have saved me. Thanks alot, and keep voting ; ).

From: Boreas
This is pointless. It will never do solvesandwich. If (true) then will always do something. Either you don't get if statements or you don't get boolean values. Fix this and you get yes from me, as the rest is good.

I just read through the FindNormalRandoms as well as FindTalk and SolveTalkingRandoms. I didn't realise that would have done nothing since it would have already been taken care of and also because I didn't realise when it would be "false" but now that I read over it I understand it more. Thanks alot.

– And this is my script =D

WOW! this obviously took some time and I wouldn't expect this from someone with 8 posts(nothing against you :p) Definatly a yes from me. You obviously know your srl/ scripting.

Well, thanks again. It is a good thing that you did not notice there was a HUGE bug for the short time between me last edit and this one. I did not declare that "p" was 0 before each loop. That would have made it make a random movement every half second, gg.

:p ok now voted no… jking :p still it was gj

In.