17 Ноября 2018 09:50 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
16.11.2018
Warhangel
14:28:18
offline
16.11.2018
soulwer
16:10:10
offline
14.11.2018
Melis123
2 дней
offline
14.11.2018
doctorhsv
3 дней
offline
13.11.2018
Klaid
3 дней
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

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



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

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

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

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

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

Видео Live Cam, Central Memorial Park, Calgary, Alberta : Central Memorial Park is a park located in central Calgary\

Онлайн камеры:  Live Cam, Central Memorial Park, Calgary, Alberta

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

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



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

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

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


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

Продажа айтемов (кроме нужных) в магазин:
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
Другой15.11.2018
(на 1 месяц)
Неликвиды НАЗ «Сокол» - филиал АО «РСК «МиГ»
• Хозяйство - Оборудование Цена: 1 1
Нижний Новгород11.11.2018
(на 1 месяц)
Неликвиды ОАО «Алтай-Кокс»
• Хозяйство - Оборудование Цена: 1 1
Барнаул18.10.2018
(на 1 месяц)
Универсальный гипермаркет Gecsa
• Развлечения - Туризм Цена: 1 1
Казань06.11.2017
(на 24 месяца)
Продажа опрессовочного оборудования для РВД
• Хозяйство - Оборудование Цена: 1 1
Москва18.10.2017
(на 24 месяца)
Облако тегов тем форума
Занятие спортом, Адреналин: скрипт прокачки спойлера 1-75, Логические задачи, Обозначение монетных дворов (информация по буквам на монетах), Фитинг корабля, Обзор систем свадеб в Легенды Кунг фу, ТОР РАГНАРЁК трейлер 2 (Русский) 2017, Walmart обязал поставщиков внедрить блокчейн, Купить компьютер, Ивент для искателей сокровищ, Поиск по фотографиям в контакте, Что будет если исчезнет солнце, Бот для lineage-game.ru, Квест на Баюма, он же - красная тряпка на саба, OGVA.RU-продажа/покупка игровой валюты в Aion, Archeage, Lineage 2 classic, WoW, SkyForge, Black Des
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск по торрентам Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2018 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.