Results 1 to 4 of 4

Thread: Help with function...

  1. #1
    Join Date
    Jun 2007
    Location
    Varrock East bank,
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with function...

    Hi guys, updating my powercutter, and I'v nabbed this function from the SRL woodcutting skill... bit... anyway, it dosn't have a name so im not sure who to credit for it, but thats not the point... i cant get it to work

    I keep getting this error

    Failed when compiling
    Line 386: [Error] (14787:8): Invalid number of parameters in script C:\Program Files\SCAR 3.06\Scripts\Tree Cutter 2.scar

    I looked at JAD's tut and apprently I might have some numbers wrong or something, but it looks fine to me!?

    Any help would be great


    SCAR Code:
    ///////////////////////////
    ////   Power-Cutter    ////
    ////                   ////
    //// A Shadows~Collide ////
    ////      Script       ////
    ///////////////////////////

    // This script will cut any tree
    // you tell it to, use the color
    // clicker to pick a large color
    // on the tree, then paste it
    // into the const section and hit
    // run. Ignore the forms for now!

    // Start at the log-in page,
    // Dont worry, the log-in
    // Procedure will get better!


    program PowerCutter;
    {.include SRL/SRL.scar}


    ////////////////////////////////
    //         Set-up             //
    ////////////////////////////////

    const
      TreeColor = 3168336;

    ///////////////////////////////
    //       End of Set-up       //
    ///////////////////////////////

    var
      TreesCut, Clicks : Integer;

    frmDesign : TForm;
      Title : TLabel;
      User : TLabel;
      Pass : TLabel;
      CharNick : TLabel;
      User2 : TLabel;
      Pass2 : TLabel;
      Label1 : TLabel;
      Label2 : TLabel;
      EditUser : TEdit;
      EditPass : TEdit;
      EditNick : TEdit;
      StartButton : TButton;
      EditUser2 : TEdit;
      EditPass2 : TEdit;
      EditNick2 : TEdit;
      NumberOfUsersEdit : TComboBox;
      C : TCanvas;
      Tree : Integer;


    procedure ClickStartButton(sender: TObject);
    begin
      ClearDebug;
      Writeln('                                       ');
      Writeln('  --- A Shadows~collide Script ---');
      Writeln('                                       ');
      Writeln('  This is my first script.');
      Writeln('  Hopefully it will chop any tree you set the color too!');
      Writeln('  Please post any feedback or suggestions.');
      Writeln('                                       ');
      Writeln('  --- A Shadows~collide Script ---');
      wait(10 + random(800));




      frmDesign.ModalResult := mrOk;
    end;

    procedure ProgressReport;
    begin
      ClearDebug;
      Writeln('[]========================================[]');
      Writeln('---------------->Progress report<----------------');
      Writeln('  Cut ' + IntToStr(TreesCut) + ' logs ' + '    ');
      Writeln('---------------------------------------------');
      Writeln('  Did ' + IntToStr(Clicks) + ' Clicks' + '        ');
      Writeln('[]========================================[]');
    end;

    procedure DoAntiRandoms;
    begin
      FindTalk;
      FindNormalRandoms;
      if (FindFight = true) then
      begin
        RunAwayDirection('N');
        Wait(10000 + random(2000));
        RunBack;
      end;
    end;

    procedure MainForm;
    begin
      frmDesign := CreateForm;
    frmDesign.Left := 250;
    frmDesign.Top := 114;
    frmDesign.Width := 413;
    frmDesign.Height := 386;
    frmDesign.Caption := 'A Shadows-Collide Script';
    frmDesign.Color := clMonkeyGreen;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 96;



    Title := TLabel.Create(frmDesign);
    Title.Parent := frmDesign;
    Title.Left := 24;
    Title.Top := 10;
    Title.Width := 348;
    Title.Height := 22;
    Title.Caption := 'Shadows-Collide Power-Cutter';
    Title.Color := clBtnFace;
    Title.Font.Color := clWindowText;
    Title.Font.Height := -19;
    Title.Font.Name := 'Rockwell Extra Bold';
    Title.Font.Style := [fsBold];
    Title.ParentColor := False;
    Title.ParentFont := False;

    User := TLabel.Create(frmDesign);
    User.Parent := frmDesign;
    User.Left := 25;
    User.Top := 45;
    User.Width := 61;
    User.Height := 19;
    User.Caption := 'Username';
    User.Font.Color := clWindowText;
    User.Font.Height := -16;
    User.Font.Name := 'Times New Roman';
    User.Font.Style := [];
    User.ParentFont := False;

    Pass := TLabel.Create(frmDesign);
    Pass.Parent := frmDesign;
    Pass.Left := 25;
    Pass.Top := 75;
    Pass.Width := 60;
    Pass.Height := 19;
    Pass.Caption := 'Password';
    Pass.Font.Color := clWindowText;
    Pass.Font.Height := -16;
    Pass.Font.Name := 'Times New Roman';
    Pass.Font.Style := [];
    Pass.ParentFont := False;

    CharNick := TLabel.Create(frmDesign);
    CharNick.Parent := frmDesign;
    CharNick.Left := 25;
    CharNick.Top := 105;
    CharNick.Width := 121;
    CharNick.Height := 19;
    CharNick.Caption := 'Character nickname';
    CharNick.Font.Color := clWindowText;
    CharNick.Font.Height := -16;
    CharNick.Font.Name := 'Times New Roman';
    CharNick.Font.Style := [];
    CharNick.ParentFont := False;

    User2 := TLabel.Create(frmDesign);
    User2.Parent := frmDesign;
    User2.Left := 25;
    User2.Top := 170;
    User2.Width := 68;
    User2.Height := 19;
    User2.Caption := 'Usename 2';
    User2.Font.Color := clWindowText;
    User2.Font.Height := -16;
    User2.Font.Name := 'Times New Roman';
    User2.Font.Style := [];
    User2.ParentFont := False;

    Pass2 := TLabel.Create(frmDesign);
    Pass2.Parent := frmDesign;
    Pass2.Left := 25;
    Pass2.Top := 200;
    Pass2.Width := 72;
    Pass2.Height := 19;
    Pass2.Caption := 'Password 2';
    Pass2.Font.Color := clWindowText;
    Pass2.Font.Height := -16;
    Pass2.Font.Name := 'Times New Roman';
    Pass2.Font.Style := [];
    Pass2.ParentFont := False;

    Label1 := TLabel.Create(frmDesign);
    Label1.Parent := frmDesign;
    Label1.Left := 25;
    Label1.Top := 230;
    Label1.Width := 133;
    Label1.Height := 19;
    Label1.Caption := 'Character nickname 2';
    Label1.Font.Color := clWindowText;
    Label1.Font.Height := -16;
    Label1.Font.Name := 'Times New Roman';
    Label1.Font.Style := [];
    Label1.ParentFont := False;

    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 30;
    Label2.Top := 144;
    Label2.Width := 294;
    Label2.Height := 13;
    Label2.Caption := '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~';

    EditUser := TEdit.Create(frmDesign);
    EditUser.Parent := frmDesign;
    EditUser.Left := 205;
    EditUser.Top := 45;
    EditUser.Width := 121;
    EditUser.Height := 21;
    EditUser.ParentShowHint := False;
    EditUser.ShowHint := True;
    EditUser.TabOrder := 8;
    EditUser.Text := 'Enter Username';

    EditPass := TEdit.Create(frmDesign);
    EditPass.Parent := frmDesign;
    EditPass.Left := 205;
    EditPass.Top := 75;
    EditPass.Width := 121;
    EditPass.Height := 21;
    EditPass.ParentShowHint := False;
    EditPass.ShowHint := True;
    EditPass.TabOrder := 9;
    EditPass.Text := 'Enter Password';
    EditNick := TEdit.Create(frmDesign);

    EditNick.Parent := frmDesign;
    EditNick.Left := 205;
    EditNick.Top := 105;
    EditNick.Width := 121;
    EditNick.Height := 21;
    EditNick.TabOrder := 10;
    EditNick.Text := '3 letters of user, in order';

    StartButton := TButton.Create(frmDesign);
    StartButton.Parent := frmDesign;
    StartButton.Left := 160;
    StartButton.Top := 300;
    StartButton.Width := 75;
    StartButton.Height := 25;
    StartButton.Caption := 'StartButton';
    StartButton.TabOrder := 11;
    StartButton.OnClick := @ClickStartButton;

    EditUser2 := TEdit.Create(frmDesign);
    EditUser2.Parent := frmDesign;
    EditUser2.Left := 205;
    EditUser2.Top := 170;
    EditUser2.Width := 121;
    EditUser2.Height := 21;
    EditUser2.Hint := 'Enter Username';
    EditUser2.ParentShowHint := False;
    EditUser2.ShowHint := True;
    EditUser2.TabOrder := 12;
    EditUser2.Text := 'Enter Username';
    EditPass2 := TEdit.Create(frmDesign);
    EditPass2.Parent := frmDesign;
    EditPass2.Left := 205;
    EditPass2.Top := 200;
    EditPass2.Width := 121;
    EditPass2.Height := 21;
    EditPass2.TabOrder := 13;
    EditPass2.Text := 'Enter Password';
    EditNick2 := TEdit.Create(frmDesign);
    EditNick2.Parent := frmDesign;
    EditNick2.Left := 205;
    EditNick2.Top := 230;
    EditNick2.Width := 121;
    EditNick2.Height := 21;
    EditNick2.TabOrder := 14;
    EditNick2.Text := '3 letters of user, in order';
    NumberOfUsersEdit := TComboBox.Create(frmDesign);
    NumberOfUsersEdit.Parent := frmDesign;
    NumberOfUsersEdit.Left := 44;
    NumberOfUsersEdit.Top := 266;
    NumberOfUsersEdit.Width := 145;
    NumberOfUsersEdit.Height := 21;
    NumberOfUsersEdit.ItemHeight := 13;
    NumberOfUsersEdit.TabOrder := 15;
    NumberOfUsersEdit.Items.Add('Using one Character/s');
    NumberOfUsersEdit.Items.Add('Using two Character/s');

    end;

    procedure LoadForm;
    var
      V: TvariantArray;
    begin
      Setarraylength(V, 0);
      ThreadSafeCall('MainForm', V);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

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

    procedure DeclarePlayers;
    begin

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

      Players[0].Name := EditUser.Text;
      Players[0].Pass := EditPass.Text;
      Players[0].Nick := EditNick.Text;
      Players[0].Active := True

      Players[1].Name := EditUser2.Text;
      Players[1].Pass := EditPass2.Text;
      Players[1].Nick := EditNick2.Text;
      Players[1].Active := True

    end;

    function FindEnt(TreeColor: Integer): Boolean;
    var
      i: Integer;
    begin
      if (Option2('Chop')) then
      begin
        if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
          (FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
        begin
          GetMousePos(x, y);
          MMouse(x, y, 5, 5, False);
          if (FindText(x, y, 'Chop down', upchars, x - 50, y - 50, x + 100, y + 50))
            then
          begin
            if (FindColor(x, y, 65535, x + 70, y, x + 100, y + 10)) then
            begin
              for i := 1 to 2 do
              begin
                MMouse(648, 83, 1, 1, True)
                  Flag;
              end;
              WriteLn('Found ent... Waiting for it to go away...');
              Wait(30000 + Random(5000));
              Result := True;
            end;
          end else
            ChooseOption(x, y, 'Cancel');
        end;
      end;
    end;

    procedure CutTheTree;
    begin
      repeat;
        wait(1000 + random(500));
        if FindColorSpiralTolerance(x, y, TreeColor, 3, 3, 514, 338, 5) then
        begin
          MMouse(x, y, 5, 8);
          Wait(50 + random(25));
          if (IsUpText('hop')) then
          begin
            Wait(200 + random(100));
            Mouse(x, y, 1, 1, true);
            Wait(500 + random(500));
            FindEnt;
            DoAntiRandoms;
          end;
        end;
        Wait(3000 + random(500));
        DoAntiRandoms;
        TreesCut := TreesCut + 1;
      until (InvFull);
    end;


    procedure DropLogs;
    begin
      wait(100 + random(50));
      wait(2000 + random(1000));
      dropto(2, 28);
      wait(100 + random(50));

    end;

    begin
      SetupSRL;
      LoadForm;
      ShowFormModal2;
      DeclarePlayers;
      repeat
        ActivateClient;
        LoginPlayer;
        HighestAngle;
        CutTheTree;
        DropLogs;
        ProgressReport;
      until (False)
    end.
    Shadows-Collide -
    http://i142.photobucket.com/albums/r...ollidesig1.jpg
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
    - Shadows-collide -
    -

  2. #2
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Line 351
    MMouse(x, y, 5, 5, False);
    You either have to take out the false, or change it to Mouse
    Interested in C# and Electrical Engineering? This might interest you.

  3. #3
    Join Date
    Jun 2007
    Location
    Varrock East bank,
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oooo thanks homes
    Shadows-Collide -
    http://i142.photobucket.com/albums/r...ollidesig1.jpg
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
    - Shadows-collide -
    -

  4. #4
    Join Date
    Jun 2007
    Location
    Varrock East bank,
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Awww It still dosnt work...
    Shadows-Collide -
    http://i142.photobucket.com/albums/r...ollidesig1.jpg
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
    - Shadows-collide -
    -

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 2
    Last Post: 02-27-2008, 05:20 PM
  2. Replies: 2
    Last Post: 02-26-2008, 08:26 PM
  3. Any function that does this?
    By shadowpwner in forum OSR Help
    Replies: 2
    Last Post: 08-14-2007, 03:15 AM
  4. [FUNCTION] FindDoorColour: integer; By ZephyrsFury [FUNCTION]
    By ZephyrsFury in forum Research & Development Lounge
    Replies: 10
    Last Post: 07-27-2007, 08:45 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •