Results 1 to 23 of 23

Thread: FalconY

  1. #1
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default FalconY

    lol i tried to start writing a falcony script but i think my knowledge is too basic(I mean VERY basic). i keep getting identifier error >.< winch i dont really understand the meaning. w/e heres is what it look like (INCOMPLETE) I think my structure is the problem lol
    FEEL FREE TO GIVE ME HINTS,TIPS =D apreciated

    Simba Code:
    program Ogy's Falcony;
    {$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 FalconGuy;

    var x, y: integer;

     begin
    if FindObj(x, y, '
    alk-to', 3251357, 35) then
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('
    alcony');
      end;


      begin
      repeat
      if(FindColorTolerance(x, y, 3956331, 0, 0, 700, 500, 5))then
        begin
      Mouse(x,y,1,1,True);
      Wait(2000);
        end;
       begin
       if(FindColorTolerance(x, y, 4212298, 0, 0, 700, 500, 5))then
       Mouse(x,y,1,1,True);
       end;

      begin
     SetUpSRL;
     ActivateClient;
     DeclarePlayers;
     LoginPlayer;
      end;
     begin;
     end;
    end.
    Last edited by ogustuce; 02-23-2012 at 11:16 PM.

  2. #2
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    btw, how do i had a 'simba code' into a post lol?

  3. #3
    Join Date
    Dec 2011
    Location
    New York, USA
    Posts
    1,242
    Mentioned
    12 Post(s)
    Quoted
    193 Post(s)

    Default

    [SIMBA*] [*/SIMBA]


    Without the *'s

  4. #4
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    hmm, i dont get it?

    its like:

    [*SIMBA] [*/SIMBA]
    code

    or

    [*SIMBA] [*/SIMBA]
    code
    [*SIMBA] [*/SIMBA]
    ? (without the *'s)
    Last edited by ogustuce; 02-23-2012 at 10:17 PM.

  5. #5
    Join Date
    Mar 2006
    Location
    Behind you
    Posts
    3,193
    Mentioned
    61 Post(s)
    Quoted
    63 Post(s)

    Default

    Remove the * for using Simba tags with Code.

    "Sometimes User's don't need the Answer spelled out with Code. Sometimes all they need is guidance and explanation of the logic to get where they are going."

  6. #6
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    kk go it so its
    [*SIMBA]
    code
    [*/SIMBA]
    (without the *'s)
    thanks =)

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

    Default

    Simba Code:
    program OgysFalcony; // NO ' mate
    {$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 FalconGuy; //your procedure had no ending before brother

    var x, y: integer;

     begin
    if FindObj(x, y, 'alk-to', 3251357, 35) then
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('alcony');
      end;


      begin
      repeat
      if(FindColorTolerance(x, y, 3956331, 0, 0, 700, 500, 5))then
        begin
      Mouse(x,y,1,1,True);
      Wait(2000);
        end;
       begin
       if(FindColorTolerance(x, y, 4212298, 0, 0, 700, 500, 5))then
       Mouse(x,y,1,1,True);
       end;
       Until(false);
     end;
    end;


    Begin
     SetUpSRL;
     ActivateClient;
     DeclarePlayers;
    End.// final end is with . not ;
    there ya go mate, compiled successfully

  8. #8
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    oh thanks

  9. #9
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    why doesnt the script try to click on the yellow hairs of the falcon guy?

    code line:
    begin
    repeat
    if(FindColorTolerance(x, y, 3318436, 0, 0, 700, 500, 30))then
    begin
    Mouse(x, y, 2, 2, false);
    ChooseOption('alcony');
    end;

  10. #10
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    maybe i need higher tolerence? or i got wrong coordinates?

  11. #11
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    nvm, i figured

  12. #12
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    is there a way to make the script press a button on the keyboard? like the space bar or no.1

  13. #13
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

  14. #14
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    kk thanks, but is there a way to make it press '1' without pressing 'enter' after rather than press '1' then press 'enter' ??

  15. #15
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    is there a place where i can see all the stuff u can put into ( ) after a 'until' ?

  16. #16
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    oki, i got this updated but its still far from being perfect. but its a start =)

    Simba Code:
    program Falcony;
    {$DEFINE SMART}
    {$i srl/srl.simba}

    var x,y,stuck:integer;

    Procedure DeclarePlayers;

    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
     end;


    Procedure SpottedKebbit;
     begin
      repeat
      if(FindColorTolerance(x, y, 3956331, 0, 0, 700, 500, 5))then
        begin
      wait(1000 + random(50));
      Mouse(x,y,1,1,True);
      Wait(2000);
        end;
        until(true);
      end;

      procedure GetCaughtKebbit;
      begin
      repeat
      if(FindColorTolerance(x, y, 5725796 , 0, 0, 700, 500, 5))then
        begin
      wait(1000 + random(50));
      Mouse(x,y,1,1,True);
      Wait(2000);
        end;
        until(true);
      end;

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

      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;

      ClickNorth(SRL_ANGLE_HIGH);


      repeat

        if not (LoggedIn)then
        begin
          TerminateScript;
        end;

        SpottedKebbit;
        GetCaughtKebbit;

        if (Stuck > 3)then
        begin
          WriteLn('We are stuck, logging out')
          Logout;
          TerminateScript;
        end;


      until(AllPlayersInactive);

    end.

  17. #17
    Join Date
    Feb 2012
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    try to adde some antiban?

  18. #18
    Join Date
    Oct 2006
    Location
    Netherlands
    Posts
    3,285
    Mentioned
    105 Post(s)
    Quoted
    494 Post(s)

    Default

    SendKeys('1', 50); note that 50 is the time between key presses.

    You can put anything of the type Boolean in an until(x); , for example:
    Simba Code:
    program new;

    var
      coins:Integer;

    procedure PickUpCoins;
    begin
      //Find them
      //Click them
      Inc(Coins); //increase coins by one
    end;

    function NoFood:Boolean;
    var
      CountedFood;
    begin
      CountedFood := 5;    //your function found 5 food
      Result := CountedFood > 0;
    end;

    begin
      repeat
        coins := 0;
        repeat;
          PickUpCoins
        until(coins > 100);

        repeat
          FightKalphiteQueen;
        until(NoFood);

      until(Invfull);
    end.
    Working on: Tithe Farmer

  19. #19
    Join Date
    Dec 2011
    Posts
    273
    Mentioned
    0 Post(s)
    Quoted
    39 Post(s)

    Default

    I would use TPAs to find everything.. if I were you.. it would make things a lot more smoother :33 and more accurate.
    "What can't hurt you, try it. What can kill you, do it!"

    Scripts Completed: 3
    Amount Released : 2

  20. #20
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    im beginner scrupter =p idk how to make TPAs but ill look it up

  21. #21
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    alright, heres an updtade PLEASE FEEL FREE TO HELP ME
    NOT FINISHED

    my biggest problem is to find a unique color for the spotted kebbit

    Simba Code:
    program ogyFalcony;
    {$DEFINE SMART}
    {$i srl/srl.simba}

    var
    x,y,stuck:integer;
    MyTPA : TPointArray;
    MyPoint : TPoint;

    Procedure DeclarePlayers;

    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
     end;





    Procedure SpottedKebbit;
    var
    x, y, i : Integer;
     begin
    repeat
      FindColorsTolerance(MyTPA, 3360859, MSx1, MSy1, MSx2, MSy2, 2);
      if Length(MyTPA) = 0 then FindColorsTolerance(MyTPA, 3360859, MSX1, MSY1, MSX2, MSY2, 2);
      for i := 0 to High(MyTPA)do
      begin
      MyPoint := MyTPA[i]    MMouse (MyPoint.x, MyPoint.y, 3, 3);
      if (IsUpTextMultiCustom(['potted','ebbit'])) then
        begin
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, False);
        ChooseOption('atch');
         Wait(500+random(250));
         end;
        wait(350+random(200));
        end;
    until(false);
      end;

      procedure GetCaughtKebbit;
      var
    x, y, i : Integer;
     begin
    repeat
      FindColorsTolerance(MyTPA, 9544615, MSx1, MSy1, MSx2, MSy2, 3);
      if Length(MyTPA) = 0 then FindColorsTolerance(MyTPA, 9544615, MSX1, MSY1, MSX2, MSY2, 3);
      for i := 0 to High(MyTPA)do
      begin
      MyPoint := MyTPA[i]    MMouse (MyPoint.x, MyPoint.y, 3, 3);
      if (IsUpTextMultiCustom(['yr','alcon'])) then
        begin
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, False);
        wait(500+random(200));
        ChooseOption('etrieve');
         Wait(500+random(250));
         end;
        wait(350+random(200));
        end;
    until(false);
      end;


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

      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;

      ClickNorth(SRL_ANGLE_HIGH);


      repeat

        if not (LoggedIn)then
        begin
          TerminateScript;
        end;

        SpottedKebbit;

        GetCaughtKebbit;

        if (Stuck > 3)then
        begin
          WriteLn('We are stuck, logging out')
          Logout;
          TerminateScript;
        end;


      until(AllPlayersInactive);

    end.

  22. #22
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    and how do you set the mouse speed?

  23. #23
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    UPDATED
    i switched to DTMs winch makes it easier. still alot of work to but its progressing =)
    Simba Code:
    program ogyFalcony;
    {$DEFINE SMART}
    {$i srl/srl.simba}

    var
    x,y,stuck,Spotted,Falcon,tried :integer;
    MyTPA : TPointArray;
    MyPoint : TPoint;
    aFound: Extended;

    Procedure DeclarePlayers;

    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
     end;

     procedure SetDTM;
     begin
    Spotted := DTMFromString('mbQAAAHicY2VgYNjECMEbgXgrEG8GYl2guAEQqwOxPhBrAXFKiDmDk5UOQ0a4FUNejC1DSrgTAxdQHB0zYsFgAACgMQkw');
    Falcon := DTMFromString('mQwAAAHicY2ZgYDgIxMeAeD8QN0FxKxCbGukxWJkbMdjbmDPwA/kgzArEjEgYCAAThQXj');
     end;

     procedure FrDTM;
     begin
     FreeDTM(Spotted);
     FreeDTM(Falcon);
     end;

     procedure ClickOnSpotted(PX:Integer; Click: Boolean);
     begin
     if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
       begin
       Mouse(x, y, 3, 3, Click);
       end;
       end;


     procedure ClickOnFalcon(PX:Integer; Click: Boolean);
     begin
     if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
       begin
       Mouse(x, y, 3, 3, Click);
        end;
       end;




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

      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;

      ClickNorth(SRL_ANGLE_HIGH);


      repeat

        if not (LoggedIn)then
        begin
          TerminateScript;
        end;

     repeat

     repeat
       SetDTM;
         MouseSpeed := 18;
          ClickOnSpotted(Spotted, False);
          wait(200+random(200));
         ChooseOption('atch');
         wait(3200+random(150));
       FrDTM;
      until(tried = 10)

      repeat
      SetDTM;
         MouseSpeed := 18;
          ClickOnFalcon(Falcon, False);
          wait(200+random(150));
         ChooseOption('etrieve');
         wait(3000+random(250));
       FrDTM;
        until(tried = 10)

     until(invfull);

        if (Stuck > 3)then
        begin
          WriteLn('We are stuck, logging out')
          Logout;
          TerminateScript;
        end;


      until(AllPlayersInactive);

    end.

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
  •