SRL Archive - OSR Intermediate Scripting Tutorials

How to create your very first script by Bebemycat2

What is this going to cover?
This tutorial will take you step by step through the process of learning how to create your very first script. I will explain every step to you and also throw in some useful scripting tips along the way.


Tutorial:

Ok to begin I will ask you to open up SCAR (http://www.dylock.net/scar/). Now all you should see is this:

program New;
begin
end.

Well I want you to space all of those out a bit like this:

program New;



begin


end. 

This will give us some space to code in. This is just the basic elements. program New; This is your programs name, Change "New" to whatever name you want your program to be. Always add a semicolon ( ; ) after the name to tell the script that that is the end of your scripts name. begin Tells the compiler that the script has just began, the coding of your script goes between "begin" and "end." end. Tells the compiler that you have ended the script, Make sure to always put a full stop. If you are making a procedure/function then you end it with a semicolon ( ; ), that will be explained later in the tutorial.

Next thing we are going to do is this:

program script;



procedure;
begin




end. 

You will notice that I have added something called a Procedure. Well a "procedure" is basically this:

From: XxKanexX
Procedures are like sections of the
script that can be called upon for many different reasons.

This procedure is where we will create the "body" or the majority of our script, from there is can be called upon later in the "main line" this I will explain more about later.

You also have to have a name for your procedure, so lets name it "Hello" and add a semi-colon after it so it looks like this:

program script;



procedure;
begin




end. 

You name the procedure so that you can "call" upon it later in the script. You can name it anything but I am going to use "Hello" for this script.

Now what we are going to do now is add somthing called a "const" or a constant. This means that this "setting" will stay the same throughout the entire script.

To make a const you simply need to do this with your script:

program script;

const

procedure hello;
begin




end.

Now we have to make something a const, so let make it this:

program script;

const
Message1='Hello world!';

procedure hello;
begin




end. 

Now you will notice that I have "Message1=" this is because with SCAR you have to always tell it what the "Message1" equals, that’s the reason for the "=". Now for the ' ' marks. These are what SCAR uses to identify when a String begins and when it ends. A string is a word / phrase. You will notice that it has a pinkish color to it, that is the "Syntax highlighting" that SCAR creates so that scripting can be much simpler.

Now that we have a "const" we need it to do something. You can find a basic list of procedures and functions in your SCAR folder called "procedureparams". It should look somthing like this:

procedure Writeln(s: string);export;
procedure Status(s: string);
function GetStatus: string;
function Readln(question: string): string;
function GetChatMsg: string;
function GetLastChatMsg: string;
……
……

and so on. Now scroll down the list until you come to a procedure called:

Writeln(s: string);

Now as I explained before a procedure is:

From: XxKanexX
Procedures are like sections of the
script that can be called upon for many different reasons.

And a string is: A string is a word / phrase.

This procedure:

procedure Writeln(s: string);

just means that the "S" is a string, so therefore that is where we would enter what we wanted to type.

So I want you to make your Script look like this now:

program script;

const
Message1='Hello world!';

procedure hello;
begin
Writeln();




End. 

You will notice that I have "Writeln();" after the begin, that is because you have to begin the script before you can do anything. :)

Also "Writeln" is a typing "command", it tells SCAR to type the keys that you specify. The Text will show up in shomthing called the "Debug" box that is this area of SCAR:


Now we will do this:

program script;

const
Message1='Hello world!';

procedure hello;
begin
Writeln(Message1);




End. 

Now normally we would have to use the ' ' identifiers around "Message1" but in this case, since it is already in the "const" there is no need to and this will tell SCAR to type what you have filled out in the "const" "Message1".

Now we have to tell SCAR that we want to end the current procedure for this we will add "end;" like so:

program script;

const
Message1='Hello world!';

procedure hello;
begin
Writeln(Message1);
end;




end. 

This is simply to tell SCAR to end the procedure, you will do the same with a function.
"End;" is different from "end." because "end." tells SCAR to end the whole script while "end;" tells it that you are done with a procedure/function.

Now we have to make SCAR actually type our "message" and use our procedure that we have just created. to do this we have to create the "main line" I mentioned before. This is done much like a procedure but has a few differences that I will explain.

So to start off your "main line" you will need to have a "begin" like so:

program script;

const
Message1='Hello world!';

procedure hello;
begin
Writeln(Message1);
end;


begin

end. 

You will notice the begin is there, this is just telling SCAR this is where your main line shall begin. Simple, no? :)

So now we are going to make SCAR repeat something. The command to make SCAR repeat is "repeat". This will go after the being in the "main line". So you should now have code that looks like this:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
Writeln(Message1);
end;


begin
repeat

end. 

This basically telling SCAR to begin the "main line" and repeat something. Now we have to tell it what it needs to repeat. For this we will take our procedures name (Hello) and add it under our repeat command. So it should look like this:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
Writeln(Message1);
end;


begin
repeat
hello;

end. 

This will tell SCAR to repeat our "Hello procedure". But we have to tell it how long it has to repeat it for, so we will need the command "until". like so:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
Writeln(Message1);
end;


begin
repeat
hello;
until(false)
end. 

Now you will notice that I have "until(false)" when I only told you to add "until". Well until needs some sort of "time marker" to tell it when to repeat until, and "(false)" tells it to repeat forever, this will make it an infinite "loop". With "until(false)" this script will repeat our procedure "Hello" forever, never stopping until the user stop SCAR manually.

Now hit: "script" —–> "Compile" and you should get this message in the "debug" box that says "Successfully compiled" this means that you coded the script right. Now to test it.

With your "crosshair"() select your debug box and hit "run script". You will notice that it keeps typing it over and over really fast. So now we need to slow it down a bit. for this we will use a procedure called "wait". Wait tells the script to wait a designated amount of miliseconds before it's next action. To add wait what we do is this:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
  wait(1000)
  Writeln(Message1);
end;


begin
 repeat
   hello;
 until(false)
end.

You will notice the "1000)" this is the amount of milliseconds you want to wait, now if you paid attention in math(s) (Depending on if your American or not you call it math or maths) you will know that 1000 milliseconds is 1 second. So we are basically saying that when SCAR reads the "main line" and does our procedure "Hello" that it should wait 1 second before it repeats. Simple, no?
Now run it.

You will see that it types at a much more controlled rate now.




The other method…..

Ok, so you know how I had:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
  wait(1000)
  Writeln(Message1);
end;


begin
 repeat
   hello;
 until(false)
end.

as our final code to creating a "Hello world"/First script, well I would like to show you another method to do this, that is just as effective.

We will take our above code and change it to this:

program script;

procedure Hello;
begin
  wait(1000)
  Writeln('Hello world!');
end;

begin
 repeat
   hello;
 until(false)
end.

You will notice that I have removed the:

const
Message1='Hello world!';

and changed:

Writeln(Message1);

to

Writeln('Hello world!');

Now as I mentioned above, the apostrophes mark the begining and end of "strings". But just to recap:

Now for the ' ' marks. These are what SCAR uses to identify when a String begins and when it ends. A string is a word / phrase. You will notice that it has a pinkish color to it, that is the "Syntax highlighting" that SCAR creates so that scripting can be much simpler.

So basicly we have removed our "const" or constant and made "Writeln" directly type our message.

It is a simple chnage and makes no difference to the performance of the script, it truly depends on your style of scripting.

Design tips:

When you want to leave notes to the user of your script like this:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
  wait(1000)
  Writeln(Message1); // this says hello
end;

begin
 repeat
  hello;
 until(false)
end.

Now you will notice that I used "//". This tells SCAR not to include what comes after the "//" in the script.
Now if you don't feel like using "//" every time you want to comment on something, then you can use " { " and " } ". examples of both.

with //:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
  wait(1000)
  Writeln(Message1); // this says hello wolrd!
end;

begin
 repeat
  hello;
 until(false)
end.

with { and }:

{ 
  This a script in scar that will say
   Hello world!
}


program script;

const
Message1='Hello world!';

procedure Hello;
begin
  wait(1000)
  Writeln(Message1);  { this says hello}
end;


begin
 repeat
  hello;
 until(false)
end.

You will notice that with { and } that you can do multiple lines where as with // you can not with out constantly typing "//" over and over.

The end.

nice thorough tut, good job!

From: weaselforce
nice thorough tut, good job!

Thank you, glad somebody liked it :)

Kane quotes, yay :D

Excellent tutorial Megan! <3

From: Bebemycat2
Thank you, glad somebody liked it :)

I still liked it even though I didn't need it :p

*Cough* +rep *Cough*

<3 Gj

Thanks Kane and IRMFP, also Kane, it wouldn't be a true tutorial without a quote from you ;)

Thanks bebe, this is a good starter. I have just decided to start making scar scripts, so hopefully you'll notice some *free* scripts coming from me in the near future.

One problem I'm having with this is the waiting time. I did wait(1000) but it has no effect, and to double check I copied and pasted your code and it still isn't waiting. It's just outputting it lightning fast, no matter how long I put the wait for. But, I've got some reading to do :)

From: jme_009
Thanks bebe, this is a good starter. I have just decided to start making scar scripts, so hopefully you'll notice some *free* scripts coming from me in the near future.

One problem I'm having with this is the waiting time. I did wait(1000) but it has no effect, and to double check I copied and pasted your code and it still isn't waiting. It's just outputting it lightning fast, no matter how long I put the wait for. But, I've got some reading to do :)

Weird, I'll run my code and see if I did somthing wrong, but try adding a higher wait time.

Edit:
Try this:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
  wait(1000)
  writeln(Message1);
end;


begin
 repeat
   hello;
 until(false)
end.

From: Bebemycat2
Weird, I'll run my code and see if I did somthing wrong, but try adding a higher wait time.

Edit:
Try this:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
  wait(1000)
  writeln(Message1);
end;


begin
 repeat
   hello;
 until(false)
end.

That version worked :)

Thanks again.

No problem at all :)

Edit: Updated tutorial :)

WoW thnx for tut man WITH this i made my first SCRIPT ever thnx .

// AUTO TALKER . \\
// ~~~~~SUB's Scripts~~~~~ \\
// ()|||Auto talker v 1.0|||() \\
//~~~~~~~~my first script ever ~~~~\\
program script;
{.include SRL\SRL.Scar}
const
Message1='hi i am subin'; //what you want to say !

procedure Hello;
begin
Wait(2000) // Plz set how long you want to wait b4 it repeat, Set in millisecond
Writeln(Message1);
end;


begin
repeat
hello;
until(false)
end.

I'm a girl :)

And your welcome, glad I can help you out :)

If any new script makers come here, I suggest you use this. It works very great. This is what got me to making good scripts.

Wow this really helped me alot, I am now eager to learn more. Thanks alot ! :D

nice guide but i dont undertsand any of it.. it maybe my english or im just too stupid :\

From: torrent
nice guide but i dont undertsand any of it.. it maybe my english or im just too stupid :\

It is fairly simple to understand, try reading it over and exploring SCAR, if you still do not understand then private message me and I will try to personalize it more to you. :)

Also try to look at some simple scripts to see how they are setup. And look in the "help" section in Scar (Hit F1 in SCAR or hit "help"—> 'Help')

Great, i'm gonna start scripting! Only one thing i'm finding hard to understand, and that's semi colons. Could you explain them in more detail? cause i don't know when to put them or not….

Basicly you put a semi colon on the end of ever line except Bolded words. :)

Example:

program Bebeclicker;


Const
X=0; {X coord}
Y=0; {Y coord}


Procedure ClickHuman(x, y : Integer; left : Boolean);
Begin
  holdmouse(x, y, left);
  wait(40 + random(50));
  releasemouse(x, y, left);
End;

Function Dist(a1, b1, a2, b2 : Integer) : Integer;
Begin
  Result := Trunc(Sqrt(Sqr(a1 - a2) + Sqr(b1 - b2)) + 0.999999);
End;


procedure MouseC(Mousex, Mousey, Click : Integer);
var
   Movex, Movey, Ax, Ay, Bx, By, Cx, Cy,
   T, tCubed, tSquared, Increase: extended;
   Con1x, Con1y, Con2x, Con2y, MinWait, MaxWait, SControl,
   EControl, Step, Tempx, Tempy, TempDistance: Integer;
begin
     GetMousePos(Tempx, Tempy);
     TempDistance:= Dist(Mousex, Mousey, Tempx, Tempy);
     MinWait:= 2;
     MaxWait:= 5;
     SControl:= TempDistance div 6;
     EControl:= TempDistance div 2;
     Step:= 7;
     If not(TempDistance = 0)Then
       Increase:= (1 div TempDistance) * Step;
     Con1x:= Tempx + Random(SControl * 2) - SControl;
     Con1y:= Tempy + Random(SControl * 2) - SControl;
     Con2x:= Mousex + Random(EControl * 2) - EControl;
     Con2y:= Mousey + Random(EControl * 2) - EControl;
     Cx:= 3 * (Con1x - Tempx);
     Bx:= 3 * (Con2x - Con1x) - Cx;
     Ax:= Mousex - Tempx - Cx - Bx;
     Cy:= 3 * (Con1y - Tempy);
     By:= 3 * (Con2y - Con1y) - Cy;
     Ay:= Mousey - Tempy - Cy - By;
     repeat
           T:= T + Increase;
           tSquared:= T * T;
           tCubed:= tSquared * T;
           Movex:= (Ax * tCubed) + (Bx * tSquared) + (Cx * t) + Tempx;
           Movey:= (Ay * tCubed) + (By * tSquared) + (Cy * t) + Tempy;
           MoveMouse(Round(Movex), Round(Movey));
           Wait(Random(MaxWait - MinWait) + MinWait);
     until(T >= 1)or
     (Movex = Mousex)and(Movey = Mousey);
     if (Movex <> Mousex) or (Movey <> Mousey) then
        MoveMouseSmooth(Mousex, Mousey);
     Wait(40 + Random(20));
    Case click Of
      1 : Clickhuman(Mousex, Mousey, true);
      2 : Clickhuman(Mousex, Mousey, false);
    End;
end;


Procedure Clicky;
begin
  MouseC(X+random(40),Y+random(40),0);
  wait(70+random(40));
  MouseC(X,Y,1);
end;

begin
 repeat
  Clicky;
 until(false)
end.

You will notice that I have a ";" on the end of everythingexcept things like "until(false)", "Begin"… etc.

Although you will notice that I have a semi-colon on the end of my "end" except the very last on, this is basicly telling SCAR that you are ending a procedure/function insteed of the whole script.
The only "end" that you will not have a semi-colon on or a period is when you are using an "else" statment like so:

procedure TerminateIfLost;
begin
  if(LoggedIn)then
    begin
      if(not(FindMMColor(x,y,BBankColor)))then
        begin
          IAmLostCount:=IAmLostCount+1;
          if(IAmLostCount>10)then
            begin
              WriteLn('Lost!!!');
              TerminateScript;
            end;
        [B]end else[/B]
        IAmLostCount:=0;
    end;
end;

Thise will basicly tell the the script that if the conditions set my you/script maker are meet then the procedure/function will end, while if the conditions are not meet then it will do what the allternate conditions set by you/script maker are.

Another thing is that see where I have

Const
X=0; {X coord}
Y=0; {Y coord}

well the semi-colon on the end of those is to tell the script where to end the "const" or constants.

It is a simple idea really, practice with it and you will get the hand of it.

ok thanks!

Thanks a ton! This will get me on my way to hopefully giving out a little to this community! :D

From: Usa
Thanks a ton! This will get me on my way to hopefully giving out a little to this community! :D

No problem, I find that the hardest part of learning a new language is learning the basics, cause once you understand those then you can learn everything else with simplicity.

very good tutorial :D

Thx, very useful tutorial. It refreshed my little SCAR-knowledge. :-)

From: db_cheater
Wow this really helped me alot, I am now eager to learn more. Thanks alot ! :D

WOW i actually get your guide, i have looked at maybe 20 other's and they had no help to me, i get it YAYAYAYAYAY thank you so much

Edit: AM i the only one who voted and gave this thread a 5/5 stars?

Well this is a "make your very first script thread" ;)

Yea nice Bebe, many good comments from starters for you. :)

Updated a bit, added a few things. Have fun learning :)

hay guys just so you know i,am starting to wright scrips in scar and going to sell them

i have made and auto typer thats types hello world 1000000 times over i will be selling it for 10 mil rs gp

lol

nice tut dude i loved it

Nice begineer tutorial for me. It helped alot with the basics. Just one question, after this tutorial am I supposed to be able to code like:

From: Bebemycat2

program Bebeclicker;


Const
X=0; {X coord}
Y=0; {Y coord}


Procedure ClickHuman(x, y : Integer; left : Boolean);
Begin
  holdmouse(x, y, left);
  wait(40 + random(50));
  releasemouse(x, y, left);
End;

Function Dist(a1, b1, a2, b2 : Integer) : Integer;
Begin
  Result := Trunc(Sqrt(Sqr(a1 - a2) + Sqr(b1 - b2)) + 0.999999);
End;


procedure MouseC(Mousex, Mousey, Click : Integer);
var
   Movex, Movey, Ax, Ay, Bx, By, Cx, Cy,
   T, tCubed, tSquared, Increase: extended;
   Con1x, Con1y, Con2x, Con2y, MinWait, MaxWait, SControl,
   EControl, Step, Tempx, Tempy, TempDistance: Integer;
begin
     GetMousePos(Tempx, Tempy);
     TempDistance:= Dist(Mousex, Mousey, Tempx, Tempy);
     MinWait:= 2;
     MaxWait:= 5;
     SControl:= TempDistance div 6;
     EControl:= TempDistance div 2;
     Step:= 7;
     If not(TempDistance = 0)Then
       Increase:= (1 div TempDistance) * Step;
     Con1x:= Tempx + Random(SControl * 2) - SControl;
     Con1y:= Tempy + Random(SControl * 2) - SControl;
     Con2x:= Mousex + Random(EControl * 2) - EControl;
     Con2y:= Mousey + Random(EControl * 2) - EControl;
     Cx:= 3 * (Con1x - Tempx);
     Bx:= 3 * (Con2x - Con1x) - Cx;
     Ax:= Mousex - Tempx - Cx - Bx;
     Cy:= 3 * (Con1y - Tempy);
     By:= 3 * (Con2y - Con1y) - Cy;
     Ay:= Mousey - Tempy - Cy - By;
     repeat
           T:= T + Increase;
           tSquared:= T * T;
           tCubed:= tSquared * T;
           Movex:= (Ax * tCubed) + (Bx * tSquared) + (Cx * t) + Tempx;
           Movey:= (Ay * tCubed) + (By * tSquared) + (Cy * t) + Tempy;
           MoveMouse(Round(Movex), Round(Movey));
           Wait(Random(MaxWait - MinWait) + MinWait);
     until(T >= 1)or
     (Movex = Mousex)and(Movey = Mousey);
     if (Movex <> Mousex) or (Movey <> Mousey) then
        MoveMouseSmooth(Mousex, Mousey);
     Wait(40 + Random(20));
    Case click Of
      1 : Clickhuman(Mousex, Mousey, true);
      2 : Clickhuman(Mousex, Mousey, false);
    End;
end;


Procedure Clicky;
begin
  MouseC(X+random(40),Y+random(40),0);
  wait(70+random(40));
  MouseC(X,Y,1);
end;

begin
 repeat
  Clicky;
 until(false)
end.

:eek:

Thanks for making this tutorial. It really helped me understand how scripts and scripting work. I'm looking forward to the next one.

I have another tutorial almost finished, but I am busy lately and havn't been able to put the final touches on it.

Glad you learned something from it. :)

Thanks for posting this, its helped

Thank you! I made my first working script :biggrin:

{
In_Jeopardy's Autospammer!!
}

program Autotalker;

const
Spam='lololol';

procedure Autospam;
begin
 wait(5000)
 Writeln(Spam);
end;

begin
 repeat
 Autospam;
 until(false)
end.

this helps me alot :)

scar reminds me of delphi but with delphi there was an interface and vars, tho the rest look the same. can't wait till the tut continues. I wanna learn how to script for runescape.

From: lizhang
scar reminds me of delphi but with delphi there was an interface and vars, tho the rest look the same. can't wait till the tut continues. I wanna learn how to script for runescape.

SCAR was made in Delphi ;)

w00t! I worked! Thanks :-D Makes me wanna try my hand at somethin' more complex =)

try this: (my first script)

program script;

procedure Hello;
begin
  wait(70)
   writeln('H');
    Wait (70)
     Writeln('He')
      wait(70)
       writeln('Hel');
        wait(70)
         writeln('Hell');
          wait(70)
           writeln('Hello');
            wait(70)
             writeln('Hello ');
              wait(70)
               writeln('Hello w');
                wait(70)
                 writeln('Hello wo');
                  wait(70)
                   writeln('Hello wor');
                    wait(70)
                     writeln('Hello worl');
                      wait(70)
                       writeln('Hello world');
                        wait(70)
                         writeln('Hello world!');
end;


begin
 repeat
   hello;
 until(false)
end.

you are my hero!!! (A) :P

very helpful guide! :D

Very nice i enjoyed working through this.

wstephen4, lol you'll have to learn more, but you'll get there.

Invisable, use standards.

program script;

procedure Hello;
begin
  wait(70)
  writeln('H');
  Wait (70)
  Writeln('He')
  wait(70)
  writeln('Hel');
  wait(70)
  writeln('Hell');
  wait(70)
  writeln('Hello');
  wait(70)
  writeln('Hello ');
  wait(70)
  writeln('Hello w');
  wait(70)
  writeln('Hello wo');
  wait(70)
  writeln('Hello wor');
  wait(70)
  writeln('Hello worl');
  wait(70)
  writeln('Hello world');
  wait(70)
  writeln('Hello world!');
end;


begin
 repeat
   hello;
 until(false)
end.

Also you might wana try somthing like this:

program script;

procedure Hello;
begin
  wait(70)
  cleardebug;
  writeln('H');
  Wait (70)
  cleardebug;
  Writeln('He')
  wait(70)
  cleardebug;
  writeln('Hel');
  wait(70)
  cleardebug;
  writeln('Hell');
  wait(70)
  cleardebug;
  writeln('Hello');
  wait(70)
  cleardebug;
  writeln('Hello ');
  wait(70)
  cleardebug;
  writeln('Hello w');
  wait(70)
  cleardebug;
  writeln('Hello wo');
  wait(70)
  cleardebug;
  writeln('Hello wor');
  wait(70)
  cleardebug;
  writeln('Hello worl');
  wait(70)
  cleardebug;
  writeln('Hello world');
  wait(70)
  cleardebug;
  writeln('Hello world!');
end;


begin
 repeat
   hello;
 until(false)
end.

I've just read the first tut;

Thanks… At first I thought it was WriteIn not Writeln…had to spend about 5 minutes on

that one :O

I've seen plenty of hello world scripts, but none that was as explained as yours :) Thanks

for letting me make a script that I actually understand fully :D

this is one of the best tuts ve seen kinda confusing but i got it to work im gonna try to figure out how to make like auto fighters and stuff now tho.. if i can so i can apply as a srl member when i have a few more posts

sweet i got it to work thanks man im gonna start making some scripts..this is awesome :)

ahh! i just figured it out, (im such a n00b at this lol)

i had this:

program Hello;

const
Message1='Hello world!;

there was my mistake..

it was meant to be like this=

program Hello;

const
Message1='Hello world';

thanks guys, great tutorial!

this is an excellent beginners tutorial, im a complete n00b with no programming skillz what so ever and even i can understand it!

much appreciated!

PS really looking forward to the next tut guide bebe!! i am very keen to learn more

its no autoer, but its a start s'pose

program tryit;

const
Message1='motherloverr';
procedure tryit;
begin
wait(1500)
writeln(message1);
end;

begin
repeat
tryit;
until(true)
end.

Thx great tutorial.. I have one question.. with srl whts the difference.. I mean if i tell it to include srl does that mean I can use procedures or functions from the the file I uploaded. Also whats the difference between procedure and function… ANd wht tutorial would you recomend next for me…. And also :P If any1 here wants to help me out can they lemme noe and I pm them my email addresse, because I tried making scar scripts long time ago but no one really helped. It was on the forum rs-resources. I also tried making scripts for aryan, and when I finally got started, aryan was dead…

And 1 last thing My past scripting experience is scripting in the program Turing (for school) I think turing is like java though, but you think it 'll be any help?.. And where can i get list of commands for scar…

hey this was good

This tutorial makes everything seem so easy…

Thanks for the tut, solid start and nothin too difficult. I wanna hit up a harder tut now…

Thanks for this great tutorial! Now I can't feel like less of a common leech and try to start contributing!

twas really good

Thanks for the great tut, it seems like java only quite a lot simpler :)

I'll try to make some scripts… lol

Thanks, i just made my first script! But i have a question; what do i need to add when i want to add more messages? Just copy the procedures, but add Message2, etc. ?

example:
Hello world!
Are you oke?
I am fine..

and repeat it

I think i have it.

program script;

const
Message1='Hello People!';
Message2='How are you people?';

procedure hello;
begin
  wait(1000)
  Writeln(Message1);
end;

procedure okey;
begin
  wait(1000)
  Writeln(Message2);
end;


begin
repeat
hello;
okey;
until(false)
end.

But, when i try to name my script My first script, there comes this error:

Line 1: [Error] (1:12): Semicolon (';') expected in script 

What am i doing wrong?

Are you going to make also a TUT on the other things that are in scar? example the variables , etc.

I love the way how you make TUTs!

When you are making an auto-talker for example, and you want to preset messages for people to fill in. You set 5 preset messages, but the one who uses it ony needs 3 of them. If he doesn't fill in any text at the 2 last one, does there happen soething then? Or is there a special code for thos?

From: Mod Mopar
Are you going to make also a TUT on the other things that are in scar? example the variables , etc.

I love the way how you make TUTs!

Thank you.

From: Mod Mopar
When you are making an auto-talker for example, and you want to preset messages for people to fill in. You set 5 preset messages, but the one who uses it ony needs 3 of them. If he doesn't fill in any text at the 2 last one, does there happen soething then? Or is there a special code for thos?

Not quite sure what you are saying….

I think you mean this:

If you have a script that has 5 preset constants (const) for a string. If the user of the script only need to fill in 3 of those constants, what do you do?

Well it's simple, say you have the code like this:

program New;

const
 text1='';
 text2='';
 text3='';
 text4='';
 text5='';
 
procedure Talk;
begin
  writeln(Text1); 
  writeln(Text2);
  writeln(Text3);
  writeln(Text4);
  writeln(Text5);
end;

begin
 Talk;
end.

Your want it so that if any of the constants are not filled in, then the script will not outpt the result.

This is done here:

program New;

const
 text1='A';
 text2='B';
 text3='C';
 text4='';
 text5='';
 
procedure Talk;
begin
 if(not(text1=''))then
  writeln(Text1);
 if(not(text2=''))then
  writeln(Text2);
 if(not(text3=''))then
  writeln(Text3);
 if(not(text4=''))then
  writeln(Text4);
 if(not(text5=''))then
  writeln(Text5);
end;

begin
 Talk;
end.

This is using the "if","not" and "then" statements. :)

Basically it is looking to see if the constants are empty and if they arn't it will disply then, otherwise it won't.

well my auto talker talk in the scar window not in the rs window is it suppose to do that?

From: Bebemycat2
Thank you.



Not quite sure what you are saying….

I think you mean this:

If you have a script that has 5 preset constants (const) for a string. If the user of the script only need to fill in 3 of those constants, what do you do?

Well it's simple, say you have the code like this:

program New;

const
 text1='';
 text2='';
 text3='';
 text4='';
 text5='';
 
procedure Talk;
begin
  writeln(Text1); 
  writeln(Text2);
  writeln(Text3);
  writeln(Text4);
  writeln(Text5);
end;

begin
 Talk;
end.

Your want it so that if any of the constants are not filled in, then the script will not outpt the result.

This is done here:

program New;

const
 text1='A';
 text2='B';
 text3='C';
 text4='';
 text5='';
 
procedure Talk;
begin
 if(not(text1=''))then
  writeln(Text1);
 if(not(text2=''))then
  writeln(Text2);
 if(not(text3=''))then
  writeln(Text3);
 if(not(text4=''))then
  writeln(Text4);
 if(not(text5=''))then
  writeln(Text5);
end;

begin
 Talk;
end.

This is using the "if","not" and "then" statements. :)

Basically it is looking to see if the constants are empty and if they arn't it will disply then, otherwise it won't.

Thank you so much! The way you know where i am talking about, and how you explain in a example-script .. I love it :D Planning to make a TUT for intermediate's ? :)

P.S. When i wanna add the " wait(500) " , will i add it like this? :

  if(not(Automessage1=''))then
  wait(500)
  Writeln(AutoMessage1);

It worked :p :D

My progress report :

Successfully compiled
1
2
3
4
5
6









Successfully executed

This is my script now:

///////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////
////////                                               ////////
////////               AutoTalker By Mod Mopar         ////////
////////                                               ////////
////////                     Version 1.1               ////////
////////                                               ////////
////////                  First Script Ever!           ////////
////////                                               ////////
///////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////

program Autotalker;
{.include SRL/SRL.Scar}

const
AutoMessage1='1';                 // Typ here what your character needs to say \\
AutoMessage2='2';                 // If you don't need the message, don't typ anything in it. \\
AutoMessage3='3';
AutoMessage4='4';
AutoMessage5='5';
AutoMessage6='6';
AutoMessage7='';
AutoMessage8='';
AutoMessage9='';
AutoMessage10='';
AutoMessage11='';
AutoMessage12='';
AutoMessage13='';
AutoMessage14='';
AutoMessage15='';


procedure AutoTalking;
begin
  if(not(Automessage1=''))then
  wait(500)
  TypeSend(AutoMessage1);
  if(not(Automessage2=''))then
  wait(500)
  TypeSend(AutoMessage2);
  if(not(Automessage3=''))then
  wait(500)
  TypeSend(AutoMessage3);
  if(not(Automessage4=''))then
  wait(500)
  TypeSend(AutoMessage4);
  if(not(Automessage5=''))then
  wait(500)
  TypeSend(AutoMessage5);
  if(not(Automessage6=''))then
  wait(500)
  TypeSend(AutoMessage6);
  if(not(Automessage7=''))then
  wait(500)
  TypeSend(AutoMessage7);
  if(not(Automessage8=''))then
  wait(500)
  TypeSend(AutoMessage8);
  if(not(Automessage9=''))then
  wait(500)
  TypeSend(AutoMessage9);
  if(not(Automessage10=''))then
  wait(500)
  TypeSend(AutoMessage10);
  if(not(Automessage11=''))then
  wait(500)
  TypeSend(AutoMessage11);
  if(not(Automessage12=''))then
  wait(500)
  TypeSend(AutoMessage12);
  if(not(Automessage13=''))then
  wait(500)
  TypeSend(AutoMessage13);
  if(not(Automessage14=''))then
  wait(500)
  TypeSend(AutoMessage14);
  if(not(Automessage15=''))then
  wait(500)
  TypeSend(AutoMessage15);
end;

begin
ActivateClient;
repeat
AutoTalking;
until(true)
end.

:) arr0w told me about the ActivateClient thingie :p

Nice script, I just started SCAR today, seems pretty cool.

I have just learned how to work with the F-Keys, and figured out how to make mistakes (manualy set)

but I am not going to post that script here, because its not finished, some things works, other don't.

Glad I can help. :)

Hi, just wanted to say that the tut is very informative and it has helped me with understanding the concepts. with this new found knowledge, i feel more comfortable to being able to write my own scripts.

Thanks again
:D

quite confuzing? i dont understand i want to learn but really hard to understand if you will like to teach me please talk on msn

[email]d3st1ny_of_pur3s@hotmail.com[/email]

I like the guide. Showed me what I should expect. Looks simpler now.

Thanks for this tutorial.
It is really good

very complete script nice. :D

NICE TUT!!!!

wow can u do more? plz?

wow, i understanded it!! (the first one that i was able to follow)

well, wish i could learn more though, could u make another script in this format but with more stuff?

Man thanks!
Even I understood it!

omg thx so much ^^

Does this auto type for runescape? If so,can someone help me because mine don't type anything in the rs window.

No, this types in the debug screen on SCAR.

To type somthing in the RS window, I recommend typesend (SRL procedure)

Example:

program Typer;
{.include SRL/SRL.scar} //Loads SRL so SCAR can use it
 
const
 Message1 = 'Hello'; // the message you want to type
 WaitTime = 1000; //the time in milliseconds to wait before typing again
                  // 1000 = 1 second
 
 
procedure TypeTheWords;
begin
 wait(WaitTime);
 TypeSend(Message1);
end;
 
 
 
begin
  SetupSRL;
 repeat
  TypeTheWords;
 until(false)
end.

From: Bebemycat2
No, this types in the debug screen on SCAR.

To type somthing in the RS window, I recommend typesend (SRL procedure)

Example:

program Typer;
{.include SRL/SRL.scar} //Loads SRL so SCAR can use it
 
const
 Message1 = 'Hello'; // the message you want to type
 WaitTime = 1000; //the time in milliseconds to wait before typing again
                  // 1000 = 1 second
 
 
procedure TypeTheWords;
begin
 wait(WaitTime);
 TypeSend(Message1);
end;
 
 
 
begin
  SetupSRL;
 repeat
  TypeTheWords;
 until(false)
end.

Alright thanks +rep. That's what it was doing on mine wasn't sure if I did something wrong or not.

Very nice tutorial for a starter like me, thank you.

nice tut bebe got me into the scrippting thing.. i started yesturday adn u made things a lot clearer with the help of other tuts .. nice one!!!

bebe thanx i made my first script coz of your help!!!!
/////////////////////////////////////////////////////////////
// _______ _______ ______ _________ _______ _______ //
// / ___ )( ___ )( __ \ \__ __/( ___ )( ____ \ //
// \/ ) || ( ) || ( \ ) ) ( | ( ) || ( \/ //
// / )| | | || | ) | | | | (___) || | //
// / / | | | || | | | | | | ___ || | //
// / / | | | || | ) | | | | ( ) || | //
// / (_/\| (___) || (__/ )___) (___| ) ( || (____/\ //
// (_______/(_______)(______/ \_______/|/ \|(_______/ //
//Scripts Presents Autotalker PRO //
////////////////////////////////////////////////////////////

Program AutotalkerPro;

const
message1=('Plz Type Your Message Here')

procedure YourMessage;
begin
Wait(1000)
writeln:('Your message here') //This says what you Write On Line16
END;

begin
repeat
Yourmessage;
until(faslse)
end.

Man this is wkd! Im really enjoying scripting because of this. Simple but cool! :D

my first autotyper, didnt take long, the tutorial rocks! Thankyou, i feel a sense of achivemnt lol!

////////////////////////////////////////////////////////
//////                                                      //////
//////                                                      //////
//////           My first Autotyper                 //////
//////                                                     //////
//////                                                     //////
//////////////////////////////////////////////////////



program New;

const
w1='Hello world';
w2='Hello my freinds';
w3='Hello EVERYONE!!!';
w4='I wish I new how to put this on runescape aswell';

procedure Hello;
begin
 wait(1500)
 writeln(w1);
 wait(1500)
 writeln(w2);
 wait(1500)
 writeln(w3);
 wait(1500)
 writeln(w4);
 end;
 
 
 
 begin
 repeat
 hello;
 until(false)




end.

How do i put this on Runescape?

Thanks! I can't wait to get started scripting for real.

I agree storm, u got MSN or something, so we can tell each other about new script ideas. I still havent made anymore progress since my first script. Would be good to have someone to tlk about it. :D

thanks man that helped me a lot

Cool! I just made my first script! :D
But how can i make it talk in RuneScape? I have dragged the haircross over the RuneScape window, but it still types the message in SCAR..

From: Rambozin
Cool! I just made my first script! :D
But how can i make it talk in RuneScape? I have dragged the haircross over the RuneScape window, but it still types the message in SCAR..

to put it on runescape u need to put in activateclient
eg:

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 Autotlk;
begin
 wait(1500+random(100))
 TypeSend(w1);
 wait(1500+random(100))
 TypeSend(w2);
 wait(1500+random(100))
 TypeSend(w3);
 wait(1500+random(100))
 TypeSend(w4);
 end;

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

Thank you!, that was great, haha now i can do it without having to reread your tut. thanks again.

wow i maked my first littl script 2 ^^ :D great tut :)

thnx this was the second guide i read, going to more advanced guides now =p

Wow this tut is awesome! I really wanted to make myself an autominer and this really helped my basic knowledge of using scar tyvm :P

Thanks man It helped me but im the biggest noob ever im too lazy to read which is my fault so too bad for me lol.. =(

Excellent Tutorial! I'm not much of a SCAR coder but i do know a few things.

Instead of using:

{This script does blah blah blah}

program yourscript;

procedure type;

You can use (* and *) to comment out things.

(* This Scirpt does blah blah and blah *)

program yourscript;

procedure type;

:D

Hey thnx this tut. really helped me out im trying to make a yew cutter/banker and i need some help and how to put it on RS. So if u have a chance plz help

{
~~~~~~~Fetheroth~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~~
~~~~~~~~Presents~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~

~ Fetheroths Edgeville Yew Cutter!
~ Edited by me, Fetheroth.
~ Credits to all the SRL team for the wonderful SRL include.
~ Setup line 44,45 and 50-95


Instructions:
Setup Account
Stand in Edgeville bank in the southmost booth
Watch it once to make sure that all is well
Enjoy!

Update Info:
Alpha: Just cut and bank
Beta: Added Login
V 1.0: Added Antirandoms, Antiban, and fixed bugs
V 1.1: Took away WelcomeScreen include
V 1.2: Added Progress Report, changed some procedures
V 1.3: Fixed Login bug
V 1.4: Added Multiple players
}


program _Fetheroths_Edgeville_Yew_Cutter;

{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
{.include SRL\SRL\extended\xAntiBan.scar}

var
Trips:integer;


///////Set Wieldaxe! Don't Touch Version #//////
const //
WieldAxe = 2; //1 for wielding, 2 for no //
Tripstodo = 25; // # of trips for each player //
VersionNumber = ' 1.4'; //Don't Touch! //
/////////////////////////////
Procedure DeclarePlayers; //
begin //
HowManyPlayers :=6; // Set Number of Players here. //
NumberOfPlayers(HowManyPlayers); // Leave alone //
CurrentPlayer:=0; // The blue # of the player wanted //
//
Players[0].Name :=''; // Your RS Name //
Players[0].Pass :=''; // Your RS Password //
Players[0].Nick :=''; // The first 3 lowercase letters of your name //
// eg. If your name is Zezima, put in ezi. //
Players[0].Loc :='Loc1'; //Not needed //
Players[0].Skill:=''; //Not needed //
Players[0].Active:=True; //Leave at true //
//
Players[1].Name :=''; //
Players[1].Pass :=''; //
Players[1].Nick :=''; //
Players[1].Loc :='Loc1'; //
Players[1].Skill:=''; //
Players[1].Active:=True; //
//
Players[2].Name :=''; //
Players[2].Pass :=''; //
Players[2].Nick :=''; //
Players[2].Loc :='Loc1'; //
Players[2].Skill:=''; //
Players[2].Active:=True; //
//
Players[3].Name :=''; //
Players[3].Pass :=''; //
Players[3].Nick :=''; //
Players[3].Loc :='Loc1'; //
Players[3].Skill:=''; //
Players[3].Active:=True; //
//
Players[4].Name :=''; //
Players[4].Pass :=''; //
Players[4].Nick :=''; //
Players[4].Loc :='Loc1'; //
Players[4].Skill:=''; //
Players[4].Active:=True; //
//
Players[5].Name :=''; //
Players[5].Pass :=''; //
Players[5].Nick :=''; //
Players[5].Loc :='Loc1'; //
Players[5].Skill:=''; //
Players[5].Active:=True; //
//
//
//
writeln(inttostr(HowManyPlayers)+'1'); //
///////////////////////////////////////////////////////////////////////////
end;

function IsWelcomeScreen: Boolean;
begin
if(GetColor(271, 292) = 8356779)and
(GetColor(499, 292) = 8356779)and
(GetColor(271, 381) = 8356779)then
Result := True;
end;

procedure WelcomeScreen;
begin
if(not(IsWelcomeScreen))then Exit;
MouseBox(275, 296, 495, 377, 1);
end;
//———————————————–//

Procedure Setup;
begin
SetupSRL;
ActivateClient;
ChatsOff;
If (LoggedIn) then
begin
HighestAngle;
MakeCompass('n');
end;
If (not(LoggedIn)) then
LoginPlayer;
WelcomeScreen;
HighestAngle;
MakeCompass('n');
end;
//———————————————–//

Procedure ProgReport;
begin
ClearReport;
Writeln('===============================')
Writeln('= You Are Using =');
Writeln('= =');
Writeln('= The Fetheroth Edgeville =');
Writeln('= =');
Writeln('= YEW CUTTER! =');
Writeln('= =');
WriteLn('= Version ' + VersionNumber + ' =');
Writeln('= =');
Writeln('= ' + inttostr(Trips) + ' Trips done =');
Writeln('= =');
Writeln('= Happy Cutting =');
Writeln('===============================');
end;
//———————————————–//

Procedure WalktoTrees;
begin
If (FindSymbol(x,y, 'rare trees')) then
begin
SetRun(true)
Mouse(x,y,1,1,true)
wait(10000)
end
If (not(FindSymbol(x,y, 'rare trees')))then
begin
SetRun(true)
Mouse(747,280,1,1,true)
wait(5000)
If (FindSymbol(x,y, 'rare trees')) then
begin
Mouse(x,y,1,1,true)
wait(10000)
end
end
end;

//———————————————–//

Procedure ChoptheTrees;
begin
repeat
if (FindMSColor(x,y,3438704))or
(FindMSColor(x,y,3887184))or
(FindMSColor(x,y,1925200))then
MMouse(x,y,1,1)
If IsUpText('Chop') then
Mouse(x,y,1,1,true)
wait(5000+Random(5000)+Random(5000)+Random(5000))
until (invfull = true)
if (invfull = true) then
Trips := Trips + 1;
end;
//———————————————–//

Procedure WalktoBank;
begin
If (FindSymbol(x,y,'4047310'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
end
If (not(FindSymbol(x,y,'4047310')))then
begin
Mouse(789,173,1,1,true)
wait(10000);
If (FindSymbol(x,y,'4047310'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
end
end
end;
//———————————————–//

Procedure BanktheLogs;
begin
OpenBank;
If WieldAxe = 1 then
begin
DepositAll;
end
If WieldAxe = 2 then
begin
Deposit(2,27,2);
end
end;
//———————————————–//

Procedure AntiRandomsandAntiBan;
begin
SRLRandomsReport;
FindNormalRandoms;
FindAxeHeadColor;
AttachHead;
DontBanMe(2);
If (FindEnt (3438704)) then
begin
Logout;
Wait(30000)
LoginPlayer;
end
end;
//———————————————–//

begin
DeclarePlayers;
Setup;
repeat
repeat
ProgReport;
WalktoTrees;
ChoptheTrees;
WalktoBank;
BanktheLogs;
AntiRandomsandAntiBan;
until (trips = Tripstodo);
If (trips = Tripstodo) then
Logout;
Nextplayer(true);
until (false);
end.


ty and plz help.

Kind of looks like Skys Shadow yew cutter to me.

{
 ~~~~~~~~~~Skys~~~~~~~~~~
 ~~~~~~~~~~~§§~~~~~~~~~~~
 ~~~~~~~~~Shadow~~~~~~~~~
 ~~~~~~~~~~~§§~~~~~~~~~~~
 ~~~~~~~~Presents~~~~~~~~
 ~~~~~~~~~~~~~~~~~~~~~~~~

~ The Skys Shadow Edgeville Yew Cutter!
~ Made by me, Skys Shadow.
~ Credits to all the SRL team for the wonderful SRL include.
~ Setup line 44,45 and 50-95


Instructions:
 Setup Account
 Stand in Edgeville bank in the southmost booth
 Watch it once to make sure that all is well
 Enjoy!

Update Info:
Alpha: Just cut and bank
Beta: Added Login
V 1.0: Added Antirandoms, Antiban, and fixed bugs
V 1.1: Took away WelcomeScreen include
V 1.2: Added Progress Report, changed some procedures
V 1.3: Fixed Login bug
V 1.4: Added Multiple players

You have to have SCAR 2.03 downloaded and the latest SRL release. Besure to drag the crosshair onto your runescape client. :cool:

Thanks for the tutorial, I had experience with SCAR long ago, but all my experience has been lost, I'm going to be using this tutorial along with some readme's to learn SRL and Scar ;)

@ Fetheroth: Lol why u copy other peoples scripts? U only get bad rep. Instead of that, try learn to script by yourself.

Good job guys never scripted before and it helped alot!

uber poonage = rl friend :p

OMFG THANKS MAN I READ ALL THE POST HERE AND I MADE THIS TO PISS PEOPLE OFF!!

{This Is A Script Created To Piss People Off, Just Drag The Cross Hair
to any typeable place, like an IM i use it for msn.}
//Noni//

program Autotalker;
{.include SRL/SRL.scar}
const
w1='This Is My AutoTalker';//Put your Text Between ''
w2='Created In Scar';//same here
w3='To Piss You Off';//same here
w4='For My Enjoyment';//same here

//No need to touch below unless changing timer.

procedure Noni;
begin
 wait(70)
 TypeSend(w1);
 wait(70)
 TypeSend(w2);
 wait(70)
 TypeSend(w3);
 wait(70)
 TypeSend(w4);
 end;

 begin
 ActivateClient;
 repeat
 Noni;
 until(False)
end.

Ok guys Heres My New Autotalker Use it if you want.

{This is an autotalker created for the sole purpose of spamming,
autotalking, and what ever else you want to autotype.
Please Drag The Crosshair on the Client, Runescape, Msn, Aim, Yim, Chat.}

program Autotalker;
{.include SRL/SRL.scar}
const

////////////////////////////////////////////////////////////////////
//This is where you put your text, You put it Inbetween the ' ' //
////////////////////////////////////////////////////////////////////

Text1='Text Here';//Put your Text Between ''
Text2='Text Here';//If you would like to add another line Text Between' '
Text3='Text Here';//Same As Number 2
Text4='Text Here';//Again Same As Number 2

/////////////////////////////////////////////////
//No need to touch below unless changing timer.//
//Or How Long You Want The Script To Run //
/////////////////////////////////////////////////

procedure AutoTalk;
begin
wait(1000)//Change Timer If You Like
TypeSend(Text1);
wait(1000)//Change Timer If You Like
TypeSend(Text2);
wait(1000)//Change Timer If You Like
TypeSend(Text3);
wait(1000)//Change Timer If You Like
TypeSend(Text4);
end;

begin
ActivateClient;
repeat
AutoTalk;
until(True)// True To Type Text's Once, False For Infinte Times.
end.

yay im going to finally learn SCAR! after using it for the last year or so. (not sure if that long) but i think its time i learn, and maybe help contribute to a script of my own, coz leeching scripts does get a bit stupid, to the extent that i do it lol!!

Wonder if a nice ADMIN will let me be a member, even if i fail at learning SCAR! gee i hope so.! :eek: :redface:

Thanks so much for this,
Ive been really into Counter-Strike scripting but have recently got bored
of it due to a lack of challenges and things you can do.

Ive decided to learn SCAR scripting as it seems it is always becoming
more challenging and you guys are always finding new and better ways to do things :D

I cant wait until I can script properly.

Ty, Now maybe i can start making scripts, after just testing other's for them :)

Nice work :) This will really help get some new scripters in

one hand O.O

Great tut! keep up the good work :) i read it about 4 days ago, thats near when i started scripting and i forgot to say good job and thanks for making it :)

thanks, but it kept failing to compile why? i tried wait (2000) instead of (1000) and it failed to compile?!?!? but thanks you greatly for posting and trying to help

thnx for the tut, it was great, i have added some rep :p

this helped alot.
im not real sure about all the functions but i got down the basics. lol
i made an autotalker though.
thanks

um… how does this help on making great scripts like a auto wcer

Thanks for this tutorial, its a good start to making my own scripts :)

Thank you :D

TY so so much, this helped me out alot, im trying to get into scripting and i had absoluly no isea about it untill i read your guide, and i loved it :) ty ty ty

I Like this tutorial, very indept.

:D I Like this tutorial, right to the point.

program HelloWorld!;

const
  text1=('H');
  text2=('He');
  text3=('Hel');
  text4=('Hell');
  text5=('Hello');
  text6=('Hello ');
  text7=('Hello w');
  text8=('Hello wo');
  text9=('Hello wor');
  text10=('Hello worl');
  text11=('Hello world');
  text12=('Hello world!');

procedure Talk;
begin
  Wait (100)
  cleardebug;
 if(not(text1=''))then
  writeln(Text1);
  Wait (100)
 if(not(text2=''))then
  writeln(Text2);
  Wait (100)
 if(not(text3=''))then
  writeln(Text3);
  Wait (100)
 if(not(text4=''))then
  writeln(Text4);
  Wait (100)
 if(not(text5=''))then
  writeln(Text5);
  Wait (100)
 if(not(text6=''))then
  writeln(Text6);
  Wait (100)
 if(not(text7=''))then
  writeln(Text7);
  Wait (100)
 if(not(text8=''))then
  writeln(Text8);
  Wait (100)
 if(not(text9=''))then
  writeln(Text9)
  Wait (100)
 if(not(text10=''))then
  writeln(Text10);
  Wait (100)
 if(not(text11=''))then
  writeln(Text11);
  Wait (100)
 if(not(text12=''))then
  writeln(Text12);
  Wait (100)
end;

begin
 repeat
  Talk;
 until(false)
end.

Failed when compiling
Line 1: [Error] (1:19): Syntax error in script C:\Program Files\SCAR 2.03\Scripts\Hello World! Auto Talk.scar
Line 1: [Error] (1:19): Semicolon (';') expected in script C:\Program Files\SCAR 2.03\Scripts\Hello World! Auto Talk.scar

any ideas on how to fix this problem?

program autotalk;

const
  text1=('H');
  text2=('He');
  text3=('Hel');
  text4=('Hell');
  text5=('Hello');
  text6=('Hello ');
  text7=('Hello w');
  text8=('Hello wo');
  text9=('Hello wor');
  text10=('Hello worl');
  text11=('Hello world');
  text12=('Hello world!');

procedure Talk;
begin
  Wait (100)
  cleardebug;
 if(not(text1=''))then
  writeln(Text1);
  Wait (100)
 if(not(text2=''))then
  writeln(Text2);
  Wait (100)
 if(not(text3=''))then
  writeln(Text3);
  Wait (100)
 if(not(text4=''))then
  writeln(Text4);
  Wait (100)
 if(not(text5=''))then
  writeln(Text5);
  Wait (100)
 if(not(text6=''))then
  writeln(Text6);
  Wait (100)
 if(not(text7=''))then
  writeln(Text7);
  Wait (100)
 if(not(text8=''))then
  writeln(Text8);
  Wait (100)
 if(not(text9=''))then
  writeln(Text9);
  Wait (100)
 if(not(text10=''))then
  writeln(Text10);
  Wait (100)
 if(not(text11=''))then
  writeln(Text11);
  Wait (100)
 if(not(text12=''))then
  writeln(Text12);
  Wait (100)
end;

begin
 repeat
  Talk;
 until(false)
end.

H
He
Hel
Hell
Hello
Hello
Hello w
Hello wo
Hello wor
Hello worl
Hello world
Hello world!
Successfully executed

this works though, any idears on why?

Nice, sure it will help a lot of scripting noobs out =]

program NoSpacesOrSymbolsHere;

Nice I did my first script :spot: :sasmokin:

very nice tut for beginners :D not that i needed it..:rolleyes:

Very good 1 problem :( it uses endless loops :P

From: Aidan
Very good 1 problem :( it uses endless loops :P

Lol, oh well. It is a basic example of how to treat a working script.
I'm not exactly following the SRL golden rules here :P

Well done.

Thankyou for that script! It was very well written.

But i have one point to make. ( even though i am a noob at scripting ) Perhaps you should have said that Writeln has an l ans not an i…

Again well done!!!!

:D

This is probably the easiest tut to understand i have read so far.

havnt tryed it out yet.. but from what i see it looks very helpful…

thx for posting this up.. im gona try it out soon!!:spot:

YOU ARE GOD lol

-PacMan-

Thank you i plan on soon trying to write my own scripts once i get my labtop back from the shop = /

Sweet, gives me a good start, I like it.

Something that I can understand, thanks :)

I know some C++ this seems like a very easy thing to learn

look its based on that type of language.

one thing i dont get is, is this script suppose to be saying this in game? after i compile it and run it it just loops my string in the SCAR display window at the bottom. not in my RS window

:edit: ok i got this to work but i have to be on my rs page and then press ctrl+alt+r to start and then it will type in the game window

nice :) hopefully i will become decent scripter and release some public stuff

i feel like an noob. I did everything and it doesn't work. I even copied it straight out of the thread and it still doesn't work.:confused: :confused: :confused:

error:

Failed when compiling
Line 6: [Error] (6:1): Semicolon (';') expected in script 

code:

program script;

const
Message1= 'Hello world!'

procedure Hello;
begin
wait(1000)
Writeln(Message1);
end;

begin
repeat
hello;
until(false)

End.

plz help.:(

You need a semi-colon after the constant is defined:

program SilkBuyer;

const
Message1= 'Hello world!'; <-- There

procedure Hello;
begin
  wait(1000)
  Writeln(Message1);
end;

begin
 repeat
  hello;
 until(false)
end.

my bad
wait…
why did it say line 6 if it meant line 4?

It looks like it was fine with there not being a semi-colon on the end of the constant until the identifier "procedure" was called.

Excellent tutorial! Thank you very much! :D

Here's the script I made… :)

{
  Smiley
  by Slonskiy
}

program smiley;

procedure smile;
begin
  wait(1000)
  cleardebug;
    Writeln('  | |  ')
    Writeln('  | |  ')
    Writeln('\_____/')
  Writeln('S')
  wait(200)
  cleardebug;
    Writeln('  | |  ')
    Writeln('  | |  ')
    Writeln('\_____/')
  Writeln('Sm')
  wait(200)
  cleardebug;
    Writeln('  | |  ')
    Writeln('  | |  ')
    Writeln('\_____/')
  Writeln('Smi')
  wait(200)
  cleardebug;
    Writeln('  | |  ')
    Writeln('  | |  ')
    Writeln('\_____/')
  Writeln('Smil')
  wait(200)
  cleardebug;
    Writeln('  | |  ')
    Writeln('  | |  ')
    Writeln('\_____/')
  Writeln('Smile')
  wait(200)
  cleardebug;
    Writeln('  | |  ')
    Writeln('  | |  ')
    Writeln('\_____/')
    Writeln('Smiley')
  wait(200)
  cleardebug;
    Writeln('  | |  ')
    Writeln('  | |  ')
    Writeln('\_____/')
  Writeln('Smiley f')
  wait(200)
  cleardebug;
    Writeln('  | |  ')
    Writeln('  | |  ')
    Writeln('\_____/')
  Writeln('Smiley fa')
  wait(200)
  cleardebug;
    Writeln('  | |  ')
    Writeln('  | |  ')
    Writeln('\_____/')
  Writeln('Smiley fac')
  wait(200)
  cleardebug;
    Writeln('  | |  ')
    Writeln('  | |  ')
    Writeln('\_____/')
  Writeln('Smiley face')
  wait(200)
  cleardebug;
    Writeln('  | |  ')
    Writeln('  | |  ')
    Writeln('\_____/')
  Writeln('Smiley face!')
  wait(3000)
end;


begin
 repeat
  smile;
 until(false)
end.

well detailed, OK tut! :D

ill give it 8/10 for ultimate basics

ty helped much

Thanks alot dudette (girl dude)
Really helped me a lot, gunno read some more tuts now :)

I know this might, actually it will sound stupid but is Scar case sensitive? For example, for the procedure Writeln, does it make a difference if you write writeln?

Thnx 4 dat I made my first script with it.

very good….nice job

thanks so much

im on my way to becoming a scripter….slowly but surely :spot:

RELI CONFUSON :S…. would u be able to make me a script :D… for www.s-racerz.com… its a simple text based game ;)

Nice long guide, explained alot. Easy to read 10/10

Great Tutorial, I just learned how to do this in c++ too lol

Thanks a good bit. I'm hoping to make a bit more complicated auto talker/merchanter using this as a base.

lol every script i looked at looks all confusing but after this i got a grasp on it…a little bit. thank you this was my first script ever and i totally understood it :)

i am new here and i saw scar and used it while ago and never knew about scripting.
i have looked at countless scripts and it is just not falling into place.
i know about bolean and integers and procedures after reading countless guides but scripting seems way to complicated
i have no earlier excperience in programming and i would like to learn.

Hey thanks for this tutorial, really great for the start-off with scripting for me.
However, I am having trouble when I'm trying to type a string using "SendKeys()" when the string incorporates an apostrophe.

for example: (it's not finished, but I need help before I go on :) )

{A simple program that creats the
traditional "Hello World" script in
another tab.

Made by Scuzzinator}

program TutScriptMaker;

procedure ProgName;
begin
 MoveMouseSmoothEx(218,67,20,40,45,20,20);
 Wait(1000+random(1000));
 ClickMouse(218,67,True);
 Wait(1000+random(500));
 MoveMouseSmoothEx(94,93,20,40,45,20,20);
 Wait(1000+random(500));
 ClickMouse(94,93,True);
 Wait(1000+random(500));
 MoveMouseSmoothEx(114,114,20,40,45,20,20);
 HoldMouse(114,114,True);
 Wait(1000+random(500));
 MoveMouseSmoothEx(143,114,20,40,45,20,20);
 Wait(1000+random(500));
 ReleaseMouse(143,114,True);
 Wait(1000+random(500));
 SendKeys('HelloWorld;'+chr(13));
 Wait(1000+random(1000));
end;

procedure Consts;
begin
 SendKeys(chr(13));
 SendKeys('c');
 Wait(250+random(100));
 SendKeys('o');
 Wait(250+random(100));
 SendKeys('n');
 Wait(250+random(100));
 SendKeys('s');
 Wait(250+random(100));
 SendKeys('t');
 Wait(500+random(100));
 SendKeys(chr(13)+'M');
 Wait(100+random(100));
 SendKeys('e');
 Wait(100+random(100));
 SendKeys('ss');
 Wait(100+random(100));
 SendKeys('a');
 Wait(100+random(100));
 SendKeys('ge');
 Wait(100+random(100));
 SendKeys('1=');
 Wait(100+random(100));
 SendKeys(''Hello world!'')
end;

procedure Proc;
begin
end;

procedure MainLine;
begin
end;

begin
 ProgName;
 Consts;
 Proc;
 MainLine;
end.

Line 55 is where i'm having the problem. I want SendKeys(''Hello world!'') to have " 'Hello world!' " as a string using the outer two apostrophes as the string indicators. However, what it does is it uses all apostrophes as string indicators and leaves "Hello world!" not as a string so I get the errors:

Failed when compiling
Line 56: [Error] (56:10): String error in script
Line 56: [Error] (56:10): Syntax error in script

Is there a way to make it so that i have " 'Hello world!' " as a string in this script?

Very VERY nice tutorial (Y)

i am having trouble

this is my script
( i typed it )
program New;

const
Message1='Hello people';

procedure hello;
begin
wait(1000)
WriteIn(Message1);
end;

begin
repeat
hello;
until(false)
end.

here is my debug box
Line 8: [Error] (8:1): Unknown identifier 'WriteIn' in script
Failed when compiling
Line 8: [Error] (8:1): Unknown identifier 'WriteIn' in script
Color Picked: 16447734 at (174, 450)
Failed when compiling
Line 9: [Error] (9:1): Unknown identifier 'WriteIn' in script

what is wrong with the write in?

Thanks SOOO much for the awesome tut… im just starting learning this coding and this helped me understand it alot… thanks!

Its writeLn not writeIn… so it would look like writeln(message1)

hmm i have never seen an ice cream truck covered in human skulls …

but anyway great tut! :D

WOW thnx for tut bro it easy to understand thnx alot!

Great TUT, nice and simple… I'm new to scripting so it helped me alot, made a few auto talkers on my own, but it still helped me understand some more stuff…
Trying to make an auto smelter atm… :p

this is a lot better are more to the point then other ones. I would learn scar more indepth but im too add to stick to it

yeah well that auto talker doesnt work


Line 7: [Error] (14456:1): Semicolon (';') expected in script

I beg to differ, post the code you are using…

i tried the first one and it said this

Line 10: [Error] (10:1): Unknown identifier 'WriteIn' in script

i tried it on scar divi 3.06 and scar 2.03

any clue?

Yes great tut

perfect for complete beginners, though i am not one

i never could understand any thing in scar but this tut really helped me. thanks :P

thx!
now i can make my first script :)
again , thx

best tut ever!~ get ready every1 cus im gona start scripting!

From: dauzi
i tried the first one and it said this



i tried it on scar divi 3.06 and scar 2.03

any clue?

u put write "In" when it shud be "ln" change your I into a l

Very good guide. Check out my auto talker. I used it also =P:

program Ties1stAutoTalker;

const
Selling1='glow2:wave2:Selling Lobsters 245 Ea~Pk3d';

procedure AutoTalk1;
begin
Wait(3500+random(500))
Writeln(Selling1);
end;

begin
repeat
AutoTalk1;
until(false)
end.

Yea, I don't care if anyone steals it, but what do you think for a first script. Ithink you should also include the ClearDebug in your thread. It's really useful =P

Hey thanks. Great Tut. It helped me alot.

HeHe i made a auto talker too :),
Gr8 guide,

Craig-

~ If any1 has a tut on how to make simple programs eg power miner (mine then drop ore) pls pm me ! ~

What program do you actually need in order to create a script? right now im learning to program with visual basics in college. will that help me?

kwlies makes sense easy to folo (h)

Simple and easy to read

Thank you

whoa thanks bebe it realy helped for me but iil need more guide's to learn fully of scripting but thnx for the begginners guide :D

popmun.;)

From: Bebe

How to create your very first script by Bebemycat2

What is this going to cover?
This tutorial will take you step by step through the process of learning how to create your very first script. I will explain every step to you and also throw in some useful scripting tips along the way.


Tutorial:

Ok to begin I will ask you to open up SCAR (http://www.dylock.net/scar/). Now all you should see is this:

program New;
begin
end.

Well I want you to space all of those out a bit like this:

program New;



begin


end. 

This will give us some space to code in. This is just the basic elements. program New; This is your programs name, Change "New" to whatever name you want your program to be. Always add a semicolon ( ; ) after the name to tell the script that that is the end of your scripts name. begin Tells the compiler that the script has just began, the coding of your script goes between "begin" and "end." end. Tells the compiler that you have ended the script, Make sure to always put a full stop. If you are making a procedure/function then you end it with a semicolon ( ; ), that will be explained later in the tutorial.

Next thing we are going to do is this:

program script;



procedure;
begin




end. 

You will notice that I have added something called a Procedure. Well a "procedure" is basically this:


This procedure is where we will create the "body" or the majority of our script, from there is can be called upon later in the "main line" this I will explain more about later.

You also have to have a name for your procedure, so lets name it "Hello" and add a semi-colon after it so it looks like this:

program script;



procedure;
begin




end. 

You name the procedure so that you can "call" upon it later in the script. You can name it anything but I am going to use "Hello" for this script.

Now what we are going to do now is add somthing called a "const" or a constant. This means that this "setting" will stay the same throughout the entire script.

To make a const you simply need to do this with your script:

program script;

const

procedure hello;
begin




end.

Now we have to make something a const, so let make it this:

program script;

const
Message1='Hello world!';

procedure hello;
begin




end. 

Now you will notice that I have "Message1=" this is because with SCAR you have to always tell it what the "Message1" equals, that’s the reason for the "=". Now for the ' ' marks. These are what SCAR uses to identify when a String begins and when it ends. A string is a word / phrase. You will notice that it has a pinkish color to it, that is the "Syntax highlighting" that SCAR creates so that scripting can be much simpler.

Now that we have a "const" we need it to do something. You can find a basic list of procedures and functions in your SCAR folder called "procedureparams". It should look somthing like this:
and so on. Now scroll down the list until you come to a procedure called:
Now as I explained before a procedure is:
And a string is: A string is a word / phrase.

This procedure:

procedure Writeln(s: string);

just means that the "S" is a string, so therefore that is where we would enter what we wanted to type.

So I want you to make your Script look like this now:

program script;

const
Message1='Hello world!';

procedure hello;
begin
Writeln();




End. 

You will notice that I have "Writeln();" after the begin, that is because you have to begin the script before you can do anything. :)

Also "Writeln" is a typing "command", it tells SCAR to type the keys that you specify. The Text will show up in shomthing called the "Debug" box that is this area of SCAR:


Now we will do this:

program script;

const
Message1='Hello world!';

procedure hello;
begin
Writeln(Message1);




End. 

Now normally we would have to use the ' ' identifiers around "Message1" but in this case, since it is already in the "const" there is no need to and this will tell SCAR to type what you have filled out in the "const" "Message1".

Now we have to tell SCAR that we want to end the current procedure for this we will add "end;" like so:

program script;

const
Message1='Hello world!';

procedure hello;
begin
Writeln(Message1);
end;




end. 

This is simply to tell SCAR to end the procedure, you will do the same with a function.
"End;" is different from "end." because "end." tells SCAR to end the whole script while "end;" tells it that you are done with a procedure/function.

Now we have to make SCAR actually type our "message" and use our procedure that we have just created. to do this we have to create the "main line" I mentioned before. This is done much like a procedure but has a few differences that I will explain.

So to start off your "main line" you will need to have a "begin" like so:

program script;

const
Message1='Hello world!';

procedure hello;
begin
Writeln(Message1);
end;


begin

end. 

You will notice the begin is there, this is just telling SCAR this is where your main line shall begin. Simple, no? :)

So now we are going to make SCAR repeat something. The command to make SCAR repeat is "repeat". This will go after the being in the "main line". So you should now have code that looks like this:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
Writeln(Message1);
end;


begin
repeat

end. 

This basically telling SCAR to begin the "main line" and repeat something. Now we have to tell it what it needs to repeat. For this we will take our procedures name (Hello) and add it under our repeat command. So it should look like this:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
Writeln(Message1);
end;


begin
repeat
hello;

end. 

This will tell SCAR to repeat our "Hello procedure". But we have to tell it how long it has to repeat it for, so we will need the command "until". like so:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
Writeln(Message1);
end;


begin
repeat
hello;
until(false)
end. 

Now you will notice that I have "until(false)" when I only told you to add "until". Well until needs some sort of "time marker" to tell it when to repeat until, and "(false)" tells it to repeat forever, this will make it an infinite "loop". With "until(false)" this script will repeat our procedure "Hello" forever, never stopping until the user stop SCAR manually.

Now hit: "script" —–> "Compile" and you should get this message in the "debug" box that says "Successfully compiled" this means that you coded the script right. Now to test it.

With your "crosshair"() select your debug box and hit "run script". You will notice that it keeps typing it over and over really fast. So now we need to slow it down a bit. for this we will use a procedure called "wait". Wait tells the script to wait a designated amount of miliseconds before it's next action. To add wait what we do is this:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
  wait(1000)
  Writeln(Message1);
end;


begin
 repeat
   hello;
 until(false)
end.

You will notice the "1000)" this is the amount of milliseconds you want to wait, now if you paid attention in math(s) (Depending on if your American or not you call it math or maths) you will know that 1000 milliseconds is 1 second. So we are basically saying that when SCAR reads the "main line" and does our procedure "Hello" that it should wait 1 second before it repeats. Simple, no?
Now run it.

You will see that it types at a much more controlled rate now.

CONGRATULATIONS! You have just made your very first script!

The other method…..

Ok, so you know how I had:

program script;

const
Message1='Hello world!';

procedure Hello;
begin
  wait(1000)
  Writeln(Message1);
end;


begin
 repeat
   hello;
 until(false)
end.

as our final code to creating a "Hello world"/First script, well I would like to show you another method to do this, that is just as effective.

We will take our above code and change it to this:

program script;

procedure Hello;
begin
  wait(1000)
  Writeln('Hello world!');
end;

begin
 repeat
   hello;
 until(false)
end.

You will notice that I have removed the:

const
Message1='Hello world!';

and changed:

Writeln(Message1);

to

Writeln('Hello world!');

Now as I mentioned above, the apostrophes mark the begining and end of "strings". But just to recap:


So basicly we have removed our "const" or constant and made "Writeln" directly type our message.

It is a simple changes and makes no difference to the performance of the script, it truly depends on your style of scripting.

:f: :f: :f: :f: :f:

i need help i cant download any other SCARs so i downloaded scar divi 3.12
but i cant find any scripts 4 scar divi 3.12 so i dicided to write 1 i need some help on writing a rune ess miner & banker script any tips and can u help???:bart: :bart: :redface: :redface: :(h): :)

Hey, I just wanted to say that the tut is very informative and it has helped me with understanding the concepts. With this new found knowledge, i feel more ready to being able to write my own scripts :P

This worked great. Now i know a very little about scripting. however, every visit to SRL gets me closer and closer to my own script. Thanks Bebe for the awesome tut. Now on to the next lesson. BTW, I was a little confused on the Writln, I kept putting an i in there and it gave an error.


Slackjaw

Woo-hoo, I think this TuT will lead me to my first script =P

Thanks!

SWEET ty vm! :D :D :D :D

Now that we have a "const" we need it to do something. You can find a basic list of procedures and functions in your SCAR folder called "procedureparams". It should look somthing like this:

i cant find that folder

nice guide!!! this will help a lot of people out

nice

Helped absolutely loads, Thanks!

wow this is great thank you do you know any1 who can teach me scripting further i want to make an autobot for runescape and you taught me how to talk now i just gotta learn how to walk ;…lol

wow this is great thank you do you know any1 who can teach me scripting further i want to make an autobot for runescape and you taught me how to talk now i just gotta learn how to walk ;…lol also to contact me email me at [email]westkevin12@hotmail.com[/email];

:eek: omg Bebe thank you so much when i first started SCAR (about 2 mins ago) i didnt know ANYTHING you helped me out a lot and i can create a monologue XD well i hope that you make more tutorials…or lessons which will aid me and many others in creating more advanced scripts :)
_________________________
procedure thx;
begin
wait(1000)
Writeln('thank you so much');
wait(1000)
Writeln('you are the best');
end;

begin
repeat
thx;
until(false)

end.
_________________________

hehe -11sbasti- :D

Very good Tutorial. I think I've seen one similar to this, but this one is better described. :)

Nice tut I never scripted of my life this will be my first ever script :)

I gave it a try and it says WriteIn thing is not correct.

program script;

const
Message1='Hypnose first script';

procedure hello;
begin
 wait(1000)
 WriteIn(Message1);
end;
 
begin
 repeat
  hello;
 until(false)
end.

From: Hypnose
I gave it a try and it says WriteIn thing is not correct.

program script;

const
Message1='Hypnose first script';

procedure hello;
begin
 wait(1000)
 WriteIn(Message1);
end;
 
begin
 repeat
  hello;
 until(false)
end.

You Have
WriteIn
must be
WriteLn

You Have a I you need a L from LiNe

thank you its very helpful

Nice!

Nice tutorial, i hope i don't forget what i learned here! :P

very nice guide, i will try but i am not good on this things lol tyvm for the guide that is why i am learning :D

this helped me out a lot, thanks

Brilliant tutorial. Ill try make a few basic scripts with this.

Another super tutorial by Bebe! I understand a lot more now…

i followed this script and it was very helpful thank you for it.
and also you explained every step was explained very well

yay! i made my first working script! thanks!:D

Hey, thanks a lot. This is my first working Scar script that I wrote … well I didn't actually write it now did I … typed it in myself anyway … Thanks

thank you for a good tut =)