Jump to content

Lineage 2

Не пропустите!

ВАЖНЫЕ ОБСУЖДЕНИЯ НА ФОРУМЕ:
ZULUHOTEL СНОВА ONLINE! РЕГИСТРАЦИЯ ОТКРЫТА!

Все последние новости, информация о событиях на Zuluhotel, чат с админами и игроками в нашем телеграм канале: @ZuluhotelRussia
А еще у нас есть канал в Discord!
 
К сожалению, форумный формат общения себя изживает и активности на форуме с каждым днем всё меньше.
Самый быстрый способ получить ответ на вопрос - воспользоваться нашим Telegram каналом или Discord'oм.

Присоединяйся! Общайся!

Хеллоу! Общежитие слушает.

ШАРД РАБОТАЕТ! ЗАХОДИ К НАМ В ДИСКОРД И В ТЕЛЕГРАМ!


Blacksmithy


  • You cannot reply to this topic
6 replies to this topic

#1
Fau

Fau

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 395 posts

Аллоха!

 

Есть у кого скрипрт, чтоб распихивал по сумкам, созданные предметы? а то пак переполняется.

Спасибо!



#2
Olimpik

Olimpik

    Искатель Сокровищ

  • Пользователи
  • PipPipPip
  • 89 posts
  • Location:Екатеринбург

Аллоха!

 

Есть у кого скрипрт, чтоб распихивал по сумкам, созданные предметы? а то пак переполняется.

Спасибо!

Вот это добавь к своему скрипту:
var
sumka1, item1: cardinal;
 
const
 
item_type1 = $13FD;     // тут указываем тип изделия
container1 = $0E79;
sunduk2 = ...;
 
 
procedure otsev1; // убираем готовые изделия в контейнер, как контейнер полон убираем его в сундук
begin
   FindType(container1,backpack);
   if (Findcount > 0) then
   begin
      sumka1 := FindItem;
      if (GetQuantity(FindType(item_type1,backpack)) > 0) then
      begin
      UseObject(sumka1);
         repeat
         item1 := FindType(item_type1,backpack);
         if item1 = 0 then break;
         MoveItem(item1,1,sumka1,0,0,0);
         Wait(1000);
         until (CountEx(item_type1,$FFFF,sumka1) > 295);
      end;
      if (CountEx(item_type1,$FFFF,sumka1) > 295) then
      begin
         // ignore(sumka1);
         MoveItem(sumka1,1,sunduk2,0,0,0);
         Wait(1000);
      end;
   end
   else
      begin
         AddToSystemJournal('Zakonchilis korobki');
      end;
end;

 

 



#3
dima

dima

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 294 posts

 

program bs; {$Include 'all.inc'} const Skit = $13E3;  //молоток ingot = $1BF2; //инготы item_type = $0000; //штоделаем container = $0E79; //сумки sunduk = $472478D2;  //куда складывать полные сумки var x, k: Integer; sumka, item: cardinal; TimeStart : TDateTime; procedure ArmsLore; begin     if TargetPresent then CancelTarget;     WaitTargetObject(FindType($0F51,backpack));     UseSkill('Arms Lore');     Wait(10000); end;    procedure ToTrash(ItemType: Word); begin    FindType(container,backpack);    if (Findcount > 0) then    begin       sumka := FindItem;       if (GetQuantity(FindType(item_type,backpack)) > 0) then       begin       UseObject(sumka);          repeat          item := FindType(item_type,backpack);          if item = 0 then break;          MoveItem(item,1,sumka,0,0,0);          Wait(1000);          until (CountEx(item_type,$FFFF,sumka) > 299);       end;       if (CountEx(item_type,$FFFF,sumka) > 299) then       begin          // ignore(sumka);          MoveItem(sumka,1,sunduk,0,0,0);          Wait(1000);       end;    end    else       begin          AddToSystemJournal('Закончились сумки');          exit;       end; end; procedure MakeItem; begin     CancelMenu;     WaitMenu('make','Weapons');   //тут выставить што крафтим     WaitMenu('kind', 'Swords');   //тут выставить што крафтим     WaitMenu('make','Dagger');    //тут выставить што крафтим     WaitTargetObject(FindType(ingot,Backpack));     UseType(Skit,$FFFF); end; Procedure CheckQuantity; label flag; begin flag:     FindType(ingot,Backpack);     AddToSystemJournal('ingot left: ' + IntToStr(FindFullQuantity));     if (FindFullQuantity < 14) then         begin         FindDistance := 0;         FindType(ingot,Ground);         AddToSystemJournal('Найдено ingot на полу: ' + IntToStr(FindFullQuantity));         if (FindCount = 0) then             begin             AddToSystemJournal('No more ingot around');             ArmsLore;             goto flag;             end;         MoveItem(FindItem,20000,Backpack,0,0,0);         AddToSystemJournal('Picked up some ingot');         Wait(1000);         goto flag;         end; end; procedure AddItemToContainer(Obj, Cont: Cardinal); begin     if (Cont = Backpack) and (GetQuantity(Obj) = 1) then ToTrash(GetType(Obj)); end; Begin SetARStatus(true); SetEventProc(evAddItemToContainer,'AddItemToContainer'); while (not Dead) and (Connected) do     begin     Hungry(1,Ground);     Wait(1000);     for x := 0 to 100 do       begin         k:=0;         TimeStart:=Now;         CheckSave;         CheckQuantity;         MakeItem;         repeat         Wait(1000);         k := k + 1;         wait(500);         until (InJournalBetweenTimes('stop', TimeStart, Now)<>-1);       end;     end; End.


Edited by dima, 21 March 2017 - 07:50 AM.


#4
Fau

Fau

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 395 posts
Спасибо!

#5
Made In Malaysia

Made In Malaysia

    Истребитель Нечисти

  • Пользователи
  • PipPipPipPip
  • 115 posts

Нашел чтоб просто по сумкам сортировал )


Edited by Made In Malaysia, 19 September 2017 - 12:23 PM.


#6
долби

долби

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 600 posts
program moveitem;
{$Include 'all.inc'}
 
const
item_type = $1411;
container = $0E76;
sunduk = $4076B35E;    //сундук
var
telo: cardinal;
 
procedure otsev;
begin
findtype(item_type,backpack);
if FindQuantity > 0 then
moveitem(findtype(item_type,backpack),1,findtype(container,backpack),0,0,0);
wait(500);
end;
 
procedure otsev2;
begin
findtype ($1BF2,backpack)
if FindFullQuantity< 15 then
begin
wait(15000);
MoveItems(backpack, $1BDD, $FFFF, sunduk, 0, 0, 0, 50);
wait(1500);
findtype ($1BF2,ground);
grab(finditem,60000);
wait(500);
end;
end;
 
Procedure makegobno;
Begin
CancelMenu;
WaitMenu('What', 'Armors'); 
WaitMenu('armor', 'Platemail'); 
WaitMenu('make', 'Platemail Legs'); 
if TargetPresent then CancelTarget; 
findtype($1BF2,backpack);            //инготы
WaitTargetObject(finditem);
wait(1500);
usetype($13E3,$ffff);               //молоток
wait(1500);
end; 
 
begin
SetARStatus(true);
while True do
begin
wait (500);
findtype(container,backpack);
UseObject(finditem);
if (Findcount > 0) then  
begin
telo:=finditem;
if  CountEx($FFFF,$FFFF,telo)>299 then
ignore(telo);
otsev2;
makegobno;
otsev;
end;
end;
end.


#7
долби

долби

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 600 posts

ВРоде должен работать, правда хз какой принцип работы у него :)







0 user(s) are reading this topic

members, guests, anonymous users