PDA

View Full Version : SinfulEnds First Auto Talker



Sinfulend
07-01-2007, 03:34 AM
My first ever script:spot:
A basic auto talker with simply randomization for anti-ban
Tell me what you think thanks


program SinfulEndsFirstAutoTalker;

//Intro

//This is the first computer program i have ever written
//It is a fairly simple auto talker
//It will say the text anywhere from every 3-5 seconds to prevent banning

//Intructions

//Fill in lines 27 and 29
//Minimize the window
//Hit cntrl+alt+r to start
//Hit ctrl+alt+s for emergancy stop


var
i: Integer;

begin


i:= 0;
Writeln('This will go on however many times you filled in line 29.');
Writeln('Remember ctrl+alt+s is emergancy stop.');
repeat
i:= i + 1;
SendKeys('INSERT TEXT HERE'+chr(13)); //Insert your text here
wait(3000+random(2000));
until(i >= 10);//Change the 10 to however many times you want to repeat
end.

Sinfulend
07-01-2007, 04:05 AM
feel free to post any comment or anything

Santa_Clause
07-01-2007, 07:39 AM
[Offtopic] Nice Signature!

Sinfulend
07-01-2007, 04:32 PM
[Offtopic] Nice Signature!

TY I made on cooltext.com

Camaro'
07-02-2007, 01:06 AM
TY I made on cooltext.com



Instead of using send keys use type send...

put the mesages as a const



Ill show you mine. that i just made lol. It took bout 5-6 min.



Program talk
{include. srl/srl.scar}

const
Message1' here'// Have them type messages here so they dont have to look
Message2'here'
Message3'here'

procedure Talks;
begin
Wait(2500+random(1000));
TypeSend(Message1 +chr(13));{See how i used typesend instead of sendkeys?}
Wait(2500+random(1000));//this is telling it to wait 2.5 seconds - 1 second
// it randomizes it for anti ban
TypeSend(Message2 +chr(13));// Its telling it to send message 1/2/3 so
//the script users dont have to look for this procedure.
Wait(2500+random(1000));
TypeSend(Message3 +chr(13));
end;

// main loop
begin
repeat//this is teling it to repeat the ^^^^^ procedure
talks;
until(false)// until script is stoped i think


next time put it in tags...

i didnt test it if it compiles or not but u get the idea

Sinfulend
07-02-2007, 06:50 PM
o ok

Santa_Clause
07-03-2007, 06:23 AM
Instead of using send keys use type send...

put the mesages as a const



Ill show you mine. that i just made lol. It took bout 5-6 min.



Program talk
{include. srl/srl.scar}

const
Message1' here'// Have them type messages here so they dont have to look
Message2'here'
Message3'here'

procedure Talks;
begin
Wait(2500+random(1000));
TypeSend(Message1 +chr(13));{See how i used typesend instead of sendkeys?}
Wait(2500+random(1000));//this is telling it to wait 2.5 seconds - 1 second
// it randomizes it for anti ban
TypeSend(Message2 +chr(13));// Its telling it to send message 1/2/3 so
//the script users dont have to look for this procedure.
Wait(2500+random(1000));
TypeSend(Message3 +chr(13));
end;

// main loop
begin
repeat//this is teling it to repeat the ^^^^^ procedure
talks;
until(false)// until script is stoped i think


next time put it in tags...

i didnt test it if it compiles or not but u get the idea

It won't compile because you're missing an end at the end. Also, TypeSend automatically presses enter so you don't need +chr(13);.

71runemaker
07-03-2007, 01:13 PM
Instead of using send keys use type send...

put the mesages as a const



Ill show you mine. that i just made lol. It took bout 5-6 min.



Program talk
{include. srl/srl.scar}

const
Message1' here'// Have them type messages here so they dont have to look
Message2'here'
Message3'here'

procedure Talks;
begin
Wait(2500+random(1000));
TypeSend(Message1 +chr(13));{See how i used typesend instead of sendkeys?}
Wait(2500+random(1000));//this is telling it to wait 2.5 seconds - 1 second
// it randomizes it for anti ban
TypeSend(Message2 +chr(13));// Its telling it to send message 1/2/3 so
//the script users dont have to look for this procedure.
Wait(2500+random(1000));
TypeSend(Message3 +chr(13));
end;

// main loop
begin
repeat//this is teling it to repeat the ^^^^^ procedure
talks;
until(false)// until script is stoped i think


next time put it in tags...

i didnt test it if it compiles or not but u get the idea

also put in that u have to push a button for the messages to be type like what if i wanted just to say one thing? and not 3?:eek:

TravisV10
07-04-2007, 03:46 PM
It looks like a good script. When I started scripting I did an Auto Dropper and Talker. :o

yanix
07-14-2007, 08:42 AM
yeah nice work

Killerdou
07-14-2007, 08:53 AM
and... make it leetspeak lol

Function LeetSpeak(Text: string; HowManyTimes, OutOf : integer) : string;
var
i: Integer;
TheLength: Integer;
NewText: String;
begin
TheLength:= 0;
Text := Replace(Text, 'and', '&');
Text := Replace(Text, 'anned', '&');
Text := Replace(Text, 'ant', '&');
Text := Replace(Text, 'aned', '&');
for i := 1 to Length(Text) do
begin
if (Random(OutOf) < HowManyTimes) then
Case lowercase(Text[I]) of
'a' : begin
Case random(6) of
0 : begin
Insert('4',NewText,TheLength +1);
TheLength := TheLength + 1;
end;
1 : begin
Insert('/\',NewText,TheLength +1);
TheLength := TheLength + 2;
end;
2 : begin
Insert('@',NewText,TheLength +1);
TheLength := TheLength + 1;
end;
3 : begin
Insert('/-\',NewText,TheLength +1);
TheLength := TheLength + 3; end;
4 : begin
Insert('^',NewText,TheLength +1);
TheLength := TheLength + 1; end;
5 : begin
Insert('aya',NewText,TheLength +1);
TheLength := TheLength + 3; end;
end;
end;

'b' : begin
case Random(8) of
0 : begin
insert('8',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('6',NewText,TheLength +1);
TheLength := TheLength + 1; end;
2 : begin
insert('13',NewText,TheLength +1);
TheLength := TheLength + 2; end;
3 : begin
insert('P>',NewText,TheLength +1);
TheLength := TheLength + 2; end;
4 : begin
insert('!3',NewText,TheLength +1);
TheLength := TheLength + 2; end;
5 : begin
insert('(3',NewText,TheLength +1);
TheLength := TheLength + 2; end;
6 : begin
insert('/3',NewText,TheLength +1);
TheLength := TheLength + 2; end;
7 : begin
insert(')3',NewText,TheLength +1);
TheLength := TheLength + 2; end;
end;
end;

'c' : begin
case Random(3) of
0 : begin
insert('[',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('<',NewText,TheLength +1);
TheLength := TheLength + 1; end;
2 : begin
insert('(',NewText,TheLength +1);
TheLength := TheLength + 1; end;
end;
end;

'd' : begin
case Random(6) of
0 : begin
insert(')',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('[)',NewText,TheLength +1);
TheLength := TheLength + 2; end;
2 : begin
insert('I>',NewText,TheLength +1);
TheLength := TheLength + 2; end;
3 : begin
insert('?',NewText,TheLength +1);
TheLength := TheLength + 1; end;
4 : begin
insert('T)',NewText,TheLength +1);
TheLength := TheLength + 2; end;
5 : begin
insert('0',NewText,TheLength +1);
TheLength := TheLength + 1; end;
end;
end;

'e' : begin
case Random(3) of
0 : begin
insert('3',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('&',NewText,TheLength +1);
TheLength := TheLength + 1; end;
2 : begin
insert('[-',NewText,TheLength +1);
TheLength := TheLength + 2; end;
end;
end;

'f' : begin
case Random(2) of
0 : begin
insert('ph',NewText,TheLength +1);
TheLength := TheLength + 2; end;
1 : begin
insert('/=',NewText,TheLength +1);
TheLength := TheLength + 2; end;
end;
end;

'g' : begin
case Random(5) of
0 : begin
insert('6',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('9',NewText,TheLength +1);
TheLength := TheLength + 1; end;
2 : begin
insert('C-',NewText,TheLength +1);
TheLength := TheLength + 2; end;
3 : begin
insert('gee',NewText,TheLength +1);
TheLength := TheLength + 3; end;
4 : begin
insert('(V,',NewText,TheLength +1);
TheLength := TheLength + 3; end;
end;
end;

'h' : begin
case Random(7) of
0 : begin
insert('#',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('/-/',NewText,TheLength +1);
TheLength := TheLength + 3; end;
2 : begin
insert('[-]',NewText,TheLength +1);
TheLength := TheLength + 3; end;
3 : begin
insert(']-[',NewText,TheLength +1);
TheLength := TheLength + 3; end;
4 : begin
insert(')-(',NewText,TheLength +1);
TheLength := TheLength + 3; end;
5 : begin
insert('(-)',NewText,TheLength +1);
TheLength := TheLength + 3; end;
6 : begin
insert(':-:',NewText,TheLength +1);
TheLength := TheLength + 3; end;
end;
end;

'i' : begin
case Random(5) of
0 : begin
insert('1',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('!',NewText,TheLength +1);
TheLength := TheLength + 1; end;
2 : begin
insert('eye',NewText,TheLength +1);
TheLength := TheLength + 3; end;
3 : begin
insert('3y3',NewText,TheLength +1);
TheLength := TheLength + 3; end;
4 : begin
insert(']',NewText,TheLength +1);
TheLength := TheLength + 1; end;
end;
end;

'j' : begin
case Random(2) of
0 : begin
insert('</',NewText,TheLength +1);
TheLength := TheLength + 2; end;
1 : begin
insert('(/',NewText,TheLength +1);
TheLength := TheLength + 2; end;
end;
end;

'k' : begin
case Random(1) of
0 : begin
insert('!<',NewText,TheLength +1);
TheLength := TheLength + 2; end;
end;
end;

'l' : begin
case Random(3) of
0 : begin
insert('1',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('7',NewText,TheLength +1);
TheLength := TheLength + 1; end;
2 : begin
insert('1j',NewText,TheLength +1);
TheLength := TheLength + 2; end;
end;
end;

'm' : begin
case Random(1) of
0 : begin
insert('/^^\',NewText,TheLength +1);
TheLength := TheLength + 4; end;
end;
end;

'n' : begin;
case Random(8) of
0 : begin
insert('^/',NewText,TheLength +1);
TheLength := TheLength + 2; end;
1 : begin
insert('/\/',NewText,TheLength +1);
TheLength := TheLength + 3; end;
2 : begin
insert('[\]',NewText,TheLength +1);
TheLength := TheLength + 3; end;
3 : begin
insert('<\>',NewText,TheLength +1);
TheLength := TheLength + 3; end;
4 : begin
insert('[]\',NewText,TheLength +1);
TheLength := TheLength + 3; end;
5 : begin
insert('//',NewText,TheLength +1);
TheLength := TheLength + 2; end;
6 : begin
insert('[]',NewText,TheLength +1);
TheLength := TheLength + 2; end;
7 : begin
insert('/V',NewText,TheLength +1);
TheLength := TheLength + 2; end;
end;
end;

'o' : begin;
case Random(4) of
0 : begin
insert('0',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('()',NewText,TheLength +1);
TheLength := TheLength + 2; end;
2 : begin
insert('oh',NewText,TheLength +1);
TheLength := TheLength + 2; end;
3 : begin
insert('[]',NewText,TheLength +1);
TheLength := TheLength + 2; end;
end;
end;

'p' : begin;
case Random(2) of
0 : begin
insert('9',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('[]D',NewText,TheLength +1);
TheLength := TheLength + 3; end;
end;
end;

'q' : begin;
case Random(1) of
0 : begin
insert('<!',NewText,TheLength +1);
TheLength := TheLength + 2; end;
end;
end;

'r' : begin;
case Random(6) of
0 : begin
insert('2',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('/2',NewText,TheLength +1);
TheLength := TheLength + 2; end;
2 : begin
insert('lz',NewText,TheLength +1);
TheLength := TheLength + 2; end;
3 : begin
insert('[z',NewText,TheLength +1);
TheLength := TheLength + 2; end;
4 : begin
insert('12',NewText,TheLength +1);
TheLength := TheLength + 2; end;
5 : begin
insert('l2',NewText,TheLength +1);
TheLength := TheLength + 2; end;
end;
end;

's' : begin;
case Random(5) of
0 : begin
insert('5',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('z',NewText,TheLength +1);
TheLength := TheLength + 1; end;
2 : begin
insert('ehs',NewText,TheLength +1);
TheLength := TheLength + 3; end;
3 : begin
insert('es',NewText,TheLength +1);
TheLength := TheLength + 2; end;
4 : begin
insert('$',NewText,TheLength +1);
TheLength := TheLength + 1; end;
end;
end;

't' : begin;
case Random(3) of
0 : begin
insert('7',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('+',NewText,TheLength +1);
TheLength := TheLength + 1; end;
2 : begin
insert('1',NewText,TheLength +1);
TheLength := TheLength + 1; end;
end;
end;

'u' : begin;
case Random(1) of
0 : begin
insert('v',NewText,TheLength +1);
TheLength := TheLength + 1; end;
end;
end;

'v' : begin;
case Random(1) of
0 : begin
insert('\/',NewText,TheLength +1);
TheLength := TheLength + 2; end;
end;
end;

'w' : begin;
case Random(6) of
0 : begin
insert('\/\/',NewText,TheLength +1);
TheLength := TheLength + 4; end;
1 : begin
insert('vv',NewText,TheLength +1);
TheLength := TheLength + 2; end;
2 : begin
insert('\^/',NewText,TheLength +1);
TheLength := TheLength + 3; end;
3 : begin
insert('(n)',NewText,TheLength +1);
TheLength := TheLength + 3; end;
4 : begin
insert('\v/',NewText,TheLength +1);
TheLength := TheLength + 3; end;
5 : begin
insert('\x/',NewText,TheLength +1);
TheLength := TheLength + 3; end;
end;
end;

'x' : begin;
case Random(3) of
0 : begin
insert('><',NewText,TheLength +1);
TheLength := TheLength + 2; end;
1 : begin
insert('ecks',NewText,TheLength +1);
TheLength := TheLength + 4; end;
2 : begin
insert(')(',NewText,TheLength +1);
TheLength := TheLength + 2; end;
end;
end;

'y' : begin;
case Random(2) of
0 : begin
insert('j',NewText,TheLength +1);
TheLength := TheLength + 1; end;
1 : begin
insert('7',NewText,TheLength +1);
TheLength := TheLength + 1; end;
end;
end;

'z' : begin;
case Random(1) of
0 : begin
insert('2',NewText,TheLength +1);
TheLength := TheLength + 1; end;
end;
end;
else begin
insert(Text[I], NewText,TheLength +1);
TheLength := TheLength + 1; end;

end else
begin
insert(lowercase(Text[I]), NewText, TheLength +1);
TheLength := TheLength + 1;
end;
end;
Result := NewText;
end;

begin

WriteLn(LeetSpeak('text here', 10 , 10));

end.