传奇手游打宝提现Npc脚本(简单好用)

用于战神引擎手游版本的打金提现Npc脚本，非常的简单，脚本是单文件的，把文件放到npc文件夹，在添加到npc脚本里面就行了，带了配套的提现记录文件，非常的简单好用。对gm来说，审核也是非常的方便，对新手很友好。脚本是明文版，可以任意修改里面的提现判断物品。帮主已经把配套的脚本、文件、DB数据库和一元人民币素材也一起提取出来了，你们直接添加即可。

添加教程：https://www.1eke.net/7709.html

传奇手游打宝提现Npc脚本(简单好用)

部分脚本

PROGRAM Mir2;
var 
num :integer;
alipay :integer;
Procedure _doexit;
begin
begin
if This_Player.GMLevel > 0  then
begin
    This_NPC.NpcDialog(This_Player,
+'|　　　　　　　　　　　　　　　　　　　　　\'
   +'|<欢迎来到顺风银行提款机/c=58>\'
   +'|<各大BOOS均爆红包/c=245>\'
   +'|<满10元可申请提现/c=95>\'
   +'|<提现处理时间为20-24点/c=245>\'
   +'|<每次最低提现10元，每天限一次/c=245>\'
   +'|　　　　　　　　　　　　　　　　　　　　　\'
	+'|{cmd} ^<申请提现/@first>\'
	+'|{cmd} ^<查询进度/@find>\'
	+'|{cmd} ^<关闭对话/@doexit>\'
	+'|{cmd} ^<清空当日变量/@delete>\'
  );
end
else
begin
    This_NPC.NpcDialog(This_Player,
+'|　　　　　　　　　　　　　　　　　　　　　\'
   +'|<欢迎来到顺风银行提款机/c=58>\'
   +'|<各大BOOS均爆红包/c=245>\'
   +'|<满10元可申请提现/c=95>\'
   +'|<提现处理时间为20-24点/c=245>\'
   +'|<每次最低提现10元，每天限一次/c=245>\'
   +'|　　　　　　　　　　　　　　　　　　　　　\'
	+'|{cmd} ^<申请提现/@first>\'
	+'|{cmd} ^<查询进度/@find>\'
	+'|{cmd} ^<关闭对话/@doexit>\'
  );
end;
end;
procedure _delete; 
begin    
alipay := This_Player.GetV(63,4);
    if alipay > 0 then//当日提现次数（检测是否当日有没有提现过）
	    begin
        if This_Npc.ChkStrInFile('\提现\成功提现角色.txt', This_Player.Name) = true  then  //检查是有申请提现角色
		    begin
            This_NPC.NpcDialog(This_Player,'当前角色的提现进度：正在审核中'); 
            end 
		else
		This_NPC.NpcDialog(This_Player,'当前角色的提现进度：成功');
        end		
begin    
        This_NPC.InputDialog(This_Player,'请输入支付宝账号',0,123) ;
end;
procedure first1; 
begin    
        This_NPC.InputDialog(This_Player,'请输入提现金额（10-100）',0,1234) ;
end;

procedure p123;
begin
   num1 :=  This_NPC.InputStr;
   This_Player.CallOut(This_NPC,1,'first1');
end;
procedure p1234;
begin
    today := GetDateNum(GetNow);
    if This_Player.GetV(63,3) <> today then  //判断时间如果不是当日时间则储存当日时间并且清空当日提现次数；
        begin
        This_Player.SetV(63,3,today);
                        begin  
                            if This_Player.GetBagItemCount ('一元人民币') >= num   then  //物品可根据自己需要更改
                                begin
                                num0 := This_Player.GetV(63,4);
                                    if num0 < 1 then//当日提现次数	   
                                                        begin 
                                                            if This_Npc.ChkStrInFile('\提现\成功提现角色.txt', This_Player.Name) = true  then  //检查是否申请过提现
                                                                begin
                                                                This_NPC.NpcDialog(This_Player,'你已经申请过一次提现了，请等待客服审核处理');    
                                                                end 
	                                                        else
	                                else 
	                                This_NPC.NpcDialog(This_Player,'你今天已经提现过一次了，每天只能提现一次哦');
	                            end
                            else
                            This_NPC.NpcDialog(This_Player,'你的红包不足，不能够提现');   
                        end
	                else
	                This_NPC.NpcDialog(This_Player,'请输入正确的提现金额10-100');  
                end;
end;
procedure   pay;
begin
  This_NPC.NpcDialog(This_Player,'提现失败，返回错误代码-0');
  This_Npc.AddStrToFile('\提现\提现失败记录.txt', This_Player.Name); //写入角色名到失败提现记录，方便查询玩家日志  
end;
begin
  domain;
end.

分享到：

赞(1)