NKN
03-30-2012, 04:29 AM
Alright, this is my first tutorial, and it's late at night, so don't rage at me too hard!
Table Of Contents:
RadialWalk and RadialWalkTolerance
Making A Path
a. How to Use It
Tools
Conclusion
RadialWalk and RadialWalkTolerance
Alright, so RadialWalk is set up like this:
RadialWalk(12345,0,90,70,5,5);
Alright, let's go explain.
12345: This is the color you search for, in THAT walking sequence. This has to be ONE integer.
0: The start of the Radial, it looks like a wedge, so out of 360 degrees (A full circle.) where do you want it to start? You pick a part of the circle to find this color in. Here is a picture:
http://i42.tinypic.com/53jqmh.jpg
You see in here, 0 degrees to 90 is colored red, that's where you are searching! 180 is the bottom, 270 is the left, and 0 is the north, (Not 360, goes to 359). Must be one interger.
90: See above.
70: How far out it searches, so, how far away the wedge is from the center of the minimap, this is where it looks FIRST! It HAS to be less than 74, because that is the edge of the minimap. I would use 65 so it doesn't bug up as much. Must be an Integer
5,5: How far it moves the mouse if the flag can not be placed at the point. Say you click a big rock, and the flag doesn't place, it moves 5 units on the x axis, and 5 on the y and clicks again! Two different points, first one is for the X change, second is for the Y change, must be an Integer.
That's it for RadialWalk!
RadialWalkTolerance, is just like it, but you add one more number on the end, for the tolerance!
It works just like the tolerance in FindColorTolerance, so I won't go indepth.
The tolerance is how much the color can vary, and since the color changes, I suggest using RadialWalkTolerance.
Tolerance has to be an integer, also.
An example: RadialWalkTolerance(12345,0,90,70,5,5,10);
The tolerance is set to 10!
How to make long paths
To make it nice and neat, I would put all your RadialWalk's in one procedure, like so:
procedure WalkingSpec(TheWalk:Integer);
begin
if not LoggedIn then Exit;
case TheWalk of
1: RadialWalkTolerance(12345,159,186,74,5,5,15);
2: RadialWalkTolerance(12345,136,153,74,5,5,15);
3: RadialWalkTolerance(12345,140,220,74,5,5,10);
//All Above is Walking to Ore
4: RadialWalkTolerance(12345,340,327,74,5,5,25);
5: RadialWalkTolerance(12345,330,357,74,5,5,25);
6: RadialWalkTolerance(12345,316,267,74,5,5,25);
//All Above is Walking to Bank
7: RadialWalkTolerance(12345,329,320,74,5,5,25);
8: RadialWalkTolerance(12345288,262,74,5,5,25);
9: RadialWalkTolerance(12345,340,250,60,5,5,25);
//To second rock from rock one.
10: RadialWalkTolerance(12345,78,94,74,5,5,25);
11: RadialWalkTolerance(12345,358,351,74,5,5,25);
//To bank, second path.
end;
end;
You could use something like that, to seperate them, so you know what they do, which is the point of the comments. This came directly from my LRC script, but the colors have been changed. ;D.
How to Use It
You could use it like so!
procedure WalkingToRock1;
var
i,x,y:Integer;
begin
for i := 1 to 3 do//Uses 1-3 of my RadialWalks, which walks to the first rock
begin
Writeln('You are on Walk Number ' + IntToStr(i));
WalkingSpec(i);
end;
(Anything you want the script to do after walking to the rock)
end;
There you go! It should use 1-3 of the RadialWalks, and not the rest!
This is how it works: When you defined WalkingSpec, you said the variable in the () after the name, so you can call it like so. The I stands for the TheWalk variable, which then selects the right type of RadialWalk!
Now, to call it in the mainloop, all you have to do is:
procedure MainLoop;
begin
WalkingToRock1;
end;
Tools:
To make everything easier, you can use this tool to paint the "wedge" on screen!
Radial Walk Aid (http://villavu.com/forum/showthread.php?t=70341)
Props to Jokester for getting me the link, cause I forgot it.
Conclusion
I hope this explained a little more about RadialWalk and RadialWalkTolerance, it took me a good while to understand it, and I hope I explained it well enough for you to be able to use it! Well that wraps it up! Leave Comments/Suggestions/Concerns in the comments Below!
Table Of Contents:
RadialWalk and RadialWalkTolerance
Making A Path
a. How to Use It
Tools
Conclusion
RadialWalk and RadialWalkTolerance
Alright, so RadialWalk is set up like this:
RadialWalk(12345,0,90,70,5,5);
Alright, let's go explain.
12345: This is the color you search for, in THAT walking sequence. This has to be ONE integer.
0: The start of the Radial, it looks like a wedge, so out of 360 degrees (A full circle.) where do you want it to start? You pick a part of the circle to find this color in. Here is a picture:
http://i42.tinypic.com/53jqmh.jpg
You see in here, 0 degrees to 90 is colored red, that's where you are searching! 180 is the bottom, 270 is the left, and 0 is the north, (Not 360, goes to 359). Must be one interger.
90: See above.
70: How far out it searches, so, how far away the wedge is from the center of the minimap, this is where it looks FIRST! It HAS to be less than 74, because that is the edge of the minimap. I would use 65 so it doesn't bug up as much. Must be an Integer
5,5: How far it moves the mouse if the flag can not be placed at the point. Say you click a big rock, and the flag doesn't place, it moves 5 units on the x axis, and 5 on the y and clicks again! Two different points, first one is for the X change, second is for the Y change, must be an Integer.
That's it for RadialWalk!
RadialWalkTolerance, is just like it, but you add one more number on the end, for the tolerance!
It works just like the tolerance in FindColorTolerance, so I won't go indepth.
The tolerance is how much the color can vary, and since the color changes, I suggest using RadialWalkTolerance.
Tolerance has to be an integer, also.
An example: RadialWalkTolerance(12345,0,90,70,5,5,10);
The tolerance is set to 10!
How to make long paths
To make it nice and neat, I would put all your RadialWalk's in one procedure, like so:
procedure WalkingSpec(TheWalk:Integer);
begin
if not LoggedIn then Exit;
case TheWalk of
1: RadialWalkTolerance(12345,159,186,74,5,5,15);
2: RadialWalkTolerance(12345,136,153,74,5,5,15);
3: RadialWalkTolerance(12345,140,220,74,5,5,10);
//All Above is Walking to Ore
4: RadialWalkTolerance(12345,340,327,74,5,5,25);
5: RadialWalkTolerance(12345,330,357,74,5,5,25);
6: RadialWalkTolerance(12345,316,267,74,5,5,25);
//All Above is Walking to Bank
7: RadialWalkTolerance(12345,329,320,74,5,5,25);
8: RadialWalkTolerance(12345288,262,74,5,5,25);
9: RadialWalkTolerance(12345,340,250,60,5,5,25);
//To second rock from rock one.
10: RadialWalkTolerance(12345,78,94,74,5,5,25);
11: RadialWalkTolerance(12345,358,351,74,5,5,25);
//To bank, second path.
end;
end;
You could use something like that, to seperate them, so you know what they do, which is the point of the comments. This came directly from my LRC script, but the colors have been changed. ;D.
How to Use It
You could use it like so!
procedure WalkingToRock1;
var
i,x,y:Integer;
begin
for i := 1 to 3 do//Uses 1-3 of my RadialWalks, which walks to the first rock
begin
Writeln('You are on Walk Number ' + IntToStr(i));
WalkingSpec(i);
end;
(Anything you want the script to do after walking to the rock)
end;
There you go! It should use 1-3 of the RadialWalks, and not the rest!
This is how it works: When you defined WalkingSpec, you said the variable in the () after the name, so you can call it like so. The I stands for the TheWalk variable, which then selects the right type of RadialWalk!
Now, to call it in the mainloop, all you have to do is:
procedure MainLoop;
begin
WalkingToRock1;
end;
Tools:
To make everything easier, you can use this tool to paint the "wedge" on screen!
Radial Walk Aid (http://villavu.com/forum/showthread.php?t=70341)
Props to Jokester for getting me the link, cause I forgot it.
Conclusion
I hope this explained a little more about RadialWalk and RadialWalkTolerance, it took me a good while to understand it, and I hope I explained it well enough for you to be able to use it! Well that wraps it up! Leave Comments/Suggestions/Concerns in the comments Below!