Адреналин: полезные мелкие скриптики

Заработай шерингом

Навигация

+ -

Скачать игры

Сейчас на сайте

22.04.2024

Apollo

1 день

19.04.2024

Samurai97

4 дней

19.04.2024

Aloha123

4 дней

15.04.2024

fukkinside

1 неделя

14.04.2024

V1ad

1 неделя

Показать статистику

Последние фото

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

Наша кнопочка

Код:

<a href="http://faq7.ru/" target="_blank"><img border="0" src="http://faq7.ru/images/banner88.gif" width="88" height="31" alt="FAQ7.ru"></a>

RSS каналы

RU CLICKSРусский трафик

О нет! Где JavaScript?
У Вашего браузера отключен JavaScript или он просто не поддерживает JavaScript. Пожалуйста включите JavaScript на Вашем веб-браузере для нормального просмотра данного веб-сайта,
или обновите свой браузер на поддерживаемый JavaScript; Firefox, Safari, Opera, Chrome или Internet Explorer не ниже, чем версия 6.

Автор темы: Warhangel
ID темы: 1951

Информация о теме:

Имеются 3 сообщений по данной теме, которая была просмотрена 4137 раз.

Просмотр темы

Главная страница

Регистрация

Поиск

Форум » Игровые форумы » Lineage » Боты и скрипты

Просмотр темы

Текущий рейтинг: (Всего: 0 голосов)

Поиск в этой теме

Опции темы

Адреналин: полезные мелкие скриптики

Warhangel

Опубликовано 18-11-2016 16:22

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

Сообщений: 2689
Вас поблагодарили: 23
раз(а) в 23 сообщениях
Зарегистрирован: 24.03.10
Со дня регистрации: 5145

Откуда: Россия

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

header=[Награда №1] body=[Медаль Создателя]

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.

[ ссылка скрыта ] ( регистрация | вход )

Warhangel

Опубликовано 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.

Warhangel

Опубликовано 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)

« Предыдущая тема | Следующая тема »

Перейти на форум:

Последние объявления

Фото	Заголовок	Город	Размещено
	АО «Карельский окатыш», АО «Олкон» и ООО «Яковлевский ГОК» продают неликвиды • Хозяйство - Сырье и материалы Цена: 1 1	Другой	18.04.2024 (на 1 месяц)
	АО «Обуховский завод» реализует неликвиды • Хозяйство - Сырье и материалы Цена: 1 1	Санкт-Петербург	29.03.2024 (на 1 месяц)

Облако тегов тем форума

Обзор: EpicWorld.su, Распечатка A и S армора и бижы, вставку СА в пухи, Сдуалиние, Адреналин: Gludio Farm Euro-PvP, Криптовалютные биржи сообщили о притоке новых пользователей на фоне коронавируса, Бесплатные уроки танцев в Саду им. Баумана!, Как узнать IP-адрес сервера?, IBM патентует веб-браузер на базе блокчейна, Мстители 3: Война бесконечности, 20 полезных советов игрокам Pokemon Go, АНТИПЛАГ уникальный контент в один клик, Связки в Доте, Java сервер Lineage 2 Interlude от L2JBrasil, Обновление Tauti появится на серверах NCWest уже 13 июня, Прототип Skynet создан, Почему иммунные клетки не гибнут от собственного яда

Game новости

Game сервисы

Инфо сервисы