Jump to content

Lineage 2


Теилоринг


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

#1
долби

долби

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 596 posts
program craft_autoexept;

//фром Nefka

{$Include 'all.inc'}

const
TT = $0F9D; // нитки
Logs = $1765; // трань
bs = $0AC7; //ковры
sunduk = $5ADEC298; //трешка


Procedure make_item;
Begin
CancelMenu;
WaitMenu('What', 'Carpet');
WaitMenu('make', 'Fancy Persian Rag');
if TargetPresent then CancelTarget;
WaitTargetType(Logs);
usetype(TT,$ffff);
end;

Begin
wait(1000);
waitconnection(10000);
checksave;
make_item;
wait(1000);
while ((count(Logs) > 3) or not(Connected)) do
begin
if (not(Connected)) then
begin
waitconnection(10000);
make_item;
wait(1000);
end;
checksave;
WaitGump('0001');
FindType(bs,backpack);
if (findcount > 0) then MoveItems(backpack, bs, $FFFF, sunduk, 0, 0, 0, 50);
wait(100);
checksave;
end;
AddToSystemJournal('End of script');
END.





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

#2
Guest_Константин_*

Guest_Константин_*
  • Гости
у меня почему то не выкидывает в урну..скрипт пытаеться это сделать,но пишеться типо коврик уже задействован..

#3
AloneHunter

AloneHunter

    Модератор

  • Пользователи
  • PipPipPipPipPipPipPip
  • 454 posts
  • Location:Москва
sunduk = $5ADEC298; //трешка


Тут вписал ИД своей трешки?

#4
долби

долби

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 596 posts
Цитата(AloneHunter @ 16.12.2011, 19:32) View Post

sunduk = $5ADEC298; //трешка
Тут вписал ИД своей трешки?

сам щас на нем сижу, все пашет

Edited by долби, 16 December 2011 - 09:33 PM.


#5
Made In Malaysia

Made In Malaysia

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

  • Пользователи
  • PipPipPipPip
  • 115 posts
program ssanie_kovri;
{$Include 'all.inc'}


const
Skit = $0F9D;
Cloth = $1765;
Trashbin = $5CA90EBB;


var x: Integer;


procedure ArmsLore;
begin
    if TargetPresent then CancelTarget;
    WaitTargetObject(FindType($0F51,backpack));
    UseSkill('Arms Lore');
    Wait(10000);
end;   


procedure ToTrash(ItemType: Word);
var ItemToTrash: Cardinal;
begin
if (Count(ItemType) > 0) then
    begin
    repeat
    ItemToTrash := FindType(ItemType,Backpack);
    MoveItem(ItemToTrash,1,Trashbin,0,0,0);
    Wait(500);
    until (Count(ItemType) = 0);
    end;
end;


procedure MakeItem;
begin
    CancelMenu;
    WaitMenu('What','Carpet');
    WaitMenu('make','(18)');
    WaitTargetObject(FindType(Cloth,Backpack));
    UseType(Skit,$FFFF);
end;


Procedure CheckQuantity;
label flag;
begin
flag:
    FindType(Cloth,Backpack);
    AddToSystemJournal('Cloth left: ' + IntToStr(FindFullQuantity));
    if (FindFullQuantity < 100) then
        begin
        FindDistance := 2;
        FindType(Cloth,Ground);
        if (FindCount = 0) then
            begin
            AddToSystemJournal('No more cloth around');
            ArmsLore;
            goto flag;
            end;
        MoveItem(FindItem,10000,Backpack,0,0,0);
        AddToSystemJournal('Picked up some cloth');
        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,Backpack);
    Wait(1000);
    for x := 0 to 100 do
        begin
        CheckSave;
        CheckQuantity;
        MakeItem;
        Wait(1000);
        end;
    end;
End.


#6
долби

долби

    Вождь Зулу

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

Edited by долби, 20 October 2018 - 04:18 PM.






0 user(s) are reading this topic

members, guests, anonymous users