Results 1 to 13 of 13

Thread: My Script has gone haywire (and some questions)

  1. #1
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My Script has gone haywire (and some questions)

    --------------------thread Closed--------------------

  2. #2
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    MMouse(MSX1, MSY1, MSX2, MSY2); <-- Cant use that in there Have to have it like i think : MMouse(Msx1,Msy2,1,1) <-- the 1,1 is the random ness of the click. Hope i helped

  3. #3
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by naumanakhlaq View Post
    MMouse(MSX1, MSY1, MSX2, MSY2); <-- Cant use that in there Have to have it like i think : MMouse(Msx1,Msy2,1,1) <-- the 1,1 is the random ness of the click. Hope i helped
    Nope, that line is fine. It will move the mouse randomly around the screen (antiban).

    SCAR Code:
    mousespeed:=100;

    I'm not liking the look of that lol... that setting is WAYY to high. Set it to around 15-22.

    Standards fixed..
    SCAR Code:
    {================================================= ========================]
    [ ]
    [ NAME : Rora's Power Chopper ]
    [ WRITER : Rora ]
    [ CATEGORY : Woodcutting ]
    [ DESCRIPTION : Cuts Normal Trees and Drops Them ]
    [ USAGE : To Raise Your WoodCutting Level ]
    [ ]
    [ ]
    [================================================== =======================]
    [ Instructions. ]
    [================================================== =======================]
    [ 1. USE Runescape with Low Detail, Very Bright. ]
    [ 2. Set your Screen to 32 bit TRUE color. ]
    [ 3. Position Players In Woodcutting Spots (Lumbridge) ]
    [ 4. Set Playernames and Passwords / SRL Id and Pass in DeclarePlayers ]
    [ 5. Drag Cross Hair Over Client ]
    [ 6. Start script Logged Out / In! ]
    {================================================= ========================}


    program PowerWoodCutter;

      {.include SRL/SRL.scar}
      {.include SRL/SRL/Skill/Woodcutting.scar}

    var
      x, y: Integer;
      i: Integer;

    const
      TreeColor      = 1922123;
      LoadsPerPlayer = 10;

    procedure DeclarePlayers;
    begin
      NumberOfPlayers(2);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := true;

      Players[1].Name := ' ';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := true; //Fill this in
     
    end;

    procedure AntiBanMe;
    var
      TalkBack, TalkBack1, TalkBack2, TalkBack3, TalkBack4: Integer;
    begin
      if (InChat('hello')) or (InChat('Hi')) or (InChat('hey')) or (InChat('yo')) then TalkBack := Random(5);
      case TalkBack of

        1: TypeSend('hello');
        2: TypeSend('hey');
        3: TypeSend('Good Day');
        4: TypeSend('Hello, how are you?');
        5: TypeSend('ummm hi...');
      end;
      begin
        if (InChat('noob')) or (InChat('nooblet')) then
        begin
          TalkBack1 := Random(5);
          case TalkBack1 of
            0: TypeSend('you the noob');
            1: TypeSend('your face is a noob.');
            2: TypeSend('look in the mirror noob.');
            3: TypeSend('choob');
            4: TypeSend('you fail.');
            5: TypeSend('well, your garbage.');
          end;
          begin
            if (InChat('auto')) or (InChat('autoer')) then TalkBack2 := Random(5);
            case TalkBack2 of
              1: TypeSend('??? i do not do that ???');
              2: TypeSend('you wish');
              3: TypeSend('i never cheated in my life');
              4: TypeSend('go away noob.');
              5: TypeSend('you auto');
            end;
            begin
              if (InChat('report')) or (InChat('reported')) or (InChat('reporting')) then TalkBack3 := Random(5)case TalkBack3 of 1: TypeSend('Lol ok youll get repoted then');
                  2: TypeSend('*Cough Cough* Im no autoer *Cough Cough*');
                  3: TypeSend('ill report u then');
                  4: TypeSend('ur loss.. youll see');
                  5: TypeSend('ehemm?!?!?!?!');
                end;
              begin
                if (InChat('lol')) or (InChat('rofl')) or (InChat('lmao')) then TalkBack4 := Random(5)case TalkBack4 of 1: TypeSend('-laughs-');
                    2: TypeSend('pretty funny');
                    3: TypeSend('ooo');
                    4: TypeSend('whats so funny?');
                    5: TypeSend('funny...');
                  end;
              end;
            end;
          end;
        end;
      end;
    end;

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 8 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;
        end;
      end;
    end;

    procedure Chop;
    begin
      if not Loggedin then Exit;
      if (FindColor(x, y, TreeColor, 117, 179, 889, 709)) then
      begin
        Mouse(x, y, 5, 5, true);
        Wait(1000 + Random(8000));
        case Random(10) of
          1: typesend('this is boring')
            2: typesend('i cant take any more!!!')
            3: typesend(' Blink 182 are such beaasts!!!')
            4: typesend('ugh')
            5: typesend('zzzz...zzzz...')
            6: typesend('This is so not fun')
            7: typesend('when does it end!')
            8: typesend('This is 3 hours straight!!!')
            9: typesend('I wish i was on a shift!')
            10: typesend(' 4 hours straight woodcutting!!!')
        end;
        Wait(10000 + Random(20000));
      end;
    end;

    begin
      SetupSRL
      i := 0;
      repeat
        i := i + 1;
        Chop;
        MMouse(MSX1, MSY1, MSX2, MSY2);
        if InvFull then
        begin
          DropToPosition(2, 28);
          if (invfull = true) then mousespeed := 20;
          wait(1500 + Random(100));
        end;
      until (i >= 50);
    end.

    All those long waits are not good, you need to check if the color you find is actually the tree you want, make sure its not an ent and click on it. What happens if the tree disappears in 2 seconds?, your script sits there and waits lol.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  4. #4
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Ohh Ok pl0x!!????

  5. #5
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rogeruk View Post
    Nope, that line is fine. It will move the mouse randomly around the screen (antiban).



    All those long waits are not good, you need to check if the color you find is actually the tree you want, make sure its not an ent and click on it. What happens if the tree disappears in 2 seconds?, your script sits there and waits lol.
    Fawiki uses 50 ;P

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  6. #6
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can somebody answer my question at the bottom please :-(

  7. #7
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It should, just with like a 28 seconds wait lol.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  8. #8
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Firstly, it's pretty dangerous to have the script talk EVERY time it clicks a tree.

    Secondly,
    SCAR Code:
    MMouse(MSX1, MSY1, MSX2, MSY2);
    should be
    SCAR Code:
    MMouse(MSx1,MSy1,MSx2-MSx1,MSy2-MSy1)
    , if you want it 100% precise. Your version is a little different, so it actually doesn't matter which you use.

    Thirdly, "InvFull" is broken. Use
    SCAR Code:
    if InvCount = 28 then ...
    instead.

    That should solve it.

    -Knives

  9. #9
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh ok and the cursor still goes crazy to co-ordinates i didn't tell it to go...

  10. #10
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    If you use FindColorTolerance, it would find the right color and click it. And the "wrong co-ordinates", are because of the antiban.
    SCAR Code:
    MMouse(MSX1, MSY1, MSX2, MSY2);

    EDIT: That's my guess.

    -Knives

  11. #11
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what does tolerance do?

  12. #12
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Tolerance 1 searches for very similar colors. Tolerance 255 will search for any color. Basically, the higher tolerance, the less similarity the color searched for, will need to have compared to the original color.

    ^^ Sounds confusing, eh? Read it slowly :P

    -Knives

  13. #13
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh right ah..... that all fits

    thank you everybody


    -THREAD CLOSED-

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. First script, couple of noob questions
    By The Claw in forum OSR Help
    Replies: 1
    Last Post: 04-29-2007, 02:20 AM
  2. Questions!
    By Hey321 in forum OSR Help
    Replies: 3
    Last Post: 12-12-2006, 09:35 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
  •