Results 1 to 8 of 8

Thread: PieStringer!

  1. #1
    Join Date
    Mar 2007
    Location
    In your computer
    Posts
    244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default PieStringer!

    This is my second script i made.
    What script does?Strings bows duh.
    Known bugs - None yet.
    Special thanks to - SantaClause.

    SCAR Code:
    program PieStringer;
    {.include SRL/SRL.Scar}
    //Instructions
    //Have bs in first bank spot bows in second.
    //Find a world with not lot of people.
     
    ////////////////////////////////////////////
    var
      xwhite, xyellow, allwhite, allyellow, bowstringed, MakeFullBows2
      : Integer;
     
    const
    RunAwayDir = 'S';
    BowsToDo = 1017; //How many bows you need to do add +17, example:1000 Bows = 1017 BowsToDo
    Player0 = 0;
     
    Procedure DeclarePlayers;
    begin
      HowManyPlayers  := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
     
    {///////////////////Set up your player//////////////////////}
      Players[0].Name   := '';// your user name
      Players[0].Pass   := '';//your password
      Players[0].Nick   := '';// your nick name
      Players[0].Active := True;
    end;
     
    ////////////////////////////dont touch please/////////////////////////////
    Procedure Loadingbitmap;
    begin
      xwhite := BitmapFromString(9, 8, 'z78DA333040003724604084382' +
           'E35C4A8A74417F1AEA2BF0BC90B43E275010051AB6079');
     
      xyellow := BitmapFromString(8, 7, 'z78DA333000013720809' +
           '1C8009738A62C7E95E4A927C60DF4710FF1E10300667947F1');
     
      allwhite := BitmapFromString(17, 9, 'z78DA333040003724804BC' +
           '400AF7AF2C4A96B1AFD6DC10F46436CD41652C501022DD2CD');
     
      allyellow := BitmapFromString(17, 9, 'z78DA3330400037208091' +
           'B8440CF0AA274F9CBAA6D1DF16FCE468888DDA42AA3800C8E7C5E' +
           '9');
    end;
     
    Procedure RunAway;
    begin
      RunAwayDirection(RunAwayDir);
      Wait(12000+random(2000));
      RunBack;
    end;
     
    Procedure Randoms;
    begin
      FindTalk;
      wait(10+Random(15));
      FindNormalRandoms;
      if(FindFight)then
      RunAway;
    end;
     
    Procedure Bank;
    var
      x, y, fs, fs2 : Integer;
    begin
      repeat
        randoms;
        Flag;
        if (FindObj(x, y, 'booth', 607324, 10)) then
        Mouse(x, y, 4, 4, False)
        else
        if (FindObj3(x, y, 'booth', 7243412, 10)) then
        Mouse(x, y, 4, 4, False)
        else
        if (FindObj3(x, y, 'booth', 6324369, 10)) then
        Mouse(x, y, 4, 4, False);
        Wait(250+random(20));
        if (ClickOption('quickly', 1)) then
        begin
        Flag;
        repeat
        Wait(100+random(20));
        fs := fs + 1;
        until (BankScreen) or (fs >= 50);
        end;
        fs2 := fs2 + 1;
        until (BankScreen) or (fs2 > 5);
    end;
     
     
     
    Procedure TakeBowsAndStrings;
    begin
      FixBank;
      Wait(2000+random(250));
      Mouse(92,75,3,3,false);
      Wait(1000+random(250));
      ChooseOption(x,y,'x');
      Wait(3000+random(250));
      SendKeys('13'+chr(13));
      Wait(2000+random(250));
      Mouse(142,75,3,3,false);
      Wait(1000+random(250));
      ChooseOption(x,y,'x');
      Wait(1000+random(250));
      SendKeys('14'+chr(13));
      Mouse(92,75,3,3,true);
      Wait(1000+random(250));
      Mouse(486,40,2,2,true);
    end;
     
    Procedure SetInvInPos;
    begin
      Wait(3000+random(250));
      Mouse(647,187,3,3,true);
    end;
     
    Procedure MakeFullBows;
    begin
      MakeFullBows2 := 0;
      Mouse(709,444,3,3,true);
      Wait(2000+random(250));
      Mouse(666,441,3,3,true);
      Wait(1000+random(250));
      Mouse(709,444,3,3,true);
      Wait(2000+random(250));
      Mouse(666,441,3,3,true);
      MakeFullBows2 := MakeFullBows2 + 1;
    end;
     
    Procedure DepositItAll;
    begin
      Bank;
      Mouse(581,224,3,3,false);
      Wait(2000+random(250));
      ChooseOption(x,y,'all');
    end;
     
    Procedure LetsDebug;
    begin
      WriteLn('  Running Time: ' + (TimeRunning) + '')
    end;
     
    begin
      setupSRL;
      Loadingbitmap;
      declareplayers;
      activateclient;
      loginplayer;
      repeat
        Bank;
        takebowsandstrings;
        setinvinpos;
        wait(500);
          Repeat
          makefullbows;
          Until(MakeFullBows2=9);
        wait(1500+random(20));
        bank;
        wait(1000+random(20)) ;
        deposititall;
        wait(1000+random(20));
       until (bowstringed >= bowstodo);
         if (bowstringed >= bowstodo) then
           begin
           Logout;
           terminateScript;
      end;
    end.

  2. #2
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    uhhhh add some randoms, anti ban, DTMs instead of coords, and maybe make it withdraw 14 of each...

  3. #3
    Join Date
    Mar 2007
    Location
    In your computer
    Posts
    244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    uhhhh add some randoms, anti ban, DTMs instead of coords, and maybe make it withdraw 14 of each...
    I got screwed up with DTMs, and why should i make it withraw 14 of each if it withraws 13 bs then 14 bows then 1 bs...And also i will add Anti-Randoms in next version(0.2).Sorry for double-post.

  4. #4
    Join Date
    Oct 2006
    Location
    MI USA
    Posts
    3,166
    Mentioned
    6 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by Ilikepie1995 View Post
    I got screwed up with DTMs, and why should i make it withraw 14 of each if it withraws 13 bs then 14 bows then 1 bs...And also i will add Anti-Randoms in next version(0.2).Sorry for double-post.
    Dtms are less detectable than cordinates.......Also, You could use....
    DragItem(14,28)
    which would drag 1 item from the 14th postion to the last and it would be more human like.....

    ~RAM


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

    Default

    SCAR Code:
    makefullbows;
      makefullbows;
      makefullbows;
      makefullbows;
      makefullbows;
      makefullbows;
      makefullbows;
      makefullbows;

    Add MakeFullBows as an integer...At the beginning of the MakeFullBows put MakeFullBows := 0, then at the end of the MakeFullBows procedure, add MakeFullBows := MakeFullBows+1.

    Instead of putting MakeFullBows 5 times, do:
    SCAR Code:
    Repeat
      MakeFullBows
    Until(MakeFullBows=9)

    There are a few wait times that need randomisation...I'll add that...and you don't need:
    SCAR Code:
    CurrentPlayer:= Player0;

    As for standards....well...you need to fix them up...I'll do them for you...give me a few minutes

    Here's the script:

    SCAR Code:
    program PieStringer;
    {.include SRL/SRL.Scar}
    //Instructions
    //Have bs in first bank spot bows in second.
    //Find a world with not lot of people.

    ////////////////////////////////////////////
    var
      xwhite, xyellow, allwhite, allyellow, bowstringed, MakeFullBows2
      : Integer;

    const
    RunAwayDir = 'S';
    BowsToDo = 1017; //How many bows you need to do add +17, example:1000 Bows = 1017 BowsToDo
    Player0 = 0;

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

    {///////////////////Set up your player//////////////////////}
      Players[0].Name   := '';// your user name
      Players[0].Pass   := '';//your password
      Players[0].Nick   := '';// your nick name
      Players[0].Active := True;
    end;

    ////////////////////////////dont touch please/////////////////////////////
    Procedure Loadingbitmap;
    begin
      xwhite := BitmapFromString(9, 8, 'z78DA333040003724604084382' +
           'E35C4A8A74417F1AEA2BF0BC90B43E275010051AB6079');

      xyellow := BitmapFromString(8, 7, 'z78DA333000013720809' +
           '1C8009738A62C7E95E4A927C60DF4710FF1E10300667947F1');

      allwhite := BitmapFromString(17, 9, 'z78DA333040003724804BC' +
           '400AF7AF2C4A96B1AFD6DC10F46436CD41652C501022DD2CD');

      allyellow := BitmapFromString(17, 9, 'z78DA3330400037208091' +
           'B8440CF0AA274F9CBAA6D1DF16FCE468888DDA42AA3800C8E7C5E' +
           '9');
    end;

    Procedure RunAway;
    begin
      RunAwayDirection(RunAwayDir);
      Wait(12000+random(2000));
      RunBack;
    end;

    Procedure Randoms;
    begin
      FindTalk;
      wait(10+Random(15));
      FindNormalRandoms;
      if(FindFight)then
      RunAway;
    end;

    Procedure Bank;
    var
      x, y, fs, fs2 : Integer;
    begin
      repeat
        randoms;
        Flag;
        if (FindObj(x, y, 'booth', 607324, 10)) then
        Mouse(x, y, 4, 4, False)
        else
        if (FindObj3(x, y, 'booth', 7243412, 10)) then
        Mouse(x, y, 4, 4, False)
        else
        if (FindObj3(x, y, 'booth', 6324369, 10)) then
        Mouse(x, y, 4, 4, False);
        Wait(250+random(20));
        if (ClickOption('quickly', 1)) then
        begin
        Flag;
        repeat
        Wait(100+random(20));
        fs := fs + 1;
        until (BankScreen) or (fs >= 50);
        end;
        fs2 := fs2 + 1;
        until (BankScreen) or (fs2 > 5);
    end;



    Procedure TakeBowsAndStrings;
    begin
      FixBank;
      Wait(2000+random(250));
      Mouse(92,75,3,3,false);
      Wait(1000+random(250));
      ChooseOption(x,y,'x');
      Wait(3000+random(250));
      SendKeys('13'+chr(13));
      Wait(2000+random(250));
      Mouse(142,75,3,3,false);
      Wait(1000+random(250));
      ChooseOption(x,y,'x');
      Wait(1000+random(250));
      SendKeys('14'+chr(13));
      Mouse(92,75,3,3,true);
      Wait(1000+random(250));
      Mouse(486,40,2,2,true);
    end;

    Procedure SetInvInPos;
    begin
      Wait(3000+random(250));
      Mouse(647,187,3,3,true);
    end;

    Procedure MakeFullBows;
    begin
      MakeFullBows2 := 0;
      Mouse(709,444,3,3,true);
      Wait(2000+random(250));
      Mouse(666,441,3,3,true);
      Wait(1000+random(250));
      Mouse(709,444,3,3,true);
      Wait(2000+random(250));
      Mouse(666,441,3,3,true);
      MakeFullBows2 := MakeFullBows2 + 1;
    end;

    Procedure DepositItAll;
    begin
      Bank;
      Mouse(581,224,3,3,false);
      Wait(2000+random(250));
      ChooseOption(x,y,'all');
    end;

    Procedure LetsDebug;
    begin
      WriteLn('  Running Time: ' + (TimeRunning) + '')
    end;

    begin
      setupSRL;
      Loadingbitmap;
      declareplayers;
      activateclient;
      loginplayer;
      repeat
        Bank;
        takebowsandstrings;
        setinvinpos;
        wait(500);
          Repeat
          makefullbows;
          Until(MakeFullBows2=9);
        wait(1500+random(20));
        bank;
        wait(1000+random(20)) ;
        deposititall;
        wait(1000+random(20));
       until (bowstringed >= bowstodo);
         if (bowstringed >= bowstodo) then
           begin
           Logout;
           terminateScript;
      end;
    end.
    [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]

  6. #6
    Join Date
    Mar 2007
    Location
    In your computer
    Posts
    244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, tnx man , i will add the make full bows thing in my next version ty.

  7. #7
    Join Date
    Aug 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    on the new script it goes into bank but it clicks EXAMINE instead of "x"

  8. #8
    Join Date
    Mar 2007
    Location
    In your computer
    Posts
    244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    O, well, iam not gonna update the script, cause iam not member, well where in script it sais chooseoption(x,y,'X') change the x to ( x).
    that should work.
    Even If You Are On Your Way, You Will Get Run Over If You Just Sit There.
    -ILikePie1995.

    My Best Script I Yet Made, Go Check It Out, Its In The Fighting Section. Look For UndeadKiller!

    GET FREE CASH!!!READ ALL ABOUT IT!!!
    http://www.AdPaid.com/ptr/pages/join...d=ilikepie1995

    JOIN AdPaid.Com NOW!!!ITS OWNAGE!!!
    http://www.AdPaid.com/ptr/pages/conf...d=ilikepie1995

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
  •