jvwarrior
2007-11-04 18:49:11
New!: V.4 was taken and rewriten to have added Anit-Randoms! Now you can be at a famous selling spot and just have SCAR declaring your text and just incase some random person would come to you and speak V.4 will deal with them and keep on going. V.4 has also been added with a feature that stops the procedure if your not logged into Runescape. Think about it this way if your not logged in it wont go typing all your edited text in things like Browsers that your in or even SCAR if your still on that. V.4 has been named New G.G for New Game Generation.
For the people who like to download the script the download will be availaible below.
This is my 5th script and even though its pretty basic I already know a lot of stuff like even forms so if you think this script is horrible go ahead and let your feelings express themselves by posting. Dont give me some slack give me a whack!
Download Below:
{ LevExidus AutoTalker V.4 B.P ]
[ By Jvwarrior ]
[__________________________________________]
[ Credits: ]
[ Makers Of SCAR ]
[ Metho D for anti help ]
[__________________________________________]
[ Fix's ]
[ V.1: Basic one word AutoTalker. ]
[ V.2: Allowed mulitple words. ]
[ V.3: Randomized sentences. ]
[ V.3.2: CountDown Added. ]
[ V.4: Anti-Randoms + Log In Failure ]
[__________________________________________]
[ Instructions: ]
[1. Ok First As You See ]
[ There Are Talk, Say, Talk2, Say2, ]
[ TalkAgain. ]
[ First Fill In What You Want It ]
[ To Say In The (' ') Marks. ]
[ If You Want To Only Have Say, ]
[ Two Of The Talk, Say, Talk2, Say2, ]
[ TalkAgain Just Leave The ]
[ FieldsEmpty. ]
[ ]
[2. After Done With That Start Up ]
[ Runescape (Better If Game Client), ]
[ Go To Login Screen, Dont Log In! ]
[ Specifie The RS Window By ]
[ ClickingThe Specifie Mark Thingy. ]
[ ]
[3. Then Log In Normaly Once Logged ]
[ In Press SCAR And Run The Script. ]
[ Right After You Run The Script ]
[ Click On Runescape Again ]
[ And Begin Playing Normally. ]
[ ]
[4. Just Walk Around And Watch SCAR ]
[ Do All The Hard Typing For You. Enjoy =) ]
[__________________________________________]
[ Chat Effects ]
[ ]
[ *Color Effects* ]
[ glow1 ]
[ glow2 ]
[ flash1 ]
[ flash2 ]
[ flash3 ]
[ red ]
[ green ]
[ cyan ]
[ white ]
[ ]
[ *Special Effect* ]
[ shake: ]
[ scroll: ]
[ wave: ]
[ slide: ]
[__________________________________________}
// I have made it Noob friendly for people who want to know whats going on. Feel free to use this in future scripts of yours.
// if you want to only have a certain
//amount of text just keep them blank.
//to prevent you from being detected i suggest
//you dont change the TWait. For better
//protection make it higher.
program AutoTalker;
{.Include SRL/SRL.Scar}
{================= EDIT YOUR TEXT IN HERE ======================}
const
Talk = 'Input All Text Between ('') Those Marks!'; //what to say
TWait = 1000; //time to wait after typing
Say = 'If You Want One Not To Be Used Just Keep Them Empty'; // Second Text
Talk2 = 'Be Sure To Insert Things Between The ('') Marks'; //Third text
Say2 = 'Insert Your Other Sentences Here'; // Fourth Text
TalkAgain = 'More Text To Be Insterted Here'; // Last Text (Fifth)
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Usernamehere'; //place your username here
Players[0].Pass := 'Passwordhere'; //place your password here
Players[0].Nick := 'Nicknamehere'; //3 - 4 letters of YOUR username, example: sern
Players[0].Active := True;
end;
{===================== NO MORE TOUCHING! =================================}
procedure Credits;
begin
Writeln(' Welcome To LevExidus AutoTalker V.4!');
Wait(900);
Writeln('Credits to Metho D for Anti help');
Wait(500);
Writeln(' *============ LevExidus AutoTalker V.4 ============*')
Writeln(' *=========== By Jvwarrior ===========*')
end;
procedure Startup;
begin
Writeln('Initializing');
Wait(2000);
Writeln('3');
Wait(1000);
Writeln('2');
Wait(1000);
Writeln('1');
Wait(1500);
Writeln('You May Now Click On Your Runescape Windows');
Wait(1500);
end;
procedure AndoTalkin;
begin
Wait(TWait + random(700));
if (not(LoggedIn)) then Exit;
case Random(5) of
1: typesend(Talk);
2: typesend(Say);
3: typesend(Talk2);
4: typesend(Say2);
5: typesend(TalkAgain);
end;
FindNormalRandoms;
end;
begin // begins
ClearDebug;
Credits;
Startup;
DeclarePlayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
repeat //Repeats The Following after this until the until():
if (InChat('yo')) then typesend('whats up?');
AndoTalkin; // Does everything in procedure TalkOn;
until (false) // False = keeps going Forever.. Ends Repeat.
end. //End of entire Script
Please post any bugs, even though I've tested this like crazy I dont think there are any bugs but you never know.For the people who like to download the script the download will be availaible below.
This is my 5th script and even though its pretty basic I already know a lot of stuff like even forms so if you think this script is horrible go ahead and let your feelings express themselves by posting. Dont give me some slack give me a whack!
Download Below: