SRL Archive - Outdated Tutorials

These are VERY small time made procedures that are brief pictures of what you should know (No need to critisize, driger :p)

WHAT SHALL BE COVERED
1. How to type humanly

begin

Okay, first off, we start with

program new;
begin
end.

Now, you've probably always wondered how to type humanly. If you haven't noticed, the sendkey procedures always type it all at once. The following lesson will teach you how to make scar type the letters slowly.

1. Okay, first, we start with making a procedure.

program new;
procedure
begn
end.

A procedure is like a subroutine. It can be called on in the main loop.
2. Next, we'll give it parameters, or constants (things that always remain the same) throughout the procedure. You have to first name the procedure. I'll name mine sen. THen, you put () after it to declare it with parameters

program new;
procedure sen();
begin
end.

Now, we'll fill in the parameter

program new;
procedure sen(s:string);
begin
end.

Then we'll put in some variables

program new;
procedure sen(s:string);
var
z:integer;
begin
end.

We'll begin with z:=1, which declares z as one.
Then we'll use the for do loop which means, for the starting value of z to the ending value,
it will do the next thing.

procedure sen(s:string);
var
z:integer;
begin
for z:=1 to length(s)do
begin
end.

As you see, the length(s) is used meaning the number of chars in the word.
So, for the first letter to the last letter it will do something.
Now, there are 2 typing procedures (actually there are more but i'm too lazy to explain them :p.)
THey are sendkeys and sendkeyssiletnt. I will use sendkeys.

procedure sen(s:string);
var
z:integer;
begin
for z:=1 to length(s)do
begin
sendkeys()
end;

There is also a function called copy which:
function copy(s: string; ifrom, icount: Longint): string; - returns part of the string (Copy('abcde',2,3) would return 'bcd'.

Taken from the SCAR guide :D
So, we want to send the #z text, send the letters one by one. so

procedure sen(s:string);
var
z:integer;
begin
for z:=1 to length(s)do
begin
sendkeys(copy(s, z, 1))
end;

Since S was delcared as the const for string in the parameters, it shall be used in copy.
The z is where to start copying, and the 1 tells it to only copy one letter.
The sendkeys then sends that one letter.
Now, we want it to wait no? Thus we put the scar script to sleep for a while.

procedure sen(s:string);
var
z:integer;
begin
for z:=1 to length(s)do
begin
sendkeys(copy(s, z, 1))
sleep()
end;

To make it less detectable, we us +random, which is a range. We aslo put a
set number so how ever small the range is, it will type at ta set speed. We do

procedure sen(s:string);
var
z:integer;
begin
for z:=1 to length(s)do
begin
sendkeys(copy(s, z, 1))
sleep(100+random(200))
end;

Of course, you can change the wait to anything you want.
Heres the finished product, all spaced.

procedure sen(s:string);
var z:integer;
begin
     for z:=1 to length(s)do
begin
    sendkeys(copy(s, z, 1))
end;
end;

we just needed one more end; in there :D.
try this script

procedure sen(s:string);
var
z:integer;
begin
for z:=1 to length(s)do
begin
sendkeys(copy(s, z, 1))
sleep(100+random(200))
end;
end;
begin
sen('sdcit rules')
end.

COMMENT: i had to make this quickly, so if you find any mistakes/ suggestions then just post them.

Thank you, this tut has helped me loads

BTW, there are no errors in the script.

thank you for helping us ungifted coders