SRL Archive - SRL Archives

a more human like way to setrun


sjlou

2008-08-15 10:10:36

when not im autoing i often use SHIFT to run(if you didn't know..if you hold down shift and click somewhere to walk you start to run)

i though about this function while playing on my main cause its more human like

the script should something like this

while ShiftDown do
RadialRoadWalk(blabla, 100, 50, 50, 0, 0);
RadialRoadWalk(blabla, 100, 50, 50, 0, 0);
RadialRoadWalk(blabla, 100, 50, 50, 0, 0);
ShiftUp;

you get the point right :P ?
it would be great if someone would workout my idea :D

Gu3st...

2008-08-15 10:59:40

you mean like when the person who autos (or work) hits the shift button, the script would walk in a random direction? :confused:

whaat?

sjlou

2008-08-15 11:09:16

From: dushii
(if you didn't know..if you hold down shift and click somewhere to walk you start to run)

..

Camaro'

2008-08-15 11:19:06

What he means is while autoing rite before it clicks somewhere to walk to hold shift(run) and click, then let go of shift, good idea . Like the idea

sjlou

2008-08-15 11:28:42

From: cnr sport
What he means is while autoing rite before it clicks somewhere to walk to hold shift(run) and click, then let go of shift, good idea . Like the idea


exactly :D

Illkillutill

2008-08-15 11:33:16

I think it's a good idea too. Easier then switching tabs and more human like as well.

Nava2

2008-08-15 11:43:05

Hmm, Its a good idea, didn't it used to be ctrl though?

EvilChicken!

2008-08-15 11:45:09

Wait, you mean procedure RunControl(Run: Boolean);?

In fact, this was a good idea. I won't have to switch tabs.
So, I'll do something like this..

if Random(5) = 0 then
KeyDown(17)
else
SetRun(True);

But of course more complicated than that, since I have to KeyUp if Random(5) did return 0.

But, my point is; thanks for the idea. :)


Edit: AFAIK it's CTRL, because I tested it with CTRL and it worked.
And, I believe that chr #17 is CTRL.

sjlou

2008-08-15 11:48:17

From: Nava2
Hmm, Its a good idea, didn't it used to be ctrl though?


shift or ctrl im confused XD

From: EvilChicken!
Wait, you mean procedure RunControl(Run: Boolean);?

In fact, this was a good idea. I won't have to switch tabs.
So, I'll do something like this..

if Random(5) = 0 then
KeyDown(17)
else
SetRun(True);

But of course more complicated than that, since I have to KeyUp if Random(5) did return 0.

But, my point is; thanks for the idea. :)


you forgot to release KeyDown(17) :P

Waddo

2008-08-16 07:19:13

it is control afaik

the scar noob

2008-08-16 07:27:37

It's ctrl key, and it's already in srl..:D

-Tsn.

sjlou

2008-08-16 07:47:24

From: the scar noob
It's ctrl key, and it's already in srl..:D

-Tsn.


it is ?
never seen(someone using it) befor

Shuttleu

2008-08-16 08:01:27

what is afaik?

~shut

the scar noob

2008-08-16 08:02:48

From: dushii
it is ?
never seen(someone using it) befor


If I'm not wrong, Fawki used it as first, when it wasn't part of srl, in his fally guard fighter:)

-Tsn.

sjlou

2008-08-16 08:58:40

From: the scar noob
If I'm not wrong, Fawki used it as first, when it wasn't part of srl, in his fally guard fighter:)

-Tsn.


nope i looked at the script and found nothing about running with Ctrl

but i found it in gametab.scar

{*******************************************************************************
procedure RunControl(Run: Boolean);
By: Wizzup?
Description: Sets Run on or off, using control, DOES NOT stack with SetRun(),
Use them seperately.
*******************************************************************************}

procedure RunControl(Run: Boolean);
begin
Wait(10 + Random(20));
if Run then
KeyDown(17)
else
KeyUp(17);
Wait(10 + Random(20));
end;

Wizzup?

2008-08-16 08:59:15

From: dushii
when not im autoing i often use SHIFT to run(if you didn't know..if you hold down shift and click somewhere to walk you start to run)

i though about this function while playing on my main cause its more human like

the script should something like this

while ShiftDown do
RadialRoadWalk(blabla, 100, 50, 50, 0, 0);
RadialRoadWalk(blabla, 100, 50, 50, 0, 0);
RadialRoadWalk(blabla, 100, 50, 50, 0, 0);
ShiftUp;

you get the point right :P ?
it would be great if someone would workout my idea :D


procedure RunControl(Run: Boolean);
By: Wizzup?
Description:
Sets Run on or off, using control, DOES NOT stack with SetRun(),
Use them seperately.

the scar noob

2008-08-16 10:02:24

From: dushii
nope i looked at the script and found nothing about running with Ctrl

And I remembered me..:)

Function PickupStuff: Boolean;
var Gx, Gy, Dumx, Dumy:Integer;
begin
if Pickup then
begin
Gx := MSCx;
Gy := MSCy;
if FindColorSpiralTolerance(Gx, Gy, 1347504, MSX1, MSY1, MSX2, MSY2, 4) or
FindColorSpiralTolerance(Gx, Gy, 11842750, MSX1, MSY1, MSX2, MSY2, 2)
then
begin
MMouse(Gx, Gy, 2, 2);
Wait(100);
GetMousePos(Gx, Gy);
FindNonInventoryRandoms;
if FindColorTolerance(Dumx, Dumy, 4293337, 42, 8, 120, 21, 50) then // Brown
begin
Mouse(Gx, Gy, 0, 0, False); // pick it up!
[B]RunControl(True);[/B]
ChooseOptionText;
[B]RunControl(False);[/B]
Result:=True;
end;
end;
end;
end;
It could also be that he was the first one using that procedure of srl:p

-Tsn.

Waddo

2008-08-16 11:54:16

afaik as far as know

Naum

2008-08-16 15:33:46

Also a quick way of switching tabs:

For the top line only

F1 = Tab1, so on until F7 or F8.. :)

the scar noob

2008-08-16 15:53:42

From: NaumanAkhlaQ
Also a quick way of switching tabs:

For the top line only

F1 = Tab1, so on until F7 or F8.. :)


Yea, I know, is it also included in SRL? cause I don't know about that:p

-Tsn.