Well, this is my ess mining procedure, it isnt great, so could any one help me fix it up??
Thanks..Code: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;
~Bigfish


Reply With Quote








