战神引擎在线清理天下第一等文档Npc脚本

用于战神引擎在线清理天下第一等文档Npc脚本，脚本对接上了一个，方便GM在线清理文本文档储存的数据，之前清理需要手动清空文件，然后在刷新NPC等操作，改脚本牵扯到了变量，安装的时候自行对接测试。

部分脚本

begin
SetG(165,5,0); 
SetG(163,1,0); 
SetG(163,2,0); 
SetG(163,3,0); 
SetG(163,4,0); 
SetG(163,5,0); 
for i := 1 to 88 do
begin
 WriteIniSectionStr('提现系统.txt','提现记录','玩家'+inttostr(i),'');           //游戏名字
 WriteIniSectionStr('提现系统.txt','提现记录','金额'+inttostr(i),'');               //提现金额
 WriteIniSectionStr('提现系统.txt','提现记录','手机'+inttostr(i),'');             //手机位数
 WriteIniSectionStr('提现系统.txt','提现记录','时间'+inttostr(i), '');      //提现时间
 WriteIniSectionStr('提现系统.txt','汇款记录','收款名字'+inttostr(i),'');                   //游戏名字
 WriteIniSectionStr('提现系统.txt','汇款记录','汇款金额'+inttostr(i),'');          //提现金额
 WriteIniSectionStr('提现系统.txt','汇款记录','收款账号'+inttostr(i),'');      //手机位数  	
end;
This_Player.PlayerNotice('清理成功！',0);	
end;
procedure _qingkong3;
var i,jssl:integer; 
begin
SetG(163,9, 0); 
for i := 1 to 88 do
begin
  WriteIniSectionStr('RMB卷记录.txt','RMB回收记录','装备名字'+inttostr(i),'');   
  WriteIniSectionStr('RMB卷记录.txt','RMB回收记录','玩家名字'+inttostr(i),''); 	
  WriteIniSectionStr('RMB卷记录.txt','RMB回收记录','回收时间'+inttostr(i),'');   	
end;
This_Player.PlayerNotice('清理成功！',0);	
end;
procedure _qingkong1;  
begin
WriteIniSectionStr('大乱斗.txt','获胜记录','玩家名字','');   
This_Player.PlayerNotice('清理成功！',0);	
end;
function GetJOBSNum(Zlv : integer) : string;  
begin
    case Zlv of
        1 : result := '第一男战士';
        2 : result := '第一男法师';
        3 : result := '第一男道士';
        4 : result := '第一女战士';
        5 : result := '第一女法师';
        6 : result := '第一女道士';			
    end;
end; 
procedure _qingkong2;  
var i, q:integer;
begin
for q:= 1 to 6 do
begin
WriteIniSectionStr('天下第一.txt',GetJOBSNum(q),'名字','暂无');
WriteIniSectionStr('天下第一.txt',GetJOBSNum(q),'等级','0');
WriteIniSectionStr('天下第一.txt',GetJOBSNum(q),'行会','暂无');
end;
This_Player.PlayerNotice('清理成功！',0);
end;
Begin
  domain;
end.

分享到：

赞(0)