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.