Stealth Client Forum

Code: Select all

program test;
var
hamm:Cardinal;
Bank,Svl:Cardinal;
Begin
		Svl := FindType($0F39,Backpack);
			AddToSystemJournal('Sovel in backpack - '+IntToStr(FindCount));
		Hamm:= FindType($13E3,Backpack);
			AddToSystemJournal('Hammer in backpack - '+IntToStr(FindCount));
		moveXY(1434,1680,false,0,false);//Bank coord's
                                
 AddToSystemJournal('Try open Bank...');
		uoSay('Bank');
		CheckLag(20000);
		Bank:=objAtLayer(BankLayer);
		while (Bank=0) do begin
			Bank:=objAtLayer(BankLayer);
			wait(500);
		end;

		AddToSystemJournal('Search and move items....');
		Svl:=FindType($0F39,Bank);
		if (Svl=0) then begin
			AddToSystemJournal('No Shovel');
			exit;
		end;  
		MoveItem(FindItem,1,backpack,0,0,0);

		Hamm:=FindType($13E3,Bank);
		if (Hamm=0) then begin
			AddToSystemJournal('No Hamm');
			exit;
		end;  
		UseObject(hamm);
		CheckLag(20000);
		wait(2000);
		if TargetPresent then CancelTarget;

		Svl := FindType($0F39,Backpack);
			AddToSystemJournal('Sovel in backpack - '+IntToStr(FindCount));
		Hamm:= FindType($13E3,Backpack);
			AddToSystemJournal('Hammer in backpack - '+IntToStr(FindCount));
end. 

Code: Select all

**Попытка 1
11:57:19 []: Compiling
11:57:19 []: Compiled succesfully
11:57:19 []: Sovel in backpack - 0
11:57:19 []: Hammer in backpack - 0
11:57:19 []: Try open Bank...
11:57:20 []: Search and move items....
11:57:22 []: Sovel in backpack - 1
11:57:22 []: Hammer in backpack - 0 <- Hammer в руке
11:57:22 []: Succesfully executed
11:57:22 []: Script test.sc stopped successfuly

**Попытка 2
12:02:11 []: Compiling
12:02:11 []: Compiled succesfully
12:02:11 []: Sovel in backpack - 1
12:02:11 []: Hammer in backpack - 0
12:02:11 []: Try open Bank...
12:02:11 []: Search and move items....
12:02:14 []: Sovel in backpack - 2
12:02:14 []: Hammer in backpack - 1 <- 2й Hammer упал в пак(1й в руке)
12:02:14 []: Succesfully executed
12:02:14 []: Script test.sc stopped successfuly

Code: Select all

const 
  toolbox = $40FCBA3C;
begin
      uoSay('Bank'); 
         wait(500);
Bank:=objAtLayer(BankLayer); 
      while (Bank=0) do begin 
         Bank:=objAtLayer(BankLayer); 
         wait(500); 
      end;
if GetParent(toolbox)=Bank then....