SRL Archive - First Scripts

Skalla's Autotalker


Skalla

2007-08-05 08:34:57

Hey, i made an Autotalker as my first script (as most people do) :bart:

it took a while- i added a progress report and stuff,

well Tell me what you think of it and post progress report (lol) :bart:

I was going to add a script piece so you could edit at the message like:

Message1=Active
Message2=InActive
Message3=InActive
so it gets easier if just use like the first 3 messages instead of all 9 lol

if anyone know how to do that Please post it here, i would be really happy if someone did :bart:

First i read like alot of tutorials was like "omg not gonna make it" lol,
Then after a while i just.. Scripted lol, i just tried stuff until it worked :bart:

Anyway, tell me whats wrong with it if it is anything wrong :sasmokin:

First File is- 9 Messages (the old version) :bart:

Second file is- 4 Messages in line positions Shut down with F9 Thing :bart: OLD

Third File is- 4 Messages Random positions Shut down with F9 Thing :bart: OLD

Fourth File is the Latest Version "2.0" (Got alot of help from SirPali and N3ss3s so much <3 to them) !! try it out :bart:

Kik

2007-08-05 11:13:57

Good for a first script - Just some ideas for it;

You could add another variable for the time between messages, so people don't have to look further into your script.



I don't think Typesend needs the chr(13) - it automatically hits Enter.

Maybe add how many total messages to type and use an until…repeat loop or something
const totalmessages = 5;
var i: integer;
var i:= 0;
repeat
i:= i + 1;
typesend(message);
until(i = totalmessages)


Good luck with future scripting. I just started scripting a month or so ago, and now i'm making an east varrock miner and banker.

Skalla

2007-08-05 11:36:11

From: kikwit
Good for a first script - Just some ideas for it;

You could add another variable for the time between messages, so people don't have to look further into your script.



I don't think Typesend needs the chr(13) - it automatically hits Enter.

Maybe add how many total messages to type and use an until…repeat loop or something


Good luck with future scripting. I just started scripting a month or so ago, and now i'm making an east varrock miner and banker.


I maybe got you wrong but my script says

Message1
Message2
Message3
Message4
Message5
Message6
Message7
Message8
Message9

Then it Starts from Message 1 again and loops like that until manually turned off ( CTRL + ALT + S )


Okay, so i should

Remove the Chr(13)
and find a way to fix the time between messages variable thing :bart: Doable i guess..

I started scripting 2 days ago (friday 3rd) :bart:

SirPa

2007-08-05 13:19:11

Looks very nice for a first script. But i have one suggestion.
At the end, where you tell the script when to do what:

Begin                                               // SKALLA @ SRL FORUMS
BBQ;
Repeat
Signature; // <3
Typing;
Wait(1500+random(1000)) // how many milliseconds from msg 8 to msg 0
Until(False) // Dont touch the "+Random(1000))"
End. // THIS IS MY FIRST SCRIPT \\

in that part, remove the Signature;
Signature; is already done in the BBQ; procedure.
If it keeps repeating it everytime before it starts the Typing procedure, it will
just freak out the Debug box.

Try doing something like this

Begin
BBQ;
Repeat
Typing;
Wait(1500+random(1000))
Until (IsFKeyDown(number of F key here))
Signature;
End.

This way you can stop the script by pressing a F key (you decide which), which then shows the progress report.
Thats much more organized and better to use.

Anyway, nice first script, keep on learning, and im sure you'll be a great scripter one day :)

Skalla

2007-08-05 13:29:22

From: sirpali
Looks very nice for a first script. But i have one suggestion.
At the end, where you tell the script when to do what:

Begin                                               // SKALLA @ SRL FORUMS
BBQ;
Repeat
Signature; // <3
Typing;
Wait(1500+random(1000)) // how many milliseconds from msg 8 to msg 0
Until(False) // Dont touch the "+Random(1000))"
End. // THIS IS MY FIRST SCRIPT \\

in that part, remove the Signature;
Signature; is already done in the BBQ; procedure.
If it keeps repeating it everytime before it starts the Typing procedure, it will
just freak out the Debug box.

Try doing something like this

Begin
BBQ;
Repeat
Typing;
Wait(1500+random(1000))
Until (IsFKeyDown(number of F key here))
Signature;
End.

This way you can stop the script by pressing a F key (you decide which), which then shows the progress report.
Thats much more organized and better to use.

Anyway, nice first script, keep on learning, and im sure you'll be a great scripter one day :)


Hey thanks :)

just one problem lol

Begin                                               // SKALLA @ SRL FORUMS
BBQ;
Repeat // <3
Typing;
Wait(1500+random(1000)) // how many milliseconds from msg 8 to msg 0
Until(IsFKeyDown(9)) // Dont touch the "+Random(1000))"
Signature;
End. // THIS IS MY FIRST SCRIPT \\

It looks like that now,
But i dont really get it i press the F9 but it dosnt stop and it dosnt show how many messages written, :confused:

And i need to fix so people dont need to write in time for each message so it is jsut one scratch of script where you write in like 4 numbers and it will change all of the messages to the same amount of milliseconds. :bart:

And add so you can put ( TRUE or FALSE ) on some messages if you want to turn off some messages :confused: But ill fix it somehow :bart:

SirPa

2007-08-05 13:34:52

Hmm… I just posted that but didnt really tried it out, it worked with my autotalker anyways.
Gimme a few min and ill try to find whats wrong :)


EDIT:
Ok just tested it, and it does work, but..
It first completes the entire Typing procedure before quitting.
So it's not like it doesnt work, it just takes a while.

Also i dont think people would use all nine lines with an autotyper
Mostly they use 1-3/4 lines
So i suggest taking down a few lines, it will also make the autotalker stop faster when pressing F9
Try looking at other autotalkers to get some suggestions, like using forms and stuff.

It will take a while, but its worth it.
I also started with an autotalker just like you, kept learning, and now got an autotalker with
forms, hotkeys and autotrade.
Also learned how the same principles can be used for making a chicken killer/feather picker :D
So keep on going, can't wait seeing your next script

Glad to help, SirPali

Skalla

2007-08-05 13:44:47

I now pressed CTRL+ALT+O and it stopped maybe that is the thing that is supposed to happen? :bart:

When i changed back to False CTRL+ALT+O Didnt work for terminate script anymore so i guess that is supposed to happen >.< :bart:

But it still dont show how many Msgs sent

EDIT: I was wrong lol CTRL+ALT+O dont work anyway i was daydreaming lol :bart:

SirPa

2007-08-05 14:05:56

If u press F9 and wait till the typing is done it will show how many send in your signature

drnewheart

2007-08-06 01:09:41

It Is A Nice Script but There Are A LOT of auto talkers out there…. However I find that yours is a step above the competition.

Skalla

2007-08-06 13:27:57

It Is A Nice Script but There Are A LOT of auto talkers out there…. However I find that yours is a step above the competition.


Thanks i guess :bart:

From: sirpali
If u press F9 and wait till the typing is done it will show how many send in your signature


Ah nice :bart:

Gonna post an update soon, with

4 Messages instead of 9

The messages post at random places
Example:
Instead of this:

Message1
Message2
Message3
Message4

it post at random positions

Example:

Message3
Message1 ( Should i really use this? )
Message2
Message4

And the Terminate script with F9 Thing :bart:


More Feedback would be kool :bart:

Thanks and Thanks again for all the help :bart: <3

SirPa

2007-08-07 05:12:47

For the random possistion thing u can use something like this:


begin
case random(4) of
0: Message1;
1: Message2;
2: Message3;
3: Message4;
end;
Or something like that. It will randomly choose one of those 4 messages
I suggest looking into that, i think it is what you are looking for :)

SirPali

Skalla

2007-08-07 07:56:29

Updated Download links,

Tell me if i missed something :bart:

Goin to read some more tutorials now :bart:

SirPa

2007-08-08 05:14:53

Things you missed:
Adding wait time to the messages
Messages count ( for signature )

Added those in now, works great with the randoms :)
Also progress report works wonderfull
Oh yeah, and you had a bunch of variables which u didnt use so you dont need those, deleted those too.

Works wonderfull now :)

Added new script with wait time and progress, take a look,
Good luck on your next script

~SirPali

n3ss3s

2007-08-08 05:38:18

Okay time to separate autotalkers from the art of automatic chatting

Try this

          // SKALLA @ SRL FORUMS                        ^
// Dont forget to mark the runescape window with the Crosshair +
// SKALLA's AUTO TYPER

// When you run the script, type to the box that appears and asks
// for style, the style: 1 = keeps sending the messages in a row for
// example : buying rune scim!
// buying rune scimmy!
// and so on (ofcourse the messages you've set, not rune scims lol
// Style 2 = selects a random message from the messages you've set.
// After setting the style, it asks for the amount of messages.
// After the amount, it asks for time between messages.
// After you've set amount there comes box which asks for the messages.

// It stops when you press f2

program BBQAutotyper;
{.include SRL/SRL.scar}
var
Messages: TStringArray;
Style, Amount, Time: Integer;

procedure Signature;
begin
Cleardebug;
Writeln(' SCRIPT BY SKALLA $$$$$$$$$$$$$$$$$$$$ ');
Writeln('SSSSSSSSSSS KK KK AAAAAAA LL LL AAAAAAA $$ Messages $$ ');
Writeln('SS KK KK AA AA LL LL AA AA DO $$ Sent $$ ');
Writeln('SS KKKK AA AA LL LL AA AA NOT $$ :: $$ ');
Writeln('SSSSSSSSSSS KKK AAAAAAA LL LL AAAAAAA STEAL$$ $$ ');
Writeln(' SS KKKK AA AA LL LL AA AA $$ $$ ');
Writeln(' SS KK KK AA AA LL LL AA AA <3 $$ $$ ');
Writeln('SSSSSSSSSSS KK KK AA AA LLLLLLLL LLLLLLAA AA $$$$$$$$$$$$$$$$$$$$ ');
Writeln(' SCRIPT BY SKALLA €€€€€€€€€€€€€€€€€€€€ ');
end;

procedure ReceiveMessagesAndStuff;
var
I: Integer;
begin
Style := StrToInt(ReadLn('Style?'));
Amount := StrToInt(ReadLn('Amount of messages?'));
Time := StrToInt(ReadLn('Seconds between messages')) * 1000;
for I := 1 to Amount do
begin
SetArrayLength(Messages, I);
Messages[I -1] := ReadLn('Message '+IntToStr(I));
end;
end;

procedure BBQ;
begin
Signature;
Activateclient;
end;

procedure Send;
var
I: Integer;
begin
case Style of
1: begin
for I := 0 to GetArrayLength(Messages) -1 do
begin
TypeSend(Messages[i]);
Wait(Time + Random(500));
end;
end;
2: begin
TypeSend(Messages[0 + Random(GetArrayLength(Messages)-1)]);
end;
end;
end;

begin
SetupSRL;
BBQ;
ReceiveMessagesAndStuff;
repeat
Send;
until(IsFKeyDown(2));
end.

Skalla

2007-08-08 07:33:01

Thanks :bart:

going to fix it right now ;)

EDIT:should i Register the script at stats? :bart: , lol i took the Script SirPali Posted and like mixed in with the one i got now then i took the script N3ss3s posted and like tried to mix it in as good as possible <.< well it got kinda good :D

EDIT2: N3SS3S The Style 2 is kinda wierd :bart:

I tested it and i got
buyinh rune scimitar
rune scimmy
rune scim
rune scim
rune scim
rune scim
rune scimmy
rune scim
rune scim
rune scim
buyinh rune scimitar
rune scimmy
rune scimmy
rune scimmy

(i wrote in rune scim thing in messages myself)

but it dosnt wait i say 4 seconds delay but it jsut writes and writes no delay, and when that is fixed i think thats the final version :bart: gonna start on a Autocutter or Autominer or something like that :)

EDIT: Updated Download links that was the Final Version, Thank you all for your help Much <3 ! :bart: im gonna start on a Autocutter or Autominer or something like that now :D

Thank you all again for helping me <3<3 :D

SirPa

2007-08-08 10:25:37

Your welcome
Always glad to help ^^
Good luck on your next script!

Skalla

2007-08-08 11:58:05

should i register this at stats?