SRL Archive - First Scripts

Auto Dancer XD

Ownt?

2007-07-21 20:56:07

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

2007-08-09 16:48:05

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

2007-08-09 16:50:30

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 © so if u ever want to use plz pm me

born to macro

2007-08-09 16:56:24

… u have the mouse movements all rong i just tested fix!

n3ss3s

2007-08-09 16:58:19

Grr triple poster! Remove the 2 of your posts.. And that script wouldnt work..

lilmike

2007-09-03 11:01:45

lol nice gonna try it out

tomd741

2007-09-03 13:00:55

lol love it and i think your sig is class

harent

2007-09-03 14:15:14

haha intresting script :] works though, just tested it:]

kornthebldgd

2007-09-03 16:55:19

haha wow, can u say totally pointless….

Xeroz

2007-09-03 19:11:58

Rofl, iv seen some usless scripts but…
Well you get it =]

Jas0n

2007-09-03 21:27:55

Haha, looks like fun, I'll give it a shot

rangeuho

2007-09-03 21:28:44

lol nice first script o.0

upmar

2007-09-04 08:42:27

Ermm wierd but good for a first!

1q1q

2007-09-04 22:22:40

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
[B]end;[/B]
 
procedure DoAntiRandoms;
 
begin
 
FindTalk;
FindNormalRandoms;
if (FindFight =true) than
 begin
RuneAwayDirction ('E')
Wait (1000 +[B]Random(2000)[/B]);
RunBack;
write[B]l[/B]n('phew that was close there was a random!');
 end;
end;
 
begin
SetUpSrl;
AutoType;
AutoDance;
AntiRandoms;
Repeat;
[B]end.[/B]

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

2007-09-05 06:57:55

lol not bad for a first script:sasmokin:

rdk

2007-09-05 08:37:33

haha it works..doesnt help get my lvls up tho..just flexibility lol.

markel

2007-09-05 09:57:42

haha, auto dancer:P, ill try this one out after auto curser

miku12

2007-09-05 12:03:17

Haha, its funny. Used it for 10 mins and it worked nicely.:D

sha owned

2007-09-05 22:54:34

Rofl Nice perfect way to waste the day =)

Tootoot222

2007-09-06 06:39:53

lol this is awsome, i should leave my noob accounts on all day like in world 1 spamming ppl! :f:

dillvill92

2007-09-06 16:52:01

hahha its very funny, and works well too

asdffff

2007-09-08 22:47:43

lol funny script:p