【战神引擎】BOSS首爆脚本

PROGRAM Mir2;
var
sum,sum1:Integer;  
str1,str2,str3,str4,str5,str6,str7,str8,str9 :String;
name1,name2,name3,name4,name5,name6,name7,name8,name9 :String;
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
         This_NPC.NpcDialog(This_Player,
'特定地图全服首次击杀BOSS会得到一定元宝的奖励\|'
+'{cmd}<查看榜单/@sxbd>\');  
end;
Procedure _sxbd;
begin                                 
if GetG(71,11)= 1 then
  begin
  str1 := '已被击杀';
  end
  else   str1 := '未被击杀';
if GetG(71,12)= 1 then
   begin
   str2 := '已被击杀';
   end
   else str2 := '未被击杀';      
if GetG(71,13)= 1 then
  begin
  str3 := '已被击杀';
    end
    else  str3 := '未被击杀';  
if GetG(71,14)= 1 then
  begin  
  str4 := '已被击杀';
  end
  else   str4 := '未被击杀';
if GetG(71,15)= 1 then
  begin
  str5 := '已被击杀';
  end
  else   str5 := '未被击杀';   
if GetG(71,16)= 1 then
  begin
  str5 := '已被击杀';
  end
  else   str6 := '未被击杀';  
  if GetG(71,17)= 1 then
  begin
  str7 := '已被击杀';
  end
else  str7 := '未被击杀';
if GetG(71,18)= 1 then
  begin
  str8 := '已被击杀';
  end
  else   str8 := '未被击杀';
  if This_Player.GetV(72,11)= 10 then
     begin
     name1 := This_Player.name;
     end
     else name1 := '';
   if This_Player.GetV(72,12)= 10 then
     begin
     name2 := This_Player.name;
     end
     else name2 := '';
     if This_Player.GetV(72,13)= 10 then
     begin
     name3 := This_Player.name;
     end
     else name3 := '';
     if This_Player.GetV(72,14)= 10 then
     begin
     name4 := This_Player.name;
     end
     else name4 := '';
  if This_Player.GetV(72,15)= 10 then
     begin
     name5 := This_Player.name;
     end
     else name5 := '';   
  if This_Player.GetV(72,16)= 10 then
     begin
     name6 := This_Player.name;
     end
     else name6 := '';
     if This_Player.GetV(72,17)= 10 then
     begin
     name7 := This_Player.name;
     end
     else name7 := '';   
       if This_Player.GetV(72,18)= 10 then
     begin
     name8 := This_Player.name;
     end
     else name8 := '';   
      if This_Player.GetV(72,19)= 10 then
     begin
     name9 := This_Player.name;
     end
     else name9 := '';
      This_NPC.NpcDialog(This_Player,
  '<沃玛教主/c=red>'+ str1 +'<完成首杀的玩家是/c=red>'+name1+' \|'  
+'<祖玛教主/c=red>'+ str2 +'<完成首杀的玩家是/c=red>'+name2+' \|'
+'<牛魔王/c=red>'+ str3 +'<完成首杀的玩家是/c=red>'+name3+' \|'
+'<暗之牛魔王/c=red>'+str4 +'<完成首杀的玩家是/c=red>'+name4+' \|'
+'<双头血魔/c=red>'+ str5 +'<完成首杀的玩家是/c=red>'+name5 +' \|'
+'<双头金刚/c=red>'+ str6 +'<完成首杀的玩家是/c=red>'+name6+' \|'
+'<魔龙教主/c=red>'+ str7 +'<完成首杀的玩家是/c=red>'+name7+' \|'
+'<黄泉教主/c=red>'+ str8 +'<完成首杀的玩家是/c=red>'+name8 +' \|'
+'{cmd}<刷新榜单/@sxbd>\');                          
end;     
     
Begin
  domain;
  
end.