Jump to content

Lineage 2

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

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

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

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

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

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


Алхимия ( чтоб складывал в паки)


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

#1
c0ca1ne

c0ca1ne

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

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

Парни , подкиньте скрпт чтоб варил бутылки и скидывал в пончи например ... 



#2
Get Out

Get Out

    Путешественник

  • Пользователи
  • PipPip
  • 52 posts
Какие бутылки варил? Можешь дать скайп и написать, что нужно, накатаю тогда скрипт.

#3
c0ca1ne

c0ca1ne

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

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

Какие бутылки варил? Можешь дать скайп и написать, что нужно, накатаю тогда скрипт.

Ответил в ЛС



#4
долби

долби

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 600 posts
program alchemy;
 
 
{$Include 'all.inc'}
 
 
const
mortal  =  $0E9B;
mr    =  $0F86;
ns    =  $0F88;
gi    =  $0F85;
sa    =  $0F8C;
container = $0E80; // тип сумок
sunduk1 = $48882630;  //ид сундука с пустыми сумками
sunduk2 = $4888212F;  //ид сундука с регами и в него складываются полные сумки
medit = true; //качать медитацию или нет   true(да), false(нет)
 
var
t: TDateTime;
n: TDateTime;
r:integer;
telo: cardinal;
 
procedure eval;
var
d, t: TDateTime;
 
begin
d:=StrToTime('0:00:11');
if ((now - n) > d) or (n = 0) then
begin
t:=now;
//UnEquip(RhandLayer);
hungry(1, backpack);
if WarMode = true then SetWarMode(false);
if r=5 then
begin
uosay('.fixme');
WaitJournalLineSystem(t, 'This|исправленны', 3000);
wait(1000);
UseSkill('Spirit Speak');
WaitJournalLineSystem(t, 'This|netherworld', 3000);
r:=1;
end;
if (r=4) and (medit=true) then
begin
Equip(EarLayer,$439F0971); // ИД шмотки которую надо одевать и слой куда одевать
UseSkill('Meditation');
WaitJournalLineSystem(t, 'This|stop meditating', 5000);
UnEquip(EarLayer);      //слой откуда нужно снять вешь после медитации
r:=r+1;
end
else
begin
WaitTargetSelf;
UseSkill('Evaluating Intelligence');
r:=r+1;
WaitJournalLineSystem(t, 'This|tell', 3000);
end;
n:=now;
end;
end;
 
 
Procedure alx_str;
Begin
CancelMenu;
WaitMenu('a', '(2)');
if TargetPresent then CancelTarget;
WaitTargetType(mr);
usetype(mortal,$ffff);
end;
 
Procedure alx_pois;
Begin
CancelMenu;
WaitMenu('a', '(2)');
if TargetPresent then CancelTarget;
WaitTargetType(ns);
usetype(mortal,$ffff);
end;
 
Procedure alx_heal;
Begin
CancelMenu;
WaitMenu('a', '(2)');
if TargetPresent then CancelTarget;
WaitTargetType(gi);
usetype(mortal,$ffff);
end;
 
Procedure alx_exp;
Begin
CancelMenu;
WaitMenu('a', '(2)');
if TargetPresent then CancelTarget;
WaitTargetType(sa);
usetype(mortal,$ffff);
end;
 
Procedure alx_gh;
Begin
CancelMenu;
WaitMenu('a', 'Greater');
if TargetPresent then CancelTarget;
WaitTargetType(gi);
usetype(mortal,$ffff);
end;
 
Procedure alx_gp;
Begin
CancelMenu;
WaitMenu('a', 'Greater');
if TargetPresent then CancelTarget;
WaitTargetType(ns);
usetype(mortal,$ffff);
end;
 
Procedure alx_dp;
Begin
CancelMenu;
WaitMenu('a', 'Deadly');
if TargetPresent then CancelTarget;
WaitTargetType(ns);
usetype(mortal,$ffff);
end;
 
procedure otsevsumok;
 
begin
findtype(container,backpack);
if Findcount = 0 then
begin
Grab(findtype(container,sunduk1), 1);
UseObject(sunduk1);
wait(1000);
end;
if (Findcount > 0) then
begin
findtype(container,backpack);
UseObject(finditem);
if  CountEx($FFFF,$FFFF,findtype(container,backpack))> 499 then         //макс итем влезающих в сумку минус 1       
begin
moveitem(findtype(container,backpack),1,sunduk2,0,0,0);
wait(1000);
UseObject(sunduk1);
wait(1000);
findtype(container,sunduk1);
if (Findcount > 0) then Grab(findtype(container,sunduk1), 1);
end;
end;
end;
 
 
procedure otsevbanok;
 
  begin 
          findtype(container,backpack);
          if (Findcount > 0) then
          telo:= finditem;
          if not LastContainer = telo then UseObject(finditem);
      if (FindType($0F09,backpack) > 0) then MoveItem(finditem,0,telo,0,0,0); 
      if (FindType($0F0A,backpack) > 0) then MoveItem(finditem,0,telo,0,0,0);
      if (FindType($0F0D,backpack) > 0) then MoveItem(finditem,0,telo,0,0,0);
      if (FindType($0F0C,backpack) > 0) then MoveItem(finditem,0,telo,0,0,0);
   end;
   
  Procedure Checkmaterials;
begin
FindType(mr, Backpack);
if FindQuantity < 20 then 
begin
MoveItem(FindItem, 0, sunduk1, 0, 0, 0);
UseObject(sunduk2) 
if FindType(mr, sunduk2) > 0 then MoveItem(FindItem, 0, Backpack, 0, 0, 0);
end;
FindType(gi, Backpack);
if FindQuantity < 20 then 
begin
MoveItem(FindItem, 0, sunduk1, 0, 0, 0);
UseObject(sunduk2) 
if FindType(gi, sunduk2) > 0 then MoveItem(FindItem, 0, Backpack, 0, 0, 0);
end;
FindType(ns, Backpack);
if FindQuantity < 20 then 
begin
MoveItem(FindItem, 0, sunduk1, 0, 0, 0);
UseObject(sunduk2) 
if FindType(ns, sunduk2) > 0 then MoveItem(FindItem, 0, Backpack, 0, 0, 0);
end;
FindType(sa, Backpack);
if FindQuantity < 20 then 
begin
MoveItem(FindItem, 0, sunduk1, 0, 0, 0);
UseObject(sunduk2) 
if FindType(sa, sunduk2) > 0 then MoveItem(FindItem, 0, Backpack, 0, 0, 0);
end;
end;
 
Begin
while not Dead do
begin
if Connected then
begin
Checkmaterials;
eval;
t:=now;
if TargetPresent then CancelTarget;
        CheckSave;
 
    if (GetSkillValue('Alchemy') < 47.0) then alx_str;  
    if (GetSkillValue('Alchemy') < 57.0) and (GetSkillValue('Alchemy') > 46.9) then alx_pois;
    if (GetSkillValue('Alchemy') < 68.0) and (GetSkillValue('Alchemy') > 56.9) then alx_heal;
    if (GetSkillValue('Alchemy') < 80.0) and (GetSkillValue('Alchemy') > 67.9) then alx_exp;
    if (GetSkillValue('Alchemy') < 88.0) and (GetSkillValue('Alchemy') > 79.9) then alx_gh;
    if (GetSkillValue('Alchemy') < 102.0) and (GetSkillValue('Alchemy') > 87.9) then alx_gp;
    if (GetSkillValue('Alchemy') < 122.0) and (GetSkillValue('Alchemy') > 101.9) then alx_dp;
    if (GetSkillValue('Alchemy') > 121.9) then
     begin
      AddToSystemJournal('Алхимии теперь 122');
      setarstatus(false);
      disconnect;
     end;
    WaitJournalLineSystem(t, 'This|stop griding', 12000);
    otsevsumok;
    otsevbanok;
  end;
  end;
 
END.






0 user(s) are reading this topic

members, guests, anonymous users