uses sysutils,classes;
var
item: TL2Item;
obj:TL2Effect;
var otk:Longint;
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
delay(100);
repeat
checkChat;
until engine.status = lsoffline;
delay(5000);
end.