uses sysutils,classes;
var
item: TL2Item;
obj:TL2Effect;
var otk:Longint;
i:integer;
charName:string;
s:string;

Procedure Using;
begin
Engine.UseItem(10);
engine.useskill(176); // ID скилла
engine.useskill(121); // ID скилла
engine.useskill(94);
Engine.UseItem(6347);
Assist;
end;

Procedure Assist;
begin
charName := 'Malk';
	for i:= 0 to 15 do
		begin
			Engine.Assist(charName);
			Engine.attack;
			Delay(1000);
		end;
		endChecking;
	end;

Procedure checkChat;
begin
while 1>0 do begin
if (ChatMessage.ChatType = ctParty) and ChatMessage.Unread then case ChatMessage.Text of
'use': begin
Engine.MSG('ChatBot','Команда say получена, начинаю юзаться.', 7237648);
Delay (300);
Using;
end
else begin
Engine.MSG('ChatBot','Жду команды.', 7237648);
delay(1900);
end;
end;
end;


Procedure endChecking;
begin
repeat
checkChat;
until engine.status = lsoffline;
delay(1000);
end.