Stealth Client Forum

Code: Select all

  procedure Get_Gold;
  var tmpgold : cardinal;
      tmpgoldcount : integer;
    begin
	  checksave;
	  UseObject(FindType(Corpse,ground));
	  checklag;
	  wait(2000);
	  tmpgold := FindType(Gold_Coins,Corpse);
	  If FindCount >= 1 then
	    begin
		  tmpgoldcount := GetQuantity(FindItem);
		  checklag;
		  wait(500);
		  MoveItem(tmpgold,tmpgoldcount,backpack,0,0,0);
		  AddToSystemJournal('-= Золото найдено, положил в backpack =-');
		end
	  else
	    begin
		  AddToSystemJournal('-= Нет золота в трупе о_0 , шота тут не то... =-');
		end;
	end;

Code: Select all

     UseObject(FindType(Corpse,ground)); 
     checklag; 
     wait(2000); 
     tmpgold := FindType(Gold_Coins,Corpse);

Code: Select all

FindType(Gold_Coins,Corpse);

Code: Select all

     FindType(Corpse,ground); 
     FindType(Gold_Coins,Corpse);

Code: Select all

  procedure Get_Gold;
  var tmpgold : cardinal;
      tmpgoldcount : integer;
    begin
	  FindType(Corpse,ground);
	  checksave;
	  UseObject(FindItem);
	  checklag;
	  wait(2000);
	  FindType(Gold_Coins,Corpse);
	  tmpgold := FindType(Gold_Coins,Corpse);
	  If FindCount >= 1 then
	    begin
		  tmpgoldcount := GetQuantity(FindItem);
		  checklag;
		  wait(500);
		  MoveItem(tmpgold,tmpgoldcount,backpack,0,0,0);
		  AddToSystemJournal('-= Золото найдено, положил в backpack =-');
		end
	  else
	    begin
		  AddToSystemJournal('-= Нет золота в трупе о_0 , шота тут не то... =-');
		end;
	end;

Code: Select all

FindType(Corpse,ground); 

Code: Select all

FindType(Gold_Coins,Corpse);