MrPro* Posted December 23, 2015 Share Posted December 23, 2015 (edited) 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* Link to comment Share on other sites More sharing options...
MrPro* Posted December 23, 2015 Author Share Posted December 23, 2015 (edited) i edited a bit the code , found few mistakes but still doesnt work , code has been updated Edited December 23, 2015 by MrPro* Link to comment Share on other sites More sharing options...
adr.bot Posted December 23, 2015 Share Posted December 23, 2015 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 Link to comment Share on other sites More sharing options...
MrPro* Posted December 23, 2015 Author Share Posted December 23, 2015 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 Link to comment Share on other sites More sharing options...
Katherine Posted December 23, 2015 Share Posted December 23, 2015 solved and locked. Link to comment Share on other sites More sharing options...
Recommended Posts