SRL Archive - First Scripts

this is actually my second script, but its the first running one. it says what you enter over and over until you hold F7. it uses all chat effects randomly if the boolean is set to true, yellow chat if False

If you dont like the attachment here is the code:

program AutoSell;
{.include SRL/SRL.scar}
//---------------------------------------------------------------------//
//                                                                     //
//                    clancyfan4000 (aka B4yn3)'s                      //
//                    definitive, all chat effect                      //
//                            AutoTalker                               //
//                              v. 1.0                                 //
//                                                                     //
//                                                                     //
//                         Planned Additions:                          //
//                      Make a full auto-trader                        //
//                                                                     //
//                                                                     //
//                            F7 to stop                               //
//                                                                     //
//---------------------------------------------------------------------//
//                          Variable Set Up:                           //
const                                                                  //
//                 Enter message you wish to say:                      //
  YourMessage = 'Your Message Goes Here';                              //
//          True for random effects, False for no effect               //
  UseRandomEffect = True;                                              //
//                                                                     //
//---------------------------------------------------------------------//
var
  ChatEffectColors : Array[0..11] of String;
  ChatEffectProgressive : Array[0..6] of String;
  RandomColor : Integer;
  RandomEffect : Integer;


procedure SetChatEffects;
begin
  ChatEffectColors[0] := 'cyan:';
  ChatEffectColors[1] := 'green:';
  ChatEffectColors[2] := 'purple:';
  ChatEffectColors[3] := 'red:';
  ChatEffectColors[4] := 'white:';
  ChatEffectColors[5] := 'yellow:'; //standard chat color
  ChatEffectColors[6] := 'glow1:';
  ChatEffectColors[7] := 'glow2:';
  ChatEffectColors[8] := 'glow3:';
  ChatEffectColors[9] := 'flash1:';
  ChatEffectColors[10] := 'flash2:';
  ChatEffectColors[11] := 'flash3:';
  ChatEffectProgressive[1] := 'scroll:';
  ChatEffectProgressive[2] := 'shake:';
  ChatEffectProgressive[3] := 'slide:';
  ChatEffectProgressive[4] := 'wave:';
  ChatEffectProgressive[5] := 'wave2:';
  ChatEffectProgressive[6] := '';   //no progressive effect
end;

procedure RandomChatEffect;
begin
  RandomColor := 5;
  RandomEffect := 6;
  if(UseRandomEffect) then
  begin
    RandomColor := random(11);
    RandomEffect := random(6);
  end;
end;

procedure AutoTalk;
begin
  TypeSend(ChatEffectColors[RandomColor] + ChatEffectProgressive[RandomEffect] + YourMessage);
  Wait(1500 + Random(1000));
end;

procedure ProgressReport;
begin
  WriteLn('Clancyfan4000 autotalker');
  WriteLn('Worked for: ' + TimeRunning);
end;

procedure SetupScript;
begin
  ActivateClient;
  SetupSRL;
  ClearDebug;
end;

begin
  SetupScript;
  SetChatEffects;
  repeat
    if(UseRandomEffect) then
    begin
      RandomChatEffect;
      AutoTalk;
    end;
    if(not UseRandomEffect) then
    begin
      AutoTalk;
    end;
  until(isfkeydown(7));
  ProgressReport;
end.