Stealth Client Forum

Code: Select all

const
MineX = 1;
MineY = 2;

procedure CheckCord(var x:word;y:word;run:Boolean);
begin
while (x<>GetX(self)) and (y<>Gety(self))do
begin
NewMoveXY(x,y,false,0,run);
checksave; 
end;
end;

begin
CheckCord(MineX,MineY,True);
end.

Code: Select all

procedure CheckCord(x:word;y:word;run:Boolean);

Code: Select all

sub MakeTradeDeed()
  var tType, cColor
  
  uo.AddObject('What')
  while uo.Targeting()
    wait(100)
  wend
  
  tType = uo.GetGraphic('What')
  cColor = uo.GetColor('What')

Code: Select all

while (x<>GetX(self)) and (y<>Gety(self))do

Code: Select all

procedure CheckCord(x:word;y:word;run:Boolean);
begin
AddToSystemJournal('X задано- '+inttostr(x) + ' Х мое- '+inttostr(GetX(self))+' У задано- '+inttostr(y)+' У мое-'+inttostr(Gety(self)));
while (x<>GetX(self)) and (y<>Gety(self))do
begin
AddToSystemJournal('X задано- '+inttostr(x) + ' Х мое- '+inttostr(GetX(self))+' У задано- '+inttostr(y)+' У мое-'+inttostr(Gety(self)));
NewMoveXY(x,y,false,0,run);
checksave; 
end;
end;

while dead do
begin
checksave;
AddToSystemJournal('92 ищу крест');
CheckCord(1119,3170,true);
UseObject(resurect);
checksave;
wait (1000);
end;