Cranzia
02-27-2013, 11:23 PM
I'm having trouble getting multiple accounts to run. The thing just doesn't open, except once but then the second one wouldnt type in user and pass. Here is my code -
program AutoTyperSmart;
{$DEFINE SMART}
{$i SRL\SRL.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Active := True;
end;
with Players[1] do
begin
Name := '';
Pass := '';
Nick := '';
Active := True;
end;
end;
Begin
SetupSRL
Declareplayers
LoginPlayertoLob();
SelectWorld(3);
LoginPlayer;
Activateclient
Repeat
Wait(1000+Random(500));
DoEmote(RandomRange(14,16));
TypeSendEx('Text Here',True);
DoEmote(RandomRange(14,16));
until(false)
if not (LoggedIn) then
LoginPlayer;
end.
begin
end.
I took out my details on the accounts, but what can I do to fix this? If you have can help, try PMing me.
program AutoTyperSmart;
{$DEFINE SMART}
{$i SRL\SRL.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Active := True;
end;
with Players[1] do
begin
Name := '';
Pass := '';
Nick := '';
Active := True;
end;
end;
Begin
SetupSRL
Declareplayers
LoginPlayertoLob();
SelectWorld(3);
LoginPlayer;
Activateclient
Repeat
Wait(1000+Random(500));
DoEmote(RandomRange(14,16));
TypeSendEx('Text Here',True);
DoEmote(RandomRange(14,16));
until(false)
if not (LoggedIn) then
LoginPlayer;
end.
begin
end.
I took out my details on the accounts, but what can I do to fix this? If you have can help, try PMing me.