Results 1 to 6 of 6

Thread: Script Just sits there

  1. #1
    Join Date
    May 2008
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Script Just sits there

    Well, I made this script,
    SCAR Code:
    program New;
    {.include srl\srl.scar}
    {.include SRL\SRL\Reflection\Reflection.scar}

    var
    x,y:integer;

    const
    WillowColor = 2965816;  //Fill this in if it can't find the trees.
    WillowColor1 = 9745827;// Another Willow Color
    Loads = 1337;         // How many loads to do.

    Procedure DeclarePlayers;
    Begin

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

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

    end;

    Procedure WillowChoppa;
     begin
      Case random(2) of
      0:Begin
        FindObjCustom(x, y, ['hop down','hop','down','Chop Down'], [WillowColor,WillowColor1], 3)
        mouse(x,y,2,2,true)
       end;
      1:Begin
         FindObjCustom(x, y, ['hop down','hop','down','Chop Down'], [WillowColor,WillowColor1], 3)
        mouse(x,y,2,2,false)
        ChooseOption('Chop down')
       End;
     End;
    End;

    Procedure SetupSmart;
    Begin
      SmartSetup('161', true, true, false);
      SetTargetDC(SmartGetDC);
      while not SmartActive do wait(100);
      If not(Loggedin) then LoginPlayer;
    end;


    Function PathWalk(Path : array of TPoint; Tol, FlagD : integer): Boolean;
    var
    Count : integer;
    begin
      Count := 0;
      repeat
          Result := WalkToTile(Path[Count], Tol, FlagD);
        if not(Result) then
        begin
          WriteLn('Path walk failed');
          Exit;
        end;
        Count := Count + 1;
      until (not(Result)) or (Count = GetArrayLength(Path))
    end;

    function LoadPath: TPointArray;
    begin
      SetLength(Result, 4);
      Result[0] := Point(3093, 3245);
      Result[1] := Point(3086, 3244);
      Result[2] := Point(3087, 3236);
      Result[3] := Point(3087, 3231);
    end;

    function LoadPath2: TPointArray;
    begin
      SetLength(Result, 4);

      Result[0] := Point(3087, 3231);
      Result[1] := Point(3086, 3244);
      Result[2] := Point(3093, 3246);
      Result[3] := Point(3094, 3242);
    end;

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

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

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

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


    Procedure Banking;
    var
    I : Integer;
    begin
     WalkToBank;
     repeat
     OpenBankquiet('db')
     until(bankscreen)
     FixBank;
     For I := 2 to 28 do
      deposit(I,28,2);
      WalkToWillows;
    end;


    Begin;
      SetupSRL;
      SetupSmart;
      LoadPath;
      LoadPath2;
      if not LoggedIn then LoginPlayer;
      WalkToWillows;
       Repeat
        WillowChoppa
        until(InvFull)
       WalkToBank;
       Banking
    end.
    And when I press run, smart doesn't load, and nothing happens, whats going on here?

  2. #2
    Join Date
    Dec 2007
    Location
    Middle of Here and There
    Posts
    417
    Mentioned
    6 Post(s)
    Quoted
    25 Post(s)

    Default

    It's simple.

    Before you put in

    SCAR Code:
    {.include SRL/SRL.scar}

    put in

    SCAR Code:
    {.include SRL/SRL/Misc/SMART.scar}

    *should* work now.

    Hope I helped

  3. #3
    Join Date
    May 2008
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, I never realized that, thanks a ton. oh, and whoever stole all my stuff when I accidentally left my password in, walk into a slaughter house with a cow costume on >_> (jk, but seriously, give it back)

  4. #4
    Join Date
    Dec 2007
    Location
    Middle of Here and There
    Posts
    417
    Mentioned
    6 Post(s)
    Quoted
    25 Post(s)

    Default

    I hate account stealers >.>

    I've had 2 stolen, and almost had my main stolen about 2 weeks ago.

    I hope you get your account back =\


    So, does it work fine now?

  5. #5
    Join Date
    May 2008
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah it works fine, and, the wierd thing is, they somehow took the stuff, not the account, im happy I guess, at least they left me with enough feathers to buy a pickaxe (im mainly a miner, making these kind of scripts while the miners run )

  6. #6
    Join Date
    Dec 2007
    Location
    Middle of Here and There
    Posts
    417
    Mentioned
    6 Post(s)
    Quoted
    25 Post(s)

    Default

    Well, that's a relief

    Good luck with your scripting / autoing future!

    ProphesyOfWolf

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 1
    Last Post: 12-07-2008, 06:48 AM
  2. Logs in but just sits there!
    By insanomano in forum OSR Help
    Replies: 3
    Last Post: 10-25-2008, 03:48 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
  •