用于战神引擎自助体现RMB打金回收Npc脚本,不需要GM去审核,玩家在线提交装备回收得RMB脚本,脚本是明文版的,可以任意修改里面的装备名单和回收金额。
特别注意:需要把 人民币回收.txt 这份文件放到:D:\mud2.0\Mir200\Share\config文件夹下面。
部分脚本
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.
感谢你的来访!QQ交流群:970786861
© 版权声明
1.本文部分内容转载自其它媒体,但并不代表本站赞同其观点和对其真实性负责。
2.若您需要商业运营或用于其他商业活动,请您购买正版授权并合法使用。
3.如果本站有侵犯、不妥之处的资源,请在网站最下方联系我们。将会第一时间解决!
4.本站所有内容均由互联网收集整理、网友上传,仅供大家参考、学习,不存在任何商业目的与商业用途。
5.本站提供的所有资源仅供参考学习使用,版权归原著所有,禁止下载本站资源参与商业和非法行为,请在24小时之内自行删除!处理。
2.若您需要商业运营或用于其他商业活动,请您购买正版授权并合法使用。
3.如果本站有侵犯、不妥之处的资源,请在网站最下方联系我们。将会第一时间解决!
4.本站所有内容均由互联网收集整理、网友上传,仅供大家参考、学习,不存在任何商业目的与商业用途。
5.本站提供的所有资源仅供参考学习使用,版权归原著所有,禁止下载本站资源参与商业和非法行为,请在24小时之内自行删除!处理。
THE END
暂无评论内容