Simba Code:
program MultiTalk;
{.include SRL/SRL.scar}
{.include SRL/SRL/Misc/Smart.scar}
Var
Typed: Integer;
Unlimited, LoggedHalf, AtLogin, JagexKissAss: Boolean;
Ver: String;
ThreeQuarters, Half: Real;
//==================================== you fill this part in ============================================\\
Const
Text = 'Go to [url]www.fakerunescape.com[/url] to lose all of your money'; //The text that you would like to type
Times = 1000; //Set to 0 for unlimited
TalkFast = False; //Only use if you will be banned anyway (e.g. advertising websites)
World = 11; //Choose your world...
JagexKissAss = FALSE; //Member?
Username = YourUsername; //Your Login name/email
Password = YourPassword; //Your Password here
WTime = 1000; //Wait time between types, will auto random, set low if TalkFast is true
Version = 0.1; //MINE! No touching!
//====================== you are not required to change below this line =================================\\
procedure Talk;
begin
if (Times = 0);
then
Repeat
TypeSend(Text);
Typed := Typed + 1;
Writeln('Typed '+Typed+' Times');
Wait(ThreeQuarters+Random(Half));
Until(false);
else
Repeat
TypeSend(Text);
Typed := Typed + 1;
Writeln('Typed '+Typed+'/'Times);
Wait(ThreeQuarters+Random(Half));
Until(Typed >= Times);
end;
procedure SuperFast;
begin
if (Times = 0);
then
Repeat
SendKeys(Text);
TypeSend(' ');
Typed := Typed + 1;
Writeln('Typed '+Typed+' Times');
Until(false);
else
Repeat
SendKeys(Text);
TypeSend(' ')
Typed := Typed + 1;
Writeln('Typed '+Typed+'/'+Times);
Until(Typed >= Times);
end;
procedure CheckVersion;
begin
Ver := GetPage('http://pastehtml.com/view/bdsde4e5q.txt');
If Version = Ver Then
Begin
WriteLn('You are using the most up to date version')
Else
WriteLn('Please Update This Script By Going To [url]http://goo.gl/UpgDT[/url]')
TerminateScript; //Comment out this to use this version anyway
end;
Procedure ClickLeaveAlone;
Begin
if ((FindColorTolerance(var x, y: Integer; 3058112, 467, 401, 526, 417, 10: Integer): Boolean;) = False) Then
Begin
WriteLn('Clicking Leave Alone')
Mouse(375, 300,15,3,true)
Wait(500+Random(50))
WriteLn('Clicked Leave Alone')
Else
WriteLn('Going for Login');
end;
Procedure UsernameandPass;
Begin
Mouse(543, 324,3,3,true);
TypeSend(Username);
wait(500+Random(200));
Mouse(543, 372,3,3,true);
wait(100+Random(50));
TypeSend(Password);
end;
Procedure DoLogin;
Begin
Mouse(445, 413,20,2,true);
WriteLn('Clicked Login');
WriteLn('Waiting For Lobby!');
repeat
wait(2000)
LoggedHalf := (FindColorTolerance(var x, y: Integer; 4357011, 270, 449, 407, 607, 10: Integer): Boolean;)
until(LoggedHalf=True);
WriteLn('Found Lobby')
Wait(500+Random(200));
Mouse(383, 462,5,5,true);
repeat
wait(2000)
LoggedHalf := (FindColorTolerance(var x, y: Integer; 726554, 270, 449, 407, 607, 10: Integer): Boolean;)
until(LoggedHalf=False)
end;
begin
WriteLn('Hello ' + Username)
CheckVersion;
ThreeQuarters := ((WTime DIV 4)*3);
Half := (WTime DIV 2);
WriteLn('Config Complete');
Smart_Server := World;
Smart_Members := JagexKissAss;
Smart_Signed := False;
Smart_SuperDetail := False;
SetupSRL;
if (JagexKissAss = True) Then
WriteLn('You Disgust Me...') //Just Kidding
else
WriteLn('Almost Done...')
WriteLn('Setup Complete');
ClickLeaveAlone
UsernameandPass;
DoLogin;
if (talkfast = false)
then
Talk;
else
SuperFast;
end.