const
spamFrequency=500;
spamRange=400;

procedure inRangeofNPC;
begin
   while engine.Delay(spamFrequency) do begin
      if User.InRange(181368,-81017,-2758,spamRange,100)  then begin
           startNPCspam;
                        end;
                                 end;
end;

procedure startNPCspam;
begin
  Engine.SetTarget(32011);
  Engine.DlgOpen;
  Engine.DlgSel('Enter the Magic Force Field');
end;

begin
 Script.NewThread(@inRangeofNPC);
end.