29 Марта 2024 16:00 
Заработай шерингом
Навигация
 +  - 
Скачать игры
Сейчас на сайте
24.03.2024
4071505
5 дней
offline
20.03.2024
V1ad
1 неделя
offline
19.03.2024
nhocly1
1 неделя
offline
17.03.2024
Jevelin
1 неделя
offline
14.03.2024
albinam...
2 недель
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

Вынос трёх пати куполом
Вынос трёх пати куполом
Альбом: Скриншоты



Альбом: Флора

Последние видео
Видео THE WORLD LIVE -  since 2008 | earthTV : So thank you for the many views of this stream, please enjoy the original classic television version of THE WORLD LIVE, first uploaded here for you in 2008 with just 7 locations.

Онлайн камеры:  THE WORLD LIVE - since 2008 | earthTV

Видео The Best Of Norway's Railway Cab Views : I\

Онлайн камеры:  The Best Of Norway's Railway Cab Views

Видео 130 LIVE World Cameras : 130 LIVE World Cameras, Relaxing Music, Map, Daily Timelapse - Your Armchair Travel

Онлайн камеры:  130 LIVE World Cameras

Наша кнопочка
FAQ7.ru
Код:
RSS каналы
Новости
Комменты
Форум
Статьи
Фото
Файлы
Ссылки
Объявления
Реклама
RU CLICKSРусский трафик
Автор темы: Warhangel
ID темы: 1951
Информация о теме:
Имеются 3 сообщений по данной теме, которая была просмотрена 3996 раз.
Реклама
Обменник Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Игровые форумы » Lineage » Боты и скрипты
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Адреналин: полезные мелкие скриптики
Наверх Распечатать сообщение #1
Опубликовано 18-11-2016 16:22
Аватар пользователя

Супер Администратор



Сообщений: 2688
Вас поблагодарили: 23
раз(а) в 23 сообщениях

Зарегистрирован: 24.03.10
Со дня регистрации: 5119
Откуда: Россия

Скрыть награды


Пожаловаться на это сообщение 

Hotkey binding

function GetAsyncKeyState(vKey: integer): integer; stdcall; external 'user32.dll';
begin
while true do begin

begin
  while GetAsyncKeyState(код клавиши в Delphi)=0 do Delay(100);
  //то, что будет делать при нажатии на клавишу
end;
delay(100);
end;
end.


[ ссылка скрыта ] ( регистрация | вход )
 Offline
 
Посетить сайт автора
Цитировать
Наверх Распечатать сообщение #2
Опубликовано 18-11-2016 16:22
Аватар пользователя

Супер Администратор



Сообщений: 2688
Вас поблагодарили: 23
раз(а) в 23 сообщениях

Зарегистрирован: 24.03.10
Со дня регистрации: 5119
Откуда: Россия

Скрыть награды


Пожаловаться на это сообщение 
Иконка 
RE: Адреналин: полезные мелкие скриптики

Раздача пати через равные интервалы времени

var
buff:tl2buff;
Player:string = 'ник перса'; //вставляем ник того, кого будем бафать
begin
  while delay(1000) do
  while engine.GetFaceState(0) = true do begin //Работает, когда бот ВКЛ. Если не нужно, стереть строку
  begin
    if((user.buffs.byid(1444,buff) and (buff.endtime<15000)) or not user.buffs.byid(1444,buff)) then
    begin
      engine.inviteparty(Player);
    end;
 
    if(user.buffs.byid(1444,buff) and (buff.endtime>160000)) then
    begin
      engine.dismissparty(Player); 
    end;
    delay(3000);
  end; // тут тоже тереть, если нужен постоянный ВКЛ
  delay(1000);
  end;
end.
 Offline
 
Посетить сайт автора
Цитировать
Наверх Распечатать сообщение #3
Опубликовано 18-11-2016 16:24
Аватар пользователя

Супер Администратор



Сообщений: 2688
Вас поблагодарили: 23
раз(а) в 23 сообщениях

Зарегистрирован: 24.03.10
Со дня регистрации: 5119
Откуда: Россия

Скрыть награды


Пожаловаться на это сообщение 
Иконка 
RE: Адреналин: полезные мелкие скриптики

Сохранение открытого диалога в файл C:\kod.html

uses SysUtils, Classes;
var L:TStringList;

Begin
  print(Engine.DlgText);
  L := TStringList.Create;          //Создаем объект (список для строк)
  L.Add(Engine.DlgText);                 //Добавляем в список строку
  L.SaveToFile('C:/kod.html');  //Сохраняем список в файл
  L.Free; 
end.
 Offline
 
Посетить сайт автора
Цитировать
Ответить
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)

« Предыдущая тема | Следующая тема »
 RSS Перейти на форум:
Розыгрыши 728х90

Последние объявления
ФотоЗаголовокГородРазмещено
АО «Обуховский завод» реализует неликвиды
• Хозяйство - Сырье и материалы Цена: 1 1
Санкт-ПетербургСегодня в 12:07:11
(на 1 месяц)
ООО «ЛУКОЙЛ-Нижневолжскнефть» реализует неликвиды
• Хозяйство - Оборудование Цена: 1 1
Астрахань18.03.2024
(на 1 месяц)
Группа «Илим» реализует неликвиды своих предприятий
• Хозяйство - Оборудование Цена: 1 1
Санкт-Петербург16.03.2024
(на 1 месяц)
ООО «Ставролен» реализует неликвиды
• Хозяйство - Сырье и материалы Цена: 1 1
Ставрополь13.03.2024
(на 1 месяц)
ПАО «Уралкалий» реализует невостребованные ТМЦ в ассортименте
• Хозяйство - Оборудование Цена: 1 1
Пермь09.03.2024
(на 1 месяц)
Облако тегов тем форума
Эрмитаж обвинил лидера Rammstein в незаконной продаже NFT с изображениями музея, Спецодежда, Торренты и терминология, NYDIG создает инфраструктуру для прямой покупки криптовалют через банки, Лимфогранулематоз, В Праге сняли на видео родившихся в зоопарке детёнышей лемура вари, Запуск TERA, решение выявленных проблем, Телесериал по манге, Обзор Interlude pvp l2club.ru, Джамп-клоны, DUST 514 выйдет эксклюзивно на Sony PlayStation 3, Как улучшить отношения, Дизайн интерьера, [Воин - фури] От "зеленки" до Накса, Изменение цвета глаз
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Торренты Радио Видеочат
Powered by PHP-Fusion copyright © 2002 - 2024 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.