战神引擎玩家自助元宝提取和兑换Npc脚本

用于战神引擎玩家自助元宝提取和兑换Npc脚本，玩家可以把身上的元宝提取变成一个物品，然后交易或者摆摊，也可以把元宝物品双击或者在NPC上兑换变成对应的元宝数，加到自身上。脚本是明文版的，可以任意修改里面的内容。

部分脚本

procedure _dao3;
 begin
 if  (This_Player.GetBagItemCount ('一千万元宝') >= 1) then
   begin
		This_Player.Take('一千万元宝',1);
         This_Player.ScriptRequestAddYBNum(10000000); 
		ServerSay('玩家'+This_Player.Name+'兑换了一千万元宝！', 3);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你一千万元宝没有放到背包！'); 
  end;
procedure domain;
begin
	if (YB_NUM = 0) and (LV=0) then 
	begin
		tiaojian :='<免费进入/fcolor=222>';
	end else if (YB_NUM = 0) and (LV > 0) then begin
		tiaojian :='<'+inttostr(LV)+'级免费进入/fcolor=222>';
	end else if (YB_NUM > 0) and (LV > 0) then begin
		tiaojian :='<'+inttostr(LV)+'级+'+inttostr(YB_NUM)+'元宝进入/fcolor=222>';
	end;
    This_NPC.NpcDialog(This_Player,
	  '|< 焚天传奇 良心无坑 持续更新 长久稳定/fcolor=180>\'	
	 +'|<┏━━━━━━━━━━━━━━━━━━━━┓/fcolor=248>\'
	 +'|<元宝上限超过20亿自动清空,后期元宝非常好打/fcolor=249> \'    
     +'|<可以把元宝换成元宝蛋放在仓库！元宝蛋可交易/fcolor=249> \'    
	 +'|<数字飘血超过32767会显示随机数字,无需惊慌/fcolor=249> \'   
	 +'|<测试攻击请使用练功师/fcolor=249> \'      
	 +'|<┗━━━━━━━━━━━━━━━━━━━━┛/fcolor=248>\'
	 +'|{cmd}<提取一亿元宝/@dao1>^ \'
	 +'|{cmd}<提取1千万元宝/@dao2>^ <兑换1千万元宝/@dao3>\'
	);
end;
Begin
	YB_NUM := 100000;
	LV := 390;
	map_no :='d021~10';
	map_name :='远古遗迹';
	domain;
end.

分享到：

赞(0)