Results 1 to 7 of 7

Thread: First Real Script -AutoShaftMaker -Help!

  1. #1
    Join Date
    Aug 2007
    Location
    Massachusetts
    Posts
    68
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default First Real Script -AutoShaftMaker -Help!

    Hi everybody, this was my first ever full script.
    However, it doesn't work
    It tells me it expects an identifier in line 29 or something.
    Also, any help at all is much appreciated.

    Vilon, I wasn't able to contact you, but I used your antiban, I hope that is ok?

    I tried to use standards.

    SCAR Code:
    { Arrow Shafter by Belt
     Credits:
     WT Fakawi for...a lot of stuff.
     Vilon for his Antiban  }



    program BeltArrowShaft;
     {.include SRL/SRL.scar}
     {.include SRL/SRL/skill/WoodCutting.scar}

    const
     TreeColor = 927012; //This should work...change if needed.
     ShaftsToMake =5; //How many logs do you want cut to shafts?
     
    procedure DeclarePlayers;
     begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 1;
     
     
     Players[1].Name := 'xxx'
     Players[1].Pass := 'xxx'
     Players[1].Nick := 'xxx'
     Players[1].Active := True;
     
    procedure ClearDebug;
     begin
      ClearDebug;
      WriteLn('BeltArrowShaft')
    end;

    function FindFastRandoms: boolean; //By WT-Fakawi.
      var
        i: integer;
      begin
        for i := 1 to 6 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;

    procedure FindRandoms;
      begin
        FindFastRandoms;
        FindNormalRandoms;
      end;
    procedure AntiBan;       //Taken from Vilon Flax Spinner! Thank you!
     begin
      PlayerCheck;
      case random(35) + 1 of
        0: HoverSkill('fletching', false);
        1: HoverSkill('random', false);
        2: BoredHuman;
        3: HoverSkill('crafting', false);
        4: BoredHuman;
        5: BoredHuman;
        6: HoverSkill('woodcutting', false);
      end;

    procedure FindTree;
     begin
      if FindColor(x,y,TreeColor,0,0,600,600) then
        Wait(1500);
        MMouse(x,y,3,3)
        Wait(1500);
      if (IsUpText('Tree')) then
        Mouse(x,y,3,3, False);
        Wait(1500);
        ChooseOption(x,y,'Chop');
        Wait(4000)
        ;
     end;
     
    procedure ShaftTime;
     begin
      Mouse(668,228,3,3,True);
      Wait(1500);
      Mouse(624,229,3,3,True);
      Wait(1500);
      MMouse(80,405,3,3);
      Wait(1500);
      if (IsUpText('Make')) then
       Mouse(80,405,3,3,True);
      Wait(3500);
     end;
     
    begin
     SetupSRL;
     DeclarePlayers;
     repeat
      FindTree;
      FindRandoms;
      FindFastRandoms;
      ShaftTime;
      ClearDebug;
     until (ShaftsToCut);
    end.
    -Belt

  2. #2
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    k dude 1st of this should go to srl scripting help =/ because it does not work?

    btw i cant help you atm im in school , =) sorry just wanted to let you know.

    still Good Job =) keep practicing

    btw Mouse is bannable because jagex will detect you clicking same place =P

  3. #3
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    man, if i was you i should go to tut island your script was full of mistakes kind of small things, just look wat changed but its better then my first script so be proud

    SCAR Code:
    { Arrow Shafter by Belt
     Credits:
     WT Fakawi for...a lot of stuff.
     Vilon for his Antiban  }



    program BeltArrowShaft;
     {.include SRL/SRL.scar}
     {.include SRL/SRL/skill/WoodCutting.scar}

    const
     TreeColor = 927012; //This should work...change if needed.
     ShaftsToCut =5; //How many logs do you want cut to shafts?

    var
      x,y,gototutislanddude:integer;


    procedure DeclarePlayers;
     begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 1;


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

    procedure ClearDebug;
     begin
      ClearDebug;
      WriteLn('BeltArrowShaft')
    end;



    procedure AntiBan;       //Taken from Vilon Flax Spinner! Thank you!
     begin

      case random(35) + 1 of
        0: HoverSkill('fletching', false);
        1: HoverSkill('random', false);
        2: BoredHuman;
        3: HoverSkill('crafting', false);
        4: BoredHuman;
        5: BoredHuman;
        6: HoverSkill('woodcutting', false);
      end;
    end;

    procedure FindTree;
     begin
      if FindColor(x,y,TreeColor,0,0,600,600) then
        Wait(1500);
        MMouse(x,y,3,3)
        Wait(1500);
      if (IsUpText('Tree')) then
        Mouse(x,y,3,3, False);
        Wait(1500);
        ChooseOption('Chop');
        Wait(4000)
        ;
     end;

    procedure ShaftTime;
     begin
      Mouse(668,228,3,3,True);
      Wait(1500);
      Mouse(624,229,3,3,True);
      Wait(1500);
      MMouse(80,405,3,3);
      Wait(1500);
      if (IsUpText('Make')) then
       Mouse(80,405,3,3,True);
      Wait(3500);
     end;

    begin
     SetupSRL;
     DeclarePlayers;
     repeat
      gototutislanddude:=gototutislanddude+1
      FindTree;
      FindNormalRandoms;
      ShaftTime;
      ClearDebug;
     until (gototutislanddude>ShaftsToCut);
    end.

    Quote Originally Posted by p1nky View Post

    btw Mouse is bannable because jagex will detect you clicking same place =P
    no mouse is not ban able onyl clicking on co-oords is ban-able
    ~Hermen

  4. #4
    Join Date
    Aug 2007
    Location
    Massachusetts
    Posts
    68
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol, thanks hermpie.
    I read some of the stuff there, I'll go check it out some more.
    I don't know how I forgot to set up the var part
    -Belt

  5. #5
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by p1nky View Post
    k dude 1st of this should go to srl scripting help =/ because it does not work?

    btw i cant help you atm im in school , =) sorry just wanted to let you know.

    still Good Job =) keep practicing

    btw Mouse is bannable because jagex will detect you clicking same place =P
    Quote Originally Posted by Belt View Post
    Lol, thanks hermpie.
    I read some of the stuff there, I'll go check it out some more.
    I don't know how I forgot to set up the var part
    i know how, you forgot it im so (not)funny i can help you but then add me on msn
    ~Hermen

  6. #6
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Standards fixed? (on code hermpie posted)

    SCAR Code:
    { Arrow Shafter by Belt
     Credits:
     WT Fakawi for...a lot of stuff.
     Vilon for his Antiban  }

     
     
    program BeltArrowShaft;
      {.include SRL/SRL.scar}
      {.include SRL/SRL/skill/WoodCutting.scar}
     
    const
      TreeColor   = 927012; //This should work...change if needed.
      ShaftsToCut = 5;      //How many logs do you want cut to shafts?
     
    var
      x, y, gototutislanddude: Integer;
     
     
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 1;

      Players[0].Name := 'xxx';
      Players[0].Pass := 'xxx';
      Players[0].Nick := 'xxx';
      Players[0].Active := true;
    end;
     
    procedure ClearDebug;
    begin
      ClearDebug;
      Writeln('BeltArrowShaft');
    end;
     
     
     
    procedure AntiBan;       //Taken from Vilon Flax Spinner! Thank you!
    begin
      case Random(35) + 1 of
        0: HoverSkill('fletching', false);
        1: HoverSkill('random', false);
        2: BoredHuman;
        3: HoverSkill('crafting', false);
        4: BoredHuman;
        5: BoredHuman;
        6: HoverSkill('woodcutting', false);
      end;
    end;
     
    procedure FindTree;
    begin
      if FindColor(x, y, TreeColor, 0, 0, 600, 600) then Wait(1500);
      MMouse(x, y, 3, 3);
      Wait(1500);
      if (IsUpText('Tree')) then Mouse(x, y, 3, 3, false);
      Wait(1500);
      ChooseOption('Chop');
      Wait(4000);
    end;
     
    procedure ShaftTime;
    begin
      Mouse(668, 228, 3, 3, true);
      Wait(1500);
      Mouse(624, 229, 3, 3, true);
      Wait(1500);
      MMouse(80, 405, 3, 3);
      Wait(1500);
      if (IsUpText('Make')) then Mouse(80, 405, 3, 3, true);
      Wait(3500);
    end;
     
    begin
      SetupSRL;
      DeclarePlayers;
      repeat
        gototutislanddude := gototutislanddude + 1  FindTree;
        FindNormalRandoms;
        ShaftTime;
        ClearDebug;
      until (gototutislanddude > ShaftsToCut);
    end.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  7. #7
    Join Date
    Aug 2007
    Location
    Massachusetts
    Posts
    68
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks everybody.
    I just found a great tutorial, it is helping a ton
    -Belt

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Well, Jagex just killed script selling, real world trading.
    By The Claw in forum News and General
    Replies: 33
    Last Post: 12-10-2007, 01:16 PM
  2. A Real Script Request
    By jez in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 08-30-2007, 06:08 PM
  3. A Real Nice Script I Found
    By SneakPro in forum RS3 Outdated / Broken Scripts
    Replies: 16
    Last Post: 04-19-2007, 04:24 AM
  4. Ok, the real story
    By Slixor in forum News and General
    Replies: 12
    Last Post: 06-29-2006, 05:34 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
  •