PDA

View Full Version : Auto Dancer XD



Ownt?
07-22-2007, 12:56 AM
AutoDancer_v1 :)

program DancingPro;
{.include srl/SRL.scar}

const
Write='Dance with me!! :)';//Type what you'd like to autotype.

begin
repeat
TypeSend(Write);
Wait(1000+random(300))
Mouse(575,374,10,10,True);
until False
end.

born to macro
08-09-2007, 08:48 PM
woot first post and i updated!!!
now has anti randoms

program DancingPro;
{.include srl/SRL.scar}

const
Write='Dance with me!! :)';//Type what you'd like to autotype.

begin
repeat
TypeSend(Write);
Wait(1000+random(300))
Mouse(575,374,10,10,True);
until False
end.

procedure DoAntiRandoms;

begin

FindTalk;
FindNormalRandoms;
if (FindFight =true) than
begin
RuneAwayDirction ('E')
wait (1000 +random 2000));
RunBack;
writein('phew that was close there was a random!');
end;
end;

begin
SetUpSrl;
AutoType;
AutoDance;
AntiRandoms;
Repeat;
end;

born to macro
08-09-2007, 08:50 PM
i hope you like now u can dance in verrk middle with no chance of dieing o
and those anti randoms are mine and are a (c) so if u ever want to use plz pm me

born to macro
08-09-2007, 08:56 PM
... u have the mouse movements all rong i just tested fix!

n3ss3s
08-09-2007, 08:58 PM
Grr triple poster! Remove the 2 of your posts.. And that script wouldnt work..

lilmike
09-03-2007, 03:01 PM
lol nice gonna try it out

tomd741
09-03-2007, 05:00 PM
lol love it and i think your sig is class

harent
09-03-2007, 06:15 PM
haha intresting script :] works though, just tested it:]

kornthebldgd
09-03-2007, 08:55 PM
haha wow, can u say totally pointless....

Xeroz
09-03-2007, 11:11 PM
Rofl, iv seen some usless scripts but...
Well you get it =]

Jas0n
09-04-2007, 01:27 AM
Haha, looks like fun, I'll give it a shot

rangeuho
09-04-2007, 01:28 AM
lol nice first script o.0

upmar
09-04-2007, 12:42 PM
Ermm wierd but good for a first!

1q1q
09-05-2007, 02:22 AM
program DancingPro;
{.include SRL/SRL.scar}

const
Write='Dance with me!! :)';//Type what you'd like to autotype.

begin
repeat
TypeSend(Write);
Wait(1000+random(300))
Mouse(575,374,10,10,True);
until False
end.

procedure DoAntiRandoms;

begin

FindTalk;
FindNormalRandoms;
if (FindFight =true) than
begin
RuneAwayDirction ('E')
wait (1000 +random 2000));
RunBack;
writein('phew that was close there was a random!');
end;
end;

begin
SetUpSrl;
AutoType;
AutoDance;
AntiRandoms;
Repeat;
end;

Wouldn't it be



program DancingPro;
{.include srl/SRL.scar}

const
Write='Dance with me!! :)'; //Type what you'd like to autotype.

begin
repeat
TypeSend(Write);
Wait(1000+random(300))
Mouse(575,374,10,10,True);
until False
end;

procedure DoAntiRandoms;

begin

FindTalk;
FindNormalRandoms;
if (FindFight =true) than
begin
RuneAwayDirction ('E')
Wait (1000 +Random(2000));
RunBack;
writeln('phew that was close there was a random!');
end;
end;

begin
SetUpSrl;
AutoType;
AutoDance;
AntiRandoms;
Repeat;
end.

Just seeing if I fully know how to do SCAR.. testing my ability's for now.
Might be more.. but these are just the ones i found.

first end needs ; not .
it's writeLn not writein
random(xx) not random xx)


Also wouldn't you have to randomly choose icons?
and you for antiban wouldn't you need to switch gametabs back and forth..?
hehe I might start from this script.. i seem interested in it :D

bob_the_noob
09-05-2007, 10:57 AM
lol not bad for a first script:sasmokin:

rdk
09-05-2007, 12:37 PM
haha it works..doesnt help get my lvls up tho..just flexibility lol.

markel
09-05-2007, 01:57 PM
haha, auto dancer:P, ill try this one out after auto curser

miku12
09-05-2007, 04:03 PM
Haha, its funny. Used it for 10 mins and it worked nicely.:D

sha owned
09-06-2007, 02:54 AM
Rofl Nice perfect way to waste the day =)

Tootoot222
09-06-2007, 10:39 AM
lol this is awsome, i should leave my noob accounts on all day like in world 1 spamming ppl! :f:

dillvill92
09-06-2007, 08:52 PM
hahha its very funny, and works well too

asdffff
09-09-2007, 02:47 AM
lol funny script:p