Stealth Client Forum

Code: Select all

program UseSkillhideandstealthwhilemovinginshardunderworldbyASTROBOY; 
{$Include 'all.inc'}
const
xaB4ik:=$????Сюда вписать тип еды
var 
eastpoint,westpoint:integer;
kudabejim:byte;
Begin 
eastpoint:=GetX(self);
westpoint:=GetX(self)-7;
kudabejim:=6;
while not dead do 
begin 
	if GetX(self)<=WestPoint then kudabejim:=2;
	if GetX(self)>=EastPoint then kudabejim:=6; 
	step(kudabejim, false);
	wait(500);
	CheckLag(20000);
	UseObject(FindType(xaB4ik,backpack));
	wait(1000); 
	CheckLag(20000);  
end; 

End. 

Code: Select all

program moverrrrrr; 
{$Include 'all.inc'}
const
xaB4ik:=$????Сюда вписать тип еды
var 
X1,X2,Y1,Y2:integer;
Begin 
//==================
X1:=GetX(self);
Y1:=GetY(self);
X2:=GetX(self);
Y2:=GetY(self)-7;
// в направлении движения не уверен, сам исправишь , недосуг. 
//X2:=GetX(self)-7;,Y2:=GetY(self)-7 либо вместе либо одной из них изменит направление 
//=================
while not dead do 
begin 
	MoveXY(X2,Y2,false,0.false);
	UseObject(FindType(xaB4ik,backpack));
	wait(1000); 
	CheckLag(20000); 
	MoveXY(X1,Y1,false,0.false); 
	UseObject(FindType(xaB4ik,backpack));
	wait(1000); 
	CheckLag(20000);
end; 

End. 

Code: Select all

X1:=2221; 
Y1:=790; 
X2:=2215; 
Y2:=790;

Code: Select all

program moverrrrrr; 
{$Include 'all.inc'} 
const 
xaB4ik=$0000; //<=====Сюда вписать !!! тип !!! еды , а не ID
var 
X1,X2,Y1,Y2:integer; 
Begin 
//================== 
X1:=2221; //<==========Вот они, координаты
Y1:=790; 
X2:=2215; 
Y2:=790;
//================= 
while not dead do 
begin 
   MoveXY(X2,Y2,false,0.false); // <====Вот она ходилка X2:=2215;
   UseObject(FindType(xaB4ik,backpack)); // Кушаем
   wait(1000); //Ждем 1с.
   CheckLag(20000); //Проверка на лаги 
   MoveXY(X1,Y1,false,0.false);  // <====Вот она ходилка X1:=2221;
   UseObject(FindType(xaB4ik,backpack)); // Кушаем
   wait(1000); //Ждем 1с.
   CheckLag(20000); //Проверка на лаги 
end; 

End.

Code: Select all

10:14:06 [b]: Compiling
10:14:06 [b]: Compiled succesfully
10:14:07 [b]: Mover: Resync is pending, ignoring.
10:14:13 [b]: Mover: Resync is pending, ignoring.
10:14:17 [b]: Point X 2222 Y 790 marked as bad to 15 min
10:14:18 [b]: Mover: Resync is pending, ignoring.
10:14:24 [b]: Mover: Resync is pending, ignoring.
10:14:29 [b]: Mover: Resync is pending, ignoring.
10:14:33 [b]: Point X 2222 Y 792 marked as bad to 15 min
10:14:34 [b]: Mover: Resync is pending, ignoring.
10:14:41 [b]: Mover: Resync is pending, ignoring.
10:14:46 [b]: Mover: Resync is pending, ignoring.
10:14:50 [b]: Point X 2224 Y 791 marked as bad to 15 min
10:14:51 [b]: Mover: Resync is pending, ignoring.