PDA

View Full Version : Can any one help me fix this up?



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

Jagex_Fagex
10-23-2006, 11:48 AM
so, what exactly isnt great about it?? you need to be more specific if you want help

Bigfish58
10-23-2006, 12:37 PM
Lol, well..
Say if it finds the ess it will click it, then start mining it, then after the waits, it will click where to mouse is :/ I need it to Click the ess, then sort of lock that mouse position so it dosent wonder off some place :D

If you still dont understand, just say

Boreas
10-23-2006, 12:46 PM
Keeping the mouse in one place is suspicious. You can let it wander, as long as you remember where it was. Use one set of x and y for the position you want to keep (xa,ya for example) and another for wandering, hoverskill etc (xb,yb for example).

Jagex_Fagex
10-24-2006, 07:31 AM
maybe you could makeit click on the ess.. then while it is mining.. go getmousepos(x, y) and it will lock those co-ordinates in the x and y vars. need more help? hitme up on msn