Mod Mopar
11-25-2006, 09:13 PM
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:
Line 122: [Error] (15620:10): Syntax error in script C:\Documents and Settings\....lolz......\AutoTalker - Mod Mopar.scar
This is my script:
{+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
+-+ 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~
I almost have finished my AuoTalker that uses the F-Keys, but when i run my script i get this error:
Line 122: [Error] (15620:10): Syntax error in script C:\Documents and Settings\....lolz......\AutoTalker - Mod Mopar.scar
This is my script:
{+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
+-+ 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~