solemn wishes
2006-03-29 12:07:09
hey,
well the findclosest function finds the closest color to you on the minimap and clicks it, works very well for monster killing/item picking up and the runfrom function will run from a specified color, may be useful for lvl 3's who arew picking stuff up in dangerouse places or something :)
well the findclosest function finds the closest color to you on the minimap and clicks it, works very well for monster killing/item picking up and the runfrom function will run from a specified color, may be useful for lvl 3's who arew picking stuff up in dangerouse places or something :)
function findclosest(color :integer):boolean;
var x1, y1, x2, y2 : integer;
xd, yd : integer;
begin
x1:=648;
y1:=84;
x2:=4;
y2:=4;
xd:=x1;
yd:=y1;
begin
repeat
x1:= x1 - x2;
y1:= y1 - y2;
xd:= xd + x2;
yd:= yd + y2
if(findcolorspiral(x,y,color,x1,y1,xd,yd))then
begin
Mouse(x,y,1,1,true)
flag;
result:=true;
end;
wait(25+random(20))
until(result)or(y1=4)
end;
end;
function runfrom(maxXdis, maxYdis, color : integer):boolean;
var x1, y1, x2, y2 : integer;
runx, runy : integer;
begin
x1:=648;
y1:=84;
x2:=x1;
y2:=y1;
begin
repeat
x1:= x1 - 1;
y1:= y1 - 1;
x2:= x2 + 1;
y2:= y2 + 1;
if(findcolor(x,y,color,x1,y1,x2,y2))then
begin
result:=true;
end;
until(result)or(x1=maxXdis)
begin
runx:=0;
runy:=-35;
Mouse(runx + 648, runy + 83,1,1,true);
flag;
Mouse(648 - runx,83 - runy,1,1,true);
end;
end;
end;