用于战神引擎手游版本的全服首杀奖励元宝Npc脚本，脚本带了gm后台清理记录变量的功能，非常的人性化，脚本默认大概有30只怪物的奖励名单，脚本里面的怪物和奖励元宝的数量等内容可以任意修改。

​

部分脚本

program Mir2;
var
yanse1,yanse2,yanse3,yanse4,yanse5,yanse6,yanse7,yanse8 :  integer;
yanse11,yanse22,yanse33,yanse44,yanse55,yanse66,yanse77,yanse88 :  integer;
yanse111,yanse222,yanse333,yanse444,yanse555 :  integer;
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _di2;
  begin 
    if GetG(122,29) <= 0 then   //是否首次杀死怪物
   begin  
   yanse11 := 7; 
  end else  
  begin 
	yanse11 := 146;   
   end;  
    if GetG(122,25) <= 0 then   //是否首次杀死怪物
   begin    
   yanse22 := 7; 
  end else  
  begin
   yanse22 := 146;   
   end;
    if GetG(122,45) <= 0 then   //是否首次杀死怪物
     begin  
   yanse33 := 7; 
  end else  
  begin
   yanse33 := 146;   
   end;
    if GetG(122,27) <= 0 then   //是否首次杀死怪物
     begin  
   yanse44 := 7; 
  end else  
  begin
   yanse44 := 146;   
   end;   
    if GetG(122,47) <= 0 then   //是否首次杀死怪物
     begin  
   yanse55 := 7; 
  end else  
  begin
   yanse55 := 146;   
   end;
    if GetG(122,37) <= 0 then   //是否首次杀死怪物
     begin  
   yanse66 := 7; 
  end else  
  begin 
   yanse66 := 146;   
   end;
    if GetG(122,46) <= 0 then   //是否首次杀死怪物
     begin  
   yanse77 := 7; 
  end else  
  begin
   yanse77 := 146;   
   end;
    if GetG(122,40) <= 0 then   //是否首次杀死怪物
     begin  
   yanse88 := 7; 
  end else  
  begin
   yanse88 := 146;
   end;  
  This_Npc.NpcDialog(This_Player,         
    '|<★★★★★/fcolor=250>  <【><BOSS击杀奖励/fcolor=254><】>  <★★★★★/fcolor=250>\'+	
    '|<─────────────────────>\' + 	
    '|怪物名字  首杀奖励   再杀奖励   玩家名字\' +  	
    '|<─────────────────────>\' +   	
	'|<圣域教主/fcolor=250>:    <50 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','圣域教主','1') +'/fcolor='+inttostr(yanse11)+'>\'+		
	'|<触 龙 神/fcolor=250>:    <50 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','触龙神','1') +'/fcolor='+inttostr(yanse22)+'>\'+		
	'|<魔龙特使/fcolor=250>:    <50 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','魔龙特使','1') +'/fcolor='+inttostr(yanse33)+'>\'+				
	'|<魔龙教主/fcolor=250>:    <80 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','魔龙教主','1') +'/fcolor='+inttostr(yanse44)+'>\'+
	'|<暗之魔教/fcolor=250>:    <80 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','暗之魔龙教主','1') +'/fcolor='+inttostr(yanse55)+'>\'+	
	'|<魔龙树妖/fcolor=250>:    <80 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','魔龙树妖','1') +'/fcolor='+inttostr(yanse66)+'>\'+		
	'|<暗之树妖/fcolor=250>:    <80 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','暗之魔龙树妖','1') +'/fcolor='+inttostr(yanse77)+'>\'+				
	'|<上古尸王/fcolor=250>:    <80 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','上古尸王','1') +'/fcolor='+inttostr(yanse88)+'>\'+	
    '|<─────────────────────>\' +  	
    '|<杀死BOSS将直接给予该玩家奖励/fcolor=253>\' +  	
   +'|{cmd}<下一页/@di3>^<上一页/@main>^<关闭此页/@Exit>\'   
  );
end;
procedure _di3;
  begin 
    if GetG(122,30) <= 0 then   //是否首次杀死怪物
   begin  
   yanse111 := 7; 
  end else  
  begin 
	yanse111 := 146;   
   end;  
    if GetG(122,36) <= 0 then   //是否首次杀死怪物
   begin    
   yanse222 := 7; 
  end else  
  begin
   yanse222 := 146;   
   end;
    if GetG(122,28) <= 0 then   //是否首次杀死怪物
     begin  
   yanse333 := 7; 
  end else  
  begin
   yanse333 := 146;   
   end;
    if GetG(122,50) <= 0 then   //是否首次杀死怪物
     begin  
   yanse444 := 7; 
  end else  
  begin 
   yanse444 := 146;   
   end;
    if GetG(122,39) <= 0 then   //是否首次杀死怪物
     begin  
   yanse555 := 7; 
  end else  
  begin
   yanse555 := 146;   
   end;
  This_Npc.NpcDialog(This_Player,         
    '|<★★★★★/fcolor=250>  <【><BOSS击杀奖励/fcolor=254><】>  <★★★★★/fcolor=250>\'+	
    '|<─────────────────────>\' + 	
    '|怪物名字  首杀奖励   再杀奖励   玩家名字\' +  	
    '|<─────────────────────>\' +   	
	'|< 蚁 后/fcolor=250>:    <150 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','蚁后','1') +'/fcolor='+inttostr(yanse111)+'>\'+		
	'|<雷炎蛛王/fcolor=250>:    <150 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','雷炎蛛王','1') +'/fcolor='+inttostr(yanse222)+'>\'+		
	'|<冰眼巨魔/fcolor=250>:    <150 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','冰眼巨魔','1') +'/fcolor='+inttostr(yanse333)+'>\'+	
	'|<冰 龙 王/fcolor=250>:    <300 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','冰龙王','1') +'/fcolor='+inttostr(yanse444)+'>\'+	
	'|<火 龙 王/fcolor=250>:    <300 元宝/fcolor=242>        <'+ ReadIniSectionStr('首杀BOSS.txt','火龙王','1') +'/fcolor='+inttostr(yanse555)+'>\'+	
    '|<─────────────────────>\' +  	
    '|<杀死BOSS将直接给予该玩家奖励/fcolor=253>\' +  	
   +'|{cmd}<上一页/@di2>^<返回首页/@main>^<关闭此页/@Exit>\'   
  );
   end; 
procedure domain;
  begin 
    if GetG(122,17) <= 0 then   //是否首次杀死怪物
   begin  
   yanse1 := 7; 
  end else  
  begin 
	yanse1 := 146;   
   end;  
    if GetG(122,15) <= 0 then   //是否首次杀死怪物
   begin    
   yanse2 := 7; 
  end else