[Offtopic] Nice Signature!
[CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
[CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]
[CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]
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.
SCAR Code: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
[CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
[CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]
[CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]
It looks like a good script. When I started scripting I did an Auto Dropper and Talker.![]()
FORMERLY BORN2CODE | Play Internet Games
http://img147.imageshack.us/img147/2084/sigg.png
yeah nice work
and... make it leetspeak lol
SCAR Code: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.
Infractions, reputation, reflection, the dark side of scripting, they are.
There are currently 1 users browsing this thread. (0 members and 1 guests)