Results 1 to 5 of 5

Thread: Help whit lumby-dryanor runner

  1. #1
    Join Date
    Oct 2007
    Location
    Home
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Help whit lumby-dryanor runner


    Im making my first script.
    I have read lots of tuts, but none have help me whit this.

    Can someone help me make this pice of sript right?

    SCAR Code:
    program Dryanorwallker;
    {.include srl/srl.scar}
    Line 14: [Error] (15041:1): Unknown identifier 'NumberOfUsers' in script C:\Program Files 2\SCAR 3.12\Scripts\Omat\Runners\Dryanorrunner.scarvar x, y: Integer; //Global x And y
    var teleDM, StartpointDTM: Integer;


    Procedure DeclarePlayers;

      Begin
         NumberOfUsers = 7; // The Number of players to walk dryanor.
         HowManyPlayers:= NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;

         Players[0].Name :='';
         Players[0].Pass :='';
         Players[0].Nick :='';
         Players[0].Active:=True;
         Players[0].Boolean1  := True;       //not yet in lumby, dont worry but false and scipit will tele to you lumby and walk to destinaion =)!


         Writeln( IntToStr ( NumberOfUsers ) + ' Players' );

      End;



    end;

    procedure Telelumby;
    If Bolean1(flase); then
    begin
      TeleDM := DTMFromString('78DA6314606060006124F0EFDF3F30CD08E53' +
           '38A0109310634C088AA86074888A3AAE8EBFD8CAA06640F1B7E73' +
           '0009E40598');

      if FindDTM(Lobster, x, y, 100, 100, 250, 300) then //finds DTM
      begin
        MoveMouseSmooth(x,y: integer;)
        Mouse(x, y, 1, 1, true);
        wait(40000+random(10000);
        Writeln('Player is in Lumbridge, now he/she walks to Dryanor.');
      end;



    procedure Startpoint;
    begin
    StartpointDTM := DTMFromString('78DA632C64606008674001FF1414C0342394C' +
           'FD808245C51D530DA5D4755D304242A09A8F1051219A86AAC531E' +
           'A1A8010061B00832');
    if FindDTM(StartpointDTM,x, y,1, 1, 200, 200) then
    MoveMouseSmooth(x,y: integer;)
    ClickMouse(x,y: Integer; True: String)
    ClearDebug;
    FreeDTM(StartpointDTM);
    Writeln('Players is on Startposition and ready to go Dryanor Willage, relax and look adn scar play for you!');
     end;
     
     

    begin

    end;
    end.

    btw, I get this error all the time.



    Line 14: [Error] (15041:1): Unknown identifier 'NumberOfUsers' in script C:\Program Files 2\SCAR 3.12\Scripts\Omat\Runners\Dryanorrunner.scar

    Do I need to make proxedure to log players in or does scar that self?


    edit: Can someone make basic scirpt what logs in make compas direction X and stops. And then I can control that player? I need it for radial aid

    http://i223.photobucket.com/albums/d...RLforums-1.jpg
    RS Jail, banned for ever whit 5m in inventory(h) (h)

  2. #2
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    first off dont use clickmouse and movemouseex....just use Mouse it moves and clicks the mouse (humanlike), and for the error, your not defining NumberOfUsers as a variable...you need it to be a integer var

    var NumberOfUsers: Integer; //since its storing a number value

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


  3. #3
    Join Date
    Oct 2007
    Location
    Home
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks =) Im bit of noob
    =)
    http://i223.photobucket.com/albums/d...RLforums-1.jpg
    RS Jail, banned for ever whit 5m in inventory(h) (h)

  4. #4
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    here, wanna use mine?

    SCAR Code:
    Function {Name It} : Boolean;
    Var TimeToWalkBack, xx, yy : Integer;
    Begin
      MarkTime( TimeToWalkBack )
      Result := False;
      If Not RadialRoadWalk(FindRoadColor, 0, 25, 72, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(10000)
      FFlag(0)
      If Not RadialRoadWalk(FindRoadColor, 360, 270, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(10000)
      FFlag(0)
      If Not RadialRoadWalk(FindRoadColor, 360, 270, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(10000)
      FFlag(0)
      If Not RadialRoadWalk(FindRoadColor, 360, 280, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(10000)
      FFlag(0)
      If Not RadialRoadWalk(FindRoadColor, 260, 310, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(5000)
      FFlag(0)
      If Not RadialRoadWalk(FindRoadColor, 360, 280, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(5000)
      FFlag(0)
      If Not RadialRoadWalk(FindRoadColor, 290, 260, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(5000)
      FFlag(0)
      If Not RadialRoadWalk(FindRoadColor, 330, 270, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(5000)
      FFlag(0)
      If Not RadialRoadWalk(FindRoadColor, 250, 300, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(5000)
      FFlag(0)
      If Not RadialRoadWalk(FindRoadColor, 250, 300, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(5000)
      FFlag(0)
      If Not RadialWalk(FindRoadColor, 220, 260, 60, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(5000)
      FFlag(0)
      If Not RadialRoadWalk(FindRoadColor, 180, 230, 60, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(5000)
      FFlag(0)
      If Not RadialRoadWalk(FindRoadColor, 180, 205, 60, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(5000)
      FFlag(0)
      If Not RadialWalk(FindRoadColor, 180, 215, 60, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].Loc := 'lost'; NextPlayer(false); Exit; end;
      Wait(5000)
      FFlag(0)
      repeat
        Wait(1000+random(2342))
      Until( FindSymbol(xx, yy, 'bank') Or ( Not LoggedIn )
      Mouse(xx, yy, 5, 5, True);
      FFlag(0);
      If Not LoggedIn Then
      Begin
        Players[CurrentPlayer].loc := 'lost';
        NextPlayer(false);
        Exit;
      end else
      begin
        Writeln('Took ' + IntToStr(TimeFromMark(TimeToWalkBack / 1000)) + ' Secs to walk back! =]');
        Players[currentplayer].loc := 'bank';
        Result:=True;
      end;
    end;

    it takes the long way =]
    i just made the long way because I wanted to make it quick and i've made it on the dirt paths but sometimes it'll get stuck so... long way! ( road way )

  5. #5
    Join Date
    Oct 2007
    Location
    Home
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Mark Thx becos this is my first. And I want learn I make my own, But I will Use parts of you script =)

    Propaply i just copy all and but dirtyway numbers on it =)
    http://i223.photobucket.com/albums/d...RLforums-1.jpg
    RS Jail, banned for ever whit 5m in inventory(h) (h)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. i need help whit script!
    By linusgr in forum OSR Help
    Replies: 9
    Last Post: 07-02-2008, 09:53 AM
  2. Help whit includes?
    By Siikanen in forum OSR Help
    Replies: 3
    Last Post: 10-27-2007, 01:31 PM
  3. im trying to make a runner from lumby to.......
    By purskilzonly in forum OSR Help
    Replies: 5
    Last Post: 04-07-2007, 10:12 PM
  4. Problems whit MSN
    By Home in forum News and General
    Replies: 5
    Last Post: 04-12-2006, 12:55 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
  •