灵符商城Npc教程(带自定义对话框素材)

用于战神引擎灵符商城自定义npc脚本，在之前的时间里，帮主已经更新了灵符商城脚本，但那个是传统版，今天在纵横里面见到了自定义的，把脚本和素材一起提取出来了，要支持自定义兑换，客户端必须要是或者裤衩插件才行，原始的不支持。

部分脚本

Program Mir2;


procedure domain;
begin 
This_Npc.NpcDialog(This_Player,
'Bg:shangcheng:1|'+
'Exit:shangcheng:0:0:515:30|'+

'1:Item:精力神石:1372:1:200:85|'+
'1:Text:200:120:16:40灵符/2个@250|'+
'1:RBtn:shangcheng:4:200:155:购买@M2:18:161|'+

'1:Item:热血结晶:1375:1:311:85|'+
'1:Text:311:120:16:50灵符/个@250|'+
'1:RBtn:shangcheng:4:311:155:购买@M1:18:161|'+

'1:Item:10万元宝:3001:1:424:85|'+
'1:Text:422:120:16:100灵符/10万@250|'+
'1:RBtn:shangcheng:4:422:155:购买@M3:18:161|'+

'1:Item:10000元宝:3001:1:533:85|'+
'1:Text:533:120:16:10灵符/1万@250|'+
'1:RBtn:shangcheng:4:533:155:购买@M4:18:161|'+

'1:Item:金刚石:470:1:200:205|'+
'1:Text:200:240:16:1灵符/2个@250|'+
'1:RBtn:shangcheng:4:200:275:购买@M6:18:161|'+

'1:Item:金刚石:470:1:311:205|'+
'1:Text:311:240:16:10灵符/20个@250|'+
'1:RBtn:shangcheng:4:311:275:购买@M7:18:161|'+


'1:RBtn:shangcheng:3:95:67:灵符商场@main:18:161|'+
'1:RBtn:shangcheng:3:95:102:等待添加@zan2:18:160|'+
'|{cmd}</@M1>^</@M2>^</@M3>^</@M4>^</@M5>^</@M6>^</@M7>'
  );
end;

procedure _M1; 
begin
if This_Player.MyLFnum >= 50 then
begin
This_Player.DecLF(0,50,false);
This_Player.Give('热血结晶',1);				  			
end;

procedure _M2; 			  
ServerSay('玩家<' + This_Player.Name + '>在积分商城购买了2个精力神石！', 0);			 
end else
This_NPC.NpcDialog(This_Player,'你的不足40灵符！');				
end;

procedure _M3; 
begin
This_Player.ScriptRequestAddYBNum(100000);				  
This_NPC.NpcDialog(This_Player,'成功购买了10万元宝！');
ServerSay('玩家<' + This_Player.Name + '>在灵符商城兑换了100000元宝！', 0);		
end else
This_NPC.NpcDialog(This_Player,'你的不足100灵符！');				
end;

procedure _M4; 
begin
if This_Player.MyLFnum >= 10 then
begin
This_Player.DecLF(0,10,false);	 
end else
This_NPC.NpcDialog(This_Player,'你的不足10灵符！');				
end;

procedure _M5; 
begin
if This_Player.MyLFnum >= 1 then
begin
This_Player.DecLF(0,1,false);			 
end else
This_NPC.NpcDialog(This_Player,'你的不足1灵符！');				
end;

procedure _M6; 
begin
if This_Player.MyLFnum >= 1 then
begin
This_Player.DecLF(0,1,false);
This_Player.Give('金刚石',2);				  
//This_NPC.NpcDialog(This_Player,'成功购买了金刚石！');
ServerSay('玩家<' + This_Player.Name + '>在灵符商城兑换了金刚石！', 0);					 
end else
This_NPC.NpcDialog(This_Player,'你的不足1灵符！');				
end;

procedure _M7; 
begin
if This_Player.MyLFnum >= 10 then
begin
This_Player.DecLF(0,10,false);
This_Player.Give('金刚石',20);				  
This_NPC.NpcDialog(This_Player,'你的不足10灵符！');				
end;

Begin
  domain;
end.

分享到：

赞(1)