Poll: Is it a good script?

Results 1 to 2 of 2

Thread: Cutz and Fletcherz

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

    Default Cutz and Fletcherz

    This is my entry back into SCAR so its not that good. I am looking for a good drop procedure
    still so post it if you have one. Hope this is a helpful script.

    Okay, about the script, it cuts a full inventory of normal logs, fletches, then drops... and repeat.
    The only Setup is adding your name and changing the trees color!

    This hasn't been tested yet so post your proggies please!
    Code:
    program fletcher;
    {.include srl/srl.scar}
    {.include srl/srl/skill/woodcutting.scar}
    
    const
      StartPlayer  = 0;
      UseBenMouse  = True;   // Use BenMouse?
      treecolor1   =5075056;
      treecolor2   =2897976;
      treecolor3   =3825752;
      longbow      =537419;
      RunDir       ='N';       //Which way to run after fight
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
    
      CurrentPlayer := StartPlayer;
      NumberOfPlayers(HowManyPlayers);
    
      Players[0].Name    :='';
      Players[0].Pass    :='';
      Players[0].Nick    :='';  // 3-4 letters from your name
      Players[0].Active:= True;
    end;
    
    
    function FindFastRandoms: Boolean;    // By WT-Fakawi.
    var
      i: Integer;
    begin
      for I := 1 to 8 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: if FindTalk then
                 Result := True;
        end;
        Wait(1);
      end;
    end;
    
    procedure antiz; // Made by Reece844     me
    begin
    case Random(6) of
    
       0: AlmostLogout;
    
       1: begin
            HoverSkill('Woodcutting', True);
            Wait(564 + random(365));
            GameTab(4);
          end;
    
       2: begin
            HoverSkill('Prayer', false);
            Wait(733 + random(421));
            GameTab(4);
          end;
    
       3: begin
            GameTab(1)
            Wait(126 + random(895));
            GameTab(4)
          end;
    
       4: SayCurrentLevels('Woodcutting');
    
       5: PickUpMouse;
    end;
    end;
    
    
    Procedure FindThoseRandoms;
    begin
      if(FindFight)then
      begin
        RunAwayDirection('N');
        Wait(9500+Random(5500));
        RunBack;
      end;
      if(FindDead)then
      begin
        Writeln('You are Dead!');
        Writeln('Next player.');
      end;
      antiz;
      DwarfItem;
      SolveFrog;
      FindCerter;
      FindDemon;
      FindQuiz;
      SolveBox;
      SolveSandWich;
      FindNormalRandoms;
      FindFastRandoms;
        FindLamp('woodcutting');
    end;
    
    
    Procedure findtree;
    begin
      if(findcolorspiraltolerance(x,y,treecolor1,msx1,msy1,msx2,msy2,20))or
        (findcolorspiraltolerance(x,y,treecolor2,msx1,msy1,msx2,msy2,15))or
        (findcolorspiraltolerance(x,y,treecolor3,msx1,msy1,msx2,msy2,10))then
      begin
        MMouse(x, y, 3, 3);
        if(IsUpTextMulti('chop','op do','down'))then
        begin
          writeln('Found a tree.')
          writeln('Lets Check It.')
          if(IsUpTextMulti('Tr','ee','down'))then
          begin
          Mouse(x, y, 2, 2, True);
          FindThoseRandoms;
          Wait(13);
          Exit;
        end else
        begin
          writeln('Redo Your colors!')
        end;
     end;
    end;
    end;
    
    procedure fletch;
    begin
    mmouse(710, 359, 3, 3);
    wait(234)
    mouse(x,y, 2, 2, True);
    wait(154)
    mmouse(750, 359, 3, 3);
    wait(325)
    mouse(x,y, 2, 2, True);
      if(findcolorspiraltolerance(x,y,longbow,msx1,msy1,msx2,msy2,20))then
      begin
      mmouse(x, y, 3, 3);
      mouse(x, y, 2, 2, False);
      ChooseOption(x, y, 'Make X');
      TypeSend('28');
      KeyDown(13);
    Sleep(1);
    KeyUp(13);
    wait(7500);
    end;
    end;
    
    procedure saddrop;
    begin
      if InvCount = 28 then
      begin
        DropTo(3, 28);
      end;
    end;
    
    procedure SetUp;
    begin
      if not(LoggedIn)then
        LoginPlayer;
        wait(345)
      HighestAngle;
      MakeCompass('N');
      SetRun(true);
      GameTab(4);
    end;
    
    begin
      SetUpSRL;
      BenMouse := UseBenMouse;
      Activateclient;
      SetUp;
      repeat
      findtree;
      FindThoseRandoms;
      fletch;
      FindThoseRandoms;
      saddrop;
      until(isfkeyDown(10))
    if(isfkeyDown(10))then
    terminatescript;
    end.

  2. #2
    Join Date
    Jun 2006
    Posts
    3,861
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    You don't have SRL 4 do you?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [SRL]Cutz N' Fletch
    By Reeces844 in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 11-12-2007, 04:43 AM
  2. Cutz and Fletch
    By Reeces844 in forum First Scripts
    Replies: 15
    Last Post: 10-29-2007, 11:29 AM
  3. Cutz N' Fletch
    By Reeces844 in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 10-29-2007, 12:29 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
  •