Page 1 of 2 12 LastLast
Results 1 to 25 of 31

Thread: Rimmingtion Willow Chopper!

  1. #1
    Join Date
    Mar 2007
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Rimmingtion Willow Chopper!

    Steth1010's Rimmington Willow Chopper
    This is my first script and it works good. It's my first version and will be making more.

    __________________________________________________ _______________

    It doesn't have to be in rimmington but it's better there because around 5-6 willows and rarely people there, also in my last version i'll be making it sell to the store (in rimmington)

    EDIT: I releaded out Version 1.7! Fixed some of the problems you guys said I was having
    Now for dropping uses DTM's and is a lil laggier there but either than that works great. This is just a simple woodcutter don't expect much. Works well though

    EDIT2: Version 1.7 fixed. Made way less repedative. Only 1 chop procedure new randoms, anti ban, working on walk to store + sell.


    Version 1.0(Released)

    * Chopping Willows
    * AntiBan
    * Uses FindColor
    * Uses DropTo(2,28);
    * Progress Report
    * Multipul Players
    * SRL Random Report
    * Basic Randoms


    Version 1.5(Released)
    Added
    * Better Anti Randoms
    * Better Progress Report
    * Logs out after how ever many loads
    * Finds Bird Nests
    * Runs from Fights

    Version 1.7(Released)
    Added
    * Better AntiRandoms + Ban
    * Better Drop
    * AutoResponder

    Version 2.0(Not Released)
    Adding
    * DTM's
    * Sell at Store



    Would perfer version 1.7 but doesn't matter (In version 2.0-Last Version - will have Walk to and sell at store - )



    Please post your proggy reports and comments of how the script works, also suggestions are needed (Remeber first script)

    Version 1.0:

    SCAR Code:
    program Steth1010_Willow_Chopper;

    {                 Rimmington Willow + Dropper
                    This script is made by Steth1010

    *******************************************************************
                             INSTRUCTIONS
    ___________________________________________________________________
     1)Start in Rimminton at Willows (Doesn't have to be rimmingtion just better there)
     2)Start Loggout
     3)Axe in first Inv spot
     4)Setup lines 28-61
     5)Watch no tree ent Random Yet

                          Anti-Ban/Randoms
     Anti-ban Rotates screen abit then makes north. Also Talks
     Uses Basic Randoms
    ___________________________________________________________________

    *******************************************************************
    }


    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}

    //////////////////////////////////////////////////////////////////////
    ////////////////////////////SET UP///////////////////////////////////
    //////////////////////////lines 28-61///////////////////////////////

    const
    WillowColor= 2785392;//Willow color (Color should already work)
    Log= 1589319;//Willow color in Inv (Color should already work)

    var
     Clicks, Loads:Integer;


     procedure DeclarePlayers;
    begin
      HowManyPlayers := 4; //Number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='';//Your Name
      Players[0].Pass :='';//Your Password
      Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
      Players[0].Active:=True;

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

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

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

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////END SET UP////////////////////////////////
    ////////////////////////////////////////////////////////////////////

    procedure ProgressReport;
     begin
        Writeln('[]========================================[]');
        Writeln('---------------->Willow Chooper<----------------');
        Writeln('  Chopped Aprox ' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('---------------------------------------------');
        Writeln('  Did Aprox ' + IntToStr(Clicks) + ' Clicks' + '   ');
        Writeln('[]========================================[]');
    end;

    procedure Chop;
     begin
      writeln('Found Willow Color, Now chopping');
      if(FindColor(x,y,WillowColor,0,0,600,600)) then
      wait(1000+random(200));
      MMouse(x,y,0,0);
      wait(3000+random(200));
      Mouse(x,y,0,0,true);
      wait(3000+random(200));
      if(FindColor(x,y,WillowColor,0,0,600,600)) then
      wait(3000+random(200));
      MMouse(x,y,0,0);
      wait(3000+random(200));
      Mouse(x,y,0,0,true);
    end;

    Procedure Ban;
     Begin
      RotateEvery(4+random(3));
      wait(500+Random(200));
      RandomRClickEvery(2+random(3));
      AntiBan;
      findtalk;
      findnormalrandoms;
    end;

    procedure Chop2;
     begin
     repeat
      MakeCompass('N')
      wait(3000+random(200));
      if(FindColor(x,y,WillowColor,0,0,600,600)) then
      wait(3000+random(200));
      MMouse(x,y,0,0);
      wait(3000+random(200));
      Mouse(x,y,0,0,true);
      wait(3000+random(200));
      RotateEvery(4+random(3));
      wait(500+Random(200));
      MakeCompass('N');
      RandomRClickEvery(2+random(3));
      FindBirdsNest;
      EnglishWords;
      Ban;
      AntiBan;
      Clicks:=Clicks+1;
     until(InvFull);
    end;

    procedure Drop;
     begin
     if(InvFull)then
      DropTo(2,28);
      Loads:=Loads+1;
    end;

    procedure Login;
     begin
      loginplayer;
    end;

    procedure Angle;
     begin
      HighestAngle;
      MakeCompass('N');
    end;

    procedure LogsOut;
     begin
      Logout;
    end;

    procedure Report;
     begin
       SRLRandomsReport;
    end;

    begin
      SetupSRL;
     repeat
      DeclarePlayers;
      Login;
      Angle;
      Chop;
      Ban;
      Chop2;
      Drop;
      ProgressReport;
      Report;
      LogsOut;
     until(false);
    end.



    Version 1.5


    SCAR Code:
    program Steth1010_Willow_Chopper;

    {                 Rimmington Willow + Dropper
                    This script is made by Steth1010

    *******************************************************************
                             INSTRUCTIONS
    ___________________________________________________________________
     1)Start in Rimminton at Willows (Doesn't have to be rimmingtion just better there)
     2)Start Loggout
     3)Axe in first Inv spot
     4)Setup lines 28-61
     5)Watch no tree ent Random Yet

                          Anti-Ban/Randoms
     Anti-ban Rotates screen abit then makes north. Also Talks
     Uses Basic Randoms
    ___________________________________________________________________

    *******************************************************************
    }


    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}

    //////////////////////////////////////////////////////////////////////
    ////////////////////////////SET UP///////////////////////////////////
    //////////////////////////lines 28-61///////////////////////////////

    const
    WillowColor= 2785392;//Willow color (Color should already work)
    Log= 1589319;//Willow color in Inv (Color should already work)

    var
     Clicks, Loads:Integer;


     procedure DeclarePlayers;
    begin
      HowManyPlayers := 4; //Number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='';//Your Name
      Players[0].Pass :='';//Your Password
      Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
      Players[0].Integer1 := 2;//Loads For Player
      Players[0].Active:=True;

      Players[1].Name :='';
      Players[1].Pass :='';
      Players[1].Nick :='';
      Players[1].Integer1 := 2;
      Players[1].Active:=True;

      Players[2].Name :='';
      Players[2].Pass :='';
      Players[2].Nick :='';
      Players[2].Integer1 := 5;
      Players[2].Active:=True;

      Players[3].Name :='';
      Players[3].Pass :='';
      Players[3].Nick :='';
      Players[3].Integer1 := 5;
      Players[3].Active:=True;
    end;

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////END SET UP////////////////////////////////
    ////////////////////////////////////////////////////////////////////

    procedure ProgressReport;
     begin
        Writeln('[]========================================[]');
        Writeln('---------------->Willow Proggy<----------------');
        Writeln('  Chopped Aprox ' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('  Worked For : ' + ScriptTime2(2))
        Writeln('  Dropped Aprox ' + IntToStr(Clicks) + ' Logs' + '   ');
        Writeln('[]========================================[]');
    end;

    //------------------------------------------------------------------------\\
    {                 FindFastRandoms - By WT-Fakawi.                         ||
    \\------------------------------------------------------------------------//}

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 9 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:  If NoGameTab then
               Result := True;
         8:  If InBlack then
                Result := True;
         9: If FindTalk then
              Result := True;
        end;
        wait(1);
      end;
    end;

    procedure Chop;
     begin
      writeln('Found Willow Color, Now chopping');
      if(FindColor(x,y,WillowColor,0,0,600,600)) then
      wait(1000+random(200));
      MMouse(x,y,0,0);
      wait(3000+random(200));
      Mouse(x,y,0,0,true);
      wait(3000+random(200));
      if(FindColor(x,y,WillowColor,0,0,600,600)) then
      wait(3000+random(200));
      MMouse(x,y,0,0);
      wait(3000+random(200));
      Mouse(x,y,0,0,true);
    end;

    Procedure Ban;
     Begin
      RotateEvery(4+random(3));
      wait(500+Random(200));
      RandomRClickEvery(2+random(3));
      AntiBan;
      findtalk;
      findnormalrandoms;
      FindFastRandoms;
      If (FindFight) then
     begin
       RunawayDirection('w');
       Wait(3000+random(750));
       RunBack;
      end;
    end;

    procedure Chop2;
     begin
     repeat
      MakeCompass('N')
      wait(3000+random(200));
      if(FindColor(x,y,WillowColor,0,0,600,600)) then
      wait(3000+random(200));
      MMouse(x,y,0,0);
      wait(3000+random(200));
      Mouse(x,y,0,0,true);
      wait(3000+random(200));
      RotateEvery(4+random(3));
      wait(500+Random(200));
      MakeCompass('N');
      RandomRClickEvery(2+random(3));
      FindBirdsNest;
      EnglishWords;
      Ban;
      AntiBan;
      Clicks:=Clicks+1;
     until(InvFull);
    end;

    procedure Drop;
     begin
     if(InvFull)then
      DropTo(2,28);
      Loads:=Loads+1;
    end;

    procedure Login;
     begin
      loginplayer;
    end;

    procedure Angle;
     begin
      HighestAngle;
      MakeCompass('N');
    end;

    procedure LogsOut;
     begin
      If(LoggedIn) and (Loads >= Players[CurrentPlayer].Integer1)then
     begin
      Logout;
    end;
    end;

    procedure Report;
     begin
       SRLRandomsReport;
    end;

    begin
      SetupSRL;
     repeat
      DeclarePlayers;
      Login;
      Angle;
      Chop;
      Ban;
      Chop2;
      Drop;
      ProgressReport;
      Report;
      LogsOut;
     until(false);
    end.

    Version 1.7


    SCAR Code:
    program Steth1010_Willow_Chopper;

    {                 Rimmington Willow + Dropper
                    This script is made by Steth1010

    *******************************************************************
                             INSTRUCTIONS
    ___________________________________________________________________
     1)Start in Rimminton at Willows
     2)Start Loggout
     3)Axe in first Inv spot
     4)Setup lines 28-61
     5)Watch no tree ent Random Yet

                          Anti-Ban/Randoms
     Anti-ban Rotates screen abit then makes north. Also Talks
     Uses Basic Randoms
    ___________________________________________________________________

    *******************************************************************
    }


    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}

    //////////////////////////////////////////////////////////////////////
    ////////////////////////////SET UP///////////////////////////////////
    //////////////////////////lines 28-61///////////////////////////////

    const
    WillowColor= 2785392;//Willow color (Color should already work)
    Log= 1589319;//Willow color in Inv (Color should already work)
    Responder = True;//Do You Want To AutoTalk
    var
     Clicks, Loads, Talked:Integer;

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////Players///////////////////////////////////
    ////////////////////////////////////////////////////////////////////


     procedure DeclarePlayers;
    begin
      HowManyPlayers := 4; //Number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='';//Your Name
      Players[0].Pass :='';//Your Password
      Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
      Players[0].Integer1 := 2;//Loads For Player
      Players[0].Active:=True;

      Players[1].Name :='';
      Players[1].Pass :='';
      Players[1].Nick :='';
      Players[1].Integer1 := 2;
      Players[1].Active:=True;

      Players[2].Name :='';
      Players[2].Pass :='';
      Players[2].Nick :='';
      Players[2].Integer1 := 5;
      Players[2].Active:=False;

      Players[3].Name :='';
      Players[3].Pass :='';
      Players[3].Nick :='';
      Players[3].Integer1 := 5;
      Players[3].Active:=False;
    end;

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////END SET UP////////////////////////////////
    ////////////////////////////////////////////////////////////////////

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////Proggy Report/////////////////////////////
    ////////////////////////////////////////////////////////////////////

    procedure ProgressReport;
     begin
        Writeln('[]========================================[]');
        Writeln('---------------->Willow Proggy<----------------');
        Writeln('  Chopped Aprox ' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('  Worked For : ' + ScriptTime2(2))
        Writeln('  Dropped Aprox ' + IntToStr(Clicks) + ' Logs' + '   ');
        Writeln('[]========================================[]');
    end;

    //------------------------------------------------------------------------\\
    {                 FindFastRandoms - By WT-Fakawi.                         ||
    \\------------------------------------------------------------------------//}

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 9 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:  If NoGameTab then
               Result := True;
         8:  If InBlack then
                Result := True;
         9: If FindTalk then
              Result := True;
        end;
        wait(1);
      end;
    end;

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////Auto Responder////////////////////////////
    ////////////////////////////////////////////////////////////////////

    procedure AutoResponder;
     Var
      Talked: integer;
     begin
      if(Responder = True)then
     begin

      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')))
        Talked:= Talked + 1;
      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')))
       Talked:= Talked + 1;
      end;

      if (InChat('Defenc lvls') or
        InChat('Defenc lvls?') or
        InChat('Defence lvls') or
        InChat('Defence lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Defence')))
        Talked:= Talked + 1;
      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')))
        Talked:= Talked + 1;
      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')))
        Talked:= Talked + 1;
      end;

      if (InChat('Pray lvls') or
        InChat('Pray lvls?') or
        InChat('Prayer lvls') or
        InChat('Prayer lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Prayer')))
        Talked:= Talked + 1;
      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')))
        Talked:= Talked + 1;
      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')))
        Talked:= Talked + 1;
      end;

      if (InChat('Fletch lvls') or
        InChat('Fletch lvls?') or
        InChat('Fletching lvls') or
        InChat('Fletching lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Fletching')))
        Talked:= Talked + 1;
      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')))
        Talked:= Talked + 1;
      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')))
        Talked:= Talked + 1;
      end;

      if (InChat('Smelt lvls') or
        InChat('Smelt lvls?') or
        InChat('Smelting lvls') or
        InChat('Smelting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Smelting')))
        Talked:= Talked + 1;
      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')))
        Talked:= Talked + 1;
      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')
        Talked:= Talked + 1;
      end;

       if (InChat(Players[CurrentPlayer].Name)) then
      begin
        TypeSend('Yeah?')
        Talked:= Talked + 1;
      end;

      if (InChat('lol') or
        InChat('lmao') or
        InChat('rofl') or
        InChat('haha'))then
      begin
        TypeSend('lolz')
        Talked:= Talked + 1;
      end;

      if (InChat('Hi' + (Players[CurrentPlayer].Name)) or
        InChat('Hey' + (Players[CurrentPlayer].Name)) or
        InChat('Hello' + (Players[CurrentPlayer].Name))) then
      begin
        TypeSend('Hi')
        Talked:= Talked + 1;
      end;
      end;

    if(not(Responder = True))then
    end;

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////Chop Willows//////////////////////////////
    ////////////////////////////////////////////////////////////////////

    procedure Chop;
     begin
     repeat
      if(FindColorTolerance(x,y,WillowColor,0,0,600,600,3)) then
      writeln('Found Willow Color, Now chopping');
      wait(1000+random(200));
      MMouse(x,y,0,0);
      wait(2000+random(200));
      Mouse(x,y,0,0,true);
      wait(2000+random(200));
      if(FindColorTolerance(x,y,WillowColor,0,0,600,600,3)) then
      wait(2000+random(200));
      MMouse(x,y,0,0);
      wait(2000+random(200));
      Mouse(x,y,0,0,true);
      RotateEvery(4+random(3));
      wait(500+Random(200));
      RandomRClickEvery(2+random(3));
      FindFastRandoms;
      AutoResponder;
     until(InvFull);
    end;

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////Drop Willows//////////////////////////////
    ////////////////////////////////////////////////////////////////////

    procedure Drop;
     begin
      if(InvFull)then
      DropAllLogs;
      Clicks:=Clicks+27;
      Loads:=Loads+1;
    end;

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////Log Player In/////////////////////////////
    ////////////////////////////////////////////////////////////////////

    procedure Login;
     begin
      loginplayer;
    end;

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////Arrange Angle/////////////////////////////
    ////////////////////////////////////////////////////////////////////

    procedure Angle;
     begin
      HighestAngle;
      MakeCompass('N');
    end;

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////Log Player Out////////////////////////////
    ////////////////////////////////////////////////////////////////////

    procedure LogsOut;
     begin
      If(LoggedIn) and (Loads >= Players[CurrentPlayer].Integer1)then
     begin
      Logout;
    end;
    end;

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////Random Report/////////////////////////////
    ////////////////////////////////////////////////////////////////////

    procedure Report;
     begin
       SRLRandomsReport;
    end;

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////Repeat Script/////////////////////////////
    ////////////////////////////////////////////////////////////////////

    begin
      SetupSRL;
     repeat
      DeclarePlayers;
      Login;
      Angle;
      FindFastRandoms;
      Chop;
      Drop;
      ProgressReport;
      Report;
      LogsOut;
     until(false);
    end.
    Next script is a Nature Rune Crafter + Zanaris Banker Working well so far.
    My nature script so far. If have any suggestions or want to help just tell me under your post

    SCAR Code:
    program Nature_RuneCrafter;

    {                     Nature Rune Crafter
                    This script is made by Steth1010

    *******************************************************************
                             INSTRUCTIONS
    ___________________________________________________________________
     1)Start at Zanaris Bank
     2)Start Logged out
     3)Have Pouches or not and the staff for fairy rings weilded
     4)Setup lines
     5)Set detail low and V-Bright on
     6)Turn P-Chat,Trade,Pub-Chat off


                            **Routine**

     1)Starts at bank
     2)Takes out pure ess and puts in pouches if have any
     3)Turns run on
     4)Runs to fairy ring
     5)Does Code walks to Crafter
     6)Makes nats, Takes pure ess out of pouches, makes nats
     7)Walks to bank, repeats

                            **Includes**
     1)Randoms
     2)Anti Ban
     3)Proggy Report
     4)FindColorTolerance
     5)Multipul Players
     6)Forms
     7)Autotalk/Respond


                          Anti-Ban/Randoms
     Anti-ban Rotates screen abit then makes north. Also Talks
     Uses Basic Randoms
    ___________________________________________________________________

    *******************************************************************
    }


    //////////////////////////////////////////////////////////////////////
    ////////////////////////////SET UP///////////////////////////////////
    //////////////////////////lines ///////////////////////////////

    Const
    BankSymbol= 0;//Bank Symbol on MiniMap
    FairyRingSymbol= 0;//Fairy Ring on MiniMap


    procedure DeclarePlayers;
     begin
      HowManyPlayers := 4; //Number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='';//Your Name
      Players[0].Pass :='';//Your Password
      Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
      Players[0].Integer1 := 2;//Loads For Player
      Players[0].Active:=True;

      Players[1].Name :='';
      Players[1].Pass :='';
      Players[1].Nick :='';
      Players[1].Integer1 := 2;
      Players[1].Active:=True;

      Players[2].Name :='';
      Players[2].Pass :='';
      Players[2].Nick :='';
      Players[2].Integer1 := 5;
      Players[2].Active:=True;

      Players[3].Name :='';
      Players[3].Pass :='';
      Players[3].Nick :='';
      Players[3].Integer1 := 5;
      Players[3].Active:=True;
    end;

    //////////////////////////////////////////////////////////////////////
    ///////////////////////////END SET UP////////////////////////////////
    ////////////////////////////////////////////////////////////////////

    procedure ProgressReport;
     begin
        Writeln('[]========================================[]');
        Writeln('---------------->Willow Proggy<----------------');
        Writeln('  Banked Aprox ' + IntToStr(Loads) + ' Times' + '    ');
        Writeln('  Worked For : ' + ScriptTime2(2))
        Writeln('  Made Aprox ' + IntToStr(Clicks) + ' Natures' + '   ');
        Writeln('[]========================================[]');
    end;

    //------------------------------------------------------------------------\\
    {                 FindFastRandoms - By WT-Fakawi.                         ||
    \\------------------------------------------------------------------------//}

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 9 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:  If NoGameTab then
               Result := True;
         8:  If InBlack then
                Result := True;
         9: If FindTalk then
              Result := True;
        end;
        wait(1);
      end;
    end;

    Procedure Bank;
     begin

    I don't know if you will like it. It's my first script so please give some suggestions. Thanks

  2. #2
    Join Date
    Apr 2007
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ahh! a remmington chopper! Looks a bit good so far

    Expect a proggy later :P

  3. #3
    Join Date
    Mar 2007
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have a lil proggy, says how many loads its done and how many willows it chopped. Well please post your proggy reports and your random reports.

    Next version coming out in about 2 days keep a look out! Its way better

  4. #4
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    why rimmington only? if it is a powerchopper, can't it run anywhere?


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  5. #5
    Join Date
    Mar 2007
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh it can, just rimmington is a better place. Around 5-6 willows and barely anyone there + one of my versions im going to be making is that it walks to store and sells (Store is very close there)

    EDIT: Made a better proggie next version i am only adding FindcolorTolerance and Sell at Store!
    Thats the only things im adding then im done for that script!

    WORKS FOR HRS! Proggie report


    Code:
    Chopped Aprox 83 Loads
    Worked For : 1 Hours 17 Minutes 13 Seconds
    Dropped Aprox 1328 Logs
    ARG!! MY PURE WCER GOT SCAMMED! PISSED OFF AND WAS STOLEN BY A SRL MEMBER! I GOT PROOF (WELL MY MISTAKE ALITTLE BIT)

  6. #6
    Join Date
    Apr 2007
    Posts
    59
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey, looks pretty good, only thing i would suggest is using maybe dtms for dropping?. theres a very good tut somewhere about them in intermediate scetion i think.


    also, when u put writeln found willow shouldn't u put that after it has found the colour and not before?

  7. #7
    Join Date
    Mar 2007
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol thanks ya just I did that because im editing it and making it do end else. I know how to do all that stuff just got no time. Ill fix that and alright ill try DTMs for dropping. Please post Proggie Reports

  8. #8
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    Well if DTMs dont work out for you, DropAllLogs; would use DTMs to drop all your logs, maybe a bit easier? I would like a version that cuts and sells. I will have to get an oak cutter and seller to get my lvl up and some moneys I might try it out when it is intents.

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  9. #9
    Join Date
    Mar 2007
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ya my next version i am making it sell at store, and use DTM drops..

    Post Proggies please!!

  10. #10
    Join Date
    Apr 2007
    Posts
    59
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice sounds really good

  11. #11
    Join Date
    Mar 2007
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ya i got brand new randoms and im using DropAllLogs; now just needa make it walk.. Im probably going to use find water symbol then general store symbol then guy and stuff. I might need some help aslo if you want to help.

  12. #12
    Join Date
    Apr 2007
    Posts
    59
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ya sure, ill help u out

  13. #13
    Join Date
    Mar 2007
    Location
    Iowa DUDE!
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    WOW! Nice job.. I cant wait for it to sell...

    I didnt even knwo there was willow trees in rimmington.. Great script!

  14. #14
    Join Date
    Mar 2007
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for the complements and Wobbii I don't really know how to make it walk so you could maybe teach and we can work together.. You got MSN?

    Hope this works good

  15. #15
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    I could help but i dont have much time lately, i wont be on today at all, but tomorrow around 5 or 6 PM (AST) i might be on. I will PM my msn.

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  16. #16
    Join Date
    Mar 2007
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    aight sweet. All i need help is to use radialwalk and sell at store thats all.

  17. #17
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by steth1010 View Post
    aight sweet. All i need help is to use radialwalk and sell at store thats all.
    Read my tut then Learning the things to become a SRL member. That may help you in learning radial walk. Should especially help you when not walking on road/by water, because thats the most complicated.

  18. #18
    Join Date
    Feb 2006
    Posts
    920
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You cannot become a SRL Member before you make script that doesn't click every 4 sec, but instead waits untill the tree is gone or something..

  19. #19
    Join Date
    Apr 2007
    Location
    Shhhhhhh im right behind you
    Posts
    335
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks nice

  20. #20
    Join Date
    Mar 2007
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I am finished Version 2.0 just I need to fix one little bug. Will be released tonight probably thanks for the suggestions and complements, please post proggies reports

  21. #21
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Hmmm... did you realease 2.0 then un-release? cause for some reason I have 2.0...... strange...

    EDIT: I have been using 2.0 for a few hours... it is uber Onyl problem I see is 1. Ents, 2. (SRL I THINK) Lags A LOT when sees username. 3. Auto-responder BROKEN.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  22. #22
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    THas no ent protection- ent ate my mith axe.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  23. #23
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Hello?? ..


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  24. #24
    Join Date
    Mar 2007
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol sry ill fix it, how long did it work for tho

  25. #25
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Like 20 mins because it broke..


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Willow Chopper Plus
    By D1zl3 in forum RS3 Outdated / Broken Scripts
    Replies: 89
    Last Post: 01-30-2009, 10:29 PM
  2. My Willow Power Chopper
    By I B X R in forum First Scripts
    Replies: 9
    Last Post: 09-13-2008, 11:56 PM
  3. U L T R A Willow Chopper!
    By Ultra in forum First Scripts
    Replies: 149
    Last Post: 05-17-2008, 04:10 PM
  4. Willow chopper --> Bow fletcher
    By ub3r |<1||3r*1337* in forum RS3 Outdated / Broken Scripts
    Replies: 8
    Last Post: 11-26-2006, 04:05 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
  •