29 Января 2020 00:04 
Заработай шерингом
Навигация
 +  - 
Скачать игры
Сейчас на сайте
28.01.2020
Warhangel
05:35:11
offline
28.01.2020
Smertni...
12:42:27
offline
25.01.2020
123
3 дней
offline
25.01.2020
sultano...
3 дней
offline
24.01.2020
Bezumec
4 дней
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

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



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

Последние видео
Видео The Heretic: the complete short film : The Heretic is a short film created by Unity’s Demo team. After debuting its first part at GDC 2019, the completed short is now available to watch in its entirety.

Игрофильмы:  The Heretic: the complete short film

Видео ТРИ СУДЬБЫ - Короткометражный фэнтези-боевик : Короткометражный CGI-фильм, посвященный игре The Elder Scrolls Online.

Игрофильмы:  ТРИ СУДЬБЫ - Короткометражный фэнтези-боевик

Видео Rhine Falls : Rhine Falls Live Camera streeeam

Онлайн камеры:  Rhine Falls

Наша кнопочка
FAQ7.ru
Код:
RSS каналы
Новости
Комменты
Форум
Статьи
Фото
Файлы
Ссылки
Объявления
Реклама
Регистрация сайта в каталогах, раскрутка и оптимизация сайта, контекстная реклама
Автор темы: Warhangel
ID темы: 2108
Информация о теме:
Имеются 1 сообщений по данной теме, которая была просмотрена 535 раз.
Реклама
livecoin Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Игровые форумы » Lineage » Боты и скрипты
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Адреналин: продажа айтемов в магазин
Наверх Распечатать сообщение #1
Опубликовано 26-10-2018 05:01
Аватар пользователя

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



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

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

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


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

Продажа айтемов (кроме нужных) в магазин:
procedure SellTrash;
var
i_OID: integer;
i:integer;
item:TL2item;
begin
for i:= 0 to Inventory.User.Count-1 do begin
if inventory.user.byOID(i_OID, item) and (not (Item.Equipped)) then begin
if not (Inventory.User.Items(i).Name = 'Earring (Novice)') and
not (Inventory.User.Items(i).Name = 'Spiritshot (No-grade) (Novice)') and
not (Inventory.User.Items(i).Name = 'Tunic of Devotion') and
not (Inventory.User.Items(i).Name = 'Stockings of Devotion') and
not (Inventory.User.Items(i).Name = 'Leather Helmet') and
not (Inventory.User.Items(i).Name = 'Wand of Adept (Novice)') and
not (Inventory.User.Items(i).Name = 'Ring (Novice)') and
not (Inventory.User.Items(i).Name = 'Necklace (Novice)') and
not (Inventory.User.Items(i).Name = 'Healing Potion') and
not (Inventory.User.Items(i).Name = 'Healing Potion (Novice)') and
not (Inventory.User.Items(i).Name = 'Adventurer’s Potion - Casting Spd.') and
not (Inventory.User.Items(i).Name = 'Corroded Thread') and
not (Inventory.User.Items(i).Name = 'Corroded Charcoal') and
not (Inventory.User.Items(i).Name = 'Corroded Stem') and
not (Inventory.User.Items(i).Name = 'Corroded Animal Skin') and
not (Inventory.User.Items(i).Name = 'Corroded Iron Ore') and
not (Inventory.User.Items(i).Name = 'Corroded Suede') and
not (Inventory.User.Items(i).Name = 'Spiritshot (No-grade)') then begin
  Engine.NPCTrade(true,[Inventory.User.Items(i).ID,99999]); // Sell Trash
  delay(1000);
  end;
end;
    end;
end;
 Offline
 
Посетить сайт автора
Цитировать
Ответить
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)

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

Последние объявления
ФотоЗаголовокГородРазмещено
ПАО «Казаньоргсинтез» реализует неликвиды в ассортименте
• Хозяйство - Оборудование Цена: 1 1
Казань27.01.2020
(на 1 месяц)
АО «Карельский окатыш» продает невостребованные ТМЦ
• Хозяйство - Сырье и материалы Цена: 1 1
Другой21.01.2020
(на 1 месяц)
ООО «Ставролен» продает неликвиды
• Хозяйство - Оборудование Цена: 1 1
Ставрополь19.01.2020
(на 1 месяц)
Аптека поможет похудеть эффективно и продает капсулы самая лучшая диета
• Для дома - Здоровье Цена: 1 1
Ярославль22.12.2019
(на 24 месяца)
Таблетки от целлюлита помогая похудеть убрать живот и бока
• Для дома - Здоровье Цена: 1 1
Москва14.10.2019
(на 24 месяца)
Облако тегов тем форума
Интересные факты о сексе в Древнем Риме, The Elder Scrolls V: Skyrim - Creation Kit и Steam Workshop на подходе, Молитва о сексе, КАЛЬМАРЫ. Анатолий Вассерман, Легендарная папка Con и псевдопорты MS-DOS, ПУГ-рейды - с чем едят, Серия расовых видео от En Masse Entertainment - Сastanic и Elin, The Elder Scrolls Online - DLC Dragon Bones добралось до консолей, Как написать программу для android?, Игроки всего мира будут объединены на одном сервере, Жертвы собственных изобретений, Видеоигры помогают сомалийским детям держаться подальше от войны, Магия Азерота, Diablo III, возможно, выйдет на Playstation 3, Описание класса Копейщик
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Торренты Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2020 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.