MoveItem

[-=JoKeR=-]

не хочет перекидывать...
что ему нужно ?

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;

[Scripts Writer]

FindItem используй

[-=JoKeR=-]

использовал

[Scripts Writer]

Code: Select all

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

Corpse, я так понимаю, это тип?

[-=JoKeR=-]

Да, ты правильно понял =)

[Scripts Writer]

Разобрался?

[grundick]

по контексту видимо да

[-=JoKeR=-]

Не не, не разобрался, я бы написал =)
Что там не так ?

[Scripts Writer]

Code: Select all

FindType(Gold_Coins,Corpse);

[-=JoKeR=-]

и? =)
поподробнее, без намёков )

[Scripts Writer]

Code: Select all

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

[-=JoKeR=-]

ноль на массу...
не хочет

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;

[Vano]

Вот смотри:

Code: Select all

FindType(Corpse,ground); 

Здесь ты ищешь труп по типу, а вот здесь:

Code: Select all

FindType(Gold_Coins,Corpse); 

Ты ищешь деньги в трупе. Но Corpse - это тип, а не ID.

[Scripts Writer]

Издеваешься? Как ты тип тела Corpse можешь использовать как контейнер?

[-=JoKeR=-]

Тю блин, так бы и сказал сразу =)
Я просто целый день пишу программу, моцк не сильно соображает уже.
Всё разобрался, всем спасибо.
Можно:
[Close]