SRL Archive - SRL Archives

Well this is a simple procedure that could be used for autoresponders etc.

Basically, you provide it with an array of strings, and it will pick one of them and 'typesend' it.

procedure RTypeSend(TypeList : TStringArray);
var i : Integer;
begin
  i := Random(GetArrayLength(TypeList));
  TypeSend(TypeList[i]);
end;

So you could call it like this:

RTypeSend(['hehe', 'heh', 'ha', 'hah', 'hihi', 'rofl', 'lol', 'loll', 'haha', 'lolz', 'lol/']);

This simple procedure could be very useful for autoresponders, and the idea could be implemented in many different ways.

Cheers, Pancakes.

Nice, nice.

procedure RTypeSend(TypeList : TStringArray);
begin
  TypeSend(TypeList[Random(GetArrayLength(TypeList) - 1)]);
end;

Shorter isn't always better :p

I think it just makes it faster :)

Simple, but useful. :)
You don't need the -1 after the GetArrayLength ;)

From: Santa_Clause
I think it just makes it faster :)

Not always :p

In this case shorter is better and you don't need the -1 indeed, that just makes it not work perfectly

Simple but yet ingenious.

Lol, as an advice, don't use an auto talker, just respond.. (originally by Wizzy)

From: Lorax
Lol, as an advice, don't use an auto talker, just respond.. (originally by Wizzy)

Could also be useful for autoresponders… :) Removed the -1, been working with KYAB paths too much lol.

From: Freddy1990
In this case shorter is better and you don't need the -1 indeed, that just makes it not work perfectly

How can you tell if it makes a difference or not?

[php]
n := GetArrayLenght(array);
For i := 0 to n-1 do
[/php]

is better than

[php]
for i := 0 to GetArrayLength(Array) -1 do
[/php]

Is it faster?

Because if it is even 1 millisecond faster, I will reapply my mining procs in pwnaz0r's competition…

From: Starblaster100
[php]
n := GetArrayLenght(array);
For i := 0 to n-1 do
[/php]

is better than

[php]
for i := 0 to GetArrayLength(Array) -1 do
[/php]

True, otherwise for every loop it gets the length of the array.

Sweet. I might use this for auto responding. But then again, what else would you use it for ? :p

Trying to get banned, undetectably :D

Bloody hell mate!