战神引擎自助打宝回收Npc脚本

用于战神引擎自助体现RMB打金回收Npc脚本，不需要GM去审核，玩家在线提交装备回收得RMB脚本，脚本是明文版的，可以任意修改里面的装备名单和回收金额。

特别注意：需要把人民币回收.txt 这份文件放到：D:\mud2.0\Mir200\Share\config文件夹下面。

战神引擎自助打宝回收Npc脚本

部分脚本

procedure _RMBRemove(Pstr:string);
var temp_str,temp_time : string; temp_price, temp_all_price, i, temp_write : integer;
begin
	temp_str:=Pstr;
	if This_Player.GetBagItemCount(print_str(temp_str,2)) > 0 then
	begin
		if ReadIniSectionStr('人民币回收.txt','账户信息',This_Player.Name+'真实姓名') <> '' then
		begin
			if ReadIniSectionStr('人民币回收.txt','账户信息',This_Player.Name+'收款账号') <> '' then
			begin
				temp_time:=inttostr(GetMonth)+'月'+inttostr(GetDay)+'日';
				temp_all_price:=0;
				case strtoint(print_str(temp_str,1)) of	
					1: temp_price:=2;
					2: temp_price:=5;
					3: temp_price:=50;
					4: temp_price:=50;
					5: temp_price:=2;
					6: temp_price:=5;	
					7: temp_price:=20;
					8: temp_price:=20;
					9: temp_price:=30;
				   10: temp_price:=30;
				   11: temp_price:=50;
				   12: temp_price:=100;
				   13: temp_price:=500;
				   14: temp_price:=888;					
				end
				for i:=1 to 100 do
				begin
					if ReadIniSectionStr('人民币回收.txt','回收列表','类别'+inttostr(i)) = '' then
					begin
						temp_write:=i;
						break;
					end
				end;
				if WriteIniSectionStr('人民币回收.txt','回收列表','类别'+inttostr(temp_write),'<'+This_Player.Name+'/fcolor='+inttostr(250)+'> <'+temp_time+'/fcolor='+inttostr(31)+'> 回收 <'+print_str(temp_str,2)+'/fcolor='+inttostr(254)+'> 获得 <'+inttostr(temp_price)+'/fcolor='+inttostr(242)+'> RMB,0') then
				begin					
					//serverSay(print_str(temp_str,2),2);
					//temp_all_price:=strtoint(ReadIniSectionStr('人民币回收.txt','出货统计','类别'+inttostr(temp_write)));
					for i:=1 to 100 do
					begin
						if print_str(ReadIniSectionStr('人民币回收.txt','出货统计','类别'+inttostr(i)),1) = This_Player.Name then
						begin
							temp_all_price:=strtoint(print_str(ReadIniSectionStr('人民币回收.txt','出货统计','类别'+inttostr(i)),2));
							WriteIniSectionStr('人民币回收.txt','出货统计','类别'+inttostr(i),This_Player.Name+','+inttostr(temp_all_price+temp_price));
							break;
						end 
						else if ReadIniSectionStr('人民币回收.txt','出货统计','类别'+inttostr(i)) = '' then
						begin						
							WriteIniSectionStr('人民币回收.txt','出货统计','类别'+inttostr(i),This_Player.Name+','+inttostr(temp_all_price+temp_price));
							break;
						end
					end;
					This_Player.Take(print_str(temp_str,2),1);
					This_Npc.NpcDialog(This_Player,'<出货成功~> 出款时间为每日20~23点，为了您的资金安全请确保收款信息完整~|{cmd}<查看订单/@payOrder~1>');
				end else
					This_Npc.NpcDialog(This_Player,'发生错误请联系管理员, -1');	
			end else	
			This_Npc.NpcDialog(This_Player,'你的收款信息不完整~请重新填写|{cmd}<支付宝收款/@setpay~1> ^<微信收款/@setpay~2>');
		end else	
		This_Npc.NpcDialog(This_Player,'第一次使用~请先填写收款信息 <真实姓名/fcolor=232>+<收款账号/fcolor=232>|{cmd}<支付宝收款/@setpay~1> ^<微信收款/@setpay~2>');
	end else
	This_Npc.NpcDialog(This_Player,'你背包里没有<'+print_str(temp_str,2)+'/fcolor=252> 请检查~');	
end;
procedure _setpay(Pstr:string); 
begin
	if Pstr = '1' then
	begin
		This_Npc.INputDialog(This_Player,'请输入真实姓名',0,100);
	end else This_Npc.NpcDialog(This_Player,'目前只支持支付宝收款~');	
end;
procedure P100;
begin	
	if WriteIniSectionStr('人民币回收.txt','账户信息',This_Player.Name+'真实姓名',This_Npc.inputstr) then
	begin
	This_Npc.INputDialog(This_Player,'请输入11位数的电话号码',0,200);
	end else
	This_Npc.NpcDialog(This_Player,'发生错误请联系管理员, -1');	
end;
procedure P200;
begin
		if length(This_Npc.inputstr) = 11 then
		begin
			if WriteIniSectionStr('人民币回收.txt','账户信息',This_Player.Name+'收款账号',This_Npc.inputstr) then
			begin
			This_Npc.NpcDialog(This_Player,'填写成功，出款时间为每日20~23点，为了您的资金安全请确保信息完整~|{cmd}<返回/@main>');
			end else
			This_Npc.NpcDialog(This_Player,'发生错误请联系管理员, -2');
		end else
		This_Npc.NpcDialog(This_Player,'支付宝收款请填写11位数的电话号码~|{cmd}<返回/@main>');
//	end else
//		This_Npc.NpcDialog(This_Player,'输入错误，请数入阿拉伯数字~|{cmd}<返回/@main>');
	end;
begin
	domain;
end.

分享到：

赞(0)