[SRL]Born2Script's AutoTalker

[SRL] Born2Script's Autotalker (First Script)

By Born2Script

Features:
This script will auto type your message by pressing F2, F4, and F5[/LEFT]

Instructions:
Setup lines specified in the Script
Drag cross hair on Runescape
Run the Script
Message 1=F2
Message 2=F4
Message 3=F5
F12 to Stop

Version Updates:
Version 2: Removed Lag
Version 3: Added colors and effects
Version 4: Added Antiban

this is really good for ur first script, i did the same thing, to make it not lag, just make it so if no button is pressed that it eather waits or dose somthing then it wont lag

ok it still lags and this is what i did:

program Autotyper;
{.include SRL/SRL.scar}
const
Message1 =('Message Here'); //Press F2 to type this message
Message2 =('Message Here'); //F4
Message3 =('Message Here'); //F5 (F12 to Stop Typing for All!)
procedure LetsTypeIt;
begin
if(IsFKeyDown(2))then
begin
Wait(2000);
TypeSend(Message1);
end;
if(IsFKeyDown(4))then
begin
Wait(2000);
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
Wait(2000);
TypeSend(Message3);
end;
end;

begin
SetupSRL;
repeat
LetsTypeIt;
until(IsFKeyDown(12));
end.

I added the waits, but it still lags, i do it right?

Quote:

---

Originally Posted by Born2Script

ok it still lags and this is what i did:

program Autotyper;
{.include SRL/SRL.scar}
const
Message1 =('Message Here'); //Press F2 to type this message
Message2 =('Message Here'); //F4
Message3 =('Message Here'); //F5 (F12 to Stop Typing for All!)
procedure LetsTypeIt;
begin
if(IsFKeyDown(2))then
begin
Wait(2000);
TypeSend(Message1);
end;
if(IsFKeyDown(4))then
begin
Wait(2000);
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
Wait(2000);
TypeSend(Message3);
end;
end;

begin
SetupSRL;
repeat
LetsTypeIt;
until(IsFKeyDown(12));
end.

I added the waits, but it still lags, i do it right?

---

no, put the repeat back on, and make

Code:

---

procedure LetsTypeIt;
begin
if(IsFKeyDown(2))then
begin
Wait(2000);
TypeSend(Message1);
end;
if(IsFKeyDown(4))then
begin
Wait(2000);
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
Wait(2000);
TypeSend(Message3);
end;

PUT SOMTHING HERE LIKE WAIT

end;

---

here is an example:

Code:

---

procedure LetsTypeIt;
begin
if(IsFKeyDown(2))then
begin
Wait(2000);
TypeSend(Message1);
end;
if(IsFKeyDown(4))then
begin
Wait(2000);
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
Wait(2000);
TypeSend(Message3);
end;

Wait(1000+random(300));
writeln('you are not holding a button waiting till you do!');

end;

---

your putting waits in the begin if you hold a button, put them outside those.

ur not giving it anything to do if your not holding a button, so when you put that in, it will wait then repeat it, thus no freezing. do you get what im saying??

ok ty no lag now

no problem

Version 2 Added (No Lag)

why is it that i have a feeling....
born2script=born2code

Quote:

---

Originally Posted by Dangerous Garden Tools

why is it that i have a feeling....
born2script=born2code

---

Nope... born2script=tootles ;)

yup RAM is right(never even knew there was a guy named born2code)
anyway can you guys comment on my first script?

Looks very nice! Great first script!

thank you(also, anyway i can make it better?)
Version 3 has come out
Added Colors and effects

you could make it a little better, with antiban

ok i will work on that next (Im a little unsure of how i would do this)

Nice auto-talker congrats on finishing it. I'm also working on an auto talker as well right now :)

ty

Works great, I wanted to trick my friends on MSN into have a conversation with the script

glad it works for you

works well thank you now i dont have to like go around in the markets typing (:

to use antiban, just make a procedure that dose random things, like clicks on different tabs (use gametab(1-13) tabs are in order 1 is comabat 2 is stats) it could randomly move the screen. just make it do random stuff.

Quote:

---

Originally Posted by Dangerous Garden Tools

why is it that i have a feeling....
born2script=born2code

---

lol thats what i thought too :D

its either a copy or very identical script ill dig it up someone called daggers made one like that

EDIT

daggers

SCAR Code:

program TalkingDaggers;
{.include SRL/SRL.scar}
const
Message1 ='Put your text here';
Message2 ='Put your text here';
Message3 ='Put your text here';
Message4 ='Put your text here';
 
procedure TypeItAll;
begin
if(IsFKeyDown(2))then
begin
TypeSend(Message1);
end;
if(IsFKeydown(4))then
begin
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
TypeSend(Message3);
end;
if(IsFKeyDown(8))then
begin
TypeSend(Message4);
end;
end;
 
begin
repeat
TypeItAll;
until(IsFKeyDown(12))
end.

yours

SCAR Code:

program Autotyper;
{.include SRL/SRL.scar}
const
Message1 =('Message Here'); //Press F2 to type this message
Message2 =('Message Here'); //F4
Message3 =('Message Here'); //F5 (F12 to Stop Typing for All!)
procedure LetsTypeIt;
begin
if(IsFKeyDown(2))then
begin
Wait(2000);
TypeSend(Message1);
end;
if(IsFKeyDown(4))then
begin
Wait(2000);
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
Wait(2000);
TypeSend(Message3);
end;
end;

begin
SetupSRL;
repeat
LetsTypeIt;
until(IsFKeyDown(12));
end.

looks to be the procedure names editited but idk

if its not copyied nice going for your first script

k ty for advice
and i typed it myself
and the latest version is alot diff

ok i belive you as daggers was like a year old :p good work

ty