Results 1 to 6 of 6

Thread: Fix My script

  1. #1
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Fix My script

    SCAR Code:
    program DraynorCutta;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/woodcutting.scar}

    const
    BankSymbolColor=11250352;
    willowcolor1=2902351;
    willowcolor2=3686456;
    willowcolor3=2971728;
    loadsperplayer=2;
    PickWielded=true;

    var
    logs : integer; Trees : integer;  loads : integer; tries : integer;
    var
    frmDesign : TForm;
    Start : TButton;

    Procedure DeclarePlayers;
    begin
         HowManyPlayers  :=3;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=0;        // CurrentPlayer = Array Index

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


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


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


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


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


         writeln(inttostr(HowManyPlayers)+' Players');

    end;


    procedure LoadDtms;
    begin;
    Logs:= DTMFromString('78DA63F460626078CA80021C2CC5C1342394C' +
           'F180854731B558DAB2D9A9A60A09AD7A86AFC5C2551D53801D5BC' +
           '4355939F668BAAC606D33D9E4E68E63802D5DC455563652282A20' +
           '60013200B2C');


    end;


    Procedure ProgressReport;
     begin;
    Writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
      Writeln('Willow cutter in draynor by Dritar progress report:');
              Writeln('Cutted '+ IntToStr(trees) + ' Trees');
                Writeln('Did '+ intToStr(loads) + ' loads');
     Writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
    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;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
    end;


    Procedure PrepCharacter;
    begin
      Activateclient;
      wait(30)
      MakeCompass('N');
      wait(30)
      setchat('Hide',1)
      setchat('friends',2)
      setchat('off',3)
      highestangle;
    end;

    procedure ToTrees;
    begin
    setrun(true)
    case random(3) of
      0: Mouse(640,125,2,2,true);
      1: Mouse(628,126,2,2,true);
      2: Mouse(645,144,2,2,true);
      3: Mouse(621,117,2,2,true);
     end
    end;

    procedure Antirandoms;
     begin
      If(findFight = true)then
      begin
      RunAwayDirection('N')
      wait(10000+random(3000))
      Runback;
      If(findent(willowcolor1))or
        (findent(willowcolor2))or
        (findent(willowcolor3))then
        begin
         RunAwayDirection('N')
         Wait(10000+random(2000))
         runback;
        end
     end
    end;

    Procedure FastRandoms;
    begin;
      FindFastRandoms;
      FindNormalRandoms;
    end;

    Procedure Antiban;
     begin
       case random(20) of
       1 : RandomRClick;
       2 : GameTab(1 + random(7));
       3 : Boredhuman;
       4 : Almostlogout;
       5 : HoverSkill('woodcutting',false);
           Wait(2222+random(333))
       6 : PickupMouse
       7 : LowestAnge;
           Wait(5+random(5))
       end
     end;

    Procedure CutTrees;
    begin
    wait(6000+random(2000))
    repeat
    AntiRandoms2;
    FindHead;
    If(findcolortolerance(x,y,willowcolor1,25,26,473,310,5))or
      (findcolortolerance(x,y,willowcolor2,25,26,473,310,5))or
      (findcolortolerance(x,y,willowcolor3,25,26,473,310,5))then
      begin
       Mmouse(x,y,2,2);
       If(IsUpText('illow'))then
        begin
         Mouse(x,y,2,2,false)
         AntiRandoms1;
         chooseoption(x,y,'own')
         wait(4000+random(3000))
       end
      end;
     Until(InvFull)
    end;

    Procedure AutoResponder;
    If(InChat('Hi'))Or(InChat('Hello')Or(InChat('hey')Or(InChat('hay')Or(InChat('sup')Or(InChat('yo'))Then
      Begin
        Case 1+Random(2) Of
          1: TypeSend('Hi');
          2: TypeSend('Hello');
          3: TypeSend('Hey!');
          4: TypeSend('sup?');
          5: TypeSend('yo');
          6: TypeSend('whats up?');
          7: TypeSend('hey m8');
          2: TypeSend('Hallo..');
          If(InChat('Macro'))Or(InChat('bot')Or(InChat('hack')Or(InChat('autoer')Or(InChat('are you macroing')Or(InChat('macrobot'))Then
        Case 1+Random(2) Of
          1: TypeSend('No, im not');
          2: TypeSend('Im a person, not a bot :/');
          3: TypeSend('Why do you think so?');
          4: TypeSend('Why would i?');
          5: TypeSend('No, im not man');
          6: TypeSend('NO!!!');
          7: TypeSend('No way mate');
          8: TypeSend('Whats this?');
          If(InChat('WC'))Or(InChat('Woodcutting?')Or(InChat('lvl')Or(InChat('wc lvl')Or(InChat('level')Or(InChat('woodcutting'))Then
        Case 1+Random(2) Of
          1: TypeSend (IntToStr(Players[CurrentPlayer].Level[15]);
          2: TypeSend (IntToStr(Players[CurrentPlayer].Level[15] + 'You?';
          3: TypeSend (IntToStr(Players[CurrentPlayer].Level[15])+ 'lol';
          4: TypeSend ('Currently ' +IntToStr(Players[CurrentPlayer].Level[15]);
          ('right now ' +IntToStr(Players[CurrentPlayer].Level[15]);
          5: TypeSend ('soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
          6: TypeSend ('very soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
          7: TypeSend ('secret');
          8: TypeSend ('ask me later');
          9: TypeSend ('ill tell you when i get level');
          Result:= True; //More to be added in ver 2.0

        End;
      End


    Procedure ToBank;
    begin;
      If(findSymbol(x,y,'bank'))then
      begin
        Mouse(x,y,2,2,true)
        Wait(5000+random(2000))
      end else
      begin
        If(FindColorTolerance(x,y,banksymbolcolor,582,24,700,125,5))then
        Mouse(x,y,2,2,true)
        wait(5000+random(2000))
      end
    end;


    Procedure Bank;
    begin;
      repeat
       openbank3
       wait(200+random(300));
       tries:= tries + 1;
      until(tries = 20);
     makecompass('w')
     repeat
     openbank3;
     wait(200+random(300))
     until(bankscreen)
    end;



    procedure BankLogs;
    begin
      If(Pickwielded=true)then
       DepositAll;
      If(pickwielded=false)then
      Deposit(2,28,2)
       trees:= trees + 28;
       loads:= loads + 1;
    end;


    begin;
    setupsrl;
    sig;
     repeat
      toTrees;
      CutTrees;
      tobank;
      opendabank;
      bankwillows;
     until(loads=loadsperplayer)
    ProgressReport;
    NextPlayer(false);
    end.
    Can someone please fix it?To more prof
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

    http://www.fenjer.com/adnan/SRLStats/2720.png

  2. #2
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    You didn't fill 'findent' in correct, this is the procedure like:

    {************************************************* ******************************
    function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
    By: Sumilion
    Description: Will look for an Ent and avoid if found.
    ************************************************** *****************************}

    Fixed for ya:

    SCAR Code:
    procedure Antirandoms;
    var
      x, y: Integer;
     begin
      If(findFight = true)then
      begin
      RunAwayDirection('N')
      wait(10000+random(3000))
      Runback;
      If(findent(x, y, True))then
        begin
         RunAwayDirection('N')
         Wait(10000+random(2000))
         runback;
        end
     end
    end;

    Next error wich is fixed:

    SCAR Code:
    Procedure Antiban;
     begin
       case random(7) of // case 7 only
       0 : RandomRClick; // start a random case with 0!
       1 : GameTab(1 + random(7));
       2 : Boredhuman;
       3 : Almostlogout;
       4 : begin     // begin and end;
             HoverSkill('woodcutting',false);
             Wait(2222+random(333))
           end;
       5 : PickupMouse; // you forgot the ';'
       6 : begin
             LowestAngle; //LowestAngle;
             Wait(5+random(5))
           end;
       end
     end;

    Next Error wich is fixed:

    SCAR Code:
    Procedure CutTrees;
    begin
    wait(6000+random(2000))
    repeat
    FastRandoms; // edit
    //FindHead; // not found that procedure
    If(findcolortolerance(x,y,willowcolor1,25,26,473,310,5))or
      (findcolortolerance(x,y,willowcolor2,25,26,473,310,5))or
      (findcolortolerance(x,y,willowcolor3,25,26,473,310,5))then
      begin
       Mmouse(x,y,2,2);
       If(IsUpText('illow'))then
        begin
         Mouse(x,y,2,2,false)
         FastRandoms; // edit
         chooseoption('own') // no more x, y,
         wait(4000+random(3000))
       end
      end;
     Until(InvFull)
    end;

    NEXT:

    SCAR Code:
    Procedure AutoResponder;
    begin
    If(InChat('Hi'))Or(InChat('Hello'))Or(InChat('hey'))Or(InChat('hay'))Or(InChat('sup'))Or(InChat('yo'))Then
      Begin
        Case 1+Random(7) Of
          1: TypeSend('Hi');
          2: TypeSend('Hello');
          3: TypeSend('Hey!');
          4: TypeSend('sup?');
          5: TypeSend('yo');
          6: TypeSend('whats up?');
          7: TypeSend('hey m8');
          2: TypeSend('Hallo..');
        end;
          If(InChat('Macro'))Or(InChat('bot'))Or(InChat('hack'))Or(InChat('autoer'))Or(InChat('are you macroing'))Or(InChat('macrobot'))Then
        Case 1+Random(7) Of
          1: TypeSend('No, im not');
          2: TypeSend('Im a person, not a bot :/');
          3: TypeSend('Why do you think so?');
          4: TypeSend('Why would i?');
          5: TypeSend('No, im not man');
          6: TypeSend('NO!!!');
          7: TypeSend('No way mate');
          8: TypeSend('Whats this?');
        end;
          {If(InChat('WC'))Or(InChat('Woodcutting?'))Or(InChat('lvl'))Or(InChat('wc lvl'))Or(InChat('level'))Or(InChat('woodcutting'))Then
        Case 1+Random(7) Of
          1: TypeSend (IntToStr(Players[CurrentPlayer].Level[15]);
          2: TypeSend (IntToStr(Players[CurrentPlayer].Level[15] + 'You?';
          3: TypeSend (IntToStr(Players[CurrentPlayer].Level[15])+ 'lol';
          4: TypeSend ('Currently ' +IntToStr(Players[CurrentPlayer].Level[15]);
          ('right now ' +IntToStr(Players[CurrentPlayer].Level[15]);
          5: TypeSend ('soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
          6: TypeSend ('very soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
          7: TypeSend ('secret');
          8: TypeSend ('ask me later');
          9: TypeSend ('ill tell you when i get level');
          end;                                          NOT WORKING AT ALL}

          //Result:= True; //More to be added in ver 2.0

        End;
      End;

    I JUST STOP NOW! you got some work to do m8!

  3. #3
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks, but i want to ask what with the last script in auto responder?
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

    http://www.fenjer.com/adnan/SRLStats/2720.png

  4. #4
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    IntToStr(Players[CurrentPlayer].Level[15])

    was giving me an error, and i do now see why, you forgot the ')'

  5. #5
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, thanks and whats with this?
    Line 187: [Error] (15069:1): Unknown identifier 'FastRandoms' in script C:\Documents and Settings\Krendzel\My Documents\DraynorCutta.scar
    Failed when compiling
    Line 187: [Error] (15069:23): Unknown identifier 'x' in script C:\Documents and Settings\Krendzel\My Documents\DraynorCutta.scar
    Failed when compiling

    I tried to fix but i couldn't
    Needed an oak auto cutter and willow auto cutter what includes:
    -Banking
    -Fast chopping, banking and finding what needed
    -Good autoresponder and antiban
    -Good and nice form
    -Easy to use
    -Great FailSafe
    -And more good things
    -Must work atleast for 4 hours
    Paying for them! 250k + 50k each week for making them work better
    Questions would be accepted, if deal, Krendzel@hotmail.com

    http://www.fenjer.com/adnan/SRLStats/2720.png

  6. #6
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    var
    x, y: integer;


    all next stuff you need to fix by yourself, i helped enough

Thread Information

Users Browsing this Thread

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

Posting Permissions

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