Results 1 to 8 of 8

Thread: AWE Cutter

  1. #1
    Join Date
    Nov 2006
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Awe1

    AWE
    A:Auto
    W:Willow Chopper
    E:Evolution

    I Have Updated it out of beta. Hopefully it will work nicely now. I am working on AWE 2 which will be a pay script. Post your proggies

    Vesrion History:
    V0.1B -It compiles
    V0.1 -It works, hopefully
    V2 -Coming soon, it will be l337

    SCAR Code:
    //              ____
    //             / _  \
    //            / |_|  \
    //           /   __   \__      __
    //           |  /  \  |\ \ /\ / /____
    //           |  |  |  | \ V  V //  -_)
    //           |__|  |__|  \_/\_/ \____|

    //                    AND NOW A BANKER!
    //                      ~Remastered~
    //[------------------| Details |------------------]
    //[         Title: Akarims PowerCutter            ]
    //[         Version: Version 3.5                  ]
    //[         Creator: Akarim                       ]
    //[         Contact: [email]Jiwman88@hotmail.com[/email]         ]
    //[---------------| Description |-----------------]
    //[ This script will automaticly cut the trees    ]
    //[ in draynor and (Willow) then once your pack is]
    //[ full it will bank the logs, Thus gaining exp  ]
    //[ in the Woodcutting skill. This script has SRL ]
    //[ with anti-randoms and anti-fights. Have Fun :)]
    //[---------------| Instructions |----------------]
    //[ 1) Start next to the tree you want to cut     ]
    //[ 2) Fill in the setup on lines -----           ]
    //[ 3) Fill in lines -------------                ]
    //[ 4) Set Ent color in line ---                  ]
    //[ 5) Drag the crosshair onto Runescape          ]
    //[ 6) V-Bright, 32 bitcolor                      ]
    //[ 7) Press play and watch it cut and drop 1 load]
    //[ Have Fun, to post all bugs and reports please ]
    //[-----------------------------------------------]
    //[ Official Web-Thread-none yet                  ]
    //[                                               ]
    //[-----------------------------------------------}
    program WillowExtreme;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/WoodCutting.scar}

    const
    ////////////////SET THESE UP/////////////
    Username='Woo';
    Nick='Woow';
    Waittime=3000;  //<--3 Seconds Default
    WC1=1;           //<--Set Willow Color
    WC2=2;           //<--Set Willow Color
    WC3=3;           //<--Set Willow Color=
    BC1=9;           //<--Set Color Of Banker
    BC2=10;           //<--Set Color Or Banker
    BC3=11;           //<--Set Color of Banker
    Tri=12;           //<--Set how many trips to do
    LC1=13;           //<--Set Log Color
    LC2=14;           //<--Set Log Color
    LC3=15;           //<--Set Log Color

    var
    L:integer;
    T:integer;
    E:integer;

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

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

         Players[1].Name :='';
         Players[1].Pass :='';
         Players[1].Nick :='';
         Players[1].Loc  :='';
         Players[1].Skill:='';
         Players[1].Active:=True;

         Players[2].Name :='';
         Players[2].Pass :='';
         Players[2].Nick :='';
         Players[2].Loc  :='';
         Players[2].Skill:='';
         Players[2].Active:=True;

         Players[3].Name :='';
         Players[3].Pass :='';
         Players[3].Nick :='';
         Players[3].Loc  :='';
         Players[3].Skill:='';
         Players[3].Active:=True;
    end;


    Procedure Printout;

    begin
     WriteLn(' _____                        _____      _   _             ')
     WriteLn('|  __ \                      / ____|    | | | |            ')
     WriteLn('| |__) |____      _____ _ __| |    _   _| |_| |_ ___ _ __  ')
     WriteLn('|  ___/ _ \ \ /\ / / _ \ ''__| |   | | | | __| __/ _ \ ''__| ')
     WriteLn('| |  | (_) \ V  V /  __/ |  | |___| |_| | |_| ||  __/ |    ')
     WriteLn('|_|   \___/ \_/\_/ \___|_|   \_____\__,_|\__|\__\___|_|    ')
     WriteLn('                      ~Remastered~')
     WriteLn('                       NOW BANKS!')
    end;

    Procedure Updates;
    begin
     WriteLn('Hello, thank you for using A.W.E.')
     WriteLn('Check for updates regularly!')
     WriteLn('Thanks to Arr0w for autoresponder :)');
    end;

    Procedure LoadBTMPS;
     var BankSymbol, FishSymbol :integer;
     begin
            FishSymbol := BitmapFromString(21, 17, 'z78DAEDD5D10A80200C' +
           '05D05FDA0A713D9AD1FF7F528485A33529B6822085FB50D2B9052' +
           '9C03F2E0F6CCE87C544298E414BD601BDDCB6A836A91DF04D57F9' +
           '1A5FD01517724AF39E18E2DCEBE2F1EE8D0E42E7A24C4D27A2387' +
           '8E89B5566AB03EF69D7013B9A0E2975B9664DBF773F7FFEBA2E43' +
           'C962ED570CBADAA15A5CE4C9DBD63E7E7F9CB4B434E9F6BDCE6BE' +
           '7BFBBCFBF72E2D8CFB8053C63B21E');

             BankSymbol := BitmapFromString(22, 24, 'z78DAED95D10A80200C' +
           '457F494B141F53F3FF3FA960040B59AD74F69057B844A0F7C0E65' +
           '46A68A8424EE97D51DE2537DA90C31A9C8FF3C9E1BF080FCA2DD3' +
           'D79CB449373CC2E9A5BB688D9A16EBB33F4804187016FEC6DE80A' +
           '148E730402E76BCF7715D5E318097BB2418A87EA06AD1968122A1' +
           'EA22C7C0EF8D2A06C6DDE433544D89CBBBC9EF87B6930A1870169' +
           '50E2E31B1C1E17C6A2EF57FBFBABE9B43DFE8A735DD006D2B7F13' +
           '');
           
     end;


    Procedure Setup2;
     begin
      setupsrl;
      highestangle;
      MakeCompass('N');
      FindEnt(WC1);
      FindEnt(WC2);
      FindEnt(WC3);
      findnormalrandoms;
      Findmaze;
      findmime;
      findlamp('Woodcutting');
      FindHead;
      AttachHead;
      TalkToRand;
      DwarfItem;
      SolvePinBall;
      FindScapeRune;
      SolveFrog;
      If (FindFight) Then
      Runawaydirection('N')
      Wait(25000+Random(5000))
      RunBack;
      If (Finddead) then
      RandomNextPlayer(True);
     end;

    Procedure Responder;
    begin
      if (InChat('Mining lvls') or
        InChat('Mining lvls?') or
        InChat('Mine lvls') or
        Inchat('Mine lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Mining')))
      end;

      if (InChat('Wc lvls') or
        InChat('Wc lvls?') or
        InChat('Woodcut lvls') or
        InChat('Woodcut lvls?') or
        InChat('Woodcutting lvls') or
        InChat('Woodcutting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
      end;
      if (InChat('Fish lvls') or
        InChat('Fish lvls?') or
        InChat('Fishin lvls') or
        InChat('Fishin lvls?') or
        InChat('Fishing lvls') or
        InChat('Fishing lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Fishing')))
      end;
      if (InChat('Attack lvls') or
        InChat('Attack lvls?') or
        InChat('Atack lvls') or
        InChat('Atack lvls?') or
        InChat('Attac lvls') or
        InChat('Attac lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Attack')))
      end;

      if (InChat('Strengh lvls') or
        InChat('Strengh lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Strengh')))
      end;

      if (InChat('Defenc lvls') or
        InChat('Defenc lvls?') or
        InChat('Defence lvls') or
        InChat('Defence lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Defence')))
      end;

      if (InChat('Hp lvls') or
        InChat('Hp lvls?') or
        InChat('Hitpoint lvls') or
        InChat('Hitpoint lvls?') or
        InChat('Hitpoints lvls') or
        InChat('Hitpoints lvls?') or
        InChat('Hitp lvls') or
        InChat('Hitp lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
      end;

      if (InChat('Range lvls') or
        InChat('Range lvls?') or
        InChat('Rangin lvls') or
        InChat('Rangin lvls?') or
        InChat('Ranged lvls') or
        InChat('Ranged lvls?') or
        InChat('Ranging lvls') or
        InChat('Ranging lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Ranged')))
      end;

      if (InChat('Pray lvls') or
        InChat('Pray lvls?') or
        InChat('Prayer lvls') or
        InChat('Prayer lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Prayer')))
      end;

      if (InChat('Mage lvls') or
        InChat('Mage lvls?') or
        InChat('Mag lvls') or
        InChat('Mag lvls?') or
        InChat('Magic lvls') or
        InChat('Magic lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Magic')))
      end;

      if (InChat('Cook lvls') or
        InChat('Cook lvls?') or
        InChat('Cookin lvls') or
        Inchat('Cookin lvls?') or
        InChat('Cooking lvls') or
        InChat('Cooking lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Cooking')))
      end;

      if (InChat('Fletch lvls') or
        InChat('Fletch lvls?') or
        InChat('Fletching lvls') or
        InChat('Fletching lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Fletching')))
      end;

      if (InChat('Firemaking lvls') or
        InChat('FireMaking lvls?') or
        Inchat('Fire making lvls') or
        InChat('Fire making lvls')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Firemaking')))
      end;

      if (InChat('Craft lvls') or
        InChat('Craftt lvls?') or
        InChat('Craftin lvls') or
        InChat('Crafting lvls?') or
        InChat('Crafting lvls') or
        InChat('Crafting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Crafting')))
      end;

      if (InChat('Smelt lvls') or
        InChat('Smelt lvls?') or
        InChat('Smelting lvls') or
        InChat('Smelting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Smelting')))
      end;

      if (InChat('Rc lvls') or
        InChat('Rc lvls?') or
        InChat('Runecraft lvls') or
        InChat('Runecraft lvls?') or
        InChat('Runecrafting lvls') or
        InChat('Runecrafting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Runecraft')))
      end;

      if (InChat(UserName + '?')) then
      begin
        TypeSend('Yeah?')
      end;

      if (InChat('Wna b freinds?') or
        InChat('Wna be freinds?') or
        InChat('Wana b freinds?') or
        InChat('Wana be freinds?') or
        InChat('Want 2 b freinds?') or
        InChat('Want 2 be freinds?') or
        InChat('Want to b freinds?') or
        InChat('Want to be freinds?')) then
      begin
        TypeSend('No ty')
      end;

      if (InChat('Hi' + UserName) or
        InChat('Hey' + UserName) or
        InChat('Hello' + UserName)) Then
      begin
        TypeSend('Hi')
      end;

      if (InChat('You are a noob' + UserName) or
        InChat( UserName + 'you are a noob')) then
      begin
        TypeSend('Okay')
      end;

      if (InChat('What music do you people like?') or
        InChat('Wat music do you guys like?') or
        InChat('What music you ppl like?') or
        InChat('Wat music do yoo  peeps like')) then
      begin
        TypeSend('Rock FTW!!')
      end;
    end;

    Procedure Notban;
     var
     NoBan : Integer;
      begin
       if ( not ( LoggedIn )) then Exit;
       NoBan:=Random(50)
        case NoBan of
         1: RandomRClickEvery(2 + Random(15));
         2: hoverskill('woodcutting', false);
         3: hoverskill('random', false);
         4: DoEmote(1 + Random(20));
         5: BoredEvery(9 + Random (21));
         6: PickUpMouse;
         7: LeaveScreenEvery(10 + Random(5));
         8: RotateEvery(20 + Random(5));
        end;
       end;


    Procedure NexttotreeCheck;
     var FishSymbol, x, y: Integer;
     begin
      FishSymbol := BitmapFromString(21, 17, 'z78DAEDD5D10A80200C' +
           '05D05FDA0A713D9AD1FF7F528485A33529B6822085FB50D2B9052' +
           '9C03F2E0F6CCE87C544298E414BD601BDDCB6A836A91DF04D57F9' +
           '1A5FD01517724AF39E18E2DCEBE2F1EE8D0E42E7A24C4D27A2387' +
           '8E89B5566AB03EF69D7013B9A0E2975B9664DBF773F7FFEBA2E43' +
           'C962ED570CBADAA15A5CE4C9DBD63E7E7F9CB4B434E9F6BDCE6BE' +
           '7BFBBCFBF72E2D8CFB8053C63B21E');
          if(findbitmap(FishSymbol, x, y))then
          MakeCompass('N');
          WriteLn('Found the tree spot.');
          Setup2;
     end;

    Procedure Findandchop;
    var x,y :integer;
    begin
      Notban;
      setup2;
      Responder;
      If (FindFight) Then
       begin
         Runawaydirection('N')
         Wait(25000+Random(5000))
         RunBack;
       end;
      if findcolorspiral(x,y,WC1,3,3,515,336)or
         findcolorspiral(x,y,WC2,3,3,515,336)or
         findcolorspiral(x,y,WC3,3,3,515,336) then
       begin
         Notban;
         Responder;
         Case Random(20) of
           0:TypeSend('lalala');
           1:TypeSend('Yes WC lvl!');
           2:TypeSend('Hey Hey everyone');
           3:TypeSend('700 more to go....');
           4:TypeSend('Bored....');
           5:TypeSend('Almost there!');
           6:TypeSend('he he he');
           7:TypeSend('I whish i was a higher lvl');
         end;
         mmouse(x,y,2,2)
         if(IsUpTextMulti('Chop','op','Ch')) then
          getmousepos(x,y);
          Mouse(x,y,0,0,true)
          Begin
            Case random(3) of
              1: hoverskill('woodcutting', false);
              2: PickUpMouse;
              3: LeaveScreenEvery(10 + Random(5));
            end;
          end;
          wait((WAITTIME*1000)+Random(500))
          if not loggedin then
           RandomNextPlayer(True);
          L := L*28;
          T := T+1;
       end;
    end;

    Procedure Bank;
      var BankSymbol, x, y: Integer;
    begin
      Setup2;
      Notban;
      Responder;
      BankSymbol := BitmapFromString(22, 24, 'z78DAED95D10A80200C' +
           '457F494B141F53F3FF3FA960040B59AD74F69057B844A0F7C0E65' +
           '46A68A8424EE97D51DE2537DA90C31A9C8FF3C9E1BF080FCA2DD3' +
           'D79CB449373CC2E9A5BB688D9A16EBB33F4804187016FEC6DE80A' +
           '148E730402E76BCF7715D5E318097BB2418A87EA06AD1968122A1' +
           'EA22C7C0EF8D2A06C6DDE433544D89CBBBC9EF87B6930A1870169' +
           '50E2E31B1C1E17C6A2EF57FBFBABE9B43DFE8A735DD006D2B7F13' +
           '');
      if(findbitmap(BankSymbol, x, y))then
       wait(3000)
      Begin
        Case random(4) of
          1: MMouse(x,y,3,3)
          2: MMouse(X,y,4,4)
          3: MMouse(x,y,5,5)
          4: MMouse(x,y,6,6)
        end;
        getmousepos(x,y);
        Mouse(X,y,3,3,true)
        wait(7000)
        if findcolorspiral(x,y,BC1,3,3,515,336)or
           findcolorspiral(x,y,BC2,3,3,515,336)or
           findcolorspiral(x,y,BC3,3,3,515,336) then
         MMouse(X,y,3,3)
        getmousepos(x,y);
        Mouse(X,y,3,3,true)
        if(IsUpTextMulti('Bank','Ba','nk')) then
         Getmousepos(x,y);
         Mouse(x,y,0,0,true)
        if findcolorspiral(x,y,LC1,3,3,515,336)or
           findcolorspiral(x,y,LC2,3,3,515,336)or
           findcolorspiral(x,y,LC3,3,3,515,336) then
         getmousepos(x,y);
         Mouse(X,Y,3,3,true)
        getmousepos(x,y);
        Mouse(X,y,3,3,true)
        if(IsUpTextMulti('Deposit All', 'All', 'Al')) then
         getmousepos(x,y);
         Mouse(X,y,0,0,false)
        Begin
          Case random(50) of
            1: hoverskill('woodcutting', false);
            2: PickUpMouse;
            3: LeaveScreenEvery(10 + Random(5));
            4:TypeSend('lalala')
            5:TypeSend('Yes WC lvl!')
            6:TypeSend('Hey Hey everyone')
            7:TypeSend('700 more to go....')
            8:TypeSend('Bored....')
            9:TypeSend('Almost there!')
            10:TypeSend('he he he')
            11:TypeSend('I whish i was a higher lvl')
          end;
          begin
            if not loggedin then
             RandomNextPlayer(True);
          end;
        end;
      end;
    end;

    Procedure ProgressReport;
     begin
      WriteLn('==================================');
      WriteLn('Thanks for using my WillowChopper.');
      WriteLn('It has cut' + inttostr(l) + 'Loads.');
      WriteLn('It has done' + inttostr(t) + 'Trips.');
      WriteLn('==================================');
     end;
    begin
    repeat
    DeclarePlayers;
    Printout;
    Updates;
    LoadBTMPS;
    Setup2;
    Nexttotreecheck;
    FindandChop;
    until (InvFull) then
    Bank;
    ProgressReport;
    until(L>Tri*27);
    end.

    //(C) Akriam/G.A.S.P. Inc. 2006
    //Thanks to everyone who  helped :)

    Progress Reports (post yours):

    Bugs:

    AWE 2 Info:
    Me and G.A.S.P. (C) Staff are workin on AWE2, the next generation of log cutters. It will most likely be a pay script for anywhere from 500k-1M. It will also have 'extensions' you can purchase such as log burners and maybe a powerminer.

    It will have:
    -Auto Color
    -DTMS
    -Another Mouse Procedure option (Auose)
    -VERY random walking
    -VERY random Banking
    -An overall great script!

  2. #2
    Join Date
    Nov 2006
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Everyone, it is out of BETA! (I would appreciate some feedback, since no one even posted about the beta )

  3. #3
    Join Date
    Dec 2006
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    whats a mm color??
    for bank and tree

  4. #4
    Join Date
    Nov 2006
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    MM is bank, 1 second Im updating it, just realized an error.

    EDIT: Try it now

  5. #5
    Join Date
    Dec 2006
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 498: [Error] (16364:17): Identifier expected in script

    i always get this error

  6. #6
    Join Date
    Dec 2006
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    when i run it it does not bank them it gets stuck in bank

  7. #7
    Join Date
    Nov 2006
    Posts
    173
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    getting the same error on compiling:

    Line 523: Identifier expected in script.

  8. #8
    Join Date
    Nov 2006
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by durkaman13 View Post
    when i run it it does not bank them it gets stuck in bank
    So you got it to run Also what was the error, i tried alot of different ways. And about the bank, I will update that next time, does it cut okay though?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Gem cutter
    By bink830 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 11-30-2007, 02:49 AM
  2. Yew cutter?
    By julian0 in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 11-11-2007, 09:03 PM
  3. Yew Cutter
    By daddyproboot in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 07-27-2007, 02:22 PM

Posting Permissions

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