im only posting this so that i have an online copy. (just incase)
i had already done something similar but i lost all my scripts on my old pc. i had no back up. now i will.
this script is meant for people who want to get members in their clan wars clan.
SCAR Code:
Program ManTalk;
////////////////////////////////////////////////////////////////////////////
/////////WELCOME TO ARN'S autotalker ///////////////////////////////////////
///////////////////////////Directions///////////////////////////////////////
// //
// //
// by: Man Slaughter a.k.a The ARN //
////////////////////////////////////////////////////////////////////////////
{.include SRL/SRL.scar}
const
Sloppy = 35; // general sloppyness. 1 out of 35 char default
colslop = 190; // how sloppy you will be typing flash text
colran = 2; // 1 out of how many times it will run. default 1 out of 2
timetorun = 600000; // in ms the time its gonna run.
preruntimeout = 1500; // time to wait before starting
Leader = '& Zezima 80+ &'; // the "&" protects it from errors
inbe2inw = 2000; //minimum wait in between
ranw2in = 2000; //random added wait to inbe2inw
var
Sloppyness:Integer;
sentences:array of String;
function charduper(char:String; minr,maxr:Integer):string;
var
i:Integer;
begin
i:= 0;
while(i < minr+random(maxr-minr+1)) do
begin
i:= i + 1;
insert(char, result, Length(result));
end;
end;
Procedure setupSentences;
begin
SetArrayLength(sentences, 10);
sentences[0]:= 'Join'+Leader;
sentences[1]:= 'all join'+Leader+'or die'+charduper('!',0,2);
sentences[2]:= 'surrender to'+Leader+'or die'+charduper('!',0,2);
sentences[3]:= 'die or join'+Leader;
sentences[4]:= 'Join'+Leader+'you know you want to';
sentences[5]:= '--Join'+Leader+'--';
sentences[6]:= 'Be the hero join'+Leader;
sentences[7]:= Leader+'its a revolution'+charduper('!',2,6);
sentences[8]:= Leader+'for the ipods';
sentences[9]:= 'Join'+Leader+'or bust';
end;
function color:string;
var acolor:array of String;
begin
SetArrayLength(acolor, 9);
acolor[0]:= 'red:';
acolor[1]:= 'white:';
acolor[2]:= 'cyan:';
acolor[3]:= 'red:shake:';
acolor[4]:= 'white:wave:';
acolor[5]:= 'white:slide:';
acolor[6]:= 'flash3:wave2:';
acolor[7]:= 'purple:';
acolor[8]:= 'flash1:';
if random(colran)=1 then
result:=acolor[random(GetArrayLength(acolor)-1)]
else
result:='';
end;
function sentence:string;
begin
setupSentences;
result:= sentences[random(GetArrayLength(sentences))];
if StartsWith('& ', result) then delete(result, 2,1);
if EndsWith(' &', result) then delete(result, Length(result)-1,1);
end;
Procedure toggle(var boling:Boolean);
begin
if boling then
begin
boling:=false;
exit;
end;
boling:=true;
end;
Procedure ArnType(wha2type:String; go:Boolean);
var
mychar:Char;
i,mylenght,luckychar:Integer;
Shift,protectedchar:Boolean;
begin
i:= 1;
mylenght:=Length(wha2type)+1;
protectedchar:= false;
repeat
if Length(wha2type)=0 then exit;
mychar:= StrGet(wha2type,i);
writeln(mychar);
writeln(inttostr(i));
luckychar:= random(9);
if mychar = '&' then
toggle(protectedchar);
//Mutant Squirrle
Shift := (mychar = ':') or (mychar = '!') or (mychar = '+') or
(mychar = '?') or (mychar = '<') or (mychar = '>') or
(mychar = '@') or (mychar = '#') or (mychar = '$') or
(mychar = '&') or (mychar = '%') or (mychar = '*') or
//Mutant Squirrle end;
(mychar = ')') or (mychar = '(');
if (random(Sloppyness)=0) and not protectedchar then
begin
case mychar of
'a':
begin
if ((luckychar<7)) then
begin
TypeByte(GetKeyCode('s'));
end
else
begin
TypeByte(GetKeyCode('q'));
end;
end;
'b': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('v'));
end
else
begin
TypeByte(GetKeyCode('n'));
end;
end;
'c': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('x'));
end
else
begin
TypeByte(GetKeyCode('v'));
end;
end;
'd': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('s'));
end
else
begin
TypeByte(GetKeyCode('f'));
end;
end;
'e': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('w'));
end
else
begin
TypeByte(GetKeyCode('r'));
end;
end;
'f': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('d'));
end
else
begin
TypeByte(GetKeyCode('g'));
end;
end;
'g': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('f'));
end
else
begin
TypeByte(GetKeyCode('h'));
end;
end;
'h': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('g'));
end
else
begin
TypeByte(GetKeyCode('j'));
end;
end;
'i': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('u'));
end
else
begin
TypeByte(GetKeyCode('o'));
end;
end;
'j': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('h'));
end
else
begin
TypeByte(GetKeyCode('k'));
end;
end;
'k': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('j'));
end
else
begin
TypeByte(GetKeyCode('l'));
end;
end;
'l': begin
if ((luckychar<8)) then
begin
TypeByte(GetKeyCode('k'));
end
else
begin
TypeByte(GetKeyCode('o'));
end;
end;
'm': begin
if ((luckychar<8)) then
begin
TypeByte(GetKeyCode('n'));
end
else
begin
TypeByte(GetKeyCode('k'));
end;
end;
'n': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('m'));
end
else
begin
TypeByte(GetKeyCode('b'));
end;
end;
'o': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('i'));
end
else
begin
TypeByte(GetKeyCode('p'));
end;
end;
'p': begin
if ((luckychar<8)) then
begin
TypeByte(GetKeyCode('o'));
end
else
begin
TypeByte(GetKeyCode('l'));
end;
end;
'q': begin
if ((luckychar<8)) then
begin
TypeByte(GetKeyCode('w'));
end
else
begin
TypeByte(GetKeyCode('a'));
end;
end;
'r': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('e'));
end
else
begin
TypeByte(GetKeyCode('t'));
end;
end;
's': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('a'));
end
else
begin
TypeByte(GetKeyCode('d'));
end;
end;
't': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('r'));
end
else
begin
TypeByte(GetKeyCode('y'));
end;
end;
'u': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('i'));
end
else
begin
TypeByte(GetKeyCode('y'));
end;
end;
'v': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('c'));
end
else
begin
TypeByte(GetKeyCode('b'));
end;
end;
'w': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('q'));
end
else
begin
TypeByte(GetKeyCode('e'));
end;
end;
'x': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('z'));
end
else
begin
TypeByte(GetKeyCode('c'));
end;
end;
'y': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('u'));
end
else
begin
TypeByte(GetKeyCode('t'));
end;
end;
'z': begin
if ((luckychar<8)) then
begin
TypeByte(GetKeyCode('x'));
end
else
begin
TypeByte(GetKeyCode('a'));
end;
end;
'A': begin
if ((luckychar<8)) then
begin
TypeByte(GetKeyCode('S'));
end
else
begin
TypeByte(GetKeyCode('Q'));
end;
end;
'B': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('V'));
end
else
begin
TypeByte(GetKeyCode('N'));
end;
end;
'C': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('X'));
end
else
begin
TypeByte(GetKeyCode('V'));
end;
end;
'D': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('F'));
end
else
begin
TypeByte(GetKeyCode('S'));
end;
end;
'E': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('R'));
end
else
begin
TypeByte(GetKeyCode('W'));
end;
end;
'F': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('D'));
end
else
begin
TypeByte(GetKeyCode('G'));
end;
end;
'G': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('H'));
end
else
begin
TypeByte(GetKeyCode('F'));
end;
end;
'H': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('G'));
end
else
begin
TypeByte(GetKeyCode('J'));
end;
end;
'I': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('U'));
end
else
begin
TypeByte(GetKeyCode('O'));
end;
end;
'J': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('K'));
end
else
begin
TypeByte(GetKeyCode('H'));
end;
end;
'K': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('L'));
end
else
begin
TypeByte(GetKeyCode('J'));
end;
end;
'L': begin
if ((luckychar<8)) then
begin
TypeByte(GetKeyCode('K'));
end
else
begin
TypeByte(GetKeyCode('P'));
end;
end;
'M': begin
if ((luckychar<8)) then
begin
TypeByte(GetKeyCode('N'));
end
else
begin
TypeByte(GetKeyCode('K'));
end;
end;
'N': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('B'));
end
else
begin
TypeByte(GetKeyCode('M'));
end;
end;
'O': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('I'));
end
else
begin
TypeByte(GetKeyCode('P'));
end;
end;
'P': begin
if ((luckychar<8)) then
begin
TypeByte(GetKeyCode('O'));
end
else
begin
TypeByte(GetKeyCode('L'));
end;
end;
'Q': begin
if ((luckychar<8)) then
begin
TypeByte(GetKeyCode('W'));
end
else
begin
TypeByte(GetKeyCode('A'));
end;
end;
'R': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('E'));
end
else
begin
TypeByte(GetKeyCode('T'));
end;
end;
'S': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('A'));
end
else
begin
TypeByte(GetKeyCode('D'));
end;
end;
'T': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('R'));
end
else
begin
TypeByte(GetKeyCode('Y'));
end;
end;
'U': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('Y'));
end
else
begin
TypeByte(GetKeyCode('I'));
end;
end;
'V': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('C'));
end
else
begin
TypeByte(GetKeyCode('B'));
end;
end;
'W': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('Q'));
end
else
begin
TypeByte(GetKeyCode('E'));
end;
end;
'X': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('Z'));
end
else
begin
TypeByte(GetKeyCode('C'));
end;
end;
'Y': begin
if ((luckychar<5)) then
begin
TypeByte(GetKeyCode('T'));
end
else
begin
TypeByte(GetKeyCode('U'));
end;
end;
'Z': begin
if ((luckychar<8)) then
begin
TypeByte(GetKeyCode('X'));
end
else
begin
TypeByte(GetKeyCode('A'));
end;
end;
'!':TypeByte(GetKeyCode('1'));
// ':':TypeByte(GetKeyCode('.')); analize
end; //case end
end else if not (mychar='&') then
begin
if (Shift) then
begin
KeyDown(VK_Shift);
Wait(5 + Random(20));
end;
TypeByte(GetKeyCode(mychar)); //typing
if (Shift) then
begin
KeyUp(VK_Shift);
Wait(5 + Random(20));
end;
end;
i:=i+1;
Wait(50 + Random(120));
until (mylenght=i)
if go then
TypeByte(13);
end;
Procedure mainloop;
var i:Integer;
begin
repeat
for i:= 0 to GetArrayLength(sentences)-1 do
begin
Sloppyness:= colslop;
ArnType(color, false);
Sloppyness:= Sloppy;
ArnType(sentence, true);
wait(inbe2inw+random(ranw2in));
end;
until(GetTimeRunning>= timetorun);
end;
begin
Sloppyness:= Sloppy;
SetupSRL;
setupSentences;
wait(preruntimeout);
mainloop;
end.
output:
Code:
white:slide:all jiin zezima 80+ or die!
red:fiw or join zezima 80+
akl join zezima 80+ or die!
join zezima 80+ or bust
[H]be the gero[/H] join zezima 80+
join zezima 80+ or bust
red:shake:join zezima 80+
flash3:wave2:join zezima 80+
join zezima 80+ you know you want to
join zezima 80+
cyan:join zezima 80+
zezima 80+ for the ipods
white:zezima 80+ for the ioods
join zezima 80+ or bust
red:shake:zezima 80+ its a [H]rebolution!1[/H]
zezima 80+ for the ipods
red:shake:all join zezima 80+ or die!