////////////////////////////////////////////////////
///////////////AUTO TALKER BY NICK9321//////////////
////this is a fairly basic auto talker with very////
////basic anti-bans, and no anit randoms. this /////
//////is due to the fact that this is my first//////
//script, and i was trying to make something that///
//worked, and i have suceeded. Anyway, to operate///
//this script, just edit the stuff in pink that is//
//in between the green lines. either way, enjoy ////
//////this very basic script made by nick9321 :P////
////////////////////////////////////////////////////
program AutoTalkerByNW;
{.Include SRL\SRL.Scar}
var
Talked: Integer; //Talked is for Progress Report :)
const
{--------------------EDIT ME--------------------------}
Text1 = ('Pie: a delicious dessert and a mathamatiacl thingamabob.');
Text2 = ('If pratice makes perfect, but nobodys perfect, why pratice?');
text3 = ('Looking for something? check your left hand.');
{-----------------------------------------------------}
function CheckIfOnline: Boolean; //Checks if the player is online. if it isn't, it closes the script
begin
if (not (LoggedIn)) then
Result := True;
ClearDebug;
Writeln('At some point you logged out, so we closed the script for you :(');
TerminateScript;
end;
procedure Talk; //Types
begin
CheckIfOnline;
TypeSend(Text1);
Wait(1000 + random(200));
Inc(Talked); // Adds one to the Progress Report
CheckIfOnline;
TypeSend(Text2);
Wait(750 + random(200));
Inc(Talked);
CheckIfOnline;
TypeSend(Text3);
Wait(1250 + random(200));
Inc(Talked);
end;
procedure AntiBan; // Antiban/antirandom Credits to Griff721. For the tut, and i sort of "barrowed" his antiband (from the tut), and added some stuff
begin
CheckIfOnline;
FindNormalRandoms; // Anti-random
case Random(10) of
0: begin
HoverSkill('Ranged', false); //hovers over a skill
wait(2453 + Random(432));
end;
1: begin
FindNormalRandoms; //Anti-random
end;
2: begin
MakeCompass('N'); //moves compass
wait(100 + random(133));
MakeCompass('W');
wait(50 + random(133));
MakeCompass('N');
FindNormalRandoms; //anti-random
end;
3: begin
PickUpMouse; //simulates pickup up the mouse
end;
4: begin
BoredHuman;
end;
end;
end;
procedure SetChatToGame;
begin
MoveMouseSplineEx(81, 490, 10, 10, 60, 30, 60);
ClickMouseSpline(81, 490, 10, 10, True);
end;
procedure CrappyProggyMaker;
begin
Wait(60000)
ClearDebug;
Writeln('The Script Has be running for: ' + IntToStr(GetTimeRunning / 10000) + ' minutes');
Writeln('Talked ' + IntToStr(Talked) + ' Times'); //Tells How many times we Talked
end;
begin
CheckIfOnline;
ActivateClient;
setupsrl;
SetChatToGame;
repeat
Talk;
AntiBan;
CrappyProggyMaker;
until (False);
end.
Hope that makes sense.