Stealth Client Forum

Code: Select all

program FOOD;
const
DestChest=$40067ff2;
TrashBarel=$4005f4ad;
var
a:array[1..9] of cardinal;
i:integer;

procedure MF;
begin
   for i:=1 to 9 do
      if count(a[i])>0 then begin
         Moveitem(FindType(a[i],$ffff),0,DestChest,0,0,0);
         wait(800);
      end;
end;
  
procedure MT;
begin
   while Count($09eb)>0 do
      for i:=1 to Count($09eb) do begin
         Moveitem(FindType($09eb,$ffff),0,TrashBarel,0,0,0);
         wait(600);
      end;
end;

begin;
a[1]:=$09c9;
a[2]:=$09f2;
a[3]:=$09c0;
a[4]:=$09b7;
a[5]:=$09d1;
a[6]:=$09d0;
a[7]:=$097d;
a[8]:=$097b;
a[9]:=$09d2;
while true do begin
   repeat
      Cast('Create Food');
      wait(400)
   Until weight>300;
   MF;
   MT;
end;
end.

Code: Select all

Procedure razgruzz;
begin
//addtosystemjournal('ra-zz');
while count(ore)>0 do begin
   //addtosystemjournal(inttostr(count(ore)));
   MoveItem(FindType(Ore,$ffff),0,Sunduk,0,0,0);
   wait(600);
end;
for i:=1 to 6 do if count(b[i])>0 then begin
   MoveItem(FindType(b[i],$ffff),0,Sunduk,0,0,0);
   wait(600);
end;
wait(1000);
end;

Code: Select all

function Ground: Cardinal; // указатель на землю - используется в поиске и пр. 

Code: Select all

function Count(ObjType: Word): Integer; // количество обьектов по типу в бакпаке 

Code: Select all

procedure MF; 
begin 
   for i:=1 to 9 do 
      if count(a[i])>0 then begin 
         Moveitem(FindType(a[i],$ffff),0,DestChest,0,0,0); 
         wait(800); 
      end; 
end; 

Code: Select all

procedure MF;
begin
   for i:=1 to 9 do
      if count(a[i])>0 then begin
        UseObject(DestChest);
        wait(2000);
         Moveitem(FindType(a[i],Backpack),0,DestChest,0,0,0);
         wait(800);
      end;
end;

Code: Select all

procedure kopp;
begin
//addtosystemjournal('Ko-pp');
for i:=1 to 8 do begin
  addtosystemjournal('Копаем '+inttostr(i)+'й раз');
    if count(kr)=0 then begin
      Break;
      addtosystemjournal('Кирок не осталось, конец текущей итерации');
   end;
     WaitTargetXYZ(GetX(self),Gety(self)-1,GetZ(self));
     UseObject(FindType(Kr,$ffff));
     Wait(2000);  
end;
end;

Code: Select all

procedure kopp;
begin
if  weight<450  Then begin
   Break;
     addtosystemjournal('Перегруз!');
end;                                                  
   if count(kr)=0 then begin
      Break;
      addtosystemjournal('Кирок не осталось, конец текущей итерации');
   end;
     WaitTargetXYZ(GetX(self),Gety(self)-1,GetZ(self));
     UseObject(FindType(Kr,$ffff));
     Wait(2000);  
end;
end;

Code: Select all

Moveitem(FindType($09eb,$ffff),0,FindType($09eb,TrashBarel),0,0,0);

Code: Select all

procedure kopp;
begin
while weight < 450 do            //Если вес меньше 450, работать. Надо weight где как то прописывать? 
begin
   if count(kr)=0 then            //Проверяет если лопаты по типу прописанному в начале, если = 0 то....
    begin
      Break;
      addtosystemjournal('Кирок не осталось, конец текущей итерации');
    end;
     WaitTargetXYZ(GetX(self),Gety(self)-1,GetZ(self));
     UseObject(FindType(Kr,$ffff));
     Wait(2000);  
 end;
end;

Code: Select all

procedure kopp;
const
WorldSaveTime=65000;
begin
while true do begin
	if count(kr)=0 then begin
		addtosystemjournal('Кирок не осталось, конец текущей итерации');
		Break;
	end;
	WaitTargetXYZ(GetX(self),Gety(self)-1,GetZ(self));
	UseObject(FindType(Kr,backpack));
	if not WaitJournalLine(now,'no ore|too far|in rock|You cannot|no line|reach|You loosen|OOPS|in your pack.|Cancelled',WorldSaveTime+2000) then begin
		//timeout on wait answer from server
		//any action...
	end else begin 
		case FoundedParamID of
			0:begin { no ore }
				//any action...
			end;
			1:begin { too far }
				//any action...
			end;
			2:...
			3:
			4:
			...
			8:begin { in your pack. }
			// че-то выкапали проверяем вес
				if (weight>MyMaxWeight) then GoUnload;
				
			end;  
			  
		end;
	end;  
	  
 end;
end;

Code: Select all

Procedure razgruzz;
begin
addtosystemjournal('Разгрузка');
while count(ore)>0 do begin
   //addtosystemjournal(inttostr(count(ore)));
   MoveItem(FindType(Ore,$ffff),0,Sunduk,0,0,0);
   wait(1000);
   CheckSave; 
end;
for i:=1 to 6 do if count(b[i])>0 then begin
   MoveItem(FindType(b[i],$ffff),0,Sunduk,0,0,0);
   wait(1000);
   CheckSave; 
end;
wait(2000);
CheckSave;
end;

Code: Select all

Procedure razgruzz;
begin
  addtosystemjournal('Разгрузка');
  UseObject(Sunduk);
  if LastContainer = Sunduk then
  begin
  addtosystemjournal('Есть сундук, выгружаем');
    while count(ore)>0 do 
    begin
    //addtosystemjournal(inttostr(count(ore)));
    MoveItem(FindType(Ore,$ffff),0,Sunduk,0,0,0);
    wait(1000);
    CheckSave; 
    end;
     for i:=1 to 6 do if count(b[i])>0 then begin
     MoveItem(FindType(b[i],$ffff),0,Sunduk,0,0,0);
     wait(1000);
     CheckSave; 
     end;
  end;
wait(2000);
CheckSave;
end;

Code: Select all

Procedure razgruzz;
begin
if GetDistance(Sunduk) > 2 then exit; //проверка на расстояние до сундука
addtosystemjournal('Разгрузка');
.....