热点推荐

小喇叭+ 发布

01-16 02:17
01-16 02:04
01-13 17:30
查看: 3093|回复: 20

77M2引擎如何读写文本文件,传奇一条龙版本中读写文本文件的方法。

[复制链接]
avatar

签到天数: 350 天

[LV.8]以坛为家I

7651

主题

255

回帖

31万

积分

司徒主管

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

UID
1
司徒币
260203
传世币
3000
元宝
0
在线时间
266 小时

最佳新人灌水之王

QQ
online_admin 发表于 2021-7-10 13:13:42 | 显示全部楼层 |阅读模式

77M2引擎如何读写文本文件,传奇一条龙版本中读写文本文件的方法。

77M2引擎如何读写文本文件,传奇一条龙版本中读写文本文件的方法。24 / 作者:admin / 帖子ID:8599




如何读写文本文件
unit Q2;

inte**ce
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     
  //出于对版本使用者机器的保护出发(非开发者),引擎中的脚本读写只允许Mir200Envir目录下的文件,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.

帖子地址: 





上一篇:GOM引擎提示key验证失败,你使用的key不是我们生成器生成的怎么解决?
下一篇:传奇服务端绿盟插件用GM命令制造物品带物品来源的方法
回复

使用道具 举报

avatar

该用户从未签到

0

主题

252

回帖

514

积分

司徒四星

UID
643
司徒币
262
传世币
0
元宝
0
在线时间
0 小时
online_member 发表于 2021-7-10 13:14:37 | 显示全部楼层
LZ帖子不给力,勉强给回复下吧
回复

使用道具 举报

avatar

该用户从未签到

0

主题

236

回帖

482

积分

司徒三星

UID
257
司徒币
246
传世币
0
元宝
0
在线时间
0 小时
online_member 发表于 2021-7-10 13:24:48 | 显示全部楼层
不错 支持下
回复

使用道具 举报

avatar

该用户从未签到

0

主题

225

回帖

460

积分

司徒三星

UID
1059
司徒币
235
传世币
0
元宝
0
在线时间
0 小时
online_member 发表于 2021-7-10 13:28:43 | 显示全部楼层
无论是不是沙发都得回复下
回复

使用道具 举报

avatar

该用户从未签到

0

主题

223

回帖

456

积分

司徒三星

UID
231
司徒币
233
传世币
0
元宝
0
在线时间
0 小时
online_member 发表于 2021-7-10 13:32:21 | 显示全部楼层
感谢楼主,下载试试看
回复

使用道具 举报

avatar

该用户从未签到

0

主题

240

回帖

490

积分

司徒三星

UID
957
司徒币
250
传世币
0
元宝
0
在线时间
0 小时
online_member 发表于 2021-7-10 13:34:46 | 显示全部楼层
纯粹路过,没任何兴趣,仅仅是看在老用户份上回复一下
回复

使用道具 举报

avatar

该用户从未签到

0

主题

242

回帖

494

积分

司徒三星

UID
235
司徒币
252
传世币
0
元宝
0
在线时间
0 小时
online_member 发表于 2021-7-10 13:57:21 | 显示全部楼层
支持你哈...................................
回复

使用道具 举报

avatar

该用户从未签到

0

主题

235

回帖

480

积分

司徒三星

UID
828
司徒币
245
传世币
0
元宝
0
在线时间
0 小时
online_member 发表于 2021-7-10 14:15:18 | 显示全部楼层
边撸边过
回复

使用道具 举报

avatar

该用户从未签到

0

主题

261

回帖

532

积分

司徒四星

UID
610
司徒币
271
传世币
0
元宝
0
在线时间
0 小时
online_member 发表于 2021-7-10 14:17:25 | 显示全部楼层
我也是坐沙发的
回复

使用道具 举报

avatar

该用户从未签到

0

主题

212

回帖

434

积分

司徒三星

UID
860
司徒币
222
传世币
0
元宝
0
在线时间
0 小时
online_member 发表于 2021-7-10 14:18:45 | 显示全部楼层
支持,赞一个
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【乱回复灌水将给予禁言处理】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则