hi this is my procedure for my yew cutter which uses radialwalk but it doesnt work:
// -RadialWalk
function RadialWalk1(TheColor:Integer; StartRadial, EndRadial:Integer; Radius:Integer): Boolean;
var i: Integer;
var X1, Y1: integer;
begin
if StartRadial < EndRadial then
begin
repeat
for i:=StartRadial to EndRadial do
begin
X1:=Round ( Radius * Sin (i * Pi / 180)) + 646;
Y1:=Round (- Radius * Cos (i * Pi / 180)) + 84;
MoveMouse(X1, Y1);
HoldMouse(X1, Y1, True);
ReleaseMouse(X1, Y1, True);
Flag;
Exit;
end
Radius:= Radius - 4;
until Radius <= 1 ;
end
if StartRadial > EndRadial then
begin
repeat
for i:=StartRadial Downto EndRadial do
begin
X1:=Round ( Radius * Sin (i * Pi / 180)) + 646;
Y1:=Round (- Radius * Cos (i * Pi / 180)) + 84;
MoveMouse(X1, Y1);
HoldMouse(X1, Y1, True);
ReleaseMouse(X1, Y1, True);
Flag;
Exit;
end
Radius := Radius - 4;
until Radius <= 1;
end
end;
// -DebugMe/Outputs Debug info
procedure DebugMe(aString: string; Importance: Integer);
begin
if(DebugLevel >= Importance)then
begin
case LowerCase(DebugStyle) of
'write' : WriteLn(astring);
'disguise' : DisguiseScar(astring);
'status' : Status(astring);
end;
end;
end;
// -SLGetSymbol/Lowers acc for better finding
function SLGetSymbol(var ax, ay: Integer; Symbol: string): Integer;
begin
SymbolAccuracy := 0.7;
if(Lowercase(Symbol) = 'bank')then
SymbolAccuracy := 0.3;
Result := GetSymbolColor(ax, ay, Symbol);
DebugMe(IntToStr(ax)+' '+IntToStr(ay), 1);
SymbolAccuracy := 0.8;
end;
// -Walk To Yew
procedure WalkToYew1;
begin
RadialWalk(6645101,89, 449, 61, 1, 1);
end;
// -Walk To Yew
procedure WalkToYew2;
begin
RadialWalk(2316643, 89, 449, 53, 1, 1);
end;
// -Walk To Yew
procedure WalkToYew3;
var
x, y: Integer;
begin
FindSymbol(x,y,'dungeon')
Mouse(x,y,4,4,true);
Flag;
end;
// -Walk To Yew
procedure WalkToYew4;
begin
RadialWalk(2185823, 75, 435, 71, 1, 1);
end;
// -Walk To Yew
procedure WalkToYew5;
begin
RadialWalk(1866336,61, 421, 73, 1, 1);
end;
// -Walk To Yew
procedure WalkToYew6;
var
x, y: Integer;
begin
FindSymbol(x,y,'tree');
Mouse(x,y,4,4,true);
Flag;
end;
// -Walk To Bank
procedure BankWalker1;
begin
RadialWalk(1866350, 269, 629, 71, 1, 1);
end;
// -Walk To Bank
procedure BankWalker2;
begin
RadialWalk(2452069, 242, 602, 67, 1, 1);
end;
// -Walk To Bank
procedure BankWalker3;
var
x,y: integer;
begin
FindSymbol(x,y,'dungeon')
Mouse(x,y,4,4,true);
Flag;
end;
// -Walk To Bank
procedure BankWalker4;
begin
RadialWalk(6381929, 269, 629, 67, 1, 1);
end;
// -Walk To Bank
procedure BankWalker5;
begin
RadialWalk(6381929, 269, 629, 54, 1, 1);
end;
// -Walk To Bank
procedure BankWalker6;
var
x,y: integer;
begin
FindSymbol(x,y,'bank');
Wait(100)
Mouse(x,y,4,4,true);
Flag;
end;
it moves the mouse on the left corner of screen and searchs for the yew but it has not even walked to it so i dont know what to do.
+ i have read the tut of radialwalk by fawaki and when i use his radial function the mouse goes crazy on mmp and laggs alot, you should try..![]()


Reply With Quote





