SRL Archive - First Scripts

Mager1R AutoTyper *improved*

mageroner

2008-02-28 21:01:07

This is just a minor improvment to my last autotyper getting rid of things that were un-needed. . . something did come to my attention though i was told i should use "Typesend" instead of "sendkeys" i tried this and it said unknown identifier:confused:. can someone help me with this or tell me if it is even needed?

Harry

2008-02-28 21:02:09

TypeSend is in SRL. Include SRL to your script ;)

B u r r i t o

2008-02-28 22:28:51

To add typesend put this in the line after program;

{.include SRL/SRL.scar}

That will include SRL, like TypeSend.


  program include;
 {.include SRL/SRL.scar}

Procedure send;
begin
  repeat
  TypeSend ('message here')
  wait(1000)
  until(false)
end;

begin
   send;
end.

Just something like that.

Da 0wner

2008-02-28 22:32:44

If you want to include SRL just put


{.include SRL/SRL.scar}

Right below the program name. Then it won't be a unknown idenififer.

Edit: Burrito you nubsauce you edited it :(

Also, you spaced your stuff wrong. You also forget an until


 program include;
 {.include SRL/SRL.scar}
 
procedure type;
begin
  typesend ('message here');
  wait(1000);
   
begin
repeat
   send;
until(false);
end.

You might want to make an autotalker like this.


Program AutoTalker;
{.include SRL/SRL.scar}

{ Fill in the Consts with what you want to type.
Fill in the StopKeyz with what key you want to use to stop.
F2 says msg1, F3 says msg2, F4 says msg3, F5 says msg4, F6 says msg5. } 

Const

Msg1 = '';
Msg2 = '';
Msg3 = '';
Msg4 = '';
Msg5 = '';
StopKey = 8;

Begin

Repeat

If IsFKeyDown(2) then
TypeSend(Msg1);
Wait(400 + random(250));

If IsFKeyDown(3) then
TypeSend(Msg2);
Wait(400 + random(250));

If IsFKeyDown(4) then
TypeSend(Msg3);
Wait(400 + random(250));

If IsFKeyDown(5) then
TypeSend(Msg4);
Wait(400 + random(250));

If IsFKeyDown(6) then
TypeSend(Msg5);
Wait(400 + random(250));

Until(IsFKeyDown(StopKey));

End.

B u r r i t o

2008-02-28 22:37:30

From: Da 0wner
If you want to include SRL just put


{.include SRL/SRL.scar}

Right below the program name. Then it won't be a unknown idenififer.

Edit: Burrito you nubsauce you edited it :(


Pwned!

Hehe, jkjk.







Or you could have one with different options like this:



program autotyper;
{.include SRL/SRL.scar}



const
  FirstMessage= 'Message Here';
  SecondMessage= 'Message Here';
  ThirdMessage= 'Message Here';
  MessageType= 1; // 1 is hotkeys, 2 is typesends and 3 is spam.


procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='Username';
  Players[0].Pass :='Password';
  Players[0].Nick :='Nick';
  Players[0].Active:= True;

end;

procedure Hotkeys;

begin
  if (IsFKeyDown(10))
    then TypeSend(FirstMessage)
  else
    wait(40);
  if (IsFKeyDown(11))
    then TypeSend(SecondMessage)
  else
    wait(40);
    if (IsFKeyDown(12))  then
    TypeSend(ThirdMessage)
  else
    wait(40);
  end;

procedure SendMessage;
begin
  TypeSend(FirstMessage)
  Wait(2000 + random(1000));
  
  TypeSend(SecondMessage)
  Wait(2000 + random(1000));

  TypeSend(ThirdMessage)
  Wait(2000 + random(1000));
 
end;

procedure Spam;
  begin
  Sendkeys(FirstMessage + Chr(13));
  Wait(500)
  Sendkeys(secondmessage + Chr(13));
  Wait(500)
  Sendkeys(thirdMessage + Chr(13));
  Wait(500)

end;



begin;
  ActivateClient;
repeat
  SetUpSRL;
  DeclarePlayers;
  LoginPlayer;
  if (MessageType=1)
  then
begin
  Hotkeys;
  if (MessageType=2)
  then
begin
  SendMessage;
  if (MessageType=3)
  then
begin
  Spam;
end;
end;
end;
until(false);
 end.

mageroner

2008-02-28 23:22:29

OK thanks all this helped alot i will try this again using what you all have said:)

mageroner

2008-02-28 23:31:07

From: B u r r i t o
Pwned!

Hehe, jkjk.







Or you could have one with different options like this:



program autotyper;
{.include SRL/SRL.scar}



const
  FirstMessage= 'Message Here';
  SecondMessage= 'Message Here';
  ThirdMessage= 'Message Here';
  MessageType= 1; // 1 is hotkeys, 2 is typesends and 3 is spam.


procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='Username';
  Players[0].Pass :='Password';
  Players[0].Nick :='Nick';
  Players[0].Active:= True;

end;

procedure Hotkeys;

begin
  if (IsFKeyDown(10))
    then TypeSend(FirstMessage)
  else
    wait(40);
  if (IsFKeyDown(11))
    then TypeSend(SecondMessage)
  else
    wait(40);
    if (IsFKeyDown(12))  then
    TypeSend(ThirdMessage)
  else
    wait(40);
  end;

procedure SendMessage;
begin
  TypeSend(FirstMessage)
  Wait(2000 + random(1000));
  
  TypeSend(SecondMessage)
  Wait(2000 + random(1000));

  TypeSend(ThirdMessage)
  Wait(2000 + random(1000));
 
end;

procedure Spam;
  begin
  Sendkeys(FirstMessage + Chr(13));
  Wait(500)
  Sendkeys(secondmessage + Chr(13));
  Wait(500)
  Sendkeys(thirdMessage + Chr(13));
  Wait(500)

end;



begin;
  ActivateClient;
repeat
  SetUpSRL;
  DeclarePlayers;
  LoginPlayer;
  if (MessageType=1)
  then
begin
  Hotkeys;
  if (MessageType=2)
  then
begin
  SendMessage;
  if (MessageType=3)
  then
begin
  Spam;
end;
end;
end;
until(false);
 end.
:p I think i shall try to get this one down before moving on to the other options thanks though i will keep it in mind so when i move on to other things. :)

mageroner

2008-02-28 23:42:57

From: Da 0wner
If you want to include SRL just put


{.include SRL/SRL.scar}

Right below the program name. Then it won't be a unknown idenififer.

Edit: Burrito you nubsauce you edited it :(

Also, you spaced your stuff wrong. You also forget an until


 program include;
 {.include SRL/SRL.scar}
 
procedure type;
begin
  typesend ('message here');
  wait(1000);
   
begin
repeat
   send;
until(false);
end.

You might want to make an autotalker like this.


Program AutoTalker;
{.include SRL/SRL.scar}

{ Fill in the Consts with what you want to type.
Fill in the StopKeyz with what key you want to use to stop.
F2 says msg1, F3 says msg2, F4 says msg3, F5 says msg4, F6 says msg5. } 

Const

Msg1 = '';
Msg2 = '';
Msg3 = '';
Msg4 = '';
Msg5 = '';
StopKey = 8;

Begin

Repeat

If IsFKeyDown(2) then
TypeSend(Msg1);
Wait(400 + random(250));

If IsFKeyDown(3) then
TypeSend(Msg2);
Wait(400 + random(250));

If IsFKeyDown(4) then
TypeSend(Msg3);
Wait(400 + random(250));

If IsFKeyDown(5) then
TypeSend(Msg4);
Wait(400 + random(250));

If IsFKeyDown(6) then
TypeSend(Msg5);
Wait(400 + random(250));

Until(IsFKeyDown(StopKey));

End.

After adding {.include SRL/SRL.scar} When i went to run the script a new tab came up titled "EvilBob.scar" :confused: and i got a Error message. . [Error] (8874:7): Unknown type 'TPointArrayArray' in script C:\Program Files\SCAR 3.14\includes\SRL/SRL/Core/AntiRandoms/EvilBob.scar Do you have any idea what is going on or can you give me a link that might help? I am running SCAR 3.14 i see many people using 3.12 should i get that? Sorry if i am sounding like a noob.