SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys
www.moparisthebest.com

How Long have You Played Runescape
1 year

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

i like to have a challenge, and have lots of fun at the same time, so this is why i have decided to to do some scar coding! I used to play runescape a lot, but don't anymore,
but i still like to auto on it!

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

program XinezPowerChopper;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
{---------------------------------------------------------}
{          __  __  ___   _   _   _____   _____            }
{          \ \/ / |_ _| | \ | | | ____| |__  /            }
{           \  /   | |  |  \| | |  _|     / /             }
{           /  \   | |  | |\  | | |___   / /_             }
{          /_/\_\ |___| |_| \_| |_____| /____|            }
{                                                         }
{---------------------------------------------------------}
{---------------------------------------------------------}
{                    PowerChopper V1.0                    }
{---------------------------------------------------------}
{---------------------------------------------------------}
{                         SETUP                           }
{Start next to the tree you want to PowerChop!            }
{Fill Out Declare Players Below.Then Hit Play!            }
{Happy Autoing!                                           }
{---------------------------------------------------------}

procedure DeclarePlayers;
begin
  Status('Loading Players')

  HowManyPlayers := 6;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; // Runescape username
  Players[0].Pass := ''; // Runescape password
  Players[0].Nick := ''; // 2-4 letters of your Runescape username (No capitals or spaces)
  Players[0].Active := True; //Are you using this player?

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := False;

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Active := False;

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';
  Players[3].Active := False;

  Players[4].Name := '';
  Players[4].Pass := '';
  Players[4].Nick := '';
  Players[4].Active := False;

  Players[5].Name := '';
  Players[5].Pass := '';
  Players[5].Nick := '';
  Players[5].Active := False;

end;

Const
VersionNumber  =    ' v1.00 '; //Don't change This!

var
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Edit2 : TEdit;
  Edit4 : TEdit;
  ComboBox1 : TComboBox;
  Button1 : TButton;
  ComboBox2 : TComboBox;
  Treename : String;
  Treecolor: Integer;
  AmountofLoads : Integer;
  RunDirec : String;
  Loads, LogsCut, Loads2 : Integer;
  Log, BrokenAxe, AxeHandle, RegularAxe: Integer;
  Wc : Integer;

procedure LoadDTMs;
begin

Log := DTMFromString('78DA632C666260E0646440067921460CFF813' +
       '448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
       '22604E23500D0F0135C94035DCF8D50000507909F5');

BrokenAxe := DTMFromString('78DA633CCAC4C090C1C8800C9A127919FE036' +
   '990E87F2060BC0C54938CAA06220B2381F445A09A04026A8E01D5' +
   'C41050B31FA8A698809AB384CD0100CBBD0D20');

AxeHandle := DTMFromString('78DA637CCFC4C0E0C6C8800CCA227819FE036' +
   '990E87F2060FC06546389AA06220B2381F473A09A00026ADE00D5' +
   'F81350F316A8C685809A97403541F8D50000D0090D3C');

RegularAxe := DTMFromString('78DA637461626060676440060DF1BC0CFF813' +
   '448F43F10300601D5FC6740038C482490F604AAF94D408D13500D' +
   '2B237E35F640358204D4F813618E1F50CD1F02EE0906AA61C26F0' +
   'E0099720B7E');

end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure ButtonClick(sender: TObject);
begin
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;

procedure ChangeColor(Sender: TObject);
begin
  LoadSetting('Xinez PowerChopper' + VersionNumber + '', 'Tree Color');
  case ComboBox1.Text of
    'Tree'  : Edit2.Text:=IntToStr(1730648);
    'Willow': Edit2.Text:=IntToStr(1982520);
    'Oak'   : Edit2.Text:=IntToStr(4094064);
    'Yew'   : Edit2.Text:=IntToStr(1990736);
  end;
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 339;
frmDesign.Height := 267;
frmDesign.Caption := 'Xinez PowerChopper' + VersionNumber + 'Setup';
frmDesign.Color := clInactiveCaption;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 17;
Label1.Top := 29;
Label1.Width := 90;
Label1.Height := 17;
Label1.Caption := 'Tree Name';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -16;
Label1.Font.Name := 'Copperplate Gothic Light';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 17;
Label2.Top := 67;
Label2.Width := 102;
Label2.Height := 17;
Label2.Caption := 'Tree Color';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -16;
Label2.Font.Name := 'Copperplate Gothic Light';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 17;
Label3.Top := 138;
Label3.Width := 54;
Label3.Height := 17;
Label3.Caption := 'Loads';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -16;
Label3.Font.Name := 'Copperplate Gothic Light';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 17;
Label4.Top := 102;
Label4.Width := 121;
Label4.Height := 17;
Label4.Caption := 'Run Direction';
Label4.Font.Color := clWindowText;
Label4.Font.Height := -16;
Label4.Font.Name := 'Copperplate Gothic Light';
Label4.Font.Style := [];
Label4.ParentFont := False;
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 157;
Edit2.Top := 65;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.Hint := 'Use the color picker to choose the color for your tree';
Edit2.ParentShowHint := False;
Edit2.ShowHint := True;
Edit2.TabOrder := 8;
Edit2.Text := LoadSetting('Xinez PowerChopper' + VersionNumber + '', 'Tree Color');;
Edit4 := TEdit.Create(frmDesign);
Edit4.Parent := frmDesign;
Edit4.Left := 156;
Edit4.Top := 136;
Edit4.Width := 25;
Edit4.Height := 21;
Edit4.Hint := 'How many loads do you want to do per player';
Edit4.ParentShowHint := False;
Edit4.ShowHint := True;
Edit4.TabOrder := 9;
Edit4.Text := LoadSetting('Xinez PowerChopper' + VersionNumber + '', 'Loads');
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 156;
ComboBox1.Top := 27;
ComboBox1.Width := 145;
ComboBox1.Height := 21;
ComboBox1.Hint := 'Select the type of tree you are cutting';
ComboBox1.ItemHeight := 13;
ComboBox1.ParentShowHint := False;
ComboBox1.ShowHint := True;
ComboBox1.TabOrder := 10;
ComboBox1.Text := LoadSetting('Xinez PowerChopper' + VersionNumber + '', 'Tree Name');
ComboBox1.Items.Add('Tree');
ComboBox1.Items.Add('Oak');
ComboBox1.Items.Add('Willow');
ComboBox1.Items.Add('Yew');
ComboBox1.Onclick:=@ChangeColor;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick := @ButtonClick;
Button1.Left := 126;
Button1.Top := 182;
Button1.Width := 75;
Button1.Height := 25;
Button1.Hint := 'Click to start the script';
Button1.Caption := 'Start';
Button1.ParentShowHint := False;
Button1.ShowHint := True;
Button1.TabOrder := 11;
ComboBox2 := TComboBox.Create(frmDesign);
ComboBox2.Parent := frmDesign;
ComboBox2.Left := 156;
ComboBox2.Top := 100;
ComboBox2.Width := 40;
ComboBox2.Height := 21;
ComboBox2.Hint := 'Run away direction from fights, ents, etc';
ComboBox2.ItemHeight := 13;
ComboBox2.ParentShowHint := False;
ComboBox2.ShowHint := True;
ComboBox2.TabOrder := 12;
ComboBox2.Text := LoadSetting('Xinez PowerChopper' + VersionNumber + '', 'Run Direction');
ComboBox2.Items.Add('N');
ComboBox2.Items.Add('E');
ComboBox2.Items.Add('S');
ComboBox2.Items.Add('W');
end;

procedure FormSetup;
begin
  Treename      := ComboBox1.Text
  Treecolor     := StrToInt(Edit2.Text)
  AmountofLoads := StrToInt(Edit4.Text)
  RunDirec      := ComboBox2.Text
  SaveSetting('Xinez PowerChopper' + VersionNumber + '', 'Tree Name', ComboBox1.Text);
  SaveSetting('Xinez PowerChopper' + VersionNumber + '', 'Tree Color', Edit2.Text);
  SaveSetting('Xinez PowerChopper' + VersionNumber + '', 'Run Direction', ComboBox2.Text);
  SaveSetting('Xinez PowerChopper' + VersionNumber + '', 'Loads', Edit4.Text);
end;

procedure AntiBan;
var
Dban : Integer;

begin
  if (not (LoggedIn)) then
  Exit;
  Dban := 0 + Random(120)
  case Dban of

   0: HoverSkill('Woodcutting', false);

   2: HoverSkill('Attack', false);

   3: begin
        GameTab(5)
        Wait(889 + random(852));
        GameTab(4)
      end;

   4: PickUpMouse;

   5: begin
        case random(5) of
         0: begin
              TypeSend('Woodcutting lvls ppl?')
              Wait(2458 + random(1438));
              TypeSend('Mines' +IntToStr (Wc) + '..');
            end;

         1: TypeSend('Great.. only 200k more exp to go... -.-');

         2: TypeSend('Omg Woodcutting is so boring..');

         3: TypeSend('Boredd..');

         4: TypeSend('Well only 20 more levels to go.. >=[]');

         5: begin
              TypeSend('Cant wait till im lvl 70 wc');
              Wait(2438 + random(1589));
              TypeSend('Cutting yews is so much faster =]');
            end;

         6: TypeSend('These guys are autoers.. Or are they? X[)');

         7: begin
              TypeSend('Well you ppl are lame..');
              Wait(1135 + random(895));
              TypeSend('Jk =P');
            end;

         8: TypeSend('Hmm.. am i bored, or am i bored? =[]');

         9: begin
              TypeSend('Anyone see family guy last night?')
              Wait(1184 + random(854));
              TypeSend('Well i didnt X[) lol');
            end;
        end;
      end;

   7: HoverSkill('Mining', false);

   8: begin
        GameTab(1);
        Wait(300 + random(232))
        GameTab(2);
        Wait(324 + random(182))
        GameTab(3);
        Wait(287 + random(134))
        GameTab(4);
        Wait(270 + random(54))
        GameTab(5);
        Wait(234 + random(130))
        GameTab(6);
        Wait(324 + random(23))
        GameTab(4);
      end;

   9: MMouse(Random(MSX2), Random(MSY2), 0, 0);

   10: HoverSkill('random', false);
  end;
end;

procedure EntFinder;
var
EX, EY: integer;
FX, FY: integer;
SafeEntWait: LongInt;

begin
  Status('Checking For Ent')
  if (FindObjMultiText(EX, EY, Treename, Treename, Treename, Treecolor, 2)) then
  begin
    MMouse(EX, EY, 0, 0)
    if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
    begin
      Status('Ent Found');
      MouseFindFlag(645, 83, 2, 2);
      MarkTime(SafeEntWait)
      repeat
        FTWait(5)
        FindNormalRandoms;
        if not (LoggedIn) then
        NextPlayer(False);
      until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
      EntsAvoided := EntsAvoided + 1
    end;
  end;
end;

function FindFastRandoms: Boolean; //Function by WT-Fakawi
var
i: Integer;
begin
for i := 1 to 9 do
begin
   case I of
     1: if FindDead then
         Result := True;
     2: if FindMod then
         Result := True;
     3: if FindMime then
         Result := True;
     4: if FindMaze then
         Result := True;
     5: if FindQuiz then
         Result := True;
     6: if FindDemon then
         Result := True;
     7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
     8: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
     9: RC;
   end;
   wait(1);
end;
end;

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
  Wait(20)
  FindTalk;
  Wait(20)
  EntFinder;
  if (FindFight) then
   begin
     RunAwayDirection(RunDirec);
     Wait(8000+Random(2000));
     RunBack;
   end;
   Wait(20)
   FindTalk;
end;

procedure AxeHeadColors;
begin
  Wait(300)
  HighestAngle;
  MakeCompass('N');
  GameTab(4)
  FindAxeHeadColor;
end;

procedure IsAxeBroken;
var
FX, FY, TX, TY: Integer;

begin
  GameTab(4)
  Wait(450 + random(130))
  if (FindDTM(RegularAxe, FX, FY, MIX1, MIY1, MIX2, MIY2)) and
     (not(FindDTM(BrokenAxe, TX, TY, MIX1, MIY1, MIX2, MIY2))) then
  begin
    Exit;
  end;
  begin
    if (FindDTM(BrokenAxe, TX, TY, MIX1, MIY1, MIX2, MIY2)) and
       (not(FindDTM(RegularAxe, FX, FY, MIX1, MIY1, MIX2, MIY2))) then
    begin
      Writeln('Axe Broken, Switiching Players.')
      NextPlayer(False)
    end;
  end;
end;

procedure FindAxeHead;
begin
  Status('Attempting to find the Axe Head')
  Findhead;
end;

procedure ChopTree;
var
TimeMarker: Integer;
Tries: Integer;
TreeFound: Boolean;

begin
  if(InvFull)then Exit;
  If(not(LoggedIn))then Exit;
  AxeHeadColors;
  repeat
    IsAxeBroken;
    Wait(89+Random(24));
    EntFinder;
    Wait(48+Random(23));
    if FindObjMultiText(x, y, Treename, Treename, Treename, TreeColor, 8) then
    begin
      Wait(20 + Random(29))
      Mouse(x, y, 2, 2, True);
      Wait(21+Random(23))
      FindRandoms;
      Wait(224+Random(284))
      FindAxeHead;
      Wait(540+Random(22))
      AntiBan;
      Wait(22+Random(27))
      TreeFound := True;
    end;
    if TreeFound then
    begin
      TreeFound := False;
      Tries := 0;
      MarkTime (TimeMarker);
      repeat
        Wait(232+random(100))
        FindRandoms;
        EntFinder;
      until (InvFull) or (TimeFromMark (TimeMarker) > 5000)
    end Else
    begin
      Tries := Tries + 1;
      Writeln('Trying to find tree color')
    end;
  until (InvFull) or (Tries > 5);
  if(Tries > 5)then
  begin
    Writeln('Took too long to find tree! Logging out');
    Logout;
    NextPlayer(false)
  end;
end;

procedure DroppingLogs;

var
bx, by : Integer;

begin
  if (InvFull) then
  GameTab(4);
  repeat
    if (FindDTM(Log, bx, by, MIX1, MIY1, MIX2, MIY2)) then
    begin
      Mouse(bx, by, 4, 4, false)
      ChooseOption(bx, by, 'Drop')
      Wait(450+Random(120))
      LogsCut := LogsCut + 1;
    end;
  until (not (FindDTM(Log, bx, by, MIX1, MIY1, MIX2, MIY2)))
 Loads := Loads + 1;
 Loads2 := Loads2 + 1;
end;

procedure ProgressReport;

begin
ClearDebug;
SRLRandomsReport;

  WriteLn('>--------------------<>--------------------<')
  WriteLn('>  Xinez''s PowerChopper - Progress Report    ')
  WriteLn('>                                           ')
  WriteLn('>  Version: '+VersionNumber+'')
  WriteLn('>  Running Time: ' + (TimeRunning) + '')
  WriteLn('<  Chopped: ' + IntToStr(LogsCut) + ' Logs ')
  Writeln('>  Did: ' + InttoStr(Loads2) + ' Loads ')
  WriteLn('>--------------------<>--------------------<')
end;

procedure Sig;
begin
  ClearDebug;
  writeln('__  __  ___   _   _   _____   _____');
  writeln('\ \/ / |_ _| | \ | | | ____| |__  /');
  writeln(' \  /   | |  |  \| | |  _|     / / ');
  writeln(' /  \   | |  | |\  | | |___   / /_ ');
  writeln('/_/\_\ |___| |_| \_| |_____| /____|');
  writeln(' ____     ___   __        __  _____   ____     ____   _   _    ___    ____    ____    _____   ____');
  writeln('|  _ \   / _ \  \ \      / / | ____| |  _ \   / ___| | | | |  / _ \  |  _ \  |  _ \  | ____| |  _ \');
  writeln('| |_) | | | | |  \ \ /\ / /  |  _|   | |_) | | |     | |_| | | | | | | |_) | | |_) | |  _|   | |_) |');
  writeln('|  __/  | |_| |   \ V  V /   | |___  |  _ <  | |___  |  _  | | |_| | |  __/  |  __/  | |___  |  _ <');
  writeln('|_|      \___/     \_/\_/    |_____| |_| \_\  \____| |_| |_|  \___/  |_|     |_|     |_____| |_| \_\');





end;

procedure Setup;
begin
  SetupSRL;
  DeclarePlayers;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  LoadDTMs;
end;

begin
  Wait(2000)
  Setup;
  Sig;
  SafeInitForm;
  SafeShowFormModal;
  FormSetup;
  ActivateClient;
  begin
    if (not (LoggedIn)) then Loginplayer;
    HighestAngle;
    MakeCompass('N')
    Wc := GetSkillLevel('WoodCutting')
    repeat
      Wait(2000 + Random(1000))
      DisguiseScar('[' + IntToStr(Loads) + '/' +IntToStr(AmountofLoads) + '] ' +(Players[CurrentPlayer].name) + '')
      ChopTree;
      DroppingLogs;
      ProgressReport;
      if (Loads = AmountofLoads) then
      begin
        HighestAngle;
        MakeCompass('N');
        LogOut;
        NextPlayer(True);
        Loads := 0
      end;
    until (false)
  end;
end.

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

If that script really is your work, I might vote yes.

I think nobody is voting because nobody believes its his lol personally i'm suspiscous because of how little time he has been here.

Yes, I am suspisious too.. i'll wait for YoHoJo. I'll hold my vote for now, but it's a yes if you didn't copy, and if you become more active here.

I could of sworn i've seen that script before.

You took parts from other scripts and kinda stitched them together.

FourScapes Power Chopper.
http://www.villavu.com/forum/showthread.php?t=5232


FourScapes :

{ //-------------------------------------------------------------\\
  ||                         INSTRUCTIONS                        ||
  ||-------------------------------------------------------------||
  ||                                                             ||
  ||  1. Declare Players lines 37-61.                            ||
  ||  2. Axe in first INV slot...                                ||
  ||  3. Drag Crosshair into RS window.                          ||
  ||  4. Hit play and fill out forms.                            ||
  ||  5. AXE HEAD FINDER WILL WORK!!!                            ||
  ||-------------------------------------------------------------||
  ||                          INSTRUCTIONS                       ||
  \\-------------------------------------------------------------//
                                                                   }

{.include SRL\SRL.SCAR}
{.include SRL\SRL\Skill\Woodcutting.SCAR}

Var
  LoadNumber : Integer;
  LogDTM, BrokenAxeDTM, AxeHandleDTM, RegularAxeDTM : Integer;
  StartXP, EndXP, TotalXP, TotalLogs : Integer;
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Edit3 : TEdit;
  Button1 : TButton;
  TheTreeName : String;
  AmmountOfLoads       : Integer;
  TreeColor   : Integer;

//->Declare Players<-//
Procedure DeclarePlayers;
begin
  Status('Loading Players')

  HowManyPlayers  := 5;
  NumberOfPlayers( HowManyPlayers );
  CurrentPlayer := 0;

     Players[0].Name      := 'Username';
     Players[0].Pass      := 'Password';
     Players[0].Nick      := 'Nickname'; // 2-4 letters of username
     Players[0].Active    := True;

     Players[1].Name      := 'Username';
     Players[1].Pass      := 'Password';
     Players[1].Nick      := 'Nickname'; // 2-4 letters of username
     Players[1].Active    := True;

     Players[2].Name      := 'Username';
     Players[2].Pass      := 'Password';
     Players[2].Nick      := 'Nickname'; // 2-4 letters of username
     Players[2].Active    := True;

     Players[3].Name      := 'Username';
     Players[3].Pass      := 'Password';
     Players[3].Nick      := 'Nickname'; // 2-4 letters of username
     Players[3].Active    := True;
end;


procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

Procedure InitForm;
Begin
Status('Form Is Up')
frmDesign := CreateForm;
frmDesign.Left := 306;
frmDesign.Top := 367;
frmDesign.Width := 428;
frmDesign.Height := 207;
frmDesign.Caption := 'Setup';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 3;
Label1.Top := 20;
Label1.Width := 258;
Label1.Height := 20;
Label1.Caption := 'Loads For Player Before Logging Off';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -17;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 3;
Label2.Top := 50;
Label2.Width := 78;
Label2.Height := 20;
Label2.Caption := 'Tree Name';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -17;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 3;
Label3.Top := 80;
Label3.Width := 73;
Label3.Height := 20;
Label3.Caption := 'Tree Color';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -17;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 269;
Edit1.Top := 20;
Edit1.Width := 24;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit1.Text := '3';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 87;
Edit2.Top := 50;
Edit2.Width := 58;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Edit2.Text := 'Oak';
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 87;
Edit3.Top := 79;
Edit3.Width := 69;
Edit3.Height := 21;
Edit3.TabOrder := 10;
Edit3.Text := '876624';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 172;
Button1.Top := 133;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'OK GO';
Button1.ModalResult := 1;
Button1.TabOrder := 11;
end;

Procedure Convert2;
Begin
TheTreeName    := Edit2.text
AmmountOfLoads := StrToInt(Edit1.text)
TreeColor      := StrToInt(Edit3.text)
end;



//->Load Dtm's<-//
Procedure LoadDTMs;

begin
Status('Loading DTM''s')

LogDTM := DTMFromString('78DA632C666260E0646440067921460CFF813' +
       '448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
       '22604E23500D0F0135C94035DCF8D50000507909F5');

BrokenAxeDTM := DTMFromString('78DA633CCAC4C090C1C8800C9A127919FE036' +
       '990E87F2060BC0C54938CAA06220B2381F445A09A04026A8E01D5' +
       'C41050B31FA8A698809AB384CD0100CBBD0D20');

AxeHandleDTM := DTMFromString('78DA637CCFC4C0E0C6C8800CCA227819FE036' +
       '990E87F2060FC06546389AA06220B2381F473A09A00026ADE00D5' +
       'F81350F316A8C685809A97403541F8D50000D0090D3C');

RegularAxeDTM := DTMFromString('78DA637461626060676440060DF1BC0CFF813' +
       '448F43F10300601D5FC6740038C482490F604AAF94D408D13500D' +
       '2B237E35F640358204D4F813618E1F50CD1F02EE0906AA61C26F0' +
       'E0099720B7E');

end;


//->Setup<-//
Procedure MySetupScript;
Begin
  Status('Set-Up')
  SetupSRL;
  DeclarePlayers;
  LoadDTMs;
end;


//->GetRandomLoad-//
Var
  RandomLoad : Integer;

Procedure GetRandomLoad;
Begin
  RandomLoad := (AmmountOfLoads + Random (5))
end;


//->Anti Randoms<-//
Procedure TheAntiRandoms;
Begin
  Status('Random Check')
  FindNormalRandoms;
  wait(10)
  FindTalk;
  wait(10)
  if (FindFight) then
  begin
    Status('Running From a fight.')
    RunAwayDirection('E');
    Wait(8500 + random(3500));
    RunBack;
  end;
  Wait(10);
  FindTalk;
end;


//->Anti Ban<-//
Var
  WCLEVEL, DONTBAN : Integer;

Procedure TheAntiBan;
begin
  TheAntiRandoms;
  Status('Preforming Antiban')
  if ( not ( LoggedIn )) then Exit;
  DONTBAN:= 1 + Random(140)
  case DONTBAN of
     1: RandomRClickEvery(2 + Random(10));
     2: HoverSkill('woodcutting', false);
     3: HoverSkill('random', false);
     4: DoEmote(1 + Random(20));
     6: PickUpMouse;
     9: MMouse(MSX1,MSX2,10,10)
    12: GameTab(1+random(7))
    13: HighestAngle;
    14: TypeSend('Lol my wc lvl is ' +IntToStr (WClevel)  + '.')
    15: TypeSend('Wc lvl ' +IntToStr (WClevel) + '! Sweet!')
    16: TypeSend('Grr, my wc lvl is only ' +IntToStr (WClevel) + '')
    17: GetSkillLevel('WoodCutting')
    18: GameTab(1+Random(7))
    21: TypeSend('I''m lvl ' +IntToStr (WClevel) + ', but I want ' +IntToStr (WClevel + 3 + Random(8)) + '')
    22: TypeSend('' +IntToStr (WClevel) + ' woodcuting.../')
    23: TypeSend('I can''t wait till im lvl ' +IntToStr (WClevel + 4 + Random(7)) + '')
    24: TypeSend('Hmm... im only lvl ' +IntToStr (WClevel) + ' woodcutting... i should go for ' +IntToStr (WClevel + 6 + Random(8))+'')
    25: TypeSend('yay... lvl ' +IntToStr (WClevel) + 'wc... still...')
    26: TypeSend('cool! only ' + IntToStr (10+random(8)) + 'k xp till lvl ' +IntToStr (WClevel + 1 + random(4)) + ' wc')
    27: TypeSend('WC lvl ' +IntToStr (WClevel) + '')
    28: TypeSend('hmph... only ' +IntToStr (WClevel) + '')
    end;
  TheAntiRandoms;
end;


//->Get Axe Colors<-//
Procedure GetAxeColors;
Begin
Wait(100)
MakeCompass('S');
GameTab(4)
FindAxeHeadColor;
MakeCompass('N')
end;


//->Ent Checker<-//
Var
  EX, EY : integer;
  FX, FY : integer;
Procedure EntChecker;
Begin
  Status('Checking For Ent')
  Flag;
  If (FindObjMultiText(EX, EY, TheTreeName, TheTreeName, TheTreeName, Treecolor, 4)) then
  Begin
    MMouse(Ex, EY, 0, 0)
      If FindColorTolerance( FX, FY, 55769, 85, 15, 115, 15, 20) then
      Begin
        Status('Ent Found');
        MouseFindFlag(648,83,5,5);
        Wait(15000+Random(5000));
        EntsAvoided := EntsAvoided + 1
      end;
   end;
end;


//->Check for Broken Axe<-//
Var
  BX, BY, NX, NY : integer;

Procedure IsAxeBroken;
Begin
  Status('Checking for broken axe')
  GameTab(4)
  Wait(400 + Random (100))
  If (Not(FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 ))) then
  Begin
    Status('Axe Not Broken')
    Exit;
  end;
  Begin
    If (FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 )) and
       (Not(FindDTM(RegularAxeDTM, NX, NY, MIX1, MIY1, MIX2, MIY2))) then
    Begin
      Status('Broke an Axe, and you have no more.')
      NextPlayer(False)
      end;
   end;
end;


//->Axe Head Finder<-//
Procedure TheFindAxe;
Begin
Status ('Looking For Axe')
FindHead;
end;


//->Start Chopping<-//
Var
  TX, TY : Integer;

Procedure StartChopping;
Begin
 Repeat
 Begin
   IsAxeBroken;
   Status('Looking For Oak')
   If (InvFull) then
   Begin
     Exit;
end;
  If ( Not (LoggedIn) ) Then NextPlayer (False)
  EntChecker;
  If ( Not (LoggedIn) ) Then NextPlayer (False)
  If (FindObjMultiText(TX, TY, TheTreeName, TheTreeName, TheTreeName, Treecolor, 4)) then
  Begin
    Mouse(TX, TY, 3, 3, True)
    Wait( 100 + Random (200) )
    TheAntiRandoms;
    Wait(10)
    TheAntiBan;
    Wait(10)
    If ( Not (LoggedIn) ) Then NextPlayer (False)
    Wait(10)
    EntChecker;
    Wait(10)
    TheFindAxe;
    Wait(4000+Random(1000))
   end;
  end;
 Until (InvFull)
end;


//->Start Dropping<-//
Var
  LX, LY, DroppedLogsCount : Integer;

Procedure StartDropping;
  Begin
   If (InvFull) then
   Begin
     GameTab(4)
     DroppedLogsCount := CountItemDtm(LogDTM) + 6
     Repeat
       GameTab(4)
       If (FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2)) then
       begin
         Mouse(LX, LY, 8, 8, false)
         ChooseOption(x,y,'Drop')
         If ( Not (LoggedIn) ) Then NextPlayer (False)
         TheAntiRandoms;
         wait(400+random(100))
       end;
      Until (Not(FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2)))
      LoadNumber := LoadNumber + 1
  end;
end;

//->Progress Report<-//
Procedure ReportIt;
Begin
  SRLRandomsReport;
  WriteLn('[>-----------------------FOURS-REPORT-----------------------<]')
  WriteLn('[>Script Time: ' + (TimeRunning) + '')
  WriteLn('[>Logs Chopped: ' + IntToStr (TotalLogs) +  '')
  WriteLn('[>XP Gained: ' + IntToStr (TotalXP) +  '')
  WriteLn('[>----------------------------------------------------------<]')
end;


//->Main Stuff<-//
begin
  wait(1200)
  MySetupScript;
  SafeInitForm;
  SafeShowFormModal;
  Convert2;
  Begin
    If (Not(LoggedIn)) then
    Begin
      Status('Logging In')
      Loginplayer;
    end;
 end;
  GetRandomLoad;
  HighestAngle;
  MakeCompass('N')
  WCLEVEL :=  GetSkillLevel('WoodCutting')
  Repeat
    StartXP := GetXp('Woodcutting')
    GetAxeColors;
    Repeat
      DisguiseScar('[' + IntToStr(LoadNumber) + '/' +IntToStr(RandomLoad) + '] ' +(Players[CurrentPlayer].name) + '')
      StartChopping;
      If ( Not (LoggedIn) ) Then NextPlayer (False)
      StartDropping;
      EndXP := GetXp('Woodcutting')
      TotalLogs := TotalLogs + DroppedLogsCount
      TotalXP := (EndXP - StartXP) + (TotalXP)
      ReportIt;
      GetAxeColors;
      Until (LoadNumber >= RandomLoad)
        LogOut;
        NextPlayer(True);
        LoadNumber := 0
        GetRandomLoad;
        HighestAngle;
        MakeCompass('S')
        WCLEVEL :=  GetSkillLevel('WoodCutting')
        If ( Not (LoggedIn) ) Then NextPlayer (False)
      Until False;
end.

Did mister Buckley get a BUST?

Ohh.. good jobz! :D

:D woot. My first bust lol.

We frown upon copy scripts at SRL.
Please learn how to script and try again later after you have good experience and we will CONSIDER letting you in after this offense.