RU CLICKSРусский трафик
О нет! Где
JavaScript ?
У Вашего браузера отключен JavaScript или он просто не поддерживает JavaScript. Пожалуйста
включите JavaScript на Вашем веб-браузере для нормального просмотра данного веб-сайта,
или
обновите свой браузер на поддерживаемый JavaScript;
Firefox ,
Safari ,
Opera ,
Chrome или
Internet Explorer не ниже, чем версия 6.
Информация о теме:
Имеются 3 сообщений по данной теме,
которая была просмотрена 4138 раз.
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов )
Адреналин: полезные мелкие скриптики
Опубликовано 18-11-2016 16:22
Супер Администратор
Сообщений: 2689
Вас поблагодарили: 23 раз(а) в 23 сообщениях
Зарегистрирован: 24.03.10
Со дня регистрации: 5145
Откуда: Россия
Скрыть награды
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
Супер Администратор
Сообщений: 2689
Вас поблагодарили: 23 раз(а) в 23 сообщениях
Зарегистрирован: 24.03.10
Со дня регистрации: 5145
Откуда: Россия
Скрыть награды
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
Супер Администратор
Сообщений: 2689
Вас поблагодарили: 23 раз(а) в 23 сообщениях
Зарегистрирован: 24.03.10
Со дня регистрации: 5145
Откуда: Россия
Скрыть награды
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 - Реклама - Архив
- Техничка
Последние объявления
Помощь по читам (Если не работает чит) , Люстры и освещение , Гайд по WowEmuHacker , В игру добавлена система подбора противников равного уровня мастерства , Группа Ласковый май , Изобретение, изменившее мир , Уникальный питомец для русского Aion , Смешной гороскоп, или доля правды про Знаки Зодиака! , Java сервер Interlude от команды - L2jTomsk , Deadpool 2 , 10SIХ , Светлые Эльфы (Elf) , Evangelion - вольный баянистый пересказ , Секреты карт , Ритуалы омоложения
Oтзывы и предложения для FAQ7.ru