RU CLICKSРусский трафик
О нет! Где
JavaScript ?
У Вашего браузера отключен JavaScript или он просто не поддерживает JavaScript. Пожалуйста
включите JavaScript на Вашем веб-браузере для нормального просмотра данного веб-сайта,
или
обновите свой браузер на поддерживаемый JavaScript;
Firefox ,
Safari ,
Opera ,
Chrome или
Internet Explorer не ниже, чем версия 6.
Информация о теме:
Имеются 3 сообщений по данной теме,
которая была просмотрена 3996 раз.
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов )
Адреналин: полезные мелкие скриптики
Опубликовано 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.
[ ссылка скрыта ] (
регистрация |
вход )
Опубликовано 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.
Опубликовано 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.
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)
Перейти на форум:
- Игровые форумы -- Lineage --- Серверная --- Лаборатория --- Боты и скрипты --- Квесты и гайды -- Aion --- Серверная --- Квесты и гайды -- World of Warcraft --- Серверная --- Квесты и гайды -- Tera --- Серверная --- Квесты и гайды -- Archeage -- EVE online -- Diablo 3 -- Сounter-strike -- Point Blank -- Minecraft - Mmorpg и online -- Серверная -- Обзоры серверов -- Квесты и гайды -- Лаборатория -- Реклама - PC -- Чит коды -- Квесты и гайды - Консоли - Другие игры - Торговля
- События и встречи - Аниме - Музон - Видео - Софт - Железо - Мобильники - Финансы - Интернет -- Социальные сети -- Blockchain - Операционные системы -- Windows -- Linux - Программирование -- PHP -- C++ -- PERL -- Java -- Flash - Юмор - Отношения - За рулем - Спорт - Здоровье - Культура и наука - Непознанное -- Сонники -- Эзотерика - Религия - Природа - Кулинария - Дизайн
- Флуд -- For English - speaking users - Реклама - Архив
- Техничка
Последние объявления
Эрмитаж обвинил лидера Rammstein в незаконной продаже NFT с изображениями музея , Спецодежда , Торренты и терминология , NYDIG создает инфраструктуру для прямой покупки криптовалют через банки , Лимфогранулематоз , В Праге сняли на видео родившихся в зоопарке детёнышей лемура вари , Запуск TERA, решение выявленных проблем , Телесериал по манге , Обзор Interlude pvp l2club.ru , Джамп-клоны , DUST 514 выйдет эксклюзивно на Sony PlayStation 3 , Как улучшить отношения , Дизайн интерьера , [Воин - фури] От "зеленки" до Накса , Изменение цвета глаз
Oтзывы и предложения для FAQ7.ru