Help Script For Adrenaline Doesnt Work

[MrPro*]

looking for some help with this script : 
 

uses 
    Classes, SysUtils, SettingsModule;
//Feito por O AlquimistaNERD    
var
  charName: string;
  i: integer;
  SL: TStringList;
  spamDelay: integer;
  spamText: string;
  randomSymbolsCount: integer;


procedure OnFree;
begin
  SL.Free;
  print('Spam finished');
end;


procedure loadConfig;
var
  MySet: TSettings;
begin
  MySet.SetFile(Script.Path + 'SpamConfig.ini');
  spamDelay := MySet.Load('Params', 'Spam delay', 2999);  //Tempo de intervalo
  spamText := MySet.Load('Params', 'Spam text', 'Esvreva aqui!');  //Mensagem
  randomSymbolsCount := MySet.Load('Params', 'Random symbols count', 4);
  print('Spam delay: ' + IntToStr(spamDelay));
  print('Spam text: ' + spamText);
  print('Random symbols count: ' + IntToStr(randomSymbolsCount));
end;


function getRandomString(size: integer): string;
const
  alphabet = 'qwertyuiopasdfghjklzxcvbnm';
var
  i: integer;
begin
  Result := '';
  for i:=0 to size-1 do
  begin
    Result := Result + alphabet[Random(Length(alphabet)-1)];
  end;
end;


begin
  SL := TStringList.Create;
  loadConfig;
  while true do
  begin
    for i := 0 to CharList.count -1 do
    begin
      charName := CharList.Items(i).name;
      if (charName <> '') and (SL.IndexOf(charName) = -1) then
      begin
        SL.add(charName);
        if Engine.Say(spamText + ' ' + getRandomString(randomSymbolsCount), 2, charName) then
          print('Spammed to: ' + charName);
        
        delay(spamDelay);
      end else
        delay(100);
      end;
  end;
end.

Edited December 23, 2015 by MrPro*

[MrPro*]

i edited a bit the code , found few mistakes but still doesnt work , code has been updated

Edited December 23, 2015 by MrPro*

[adr.bot]

uses 
    Classes, SysUtils;

const
  spamDelay: integer          = 1000;  //1second
  spamText: string            = 'just testing'; //text wich flood
  randomSymbolsCount: integer = 5;  //ramdom symbols

 
var
  charName: string;
  i: integer;
  SL: TStringList;

procedure OnFree;
begin
  SL.Free;
  print('Spam finished');
end;


function getRandomString(size: integer): string;
const
  alphabet = 'qwertyuiopasdfghjklzxcvbnm';
var
  i: integer;
begin
  Result := '';
  for i:=0 to size-1 do
  begin
    Result := Result + alphabet[Random(Length(alphabet)-1)];
  end;
end;


begin
  SL := TStringList.Create;
  while true do
  begin
    for i := 0 to CharList.count -1 do
    begin
      charName := CharList.Items(i).name;
      if (charName <> '') and (SL.IndexOf(charName) = -1) then
      begin
        SL.add(charName);
        if Engine.Say(spamText + ' ' + getRandomString(randomSymbolsCount), 2, charName) then
          print('Spammed to: ' + charName);
        
        delay(spamDelay);
      end else
        delay(100);
      end;
  end;
end.

just removed configs and added in const, what you need now edit const and have fun xd

ps. tested and works

gl hf

[MrPro*]

uses 
    Classes, SysUtils;

const
  spamDelay: integer          = 1000;  //1second
  spamText: string            = 'just testing'; //text wich flood
  randomSymbolsCount: integer = 5;  //ramdom symbols

 
var
  charName: string;
  i: integer;
  SL: TStringList;

procedure OnFree;
begin
  SL.Free;
  print('Spam finished');
end;


function getRandomString(size: integer): string;
const
  alphabet = 'qwertyuiopasdfghjklzxcvbnm';
var
  i: integer;
begin
  Result := '';
  for i:=0 to size-1 do
  begin
    Result := Result + alphabet[Random(Length(alphabet)-1)];
  end;
end;


begin
  SL := TStringList.Create;
  while true do
  begin
    for i := 0 to CharList.count -1 do
    begin
      charName := CharList.Items(i).name;
      if (charName <> '') and (SL.IndexOf(charName) = -1) then
      begin
        SL.add(charName);
        if Engine.Say(spamText + ' ' + getRandomString(randomSymbolsCount), 2, charName) then
          print('Spammed to: ' + charName);
        
        delay(spamDelay);
      end else
        delay(100);
      end;
  end;
end.

just removed configs and added in const, what you need now edit const and have fun xd

ps. tested and works

gl hf

 

HUGE THANKS BRO !!!!! <3

[Katherine]

solved and locked.