PDA

View Full Version : My first Autotyper!



bell1313
01-12-2007, 06:51 PM
Ok, so this is my first autotyper! Come to think of it, my first script! Fairly straight forward, its got a 100 milisecond random on each word/sentance!
Please Enjoy!
Any ideas for improvements would be great aswell!


//////////////////////////////////////////////////////
////// First autotalker! //////
////// Created by Bell1313 //////
////// Credit to Bebemycat2 //////
////// for the great tutorial! //////
////// Ilove8it aswell! //////
/////////////////////////////////////////////////////

v.0.1 - Could easily get banned
v.0.2 - Added 0.2 of a second randoms, same as above really
v.0.3 - Added the "f" keyes!!!!
More coming soon!

kyle9090
01-14-2007, 02:31 AM
Look's good, good job

Fourscape
01-14-2007, 04:45 AM
If you are using SRL and typesend, there is a random type speed, human like. And for your next version, maybe make it so once you hit a specified key, it will type the message.

Good job

the scar noob
01-14-2007, 10:50 AM
1.5 sec is a bit less for typing for example:
"red:shake:buying 3 pray pots, 1 range pot and a bow string "
Don't you think? And like Fourscape said, try to make it send when pressing for ex. F2

procedure F2Message;
begin
if (IsFKeyDown(2)) then
begin
w1;
end;
end;

with this, when you press F2, the script is going to send the 'w1' >>> your const with the message.
Good luck!

bell1313
01-14-2007, 11:13 AM
Thanks for the comments! Ill fix it up ill be back!

Fourscape
01-14-2007, 02:28 PM
Hey Ill make an auto talker just for you so you can learn from it... give me 20 minutes.

bell1313
01-14-2007, 02:33 PM
Ok, Thanks ;)

Fourscape
01-14-2007, 02:47 PM
It's not very complicated...

program testautotalker;
{.include SRL\SRL.SCAR}


//---------------------------------------------------------------//
Const
Phrase1 = 'Replace'; //This would be phrase 1. Hit F5 to say.
Phrase2 = 'Replace'; //This would be phrase 2. Hit F6 to say.
//---------------------------------------------------------------//


//---------------------------------------------------------------//

Procedure AutoType;
Begin
If (IsFKeyDown(5)=True) then
Begin
TypeSend(Phrase1)
Wait(2000+random(1000))
end;
Begin
If (IsFKeyDown(6)=True) then
Begin
TypeSend(Phrase2)
Wait(2000+Random(1000))
end;
end;
end;
//---------------------------------------------------------------//

begin
SetupSrl;
//---------------//
Repeat
AutoType; //This part will go on untill you stop script, so you can send as many messages as u want
Until(False);
//---------------//
end.

And, if you wanted to add simple colors to the text...
program testautotalker;
{.include SRL\SRL.SCAR}


//---------------------------------------------------------------//
Const
Phrase1 = 'Replace'; //This would be phrase 1. Hit F5 to say.
Phrase2 = 'Replace'; //This would be phrase 2. Hit F6 to say.
Color = 'Cyan:'; //This is the color you will use, change or leave blank.

//---------------------------------------------------------------//


//---------------------------------------------------------------//

Procedure AutoType;
Begin
If (IsFKeyDown(5)=True) then
Begin
TypeSend(Color+Phrase1)
Wait(2000+random(1000))
end;
Begin
If (IsFKeyDown(6)=True) then
Begin
TypeSend(Color+Phrase2)
Wait(2000+Random(1000))
end;
end;
end;
//---------------------------------------------------------------//

Begin
SetupSrl;
Repeat
AutoType;
Until(False);
end.

bell1313
01-14-2007, 02:57 PM
Ok, ill put this sorta thing in my script and ill put it on in a few minutes! Thanks man!

Fourscape
01-14-2007, 03:14 PM
Np. You have to start learning somewhere, might as well be from me, but remember, "I" am still learning =D

bell1313
01-14-2007, 03:42 PM
yeah, got it mate, check it out, i change the link so it should be v.0.3 :D

bell1313
01-14-2007, 04:00 PM
What sort of thing do i need to qualify as a SRL member, the guide is quite vague.

Fourscape
01-14-2007, 07:58 PM
The guide is not vague... folow it and you will be an SRL member... An auto talker won't get you in though if THAT was the root of your question.

Fourscape
01-14-2007, 08:00 PM
The guide is not vague... folow it and you will be an SRL member... An auto talker won't get you in though if THAT was the root of your question.

///Change to true below if you want it to say it only once///
begin
ActivateClient;
repeat
autotlk;
until(false)//change to true if you want it to say only one time.
end.

If you changed False to True, it wouldn't type anything. Just to clarify. And since I helped you so much im SOOOO glad you added me to credits =P

Good luck on next version. What are your plans?

bell1313
01-14-2007, 08:49 PM
auto login and then autotype, it will log out on the f9 key, it needs help, its in the help section.

Fourscape
01-15-2007, 02:20 PM
Here ya go, just read instructions in green =D

//////////////////////////////////////////////////////
////// First autotalker! //////
////// Created by Bell1313 //////
////// Credit to Bebemycat2 //////
////// for the great tutorial! //////
////// Ilove8it aswell! //////
//////////////////////////////////////////////////////
//Dont forget to drag the crosshair on at the beggining!
//Dont think it will ban! Ive used it and no bans so far!
//Read instuctions below. (in green) //
//FILL IN PLAYER FORM!!!
//F7 Logs in
//F8 logs out


program Autotalker;
{.include SRL/SRL.scar}
const
w1='';//type what ever you want it to say between the ''!!
w2='';//Same here! If you dont want it to say anything, dont put anything!
w3='';//Same here!
w4='';//same here

Procedure DeclarePlayers;
begin

HowManyPlayers := 2;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := 0;

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

end;



//////////////////////Don't Change After here//////////////////////
procedure Autotlk;
begin
If (IsFkeyDown(1)=True) then
Begin
Typesend(w1)
Wait(2000+random(1000))
end;
Begin
If(IsfKeydown(2)=true) then
begin
Typesend(w2)
Wait(2000+random(1000))
end;
Begin
If(IsfKeydown(3)=true) then
begin
Typesend(w3)
Wait(2000+random(1000))
end;
Begin
If(IsfKeydown(4)=true) then
begin
Typesend(w4)
Wait(2000+random(1000))
end;
Begin
If(IsFKeyDown(7)) then
Begin
Wait(100+random(100))
LogInPlayer;
end;
end;
Begin
If(IsFKeyDown(8)) then
Begin
Wait(100+random(100))
LogOut;
end;
end;
end;
end;
end;
end;

begin
ActivateClient;
SetupSrl;
DeclarePlayers;
repeat
autotlk;
until(false)
end.