PDA

View Full Version : Autotalker HELP.



Soul Rich
12-05-2012, 09:09 PM
I am just wondering, let's say I use this code for autotalker:

program QazsAutoTyper;
{$i srl/srl.simba}

Const
Message0=('insert message here');

Begin
Repeat
Wait(1000+Random(50)); //increase number to slow down. decrease to speed up
TypeSend(message0);
Until(False)
end.

How do I put multiple messages?
Such as if I use it to advertise a clanchat, how can I say multiple lines:

white:Join (FC NAME) - Flower clan
white:Join (FC NAME) today! Huge Drops/Giveaways

etc etc, how do I get them as 2 seperate lines?

Laimonas171
12-05-2012, 09:10 PM
I am just wondering, let's say I use this code for autotalker:

program QazsAutoTyper;
{$i srl/srl.simba}

Const
Message0=('insert message here');

Begin
Repeat
Wait(1000+Random(50)); //increase number to slow down. decrease to speed up
TypeSend(message0);
Until(False)
end.

How do I put multiple messages?
Such as if I use it to advertise a clanchat, how can I say multiple lines:

white:Join (FC NAME) - Flower clan
white:Join (FC NAME) today! Huge Drops/Giveaways

etc etc, how do I get them as 2 seperate lines?

Try to use logic.

The Killer
12-05-2012, 09:10 PM
Wait(1000+Random(50)); //increase number to slow down. decrease to speed up
TypeSend(message0);
Wait(1000+Random(50)); //increase number to slow down. decrease to speed up
TypeSend(message1);
your extermly lucky I posted that

kazhual
12-07-2012, 09:08 PM
If you would like to have way more you can do this:



TexttoTyp : array[0..2] of string ;
I : integer ;

TexttoTyp[0] := 'text1' ;
TexttoTyp[1] := 'text2' ;
TexttoTyp[2] := 'text3' ;

for I:=0 to HIGH(TexttoTyp) do begin
Wait( 1000 + random( 50 ) ;
TypeSend( TexttoTyp[I] );
end;

drey
02-03-2013, 11:16 PM
I dont know how to make a script i want to use work.....do i copy and past it somewhere and press play or something>?

Sjoe
02-04-2013, 06:36 AM
I dont know how to make a script i want to use work.....do i copy and past it somewhere and press play or something>?

read:
http://villavu.com/forum/showthread.php?t=6964
http://villavu.com/forum/showthread.php?t=47714
http://villavu.com/forum/showthread.php?p=851555#post851555

to get started

McDefault
05-17-2013, 11:04 PM
program LazyAutoTyper;
{$DEFINE SMART8}
{$i SRL\SRL.simba}

//Editing the Wait will determine how long it will wait in between typing!

var
a, CaseRandom, Traded: Integer;
WhatToType, HowManyTimes, TypoOne, TypoTwo, TypoThree, SoundPath: string;

Function DelareBitmap: Boolean;
begin
Traded := BitmapFromString(136, 6, 'meJyNVotKw0AQ9MslYhuwVfGBUA' +
'VBKJYWH9QWQ2lRRFQU/SinN2WY7CUiLMdmbu9yzGT20hnOiq1i73r' +
'OQN4ZzhQCFb1xhWAZEVX2b1Yq8018OWoad+5OlghHUIkXYVT4 FB81' +
'7t+/HDy8hgIE9vSFJ/M3lOVbhbcwOZw+82DaH6MW6o0CVcbAuwAyY' +
'c7Ez0nkbPnNfPD4fr74QH6x+um06OIJcDJJUaiLcC13OZjnQn fHFY' +
'L1JKE7WiA45UQxZxk1CjQGYpWDyUacCWkJsxRLCOglydIlbII p1ug' +
'M0kizRIJGXhZAakRwUH2KWI1BF//gKY2Kg3BhCcknS8FEa8KTFjVd' +
'WvgMuvSSsqEAO7gLVMnk6O7puE6yhMgt4zbk6Acjqwo8lqYRW NWU6' +
'8LKRlCquS4Yc10w7l7dtzU0T4CzUrq4BATXBpksc62FkKteKq NMuT' +
'swRYRuZdPL7RNybCUQ0ji3eR9DgS8JTdJNgZFn5hnwWE43JKt TSSl' +
'K4Hlobq7LafWF+EOX0H/Ux9rcRB+5iRB0VlBh082SQYiQFoJ43E5T' +
'4kRXDEkgezXyE0WNuri4QReMZaIuhL6NRl1Er9bKL2WqoTHBa mi2h' +
'd0mRdOlE/yC+2Xn8tY/dQmBHF4Il/7GAunYIt/dkVvGERTX7prRQg' +
'V5z+zX731JH+iVLm1G+D/IKO1yJ0KuwlrvTv7ZIHT162/B3cTdXCl' +
'ZhoHbH/ELbXY95w==');
Result := True;
end;
Procedure EnterDetails;
begin
if (InputQuery('What do you want to say?', 'Enter Sentence:', WhatToType)) then
if (InputQuery('How many times do you want to say it?', 'Enter number of times:', HowManyTimes)) then
if (InputQuery('Enter Typo One', 'Enter Here:', TypoOne)) then
if (InputQuery('Enter Typo Two', 'Enter Here:', TypoTwo)) then
if (InputQuery('Enter Typo Three', 'Enter Here:', TypoThree)) then
Wait(250);
MMouse(259, 329, 15, 10);
ClickMouse2(mouse_left);
end;

Procedure AutoType;
var
x, y: Integer;
begin
TypeSend(WHATTOTYPE);
Wait(RandomRange(198, 344)); //Change this to however fast you wish!
Inc(a);
end;
Procedure TypoAntiBan;
begin
case Random(CaseRandom) of
1:
begin
TypeSend(TypoOne);
Wait(RandomRange(333, 647));
end;
2:
begin
TypeSend(TypoTwo);
Wait(RandomRange(532, 2007));
end;
3:
begin
TypeSend(TypoThree);
Wait(RandomRange(186, 777));
end;
end;
end;

begin
SetUpSRL;
EnterDetails;
CaseRandom := 10;
repeat
AutoType;
TypoAntiBan;
until a = StrToInt(HowManyTimes);
ClearDebug;
Writeln('Finished!');
Writeln('Thank you for using my auto-typer!');
Writeln('******************** Notice! ********************');
Writeln(WhatToType);
Writeln(TypoOne);
Writeln(TypoTwo);
Writeln(TypoThree);
Writeln('***************************************** ********');
end.

use this