``` unit Q2; interface uses Classes, SysUtils; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); var AList: TStrings; AName: String; I: Integer; APlayer: TPlayObject; begin //TStrings访问文本文件的方式： AList := TStringList.Create; try //出于对版本使用者机器的保护出发(非开发者),引擎中的脚本读写只允许Mir200\Envir目录下的文件,Gamelib.EnvirPath可以取得 if SysUtils.FileExists(Gamelib.EnvirPath + 'UnMaster.txt') then //如果文件存在 begin AList.LoadFromFile(Gamelib.EnvirPath + 'UnMaster.txt'); //加载文件 for I := AList.Count - 1 downto 0 do begin AName := AList[I]; //取出一个名字 APlayer := Gamelib.FindPlayer(AName); //查找玩家 if APlayer <> nil then begin //针对APlayer做些事情 end; AList.Delete(I); //删除文本中的一条记录 end; AList.SaveToFile(Gamelib.EnvirPath + 'UnMaster.txt'); //把修改后的文件保存下来 end; finally AList.Free; end; end; end. ```