SRL Archive - First Scripts

Alright, I am very new to scar scripting and I am just starting to learn.
I wrote this script from scratch and it works pretty well and it will type pretty fast, but will not get you banned.

program Merchanter;
{.include SRL/SRL.scar}

{This Script will not type fast, so you will not get reported or banned}

var
q:integer;

procedure declareq;
Begin
q := 0;
end;

procedure talk;
begin
case (random(7)) of
     0: TypeSend('flash1:selling 5k air runes, 15ea!!');  //change strings as you wish to speak
     1: TypeSend('flash2: selling 5k air runes for 15gp each!!!');
     2: TypeSend('flash3: selling 5k air runes, 75k');
     3: TypeSend('flash1:selling 5k air runez, 15ea!!!');
     4: TypeSend('flash2:selling 5k air runes, 15ea.');
     5: TypeSend('flash3:selling 5k air runes for 75k!!');
     6: TypeSend('selling air runes, trade me, 15ea');
     end;
wait (1200+random(500));
q := q+1;
end;

procedure progressreport;
begin
writeln ('The script has spoke '+inttostr(q)+' times');
end;

begin
wait (3000) // use the 3 seconds to select RuneScape window
disguisescar ('iTunes');
declareq;
repeat
talk;
progressreport;
until q > 10;   // change for how many times you want it to speak
end.

I also added a progress report to it =/

Tell me what you think, i know it isnt much, but its my first script.

hmmmmm it looks ok… not much more than an autotalker… if you could add a trader and it worked it would be VERY useful… and another thing that you might want to change, is just have the user type ONE thing to say without saying the colors, and you just do like case of randoms 7 then do like flash1: (Message)!!!) and keep on switching the colors… hope you understand this and it helps for newer, better versions :) you seem like your gonna be a pretty good scripter since you already know how to do randomness :o oh and also maybe change the

until q > 10;   // change for how many times you want it to speak

to something like

until (Talked = TimesToTalk)

and put in the const

TimesToTalk   =   15;//How Many Times To Talk Before Logging Out.

or you could just have the messages set up to

IsFKeyDown(5) then
TypeSend(Message1);

lol well hope this helps :)