Starblaster100
06-10-2006, 12:18 AM
AWalk2 is a very powerful way of mapwalking long distances very easily. Basically it clicks at a specific angle and keeps clicking at that specific angle until it finds a color on the minimap that you specify.
For example, if you put:
AWalk2(90, 50, 123456);
It doesn't matter which way the minimap is facing, it will constantly walk east, clicking at a radius of 50 from the minimap center until it finds the color 123456.
It may not be as powerful as Radial and Linear Walk, but its still a useful function to use, and i have used it many times :)
procedure AWalk2(Angle, Radius, Color: Integer);
var
awx, awy, tout, Temp, Radius2, x1, y1 : Integer;
TempAngle, CurrentMinimapAngle : extended;
CompassBool : Boolean;
begin
Radius2 := Radius;
If (Radius = 0)or(Radius2 = 0)or(Radius > 57)or(Radius2 > 57)then
Radius2 := 57;
repeat
Temp := 0;
tout := tout + 1;
TempAngle := Angle;
CurrentMinimapAngle := DetectRS2MinimapAngle(CompassBool);
If (CurrentMinimapAngle = -1)Then
begin
Writeln('Minimap not Found!');
Exit;
end;
CurrentMinimapAngle := 360 - CurrentMinimapAngle * (180 / Pi);
TempAngle := TempAngle - CurrentMinimapAngle;
X1 := Round ( Radius2 * Sin (TempAngle * Pi / 180)) + 648;
Y1 := Round (- Radius2 * Cos (TempAngle * Pi / 180)) + 84;
Mouse(x1-2, y1-2, 4, 4, True);
wait(500);
if (FlagPresent=false) then
begin
repeat
Mouse(x1-2, y1-2, 4, 4, True);
Wait(500);
tout := tout + 1;
until (FlagPresent) or (FindColor(awx, awy, color, 569, 8, 723, 160)) or (Tout > 20);
if (tout > 20) then
begin
writeln('AWalk2 by Starblaster100 - Could not Click!');
logout;
end;
end;
repeat
Wait(250);
Temp := Temp + 1;
until not(FlagPresent)or(Temp > 29)
if(Color = 0)then
Exit;
awx := 648;
awy := 84;
until (FindColor(awx, awy, color, 569, 8, 723, 160)) or (Tout > 20);
end;
For example, if you put:
AWalk2(90, 50, 123456);
It doesn't matter which way the minimap is facing, it will constantly walk east, clicking at a radius of 50 from the minimap center until it finds the color 123456.
It may not be as powerful as Radial and Linear Walk, but its still a useful function to use, and i have used it many times :)
procedure AWalk2(Angle, Radius, Color: Integer);
var
awx, awy, tout, Temp, Radius2, x1, y1 : Integer;
TempAngle, CurrentMinimapAngle : extended;
CompassBool : Boolean;
begin
Radius2 := Radius;
If (Radius = 0)or(Radius2 = 0)or(Radius > 57)or(Radius2 > 57)then
Radius2 := 57;
repeat
Temp := 0;
tout := tout + 1;
TempAngle := Angle;
CurrentMinimapAngle := DetectRS2MinimapAngle(CompassBool);
If (CurrentMinimapAngle = -1)Then
begin
Writeln('Minimap not Found!');
Exit;
end;
CurrentMinimapAngle := 360 - CurrentMinimapAngle * (180 / Pi);
TempAngle := TempAngle - CurrentMinimapAngle;
X1 := Round ( Radius2 * Sin (TempAngle * Pi / 180)) + 648;
Y1 := Round (- Radius2 * Cos (TempAngle * Pi / 180)) + 84;
Mouse(x1-2, y1-2, 4, 4, True);
wait(500);
if (FlagPresent=false) then
begin
repeat
Mouse(x1-2, y1-2, 4, 4, True);
Wait(500);
tout := tout + 1;
until (FlagPresent) or (FindColor(awx, awy, color, 569, 8, 723, 160)) or (Tout > 20);
if (tout > 20) then
begin
writeln('AWalk2 by Starblaster100 - Could not Click!');
logout;
end;
end;
repeat
Wait(250);
Temp := Temp + 1;
until not(FlagPresent)or(Temp > 29)
if(Color = 0)then
Exit;
awx := 648;
awy := 84;
until (FindColor(awx, awy, color, 569, 8, 723, 160)) or (Tout > 20);
end;