Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

faq:stealth:tailoring [2019/11/18 09:07]
tsatsur создано
faq:stealth:tailoring [2019/11/18 09:17] (текущий)
tsatsur
Строка 41: Строка 41:
  
 procedure ToTrash(ItemType:​ Word); procedure ToTrash(ItemType:​ Word);
-var ItemToTrash, ​Trashbin: Cardinal;+var  
 +ItemToTrash, ​Trash : Cardinal;
 begin begin
   FindDistance := 2;   FindDistance := 2;
-  ​Trashbin ​:= FindType($0E77,​ ground);+  ​Trash := FindType($0E77,​ ground); ​
   if (Count(ItemType) > 0) then   if (Count(ItemType) > 0) then
   begin   begin
     repeat     repeat
       ItemToTrash := FindType(ItemType,​Backpack);​       ItemToTrash := FindType(ItemType,​Backpack);​
-      MoveItem(ItemToTrash,​1,​Trashbin,0,0,0);+      MoveItem(ItemToTrash,​1,​Trash,0,0,0);
       Wait(400);       Wait(400);
     until (Count(ItemType) = 0);     until (Count(ItemType) = 0);
Строка 94: Строка 95:
 Begin Begin
   SetARStatus(true);​   SetARStatus(true);​
-  SetEventProc(evAddItemToContainer,'​AddItemToContainer'​);​+  SetEventProc(evAddItemToContainer,​ '​AddItemToContainer'​);​
   while (not Dead) and (Connected) do   while (not Dead) and (Connected) do
   begin   begin
 
faq/stealth/tailoring.txt · Последние изменения: 2019/11/18 09:17 — tsatsur
 
Recent changes RSS feed Creative Commons License Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki