sws

uses SysUtils;

var lista_acceso: array of string = ['Ethereal', 'Tiuz', 'Tapion', 'Nevrast', 'Dux'];
var palabras_clave: array of string = ['cm', 'med'];

procedure SwordMuse();

var i: Integer;
var rango: Integer;

begin
  rango :=  800;
  while delay(1000) do begin
    if (ChatMessage.Unread) and (ChatMessage.ChatType = mtPrivate) then begin
      for i:= Low(palabras_clave) to High(palabras_clave) do begin
        if (Pos(LowerCase(palabras_clave[0]), LowerCase(ChatMessage.text)) > 0) and (RevisarPermisos(ChatMessage.Sender) > 0) then begin
            Engine.SetTarget(ChatMessage.Sender);
            if (User.DistTo(User.Target) < rango) then begin
                Engine.UseSkill(349, true); // Song of Renewal
                Engine.UseSkill(363, true); // Song of Meditation
                Engine.UseSkill(304, true); // Song of Vitality
                Engine.UseSkill(264, true); // Song of Earth
                Engine.UseSkill(267, true); // Song of Warding
                Engine.UseSkill(268, true); // Song of Wind
                Engine.CancelTarget;
                break;
            end;
            Engine.Say('acerquese pe conchasumare',2,ChatMessage.Sender); // Responde cuando el personaje está fuera del rango
            break;
        end;
        if (Pos(LowerCase(palabras_clave[1]), LowerCase(ChatMessage.text)) > 0) and (RevisarPermisos(ChatMessage.Sender) > 0) then begin
            Engine.SetTarget(ChatMessage.Sender);
            if (User.DistTo(User.Target) < rango) then begin
                Engine.UseSkill(363, true); // Song of Meditation
                Engine.CancelTarget;
                break;
            end;
            Engine.Say('acerquese pe conchasumare',2,ChatMessage.Sender); // Responde cuando el personaje está fuera del rango
            break;
        end;
      end;
    end;
  end;
end;

function RevisarPermisos(nombre_personaje: String): Cardinal;
  var i: integer;
  begin
  result:=0;
   for i:= Low(lista_acceso) to High(lista_acceso) do begin
    if (Pos(LowerCase(lista_acceso[i]), LowerCase(nombre_personaje)) > 0) then begin
      result:=1;
      break;
    end;
  end;
end;

begin
  Script.NewThread(@SwordMuse);
  Delay(-1);
end.