Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нём некорректно. Вам необходимо обновить браузер или попробовать использовать другой.
Клавиши делаем под себя. Делал как пример.
P.S. Очень облегчит жизнь асистеру, которого заставляют писать макросы на бишей и тд :)
HEX коды Клавиатуры - ЖМАК
procedure talisman;
var
item: TL2Item;
begin
while 1<>2 do begin
engine.SetTarget(36145);
delay(333);
Engine.Dlgopen ();
delay(333);
Engine.Dlgsel(5);
delay(333);
Engine.Dlgsel(1);
end;
end;
procedure delete_items; //берем сначала процедурку
var i,count: integer; //ебашим...
Для любителей продавать кач в ФОГе(для ИЛа)
//кидает любому, кто написал.
procedure Invite1; // обычно запускал отдельным потоком "Script.NewThread(@Invite1);"
begin
while Delay(1000) do begin
if (ChatMessage.unread and (integer(ChatMessage.chattype) = 2)) then begin
if...
procedure Shutgart();
begin
if User.inrange(87184,-140256,-1536, 250, 150) then begin
Engine.MoveTo(87184,-140256,-1536);
Engine.MoveTo(87368,-140838,-1512);
Engine.MoveTo(87319,-141796,-1338);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290)...
Как работает:
Настраиваем рыбалку, рыбачим, появляется моб, одевает пуху, убивает его, дальше рыбачит
Примечание: купить бутылок на хп, добавить их в свой профиль.
var
npc : TL2npc;
item : TL2item;
i: integer;
FishPoleID,WeaponID: integer;
begin
FishPoleID:= 6533; // вставить ID вашей удки...
в 4 утра ничего красиво оформлять не охота.
Профиль в папку Settings.
Скрипт куда угодно.
Инфа в самом скрипте.
Скрипт шифрован, кто боится отсыла ваших ценностей куда-нибудь на сторону, не юзайте. Исходник покажу только Администратору/Модератору при надобности.
Инфа1: Писался под...
uses SysUtils, Classes;
const resp = 'E:\NewResp.txt';
City = 'Гиран'; //Название города
var
q: integer;
pos: string;
NewResp: TStringList;
procedure OnFree;
begin
NewResp.SaveToFile(resp);
NewResp.free;
end;
begin
NewResp:= TStringList.Create;
if not FileExists(resp) then...
Доброго времени суток. Мб кому пригодится скриптик под чек пайлаки, особо поможет на РПГ клабе, когда в пайлаку просто не реально попасть. Скрипт простой, но многие и минимальных знаний не имеют.
begin
while 1<>2 do begin
Engine.SetTarget(32498);
Engine.DlgOpen;
Engine.Delay(100)...
кроме Эртея
Не проверял на обслютно все Skill'ы всех рас,професий...возможно есть левый ид но мне не мешали
Использую через Unit'ы в скриптах на кач разных Пофесий, нужные мне профы учит ! B)
begin
Engine.BypassToServer('_dropMonsterDetailsByName_32750_3',true);
end.
работает на серверах подобия талес,где есть тп к нпц(если память не изменяет,то работает вроде только в городе) . Вместо цифр 32750 - вводите нужный вам id НПЦ и вуаля,вы там(очень просто добираться до лакфи и проходить...
Мой первый скрипт на дрыне под рпг.
Возможно кому-то будет полезный.
Скрипт для магов, цепочка квестов через деревню людей.
+ Учит скилы в храме;
Из минусов на прокачке 12-15 может удариться об дерево или камень - нужно дать "пинка" или подождать пока переключиться)
Буду фиксить и дополнять...
Достаточно встать у НПС у которого брать квест
function CheckItemCount (const itemID: Integer; const nenuzhnajaconst: Boolean = False) : Integer;
var tempItem: TL2Item;
begin
if Inventory.User.ByID(itemID, tempItem) then
Result := tempItem.Count;
end;
Begin
delay(2500);
// этот кусок...
var
item: TL2Item;
begin
while true do begin
delay(500);
if inventory.user.byid(10771, item) and not (Item.Equipped) then begin
Delay(500);
Engine.UseItem(10771);
Delay(800);
end;
end;
end.
10771 - ID пушки
var
npc: tl2npc;
begin
while delay(1000) do begin
if npclist.byid(31027,npc) or//Cabrio chest
npclist.byid(31028,npc) or//Kernon chest
npclist.byid(31029,npc) or//Golkonda chest
npclist.byid(31030,npc) then//Hallate chest
begin
engine.settarget(npc)...