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!
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.
