SRL Archive - First Scripts

hi im hamgooof and this is my very simple autotalker :p
on line 13 wait(5000+random(1500)); the 5000= how long till next types in after pressing enter(milliseconds so that would be 5 seconds) the +random(1500)) 1500 is how long between each letter so 1000-2000 is good although some people may do faster a low amount is better around 1500 as lest chance of being banned i think

sorry not sure if i should edit the last post or not but if anyone has any good tuts of miners feather pickers or chicken killers ETC can you put the link here or email me please [email]zimmermannjake@hotmail.com[/email]
thanks

kk thanks will do next time or u want me to edit script?

It's an "ok" first script, you can find some other scripts at the free for all section.

Or if you wait a week and post 10 posts (not in general dump) you'll become a jnr. member and access even better scripts :D!

Btw until false is baaaad.

Make it something like:

////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
/////////////////////////////My very first script please be nice:p//////////
/////////////////////////////and post comments! ~~hamgooof//////////////////
////////////////////////////////////////////////////////////////////////////
program script;
{.Include srl/srl.Scar}
const
Message1='your message here';

var
times2say: Integer;

procedure hello;
begin
  wait(5000+random(1500));
  TypeSend(Message1);
end;


begin
 times2say:= 10; // How many times to say Message1.
  repeat
   hello;
   times2say := times2say - 1;
  until(times2say <= 0)
end.

Also maybe look into some tuts for cases, then make a case for a random number, and say if that number was 1, 1 exclamation mark would be outputted, 2:= 2, 3:= 3 etc etc

Btw I don't know much about SCAR. I'm a novice C++ guy :rolleyes:

PS. Don't double post. delete your second one and edit your first with the content on the second one ;)

kk if u want me to put this in original thing just say but does any1 here know how to put like 5 things down, and it randomlty chooses 1 sumin like

choose random(2)
(1)hi
(2)hello
?

http://www.villavu.com/forum/showthread.php?t=2417

Tut for learning cases ;)

EDIT:= If you don't get them, hopefully you will then:= http://rafb.net/p/qgXYtu21.html

Though I hope you understand them and come to be a good scripter :).

You'll probables be able to make a for loop for the amount of !'s outputted.

I know I'm talking c++ here, not SCAR but in c++ all you do is:=

[PHP]for(int i = 0; i <= 10; i++) {
std::string exclam(i, '!');
std::cout << exclam << "!";
}[/PHP]

Just thought I'd say lol :rolleyes:

By the way! In the main loop make sure procedureNameHere; is above hello; and that the writeln in hello; is writeln(message1 + exclams); (or whatever i called exclams)

well this not really a difficult script
but still good luck :)

I suppose I can congratulate you on your very first script. I recently created this new account due to me moving on… Anyways I like it :)

Good for a first script.. mine was crap. :(
anyways, you could advance this to choose out of random, 1 of 3 chosen possible things to say, so your script would look like:

////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
/////////////////////////////My very first script please be nice:p//////////
/////////////////////////////and post comments! ~~hamgooof//////////////////
////////////////////////////////////////////////////////////////////////////
program script;
{.Include srl/srl.Scar}
const
Message1='your message here';
Message2='teh ownage BadProcessor';
Message3='uber coder hamgooof';
AmountOfTimesToSay=1000; //Say 1 of above 3 items X times
var loop :Integer; //Dont touch!!!
procedure hello;
begin
  for loop := 1 to AmountOfTimesToSay do begin
    wait(5000+random(1500));
    case(random(3)) of
      0: TypeSend(Message1);
      1: TypeSend(Message2);
      2: TypeSend(Message3);
    end;
  end;
end;


begin
  repeat
   hello;
  until(false)
end. // Update by BadProcessor :D :D :D

It uses a For/Do loop, and a Case, I hope you did your homework… :D
Hope it helps.

– BadProcessor

We're basically doing the scripting now.. just suggest that he learns *blah* or w.e..

GJ mate, better then you begging me to help :p

i just took a brief look through it. you should make a power chopper or something with an auto responder (if your up to it) i think it'd be awesome.

~~JoeL~~

hey so how you do like in quick chat AND random so its like enter 2 4 3 2 3 or whatever(those are just random numbers) or do i have to do mmouse/mouse?

program script;
{.Include srl/srl.Scar}
var
  Talked : integer;
const
  Times2Say = 10; //how many times

procedure hello;
var
  Messages : array of string;
  CurrentMessage : String;
begin
  Messages := ['your message here', 'your second message', 'your third message'];
  CurrentMessage := Messages[Random(GetArrayLength(Messages))];
  TypeSend(CurrentMessage);
  Wait(5000 + Random(1500));
end;

begin
  repeat
   Hello;
   Talked := Talked + 1;
  until(Talked >= Times2Say)
end.

You can put as many quotes in here as you want -

Messages := ['your message here', 'your second message', 'your third message'];