Results 1 to 2 of 2

Thread: I Get an error with my script :(

  1. #1
    Join Date
    Jul 2008
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default I Get an error with my script :(

    I just added a powerchopper to my firs scriptt, autosinger.
    but...
    i get an error with the drop... "DropToPosition"
    Try it please and try to fix?

    Code:
    program ZomgCollinFirstScript;
    {.include SRL\SRL.scar}
    
    // ZomgCollin's First Script! AutoSinger/Talker!
    // Song is "Don't Stop Me Now" by Queen!
    // http://www.srl-forums.com/
    
    var
    Talked, Antibans, TotalTalks :integer;
    
    const
    Message1 = 'green: Im a sex machine ready to reload!';
    Message2 = 'cyan: Like an atom BOMB!';
    Message3 = 'red: Im bout to oh, oh, oh, oh, oh, EXPLODE!';
    Message4 = 'green: Im burnin thru the sky! yeah!!!';
    Message5 = 'cyan: 200 degrees, thats why they call me mr. fahrenheight!';
    Message6 = 'red: Im travellin at the speed of light!!';
    Message7 = 'green: Oh, I want to make a super-sonic man out of you!';
    RunDirection = 'N';//N = North, E = East, And So on.
    LoadsPerPlayer = 30; //Amounts of loads per player before switching.
    TreeColor = 0;       //Fill in the treecolor here.
    WaitPerTree = 5000; //the time to wait while we are chopping the tree in Miliseconds.
    
    procedure DeclarePlayers;
    Begin
      HowManyPlayers := 2;    // how many players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;      // player to start
    
      Players[0].Name := 'user'; //your runescape account
      Players[0].Pass := 'pass'; // your runescape password of your account
      Players[0].Nick := 'nick'; //3 or 4 letters of the name, used for finding randoms
      Players[0].Active := True;   // want this account to bot or not?
      
      Players[1].Name := 'user'; //your runescape account
      Players[1].Pass := 'pass'; // your runescape password of your account
      Players[1].Nick := 'nick'; //3 or 4 letters of the name, used for finding randoms
      Players[1].Active := True;  // want this account to bot or not?
    end;
    
    Procedure FindFightEx;
    Begin
      If(FindFight) then
      Begin
        Status('Fight found!');
        Writeln('Our player is being attacked!')
        Writeln('Run the FUCK AWAY!!!!')
        Begin
          Status('Running the FUCK AWAY!!!!');
          Writeln('Running the FUCK AWAY!!!!');
          RunAway(RunDirection,False,1,8000+Random(3000))
          Writeln('Whew, We got the FUCK AWAY!');
        end;
      end;
    end;
    
    Procedure AntiRandoms;
    var
    i : Integer;
    Begin
      Status('Doing AntiRandoms');
        for i := 0 to 3 do
          FindNormalRandoms;
          FindFightEx;
          FindNonInventoryRandoms;
          wait(1);
    end;
    
    procedure Antiban;
    begin
      if not LoggedIn then Exit;
      case Random(68) of
        0:
          begin
            HoverSkill('Attack', False);
            Antibans:=Antibans+1;
          end;
        1:
          begin
            HoverSkill('Strength', False);
            Antibans:=Antibans+1;
          end;
        2:
          begin
            GameTab(1 + Random(12));
            wait(800 + random(500));
            GameTab(4);
            Antibans:=Antibans+1;
          end;
        3:
          begin
            BoredHuman;
            Antibans:=Antibans+1;
          end;
        4:
          begin
            AlmostLogout;
            Antibans:=Antibans+1;
          end;
        5:
          begin
            DoEmote(400 + Random(90));
            Antibans:=Antibans+1;
          end;
       end;
    end;
    
    procedure AutoTalk;
    begin
      if not LoggedIn then Exit;
      case Random(7) of
        0: Typesend(Message1);
        1: Typesend(Message2);
        2: Typesend(Message3);
        3: Typesend(Message4);
        4: Typesend(Message5);
        5: Typesend(Message6);
        6: Typesend(Message7);
      end;
      Talked:= Talked+1;
      TotalTalks:=TotalTalks+1;
    end;
    
    procedure Proggy;
    begin
      cleardebug;
      writeln('#+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#');
      writeln('Talked ' +IntToStr(TotalTalks)+' Times!');
      writeln('Performed '+IntToStr(Antibans)+' Antibans');
      writeln('Ran for '  +TimeRunning);
      writeln('#+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#');
    end;
    
    procedure ChopTree;
    var
      x, y, MyMark : integer;
    begin
      if not Loggedin then Exit;
      MarkTime(MyMark);
      repeat
        if FindObj(x, y, 'hop', TreeColor, 30) then
        begin
          Mouse(x, y, 0, 0, False);
          if ChooseOption('hop') then
          begin
            //increase 1 to the total tree chop - if we had one
            Exit; //We clicked chop, now we can exit this procedure.
          end;
        end;
        if TimeFromMark(MyMark) > (2 * 60 * 100) then
        begin
          Logout;
          Exit;
        end;
      until false
    end;
    
    
    procedure mainloop;
    begin
      repeat
        if Talked >= 25000 then
        begin
          writeln('We talked 25000 times!');
          NextPlayer(True);
          Talked:=Talked-Talked;
          mainloop;
        end;
        AutoTalk;
        AntiRandoms;
        Antiban;
        AntiRandoms;
        Proggy;
      until(false);
    end;
    
    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      SetAngle(true);
      MakeCompass('N');
      mainloop;
        if LoggedIn then Logout;
      LoginPlayer;
      repeat
        ChopTree;
        if InvFull then
        begin
          DropToPosition(2, 28);
          Inc(Players[CurrentPlayer].Banked);
          if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
          begin
            NextPlayer(True);
          end;
        end;
        if not Loggedin then NextPlayer(False);
      until false
    end.

  2. #2
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    DropToPosition is old, use something like this:

    SCAR Code:
    procedure DropLogs;
      var
       i: integer;
      begin
        for i := 2 to 28 do
          DropItem(i);
      end;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Line 135: [Error] (14845:1): Syntax error in script
    By AbsTrACt'^.| in forum OSR Help
    Replies: 16
    Last Post: 05-23-2008, 01:14 PM
  2. Replies: 5
    Last Post: 02-26-2008, 04:14 PM
  3. Error: Cannot Fix Script - Error Overgrowth - Begin Headdesking
    By PhantasmalScripter in forum OSR Help
    Replies: 6
    Last Post: 12-23-2006, 12:50 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
  •