Jump to content

Lineage 2


Теилоринг


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

#1
долби

долби

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 595 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
  • 595 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
  • 595 posts
program moveitem;
 
{$Include 'all.inc'}
 
const
item_type1 = $0AD5;      //тряпки
container = $488938F3;  //трешка
symka = $488A3E25;  //сундук рядом
var
n: TDateTime;
 
procedure arms_lore;
var
d, t: TDateTime;
 
begin
d:=StrToTime('0:00:11');
if ((now - n) > d) or (n = 0) then
begin
t:=now;
WaitTargetType($0F51);
UseSkill('Arms Lore');
WaitJournalLineSystem(t, 'This|tell|else', 3000);
if TargetPresent then CancelTarget;
n:=now;
end;
end;
 
Procedure Checkmaterials;
begin
FindType($1765, Backpack);
if FindQuantity < 20 then MoveItem(FindItem, 0, symka, 0, 0, 0); 
FindDistance := 2;
if FindType($1765, Ground) > 0 then MoveItem(FindItem, 0, Backpack, 0, 0, 0);
Wait(2000);
if FindType($1765, Ground) > 0 then
addtosystemjournal( 'Найдено ' + inttostr(FindFullQuantity) + ' ткани');
end;
 
 
Procedure makeitem;
  var
   t: TDateTime; 
   
Begin
Arms_Lore;
t:=now;
CancelMenu;
checksave;
WaitMenu('What', 'Carpet'); 
WaitMenu('make', '(5)');  //номер ковров которые делать
if TargetPresent then CancelTarget; 
findtype($1765,backpack);
WaitTargetObject(finditem);
usetype($0F9D,$ffff);
WaitJournalLineSystem(now, 'stop|Reconnected|finish|Success|destroyed', 3000);
end; 
 
begin
while 1<2 do
begin
FindType($1765, Backpack);
if FindQuantity < 20 then Checkmaterials;
makeitem;
findtype(item_type1,backpack);
if (findcount > 0) then MoveItems(backpack, item_type1, $FFFF, container, 0, 0, 0, 50);
end;
end.
 
 
выключаем аутолуп и ткань под себя. Качает армслор и клепает ковры как прокаженый.






0 user(s) are reading this topic

members, guests, anonymous users