Отправка адены при условии + сообщению в чат

[BaItazar]

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

Procedure MoneySend();
begin
if (User.Level > 60) and CheckItemCount(57) > 15000 then // если уровень выше 60 и денег больше 15000 то
begin
Engine.CancelTarget;
Engine.FaceControl(0, false);
delay(1000);
print('Делаем СОЕ');
Engine.UseItem(736);
delay(10000);
Engine.SendMail('НИК', 'тема', 'комент',[ID,кол-во]);
print('Bablo otpravleno');
delay(360000);
end.

procedure SendMoneyPM();
begin
   while Engine.Status = lsOnline do begin
      if (ChatMessage.ChatType = mtPrivate) and ChatMessage.Unread then если написали ХУЙ
      begin
      if pos('ХУЙ',ChatMessage.Text)>0 then
      begin
       Send();
      end;
      end;
    delay(2000);
   end;
end

Procedure Send();
begin
    begin
	Engine.CancelTarget;
	Engine.FaceControl(0, false);
    delay(1000);
    print('Делаем СОЕ');
    Engine.UseItem(736);
    delay(10000);
    Engine.SendMail('НИК', 'тема', 'комент',[ID,кол-во]); 
	print('Bablo otpravleno');
    delay(360000);
end.

Задумка такова, лвл выше Х + денег в инвентаре выше Х или написал Х, полетел отправлять бабло, чет не получается собратся в рабочую систему, все это встанет в существующий огромный скрипт.
Вызывать процедуру MoneySend еще одним потоком? как лучше сделать? знаю тут много умных программеров
П.С,
Еще было бы здорово что бы отправлял скажем по такому принципу всю сумму из инвентаря но с остатком скажем 20к

 

[qseven228]

Const ADENAID = 57;

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

procedure SendMoney(const receiver: string);
var adena: Integer;
begin
adena := CheckItem(ADENAID) - 1100;



if (chatmessage.text = 'go adenka') and (chatmessage.chattype = mtparty) and (chatmessage.unread)
then begin
Engine.SendMail(receiver, 'some stuff', '', [ADENAID, adena]);
Engine.MSG('MAIL', 'Sent: ' + adena.toString + ' adena.', 32768);
end;
end;

begin

SendMoney('name');

end.

с Lineage2bot.net взято , автора не помню