Results 1 to 7 of 7

Thread: Riazzers Draynor Cooker.

  1. #1
    Join Date
    Oct 2008
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Riazzers Draynor Cooker.

    This script will cook 26 items of the food.

    Setting up:
    1. Have a tinder box in your first slot inventory and the rest empty.
    2. Have logs in your first bank slot.
    3. Have the food you wish to cook your second slot in the bank.

    It uses reflection , so look here. \/\/\/


    Problems at the moment :
    Whenever you gain a cooking level , it does not continue to cook the rest of the food, it will just wait then head back to the bank. I was not too sure on fixing this problem, so thought i would post it up here. Hopefully someone can help

    SCAR Code:
    program FoodCooker;
    {.Include SRL\SRL\Misc\Smart.Scar}
    {.Include SRL\SRL.Scar}
    {.Include SRL\SRL\Reflection\Reflection.Scar}
    {.include SRL\SRL\Skill\Firemaking.scar}

    // Credits := How-To-Make a simple Reflection Walker - 0wn 4 skill
    // How to setup/include REFLECTION for propper use by Master Kill
    // Beginners and Intermediate Tutorials.
    // Search Function on SRL

    var
    x : integer;
    y : integer;


    const
    firecol= 1477818;
    numberofloads = 10;

    Procedure SetUpAngle;
    begin
      KeyDown(VK_UP);           // Sets the camera angle, makes it easier for it to detect the booth.
      wait(1000 + random(500));  // Found it via search on interweb :D
      Keyup(VK_UP);
      Writeln('Angle setup');
      wait(5000 + random(500));
    end;

    procedure AntiRandoms;
    begin
      if(not(LoggedIn))then Exit;
      findnormalrandoms;
      if findfight=true then runaway('E',true,1,4000+random(2000));
    end;

    procedure AntiBan;
    begin
      case random(15) of
        0: RandomRClick;
        1: BoredHuman;
        2: HoverSkill('Cooking', False);
      end;
    end;

    Procedure SetupSmart;
    Begin
      SmartSetup('world80', True, True, False);
      Wait(1000);
      SetTargetDC(SmartGetDC);
    end;

    Procedure DeclarePlayers;
    Begin

      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

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

    end;


    function BankSpot: TPointArray;
    begin
      SetLength(Result, 2);

      Result[0] := Point(3093, 3243);
      Result[1] := Point(3094, 3243);
    end;


    function FireSpot: TPointArray;
    begin
      SetLength(Result, 1);
     
      Result[0] := Point(3098, 3253);
    end;




    Procedure WalkToTheBank;
    Var
      I: Integer;
      Path: TPointArray;

    Begin
      AntiRandoms;
      Path := BankSpot;
      for i := 0 to High(Path) do
        Begin
           WalkToTile(Path[i], 3, 0);
        end;
      Wait(500+Random(300));
    end;

    Procedure WalkToTheFireSpot;
    Var
      I: Integer;
      Path: TPointArray;

    Begin
      AntiRandoms;
      Path := FireSpot;
        for i := 0 to High(Path) do
          Begin
             WalkToTile(Path[i], 3, 0);
          end;
        Wait(500+Random(300));
    end;

    procedure WithdrawFoodAndWood;

    begin
      OpenBankQuiet('db');
      wait(5000 + random(500));
      Deposit(2,28,true);      //Deposits everything from slot 2-28
      wait(1500 + random(500));
      writeln('Withdrawing Log');
      Withdraw(1,1,1);    //Withdraws a log from slot one
      wait(1000 + random(1000));
      writeln('Withdrawing Shrimp');
      withdraw(2,1,26); //Withdraws 26 of the item in slot 2 (Food)
      closebank;
    end;

    procedure MakeFire;
    begin
     AntiRandoms;
     MouseItem(1,true);
     wait(1500 + random(300));
     MouseItem(2,true);
    end;

    procedure CookFood;
    var
    fx, fy : integer;
    begin
      AntiBan;
      wait(10000 + random(500));
      if(ThereIsFire(fx,fy))then
      begin
        MouseItem(4,true);
        MMouse(fx,fy,2,2);
        AntiRandoms;
        wait(100+random(99));
        FindObj(x,y,'ire',firecol,50);
        Mouse(x, y, 2, 2, true);
        wait(5000 + random(500));
        mouse(250, 421, 10, 10, false);
        wait(500 + random(400));
        ChooseOption('All');
        AntiBan;
        Writeln('Cooking now');
        ClickToContinue;
        AntiRandoms;
        wait(50000 + random(5000));
      end;

    end;


    Begin
      SetupSRL;
      SetupSmart;
      DeclarePlayers;//Calls the DeclarePlayers procedure
      LoginPlayer;// This will log your player in.
      SetUpAngle; // Sets the angle, easier to find booth.
      WalkToTheBank;// Makes sure you're in the bank.
      WithdrawFoodAndWood;// Withdraws the logs and food.
      WalkToTheFireSpot;  // Moves out of the bank to a spot.
      MakeFire;           // Makes the fire.
      CookFood;         // Cooks the food.
      WalkToTheBank;      // Walks back to the bank.
      Logout; //This will log your player out!
    end.

    To do list : Set it up to run several cooking runs.
    Fix the cook all problem.
    Add any suggestions.

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

    Default

    awsome job , for first script seeing you using reflection gj catching on that.

    now learn color base walking
    you got alot of potential

  3. #3
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    progress Procedure+multiplayers and Non-Smart so noobies can just use SRL and SCAR ...will look though more later..great attempt for your first script though
    IM BACK!!!!!!!!!!!!!!!!!

  4. #4
    Join Date
    Sep 2008
    Location
    SWEDEN
    Posts
    363
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Today i'm just so happy
    Becuze i gonna do my first script
    I'm the happyest guy in the world

  5. #5
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Kinda irrelevant eh? but send me link when you make it i wanna see what you make
    IM BACK!!!!!!!!!!!!!!!!!

  6. #6
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Kinda irrelevant eh? but send me link when you make it i wanna see what you make

    Can a mod/admin remove this psot please was lagging and double clicked on submit Reply cuz it wuldnt load :S
    IM BACK!!!!!!!!!!!!!!!!!

  7. #7
    Join Date
    Oct 2008
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Riffe View Post
    Today i'm just so happy
    Becuze i gonna do my first script
    I'm the happyest guy in the world
    Ok you do that . then post it up so we all can see it

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. We Need A Cooker!!!
    By PlAnT in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 10-23-2008, 03:09 AM
  2. Rogues Den Cooker
    By Pk l0rd in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 10-11-2008, 02:33 PM
  3. What every cooker wants!
    By Swift in forum RS3 Outdated / Broken Scripts
    Replies: 19
    Last Post: 01-18-2008, 07:29 PM
  4. looking for a cooker
    By supersain in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 11-28-2007, 01:34 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
  •