[SRL] Autotyper

Hey all, me again, Second Autotype Script, Using the F-Keys this time! Any Comments greatly appreciated.
Dont forget to read all the Instructions!
Also, if anyone would help me with a Auto WoodCutter, would be great!
Good Luck!

Code:

///////////////////////////////////////////////////////////////////////////////
//     ____.                              __________       .__  .__          //
//    |    |____    _____   ____   ______ \______   \ ____ |  | |  |   ______//
//    |    \__  \  /     \_/ __ \ /  ___/  |    |  _// __ \|  | |  |  /  ___///
///\__|    |/ __ \|  Y Y  \  ___/ \___ \   |    |   \  ___/|  |_|  |__\___ \ //
//\________(____  /__|_|  /\___  >____  >  |______  /\___  >____/____/____  >//
//              \/      \/     \/     \/          \/     \/               \/ //
//   _____          __          __                                           //
//  /  _  \  __ ___/  |_  _____/  |_ ___.__.______   ___________             //
// /  /_\  \|  |  \   __\/  _ \   __<   |  |\____ \_/ __ \_  __ \            //
///    |    \  |  /|  | (  <_> )  |  \___  ||  |_> >  ___/|  | \/            //
//\____|__  /____/ |__|  \____/|__|  / ____||   __/ \___  >__|               //
//        \/                         \/     |__|        \/                   //
///////////////////////                                 ///////////////////////
                     //       Autotyping Using          //
                     //           F-Keyes!              //
                     //          Autologin!             //
                     //       GoodLuck People           //
                     //     Help Needed on Making       //
                     //       a Auto-woodcutter.        //
                     //            Enjoy!               //
                     /////////////////////////////////////
//Setup Line 30-37 in-between the Pink '-'.
//Setup Lines 45-48 in-between Pink '-'. Good Luck :D
//Use F9 to log out!

program AutoTyper;
{.include SRL/SRL.scar}
Const
 write1='R';// F1
 write2='U';// F2
 write3='N';// F3
 write4='E';// F4
 write5='S';// F5
 write6='C';// F6
 write7='A';// F7
 write8='P';// F8

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

 Players[0].Name:='';//Username
 Players[0].Pass:='';//Password
 Players[0].Nick:='';//3-4 letters of username
 Players[0].Active:=True;

end;

Procedure Autotalk;
begin
If(IsFKeyDown(1)=True)then
 begin
 Typesend(write1)
 end;
 
begin
If(IsFKeyDown(2)=True)Then
 begin
 Typesend(write2)
 end;

begin
If(IsFKeyDown(3)=True)Then
 begin
 Typesend(write3)
 end;
 
begin
If(IsFKeyDown(4)=True)Then
 begin
 Typesend(write4)
 end;
 
begin
If(IsFKeyDown(5)=True)Then
 begin
 Typesend(write5)
 end;

begin
If(IsFKeyDown(6)=True)Then
 begin
 Typesend(write6)
 end;

begin
If(IsFKeyDown(7)=True)Then
 begin
 Typesend(write7)
 end;
 
begin
If(IsFKeyDown(8)=True)Then
 begin
 Typesend(write8)
 end;

 
end;
end;
end;
end;
end;
end;
end;
end;

 

 begin
 SetupSRL;
 ActivateClient;
 DeclarePlayers;
 LoginPlayer;
 If (IsFkeyDown(9)=True) then
 Logout;
 If(Not(LoggedIn)) then NextPlayer(False);
 repeat
 autotalk;
 wait(100);
 Until(IsFKeyDown(9)=true)
end.

 

...Simple, but a nice first script.

BTW U dont need to put (IsFkeyDown(9)=True) etc.. Only (IsFkeyDown(9)) works too.

 

good first script, maybe you can put waits (setted by user) between each w8?

 

OK, ill see what I can do, Thanks for the Ideas

 

np, yw

 

Wow, looks like there is no interest AT ALL in this script. Ah well, looks like im not either then


Not really nice to hear, is it? So don't post that on other people's threads.

-Ashur

 

How do I put a new script into SCAR 3.11?

 

Just copy and paste it. . .

 

Gravedug.