SRL Archive - First Scripts

my 1st script gp easy on me

:p post in Scar tags easier for pplz to read it…

program Flyingkid101AutoTalker;
    {.include SRL/SRL.scar}

var
Text: String;
x: Integer;


procedure Bot;

 begin
 Text:= 'glow3:wave2:test '; //enter message were it says "test" i think?//
  TypeSend(Text);
end;

procedure Auto2;
begin
 Text:= 'does it work? ';
   TypeSend(Text);
end;

begin
 x:=0;
 repeat
 x:=x+1;
 botglow3:wave2:test;
  wait(5122+random(5122))

  Auto2;
  wait(2000+random(2000))
until (x>

Add AntiBan` and you should set the words in teh const…Highlight below this to see something to help you~
Your Script = EPIC PHAIL![/U]

i no it fails but i tried and it took a while to make it lol, i have no idea how u guys make these sick scripts

Practice makes perfect!
Learn from this;
See my lower post! I've changed it and explained it better (I hope ^^)

=o how did you do that?

This is another way;

Program Flyingkid101AutoTalker;
{.include SRL/SRL.scar}

Var
  x : Integer;

Const
  MaxTalks = 5; //Times to talk.

{Effects are: glow1, glow2, glow3, red, blue, etc.
 Text is: the text after the effects.}
Function AddEffects(Effects : TStringArray; Text : String): String;
Var
  I : Integer;
Begin
  If GetArrayLength(Effects) > 2 Then
  Begin
    WriteLn('Max. 2 effects possible!');
    Exit;
  End;
  For I := 0 To High(Effects) Do //Goes through all the effects typed in.
    Result := Result + Effects[I] + ':'; //Makes 1 string of the effects.
  Result := Result + Text;               //Adds the effects to the text.
End;

Begin
  SetupSRL;
  x := 0;
  ActivateClient;
  ClearDebug;
  Repeat
    Inc(x); //Inc does what x := x + 1; does.
    TypeSend(AddEffects(['red', 'wave'], 'Awesome!')); //Pick any effects/text.
    Wait(100 + Random(1523));
  Until(x >= MaxTalks); //Stop when talked (MaxTalks) times.
End.

I've sort of explained it with comments.

You shouldn't be so down on yourself. Everybody starts somewhere. Keep it up ;)

~Camo