Bigfish58
10-23-2006, 09:46 AM
Well, this is my ess mining procedure, it isnt great, so could any one help me fix it up??
procedure Minethatess(Time: Integer);
var Moving: Boolean;
mx, my: Integer;
x, y, xv, yv: Extended;
gx, gy: Extended;
T: Integer;
begin
X := MSX1 + MSY2 * 2.5 ;
Y := MSY1 + MSX2 * 1.1;
Moving := True;
gx := 360 ;
gy := 360 ;
T := GetTickCount;
repeat
Sleep(10);
if (gx > x) then
xv := xv + 0.2
else
xv := xv - 0.2;
if (gy > y) then
yv := yv + 0.2
else
yv := yv - 0.2;
x := x + xv * 3.9-Random(1);
y := y + yv * 15.01+Random(0);
MoveMouse(Round(x+Random(0)), Round(y+Random(0)));
until (Abs(GetTickCount - T) >= Time)or(IsUpTextMulti('Mine','ine','in'))
if(IsUpTextMulti('Mine','ine','in'))then
begin
GetMousePos(mx,my)
repeat
RandomResponder;
Mouse(mx,my,5,5,true)
RandomResponder;
Wait(7000+Random(3000))
RandomResponder;
Wait(1000+Random(1000))
RandomResponder;
Mouse(mx,my,5,5,true)
RandomResponder;
until(invfull)
end
end;
Thanks..
~Bigfish
procedure Minethatess(Time: Integer);
var Moving: Boolean;
mx, my: Integer;
x, y, xv, yv: Extended;
gx, gy: Extended;
T: Integer;
begin
X := MSX1 + MSY2 * 2.5 ;
Y := MSY1 + MSX2 * 1.1;
Moving := True;
gx := 360 ;
gy := 360 ;
T := GetTickCount;
repeat
Sleep(10);
if (gx > x) then
xv := xv + 0.2
else
xv := xv - 0.2;
if (gy > y) then
yv := yv + 0.2
else
yv := yv - 0.2;
x := x + xv * 3.9-Random(1);
y := y + yv * 15.01+Random(0);
MoveMouse(Round(x+Random(0)), Round(y+Random(0)));
until (Abs(GetTickCount - T) >= Time)or(IsUpTextMulti('Mine','ine','in'))
if(IsUpTextMulti('Mine','ine','in'))then
begin
GetMousePos(mx,my)
repeat
RandomResponder;
Mouse(mx,my,5,5,true)
RandomResponder;
Wait(7000+Random(3000))
RandomResponder;
Wait(1000+Random(1000))
RandomResponder;
Mouse(mx,my,5,5,true)
RandomResponder;
until(invfull)
end
end;
Thanks..
~Bigfish