Results 1 to 14 of 14

Thread: Bone Collector

  1. #1
    Join Date
    Feb 2013
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default Bone Collector

    I thought this section might be more appropriate. But here is my first script, with a combination of a couple tutorials and a my former pascal knowlege I have some up with this bone collector for project 2006:


    Simba Code:
    Program BoneCollecter;
    {$I SRL/SRL.Simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I P06Include/P06Include.Simba}
    Const
      UPTEXT1 = 'Take B';
      UPTEXT2 = 'Take Bo';
      UPTEXT3 = 'Take Bon';
      UPTEXT4 = 'ake Bone';
      UPTEXT5 = 'Take Bones';
      UPTEXT6 = 'ake Bones';
      UPTEXT7 = 'ke Bones';
      UPTEXT8 = 'onze Arr';
      UPTEXT9 = 'nze Arro';
    Var
      Bones:Integer;
    Procedure BuryBones;
    Var
      X,Y:Integer;
    Begin
      if FindDTM(Bones, x, y, 565, 230, 736, 485) then
        Begin
        if FindDTM(Bones, x, y, 565, 230, 609, 484) then
        Begin
          mmouse(x, y, 1, 1);
          clickmouse2(mouse_Left);
          Wait(RandomRange(250, 400));
        End;
        if FindDTM(Bones, x, y, 610, 230, 646, 484) then
        Begin
          mmouse(x, y, 1, 1);
          clickmouse2(mouse_Left);
          Wait(RandomRange(250, 400));
        End;
        if FindDTM(Bones, x, y, 645, 230, 698, 484) then
        Begin
          mmouse(x, y, 1, 1);
          clickmouse2(mouse_Left);
          Wait(RandomRange(250, 400));
        End;
        if FindDTM(Bones, x, y, 692, 230, 740, 484) then
        Begin
          mmouse(x, y, 1, 1);
          clickmouse2(mouse_Left);
          Wait(RandomRange(250, 400));
        End;
      End;
      repeat
      BuryBones;
      until
      (FindDTM(Bones, x, y, 565, 230, 736, 485)=false)
      Exit;
    End;
    Function GetBoner: Boolean;
    Var
      tmpCTS,i, L,Counter: Integer;
      ObjTPA: TPointArray;
      ObjATPA: T2DPointArray;
      X,Y,DMCount,Moves: Integer;
    Begin
      Moves:=0;
      DMCount:=0;

      tmpCTS := GetToleranceSpeed;
      SetColorToleranceSpeed(2);

      SetToleranceSpeed2Modifiers(0.16, 0.17);
      FindColorsTolerance(ObjTPA, 14013915, 1, 1, 514, 338, 11);
      SplitTPAWrap(ObjTPA, 10, ObjATPA);

      SortATPASize(ObjATPA,True);
      SetColorToleranceSpeed(tmpCTS);
      SetToleranceSpeed2Modifiers(0.02, 0.02);

      DMCount:=RandomRange(3,5);
      L := High(ObjATPA)
      MarkTime(Counter);
      For i := 0 To L Do
        Begin
          MiddleTPAEx(ObjATPA[i], X, Y);

          Repeat Begin

            Moves:=Moves+1;
            mmouse(x, y, 1, 1);
            Wait(RandomRange(400, 500));
            If (P06_IsUpTextMultiCustom([''+ UPTEXT1,''+UPTEXT2, ''+UPTEXT3,''+UPTEXT4,''+UPTEXT5,''+UPTEXT6,''+UPTEXT7,''+UPTEXT8,''+UPTEXT9])) Then
            Begin
              //P06_ClickCurrent(False);
              clickmouse2(mouse_Right);
              Wait(RandomRange(200, 500));
              P06_ChooseOptionMulti(['Take Bones','ake ones']);
              Wait(RandomRange(200, 500));
              While IsMoving do
              Wait(RandomRange(100, 300));
              Exit;
            End;
          End; Until (Moves > DMCount)
          If (TimeFromMark(Counter) > 5000) Then
          Begin
            Break;
          End;
        End;
      Result:=False;
    End;
    Procedure Main;
    Begin
      If (P06_InvFull) Then
      Begin
       BuryBones;
      End;
     GetBoner;
    End;
    Begin
    SetupSRL;
    SetupP06Include;
    MouseSpeed := 17;
    Bones := DTMFromString('mWAAAAHicY2FgYPBhYmDwAmIPKJZjZGAQB2JVRgh77qRJDLs2bGBYNnsWw851axn4gXqQMSMaBgEA4EIJuQ==');
    GetBoner;
    repeat
    Main;
    Until False;
    FreeDTM(Bones);
    End.

  2. #2
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    Well done on your first script, already got TPAs, . Gotta love em!
    Hope to see more from u Don't be afraid of the tutorial section, that's where the magic is.

    Creds to DannyRS for this wonderful sig!

  3. #3
    Join Date
    Feb 2012
    Location
    DON'T PM ME ASKING FOR STUFF
    Posts
    2,170
    Mentioned
    38 Post(s)
    Quoted
    423 Post(s)

    Default

    Well done, I have a few suggestions though!

    1. You should avoid naming stuff weirdly (Such as UPTEXT1)
    2. Let's try moving away from DTM's and moving to TPAs
    3. While we are looking at TPA's it's good to focus on Debugging aswell! (Such as painting on everything it finds).


    Tutorials:
    http://villavu.com/forum/showthread.php?t=74997
    http://villavu.com/forum/showthread.php?t=90767


    Once again well done!

  4. #4
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Quote Originally Posted by xtrapsp View Post
    Well done, I have a few suggestions though!

    1. You should avoid naming stuff weirdly (Such as UPTEXT1)
    2. Let's try moving away from DTM's and moving to TPAs
    3. While we are looking at TPA's it's good to focus on Debugging aswell! (Such as painting on everything it finds).


    Tutorials:
    http://villavu.com/forum/showthread.php?t=74997
    http://villavu.com/forum/showthread.php?t=90767


    Once again well done!
    This is my brother that made a account and leaked this, it wasn't even fully operational.

  5. #5
    Join Date
    Nov 2011
    Location
    England
    Posts
    3,072
    Mentioned
    296 Post(s)
    Quoted
    1094 Post(s)

    Default

    Quote Originally Posted by rjj95 View Post
    This is my brother that made a account and leaked this, it wasn't even fully operational.
    if only I could believe you....

  6. #6
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Quote Originally Posted by Ollybest View Post
    if only I could believe you....
    I'm still working on it.. so use it if you want it doesn't work.

    I put a password to visit this site and powerbot so he can't troll/make new accounts otherwise if he makes another on here I get banned

  7. #7
    Join Date
    Nov 2011
    Location
    England
    Posts
    3,072
    Mentioned
    296 Post(s)
    Quoted
    1094 Post(s)

    Default

    uh.... you go all emo and quit the day "he" does this..... hmm

  8. #8
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Quote Originally Posted by Ollybest View Post
    uh.... you go all emo and quit the day "he" does this..... hmm
    ??
    I'm not saying the posts I made were his? The account 'Schnauzer' and all the posts by 'Schnauzer' are his, and all the posts by 'RJJ95' are mine. I think your misunderstanding me thinking im accusing him of posting on RJJ95. Oh and he does have another account on here: Thehatered

  9. #9
    Join Date
    Jun 2012
    Posts
    4,867
    Mentioned
    74 Post(s)
    Quoted
    1663 Post(s)

    Default

    Quote Originally Posted by rjj95 View Post
    ??
    I'm not saying the posts I made were his? The account 'Schnauzer' and all the posts by 'Schnauzer' are his, and all the posts by 'RJJ95' are mine. I think your misunderstanding me thinking im accusing him of posting on RJJ95. Oh and he does have another account on here: Thehatered
    No, Olly was saying that you were the one who made the Schauzer acount.

  10. #10
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Quote Originally Posted by BMWxi View Post
    No, Olly was saying that you were the one who made the Schauzer acount.
    No.

  11. #11
    Join Date
    Mar 2007
    Posts
    5,125
    Mentioned
    275 Post(s)
    Quoted
    901 Post(s)

    Default

    Quote Originally Posted by rjj95 View Post
    No.
    It's just weird that as soon as you 'rage-quit', the account was created and suddenly had 2 scripts released...

  12. #12
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Quote Originally Posted by Justin View Post
    It's just weird that as soon as you 'rage-quit', the account was created and suddenly had 2 scripts released...
    Yes. He has access to the family computer. Therefor all my scripts.

  13. #13
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by rjj95 View Post
    Yes. He has access to the family computer. Therefor all my scripts.
    Yeahhhh sureeee, lol just admit its your account rjj, not like anyone here is going to hate on your for making a second account
    Current Project: Retired

  14. #14
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Quote Originally Posted by Gucci View Post
    Yeahhhh sureeee, lol just admit its your account rjj, not like anyone here is going to hate on your for making a second account
    Leave me alone it's not my account.

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
  •