Results 1 to 8 of 8

Thread: My First Script - Almost done - Whats wrong with it?

  1. #1
    Join Date
    Nov 2006
    Location
    Belgium
    Posts
    110
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    My First Script - Almost done - Whats wrong with it?

    Oke, i have to go now, but i'd like to post this. I will answer when i am back.

    I almost have finished my AuoTalker that uses the F-Keys, but when i run my script i get this error:
    Code:
    Line 122: [Error] (15620:10): Syntax error in script C:\Documents and Settings\....lolz......\AutoTalker - Mod Mopar.scar
    This is my script:
    SCAR Code:
    {+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
     +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
     +-+                            AutoTalker By Mod Mopar                                              +-+
     +-+                                 Version 1.1                                                     +-+
     +-+                                 First Script                                                    +-+
     +-+                                                                                                 +-+
     +-+                      Sell and buy items will be so easy!                                        +-+
     +-+                                                                                                 +-+
     +-+                            - With Typ-Mistakes as AntiBan!                                      +-+
     +-+                            - With Humantalk as AntiBan!                                         +-+
     +-+                            - With Chat Effects!                                                 +-+
     +-+                            - Easy to use, with SCAR 2.03                                        +-+
     +-+                            - 5 Preset F-Keys to put text in!                                    +-+
     +-+                                                                                                 +-+
     +-+                                                                                                 +-+
     +-+                       1. Fill in the setup (lines 30 -> 56 ).                                   +-+
     +-+                       2. Drag crosshair over runescape window.                                  +-+
     +-+     3. Press play and use F1, F2, F3, F4, F5 to typ the message(s) that you have chosen.        +-+
     +-+                       4. Press F10 to stop the script.                                          +-+
     +-+                                                                                                 +-+
     +-+                                   EnJoY!                                                        +-+
     +-+                                                                                                 +-+
     +-+                            DO NOT COPY WITHOUT PERMISSION!!                                     +-+
     +-+                                                                                                 +-+
     +-+ Some credits goes to av4td182, because the idea to use the F-Keys came from her :)              +-+
     +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
     +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ }


    Program AutoTalkerByModMopar;

    {.include SRL/SRL.scar}

    Const
    { +-+ Setup +-+ }

    { +-+ F1 Talk +-+ }

    F1 = ('');  //Typ here your message, and press F1 to say it.
    ChatEffectsF1 = 2;  //0 = Use No Effects , 1 = Use 1 Effect , 2 = Use 2 Effects
    Effect1F1 = ('');  //JUST TYP RED, not RED: ||  Leave blank if you dont want to use effects. Cyan , Green , Purple , Red , White , Glow1 , Glow2 , Glow3 , Flash1 , Flash2 , Flash3 , Shake , Slide , Wave , Wave2
    Effect2F1 = ('');  ///JUST TYP RED, not RED: || Leave blank if you dont want to use effects. Shake , Slide , Wave , Wave2

    UseMistakesF1 = ('Yes'); //Want to use Mistakes? Yes or No
    M1F1 = ('');   //Typ here your First Typ-Mistake / Leave blank if you aren't using mistakes
    M2F1 = ('');   //Typ here your Second Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M3F1 = ('');   //Typ here your Third Typ-mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M4F1 = ('');   //Typ here your Fourth Typ-mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M5F1 = ('');   //Typ here your Fifth Typ-mistake / Leave blank if you aren't using mistakes or don't need so much mistakes

    { +-+ F2 Talk +-+ }

    F2 = ('');  //Typ here your message, and press F2 to say it.
    ChatEffectsF2 = 2;  //0 = Use No Effects , 1 = Use 1 Effect , 2 = Use 2 Effects
    Effect1F2 = ('');  //JUST TYP RED, not RED: || Leave blank if you dont want to use effects. Cyan , Green , Purple , Red , White , Glow1 , Glow2 , Glow3 , Flash1 , Flash2 , Flash3 , Shake , Slide , Wave , Wave2
    Effect2F2 = ('');  //JUST TYP RED, not RED: || Leave blank if you dont want to use effects. Shake , Slide , Wave , Wave2

    UseMistakesF2 = ('Yes'); //Want to use Mistakes? Yes or No
    M1F2 = ('');   //Typ here your First Typ-Mistake / Leave blank if you aren't using mistakes
    M2F2 = ('');   //Typ here your Second Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M3F2 = ('');   //Typ here your Third Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M4F2 = ('');   //Typ here your Fourth Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M5F2 = ('');   //Typ here your Fifth Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes

    { +-+ F3 Talk +-+ }

    F3 = ('');  //Typ here your message, and press F2 to say it.
    ChatEffectsF3 = 2;  //0 = Use No Effects , 1 = Use 1 Effect , 2 = Use 2 Effects
    Effect1F3 = ('');  //JUST TYP RED, not RED: || Leave blank if you dont want to use effects. Cyan , Green , Purple , Red , White , Glow1 , Glow2 , Glow3 , Flash1 , Flash2 , Flash3 , Shake , Slide , Wave , Wave2
    Effect2F3 = ('');  //JUST TYP RED, not RED: || Leave blank if you dont want to use effects. Shake , Slide , Wave , Wave2

    UseMistakesF3 = ('Yes'); //Want to use Mistakes? Yes or No
    M1F3 = ('');   //Typ here your First Typ-Mistake / Leave blank if you aren't using mistakes
    M2F3 = ('');   //Typ here your Second Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M3F3 = ('');   //Typ here your Third Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M4F3 = ('');   //Typ here your Fourth Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M5F3 = ('');   //Typ here your Fifth Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes

    { +-+ F4 Talk +-+ }

    F4 = ('');  //Typ here your message, and press F2 to say it.
    ChatEffectsF4 = 2;  //0 = Use No Effects , 1 = Use 1 Effect , 2 = Use 2 Effects
    Effect1F4 = ('');  //JUST TYP RED, not RED: || Leave blank if you dont want to use effects. Cyan , Green , Purple , Red , White , Glow1 , Glow2 , Glow3 , Flash1 , Flash2 , Flash3 , Shake , Slide , Wave , Wave2
    Effect2F4 = ('');  //JUST TYP RED, not RED: || Leave blank if you dont want to use effects. Shake , Slide , Wave , Wave2

    UseMistakesF4 = ('Yes'); //Want to use Mistakes? Yes or No
    M1F4 = ('');   //Typ here your First Typ-Mistake / Leave blank if you aren't using mistakes
    M2F4 = ('');   //Typ here your Second Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M3F4 = ('');   //Typ here your Third Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M4F4 = ('');   //Typ here your Fourth Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M5F4 = ('');   //Typ here your Fifth Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes

    { +-+ F5 Talk +-+ }

    F5 = ('');  //Typ here your message, and press F2 to say it.
    ChatEffectsF5 = 2;  //0 = Use No Effects , 1 = Use 1 Effect , 2 = Use 2 Effects
    Effect1F5 = ('');  //JUST TYP RED, not RED: || Leave blank if you dont want to use effects. Cyan , Green , Purple , Red , White , Glow1 , Glow2 , Glow3 , Flash1 , Flash2 , Flash3 , Shake , Slide , Wave , Wave2
    Effect2F5 = ('');  //JUST TYP RED, not RED: || Leave blank if you dont want to use effects. Shake , Slide , Wave , Wave2

    UseMistakesF5 = ('Yes'); //Want to use Mistakes? Yes or No
    M1F5 = ('');   //Typ here your First Typ-Mistake / Leave blank if you aren't using mistakes
    M2F5 = ('');   //Typ here your Second Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M3F5 = ('');   //Typ here your Third Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M4F5 = ('');   //Typ here your Fourth Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes
    M5F5 = ('');   //Typ here your Fifth Typ-Mistake / Leave blank if you aren't using mistakes or don't need so much mistakes

    { +-+ Don't touch below!! +-+ }

    Var
    RandomF1,RandomF2,RandomF3,RandomF4,RandomF5 : Integer;

    Procedure AutoTalking;
    Begin
    Repeat

    If (IsFKeyDown(1)) Then
     Begin

    If (UseMistakesF1 = ('No')) Then
     Begin
     If(ChatEffectsF1 = 0) Then
      Begin
      Sendkeys(if(not(F1=''))then F1 + chr(13))
      End;
     If(ChatEffectsF1 = 1) Then
      Begin
      Sendkeys(Effect1F1 + ':' + if(not(F1=''))then F1 + chr(13))
      End;
     If(ChatEffectsF1 = 2) Then
      Begin
      Sendkeys(Effect1F1 + ':' + Effect2F1 + ':' + if(not(F1=''))then F1 + chr(13))
      End;
     End;

    If (UseMistakesF1 = ('Yes')) Then
    Begin
     RandomF1 := 0 + random(5);

     If RandomF1 = 0 Then
      Begin
      If(ChatEffectsF1 = 0) Then
      Begin
      Sendkeys(if(not(F1=''))then F1 + chr(13))
      End;
     If(ChatEffectsF1 = 1) Then
      Begin
      Sendkeys(Effect1F1 + ':' + if(not(F1=''))then F1 + chr(13))
      End;
     If(ChatEffectsF1 = 2) Then
      Begin
      Sendkeys(Effect1F1 + ':' + Effect2F1 + ':' + if(not(F1=''))then F1 + chr(13))
      End;
     End;
     
     If RandomF1 = 1 then
      Begin
      If(ChatEffectsF1 = 0) Then
      Begin
      Sendkeys(if(not(M1F1=''))then M1F1 + chr(13))
      End;
     If(ChatEffectsF1 = 1) Then
      Begin
      Sendkeys(Effect1F1 + ':' + if(not(M1F1=''))then M1F1 + chr(13))
      End;
     If(ChatEffectsF1 = 2) Then
      Begin
      Sendkeys(Effect1F1 + ':' + Effect2F1 + ':' + if(not(M1F1=''))then M1F1 + chr(13))
      End;
     End;
     
     If RandomF1 = 2 then
      Begin
      If(ChatEffectsF1 = 0) Then
      Begin
      Sendkeys(if(not(M2F1=''))then M2F1 + chr(13))
      End;
     If(ChatEffectsF1 = 1) Then
      Begin
      Sendkeys(Effect1F1 + ':' + if(not(M2F1=''))then M2F1 + chr(13))
      End;
     If(ChatEffectsF1 = 2) Then
      Begin
      Sendkeys(Effect1F1 + ':' + Effect2F1 + ':' + if(not(M2F1=''))then M2F1 + chr(13))
      End;
     End;

      If RandomF1 = 3 then
      Begin
      If(ChatEffectsF1 = 0) Then
      Begin
      Sendkeys(if(not(M3F1=''))then M3F1 + chr(13))
      End;
     If(ChatEffectsF1 = 1) Then
      Begin
      Sendkeys(Effect1F1 + ':' + if(not(M3F1=''))then M3F1 + chr(13))
      End;
     If(ChatEffectsF1 = 2) Then
      Begin
      Sendkeys(Effect1F1 + ':' + Effect2F1 + ':' + if(not(M3F1=''))then M3F1 + chr(13))
      End;
     End;

      If RandomF1 = 4 then
      Begin
      If(ChatEffectsF1 = 0) Then
      Begin
      Sendkeys(if(not(M4F1=''))then M4F1 + chr(13))
      End;
     If(ChatEffectsF1 = 1) Then
      Begin
      Sendkeys(Effect1F1 + ':' + if(not(M4F1=''))then M3F1 + chr(13))
      End;
     If(ChatEffectsF1 = 2) Then
      Begin
      Sendkeys(Effect1F1 + ':' + Effect2F1 + ':' + if(not(MF1=''))then M4F1 + chr(13))
      End;
     End;

      If RandomF1 = 5 then
      Begin
      If(ChatEffectsF1 = 0) Then
      Begin
      Sendkeys(if(not(M5F1=''))then M5F1 + chr(13))
      End;
     If(ChatEffectsF1 = 1) Then
      Begin
      Sendkeys(Effect1F1 + ':' + if(not(M5F1=''))then M5F1 + chr(13))
      End;
     If(ChatEffectsF1 = 2) Then
      Begin
      Sendkeys(Effect1F1 + ':' + Effect2F1 + ':' + if(not(M5F1=''))then M5F1 + chr(13))
      End;
     End;
    End;
    End;

    If (IsFKeyDown(2)) Then
     Begin

    If (UseMistakesF2 = ('No')) Then
     Begin
     If(ChatEffectsF2 = 0) Then
      Begin
      Sendkeys(if(not(F2=''))then F2 + chr(13))
      End;
     If(ChatEffectsF2 = 1) Then
      Begin
      Sendkeys(Effect1F2 + ':' + if(not(F2=''))then F2 + chr(13))
      End;
     If(ChatEffectsF2 = 2) Then
      Begin
      Sendkeys(Effect1F2 + ':' + Effect2F2 + ':' + if(not(F2=''))then F2 + chr(13))
      End;
     End;

    If (UseMistakesF2 = ('Yes')) Then
    Begin
     RandomF2 := 0 + random(5);

     If RandomF2 = 0 Then
      Begin
      If(ChatEffectsF2 = 0) Then
      Begin
      Sendkeys(if(not(F2=''))then F2 + chr(13))
      End;
     If(ChatEffectsF2 = 1) Then
      Begin
      Sendkeys(Effect1F2 + ':' + if(not(F2=''))then F2 + chr(13))
      End;
     If(ChatEffectsF2 = 2) Then
      Begin
      Sendkeys(Effect1F2 + ':' + Effect2F2 + ':' + if(not(F2=''))then F2 + chr(13))
      End;
     End;

     If RandomF2 = 1 then
      Begin
      If(ChatEffectsF2 = 0) Then
      Begin
      Sendkeys(if(not(M1F2=''))then M1F2 + chr(13))
      End;
     If(ChatEffectsF2 = 1) Then
      Begin
      Sendkeys(Effect1F2 + ':' + if(not(M1F2=''))then M1F2 + chr(13))
      End;
     If(ChatEffectsF2 = 2) Then
      Begin
      Sendkeys(Effect1F2 + ':' + Effect2F2 + ':' + if(not(M1F2=''))then M1F2 + chr(13))
      End;
     End;

     If RandomF2 = 2 then
      Begin
      If(ChatEffectsF2 = 0) Then
      Begin
      Sendkeys(if(not(M2F2=''))then M2F2 + chr(13))
      End;
     If(ChatEffectsF2 = 1) Then
      Begin
      Sendkeys(Effect1F2 + ':' + if(not(M2F2=''))then M2F2 + chr(13))
      End;
     If(ChatEffectsF2 = 2) Then
      Begin
      Sendkeys(Effect1F2 + ':' + Effect2F2 + ':' + if(not(M2F2=''))then M2F2 + chr(13))
      End;
     End;

      If RandomF2 = 3 then
      Begin
      If(ChatEffectsF2 = 0) Then
      Begin
      Sendkeys(if(not(M3F2=''))then M3F2 + chr(13))
      End;
     If(ChatEffectsF2 = 1) Then
      Begin
      Sendkeys(Effect1F2 + ':' + if(not(M3F2=''))then M3F2 + chr(13))
      End;
     If(ChatEffectsF2 = 2) Then
      Begin
      Sendkeys(Effect1F2 + ':' + Effect2F2 + ':' + if(not(M3F2=''))then M3F2 + chr(13))
      End;
     End;
     
      If RandomF2 = 4 then
      Begin
      If(ChatEffectsF2 = 0) Then
      Begin
      Sendkeys(if(not(M4F2=''))then M4F2 + chr(13))
      End;
     If(ChatEffectsF2 = 1) Then
      Begin
      Sendkeys(Effect1F2 + ':' + if(not(M4F2=''))then M4F2 + chr(13))
      End;
     If(ChatEffectsF2 = 2) Then
      Begin
      Sendkeys(Effect1F2 + ':' + Effect2F2 + ':' + if(not(M4F2=''))then M4F2 + chr(13))
      End;
     End;
     
      If RandomF2 = 5 then
      Begin
      If(ChatEffectsF2 = 0) Then
      Begin
      Sendkeys(if(not(M5F2=''))then M5F2 + chr(13))
      End;
     If(ChatEffectsF2 = 1) Then
      Begin
      Sendkeys(Effect1F2 + ':' + if(not(M5F2=''))then M5F2 + chr(13))
      End;
     If(ChatEffectsF2 = 2) Then
      Begin
      Sendkeys(Effect1F2 + ':' + Effect2F2 + ':' + if(not(M5F2=''))then M5F2 + chr(13))
      End;
     End;
    End;
    End;

    If (IsFKeyDown(3)) Then
     Begin

    If (UseMistakesF3 = ('No')) Then
     Begin
     If(ChatEffectsF3 = 0) Then
      Begin
      Sendkeys(if(not(F3=''))then F3 + chr(13))
      End;
     If(ChatEffectsF3 = 1) Then
      Begin
      Sendkeys(Effect1F3 + ':' + if(not(F3=''))then F3 + chr(13))
      End;
     If(ChatEffectsF3 = 2) Then
      Begin
      Sendkeys(Effect1F3 + ':' + Effect2F3 + ':' + if(not(F3=''))then F3 + chr(13))
      End;
     End;

    If (UseMistakesF3 = ('Yes')) Then
    Begin
     RandomF3 := 0 + random(5);

     If RandomF3 = 0 Then
      Begin
      If(ChatEffectsF3 = 0) Then
      Begin
      Sendkeys(if(not(F3=''))then F3 + chr(13))
      End;
     If(ChatEffectsF3 = 1) Then
      Begin
      Sendkeys(Effect1F3 + ':' + if(not(F3=''))then F3 + chr(13))
      End;
     If(ChatEffectsF3 = 2) Then
      Begin
      Sendkeys(Effect1F3 + ':' + Effect2F3 + ':' + if(not(F3=''))then F3 + chr(13))
      End;
     End;

     If RandomF3 = 1 then
      Begin
      If(ChatEffectsF3 = 0) Then
      Begin
      Sendkeys(if(not(M1F3=''))then M1F3 + chr(13))
      End;
     If(ChatEffectsF3 = 1) Then
      Begin
      Sendkeys(Effect1F3 + ':' + if(not(M1F3=''))then M1F3 + chr(13))
      End;
     If(ChatEffectsF3 = 2) Then
      Begin
      Sendkeys(Effect1F3 + ':' + Effect2F3 + ':' + if(not(M1F3=''))then M1F3 + chr(13))
      End;
     End;

     If RandomF3 = 2 then
      Begin
      If(ChatEffectsF3 = 0) Then
      Begin
      Sendkeys(if(not(M2F3=''))then M2F3 + chr(13))
      End;
     If(ChatEffectsF3 = 1) Then
      Begin
      Sendkeys(Effect1F3 + ':' + if(not(M2F3=''))then M2F3 + chr(13))
      End;
     If(ChatEffectsF3 = 2) Then
      Begin
      Sendkeys(Effect1F3 + ':' + Effect2F3 + ':' + if(not(M2F3=''))then M2F3 + chr(13))
      End;
     End;

      If RandomF3 = 3 then
      Begin
      If(ChatEffectsF3 = 0) Then
      Begin
      Sendkeys(if(not(M3F3=''))then M3F3 + chr(13))
      End;
     If(ChatEffectsF3 = 1) Then
      Begin
      Sendkeys(Effect1F3 + ':' + if(not(M3F3=''))then M3F3 + chr(13))
      End;
     If(ChatEffectsF3 = 2) Then
      Begin
      Sendkeys(Effect1F3 + ':' + Effect2F3 + ':' + if(not(M3F3=''))then M3F3 + chr(13))
      End;
     End;
     
      If RandomF3 = 4 then
      Begin
      If(ChatEffectsF3 = 0) Then
      Begin
      Sendkeys(if(not(M4F3=''))then M4F3 + chr(13))
      End;
     If(ChatEffectsF3 = 1) Then
      Begin
      Sendkeys(Effect1F3 + ':' + if(not(M4F3=''))then M4F3 + chr(13))
      End;
     If(ChatEffectsF3 = 2) Then
      Begin
      Sendkeys(Effect1F3 + ':' + Effect2F3 + ':' + if(not(M4F3=''))then M4F3 + chr(13))
      End;
     End;
     
      If RandomF3 = 5 then
      Begin
      If(ChatEffectsF3 = 0) Then
      Begin
      Sendkeys(if(not(M5F3=''))then M5F3 + chr(13))
      End;
     If(ChatEffectsF3 = 1) Then
      Begin
      Sendkeys(Effect1F3 + ':' + if(not(M5F3=''))then M5F3 + chr(13))
      End;
     If(ChatEffectsF3 = 2) Then
      Begin
      Sendkeys(Effect1F3 + ':' + Effect2F3 + ':' + if(not(M5F3=''))then M5F3 + chr(13))
      End;
     End;
    End;
    End;

    If (IsFKeyDown(4)) Then
     Begin

    If (UseMistakesF4 = ('No')) Then
     Begin
     If(ChatEffectsF4 = 0) Then
      Begin
      Sendkeys(if(not(F4=''))then F4 + chr(13))
      End;
     If(ChatEffectsF4 = 1) Then
      Begin
      Sendkeys(Effect1F4 + ':' + if(not(F4=''))then F4 + chr(13))
      End;
     If(ChatEffectsF4 = 2) Then
      Begin
      Sendkeys(Effect1F4 + ':' + Effect2F4 + ':' + if(not(F4=''))then F4 + chr(13))
      End;
     End;

    If (UseMistakesF4 = ('Yes')) Then
    Begin
     RandomF4 := 0 + random(5);

     If RandomF4 = 0 Then
      Begin
      If(ChatEffectsF4 = 0) Then
      Begin
      Sendkeys(if(not(F4=''))then F4 + chr(13))
      End;
     If(ChatEffectsF4 = 1) Then
      Begin
      Sendkeys(Effect1F4 + ':' + if(not(F4=''))then F4 + chr(13))
      End;
     If(ChatEffectsF4 = 2) Then
      Begin
      Sendkeys(Effect1F4 + ':' + Effect2F4 + ':' + if(not(F4=''))then F4 + chr(13))
      End;
     End;

     If RandomF4 = 1 then
      Begin
      If(ChatEffectsF4 = 0) Then
      Begin
      Sendkeys(if(not(M1F4=''))then M1F4 + chr(13))
      End;
     If(ChatEffectsF4 = 1) Then
      Begin
      Sendkeys(Effect1F4 + ':' + if(not(M1F4=''))then M1F4 + chr(13))
      End;
     If(ChatEffectsF4 = 2) Then
      Begin
      Sendkeys(Effect1F4 + ':' + Effect2F4 + ':' + if(not(M1F4=''))then M1F4 + chr(13))
      End;
     End;

     If RandomF4 = 2 then
      Begin
      If(ChatEffectsF4 = 0) Then
      Begin
      Sendkeys(if(not(M2F4=''))then M2F4 + chr(13))
      End;
     If(ChatEffectsF4 = 1) Then
      Begin
      Sendkeys(Effect1F4 + ':' + if(not(M2F4=''))then M2F4 + chr(13))
      End;
     If(ChatEffectsF4 = 2) Then
      Begin
      Sendkeys(Effect1F4 + ':' + Effect2F4 + ':' + if(not(M2F4=''))then M2F4 + chr(13))
      End;
     End;

      If RandomF4 = 3 then
      Begin
      If(ChatEffectsF4 = 0) Then
      Begin
      Sendkeys(if(not(M3F4=''))then M3F4 + chr(13))
      End;
     If(ChatEffectsF4 = 1) Then
      Begin
      Sendkeys(Effect1F4 + ':' + if(not(M3F4=''))then M3F4 + chr(13))
      End;
     If(ChatEffectsF4 = 2) Then
      Begin
      Sendkeys(Effect1F4 + ':' + Effect2F4 + ':' + if(not(M3F4=''))then M3F4 + chr(13))
      End;
     End;
     
      If RandomF4 = 4 then
      Begin
      If(ChatEffectsF4 = 0) Then
      Begin
      Sendkeys(if(not(M4F4=''))then M4F4 + chr(13))
      End;
     If(ChatEffectsF4 = 1) Then
      Begin
      Sendkeys(Effect1F4 + ':' + if(not(M4F4=''))then M4F4 + chr(13))
      End;
     If(ChatEffectsF4 = 2) Then
      Begin
      Sendkeys(Effect1F4 + ':' + Effect2F4 + ':' + if(not(M4F4=''))then M4F4 + chr(13))
      End;
     End;
     
      If RandomF4 = 5 then
      Begin
      If(ChatEffectsF4 = 0) Then
      Begin
      Sendkeys(if(not(M5F4=''))then M5F4 + chr(13))
      End;
     If(ChatEffectsF4 = 1) Then
      Begin
      Sendkeys(Effect1F4 + ':' + if(not(M5F4=''))then M5F4 + chr(13))
      End;
     If(ChatEffectsF4 = 2) Then
      Begin
      Sendkeys(Effect1F4 + ':' + Effect2F4 + ':' + if(not(M5F4=''))then M5F4 + chr(13))
      End;
     End;
    End;
    End;

    If (IsFKeyDown(5)) Then
     Begin

    If (UseMistakesF5 = ('No')) Then
     Begin
     If(ChatEffectsF5 = 0) Then
      Begin
      Sendkeys(if(not(F5=''))then F5 + chr(13))
      End;
     If(ChatEffectsF5 = 1) Then
      Begin
      Sendkeys(Effect1F5 + ':' + if(not(F5=''))then F5 + chr(13))
      End;
     If(ChatEffectsF5 = 2) Then
      Begin
      Sendkeys(Effect1F5 + ':' + Effect2F5 + ':' + if(not(F5=''))then F5 + chr(13))
      End;
     End;

    If (UseMistakesF5 = ('Yes')) Then
    Begin
     RandomF5 := 0 + random(5);

     If RandomF5 = 0 Then
      Begin
      If(ChatEffectsF5 = 0) Then
      Begin
      Sendkeys(if(not(F5=''))then F5 + chr(13))
      End;
     If(ChatEffectsF5 = 1) Then
      Begin
      Sendkeys(Effect1F5 + ':' + if(not(F5=''))then F5 + chr(13))
      End;
     If(ChatEffectsF5 = 2) Then
      Begin
      Sendkeys(Effect1F5 + ':' + Effect2F5 + ':' + if(not(F5=''))then F5 + chr(13))
      End;
     End;

     If RandomF5 = 1 then
      Begin
      If(ChatEffectsF5 = 0) Then
      Begin
      Sendkeys(if(not(M1F5=''))then M1F5 + chr(13))
      End;
     If(ChatEffectsF5 = 1) Then
      Begin
      Sendkeys(Effect1F5 + ':' + if(not(M1F5=''))then M1F5 + chr(13))
      End;
     If(ChatEffectsF5 = 2) Then
      Begin
      Sendkeys(Effect1F5 + ':' + Effect2F5 + ':' + if(not(M1F5=''))then M1F5 + chr(13))
      End;
     End;

     If RandomF5 = 2 then
      Begin
      If(ChatEffectsF5 = 0) Then
      Begin
      Sendkeys(if(not(M2F5=''))then M2F5 + chr(13))
      End;
     If(ChatEffectsF5 = 1) Then
      Begin
      Sendkeys(Effect1F5 + ':' + if(not(M2F5=''))then M2F5 + chr(13))
      End;
     If(ChatEffectsF5 = 2) Then
      Begin
      Sendkeys(Effect1F5 + ':' + Effect2F5 + ':' + if(not(M2F5=''))then M2F5 + chr(13))
      End;
     End;

      If RandomF5 = 3 then
      Begin
      If(ChatEffectsF5 = 0) Then
      Begin
      Sendkeys(if(not(M3F5=''))then M3F5 + chr(13))
      End;
     If(ChatEffectsF5 = 1) Then
      Begin
      Sendkeys(Effect1F5 + ':' + if(not(M3F5=''))then M3F5 + chr(13))
      End;
     If(ChatEffectsF5 = 2) Then
      Begin
      Sendkeys(Effect1F5 + ':' + Effect2F5 + ':' + if(not(M3F5=''))then M3F5 + chr(13))
      End;
     End;
     
      If RandomF5 = 4 then
      Begin
      If(ChatEffectsF5 = 0) Then
      Begin
      Sendkeys(if(not(M4F5=''))then M4F5 + chr(13))
      End;
     If(ChatEffectsF5 = 1) Then
      Begin
      Sendkeys(Effect1F5 + ':' + if(not(M4F5=''))then M4F5 + chr(13))
      End;
     If(ChatEffectsF5 = 2) Then
      Begin
      Sendkeys(Effect1F5 + ':' + Effect2F5 + ':' + if(not(M4F5=''))then M4F5 + chr(13))
      End;
     End;
     
      If RandomF5 = 5 then
      Begin
      If(ChatEffectsF5 = 0) Then
      Begin
      Sendkeys(if(not(M3F5=''))then M5F5 + chr(13))
      End;
     If(ChatEffectsF5 = 1) Then
      Begin
      Sendkeys(Effect1F5 + ':' + if(not(M5F5=''))then M5F5 + chr(13))
      End;
     If(ChatEffectsF5 = 2) Then
      Begin
      Sendkeys(Effect1F5 + ':' + Effect2F5 + ':' + if(not(M5F5=''))then M5F5 + chr(13))
      End;
     End;
    End;
    End;

    wait(100)
    until (isFKeyDown(10))
    End;

    Begin
     ActivateClient;
     DisguiseScar('AutoTalker By Mod Mopar');
     ClearDebug;
     WriteLn('                    Thanks For Using My Script')
     Wait(1000)
     WriteLn('                        I Hope You Like It.')
     Wait(1000)
     WriteLn('                              Enjoy!')
     Wait(3000)
     ClearDebug;
     WriteLn('                      Oh yea, almost forgot ...')
     Wait(1000)
     WriteLn('                   You can now start AutoTalking =P')
     Wait(3000)
     ClearDebug;
     WriteLn('                    -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+')
     WriteLn('                    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-')
     WriteLn('                    +-+  Enjoy Your Cheating!  +-+')
     WriteLn('                    +-+                        +-+')
     Wait(1000)
     WriteLn('                    +-+      By Mod Mopar      +-+')
     WriteLn('                    -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+')
     WriteLn('                    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-')
     AutoTalking;

    End.
    (Some spaces may be wrong placed, don't bother about that..)

    Whats wrong with my script?

    ~Thanks for help, See you tommorow, Mod Mopar~

  2. #2
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Use TypeSend, it's even easier no need for chr(13) in typesend aswell...

    Sendkeys(if(not(F1='')))then F1 + chr(13)) End; If(ChatEffectsF1 = 1) Then Begin

    Thats not possible aswell, you cant place an if in a Function ... You can do If Not(F1='')Then SendKeys(F1+chr(13));

  3. #3
    Join Date
    Oct 2006
    Posts
    500
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Basically sendkeys is for a string. So you cant use the if(not(F1='')) function in it.

    insted do this

    if(not(F1='')) then
    Sendkeys( F1 + chr(13))
    End;


    I might fix it if i have time...

  4. #4
    Join Date
    Nov 2006
    Posts
    117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wowa man uv really done well lol im still tryin to create mine lol i got basic auto talker done anywayz just gonna add like anti ban features n shit but good luck man
    im back----took a long break away but im back and im gonna get into scripting

  5. #5
    Join Date
    Nov 2006
    Location
    Belgium
    Posts
    110
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @ Sumilion & r!ch!e = Thanks, now I understand =)
    @ Sumilion = So it would be If Not(F1='')Then TypeSends(F1); ?
    @ Shadowblade = I am also new here, I am just 1 step further then you Try to look at some releases from people's scripts, I learn most of that.

  6. #6
    Join Date
    Nov 2006
    Location
    Belgium
    Posts
    110
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Btw, Sumilion, How did you became a member?

  7. #7
    Join Date
    Nov 2006
    Location
    Belgium
    Posts
    110
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  8. #8
    Join Date
    Oct 2006
    Posts
    500
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. whats wrong with my script !?!?!?!!?
    By stampede10343 in forum OSR Help
    Replies: 7
    Last Post: 02-25-2008, 02:37 AM
  2. whats wrong with this script
    By psychojamesd in forum OSR Help
    Replies: 3
    Last Post: 08-02-2007, 01:59 AM
  3. Script, whats wrong
    By Camaro' in forum OSR Help
    Replies: 10
    Last Post: 06-01-2007, 01:15 AM
  4. Whats wrong in my script?
    By Intef i i i in forum OSR Help
    Replies: 2
    Last Post: 04-10-2007, 03:29 PM
  5. whats wrong with this script?
    By fugate in forum OSR Help
    Replies: 14
    Last Post: 01-16-2007, 04:44 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
  •