战神引擎声望回收脚本

声望回收脚本，玩家打到的装备，可以在NPC上通过回收，得到对应的声望，声望的作用根据版本的不同而不同，但在战神引擎里面最常见的就是佩戴装备了，特别是一些勋章需要。脚本使用到了common.pas文件，这个文件不能直接覆盖，需要单独提取对应的变量到新增加的版本里面，切记。

战神引擎声望回收脚本

声望回收部分脚本

PROGRAM Mir2;
{$I common.pas}
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure domain;
var MySW : Integer;
begin
  MYSW := This_Player.MyShengwan;
  This_Npc.NpcDialog(This_Player,
   '看来你需要我的帮助，\'+
   '我这里可以回收祖玛装备。\'+
   '我这里可以给你兑换成声望\'+
   '请选择你要回收的装备种类：\ \'+
   '|您当前声望值为： <'+inttostr(MYSW)+'/c=250>\'+
 //   +'|{cmd}<回收沃玛武器/@zhuangDlg_33>        ^<回收沃玛装备/@zhuangDlg_22>\'
    +'|{cmd}<回收祖玛装备/@zhuangDlg_11>\'
	+'|{cmd}<回收祖玛武器/@zhuangDlg_55>\'
//	+'|{cmd}<回收4格装备/@sige>  \'
	+'|{cmd}<退出/@doexit>\'
	);
end;
Procedure _sige;
begin
This_NPC.NpcDialog(This_Player,
'|一级回收2000点声望\'+
'|二级回收6000点声望\'+
'|三级回收12000点声望\'+
'|四级四格暂时不回收\'+
	+'|{cmd}<一级靴子/@1> ^<二级靴子/@2>^<三级靴子/@3>\'
  +'|{cmd}<一级腰带/@5> ^<二级腰带/@6>^<三级腰带/@7>\'
	+'|{cmd}<一级勋章/@9> ^<二级勋章/@10>^<三级勋章/@11>\'
	+'|{cmd}<一级盾牌/@13> ^<二级盾牌/@14>^<三级盾牌/@15>\'
	+'|{cmd}<返回/@main>  \'
 );
 end;
 Procedure _1;
begin
	if This_Player.GetBagItemCount('一级靴子') >= 1 then
  begin
     This_Player.Take('一级靴子',1);
	This_Player.MyShengwan := This_Player.MyShengwan + 2000;
	This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”回收4格装备获得了2000点声望!'); 
        end  
	    else                                                                                                                                                                               
    This_Npc.NpcDialog(This_Player,          
    '你背包里面根本没有4格装备！\ \');
 end;
  Procedure _5;
begin
	if This_Player.GetBagItemCount('一级腰带') >= 1 then
  begin
     This_Player.Take('一级腰带',1);
	This_Player.MyShengwan := This_Player.MyShengwan + 2000;
	This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”回收4格装备获得了2000点声望!'); 
        end  
	    else                                                                                                                                                                               
    This_Npc.NpcDialog(This_Player,          
    '你背包里面根本没有4格装备！\ \');
 end;
  Procedure _9;
begin
	if This_Player.GetBagItemCount('一级勋章') >= 1 then
  begin
     This_Player.Take('一级勋章',1);
	This_Player.MyShengwan := This_Player.MyShengwan + 2000;
	This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”回收4格装备获得了2000点声望!'); 
        end  
	    else                                                                                                                                                                               
    This_Npc.NpcDialog(This_Player,          
    '你背包里面根本没有4格装备！\ \');
 end;
  Procedure _13;
begin
	if This_Player.GetBagItemCount('一级盾牌') >= 1 then
  begin
     This_Player.Take('一级盾牌',1);
	This_Player.MyShengwan := This_Player.MyShengwan + 2000;
	This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”回收4格装备获得了2000点声望!'); 
        end  
	    else                                                                                                                                                                               
    This_Npc.NpcDialog(This_Player,          
    '你背包里面根本没有4格装备！\ \');
 end;
  Procedure _2;
begin
	if This_Player.GetBagItemCount('二级靴子') >= 1 then
  begin
     This_Player.Take('二级靴子',1);
	This_Player.MyShengwan := This_Player.MyShengwan + 6000;
	This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”回收4格装备获得了6000点声望!'); 
        end  
	    else                                                                                                                                                                               
    This_Npc.NpcDialog(This_Player,          
    '你背包里面根本没有4格装备！\ \');
 end;
  Procedure _6;
begin
	if This_Player.GetBagItemCount('二级腰带') >= 1 then
  begin
     This_Player.Take('二级腰带',1);
	This_Player.MyShengwan := This_Player.MyShengwan + 6000;
	This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”回收4格装备获得了6000点声望!'); 
        end  
	    else                                                                                                                                                                               
    This_Npc.NpcDialog(This_Player,          
    '你背包里面根本没有4格装备！\ \');
 end;
  Procedure _10;
begin 
	if This_Player.GetBagItemCount('二级勋章') >= 1 then
  begin
     This_Player.Take('二级勋章',1);
	This_Player.MyShengwan := This_Player.MyShengwan + 6000;
	This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”回收4格装备获得了6000点声望!'); 
        end  
	    else                                                                                                                                                                               
    This_Npc.NpcDialog(This_Player,          
    '你背包里面根本没有4格装备！\ \');
 end;
  Procedure _14;
begin
	if This_Player.GetBagItemCount('二级盾牌') >= 1 then
  begin
     This_Player.Take('二级盾牌',1);
	This_Player.MyShengwan := This_Player.MyShengwan + 6000;
	This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”回收4格装备获得了6000点声望!'); 
        end  
	    else                                                                                                                                                                               
    This_Npc.NpcDialog(This_Player,          
    '你背包里面根本没有4格装备！\ \');
 end;
   Procedure _3;
begin
	if This_Player.GetBagItemCount('三级靴子') >= 1 then
  begin
     This_Player.Take('三级靴子',1);
	This_Player.MyShengwan := This_Player.MyShengwan + 12000;
	This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”回收4格装备获得了12000点声望!'); 
        end  
	    else                                                                                                                                                                               
    This_Npc.NpcDialog(This_Player,          
    '你背包里面根本没有4格装备！\ \');
 end;
   Procedure _7;
begin
	if This_Player.GetBagItemCount('三级腰带') >= 1 then
  begin
     This_Player.Take('三级腰带',1);
	This_Player.MyShengwan := This_Player.MyShengwan + 12000;
	This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”回收4格装备获得了12000点声望!'); 
        end  
	    else                                                                                                                                                                               
    This_Npc.NpcDialog(This_Player,          
    '你背包里面根本没有4格装备！\ \');
 end;
   Procedure _11;
begin
	if This_Player.GetBagItemCount('三级勋章') >= 1 then
  begin
     This_Player.Take('三级勋章',1);
	This_Player.MyShengwan := This_Player.MyShengwan + 12000;
	This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”回收4格装备获得了12000点声望!'); 
        end  
	    else                                                                                                                                                                               
    This_Npc.NpcDialog(This_Player,          
    '你背包里面根本没有4格装备！\ \');
 end;
   Procedure _15;
begin
	if This_Player.GetBagItemCount('三级盾牌') >= 1 then
  begin
     This_Player.Take('三级盾牌',1);
	This_Player.MyShengwan := This_Player.MyShengwan + 12000;
	This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”回收4格装备获得了12000点声望!'); 
        end  
	    else                                                                                                                                                                               
    This_Npc.NpcDialog(This_Player,          
    '你背包里面根本没有4格装备！\ \');
 end;
procedure _zhuangDlg_44;
begin
  This_Npc.NpcDialog(This_Player,
   '看来你需要我的帮助，\'+
   '我这里可以回收沃玛装备。\'+
   '您想兑换成经验？\'+
   '请选择你要回收的装备种类：\ \'+
    +'|{cmd}<沃玛换经验/@zhuangDlg~4>^ <沃玛换声望/@zhuangDlg1~4>\'
	+'|{cmd}<关闭/@doexit>'
	);
end;

分享到：

赞(0)