19 Ноября 2017 06:09 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
18.11.2017
Warhangel
10:16:29
offline
18.11.2017
_MindCa...
11:52:52
offline
17.11.2017
redisko
1 день
offline
17.11.2017
xaxaxa123
1 день
offline
16.11.2017
Letaboy
2 дней
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

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



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

Последние видео
Видео Zamfir Greatest Hits | Best Of Gheorghe Zamfir : Zamfir Greatest Hits | Best Of Gheorghe Zamfir

Музыка:  Zamfir Greatest Hits | Best Of Gheorghe Zamfir

Видео The Best of Ennio Morricone - Greatest Hits : Ennio Morricone - The Best of Ennio Morricone - Greatest Hits (High Quality Audio) 
1. The Ecstasy of Gold (From \"The Good, the Bad and the Ugly\") 0:00 - 3:22
2. The Good, the Bad and the Ugly - Titles 3:22 - 6:04
3. Once upon a Time in the West - Main Theme 6:05 - 9:15
4. For a Few Dollars More - Titles 9:16 - 13:05
5. A Fistful of Dynamite - Main Theme 13:06 - 17:43
6. Cinema Paradiso - Main Theme 17:44 - 20:13
7. Chi Mai (From \"Maddalena\" & \"Le professionel\") 20:14 - 23:48
8. La Califfa - The Lady Caliph / The Queen 23:48 - 26:27
9. My Name is Nobody - Main Theme 26:27 - 29:37
10. L\

Музыка:  The Best of Ennio Morricone - Greatest Hits

Видео StarCraft. Полный фильм 2016. Вся трилогия [1080p] : Все три части трилогии Starcraft 2, объединенные в одном видео. Передана только основная сюжетная линия, вырезаны все вспомогательные миссии и опциональные диалоги.

Игрофильмы:  StarCraft. Полный фильм 2016. Вся трилогия [1080p]

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

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



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

Зарегистрирован: 24.03.10
Со дня регистрации: 2797
Откуда: Россия
Пол: Мужской

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


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

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
Аватар пользователя

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



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

Зарегистрирован: 24.03.10
Со дня регистрации: 2797
Откуда: Россия
Пол: Мужской

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


Пожаловаться на это сообщение 
Иконка 
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
Аватар пользователя

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



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

Зарегистрирован: 24.03.10
Со дня регистрации: 2797
Откуда: Россия
Пол: Мужской

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


Пожаловаться на это сообщение 
Иконка 
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
Барнаул10.11.2017
(на 1 месяц)
Универсальный гипермаркет Gecsa
• Развлечения - Туризм Цена: 1 1
Казань06.11.2017
(на 24 месяца)
Неликвиды АО «ЕВРАЗ КГОК»
• Хозяйство - Сырье и материалы Цена: 1 1
Другой31.10.2017
(на 1 месяц)
ООО «Торговый дом «ФосАгро» реализует неликвиды
• Хозяйство - Оборудование Цена: 1 1
Другой26.10.2017
(на 1 месяц)
Компания "УралМеталлЭнерго" реализует складские остатки труб
• Хозяйство - Сырье и материалы Цена: 1 1
Челябинск24.10.2017
(на 12 месяцев)
Облако тегов тем форума
Копейщик, Разрушитель и гномы – прокачка, Все о миссиях, Обновление Tauti появится на серверах NCWest уже 13 июня, Crytek продемонстрировала возможности Free SDK CryEngine 3 с обновлением 3.4, GM команды от разработчиков Aion Lighting, Видео подборка интересных синтезаторов, Состоялся релиз платформы Steam Greenlight, TOYOTA Partner Robot i-foot, Горит постоянно датчик топлива, Квест на Bounty Hunter, Chronoscrolls, Аукцион Diablo III — Принцип работы, Квест на Paladin, Предварительный обзор хард модов Колизея, EVE Online - Трейлер дополнения «Цитадель»
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск в сети Радио Пробки
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2017 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.