aarong
2012-07-29 00:31:54
So I was given a script code for a script i'd like to use, how can I add the code to make the script if you get what I mean? Cheers
2012-07-29 00:31:54
2012-07-29 00:44:41
2012-07-29 00:45:35
2012-07-29 01:10:28
2012-07-29 01:16:57
From: aarong
program QazsAutoTyper;
{$i srl/srl.simba}
Const
Message0=('insert message here');
Begin
Repeat
Wait(1000+Random(50)); //increase number to slow down. decrease to speed up
TypeSend(message0);
Until(False)
end.
This is the code^ There isn't a username or password option? Also I want to be able to run about 5 auto typers at once so I do not want them taking over my control of mouse so I can minimise them and go on with my day :)
program QazsAutoTyper;
{$i srl/srl.simba}
Const
Wait = 1000; //increase number to slow down. decrease to speed up
Var
Messages : array of String;
Procedure DefineMessages;
begin
Messages := ['This is message 1',
'This is message 2',
'You can add more messages',
'Just by adding more lines',
'With a comma between each',
'So you wont get banned for repeating the same thing'];
end;
Begin
DefineMessages;
Repeat
Wait(Wait+Random(Wait));
TypeSend(Messages[Random(GetArrayLength(Messages))]);
Until(False)
end.
2012-07-29 02:05:27
From: putonajonny
You'll need SMART to be able to do that, you need to get the plugin files, and then Define SMART in your script
Also you are going to get banned in an instant typing the same thing over and over, try this:program QazsAutoTyper;
{$i srl/srl.simba}
Const
Wait = 1000; //increase number to slow down. decrease to speed up
Var
Messages : array of String;
Procedure DefineMessages;
begin
Messages := ['This is message 1',
'This is message 2',
'You can add more messages',
'Just by adding more lines',
'With a comma between each',
'So you wont get banned for repeating the same thing'];
end;
Begin
DefineMessages;
Repeat
Wait(Wait+Random(Wait));
TypeSend(Messages[Random(GetArrayLength(Messages))]);
Until(False)
end.
2012-07-29 02:12:17
From: putonajonny
You'll need SMART to be able to do that, you need to get the plugin files, and then Define SMART in your script
Also you are going to get banned in an instant typing the same thing over and over, try this:program QazsAutoTyper;
{$i srl/srl.simba}
Const
Wait = 1000; //increase number to slow down. decrease to speed up
Var
Messages : array of String;
Procedure DefineMessages;
begin
Messages := ['This is message 1',
'This is message 2',
'You can add more messages',
'Just by adding more lines',
'With a comma between each',
'So you wont get banned for repeating the same thing'];
end;
Begin
DefineMessages;
Repeat
Wait(Wait+Random(Wait));
TypeSend(Messages[Random(GetArrayLength(Messages))]);
Until(False)
end.
2012-07-29 02:34:28
2012-07-29 02:42:02
2012-07-29 02:49:43
2012-07-29 02:53:18
2012-07-29 02:56:02
From: aarong
No offence but that makes no sence to me (as I said before im dumb with these things) I think ill stick to powerbot lol…
Enable extensions.sex; update extensions. (View>extensions)
Restart Simba.
Update SRL, MSI, SPS, Plugins.
2012-07-29 02:57:59
2012-07-29 03:08:37
2012-07-29 03:16:40
2012-07-29 04:07:33
2012-07-29 04:10:27
2012-07-29 04:18:11
2012-07-29 04:20:49
From: aarong
LOL im a goose, But then I can't run multiple bots because the message goes wherever i click, so if I minimize the client the message will type where I clicked rather then on rs
2012-07-29 04:35:51
2012-07-29 04:41:55
From: aarong
I was told that smart would work and let me run multiple clients and each time I type it types into rs not my fb that I open
Begin
SRL_SixHourFix := True;
Smart_FixSpeed := True;
SetupSRL;
DeclarePlayers; //if you dont know how to do this, remove this, start script, when smart pop up disable it and manually log in then start script again.
LoginPlayers;
Repeat
if not LoggedIn then Terminatescript;
Wait(1000+Random(50)); //increase number to slow down. decrease to speed up
TypeSend(message0);
Until(False)
end.
2012-07-29 04:47:24
program QazsAutoTyper;
{$DEFINE SMART}
{$i srl/srl.simba}
Const
Message0=('insert messages here');
Begin
SRL_SixHourFix := True;
Smart_FixSpeed := True;
SetupSRL;
Repeat
if not LoggedIn then Terminatescript;
Wait(3000+Random(50)); //increase number to slow down. decrease to speed up
TypeSend(message0);
Until(False)
end.
2012-07-29 08:21:56
program AutoTyper;
{$DEFINE SMART}
{$i SRL/SRL.Simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Integers[0] := 1000; // How many times to repeat messages
end;
procedure SetupLogin;
begin
ClearDebug;
{$IFDEF SMART}
SRL_SixHourFix := True;
Smart_FixSpeed := True;
{$ENDIF}
SetupSRL;
DeclarePlayers;
ActivateClient;
if not LoggedIn then
LoginPlayer;
end;
procedure AutoTyper;
var
Message: String;
begin
if not LoggedIn then
TerminateScript;
case random(4) of
0: Message := 'Message 1'; // Change to your own custom messages
1: Message := 'Message 2';
2: Message := 'Message 3';
3: Message := 'Message 4';
end;
TypeSend(Message);
end;
var
i: Integer;
begin
SetupLogin;
repeat
AutoTyper;
Inc(i);
Wait(RandomRange(2500,4020));
until(i >= Players[CurrentPlayer].Integers[0]);
end.