战神引擎召唤神龙分身Npc脚本(要星珠和金币)

用于战神引擎召唤神龙分身Npc脚本，脚本默认需要玩家提供1到7个星珠和500万金币，材料凑足以后，召唤会传送到一个指定地图，然后在里面打神龙怪物，如果没有打死，小腿以后，神龙会跟到土城来，大家都可以大。脚本是明文版的，可以任何修改里面召唤的材料和要求，怪物也可以自定义。

1到7个星珠DB数据

2027 0 一星珠 42 0 0 0 7136 3 10000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 200 0 0 0 0 0 0 0 0 0 0 7 0
2028 0 二星珠 42 0 0 0 7137 3 10000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 200 0 0 0 0 0 0 0 0 0 0 7 0
2029 0 三星珠 42 0 0 0 7138 3 10000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 200 0 0 0 0 0 0 0 0 0 0 7 0
2030 0 四星珠 42 0 0 0 7139 3 10000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 200 0 0 0 0 0 0 0 0 0 0 7 0
2031 0 五星珠 42 0 0 0 7140 3 10000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 200 0 0 0 0 0 0 0 0 0 0 7 0
2032 0 六星珠 42 0 0 0 7141 3 10000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 200 0 0 0 0 0 0 0 0 0 0 7 0
2033 0 七星珠 42 0 0 0 7142 3 10000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 200 0 0 0 0 0 0 0 0 0 0 7 0

战神引擎召唤神龙分身Npc脚本(要星珠和金币)

部分脚本

egin
    This_NPC.NpcDialog(This_Player,
	'集齐<7/fcolor=red>颗星珠，召唤<个人boss/fcolor=254>\'
	+'|有几率召唤出<boss分身/fcolor=250>，全服可打\'
	+'|<【等级要求】/fcolor=red>：达到50级\'
	+'|<【掉落物品】/fcolor=red>：超高爆率掉落全服物品\'
	+'|<【召唤条件】/fcolor=red>：集齐七颗星珠+500万金币\'
	+'|<【星珠出处】/fcolor=red>：一星珠怪物掉落，其他合成\'	
	+'|{cmd}<召唤神龙/@zhsl1> ^<星珠合成/@xzhc> ^<返回/@main>\'
   );
end;
Procedure _zhsl1;
begin
   This_Npc.InputDialog(This_Player,'召唤神龙需要7颗星珠+500万金币', 1 , 108);
end;
Procedure P108;
begin
   If This_Npc.InputOK then
   begin
      _zhslTrue;
   end;
end;

//----------------------------------------------------------------------------------------------------------------
Procedure _dlb300;
var
today:integer;
wp1,wp2:string;
begin
if This_Player.FreeBagNum >= 3 then
begin  
    today := GetDateNum(GetNow);
    if This_Player.GetV(70,4) <> today then     
        begin  
           This_Player.setV(70,4,today);
					wp1:='真*斗笠碎片';
					wp2:='修复神水';
					if This_Player.YBNum >=300 then
					begin
						This_Player.ScriptRequestSubYBNum(300);
						This_Player.SysGiveGift(wp1,200,true);
						This_Player.SysGiveGift(wp2,1,true);
					end else
					begin
					This_NPC.NpcDialog(This_Player,'元宝不足，无法购买！\|{cmd}<返回/@main>');
					end;								
		end else
			This_NPC.NpcDialog(This_Player,'斗笠碎片礼包每天限购一次!');
 end else 
		This_NPC.NpcDialog(This_Player,'背包不足!\|'); 
end;

Procedure _dlb500;
var
today:integer;
wp1,wp2,wp3:string;
begin
if This_Player.FreeBagNum >= 6 then
begin  
    today := GetDateNum(GetNow);
    if This_Player.GetV(70,7) <> today then     
        begin  
           This_Player.setV(70,7,today);
				wp1:='真*锻造符';
				wp2:='修复神水';
				wp3:='双倍秘籍';
				if This_Player.YBNum >=500 then
				begin
					This_Player.ScriptRequestSubYBNum(500);
					This_Player.SysGiveGift(wp1,200,true);
					This_Player.SysGiveGift(wp2,3,true);
					This_Player.SysGiveGift(wp3,1,true);
				end else
				begin
				This_NPC.NpcDialog(This_Player,'元宝不足，无法购买！\|{cmd}<返回/@main>');
				end;		
		end else
			This_NPC.NpcDialog(This_Player,'锻造符大礼包每天限购一次!');
 end else 
		This_NPC.NpcDialog(This_Player,'背包不足!\|'); 
end;
Procedure _czlb;
begin
    This_NPC.NpcDialog(This_Player,
	'超值大礼包，每天各限购1次\'
	+'|礼包内的物品绑定，无法交易\'
	+'|{cmd}<斗笠碎片礼包/@lb~1>\'
	+'|{cmd}<锻造符大礼包/@lb~2>\'
   );
end;

Procedure _lb(str3:string);
var
str2:string;
begin
	case str3 of
	'1':str2:='300元宝购买斗笠碎片礼包，内含真*斗笠碎片x200+修复神水，每天限购一次';
	'2':str2:='500元宝购买锻造符大礼包，内含真*锻造符x200+双倍秘籍+修复神水x3，每天限购一次';
	end;
	This_Player.SetV(70,3,strtoint(str3));
   This_Npc.InputDialog(This_Player,str2, 1 , 109);
end;

Procedure P109;
begin
   If This_Npc.InputOK then
   begin
		case This_Player.GetV(70,3) of
		1:_dlb300;
		2:_dlb500;
		end;
   end;
end;

分享到：

赞(0)