Stealth Client Forum

Code: Select all

procedure checksilk(gx, gy: word);

  var
    r: integer;

  begin
    finddistance := 1;
	ignorereset;
    for r := 1 to high(spiderwebtype) do begin
	  while findtype(spiderwebtype[r], ground) > 0 do begin
	    if (getx(finditem) = gx) AND (gety(finditem) = gy) then begin
	      useobject(finditem);
		  checksave;
		  wait(300);
		  continue;
	    end;
		ignore(finditem);
	  end;

	end;
	finddistance := 25;
  end;

Code: Select all

function mymovexy(gx, gy: word; running: boolean): boolean;

  var
    r: integer;
	stepcount: integer;
    patharray: tpatharray;

  begin
    while (getx(self) <> gx) OR (gety(self) <> gy) do begin

	  stepcount := getpatharray(gx, gy, false, 0, patharray);
	  if stepcount = -1 then begin
	    result := false;
		exit;
	  end;

	  for r := 0 to stepcount-1 do begin
	    checksilk(patharray[r].x, patharray[r].y);
	    if NOT newmovexy(patharray[r].x, patharray[r].y, false, 0, running) then break;
        checksave;
		if running then wait(200) else wait(400);
	  end;
	end;
  end;