PDA

View Full Version : My First Script - Almost done - Whats wrong with it?



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~

Sumilion
11-25-2006, 09:33 PM
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));

Rick
11-25-2006, 11:35 PM
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...

shadowblade
11-26-2006, 12:35 AM
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

Mod Mopar
11-26-2006, 09:35 AM
@ 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.

Mod Mopar
11-26-2006, 09:40 AM
Btw, Sumilion, How did you became a member?

Mod Mopar
11-26-2006, 03:36 PM
Released my script :) http://www.villy-reborn.com/showtread.php?t=460/ (http://www.villy-reborn.com/showtread.php?t=4603/)

Rick
11-26-2006, 03:39 PM
Released my script http://www.villy-reborn.com/showtread.php?t=460/

its actually http://www.villy-reborn.com/showtread.php?t=4603/

you missed a 3 :P

BTW Nice Script