Results 1 to 7 of 7

Thread: Ahhhh I cant think!

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

    Default Ahhhh I cant think!

    Hey guys,

    working on my powercutter, and basicaly I'v made it multiplayer just to show that I can, but i cant think at the moment at all and my mind is completely blank,
    How do I correlate the combo box to the players declared... if that makes sense? Basically the combobox dosnt do anything except look pretty Run the script and take a look at the combo box... how do i make it do something!?

    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;
      NumberofUsers : Boolean;



    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));



      NumberOfUsers:=StrToBool(NumberOfUsersEdit.text);
      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;

    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));
            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;
      if(numberofusers) then
    WriteLn('Booya, combo boxes rule(so does Tim)')
    else
    WriteLn('False?! I RULE');

      repeat
        ActivateClient;
        LoginPlayer;
        if (LoggedIn = false) then NextPlayer(false);
        HighestAngle;
        CutTheTree;
        DropLogs;
        ProgressReport;
      until (False)
    end.


    Cheers in advance,
    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
    Jun 2007
    Location
    Varrock East bank,
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    bump :O
    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 -
    -

  3. #3
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i honestly have no idea...


    [eidt] no idea wut hes talking about -.-
    Originally Posted by YoHoJo
    I like hentai.

  4. #4
    Join Date
    Oct 2006
    Posts
    1,071
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    then why post llama? and can you explain what you need a little better shadows?

    EDIT: True that

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

    Default

    Its exaplined well you just dont know what your talking about
    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 -
    -

  6. #6
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    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));



      NumberOfUsers:=StrToBool(NumberOfUsersEdit.text);
      frmDesign.ModalResult := mrOk;
    end;

    Add: If NumberOfUsersEdit.text := 'Using one Character/s' then NumberOfPlayers := 1. Understood?
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  7. #7
    Join Date
    Oct 2006
    Posts
    1,071
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Hey I get it now though Thanks to Santa Clause. Snap that combo box thing is nifty, Im going to try and make one.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Ahhhh Please Help!!(can't leech scripts)
    By Pures Own in forum SRL Site Discussion
    Replies: 1
    Last Post: 10-08-2007, 10:55 PM
  2. ahhhh....type mismatch
    By acevampire in forum OSR Help
    Replies: 11
    Last Post: 03-18-2007, 11:28 PM

Posting Permissions

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