Tehbyte, auto talker :)

This is a auto talker, you can just use and go afk or w.e on main/test and spam tehbyte.no-ip.org don't send this to other people on other servers we don't want them advertising their own servers xD, thanks

simply just copy all of the writing below into a scar divi, then your ready to go if you get any problems contact me in game, or on MSN; dunoe11@hotmail.co.uk.


const
text = '`Join tehbyte.no-ip.org online 24:7, Join now!';//
times = 1; //

var
v:integer;

procedure TypeByte(k: Byte);
begin
KeyDown(k);
Wait(10 + Random(50));
KeyUp(k);
end;

procedure TypeSend(Text: string);
var
S: string;
I: Integer;
C: Byte;
Shift: Boolean;
begin
S:= 'ABCDEFGHIJKLMNOPQRSTUVWXZ' + '~!@#$%^&*()_+{}|:"<>?';
for I:= 1 to Length(Text) do
begin
Shift:= (Pos(Text[i], S) > 0);
if(Shift)then
begin
KeyDown(VK_SHIFT) Wait(40 + Random(40));
while(Pos(Text[i], S) > 0)and(I <= Length(Text))do
begin
C := GetKeyCode(StrGet(Text, I));
TypeByte(c);
I:= I + 1;
if(I > Length(Text))then Break;
end;
end;
if(Shift)then
KeyUp(VK_SHIFT);
Wait(40 + Random(40));
if(I <= Length(Text))then
begin
C:= GetKeyCode(StrGet(Text, I));
TypeByte(C);
Wait(40 + Random(40));
end;
end;
C := GetKeyCode(Chr(13));
TypeByte(C);
end;

begin
findwindowtitlepart('endless online', false);
wait(50);
v:=0;
activateclient;
wait(1000);
repeat
typesend(text);
wait(1000);
until(v=times);
end.

Tnx man