Jump to content

Lineage 2

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

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

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

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

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

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


бланки+армслор


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

#1
ВОИН

ВОИН

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

  • Пользователи
  • PipPipPipPipPipPip
  • 344 posts
  • Location:República Dominicana
Всем привет, есть у кого такой скриптец? Поделитесь.

#2
80aX

80aX

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 173 posts
  • Location:Hawaii

Такой есть, армслор качает когда заканчиваются логи в паке. Для бланкмапов там ещё процедура складывания в отдельную сумку чтоб в стопке были.

Program Blanks;{$Include 'all.inc'} constLogsType = $1BDD;     // тип логовTolsType = $1EBC;     // тинкер тоолсSumka = $42F3F2D0;    // сумка куда складыватьvar x: integer;Procedure BlankScrolls;begin    CancelMenu;    Waitmenu('to make', 'Paper items');    Waitmenu('to make', 'Blank Scroll');    UseObject(FindType(TolsType,Backpack));    WaitTargetObject(FindType(LogsType,Backpack));    Wait(6600);end;Procedure BlankMapsMove;beginwhile (Count($14EB) > 0) do    begin    FindType($14EB,Backpack);    if (FindQuantity > 0) then MoveItem(FindItem,1,Sumka,0,0,0);    Wait(500);    end;end;Procedure BlankMaps;begin    CancelMenu;    Waitmenu('to make', 'Paper items');    Waitmenu('to make', 'Blank Map');    UseObject(FindType(TolsType,Backpack));    WaitTargetObject(FindType(LogsType,Backpack));    Wait(6600);    BlankMapsMove;end;Procedure CheckQuantity;beginFindType(LogsType,Backpack);AddToSystemJournal('Logs left: ' + IntToStr(FindFullQuantity));if (FindFullQuantity < 50) then    begin        repeat        if TargetPresent then CancelTarget;        WaitTargetObject(FindType($0F51,Backpack));        UseSkill('Arms Lore');        Wait(10000);        until (GetQuantity(FindType(LogsType,Backpack)) > 50);    end;end;BEGINSetARStatus(true);    repeat    Hungry(1,Backpack);    Wait(1000);    for x := 0 to 100 do        begin        CheckSave;        CheckQuantity;        BlankMaps; // procedure        end;    until Dead or (not Connected);END.


#3
ВОИН

ВОИН

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

  • Пользователи
  • PipPipPipPipPipPip
  • 344 posts
  • Location:República Dominicana
Надо както чтоб постоянно качал лор , например без автолупа делал по одному бланку а между этим юзал лор. Блин раньше был такой скрипт но утерян безвозвратно.

#4
dima

dima

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

  • Пользователи
  • PipPipPipPipPipPip
  • 294 posts
Просто воткни в начало процедуры производства Procedure BlankScrolls; begin UseSkill('Arms Lore'); waittargetobject(findtype($0F51,backpack)); Wait(1000); // тут поиграешся сам с задержкой CancelMenu; Waitmenu('to make', 'Paper items'); Waitmenu('to make', 'Blank Scroll'); UseObject(FindType(TolsType,Backpack)); WaitTargetObject(FindType(LogsType,Backpack)); Wait(6600); end;

#5
80aX

80aX

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 173 posts
  • Location:Hawaii

Я бы дописал отдельно процедуру армслора и вызывал её через деление с остатком в главной функции, типа так, если x % 2 = 0 то армслор. Таким макаром можно делать бланки и параллельно качать армслор без задержки на сам армслор.



#6
bachukaster

bachukaster

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 700 posts
  • Location:Moscow
Если кто сделал норм рабочий вариант, скиньте плз..

#7
ВОИН

ВОИН

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

  • Пользователи
  • PipPipPipPipPipPip
  • 344 posts
  • Location:República Dominicana
НУ что ребят может , скинет кто?

#8
dima

dima

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

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

 

Program Blank;   {$Include 'all.inc'}   var TimeStart : TDateTime; k :integer; const log = $1BDD;       // логи tinkerType = $1EBC;   // тинкертулс   Begin SetARStatus(true); Hungry(1,backpack); while (not Dead) do    begin         CancelTarget; //на всякий случай уберем таргет         UseSkill('Arms Lore');           waittargetobject(findtype($0F51,backpack));         wait(1000);         k:=0;         TimeStart:=Now;         UseObject(FindType(tinkerType,Backpack));         findtype(log,backpack);         WaitTargetObject(finditem);         wait(1000);         Waitmenu('What would you like to make?', 'Paper items');         wait(1000);         Waitmenu('What would you like to make?', 'Blank Scroll');         CancelMenu;                  repeat                 wait(100);                   k := k + 1;                 wait(500);             until (InJournalBetweenTimes('stop', TimeStart, Now)<>-1) or (k > 100);         wait(1000);                                end; End.  

 

както так


Edited by dima, 05 January 2017 - 08:28 AM.


#9
ВОИН

ВОИН

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

  • Пользователи
  • PipPipPipPipPipPip
  • 344 posts
  • Location:República Dominicana

както так

Супер, спасибо дорогой!

#10
яйцетряс

яйцетряс

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

  • Пользователи
  • PipPipPip
  • 98 posts
  • Location:Череповец

бланк мапы не рисует



#11
яйцетряс

яйцетряс

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

  • Пользователи
  • PipPipPip
  • 98 posts
  • Location:Череповец

[color=rgb(102,0,102);]Program[/color][color=rgb(0,0,0);] [/color][color=rgb(102,0,102);]Blanks[/color][color=rgb(102,102,0);];[/color]
[color=rgb(102,102,0);]{[/color][color=rgb(0,0,0);]$Include [/color][color=rgb(0,136,0);]'all.inc'[/color][color=rgb(102,102,0);]}[/color]

[color=rgb(0,0,136);]const[/color]
[color=rgb(102,0,102);]LogsType[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]=[/color][color=rgb(0,0,0);] $1BDD[/color][color=rgb(102,102,0);];[/color][color=rgb(0,0,0);] [/color][color=rgb(136,0,0);]// тип логов[/color]
[color=rgb(102,0,102);]TolsType[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]=[/color][color=rgb(0,0,0);] $1EBC[/color][color=rgb(102,102,0);];[/color][color=rgb(0,0,0);] [/color][color=rgb(136,0,0);]// тинкер тоолс[/color]
[color=rgb(102,0,102);]Sumka[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]=[/color][color=rgb(0,0,0);] $42F3F2D0[/color][color=rgb(102,102,0);];[/color][color=rgb(0,0,0);] [/color][color=rgb(136,0,0);]// сумка куда складывать[/color]

[color=rgb(0,0,136);]var[/color][color=rgb(0,0,0);] x[/color][color=rgb(102,102,0);]:[/color][color=rgb(0,0,0);] integer[/color][color=rgb(102,102,0);];[/color]

[color=rgb(102,0,102);]Procedure[/color][color=rgb(0,0,0);] [/color][color=rgb(102,0,102);]BlankScrolls[/color][color=rgb(102,102,0);];[/color]
[color=rgb(0,0,136);]begin[/color]
[color=rgb(102,0,102);]CancelMenu[/color][color=rgb(102,102,0);];[/color]
[color=rgb(102,0,102);]Waitmenu[/color][color=rgb(102,102,0);]([/color][color=rgb(0,136,0);]'to make'[/color][color=rgb(102,102,0);],[/color][color=rgb(0,0,0);] [/color][color=rgb(0,136,0);]'Paper items'[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(102,0,102);]Waitmenu[/color][color=rgb(102,102,0);]([/color][color=rgb(0,136,0);]'to make'[/color][color=rgb(102,102,0);],[/color][color=rgb(0,0,0);] [/color][color=rgb(0,136,0);]'Blank Scroll'[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(102,0,102);]UseObject[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]FindType[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]TolsType[/color][color=rgb(102,102,0);],[/color][color=rgb(102,0,102);]Backpack[/color][color=rgb(102,102,0);]));[/color]
[color=rgb(102,0,102);]WaitTargetObject[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]FindType[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]LogsType[/color][color=rgb(102,102,0);],[/color][color=rgb(102,0,102);]Backpack[/color][color=rgb(102,102,0);]));[/color]
[color=rgb(102,0,102);]Wait[/color][color=rgb(102,102,0);]([/color][color=rgb(0,102,102);]6600[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(0,0,136);]end[/color][color=rgb(102,102,0);];[/color]

[color=rgb(102,0,102);]Procedure[/color][color=rgb(0,0,0);] [/color][color=rgb(102,0,102);]BlankMapsMove[/color][color=rgb(102,102,0);];[/color]
[color=rgb(0,0,136);]begin[/color]
[color=rgb(0,0,136);]while[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]Count[/color][color=rgb(102,102,0);]([/color][color=rgb(0,0,0);]$14EB[/color][color=rgb(102,102,0);])[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]>[/color][color=rgb(0,0,0);] [/color][color=rgb(0,102,102);]0[/color][color=rgb(102,102,0);])[/color][color=rgb(0,0,0);] [/color][color=rgb(0,0,136);]do[/color]
[color=rgb(0,0,136);]begin[/color]
[color=rgb(102,0,102);]FindType[/color][color=rgb(102,102,0);]([/color][color=rgb(0,0,0);]$14EB[/color][color=rgb(102,102,0);],[/color][color=rgb(102,0,102);]Backpack[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(0,0,136);]if[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]FindQuantity[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]>[/color][color=rgb(0,0,0);] [/color][color=rgb(0,102,102);]0[/color][color=rgb(102,102,0);])[/color][color=rgb(0,0,0);] [/color][color=rgb(0,0,136);]then[/color][color=rgb(0,0,0);] [/color][color=rgb(102,0,102);]MoveItem[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]FindItem[/color][color=rgb(102,102,0);],[/color][color=rgb(0,102,102);]1[/color][color=rgb(102,102,0);],[/color][color=rgb(102,0,102);]Sumka[/color][color=rgb(102,102,0);],[/color][color=rgb(0,102,102);]0[/color][color=rgb(102,102,0);],[/color][color=rgb(0,102,102);]0[/color][color=rgb(102,102,0);],[/color][color=rgb(0,102,102);]0[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(102,0,102);]Wait[/color][color=rgb(102,102,0);]([/color][color=rgb(0,102,102);]500[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(0,0,136);]end[/color][color=rgb(102,102,0);];[/color]
[color=rgb(0,0,136);]end[/color][color=rgb(102,102,0);];[/color]

[color=rgb(102,0,102);]Procedure[/color][color=rgb(0,0,0);] [/color][color=rgb(102,0,102);]BlankMaps[/color][color=rgb(102,102,0);];[/color]
[color=rgb(0,0,136);]begin[/color]
[color=rgb(102,0,102);]CancelMenu[/color][color=rgb(102,102,0);];[/color]
[color=rgb(102,0,102);]Waitmenu[/color][color=rgb(102,102,0);]([/color][color=rgb(0,136,0);]'to make'[/color][color=rgb(102,102,0);],[/color][color=rgb(0,0,0);] [/color][color=rgb(0,136,0);]'Paper items'[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(102,0,102);]Waitmenu[/color][color=rgb(102,102,0);]([/color][color=rgb(0,136,0);]'to make'[/color][color=rgb(102,102,0);],[/color][color=rgb(0,0,0);] [/color][color=rgb(0,136,0);]'Blank Map'[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(102,0,102);]UseObject[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]FindType[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]TolsType[/color][color=rgb(102,102,0);],[/color][color=rgb(102,0,102);]Backpack[/color][color=rgb(102,102,0);]));[/color]
[color=rgb(102,0,102);]WaitTargetObject[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]FindType[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]LogsType[/color][color=rgb(102,102,0);],[/color][color=rgb(102,0,102);]Backpack[/color][color=rgb(102,102,0);]));[/color]
[color=rgb(102,0,102);]Wait[/color][color=rgb(102,102,0);]([/color][color=rgb(0,102,102);]6600[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(102,0,102);]BlankMapsMove[/color][color=rgb(102,102,0);];[/color]
[color=rgb(0,0,136);]end[/color][color=rgb(102,102,0);];[/color]

[color=rgb(102,0,102);]Procedure[/color][color=rgb(0,0,0);] [/color][color=rgb(102,0,102);]CheckQuantity[/color][color=rgb(102,102,0);];[/color]
[color=rgb(0,0,136);]begin[/color]
[color=rgb(102,0,102);]FindType[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]LogsType[/color][color=rgb(102,102,0);],[/color][color=rgb(102,0,102);]Backpack[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(102,0,102);]AddToSystemJournal[/color][color=rgb(102,102,0);]([/color][color=rgb(0,136,0);]'Logs left: '[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]+[/color][color=rgb(0,0,0);] [/color][color=rgb(102,0,102);]IntToStr[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]FindFullQuantity[/color][color=rgb(102,102,0);]));[/color]
[color=rgb(0,0,136);]if[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]FindFullQuantity[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]<[/color][color=rgb(0,0,0);] [/color][color=rgb(0,102,102);]50[/color][color=rgb(102,102,0);])[/color][color=rgb(0,0,0);] [/color][color=rgb(0,0,136);]then[/color]
[color=rgb(0,0,136);]begin[/color]
[color=rgb(0,0,0);]repeat[/color]
[color=rgb(0,0,136);]if[/color][color=rgb(0,0,0);] [/color][color=rgb(102,0,102);]TargetPresent[/color][color=rgb(0,0,0);] [/color][color=rgb(0,0,136);]then[/color][color=rgb(0,0,0);] [/color][color=rgb(102,0,102);]CancelTarget[/color][color=rgb(102,102,0);];[/color]
[color=rgb(102,0,102);]WaitTargetObject[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]FindType[/color][color=rgb(102,102,0);]([/color][color=rgb(0,0,0);]$0F51[/color][color=rgb(102,102,0);],[/color][color=rgb(102,0,102);]Backpack[/color][color=rgb(102,102,0);]));[/color]
[color=rgb(102,0,102);]UseSkill[/color][color=rgb(102,102,0);]([/color][color=rgb(0,136,0);]'Arms Lore'[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(102,0,102);]Wait[/color][color=rgb(102,102,0);]([/color][color=rgb(0,102,102);]10000[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(0,0,136);]until[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]GetQuantity[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]FindType[/color][color=rgb(102,102,0);]([/color][color=rgb(102,0,102);]LogsType[/color][color=rgb(102,102,0);],[/color][color=rgb(102,0,102);]Backpack[/color][color=rgb(102,102,0);]))[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]>[/color][color=rgb(0,0,0);] [/color][color=rgb(0,102,102);]50[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(0,0,136);]end[/color][color=rgb(102,102,0);];[/color]
[color=rgb(0,0,136);]end[/color][color=rgb(102,102,0);];[/color]


[color=rgb(0,0,136);]BEGIN[/color]
[color=rgb(102,0,102);]SetARStatus[/color][color=rgb(102,102,0);]([/color][color=rgb(0,0,136);]true[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(0,0,0);]repeat[/color]
[color=rgb(102,0,102);]Hungry[/color][color=rgb(102,102,0);]([/color][color=rgb(0,102,102);]1[/color][color=rgb(102,102,0);],[/color][color=rgb(102,0,102);]Backpack[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(102,0,102);]Wait[/color][color=rgb(102,102,0);]([/color][color=rgb(0,102,102);]1000[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(0,0,136);]for[/color][color=rgb(0,0,0);] x [/color][color=rgb(102,102,0);]:=[/color][color=rgb(0,0,0);] [/color][color=rgb(0,102,102);]0[/color][color=rgb(0,0,0);] to [/color][color=rgb(0,102,102);]100[/color][color=rgb(0,0,0);] [/color][color=rgb(0,0,136);]do[/color]
[color=rgb(0,0,136);]begin[/color]
[color=rgb(102,0,102);]CheckSave[/color][color=rgb(102,102,0);];[/color]
[color=rgb(102,0,102);]CheckQuantity[/color][color=rgb(102,102,0);];[/color]
[color=rgb(102,0,102);]BlankMaps[/color][color=rgb(102,102,0);];[/color][color=rgb(0,0,0);] [/color][color=rgb(136,0,0);]// procedure[/color]
[color=rgb(0,0,136);]end[/color][color=rgb(102,102,0);];[/color]
[color=rgb(0,0,136);]until[/color][color=rgb(0,0,0);] [/color][color=rgb(102,0,102);]Dead[/color][color=rgb(0,0,0);] [/color][color=rgb(0,0,136);]or[/color][color=rgb(0,0,0);] [/color][color=rgb(102,102,0);]([/color][color=rgb(0,0,136);]not[/color][color=rgb(0,0,0);] [/color][color=rgb(102,0,102);]Connected[/color][color=rgb(102,102,0);]);[/color]
[color=rgb(0,0,136);]END[/color][color=rgb(102,102,0);].[/color]



#12
candyweedy

candyweedy

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

  • Пользователи
  • PipPipPip
  • 88 posts

дружище менюшка виснет с реплаем и армслор не жмет ! в чем прикол ?: menu replay sending


Edited by candyweedy, 04 October 2017 - 12:30 AM.


#13
Noxious

Noxious

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

  • Пользователи
  • PipPip
  • 31 posts

может надо макрить с закрытым окном ультимы ?







0 user(s) are reading this topic

members, guests, anonymous users