Knight War.

Knight War - se o leader do script dizer exori gran e voce estiver do lado do target, soltará exori gran, se o leader do script dizer exori gran e voce tiver 1 sqm + de distacia soltará exori hur, se nao tiver target script nao fará nada

Const
Names = ['name1','name2','name3','name4','name5'] // The names that can say !kc!, you may change and add.
Target = 'name'
SpellIfClose = 'exori gran'
SpellIfFar = 'exori hur'
TextToCommit = 'ATTACK' //should be exori gran for your request.

Procedure Event_Message(Channel:integer;name,text:string);
begin
UpdateWorld;
InList = false;
for i = LoW(Names) to High(names) do
begin
if Name = Names[i] then
begin
InList := true;
break;
end;
end;
if not InList then exit;
if Text = TextToCommit then
begin
for i := 0 to creatures.count - 1 do
begin
if Creatures.Creature[i].Name = target then
if (abs(Creatures.Creature[i].X - Self.X) < 2) and (abs(Creatures.Creature[i].y - Self.y) < 2) then
Self.Say(SpellIfClose);
else Self.Say(SpellIfFar);
end;
end;
end;

while not terminated do
begin
UpdateWorld;
ProcessEvents;
Sleep(500);
end;