Results 1 to 3 of 3

Thread: Need Help With RadialRoadWalk BADLY!

  1. #1
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help With RadialRoadWalk BADLY!

    Ok currently me and my friend cut em 2it are trying to make a draynor yew cutting script, and i/we need some help with radialroadwalk.

    I got this here.
    SCAR Code:
    procedure WalkToYews;
    begin
       RadialRoadWalk(CementRoadColor,15,90,70,10,10);
       Flag;
    end;

    It should scan the map from east to north, then it should click on the road and walk... But it doesnt do it, somone help, i think it needs to find the road color, how do i make it autocolor the road color? I have the CementRoadColor in my var.
    Woot woot.

  2. #2
    Join Date
    Sep 2006
    Location
    West U.S.
    Posts
    2,172
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    i think it'll help more if you posted the entire script.

    remember to take out your pass.

    They are sisters...
    Runescape Classic

  3. #3
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here is the script.
    SCAR Code:
    program YewCutter;
    //Made And Coded By U L T R A & cut em 2it.
    //90 = east, 180 = south, 270 = west, 360 = north.
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}
    var
    CementRoadColor: Integer;

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

      Players[0].Name := 'Zezima';
      Players[0].Pass := 'rs99all99crazycrazy';
      Players[0].Integers[0] := 5; //Loads to do?
      Players[0].Booleans[0] := True; //Is axe wielded?
      Players[0].Active := True;

    end;

    procedure FirstWalkToYews;
    begin
       RadialRoadWalk(CementRoadColor,90,20,55,10,10);
       Flag;
    end;

    procedure SecondWalkToYews;
    begin
       RadialRoadWalk(CementRoadColor,90,270,70,10,10);
       Flag;
    end;

    procedure OpenBankDeposit(FirstSlot, EndSlot: integer);
    var
      x, y: integer;
    begin
      repeat
        FindObjCustom(x, y, ['Use', 'B', 'U'], [3421240, 4937311], 4);
        Mouse(x, y, 1, 1, false);
        ChooseOption('uick');
        Wait(1500+random(125));
      until(BankScreen);
      if BankScreen then
      begin
        Deposit(FirstSlot, EndSlot, 1);
      end;
      CloseBank;
    end;

    procedure Problems;
    var fx, fy:integer;
    begin
      FindBirdsNest;
      FindEnt(fx, fy, true);
    end;

    procedure FindYew;
    var x, y:integer;
    begin
      repeat
        FindObj(x, y, 'Yew', 3107935, 4);
        MMouse(x, y, 1, 1);
        Problems;
        if IsUpText('Yew') then
        begin
          Mouse(x, y, 1, 1, true);
          Problems;
        end;
      until(InvFull);
      Writeln('Done cutting yews.');
    end;

    procedure GetInBankAndDeposit;
    begin
      if Players[CurrentPlayer].Booleans[1] then
      begin
        OpenBankDeposit(1, 28);
      end else
      begin
        OpenBankDeposit(2, 28);
      end;
    end;

    begin
    SetUpSRL;
    ActivateClient;
    CementRoadColor:=5921634;
    begin
    FirstWalkToYews;
    SecondWalkToYews;
    end;
    end.
    Woot woot.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. IM new to srl Need Some Help Badly
    By failmenot42 in forum OSR Help
    Replies: 4
    Last Post: 02-03-2009, 10:54 PM
  2. Need some help badly!!!
    By Ultra in forum OSR Help
    Replies: 3
    Last Post: 11-30-2007, 06:44 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
  •