14:19 | 22.11.2017
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Отправка почты при выполнении условия
Отправка почты при выполнении условия
Sonik · Offline · Дата: Суббота, 05.12.2015, 19:05 | Сообщение # 1

  • Подполковник
  • Сообщений: 143
 
3
 
Если адены больше 250 000 то шлем почту 

Код
if inventory.User.ByID(57, Item) and (Item.count > 250000) then
begin
Engine.SendMail('Ник', 'тема', 'комент',[id,кол-во,id,кол-во,id,кол-во,id,кол-во,id,кол-во,id,кол-во]);
delay(1000);
end;


Вариант 2

Код
//Send All items, or count of items
function getItemById(id: integer): TL2Item;
var
   tmpItem: TL2Item;
   i: integer;
begin
   Result := nil;
   if Inventory.User.ByID(id, tmpItem) then
      Result := tmpItem;
end;

Procedure SendItem(ItemID:integer;Count:integer=0);
if count=0 then
Engine.SendMail(recipient, 'Mail N'+Random(999).ToString , '' ,[itemid,getItemById(itemid).count]) else
Engine.SendMail(recipient, 'Mail N'+Random(999).ToString , '' ,[itemid,count]);
end;

//Example
begin
  while delay(100) do
begin
  if getItemById(57).count>10000000 then SendItem(57,9900000);//check adena and send
end;
end.

Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Отправка почты при выполнении условия
Страница 1 из 11
Поиск: