Page 2 of 4 FirstFirst 1234 LastLast
Results 26 to 50 of 86

Thread: First script (Willow cutter/banker)

  1. #26
    Join Date
    Nov 2007
    Location
    Helsinki
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice script, i am also planing on updating my willow cutter banker which was very good a year ago

  2. #27
    Join Date
    Nov 2007
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ent thing needs improv, but it's nice.

  3. #28
    Join Date
    Oct 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    To slow finding tree and bank so fix that

  4. #29
    Join Date
    Nov 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah i had trouble banking also. wouldent go to bank at all.

  5. #30
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Um it should make you go to the bank with no problems. Ive done it tons of times.
    I do visit every 2-6 months

  6. #31
    Join Date
    Jun 2007
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i logged in and then it logged me out lol

  7. #32
    Join Date
    Jun 2007
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    We made it to the willows. Trying to cut.
    We have reached full capacity, heading for the bank.
    We have reached full capacity, heading for the bank.
    We made it to the bank. Trying to bank.
    Deposited a full load of willows, now going to chop more
    NextPlayer

    lol that wasnt that great try to improve bank finding then getting back to willows

  8. #33
    Join Date
    Nov 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    that happened to me also. weird. but it works sometimes

  9. #34
    Join Date
    Oct 2007
    Location
    MD
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    very nice, works perfectly except for the ents; other than that its a masterpeice

  10. #35
    Join Date
    Nov 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    THIS IS TOATAL SWEET BBBBBBAAAAAAAANKEEEERRRR!!!
    Who ever reads this trust me downlaod the script this is the first one I have come by thast banks, I realy recomend downlaoding this.>One question chicken(creater of the script) do you like C++.

  11. #36
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    not to bad of a script...i really like the autoresponder you have in there...did you make that yourself?...if you made it yourself do i have permission to use it my one of my scripts and credit you for it?

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


  12. #37
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I give Hypersecret credit for the autoresponce script.
    I do visit every 2-6 months

  13. #38
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by zasz View Post
    Hypersecret i do give you permission to use my autoresponder. As long as you give me credit.
    are you serious?!?! you dont think i would notice a piece of my own work when i see it?? that is MY autoresponder you dipshit and you did NOT credit me for it and then you try and pass it off as your own, you are PATHETIC!!! lol

    SCAR Code:
    function AutoResponce:Boolean;
    var Responce, Lvl: String;
        Reply: Integer;
    begin
      if AutoRespond then
      if FindBlackChatMessage(Players[CurrentPlayer].Name) then Exit;
      if (InChat(Players[CurrentPlayer].Name)) then
      begin
        Reply := Random(10);
        case Reply of
          0: Responce := ('yea');
          1: Responce := ('wat');
          2: Responce := ('what');
          3: Responce := ('yeah');
          4: Responce := ('ya');
          5: Responce := ('??');
          6: Responce := ('yep that''s me');
          7: Responce := ('yes');
          8: Responce := ('hhmmm?');
          9: Responce := ('yep');
        end;
        TypeSend(Responce);
        Result := True;
        Responds := Responds + 1;
      end;
     
      if (InChatMulti('lol', 'lawl', 'haha')) or
         (InChatMulti('haha', 'rofl', 'lmfao')) or
         (InChatMulti('lmoa', 'funny', 'hehe')) then
      begin
        Reply := Random(10);
        case Reply of
          0: Responce := ('lol');
          1: Responce := ('rofl');
          2: Responce := ('lawl');
          3: Responce := ('lmao');
          4: Responce := ('lmfao');
          5: Responce := ('haha');
          6: Responce := ('haha');
          7: Responce := ('hehe');
          8: Responce := ('geez lol');
          9: Responce := ('roflmfao');
        end;
        TypeSend(Responce);
        Result := True;
        Responds := Responds + 1;
      end;
     
      if (InChatMulti('str', 'strength', 'str')) then
      begin
        Lvl := IntToStr(GetSkillLevel('strength'));
        Reply:= Random(5);
        case Reply of
          0, 2, 4: Responce := (Lvl);
          1: Responce := ('My str lvl is '+ Lvl);
          3: Responce := (Lvl +' is my str lvl');
        end;
        TypeSend(Responce);
        Result := True;
        Responds := Responds + 1;
      end;
     
      if (InChatMulti('att', 'attack', 'att')) then
      begin
        Lvl := IntToStr(GetSkillLevel('attack'));
        Reply:= Random(5);
        case Reply of
          0, 2, 4: Responce := (Lvl);
          1: Responce := ('My att lvl is '+ Lvl);
          3: Responce := (Lvl +' is my att lvl');
        end;
        TypeSend(Responce);
        Responds := Responds + 1;
        Result := True;
      end;
      Result := False;
    end;

    that is the exact copy from my autofighter....looks pretty damn familiar doesnt it??...geez you edited out the att and just put woodcut in there geez...

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


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

  15. #40
    Join Date
    Nov 2007
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sorry didnt work for me do i think it was my problem with slr....im sure it works good!

  16. #41
    Join Date
    Nov 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    pretty nice, thanks very much ^^

  17. #42
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    hypersecret sorry i kinda thought i saw it somewhere. Ill edit and give you credit in the 2.0 here.
    I do visit every 2-6 months

  18. #43
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    you mean...."yea i thought i COPIED and PASTED it from somewhere" not "saw" it somewhere, you cant see something that long and copy it perfectly...

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


  19. #44
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Dude i just got a dictionary and looked up synonyms and stuff, but anyway dude i gave you credit like 3 times, 1 in script and twice here on the forums.
    I do visit every 2-6 months

  20. #45
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Use FindObj its better.

  21. #46
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!! O M G!!!
    You copied like half of my script and no credits and i warned in my script to ask me before copieing anything!!!

    I Got So Much Proof, IN a sec i will post my script and urs, and u ppl will compare it! I THINK THAT U SHOULD GET BANNED!
    Woot woot.

  22. #47
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    My stuff, my procedures, my numbers, my texts??!?!?!??!?!?!?!

    YOUR SCRIPT, YOU COPIER.
    SCAR Code:
    program autowc;
    {.include SRL/SRL.Scar}
    {.include SRL/SRL/Skill/Woodcutting.Scar}

    Var x, y, H, M, S, WillowLog, responces, Willow, TotalWillows, Banked,
      EntsAvioded : Integer;
     
     Const
    willowtree= 2658424;
    RockColor =  4406840;

    Procedure DeclarePlayers;
    begin
      SRLID := '';
      SRLPassword := '';
      SRLPlayerForm(True, [], [], [], []);
      Writeln(IntToStr(HowManyPlayers)+' Player(s);');
      CheckUserNicks;
    end;

    procedure sig;
    begin
    writeln('The following is a... ');
    wait(500);
    writeln('ZaszMedia Production');
    wait(500);
    writeln('Its time to Zasz Up your Media!');
    wait(500);
    end;

    procedure Login;
    begin
     if (not(LoggedIn)) then
     LoginPlayer;
    end;

    procedure Report;
    begin
      ClearDebug;
      Writeln('[=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-]');
      Writeln('| ~ Welcome to the Willow cutter/banker  ~ |');
      Writeln('|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|');
      ConvertTime(GetTimeRunning, H, M, S);
      Writeln('|You are using V2.0');
      Writeln('|Time Run: ' + IntToStr(H) + ':' + IntToStr(M) + ':' + IntToStr(S));
      Writeln('|Chopped: ' + IntToStr(WILLOWLOG) + ' Logs');
      Writeln('|Banked: ' + IntToStr(Banked) + ' Loads Of Willows');
      Writeln('|Avioded: ' + IntToStr(ENTSAVIODED) + ' Number Of Ents');
      Writeln('|Found: ' + IntToStr(Lamps) + ' Lamps');
      writeln('|Auto-respnded: ' +IntToStr(responces) + ' times');
      Writeln('--------------------------------------------')
    end;

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 10 do
      begin
        case I of
         1:  If FindDead then
               Result := True;
         2:  If FindMod then
               Result := True;
         3:  If FindMime then
               Result := True;
         4:  If FindMaze then
               Result := True;
         5:  If FindQuiz then
               Result := True;
         6:  If FindDemon then
               Result := True;
         7: begin
               if NoGameTab then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'No GameTab';
                 Logout;
                 Exit;
               end;
             end;
         8: begin
               if InBlack then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'InBlack';
                 Logout;
                 Exit;
               end;
             end;
           9: RC;
           10: Respond;
        end;
        wait(1);
      end;
    end;

    procedure FindRandoms;
    begin
      FindTalk;
      FindFastRandoms;
      FindNormalRandoms;
      FindLamp('Woodcutting');
      SolvePinball;
      if (FindFight) then
      begin
        MakeCompass('N');
        RunTo('N', True);
        Wait(7000 +Random(3000));
      end;
    end;

    function AutoResponce:Boolean; //Credits go to Hypersecret
    var Responce, Lvl: String;
        Reply: Integer;
    begin
      if FindBlackChatMessage(Players[CurrentPlayer].Name) then Exit;
      if (InChat(Players[CurrentPlayer].Name)) then
      begin
        Reply := Random(10);
        case Reply of
          0: Responce := ('yea');
          1: Responce := ('wat');
          2: Responce := ('what');
          3: Responce := ('yeah');
          4: Responce := ('ya');
          5: Responce := ('??');
          6: Responce := ('yep that''s me');
          7: Responce := ('yes');
          8: Responce := ('hhmmm?');
          9: Responce := ('yep');
        end;
        TypeSend(Responce);
        Result := True;
        responces := responces + 1;
      end;

      if (InChatMulti('lol', 'lawl', 'haha')) or
         (InChatMulti('haha', 'rofl', 'lmfao')) or
         (InChatMulti('lmoa', 'funny', 'hehe')) then
      begin
        Reply := Random(10);
        case Reply of
          0: Responce := ('lol');
          1: Responce := ('rofl');
          2: Responce := ('lawl');
          3: Responce := ('lmao');
          4: Responce := ('lmfao');
          5: Responce := ('haha');
          6: Responce := ('haha');
          7: Responce := ('hehe');
          8: Responce := ('geez lol');
          9: Responce := ('roflmfao');
        end;
        TypeSend(Responce);
        Result := True;
        responces := responces + 1;
      end;

      if (InChatMulti('str', 'strength', 'str')) then
      begin
        Lvl := IntToStr(GetSkillLevel('strength'));
        Reply:= Random(5);
        case Reply of
          0, 2, 4: Responce := (Lvl);
          1: Responce := ('My str lvl is '+ Lvl);
          3: Responce := (Lvl +' is my str lvl');
        end;
        TypeSend(Responce);
        Result := True;
        responces := responces + 1;
      end;

      if (InChatMulti('wc', 'woodcuting', 'woodcut')) then
      begin
        Lvl := IntToStr(GetSkillLevel('woodcutting'));
        Reply:= Random(5);
        case Reply of
          0, 2, 4: Responce := (Lvl);
          1: Responce := ('My Woodcutting lvl is '+ Lvl);
          3: Responce := (Lvl +' is my Wc lvl');
        end;
        TypeSend(Responce);
        Result := True;
        responces := responces + 1;
      end;
      Result := False;
    end;

    procedure AntiBan;
    begin
      if (not(LoggedIn)) then
      Exit;
      case Random(8) of

        0: RandomRClick;
        1: HoverSkill('Woodcutting', False);
        2: RandomMovement;
        3: BoredHuman;
        4: PickUpMouse;
        5: AlmostLogout;
        6: DoEmote(1 +Random(20));
        7: begin
             GameTab(1 +Random(12));
             wait(2000 +Random(1000));
             GameTab(4);
           end;
        end;
    end;

    procedure EntFinder; // Thanks to YoHoJo. Modded by Bobbohobbo
    var
      EX, EY: integer;
      FX, FY: integer;
      SafeEntWait: LongInt;
    begin
      if (not (LoggedIn)) then
      Exit;
      begin
        Status('Checking For Ent')
          if
          (FindObjCustom(EX, EY, ['Willow'], [4690821], 5)) then
        begin
          MMouse(EX, EY, 0, 0)
            if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
          begin
            Status('Ent Found');
            MouseFindFlag(645, 83, 2, 2);
            MarkTime(SafeEntWait)
            ENTSAVIODED := ENTSAVIODED + 1
              repeat
              FTWait(5)
                FindNormalRandoms;
              if not (LoggedIn) then
                NextPlayer(False);
            until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
          end;
        end;
      end;
    end;

    Procedure Chop;
    var CuttingTime : integer;
    begin
      MarkTime(CuttingTime);
      repeat
        if (not(LoggedIn)) then
        Exit;
        if(FindColorSpiralTolerance(x,y,willowtree,MSX1,MSY1,MSX2,MSY2,5)) then
        begin
            AutoResponce;
            EntFinder;
            MMouse(x,y,0,0);
            GetMousePos(x, y);
            Mouse(x,y,0,0,true);
            Wait(9000 +Random(3000));
            AutoResponce;
            EntFinder;
            //randomtalk; //this is optional if you want to add some random talk!
          end;
      until (InvFull) or (TimeFromMark(CuttingTime) > 600000+random(60000));
      Writeln('We have reached full capacity, heading for the bank.');
    end;

    procedure gotowillows;
    begin
    if (not(LoggedIn)) then
        Exit;
    Begin
    PerfectNorth;
    HighestAngle;
    Begin
    ClickExactMMColorTol(RockColor, 5);
    FFlag(0);
    Begin
    If(FindObj(x, y,'illo', willowtree, 10))Then
    WriteLn('Found Willows, Begging To Cut Them.');
    End;
    End;
    End;
    End;

    procedure BankWalk;
    begin
      if (not(LoggedIn)) then
        Exit;
        SymbolAccuracy:= 0.4;
        Makecompass('N');
        HighestAngle;
        if (not(FindSymbol(x, y, 'bank'))) then
        begin
          NextPlayer(False);
        end;
      begin
        if (FindSymbol(x, y, 'bank')) then
        begin
          Mouse(x, y, 2, 2, true);
          Flag;
          Writeln('We made it to the bank. Trying to bank.');
        end;
      end;
    end;

    procedure BankIt;
    var Tries : Integer;
    begin
      if (not(LoggedIn)) then
      Exit;
      repeat
        HighestAngle;
        OpenBankQuiet('db');
        Flag;
        Wait(500 + random(500));
        FixBank;
        Tries := Tries + 1;
        if (Tries = 25) then
        begin
          NextPlayer(False);
          Exit;
        end;
      until (BankScreen)
      begin
        if (BankScreen) then
        begin
          if (Players[CurrentPlayer].Booleans[1] = True) then
          begin
              deposit(2,28,2);
              CloseBank;
              RunTo('S', True);
            end;
          begin
            if (Players[CurrentPlayer].Booleans[1] = False) then
            begin
                Deposit(2, 28, 2);
                CloseBank;
                MakeCompass('N');
              end;
            end;
          begin
            TotalWillows:= TotalWillows + Willow;
            Banked := Banked + 1
            WILLOWLOG := WILLOWLOG + 28
            Writeln('Deposited a full load of willows, now going to chop more');
          end;
        end;
      end;
    end;



    begin
      cleardebug;
      SetupSRL;
      Disguise('iTunes');
      sig;
      SetupWoodcutting;
      ActivateClient;
      DeclarePlayers;
      if (not(LoggedIn)) then Login;
      repeat
        gotowillows;
        repeat
          FindRandoms;
          Chop;
          until (InvFull) or (not LoggedIn)
        AntiBan;
        BankWalk;
        BankIt;
        TotalWillows:= 0;
        Report;
        until Players[CurrentPlayer].Integers[1] = Banked
      NextPlayer(True);
    end.


    My Script That YOU COPIED STUFF FROM!!!
    SCAR Code:
    Program ULTRAWillowCutter;
    {.Include SRL/SRL.Scar}
    {.Include SRL/SRL/Skill/Woodcutting.Scar}
    ////////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    { C  R  E  D  I  T  S.
    YOHOJO AND BOBBOHOBBO FOR THEIR ENT FINDER.
    FREDDY1990 FOR SCAR :).
    U L T R A FOR HIS NICE SCRIPT :D.
      C  R  E  D  I  T  S.}

    //////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    // I M P O R T A N T.
    // DO NOT I REPEAT, DO NOT TAKE ANYTHING FROM THIS SCRIPT WITHOUT MY PERMISSION
    // IF YOU PEOPLE SEE SOMONE COPY ANYTHING FROM MY SCRIPT WITHOUT MY PERMISSION
    // PLEASE DO REPORT TO ME THIS INSTANT, SO I COULD TELL SOMONE LIKE A SRL MOD
    // ABOUT WHAT AND HOW HAPPEND, AND THE PERSON WHO COPIED ME, WILL BE BANNED.
    // I M P O R T A N T.
    ////////////////////////////////////////////////////////////////////////////////
    {///////////////////////////////////////////////////////////////////////////////
    { CATEGORY: WOODCUTTING.
    { AUTHOR: U L T R A.
    { PURPOSE: LEVELS UP WOODCUTTING.
    { DESCRIPTION: CUTS WILLOWS THEN BANKS THEM.
    { PLACE: DRAYNOR VILLAGE.
    { ANTIBAN: TRUE.
    { ANTIRANDOMS: TRUE.
    { SPECIAL FEATURES: ONLY USES ONE PLAYER FOR NOW.
    ///////////////////////////////////////////////////////////////////////////////}

    ////////////////////////////////////////////////////////////////////////////////
    //FeAtUrEs
    //1.Anti - Randoms.
    //2.Awsome Anti - Ban.
    //3.Loop.
    //4.Map Walking.
    //5.Willow Finding And Cutting.
    //6.Item Banking.
    //7.Ent Finder - BY YOHOJO MODDED BY BOBBOHOBBO.
    //8.My First Script.
    //fEaTuReS.
    ////////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    //AdDeD.
    //1.Much, Much More Chances Of Finding And Solving A Random!
    //2.Better Ent Finding!
    //3.Bug Fixes!
    //aDdEd.
    ////////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    {
    { I N S T R U C T I O N S. USE SCAR 3.12C AND THE LATEST SRL.
    1. Low detail, not laggy computer, highest brightness in runescape.
    2. Start in draynor bank with your player.
    3. Set up const and the declare players.
    4. Drag the crosshair into the runescape window.
    5. Hit run and of course enjoy my script.
    { I N S T R U C T I O N S. USE SCAR 3.12C AND THE LATEST SRL.
    }

    ////////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    Const
    ToDo = 50;//Loads To Do Before Logging Out.
    TheWaitForCut = 3000;//Mili - Seconds To Wait Before Clicking Another Willow.

    RockColor = 5921354;//Pick The Lightest Color Of The Rock South From Bank.
    TreeColor = 1786422;//Pick The Color Of The Tree ONLY If Doesn't Find Willows.

    Var
    x, y: Integer;
    TotalWillows: Integer;
    ExpGained: Integer;
    BankTrips: Integer;

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

    Players[0].Name := ''; //UserName.
    Players[0].Pass := ''; //Password.
    Players[0].Nick := ''; //3-4 Letters Of UserName.
    Players[0].Active := True; //True If You Are Using This Player, False If Not.

    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    End;

    Procedure EntFinder; // Thanks to YoHoJo. Modded by Bobbohobbo
    Var
      EX, EY: integer;
      FX, FY: integer;
      SafeEntWait: LongInt;
    begin
      If (Not (LoggedIn)) Then
      Exit;
      Begin
        Status('Checking For Ent')
          If
          (FindObjCustom(EX, EY, ['Willow'], [4690821], 5)) Then
        Begin
          MMouse(EX, EY, 0, 0)
            If FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) Then
          Begin
            Status('Ent Found');
            MouseFindFlag(645, 83, 2, 2);
            MarkTime(SafeEntWait)
              Repeat
              FTWait(5)
                FindNormalRandoms;
              If Not (LoggedIn) Then
                NextPlayer(False);
            Until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
          End;
        End;
      End;
    End;

    Procedure WaitWhileChopping;
    Begin
    EntFinder;
    Wait(TheWaitForCut+random(1000));
    EntFinder;
    End;

    Function FindFastRandoms: Boolean;
    Var
    I: Integer;
    Begin
    For I:=1 To 11 Do
    Begin
    Case I Of
    1: If FindDead Then
    Result := True;
    2: If FindMod Then
    Result := True;
    3: If FindMime Then
    Result := True;
    4: If FindMaze Then
    Result := True;
    5: If FindQuiz Then
    Result := True;
    6: If FindDemon Then
    Result := True;
    7: Begin
    If NoGameTab Then
    Begin
    Result := True;
    Players[CurrentPlayer].loc := 'No GameTab';
    Logout;
    Exit;
    End;
    End;
    8: Begin
    If InBlack Then
    Begin
    Result := True;
    Players[CurrentPlayer].loc := 'InBlack';
    Logout;
    Exit;
    End;
    End;
    9: RC;
    10: Respond;
    11: ClickToContinue;
    End;
    Wait(1);
    End;
    End;

    Procedure FindRandoms;
    Begin
    EntFinder;
    FindTalk;
    FindFastRandoms;
    FindNormalRandoms;
    FindLamp('Woodcutting');
    SolvePinball;
    FindEnt(x, y, true);
    If(FindFight)Then
    Begin
    MakeCompass('N');
    RunTo('E', True);
    Wait(7000 +Random(3000));
    RunBack;
    End;
    End;

    Procedure RandomlyChosenSkill;
    Begin
      Case Random(11) Of

    0: HoverSkill('Attack', False);
    1: HoverSkill('Strength', False);
    2: HoverSkill('Defence', False);
    3: HoverSkill('Range', False);
    4: HoverSkill('Prayer', False);
    5: HoverSkill('Magic', False);
    6: HoverSkill('Runecraft', False);
    7: HoverSkill('Hitpoints', False);
    8: HoverSkill('Agility', False);
    9: HoverSkill('Herblore',  False);
    10: HoverSkill('Fishing', False);

      End;
    End;

    Procedure ReadQuestRandom;
    Begin
      Case Random(4) Of
     
    0: Begin
       GameTab(3);
       Wait(1000+random(5000));
       Mouse(582, 265, 2, 2, True);
       Wait(2000+random(6000));
       Mouse(458, 70, 4, 4, True);
       Wait(1000+random(1000));
       GameTab(4);
       End;
       
    1: Begin
       GameTab(3);
       Wait(1000+random(5000));
       Mouse(590, 279, 2, 2, True);
       Wait(2000+random(6000));
       Mouse(458, 70, 4, 4, True);
       Wait(1000+random(1000));
       GameTab(4);
       End;
       
    2: Begin
       GameTab(3);
       Wait(1000+random(5000));
       Mouse(588, 295, 2, 2, True);
       Wait(2000+random(6000));
       Mouse(458, 70, 4, 4, True);
       Wait(1000+random(1000));
       GameTab(4);
       End;
       
    3: Begin
       GameTab(3);
       Wait(1000+random(5000));
       Mouse(614, 310, 2, 2, True);
       Wait(2000+random(6000));
       Mouse(458, 71, 4, 4, True);
       Wait(1000+random(1000));
       GameTab(4);
       End;
      End;
    End;
       

    Procedure AntiBan;
    Begin
    If(Not(LoggedIn))Then
    Exit;
    Case Random(8) Of

    0: RandomMovement;
    1: HoverSkill('Woodcutting', False);
    1: RandomRClick;
    2: BoredHuman;
    3: PickUpMouse;
    4: AlmostLogout;
    5: Begin
    GameTab(2 +Random(12));
    Wait(2000 +Random(1000));
    GameTab(4);
       End;
    6: RandomlyChosenSkill;
    7: ReadQuestRandom;
     End;
    End;

    Procedure Walk2Willows;
    Begin
    If(Not(LoggedIn))Then
    Exit;
    Begin
    PerfectNorth;
    HighestAngle;
    Begin
    ClickExactMMColorTol(RockColor, 5);
    FFlag(0);
    Begin
    If(FindObj(x, y,'illo', TreeColor, 10))Then
    WriteLn('Found Willows, Begging To Cut Them.');
    End;
    End;
    End;
    End;

    Procedure FindAndChop;
    Var CuttingTime : integer;
    Begin
    MarkTime(CuttingTime);
    Repeat
    If(Not(LoggedIn))Then
    Exit;
    MakeCompass('N');
    HighestAngle;
    If(FindObj(x, y, 'illo', TreeColor, 10))then
    Begin
    MMouse(x, y, 4, 4);
    If(IsUpText('illo'))Then
    Begin
    GetMousePos(x, y);
    Mouse(x, y, 2, 2, True);
    EntFinder;
    FindRandoms;
    WaitWhileChopping;
    AntiBan;
    End;
    End;
    Until (InvFull)Or(TimeFromMark(CuttingTime) > 600000+random(60000));
    TotalWillows := TotalWillows+27;
    ExpGained:=ExpGained+1822;
    WriteLn('Chopped A Full Load Of Willow Logs, Heading For The Bank');
    End;

    Function BankIt: Boolean;
    Begin
    If(InvFull)Then
    Begin
    Repeat
    SymbolAccuracy := 0.6;
    If(FindSymbol(x, y,'Bank'))Then
    Mouse(x, y, 3, 3, True);
    FFlag(0);
    MakeCompass('E');
    OpenBankQuiet('feb');
    Flag;
    wait(500 + random(500));
    FixBank;
    Deposit(2,28,2);
    CloseBank;
    MakeCompass('N');
    Until(FindSymbol(x, y,'Bank'));
    If(FindSymbol(x, y,'Bank'))Then
    Begin
    ClearDebug;
    BankTrips:=BankTrips+1;
    End;
    End;
    End;

    Procedure Report;
    Begin
    ClearDebug;
    WriteLn('U L T R A Willow Chopper Version 3');
    WriteLn('Cut Approx: ' + IntToStr(TotalWillows) + ' Willows.');
    WriteLn('Earned Approx: ' + IntToStr(ExpGained) + ' Expirience.');
    WriteLn('Banked: ' + IntToStr(BankTrips) + ' Loads.');
    WriteLn('Thanks For Using U L T R A Willow Chopper Version 3');
    End;

    Procedure TheLoop;
    Begin
    Walk2Willows;
    Begin
    Repeat
    EntFinder;
    FindAndChop;
    EntFinder;
    FindFastRandoms;
    FindRandoms;
    Until(InvFull);
    If(InvFull)Then
    Begin
    AntiBan;
    FindRandoms;
    FindFastRandoms;
    BankIt;
    Report;
    End;
    End;
    End;

    Begin
    SetUpSRL;
    DeclarePlayers;
    If(Not(LoggedIn))Then
    Begin
    LoginPlayer;
    ActivateClient;
    Begin
    Repeat
    TheLoop;
    Until(BankTrips = ToDo)Or(Not(LoggedIn));
    If(BankTrips = ToDo)Or(Not(LoggedIn))Then
    Exit;
    Report;
    TerminateScript;
    End;
    End;
    End.

    And i hear its not the first time you copy stuff from other people!!!I will post more proof later, hope you get banned for copying and giving no credits!!!!!!
    Woot woot.

  23. #48
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Um ultra Practicly nothing is the same... The rock colors not the same, tree colors not the same, i gave my credits for the entfinder, and auto-responce. Dude, our script is nothing alike....
    I do visit every 2-6 months

  24. #49
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    sasz you took procedure he made to and just copied them also...this is horrible changing colors doesnt make it yours!!!

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


  25. #50
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nothing alike? really?Then wtf all of this below???
    SCAR Code:
    procedure gotowillows;//This procedure is exactly like mine but you changed the name!!!
    begin
    if (not(LoggedIn)) then
        Exit;
    Begin
    PerfectNorth;
    HighestAngle;
    Begin
    ClickExactMMColorTol(RockColor, 5);
    FFlag(0);
    Begin
    If(FindObj(x, y,'illo', willowtree, 10))Then//This is in my script but willowtree is TreeColor in my script!!!
    WriteLn('Found Willows, Begging To Cut Them.');//This text is exactly like my in my script!!!
    End;
    End;
    End;
    End;

    Procedure Chop;//This procedure is almost like mine ut you used other names of procedures!!!
    var CuttingTime : integer;
    begin
      MarkTime(CuttingTime);// Just like in my script!!!!!!
      repeat
        if (not(LoggedIn)) then
        Exit;
        if(FindColorSpiralTolerance(x,y,willowtree,MSX1,MSY1,MSX2,MSY2,5)) then
        begin
            AutoResponce;
            EntFinder;
            MMouse(x,y,0,0);
            GetMousePos(x, y);
            Mouse(x,y,0,0,true);
            Wait(9000 +Random(3000));
            AutoResponce;
            EntFinder;
            //randomtalk; //this is optional if you want to add some random talk!
          end;
      until (InvFull) or (TimeFromMark(CuttingTime) > 600000+random(60000));//Hmm in my script i have it too?why is it same?600000?
      Writeln('We have reached full capacity, heading for the bank.');
    end;

          until (InvFull) or (not LoggedIn)//I got it too in my script? hmm

    TotalWillows: Integer;//Just like in my script!!!
    Woot woot.

Page 2 of 4 FirstFirst 1234 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. al kharid smith-banker & draynor willow cutter-banker
    By rivon in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 01-03-2008, 09:51 AM
  2. JAD Willow - edgevil willow cutter + banker.
    By JAD in forum RS3 Outdated / Broken Scripts
    Replies: 58
    Last Post: 10-08-2007, 05:11 PM
  3. I need a Willow Cutter / Banker [Draynor]
    By binkeh in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 08-23-2007, 02:09 AM
  4. Willow cutter/ Banker
    By xxchronic2007xx in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 05-03-2007, 03:23 AM

Posting Permissions

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