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

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'}constSkit = $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;beginif (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;beginflag:    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;BeginSetARStatus(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