Results 1 to 11 of 11

Thread: Super Power Chopper (First)

  1. #1
    Join Date
    Dec 2011
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Super Power Chopper (First)

    Hello, this is my first EVER script. I made this over the pat few days using YoHo's scripting tutorial. it's very rough and doesn't use smart (yet). I would appreciate any help and or constuctive critiscism you have avaliable. Please test and tell me how it works!

    Code:
    Program SuperPowerChopper;
    
    {.include/SRL/SRL.simba}
    {.include SRL/SRL/Misc/SMART.simba}
    {.include SRL\SRL.simba}
    {.Include SRL\SRL\Misc\Debug.simba}
    
    const
      SmartWorld = 15;              // Which World/Server do you want to use?
      SmartMembers = True;     //  Is it a Members World?
      SmartSigned = True;         //  Signed/UnSigned Client?
      SmartSuperDetail = False;    //  Use Super Detail?
      Version           = '1.0';
      NumbOfPlayers     = 1;
      StartPlayer       = 0;
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := ''; //Username
      Players[0].Pass := ''; //Password
      Players[0].Nick := ''; //4 character Nickname for you character
      Players[0].Active := True;
      Players[0].Pin := ''; //Pin, leave blank if none
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;
    
    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;
    
    Procedure Antiban; //Antiban, Credits to YoHo
    Begin
      Case Random(192) Of
        0: HoverSkill('Woodcutting', False);  //skill
        1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
        2: ExamineInv;
        3: RandomAngle(1);
        4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
        5: HoverSkill('random', False);
      End;
    End;
    
    function TreeColor: Integer; //Credits To ACA
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
      H, S, L: Extended;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(1);
    
      FindColorsSpiralTolerance(MMCX, MMCY, arP, 3030597, MMX1, MMY1, MMX2, MMY2, 29);
      if (Length(arP) = 0) then
      begin
        Writeln('Failed to find the color');
        ColorToleranceSpeed(tmpCTS);
        Exit;
      end;
    
      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);
    
      for i := 0 to arL do
      begin
        ColorToHSL(arC[i], H, S, L);
    
        if (H >= 9.78) and (H <= 12.20) and (S >= 19.28) and (S <= 20.77) and (L >= 16.65) and (L <= 28.45) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);
    
          if (X >= 2.53) and (X <= 7.51) and (Y >= 2.60) and (Y <= 7.94) and (Z >= 1.86) and (Z <= 5.16) then
          begin
            Result := arC[i];
            Writeln('AutoColor = ' + IntToStr(arC[i]));
            Break;
          end;
    
      ColorToleranceSpeed(tmpCTS);
    
      if (i = arL + 1) then
        Writeln('AutoColor failed in finding the color.');
    end;
      end;
    
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if (i = arL + 1) then
        Writeln('AutoColor failed in finding the color.');
    end;
    Function ChopDown:Boolean; //The Main Function, the chopping of the trees
    Var
      x, y , PlusOne, TreeCounter: Integer;
    
    Begin;
      PlusOne:= InvCount + 1
      x:= MSCX;
      y:= MSCY;
      If FindObjTPA(x, y, TreeColor, 3, 1, 15, 80, 600, ['Chop'])  Then
    Begin
       StatsGuise('Horay, We found a tree');
       Case Random(2) Of
        0: Mouse(x, y, 5, 5, True);
        1: Begin
            Mouse(x, y, 5, 5, False);
            Wait(100+Random(100));
            WaitOption('Chop', 500);
             End;
    
        end;
    
          Flag;
    
        MarkTime(TreeCounter);
    
        Repeat;
        FindNormalRandoms;
        StatsGuise('Antiban, Please wait!');
          Antiban;
          wait(1000);
         Until (InvCount=PlusOne) Or (TimeFromMark(TreeCounter) > 3500)
    
    
      End;
    
    End;
    Procedure DropLogs;
    Var
      x, y, LogDTM, I:Integer;
      SlotBox:TBox;
      LogPattern:TIntegerArray;
    
    Begin
    
        LogDTM := DTMFromString('mwQAAAHic42RgYHBmYmBwBGIfIA4EYicgNgZiEyA2B2IvIH4KVHcbiB8D8Ssgfg/Ebxgg4neB+CYQe5rJA0kmDOxmKAqmbXSlGAiB/0DMSASGAwDH/w0r');
        LogPattern:=[1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,24,28];
        StatsGuise('Dropping All Your Logs!');
        For I:=0 To 27 Do
        Begin
          FindNormalRandoms;
          SlotBox:=InvBox(LogPattern[I]);
          If FindDtm(LogDTM, x, y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
          Begin
            MouseItem(LogPattern[I], MOUSE_RIGHT);
            ChooseOption('Drop');
          End;
        End;
    
        FreeDTM(LogDTM);
    
    
    End;
    
    
    
    
    
    Begin
      DeclarePlayers;
      Smart_Server := SmartWorld;
      Smart_Members := SmartMembers;
      Smart_Signed := SmartSigned;
      Smart_SuperDetail := SmartSuperDetail;
      SetupSRL;
      If not (LoggedIn) then
    LoginPlayer;
    TreeColor;
    
    repeat
      ChopDown;
      if InvFull Then
        DropLogs;
      Until (false);
    
    end.
    Area is was made to powerchop in:


    I hope I don't hurt your guy's eye too bad
    Anyways, enjoy! (I think this is a decent FIRST script)
    I will get better

    ~Trent~

    Credits:
    Thank you to YoHo for his PMS and Tuts. They are what made this script happen!

    Edit: Updated!
    Last edited by Supertrent1; 02-03-2012 at 10:42 PM.

  2. #2
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Its nice to see loads of new members making loads of scripts
    Mat



    ^^

  3. #3
    Join Date
    Dec 2011
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Mat View Post
    Its nice to see loads of new members making loads of scripts
    Mat
    I know, it's great to see all of us. Maybe we will all get good and make osme epic scripts together

  4. #4
    Join Date
    Dec 2011
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Updates:
    Included SMART, Fixed colors, a few other little tweaks.

  5. #5
    Join Date
    Mar 2011
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Congrats on your script i will run a proggy for you on one of my disposables

  6. #6
    Join Date
    Dec 2011
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by trials6112 View Post
    Congrats on your script i will run a proggy for you on one of my disposables
    Thanks, tell me what you think!
    Hi I'm new and just starting to script. Check out my first Simba script ever here:
    http://villavu.com/forum/showthread.php?t=73533
    If I helped you:
    http://i.picasion.com/pic49/4d86097a...49046f1fb2.gif

  7. #7
    Join Date
    Dec 2011
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    testing it on my skiller i post proggy later.

  8. #8
    Join Date
    Jan 2012
    Location
    i am the monster under yo bed!!
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    haha im doing the smae thing with smart though :P except mines in draynor lol

  9. #9
    Join Date
    Jan 2012
    Location
    Minneapolis, Mn
    Posts
    185
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    One thing I saw at first glance: {.include SRL\SRL.simba} was used twice.

  10. #10
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default

    Get rid of the download button, just upload it to SRL.
    I like the the fact you gave credit to ACA




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

  11. #11
    Join Date
    Dec 2011
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by R4nd0m View Post
    Get rid of the download button, just upload it to SRL.
    I like the the fact you gave credit to ACA
    Doing this right now
    Hi I'm new and just starting to script. Check out my first Simba script ever here:
    http://villavu.com/forum/showthread.php?t=73533
    If I helped you:
    http://i.picasion.com/pic49/4d86097a...49046f1fb2.gif

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
  •