My First Script

[spanky2]

Hello guys this is my first basic script... tell me wat yall think about it...i just made this so can learn to make scripts..welll try it out if u want...u dont have to all u have to do is look at the codeing and u can tell if its good or not.. lol LEAVE PROGRESS REPORTS! lol j/k

NOT RESPONSIBLE IF U GET BANNeD NOT JOKEING

{********Hello this is SQUEANCY'S SCRIPT
I made this with the help in the tutorial page.
as u see its a basic script for me to start with and soon I
will start makeing bigger and betters scripts..well enjoy!******}




program First;


const
Message1='Yay i made my first scriipt =)';

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

begin
Repeat
hello;
until(false)



end.

[c0de]

Try to avoid endless loops ;-)

[spanky2]

how do u make them go on and on??

[Boreas]

It is going on and on. The point is to make it not go on and on.

Replace false with

isfkeydown(12)

That will make it stop when you press F12.

[spanky2]

oh i c...so basically i made my own auto spammer. just got to slow it down and it will work great..

[Hey321]

Also if you wanted to be able to specify how many times you wanted to send the message you would do this:


Put MessagesTyped: or whatever as a variable by typing
Var
MessagesTyped:

Put NumLoops=1; in your const

And until(MessagesTyped = NumLoops); in your man loop (bottom of script where you call on procedures)

[da_professa]

or this is what you can do .. Sorry abt the quote..too laggy to go to advance

var written: Integer;//put this at the top of the script
after writeln(message1); put written := written + 1;
and then at the end where u put until(false) replace false with until(written =5 //or wht ever number u want);

[Hey321]

I just noticed. This isn't an auto-spammer :P. What it does is sends the message to the debug box. Try using this if your going to make an auto talker.:

Your Version


{********Hello this is SQUEANCY'S SCRIPT
I made this with the help in the tutorial page.
as u see its a basic script for me to start with and soon I
will start makeing bigger and betters scripts..well enjoy!******}




program First;


const
Message1='Yay i made my first scriipt =)';

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

begin Repeat
hello;
until(false)



end.


The Actual Talker


{********Hello this is SQUEANCY'S SCRIPT
I made this with the help in the tutorial page.
as u see its a basic script for me to start with and soon I
will start makeing bigger and betters scripts..well enjoy!******}




program First;
{.include SRL/SRL.scar)

var
MessagesTyped: Integer;

const
Message1='Yay i made my first scriipt =)';
NumLoops=10
TimeToWait=1000

procedure hello;
begin
TypeSend(Message1);
end;

begin Repeat
hello;
sleep(TimeToWait+random(100)
until(MessagesTyped=NumLoops)



end.