26 Апреля 2019 01:02 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
25.04.2019
Warhangel
03:43:17
offline
24.04.2019
NewImya
1 день
offline
23.04.2019
Karumafun
2 дней
offline
21.04.2019
faerfaer
4 дней
offline
21.04.2019
Andrey7075
4 дней
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 сообщений по данной теме, которая была просмотрена 318 раз.
Реклама
livecoin Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Игровые форумы » Lineage » Боты и скрипты
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Адреналин: продажа айтемов в магазин
Наверх Распечатать сообщение #1
Опубликовано 26-10-2018 05:01
Аватар пользователя

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



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

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

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


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

Продажа айтемов (кроме нужных) в магазин:
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
Барнаул19.04.2019
(на 1 месяц)
АО «Монди СЛПК» продает неликвиды в ассортименте
• Хозяйство - Оборудование Цена: 1 1
Другой10.04.2019
(на 1 месяц)
Справка о несудимости в Москве
• Работа и бизнес - Разное Цена: 1 1
Москва05.12.2018
(на 24 месяца)
Универсальный гипермаркет Gecsa
• Развлечения - Туризм Цена: 1 1
Казань06.11.2017
(на 24 месяца)
Продажа опрессовочного оборудования для РВД
• Хозяйство - Оборудование Цена: 1 1
Москва18.10.2017
(на 24 месяца)
Облако тегов тем форума
Как успешно пройти проверку лицензионности Windows XP, Квест на Warsmith, Windows 7 restore problem, Адреналин: счетчик кланов, Король и Шут, Дизайн и полиграфические услуги, 147 Snооker, Krakena.net - продажа золота Archeage и других игр! Набор поставщиков!, Открыт платный перенос персонажей, улучшен дизайн сайта, Полезные микроволны, Как помочь отношениям?, От болезней, которым не могут найти причину, Рендеринг команда Age of Conan переключена на новый движок Anarchy Online, Как улучшить работу головного мозга, В космосе обнаружено огромное спиртовое облако
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск по торрентам Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2019 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.