Отправка всей адены с перса

Раздел посвященный скриптам для бота
Ответить
cellos
Куда я попал
Сообщения: 35
Зарегистрирован: Сб авг 13, 2016 6:22 am

Пт янв 31, 2020 9:25 pm

Помогите написать процедуру для отправки всей адены что есть и при этом оставлять 100к на персе.
barsat
Куда я попал
Сообщения: 32
Зарегистрирован: Вт июн 30, 2015 11:29 pm

Вс фев 02, 2020 11:43 pm

if Inventory.User.ByID(57, Item) and (Item.Count > 100000) then //Если больше 100к аден то отправить почту
begin
SendMail; -процедура отправки почты (примеров куча)
end
cellos
Куда я попал
Сообщения: 35
Зарегистрирован: Сб авг 13, 2016 6:22 am

Пн мар 16, 2020 10:19 am

я имел ввиду не конкретное кол-во адены отправить, конкретное оставить... А все что кроме отправить ...
naderta
Флудер
Сообщения: 258
Зарегистрирован: Чт дек 11, 2014 12:50 pm

Пт мар 20, 2020 3:14 pm

function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer;
var tempItem: TL2Item;
begin
Inventory.User.ByID(itemID, tempItem);
Result := tempItem.Count;
end;



if User.inrange(147680, -56928, -2768, 8550, 11450) then begin
s:=(CheckItemCount(57) - 100000);
Engine.SendMail('ник,'adena','adena',[57, s]);
Изображение
Ответить