Results 1 to 7 of 7

Thread: Clicking

  1. #1
    Join Date
    Feb 2012
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Clicking

    For some reason the script will not move on to clicking.. it also doesn't writeLn, so i'm thinking its a problem before that. Some help would be appreciated.

    Also i would like to set the angle to high, what and where do i put in?
    Simba Code:
    program testbandit;
    {$DEFINE SMART}
    {$i srl/srl.simba}


    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

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


    procedure StatsGuise(wat:String);
    begin
      StatsGuise(wat);
      Disguise(wat);
    end;



    function Bandit: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.18, 0.21);

      if not (FindColorsTolerance(arP, 1976886, MSX1, MSY1, MSX2, MSY2, 7)) then
      begin
        Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        Result := arC[i];
        //Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
        //Writeln('AutoColor failed in finding the color.');
    end;




    Procedure Pickpocket;
    var
      x, y: integer;
    begin
      if(not(LoggedIn))then
        Exit;

      x:=MSCX;
      y:=MSCY;

      If FindObjTPA(x, y, Bandit, 5, 2, 5, 10, 20,['atta'])then

      begin
        WriteLn('Found Bandit');

        GetMousePos(x, y);
        Mouse(x, y, 2, 2, False);
        Wait(100 + Random(100));
        ChooseOption('pick');

      end;

       Wait(3000);
    end;





    begin
      Smart_Server := 0;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;

      SetUpSRL;
      DeclarePlayers;
      LoginPlayer;
      repeat
        FindNormalRandoms;
        Pickpocket;
      Until(false);

    end.

  2. #2
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Simba Code:
    ChooseOption('pick');

    Pick has to be capitalized.

  3. #3
    Join Date
    Feb 2012
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sin View Post
    Simba Code:
    ChooseOption('pick');

    Pick has to be capitalized.
    ok, ill fix that but it does not get to that part of the script. It does not right click.

  4. #4
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by Littellj View Post
    ok, ill fix that but it does not get to that part of the script. It does not right click.
    Simba Code:
    ['atta'])
    Capitalized also lol..

  5. #5
    Join Date
    Feb 2012
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sin View Post
    Simba Code:
    ['atta'])
    Capitalized also lol..

    Straight face -.-, thanks.
    about the high angle? and what do you think would be a good way to detect if stunned or not?

  6. #6
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Use PixelShift/Chat Messages to detect if you're stunned.

  7. #7
    Join Date
    Feb 2012
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for your help.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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