PowerChopper

THIS ISN'T A FUCKING RSBOT SCRIPT, ITS FOR SCAR!!!

No setup is needed, it loads everything from a form. Enjoy!

BTW: I don't recommend doing Normal/Oak trees unless the area you are in only has that type of tree, as a lot of false mouse movement will occur due to the two trees having nearly the same colors.

Code:

program PowerChopper;
{.include SRL\SRL.SCAR}

var
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Edit3 : TEdit;
  Button1 : TButton;
  ComboBox1 : TComboBox;
  username, password, nickname : String;
  ChopDown1, ChopDown2, ChopDown3, TreeType : Integer;
  x, y, i, w, Inv1, Inv2, color1, color2, color3, tol : Integer;
  
procedure DeclarePlayers;
begin
  CurrentPlayer := 0;
  NumberOfPlayers(1);

  Players[0].Name := username;
  Players[0].Pass := password;
  Players[0].Nick := nickname;
  Players[0].Active := True;
end;

procedure AntiRandoms;
begin
  FindNormalRandoms;
  FindTalk;
  FindLamp('woodcutting');
end;

procedure AntiBan;
begin
  case(Random(15))of
    1: HoverSkill('woodcutting', false);
    2: BoredHuman;
    3: PickupMouse;
    4: RandomRClick;
    5: RandomMovement;
    6: Wait(5000+random(10000));
    7: MMouse(Random(750), Random(750), Random(100), Random(100));
    8: begin
         case(random(5)) of
           0: makecompass('N');
           1: makecompass('S');
           2: makecompass('E');
           3: makecompass('W');
         end;
       end;
    9: begin
         case(random(10)) of
           0: typesend('Lol');
           1: typesend('Omg');
           2: typesend('Lmao');
           3: typesend('Lagg');
         end;
       end;
    10: begin
          case(random(100)) of
            0: begin
                 w := random(120000);
                 writeLn('Breakhandler: Taking break for ' + IntToStr(w));
                 Logout;
                 Wait(w);
                 LoginPlayer;
               end;
            1: begin
                 w := random(2000000);
                 writeLn('Breakhandler: Taking break for ' + IntToStr(w));
                 Logout;
                 Wait(w);
                 LoginPlayer;
               end;
          end;
        end;
  end;
end;

procedure SmartDrop;
begin
  for i:= 2 to 28 do
  begin
    Wait(50+random(100));
    AntiRandoms;
    DropItem(i);
  end;
end;

procedure Chop;
begin
  if(TreeType=1)then begin
    color1 := 1063215;
    color2 := 1131319;
    color3 := 2315339;
    tol := 5;
    if(findColorTolerance(x, y, color1, msx1, msy1, msx2, msy2, tol) or
         findColorTolerance(x, y, color2, msx1, msy1, msx2, msy2, tol) or
           findColorTolerance(x, y, color3, msx1 ,msy1, msx2, msy2, tol))then
    begin
      MMouse(x, y, 1, 1);
      if(isuptext('ree')) then
      case(random(2))of
        0: Mouse(x, y, 1, 1, true);
        1: case(random(3))of
             1: begin
                  ChopDown1 := BitmapFromString(36, 6, 'beNoLcf8PBgwMDLEhCDaQ' +
                       'ROYisyGycHE0BJRjQJKCc9EMgbPRAC5lJNkF4WK1C+54qtsF9yMa9' +
                       'z9e75NhF7JFcBFcbDy6sCrDr5KGCACGEQ3n');
                  Mouse(x, y, 1, 1, false);
                  if(findbitmap(ChopDown1, x, y))then
                    Mouse(x, y, 1, 1, true);
                end;
             2: begin
                  ChopDown2 := BitmapFromString(48, 10, 'beNrFlEsKwCAMRHu7XqD' +
                       'b3v8Y06JEJj+UkuLgwgRJHskgcF9nyTkAc6oqf0d61WFE+5GEZztJ' +
                       'FQ9o0WgKQ2gt8oR2yjzWM77pqMbhIGkeSZFSHrGTMhghjbxv2pMhj' +
                       '5RR2HMe8jY/CO/hEFiGx49xhSf9Fszcoqa8lL94SH5fnOfQ3Et4/I' +
                       'hU/gHhYWf3');
                  Mouse(x, y, 1, 1, false);
                  if(findbitmap(ChopDown2, x, y))then
                    Mouse(x, y, 1, 1, true);
                end;
             3: begin
                  ChopDown3 := BitmapFromString(98, 7, 'beNrFVVsOwyAMy+16gf3u' +
                       '/sfoEKyRycOkotMiPoJJnWACFTm7icj7deA4Z8uWKjhh1rzht2RKy' +
                       'sPRtieQ5Tvtw8bMoMGXKrUlX550q+AhrcaMvEtOP83Kq6rUDQNGbh' +
                       'XK4FwljDI7KvqPcA4RuLA+XarSJZEJIP5yR5v+PqexejqiUnitgh6' +
                       'Dm6gdm3X731WCrv+NSmAh7l+hZRnmZMNzR3LyU+CcA8cUlfJuqRS2' +
                       'DXvqZ90U8T4G+6fV89jKZyOcimd+Vp5Pl01LJX0A5eTb5Q==');
                  Mouse(x, y, 1, 1, false);
                  if(findbitmap(ChopDown3, x, y))then
                    Mouse(x, y, 1, 1, true);
                end;
           end;
      end;
    end;
  end;
  if(TreeType=2)then begin
    color1 := 728859;
    color2 := 2317908;
    color3 := 3433050;
    tol := 5;
    if(findColorTolerance(x, y, color1, msx1, msy1, msx2, msy2, tol) or
         findColorTolerance(x, y, color2, msx1, msy1, msx2, msy2, tol) or
           findColorTolerance(x, y, color3, msx1 ,msy1, msx2, msy2, tol))then
    begin
      MMouse(x, y, 1, 1);
      if(isuptext('ak')) then
      case(random(2))of
        0: Mouse(x, y, 1, 1, true);
        1: case(random(3))of
             1: begin
                  ChopDown1 := BitmapFromString(45, 8, 'beNq9kssRgDAIROnOBnK1' +
                       '/zJwTGQDm88kOchwAAfY52q67vSl5ui2GgMzPkX1TZFZm7NdkUYLi' +
                       '74FgG3oFkaVy/sg8WykVYS6GHYm0B64wXgmSq/sgzBa087cYIyp81' +
                       'sYOEu6IyT6NzBcJNBSvYJBPvuZ2UcpdTwYdmNdDY8STGIxer5+6u9' +
                       '8ABe/1ao=');
                  Mouse(x, y, 1, 1, false);
                  if(findbitmap(ChopDown1, x, y))then
                    Mouse(x, y, 1, 1, true);
                end;
             2: begin
                  ChopDown2 := BitmapFromString(85, 4, 'beNpjYPgPBgxgEBviDmfA' +
                       'xYFsWiBamw/yC9B8ZK+BuUQ6Yzh5HyuXGO/DAS4pYsTxmAy3F6teP' +
                       'Fw8ziPS+xAuQe8DpTDthaQoYsRxRTqyvQTNxOTich6R3oeyAeut12' +
                       'w=');
                  Mouse(x, y, 1, 1, false);
                  if(findbitmap(ChopDown2, x, y))then
                    Mouse(x, y, 1, 1, true);
                end;
             3: begin
                  ChopDown3 := BitmapFromString(97, 8, 'beNrdlVsSgCAIRdldG/C3' +
                       '/S+jhzhGCnidzGly/ABKHmcQw7KGc29xERELhZHV4ftt/7yPkihGY' +
                       'QH/X02V7Vn4AaKLD5cGUPIRTS5hJiKn/OeI8rI+IXbHc46rnnVUJz' +
                       '0QUVLvraVezCYia0aBdqt5ZNymz1q10gMRyTsoaUhuzZlTp13/j8h' +
                       'DfDIBn2odDu+iEp3gA86i4Yi65GLh4bq6qESkzRD1sn8EUW6VrnDy' +
                       'FVNfN0dOB3fytUmn');
                  Mouse(x, y, 1, 1, false);
                  if(findbitmap(ChopDown3, x, y))then
                    Mouse(x, y, 1, 1, true);
                end;
           end;
      end;
    end;
  end;
  if(TreeType=3)then
  begin
    color1 := 3164221;
    color2 := 2110764;
    color3 := 3164734;
    tol := 5;
    WriteLn('Willows');
    if(findColorTolerance(x, y, color1, msx1, msy1, msx2, msy2, tol) or
         findColorTolerance(x, y, color2, msx1, msy1, msx2, msy2, tol) or
           findColorTolerance(x, y, color3, msx1 ,msy1, msx2, msy2, tol))then
    begin
      MMouse(x, y, 1, 1);
      if(isuptext('illo')) then
      case(random(2))of
        0: Mouse(x, y, 1, 1, true);
        1: case(random(3))of
             1: begin
                  ChopDown1 := BitmapFromString(87, 4, 'beNr7/z82xB2I/oMBhE0L' +
                       'RGvzgYjh/38GVCswRTDFkdkQRzIwMNA0EGhnPtw7yFZgimCKI7NHe' +
                       'CCMkJSAmQUQ4gAd1ITM');
                  Mouse(x, y, 1, 1, false);
                  if(findbitmap(ChopDown1, x, y))then
                    Mouse(x, y, 1, 1, true);
                end;
             2: begin
                  ChopDown2 := BitmapFromString(56, 7, 'beNq9k9ENwCAIRN3OBfx1' +
                       '/zGoxWrPQ6umTQkfBwF8aAw+Bi9qSWTHUFqrNehO5PRkKjBzFahRn' +
                       'mtyWCZgksBqC4aVUCn6qMSJgs4acd6NsKzdBUm6nGVAs84W50vtAI' +
                       'yMOO21/8dZbtg+7hYnDcRH/IwTnr5OJr3CyailfZFn0g5h/pUjbX9' +
                       'uHxXM5qfTHtrjARuo/zA=');
                  Mouse(x, y, 1, 1, false);
                  if(findbitmap(ChopDown2, x, y))then
                    Mouse(x, y, 1, 1, true);
                end;
             3: begin
                  ChopDown3 := BitmapFromString(107, 7, 'beNrdlkkOgCAMRbmdF3D' +
                       'r/Y+ByFAqtZ8SISY2LEqFDk9K8D6Ii3LsGyneZ3vQV4zV/q9agv97' +
                       'CGmRdm0NrkWu/z3ApK8GSKJ9stiBZ4r7uBdMQXoSF7Fq4NS+0wHmK' +
                       'aPdwO8CjPHbzFNoi107eBxg16ecaukBgFwxnsC6kf0FCRm3sFasUZ' +
                       '/iM/HBzMHNBgC+1F1JDN+B0wEO6Y3Ywy0HWAa1gNY+nwOkYzYUTlb' +
                       'q+HtjCsAgJ6oFKmU=');
                  Mouse(x, y, 1, 1, false);
                  if(findbitmap(ChopDown3, x, y))then
                    Mouse(x, y, 1, 1, true);
                end;
        end;
      end;
    end;
  end;
end;

function Chopping: Boolean;
begin
  inv1 := InvCount;
  wait(5000 + random(3000));
  inv2 := InvCount;
  if inv1=inv2 then
    result := false else
      result := true;
end;

procedure ButtonClick(sender: TObject);
begin
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
  case ComboBox1.Text of
    'Normal' : TreeType := 1;
    'Oak' : TreeType := 2;
    'Willow' : TreeType := 3;
  end;
end;

procedure CreateForum;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 236;
  frmDesign.Top := 199;
  frmDesign.Width := 235;
  frmDesign.Height := 196;
  frmDesign.Caption := 'PowerChopper v1.0';
  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 := 8;
  Label1.Top := 8;
  Label1.Width := 48;
  Label1.Height := 13;
  Label1.Caption := 'Username';
  Label2 := TLabel.Create(frmDesign);
  Label2.Parent := frmDesign;
  Label2.Left := 8;
  Label2.Top := 56;
  Label2.Width := 46;
  Label2.Height := 13;
  Label2.Caption := 'Password';
  Label3 := TLabel.Create(frmDesign);
  Label3.Parent := frmDesign;
  Label3.Left := 8;
  Label3.Top := 32;
  Label3.Width := 48;
  Label3.Height := 13;
  Label3.Caption := 'Nickname';
  Edit1 := TEdit.Create(frmDesign);
  Edit1.Parent := frmDesign;
  Edit1.Left := 64;
  Edit1.Top := 8;
  Edit1.Width := 145;
  Edit1.Height := 21;
  Edit1.TabOrder := 8;
  Edit2 := TEdit.Create(frmDesign);
  Edit2.Parent := frmDesign;
  Edit2.Left := 64;
  Edit2.Top := 32;
  Edit2.Width := 145;
  Edit2.Height := 21;
  Edit2.TabOrder := 9;
  Edit3 := TEdit.Create(frmDesign);
  Edit3.Parent := frmDesign;
  Edit3.Left := 64;
  Edit3.Top := 56;
  Edit3.Width := 145;
  Edit3.Height := 21;
  Edit3.TabOrder := 10;
  Edit3.PasswordChar:= '*';
  Button1 := TButton.Create(frmDesign);
  Button1.Parent := frmDesign;
  Button1.OnClick := @ButtonClick;
  Button1.Left := 72;
  Button1.Top := 120;
  Button1.Width := 73;
  Button1.Height := 24;
  Button1.Caption := 'Start';
  Button1.TabOrder := 11;
  ComboBox1 := TComboBox.Create(frmDesign);
  ComboBox1.Parent := frmDesign;
  ComboBox1.Left := 48;
  ComboBox1.Top := 88;
  ComboBox1.Width := 121;
  ComboBox1.Height := 21;
  ComboBox1.ItemHeight := 13;
  ComboBox1.TabOrder := 12;
  ComboBox1.Text := 'Type of tree to Chop';
  ComboBox1.Items.Add('Normal');
  ComboBox1.Items.Add('Oak');
  ComboBox1.Items.Add('Willow');
end;

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

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

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

procedure SetupAll;
begin
  username := Edit1.Text;
  nickname := Edit2.Text;
  password := Edit3.Text;
end;

procedure Forum;
begin
  SafeInitForm;
  SafeShowFormModal;
  SetupAll;
  FreeForm(frmDesign);
end;

begin
  Forum;
  SetupSRL;
  ClearDebug;
  DeclarePlayers;
  if(not(LoggedIn))then LoginPlayer;
  repeat
    Chop;
    repeat
      AntiRandoms;
      AntiBan;
      if(not(Chopping))then Chop;
    until(InvFull);
    if(InvFull)then SmartDrop;
  until(not(LoggedIn));
end.

 

dont work 4 me. i dont know what to put for username nickename and pass.

 

Username: Your runescape username
Nickname: 3-4 letters of your runescape username (no spaces, or letters after a space)
Password: Your runescape password

It seemed pretty straightforward to me...

 

NICE SCRIPT!!! This is the first one that has EVER worked for me =)

 

What Do U Do With That Code Thing?
Some 1 Please Help Me

 

This is the only one I use, It came with my RSBOT so I have been using it. Its a great script, I just wish you had the option to bank, all it does is drop.

 

You do realize that I am not Megaalgos, and this is the SCAR section, right? :embar:

 

Just Start the script.
Then fill out the box

 

Can this cut and bank mages?

 

It's called PowerChopper for a reason (it powerchops, hence, no banking) xD

 

i think i filled it all out but it says

Line 3: [Error] (3:1): Identifier expected in script
Failed when compiling

 

Yes i am getting the same problems. It doesn't show up in my scripts folder as aworking script.

 

This Isn't A Fucking Rsbot Script, It's For Scar You Fucking Leechers.

 

Im using scar and this wont work. I put in my username and it said it was an unknown identifier. Sofar I cant get any script to work. I have tried loads so can anyone help?

 

I get

Line 46: [Error] (268:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files (x86)\SCAR 3.20\includes\SRL/SRL/Core/Math.scar

 

this script works great if you delete all the lines that have errors, only a few i think. This script got me from 35 to 61 in two days. if you had a proggie i'd post it, just take my word for it i guess

 

me either!it just makjes me logg out