SRL Archive - RS3 Outdated / Broken Scripts

Dance anyone?


starlightning

2007-07-18 20:04:14

I know this sounds lame, but I'm new to scripting and I was jsut wondering…

Can someone create a simple script that jsut makes your player dance??

:cartman:

syther fox

2007-07-18 21:49:08

if you're new to scripting that's probably one of the easier scripts you could make, try it yourself, that's probably the best way to do it.

Ownt?

2007-07-19 02:35:37

XD I could do that :)…I think

GoF

2007-07-19 07:28:02

Well, here's a 5 minutes of work.


//Dancer by GoF.
//Start logged in.
//Enjoi!
program DanceMonkeyDance;
{.Include SRL/SRL.scar}

const
DanceWait = 5;//Seconds to wait before dancing again?
TimesToDance = 100;//Times to dance?

var
Dance: TPoint;
DanceTimes: Integer;
ClickB: Boolean;

begin
SetUpSRL;
Writeln('Script starts in 5 seconds.');
Wait(5000);
ActivateClient;
GameTab(12);
Dance.X := 570;
Dance.Y := 370;
repeat
ClickB := True;
case Random(10) of
2, 5, 9: ClickB := False;
end;
Mouse(Dance.X, Dance.Y, 8, 8, ClickB);
if not (ClickB) then
begin
Writeln('Right click');
case Random(4) + 1 of//Just antiban I guess.
1: ChooseOption(x, y, 'ce');
2: ChooseOption(x, y, 'nce');
3: ChooseOption(x, y, 'ance');
4: ChooseOption(x, y, 'Dance');
end;
end else
Writeln('Left click');
DanceTimes := DanceTimes + 1;
Wait(DanceWait * 1000);
until(DanceTimes = TimesToDance)
Writeln('Done dancing!');
end.

Ownt?

2007-07-19 15:48:40

I feel bad cause mine is super less complicated and awesome :(

Still works though.

jhildy

2007-07-19 23:18:29

doemote(13); theres your whole script pretty much lol.

GoF

2007-07-20 07:43:09

Oooh.. Didn't know there's such thing as doemote :D