Results 1 to 14 of 14

Thread: [error]

  1. #1
    Join Date
    Aug 2007
    Posts
    328
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [error]

    Look at my last post

  2. #2
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    What error are you receiving? I don't tend to personally run/compile this script but just look at where the error is occuring and fixing it.
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  3. #3
    Join Date
    Aug 2007
    Posts
    328
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Its right before this
    Code:
    Function FindFastRandoms: Boolean;    // By WT-Fakawi.
    var
      i: Integer;
    begin
      for i:=1 to 12 do
      begin
        case I of
           1:  If FindDead then
                 Result := True;
           2:  If FindMod then
                 Result := True;
           3:  If FindMime then
                 Result := True;
           4:  If FindMaze then
                 Result := True;
           5:  If FindQuiz then
                 Result := True;
           6:  If FindDemon then
                 Result := True;
           7:  if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 end;
           8 : If RC Then Result := True;
    
           9: If FindTalk Then Result := True;
    
           10: If HandleTrade Then Result := True;
           11: If SolveChatRandom Then Result := True;
           12: ClickToContinue;
        End;
        Wait(1);
      end;
    end;
    
    // New Randoms Checking.
    
    Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
    
    Var
       I, iX,iY: Integer;
    Begin
      For I := iFrom To ITo Do
      Begin
        iX := Round(Distance * Sin(I * Pi / 180)) + 648;
        iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
        If GetColor(iX, iY) = 65536 Then
        Begin
          Result := Result + 1;
        End;
      End;
    End;
    
    procedure AntiBanage;
    begin
      if(not(LoggedIn))then
      Exit;
      case Random(13) of
    
        0: RandomRClickEvery(3 + Random(3));
    
        1: begin
             HoverSkill('Fishing', false);
             wait(2000+random(1000));
             GameTab(4);
           end;
    
        2: begin
             HoverSkill('Cooking', false);
             wait(2000+random(1000));
             GameTab(4);
           end;
    
        3: JADCompass;
    
        4: RandomChatEvery(4 + Random(4));
    
        5: LeaveScreenEvery(10 + Random(4));
    
        6: PickUpMouse;
    
        7: BoredEvery(10 + Random(5));
    
        8: begin
             GameTab(1 + Random(12));
             wait(1000+random(1000));
             GameTab(4);
           end;
    
        9: begin
             case random(4) of
               0: TypeSend('Fishing lvls?');
    
               1: TypeSend('Fishing levels');
    
               2: TypeSend('Cooking lvls');
    
               3: TypeSend('Cooking levels');
             end;
           end;
    
        10: MouseBox(MSX1,MMY1,MMX2,MMY2,3);
    
        11: AntiBan;
    
        12: SleepAndMoveMouse(600000+random(300000));
    
      end;
    end;
    
    
     Begin
     if not LoggedIn then
     WriteIn(Not logged in);
     Terminate Script;
    
     if LoggedIn then
      repeat
        Typed_Message;
        TypedTimes := TypedTimes + 1;
      until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage1)(TypedTimes >= TimesToTypeMessage2)(TypedTimes >= TimesToTypeMessage1)// this makes it stop if the press F8 or the typed times is >= TimesToType
    end.

  4. #4
    Join Date
    Aug 2007
    Posts
    429
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    What error do u get

    EDIT:
    It's because this procedure:
    SCAR Code:
    begin
    SetupSRL;
    if (FindRS) then
    begin
      ActivateClient;
      Writeln('Runescape Found');
    end else
    begin
      Writeln('Runescape Not Found, Terminating Script');
      TerminateScript;
      end;
    end; //end here =]
    Doesn't have a name..
    Just make it like:
    SCAR Code:
    Procedure Setup; //like this
    begin
    SetupSRL;
    if (FindRS) then
    begin
      ActivateClient;
      Writeln('Runescape Found');
    end else
    begin
      Writeln('Runescape Not Found, Terminating Script');
      TerminateScript;
      end;
    end; //end here =]
    Then put that in your main loop.
    SCAR Code:
    Begin
      Setup; //like so
     if not LoggedIn then
     WriteIn(Not logged in);
     Terminate Script;

     if LoggedIn then
      repeat
        Typed_Message;
        TypedTimes := TypedTimes + 1;
      until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage1)(TypedTimes >= TimesToTypeMessage2)(TypedTimes >= TimesToTypeMessage1)// this makes it stop if the press F8 or the typed times is >= TimesToType
    end.

  5. #5
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    With evilbob pops up?
    Uninstall SRL completely, then install rev 9
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  6. #6
    Join Date
    Aug 2007
    Posts
    328
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wait new error that i gots no idea how to fix....

    SCAR Code:
    program AutoTalker;
    {.include SRL/SRL.scar}

    var
      TypedTimes : Integer;
       WriteIn
       
    {start to edit here}
    const
      Message1 = 'I think scar is cool';//input message here
      TimesToTypeMessage1 = 3;//how many times you wana type it

      Message2 = 'Do you think scar is cool?';//input 2nd message
      TimesToTypeMessage2 = 3;//how many times you wana type it

      Message3 = 'What I never heard you!';//input 3nd message
      TimesToTypeMessage3 = 3;//how many times you wana type it


    procedure Typed_Message;

    begin
    SetupSRL;
     if (IsFkeyDown(1)) then
      TypeSend(Message1);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends
     if (IsFkeyDown(2)) then
      TypeSend(Message2);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends
     if (IsFkeyDown(3)) then
      TypeSend(Message3);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends

    end;

    Procedure DeclarePlayers;
    Begin
     HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.
     
      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;

        NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    End;
    {----------Stop Editing---------}
    Procedure Setup;
    begin
    SetupSRL;
    if (FindRS) then
    begin
      ActivateClient;
      Writeln('Runescape Found');
    end else
    begin
      Writeln('Runescape Not Found, Terminating Script');
      TerminateScript;
      end;
    end; //end here =]

    Function FindFastRandoms: Boolean;    // By WT-Fakawi.
    var
      i: Integer;
    begin
      for i:=1 to 12 do
      begin
        case I of
           1:  If FindDead then
                 Result := True;
           2:  If FindMod then
                 Result := True;
           3:  If FindMime then
                 Result := True;
           4:  If FindMaze then
                 Result := True;
           5:  If FindQuiz then
                 Result := True;
           6:  If FindDemon then
                 Result := True;
           7:  if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 end;
           8 : If RC Then Result := True;

           9: If FindTalk Then Result := True;


           10: If SolveChatRandom Then Result := True;
           12: ClickToContinue;
        End;
        Wait(1);
      end;
    end;

    // New Randoms Checking.

    Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;

    Var
       I, iX,iY: Integer;
    Begin
      For I := iFrom To ITo Do
      Begin
        iX := Round(Distance * Sin(I * Pi / 180)) + 648;
        iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
        If GetColor(iX, iY) = 65536 Then
        Begin
          Result := Result + 1;
        End;
      End;
    End;
    Procedure Logged_In;

     Begin
     if not LoggedIn then
      WriteIn('Not Logged In');
     TerminateScript;

     if LoggedIn then
     
      if (IsFkeyDown(1) then
        TypedTimes := TypedTimes + 1;
        until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage1)

      if (IsFkeyDown(2) then
        TypedTimes := TypedTimes + 1;
        until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage2)
     
      if (IsFkeyDown(3) then
         TypedTimes := TypedTimes + 1;
         until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage3)
    end.

  7. #7
    Join Date
    Aug 2007
    Posts
    429
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Take out line 6:
    "WriteIn"

    actually BTW it is WriteLn (with an L not an I)

  8. #8
    Join Date
    Aug 2007
    Posts
    328
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Really

    thx

  9. #9
    Join Date
    Aug 2007
    Posts
    328
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Final Problem
    SCAR Code:
    program AutoTalker;
    {.include SRL/SRL.scar}

    var
      TypedTimes : Integer;
      PS, W, L, SE, LZ, T, PG: Word;
      x, y, DBAxe, Symbol, Death, Middle, Ammo, RewardScreen, Start, Time1, SquirePt: Integer;
      GamesDone, Tries, NotFound, Logins, b, CP: Byte;
      RangeType, Boat: string;
      Ancients, Relog, SkipSearch, Limited, C, D: Boolean;
      MonsterColor: array [0..13] of integer;
      Monster: array [0..6] of string;

    {start to edit here}
    const
      Message1 = 'I think scar is cool';//input message here
      TimesToTypeMessage1 = 3;//how many times you wana type it

      Message2 = 'Do you think scar is cool?';//input 2nd message
      TimesToTypeMessage2 = 3;//how many times you wana type it

      Message3 = 'What I never heard you!';//input 3nd message
      TimesToTypeMessage3 = 3;//how many times you wana type it


    procedure Typed_Message;

    begin
    SetupSRL;
     if (IsFkeyDown(1)) then
      TypeSend(Message1);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends
     if (IsFkeyDown(2)) then
      TypeSend(Message2);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends
     if (IsFkeyDown(3)) then
      TypeSend(Message3);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends

    end;

    Procedure DeclarePlayers;
    Begin
     HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.

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

        NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    End;
    {----------Stop Editing---------}
    Procedure Setup;
    begin
    SetupSRL;
    if (FindRS) then
    begin
      ActivateClient;
      Writeln('Runescape Found');
    end else
    begin
      Writeln('Runescape Not Found, Terminating Script');
      TerminateScript;
      end;
    end; //end here =]

    Function FindFastRandoms: Boolean;    // By WT-Fakawi.
    var
      i: Integer;
    begin
      for i:=1 to 12 do
      begin
        case I of
           1:  If FindDead then
                 Result := True;
           2:  If FindMod then
                 Result := True;
           3:  If FindMime then
                 Result := True;
           4:  If FindMaze then
                 Result := True;
           5:  If FindQuiz then
                 Result := True;
           6:  If FindDemon then
                 Result := True;
           7:  if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 end;
           8 : If RC Then Result := True;

           9: If FindTalk Then Result := True;


           10: If SolveChatRandom Then Result := True;
           12: ClickToContinue;
        End;
        Wait(1);
      end;
    end;

    function FindNormalRandomsA: Boolean;   //Not by me
    var                              //occasionally confusing the find-dead procedure
      i: byte;                    //also added findfight
    begin
      if not LoggedIn then Exit;
      w_UpdateLastLine;
      for i := 1 to 7 do
      begin
        case I of
          1: SolveNonTalkingRandoms;
          2: Respond;
          3: Result := FindTalk;
          4: Result := FindDead;
          5: Result := FindLamp(LampSkill);
          6: if FindBox then
              Result := SolveBox;
          7: Result :=  RC;
        end;
        if FindFight then RunTo('N',True);
        if Result then Break;
      end;
    end;
    // New Randoms Checking.

    Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;

    Var
       I, iX,iY: Integer;
    Begin
      For I := iFrom To ITo Do
      Begin
        iX := Round(Distance * Sin(I * Pi / 180)) + 648;
        iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
        If GetColor(iX, iY) = 65536 Then
        Begin
          Result := Result + 1;
        End;
      End;
    End;

    procedure AntiBan(Limited:Boolean);  //Not By me
    var
      AB: byte;
    begin
      Status('Performing antiban');
      if Limited then AB := RandomRange(0,19) else AB := RandomRange(0,29);
      case AB of
        0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
        1: GameTab(1 + random(10));
        2: begin                       //less lengthy version of hoverskill,
             GameTab(2);               //now that hovering shows remaining xp till lvl.
             Wait(RandomRange(100,400));
             MMouse(635, 327, 100, 140); //Randomize Coords
             Wait(RandomRange(1000,1700));
           end;
        3: SleepAndMoveMouse(500 + Random(500));
        4: PickupMouse;
        5: begin
             MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
             MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
             MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
           end;
        6,7,8,9: MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
        10,11,12:
          begin
            MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
            MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
          end;
        13,14,15: GameTab(1 + random(13));
        16: begin
              GameTab(1 + random(13));
              GameTab(1 + random(13));
            end;
        17: begin
              GameTab(1 + random(13));
              MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
            end;
        18: begin
              MMouse(10,  -100, (RandomRange(10,40)) , (RandomRange(10,40)));
              MMouse(x,  y, (RandomRange(10,40)) , (RandomRange(10,40)));
            end;
        19: MouseSpeed := 12 + Random(5);
        20: MakeCompass('N');  //if waiting for game to start
        21: MakeCompass('E');  //it won't move compass
        22: MakeCompass('W');
        23: MakeCompass('S');
        24: RandomMovement;
        25: case Random(2) of
              0:begin
                  KeyDown(VK_Left);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Left);
                  Wait(RandomRange(100,600));
                end;
              1:begin
                  KeyDown(VK_Right);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Right);
                  Wait(RandomRange(100,600));
                end;
            end;
        26: HighestAngle;
        27,28: LowestAngle;
        29: case Random(2) of
              0:begin
                  KeyDown(VK_Down);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Down);
                  Wait(RandomRange(100,600));
                end;
              1:begin
                  KeyDown(VK_Up);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Up);
                  Wait(RandomRange(100,600));
                end;
            end;
      end;
      Status('');
    end;


    Procedure Logged_In;

     Begin
     if not LoggedIn then
      Writeln('Not Logged In');
     TerminateScript;

     if LoggedIn then

      if (IsFkeyDown(1)) then
        TypedTimes := TypedTimes + 1;
        until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage1)

      if (IsFkeyDown(2)) then
        TypedTimes := TypedTimes + 1;
        until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage2)

      if (IsFkeyDown(3)) then
         TypedTimes := TypedTimes + 1;
         until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage3)
    end.
    I get this:
    Code:
    Line 241: [Error] (16231:1): Identifier expected in script
    Now i thought that when i entered This:
    SCAR Code:
    const
      Message1 = 'I think scar is cool';//input message here
      TimesToTypeMessage1 = 3;//how many times you wana type it

      Message2 = 'Do you think scar is cool?';//input 2nd message
      TimesToTypeMessage2 = 3;//how many times you wana type it

      Message3 = 'What I never heard you!';//input 3nd message
      TimesToTypeMessage3 = 3;//how many times you wana type it
    scar would realize that the
    identafier is 3 but it does not how do i make it realize this?

  10. #10
    Join Date
    Nov 2007
    Location
    Nowhereville
    Posts
    1,155
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    Function FindFastRandoms: Boolean;    // By WT-Fakawi.
    var
      i: Integer;
    begin
      for i:=1 to 12 do
      begin
        case I of
           1:  If FindDead then
                 Result := True;
           2:  If FindMod then
                 Result := True;
           3:  If FindMime then
                 Result := True;
           4:  If FindMaze then
                 Result := True;
           5:  If FindQuiz then
                 Result := True;
           6:  If FindDemon then
                 Result := True;
           7:  if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 end;
           8 : If RC Then Result := True;
     
           9: If FindTalk Then Result := True;
     
     
           10: If SolveChatRandom Then Result := True;
           12: ClickToContinue;
           end; //end here
        End;
        Wait(1);
      end;
    end;

    I think this will solve the problem!!!
    Formerly known as Cut em2 it

  11. #11
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by BlueWorld View Post
    Final Problem
    SCAR Code:
    program AutoTalker;
    {.include SRL/SRL.scar}

    var
      TypedTimes : Integer;
      PS, W, L, SE, LZ, T, PG: Word;
      x, y, DBAxe, Symbol, Death, Middle, Ammo, RewardScreen, Start, Time1, SquirePt: Integer;
      GamesDone, Tries, NotFound, Logins, b, CP: Byte;
      RangeType, Boat: string;
      Ancients, Relog, SkipSearch, Limited, C, D: Boolean;
      MonsterColor: array [0..13] of integer;
      Monster: array [0..6] of string;

    {start to edit here}
    const
      Message1 = 'I think scar is cool';//input message here
      TimesToTypeMessage1 = 3;//how many times you wana type it

      Message2 = 'Do you think scar is cool?';//input 2nd message
      TimesToTypeMessage2 = 3;//how many times you wana type it

      Message3 = 'What I never heard you!';//input 3nd message
      TimesToTypeMessage3 = 3;//how many times you wana type it


    procedure Typed_Message;

    begin
    SetupSRL;
     if (IsFkeyDown(1)) then
      TypeSend(Message1);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends
     if (IsFkeyDown(2)) then
      TypeSend(Message2);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends
     if (IsFkeyDown(3)) then
      TypeSend(Message3);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends

    end;

    Procedure DeclarePlayers;
    Begin
     HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.

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

        NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    End;
    {----------Stop Editing---------}
    Procedure Setup;
    begin
    SetupSRL;
    if (FindRS) then
    begin
      ActivateClient;
      Writeln('Runescape Found');
    end else
    begin
      Writeln('Runescape Not Found, Terminating Script');
      TerminateScript;
      end;
    end; //end here =]

    Function FindFastRandoms: Boolean;    // By WT-Fakawi.
    var
      i: Integer;
    begin
      for i:=1 to 12 do
      begin
        case I of
           1:  If FindDead then
                 Result := True;
           2:  If FindMod then
                 Result := True;
           3:  If FindMime then
                 Result := True;
           4:  If FindMaze then
                 Result := True;
           5:  If FindQuiz then
                 Result := True;
           6:  If FindDemon then
                 Result := True;
           7:  if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 end;
           8 : If RC Then Result := True;

           9: If FindTalk Then Result := True;


           10: If SolveChatRandom Then Result := True;
           12: ClickToContinue;
        End;
        Wait(1);
      end;
    end;

    function FindNormalRandomsA: Boolean;   //Not by me
    var                              //occasionally confusing the find-dead procedure
      i: byte;                    //also added findfight
    begin
      if not LoggedIn then Exit;
      w_UpdateLastLine;
      for i := 1 to 7 do
      begin
        case I of
          1: SolveNonTalkingRandoms;
          2: Respond;
          3: Result := FindTalk;
          4: Result := FindDead;
          5: Result := FindLamp(LampSkill);
          6: if FindBox then
              Result := SolveBox;
          7: Result :=  RC;
        end;
        if FindFight then RunTo('N',True);
        if Result then Break;
      end;
    end;
    // New Randoms Checking.

    Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;

    Var
       I, iX,iY: Integer;
    Begin
      For I := iFrom To ITo Do
      Begin
        iX := Round(Distance * Sin(I * Pi / 180)) + 648;
        iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
        If GetColor(iX, iY) = 65536 Then
        Begin
          Result := Result + 1;
        End;
      End;
    End;

    procedure AntiBan(Limited:Boolean);  //Not By me
    var
      AB: byte;
    begin
      Status('Performing antiban');
      if Limited then AB := RandomRange(0,19) else AB := RandomRange(0,29);
      case AB of
        0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
        1: GameTab(1 + random(10));
        2: begin                       //less lengthy version of hoverskill,
             GameTab(2);               //now that hovering shows remaining xp till lvl.
             Wait(RandomRange(100,400));
             MMouse(635, 327, 100, 140); //Randomize Coords
             Wait(RandomRange(1000,1700));
           end;
        3: SleepAndMoveMouse(500 + Random(500));
        4: PickupMouse;
        5: begin
             MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
             MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
             MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
           end;
        6,7,8,9: MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
        10,11,12:
          begin
            MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
            MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
          end;
        13,14,15: GameTab(1 + random(13));
        16: begin
              GameTab(1 + random(13));
              GameTab(1 + random(13));
            end;
        17: begin
              GameTab(1 + random(13));
              MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
            end;
        18: begin
              MMouse(10,  -100, (RandomRange(10,40)) , (RandomRange(10,40)));
              MMouse(x,  y, (RandomRange(10,40)) , (RandomRange(10,40)));
            end;
        19: MouseSpeed := 12 + Random(5);
        20: MakeCompass('N');  //if waiting for game to start
        21: MakeCompass('E');  //it won't move compass
        22: MakeCompass('W');
        23: MakeCompass('S');
        24: RandomMovement;
        25: case Random(2) of
              0:begin
                  KeyDown(VK_Left);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Left);
                  Wait(RandomRange(100,600));
                end;
              1:begin
                  KeyDown(VK_Right);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Right);
                  Wait(RandomRange(100,600));
                end;
            end;
        26: HighestAngle;
        27,28: LowestAngle;
        29: case Random(2) of
              0:begin
                  KeyDown(VK_Down);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Down);
                  Wait(RandomRange(100,600));
                end;
              1:begin
                  KeyDown(VK_Up);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Up);
                  Wait(RandomRange(100,600));
                end;
            end;
      end;
      Status('');
    end;


    Procedure Logged_In;

     Begin
     if not LoggedIn then
      Writeln('Not Logged In');
     TerminateScript;

     if LoggedIn then

      if (IsFkeyDown(1)) then
        TypedTimes := TypedTimes + 1;
        until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage1)

      if (IsFkeyDown(2)) then
        TypedTimes := TypedTimes + 1;
        until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage2)

      if (IsFkeyDown(3)) then
         TypedTimes := TypedTimes + 1;
         until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage3)
    end.
    I get this:
    Code:
    Line 241: [Error] (16231:1): Identifier expected in script
    Now i thought that when i entered This:
    SCAR Code:
    const
      Message1 = 'I think scar is cool';//input message here
      TimesToTypeMessage1 = 3;//how many times you wana type it

      Message2 = 'Do you think scar is cool?';//input 2nd message
      TimesToTypeMessage2 = 3;//how many times you wana type it

      Message3 = 'What I never heard you!';//input 3nd message
      TimesToTypeMessage3 = 3;//how many times you wana type it
    scar would realize that the
    identafier is 3 but it does not how do i make it realize this?
    You did not call a repeat. The Until is useless until you call a repeat, and you also need to remove the last procedure because your main loop isn't a procedure is it?
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  12. #12
    Join Date
    Jan 2008
    Location
    Norway
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This edited script should work (Some pc's have trouble with the IsFkeyDown function...)

    But I strongly suggest that you should learn the basics of SCAR(I assume you don't know the basics by looking the posts in this topic, so no offfence if you do) before adding AntiRandoms and Antiban (And anyway I dunno why you have them on an auto-Talker).

    So I commented all the stuff that you don't need out.

    I did not test this script but in theory it should work.

    Links:
    http://www.srl-forums.com/forum/tuto...sland-f46.html - Go here for tuts
    and I really recomend you to read this one:
    http://www.villavu.com/forum/showthread.php?t=4625 -Unmatched noob tut
    SCAR Code:
    program AutoTalker;
    {.include SRL/SRL.scar}

    var
      TypedTimes1, TypedTimes2, TypedTimes3: Integer;
      {PS, W, L, SE, LZ, T, PG: Word;
      x, y, DBAxe, Symbol, Death, Middle, Ammo, RewardScreen, Start, Time1, SquirePt: Integer;
      GamesDone, Tries, NotFound, Logins, b, CP: Byte;
      RangeType, Boat: string;
      Ancients, Relog, SkipSearch, Limited, C, D: Boolean;
      MonsterColor: array [0..13] of integer;
      Monster: array [0..6] of string;      }


    {start to edit here}
    const
      Message1 = 'I think scar is cool';//input message here
      TimesToTypeMessage1 = 3;//how many times you wana type it

      Message2 = 'Do you think scar is cool?';//input 2nd message
      TimesToTypeMessage2 = 3;//how many times you wana type it

      Message3 = 'What I never heard you!';//input 3nd message
      TimesToTypeMessage3 = 3;//how many times you wana type it



    {
    Procedure DeclarePlayers;
    Begin
     HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.

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

        NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    End;
    }

    {----------Stop Editing---------}
    {
    Procedure Setup;
    begin
    SetupSRL;
    if (FindRS) then
    begin
      ActivateClient;
      Writeln('Runescape Found');
    end else
    begin
      Writeln('Runescape Not Found, Terminating Script');
      TerminateScript;
      end;
    end; //end here =]

    Function FindFastRandoms: Boolean;    // By WT-Fakawi.
    var
      i: Integer;
    begin
      for i:=1 to 12 do
      begin
        case I of
           1:  If FindDead then
                 Result := True;
           2:  If FindMod then
                 Result := True;
           3:  If FindMime then
                 Result := True;
           4:  If FindMaze then
                 Result := True;
           5:  If FindQuiz then
                 Result := True;
           6:  If FindDemon then
                 Result := True;
           7:  if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 end;
           8 : If RC Then Result := True;

           9: If FindTalk Then Result := True;


           10: If SolveChatRandom Then Result := True;
           12: ClickToContinue;
        End;
        Wait(1);
      end;
    end;

    function FindNormalRandomsA: Boolean;   //Not by me
    var                              //occasionally confusing the find-dead procedure
      i: byte;                    //also added findfight
    begin
      if not LoggedIn then Exit;
      w_UpdateLastLine;
      for i := 1 to 7 do
      begin
        case I of
          1: SolveNonTalkingRandoms;
          2: Respond;
          3: Result := FindTalk;
          4: Result := FindDead;
          5: Result := FindLamp(LampSkill);
          6: if FindBox then
              Result := SolveBox;
          7: Result :=  RC;
        end;
        if FindFight then RunTo('N',True);
        if Result then Break;
      end;
    end;
    // New Randoms Checking.

    Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;

    Var
       I, iX,iY: Integer;
    Begin
      For I := iFrom To ITo Do
      Begin
        iX := Round(Distance * Sin(I * Pi / 180)) + 648;
        iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
        If GetColor(iX, iY) = 65536 Then
        Begin
          Result := Result + 1;
        End;
      End;
    End;

    procedure AntiBan(Limited:Boolean);  //Not By me
    var
      AB: byte;
    begin
      Status('Performing antiban');
      if Limited then AB := RandomRange(0,19) else AB := RandomRange(0,29);
      case AB of
        0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
        1: GameTab(1 + random(10));
        2: begin                       //less lengthy version of hoverskill,
             GameTab(2);               //now that hovering shows remaining xp till lvl.
             Wait(RandomRange(100,400));
             MMouse(635, 327, 100, 140); //Randomize Coords
             Wait(RandomRange(1000,1700));
           end;
        3: SleepAndMoveMouse(500 + Random(500));
        4: PickupMouse;
        5: begin
             MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
             MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
             MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
           end;
        6,7,8,9: MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
        10,11,12:
          begin
            MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
            MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
          end;
        13,14,15: GameTab(1 + random(13));
        16: begin
              GameTab(1 + random(13));
              GameTab(1 + random(13));
            end;
        17: begin
              GameTab(1 + random(13));
              MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
            end;
        18: begin
              MMouse(10,  -100, (RandomRange(10,40)) , (RandomRange(10,40)));
              MMouse(x,  y, (RandomRange(10,40)) , (RandomRange(10,40)));
            end;
        19: MouseSpeed := 12 + Random(5);
        20: MakeCompass('N');  //if waiting for game to start
        21: MakeCompass('E');  //it won't move compass
        22: MakeCompass('W');
        23: MakeCompass('S');
        24: RandomMovement;
        25: case Random(2) of
              0:begin
                  KeyDown(VK_Left);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Left);
                  Wait(RandomRange(100,600));
                end;
              1:begin
                  KeyDown(VK_Right);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Right);
                  Wait(RandomRange(100,600));
                end;
            end;
        26: HighestAngle;
        27,28: LowestAngle;
        29: case Random(2) of
              0:begin
                  KeyDown(VK_Down);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Down);
                  Wait(RandomRange(100,600));
                end;
              1:begin
                  KeyDown(VK_Up);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Up);
                  Wait(RandomRange(100,600));
                end;
            end;
      end;
      Status('');
    end;
    }

    procedure TypeMessage;
    begin
     if (IsFkeyDown(2)) then
     begin
      repeat
      TypeSend(Message1);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends
      TypedTimes1 := TypedTimes1 +1;
      until(IsFkeyDown(8)) or (TypedTimes1 >= TimesToTypeMessage2)
     end

     if (IsFkeyDown(3)) then
     begin
      repeat
      TypeSend(Message2);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends
      TypedTimes2 := TypedTimes2 +1;
      until(IsFkeyDown(8)) or (TypedTimes2 >= TimesToTypeMessage2)
     end

     if (IsFkeyDown(4)) then
     begin
      repeat
      TypeSend(Message3);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends
      TypedTimes3 := TypedTimes3 +1;
      until(IsFkeyDown(8)) or (TypedTimes3 >= TimesToTypeMessage2)
     end
    end;

    Begin
    SetupSRL;
    TypedTimes1 := 0;
    TypedTimes2 := 0;
    TypedTimes3 := 0;

    repeat
     if not LoggedIn then
      begin
      Writeln('Not Logged In');
      TerminateScript;
      end
     if LoggedIn then
      begin
      TypeMessage;
      end
    until false
    end.

  13. #13
    Join Date
    Aug 2007
    Posts
    328
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    WOw you guess right but try this my Fina; form
    Works with : SRL#9 Scar Divi 3.12

    SCAR Code:
    program AutoTalker;
    {.include SRL/SRL.scar}

    var
      TypedTimes : Integer;
       x, y : Integer;

    {start to edit here}
    const
      Message1 = 'I think scar is cool';//input message here
      TimesToTypeMessage1 = 3;//how many times you wana type it

      Message2 = 'Do you think scar is cool?';//input 2nd message
      TimesToTypeMessage2 = 3;//how many times you wana type it

      Message3 = 'What I never heard you!';//input 3nd message
      TimesToTypeMessage3 = 3;//how many times you wana type it


    procedure Typed_Message;

    begin
    SetupSRL;
     if (IsFkeyDown(1)) then
      TypeSend(Message1);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends
     if (IsFkeyDown(2)) then
      TypeSend(Message2);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends
     if (IsFkeyDown(3)) then
      TypeSend(Message3);
      Wait(2000+random(1000))//this adds a random amount of time in between type sends

    end;

    Procedure DeclarePlayers;
    Begin
     HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.

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

        NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    End;
    {----------Stop Editing---------}





    Procedure Setup;
    begin
    SetupSRL;
    if (FindRS) then
    begin
      ActivateClient;
      Writeln('Runescape Found');
    end else
    begin
      Writeln('Runescape Not Found, Terminating Script');
      TerminateScript;
      end;
    end; //end here =]

    Function FindFastRandoms: Boolean;    // By WT-Fakawi.
    var
      i: Integer;
    begin
      for i:=1 to 12 do
      begin
        case I of
           1:  If FindDead then
                 Result := True;
           2:  If FindMod then
                 Result := True;
           3:  If FindMime then
                 Result := True;
           4:  If FindMaze then
                 Result := True;
           5:  If FindQuiz then
                 Result := True;
           6:  If FindDemon then
                 Result := True;
           7:  if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 end;
           8 : If RC Then Result := True;

           9: If FindTalk Then Result := True;


           10: If SolveChatRandom Then Result := True;
           12: ClickToContinue;
        End;
        Wait(1);
      end;
    end;

    function FindNormalRandomsA: Boolean;   //Not by me
    var                              //occasionally confusing the find-dead procedure
      i: byte;                    //also added findfight
    begin
      if not LoggedIn then Exit;
      w_UpdateLastLine;
      for i := 1 to 7 do
      begin
        case I of
          1: SolveNonTalkingRandoms;
          2: Respond;
          3: Result := FindTalk;
          4: Result := FindDead;
          5: Result := FindLamp(LampSkill);
          6: if FindBox then
              Result := SolveBox;
          7: Result :=  RC;
        end;
        if FindFight then RunTo('N',True);
        if Result then Break;
      end;
    end;
    // New Randoms Checking.

    Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;

    Var
       I, iX,iY: Integer;
    Begin
      For I := iFrom To ITo Do
      Begin
        iX := Round(Distance * Sin(I * Pi / 180)) + 648;
        iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
        If GetColor(iX, iY) = 65536 Then
        Begin
          Result := Result + 1;
        End;
      End;
    End;

    procedure AntiBan(Limited:Boolean);  //Not By me
    var
      AB: byte;
    begin
      Status('Performing antiban');
      if Limited then AB := RandomRange(0,19) else AB := RandomRange(0,29);
      case AB of
        0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
        1: GameTab(1 + random(10));
        2: begin                       //less lengthy version of hoverskill,
             GameTab(2);               //now that hovering shows remaining xp till lvl.
             Wait(RandomRange(100,400));
             MMouse(635, 327, 100, 140); //Randomize Coords
             Wait(RandomRange(1000,1700));
           end;
        3: SleepAndMoveMouse(500 + Random(500));
        4: PickupMouse;
        5: begin
             MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
             MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
             MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
           end;
        6,7,8,9: MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
        10,11,12:
          begin
            MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
            MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
          end;
        13,14,15: GameTab(1 + random(13));
        16: begin
              GameTab(1 + random(13));
              GameTab(1 + random(13));
            end;
        17: begin
              GameTab(1 + random(13));
              MMouse(x,  y, (10 + random(400)) , (10 + random(400)));
            end;
        18: begin
              MMouse(10,  -100, (RandomRange(10,40)) , (RandomRange(10,40)));
              MMouse(x,  y, (RandomRange(10,40)) , (RandomRange(10,40)));
            end;
        19: MouseSpeed := 12 + Random(5);
        20: MakeCompass('N');  //if waiting for game to start
        21: MakeCompass('E');  //it won't move compass
        22: MakeCompass('W');
        23: MakeCompass('S');
        24: RandomMovement;
        25: case Random(2) of
              0:begin
                  KeyDown(VK_Left);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Left);
                  Wait(RandomRange(100,600));
                end;
              1:begin
                  KeyDown(VK_Right);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Right);
                  Wait(RandomRange(100,600));
                end;
            end;
        26: HighestAngle;
        27,28: LowestAngle;
        29: case Random(2) of
              0:begin
                  KeyDown(VK_Down);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Down);
                  Wait(RandomRange(100,600));
                end;
              1:begin
                  KeyDown(VK_Up);
                  Wait(RandomRange(100,600));
                  KeyUp(VK_Up);
                  Wait(RandomRange(100,600));
                end;
            end;
      end;
      Status('');
    end;


    Procedure Logged_In;

     Begin
     if not LoggedIn then
       Cleardebug;
      Writeln('Not Logged In');
     TerminateScript;

     if LoggedIn then
         Cleardebug;
         repeat Typed_Message;
     if (IsFkeyDown(1)) or (IsFkeyDown(2)) or (IsFkeyDown(3)) then
        TypedTimes := TypedTimes + 1;
        until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage1) or (TypedTimes >= TimesToTypeMessage2) or (TypedTimes >= TimesToTypeMessage3)

    end;

    Begin
    end.
    But have i mind im just satring on the testing :P


    @JonOve I just added randoms and such as fail safes and want my Auto Talker to be the BEST one there is and its theres no such thing and being to safe
    Can i just modify your though i will give you credits.....h):

  14. #14
    Join Date
    Jan 2008
    Location
    Norway
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea just use that script I wrote

    Good luck with your scripting!

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. Smart error and Some kind of Math.scar error
    By FagetHax0r in forum OSR Help
    Replies: 6
    Last Post: 02-24-2008, 10:43 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
  •