A few of my first scripts

[Hey321]

My Auto-Talker


{.Script Info:
# ScriptName = Auto-Talker
# Author = Hey321
# Description = Auto-Talks for ya for specified times
# Version = 3.0
# Date = Tues, Oct, 30
# Comments = Good script (i think)
/Script Info}
program MessageWriter;
{.include Squig.txt}

const
Message1=('purple:shake:selling 20k nats 330 ea!!! colt!!!');// Message to repeat
WaitTime=(3000);//how long to wait
NumLoops=50;//how many times to repeat

var
MessagesTyped: Integer;

procedure MessageSender;
begin
SendKeysHuman (Message1 + chr (13));
end;

procedure TimeToWait;
begin
wait (waittime + random (250));
end;

procedure Thanks;
begin
writeln('~~~Thanks for using ~~~Hey321s~~~ Talker~~~');
writeln('~~~~~~Hey321~~~ thanks you for using this Auto-Talker');
wait(WaitTime + random (50));
end;

procedure progressreport;
begin
MessagesTyped:= MessagesTyped + 1;wait(WaitTime + random (50));
writeln('~~~Typed '+inttostr(MessagesTyped)+' Messages For You~~~');
end;

begin
Thanks;
repeat
MessageSender;
TimeToWait;
progressreport;
until(MessagesTyped = NumLoops);
wait(WaitTime + random (50));
end.

My Auto-Logger (Non And Mem)

Mozilla ONLY!

Mem version


program Login;
{.include Squig.txt}

const
Username=('');
Password=('');

procedure openrs;
begin
Getself;
;OpenWebPage('http://www.runescape.com/');
end;

procedure MainLogin;
begin
wait(1000);
movemouse(729,457);
wait(5000);
Clickmouse(734,452,true);
wait(1000);
Clickmouse(734,452,true);
movemouse(474, 393);
wait(1000);
Clickmouse(674, 368,true);
wait(1000);
Clickmouse(1012, 700,true);
Clickmouse(1012, 700,true);
Clickmouse(1012, 700,true);
Clickmouse(1012, 700,true);
Clickmouse(1012, 700,true);
wait(10000);
Clickmouse(584, 491,true);
wait(1000);
SendKeysHuman (Username + chr (13));
SendKeysHuman (Password + chr (13));
Clickmouse(392, 522,true);
wait(5000)
Clickmouse(449, 544,true);
end;

begin
openrs;
MainLogin;
end.

Non-Members version



program Login;
{.include Squig.txt}

const
Username=('');
Password=('');

procedure openrs;
begin
Getself;
;OpenWebPage('http://www.runescape.com/');
end;

procedure MainLogin;
begin
wait(1000);
movemouse(729,457);
wait(5000);
Clickmouse(734,452,true);
wait(1000);
Clickmouse(734,452,true);
movemouse(474, 393);
wait(1000);
Clickmouse(463, 386,true);
wait(1000);
Clickmouse(1012, 700,true);
Clickmouse(1012, 700,true);
Clickmouse(1012, 700,true);
Clickmouse(1012, 700,true);
Clickmouse(1012, 700,true);
wait(10000);
Clickmouse(584, 491,true);
wait(1000);
SendKeysHuman (Username + chr (13));
SendKeysHuman (Password + chr (13));
Clickmouse(392, 522,true);
wait(5000)
Clickmouse(449, 544,true);
end;

begin
openrs;
MainLogin;
end.

[Boreas]

Good start. Next step is to use SRL and remember to ident (I forget too).