SRL Archive - First Scripts

Autotyper ( My First Script )


Hasslarn

2007-09-22 05:34:17

Here is a Autotyper
This is my first script
im werry new at scripting
test it and pm me if its good or bad

Hope you like it!

{.Script Info:
# ScriptName = Autotalker
# Author = Hasslarn
# Description = A Good autotalker
# Version = v.1
# Date = 22/9 15:31
# Comments = Updated Version!
/Script Info}


Program Autotyper;
var message: string;

Procedure setup;
begin
message:= 'message here' //Enter your message invetween the ''s
end;

Begin

MoveToTray;
ActivateClient

end.

Procedure typing;
begin
sendkeys(message + chr(13));
end;


begin
setup;
repeat
typing;
wait(2000)
until(false)
end.

I updated some stuffs like minimize scar and stuffs like that ! Enjoy!

anil

2007-09-22 05:38:54

works fine, u might wanna add something to minimize the scar window and focus on rs so it wouldn't muck up the code in the beginning by tryin to switch from scar to rs quickly

ShowerThoughts

2007-09-22 05:43:17

no comment

Program Autotyper;
var
TextMessage: string;

const
TextMessage:= 'message here' //Enter your message invetween the ''s

Procedure typing;
begin
sendkeys(TextMessage + chr(13));
end;


begin
repeat
activateclient;
wait(100);
typing;
wait(2000+random(500))
until(false)
end.

Hasslarn

2007-09-22 05:51:58

thnx im just a noob at this whats the code to minimize scar ?
i just started whit scripts

gicu200100

2007-09-22 09:52:17

My first script was similar to that…my 2nd script had 25 messages to send in all modes(modes like fash,wave…)

ShowerThoughts

2007-09-22 09:55:11

sure you didnt make it your lieing gicu and dude the code to minimize scar is not needed look at my thingy i posted use activateclient

anil

2007-09-22 21:35:21

i mite be able to find the code for u

Hasslarn

2007-09-23 07:03:43

ok plz make it for me

King of Knives

2007-09-23 07:21:56

Use SRL's Typesend instead of sendkeys

in waiting times, use +random(100)

And to minimize SCAR to tray is MoveToTray;

Also, you do not have to repeat using ActivateClient. Once in the start is enough.

-Knives

Hasslarn

2007-09-23 10:20:50

try v1

weequ

2007-10-14 02:42:03

Thank you. This is very good script

Dumpin

2007-10-14 03:01:37

OMG HERMPIE USED SENDKEYS!!! shoot him! :P

Program Autotyper;
{.include srl/srl.scar}

var
times : integer; // make this integer for let it stop after wanted types.

const
howmuch = 20; // how much times to type the text
text1 = 'cyan: buying flax!!'; // text you want to send
text2 = 'cyan: buying flax!!! -- noob'; // text 2 for make typing errors.
text3 = 'white: buying 10k flax!!! - noob'; // text 3 for typing errors.

procedure typing;
begin
case random(3) of // will choose random one of this 3 texts
0 : typesend(text1); // use typesend for not being banned!
1 : typesend(text2); //
2 : typesend(text3); // NO SENDKEYS!!!! it will ban you
end;
times := times + 1
end;

begin
SetupSRL;
FindWindowBySize(766, 504); // these to
Activateclient; // will select the client!
repeat
typing;
wait(2000 + random(500)); // use +random in your wait, is much better for antibanning
until(times = howmuch)
terminatescript;
end.

its a simple version but it works well and safe

Dumpin

2007-10-14 03:01:49

Omg I Lagged, I Double Posted!!!

I Am Sorry :(

Sir R. M8gic1an

2007-10-14 14:12:00

omg Dumpin, you forgot standards! And you double posted :P lol


Program Autotyper;
{.include srl/srl.scar}

var
times : integer; // make this integer for let it stop after wanted types.

const
howmuch = 20; // how much times to type the text
text1 = 'cyan: buying flax!!'; // text you want to send
text2 = 'cyan: buying all flax!!! '; // text 2 for make typing errors.
text3 = 'white: buying 10k flax!!!'; // text 3 for typing errors.

procedure typing;
begin
case random(3) of // will choose random one of this 3 texts
0 : typesend(text1); // use typesend for not being banned!
1 : typesend(text2); //
2 : typesend(text3); // NO SENDKEYS!!!! it will ban you
end;
times := times + 1;
end;

begin
SetupSRL;
FindWindowBySize(766, 504); // these to
Activateclient; // will select the client!
repeat
typing;
wait(2000 + random(500)); // use +random in your wait, is much better for antibanning
until(times >= howmuch)
terminatescript;
end.

irishpir8

2007-10-14 16:33:45

nice, that makes selling stuff easier

Dumpin

2007-10-16 08:38:05

ooh damn double post :P ooh and standards after case :P

omg...

2007-10-16 09:32:33

Nice one ,but it would be better if u would add a minimilizer
but it stays good :D
8\10

Zarric Hyunmin

2007-10-18 00:35:44

Hey thanks for the script it's pretty simple but it saves a merchant like myself the hasel of typing, lol

Pancakes

2007-10-18 01:07:50

Yeah as posted use typesend as opposed to sendkeys.

Also you could make it only do it when you have pressed an F-Key… look up
IsFKeyDown();
in the Scar manual (press F1).

pysco56

2007-11-03 14:00:31

nice script but there are to man of these