巅峰之战脚本

这个脚本类似于吃鸡，在一个地图里面互相PK打架，最后留下来的人就是胜利者，我曾经见过一个版本里面后半个小时以后会自动刷怪，这样里面的人就无法作弊。
脚本分两个部分，一个是npc的显示部分，一个是这个战场的控制脚本和变量。
部分脚本展示：

1. procedure _CKMed_GBgz01;
   
2. var
   
3. iMed01,iMed02,iMed03:integer;
   
4. begin
   
5.    if This_Player.GetV(98,1) < 0 then This_Player.SetV(98,1,0);
   
6.    if This_Player.GetV(98,2) < 0 then This_Player.SetV(98,2,0);
   
7.    if This_Player.GetV(98,3) < 0 then This_Player.SetV(98,3,0);
   
8.    iMed01 := This_Player.GetV(98,1);
   
9.    iMed02 := This_Player.GetV(98,2);
   
10.    iMed03 := This_Player.GetV(98,3);
    
11.    if iMed01 >= 50 then
    
12.    begin
    
13.      if This_Player.FreeBagNum > 0 then
    
14.      begin
    
15.      This_Player.Give('疗伤药罐',1);
    
16.      This_Player.SetV(98,1,iMed01-50);   
    
17.      end else
    
18.      begin
    
19.      This_Player.PlayerNotice('包裹空间不足。',2);
    
20.      end;
    
21.    end else
    
22.    begin
    
23.    This_Player.PlayerNotice('疗伤药不足。',2);
    
24.    end;  
    
25.    _CangKuMedGZ2;
    
26. end;
    
27. 
    
28. procedure _CKMed_GBgz02;
    
29. var
    
30. iMed01,iMed02,iMed03:integer;
    
31. begin
    
32.    if This_Player.GetV(98,1) < 0 then This_Player.SetV(98,1,0);
    
33.    if This_Player.GetV(98,2) < 0 then This_Player.SetV(98,2,0);
    
34.    if This_Player.GetV(98,3) < 0 then This_Player.SetV(98,3,0);
    
35.    iMed01 := This_Player.GetV(98,1);
    
36.    iMed02 := This_Player.GetV(98,2);
    
37.    iMed03 := This_Player.GetV(98,3);
    
38.    if iMed02 >= 50 then
    
39.    begin
    
40.      if This_Player.FreeBagNum > 0 then
    
41.      begin
    
42.      This_Player.Give('万年雪霜罐',1);
    
43.      This_Player.SetV(98,2,iMed02-50);   
    
44.      end else
    
45.      begin
    
46.      This_Player.PlayerNotice('包裹空间不足。',2);
    
47.      end;
    
48.    end else
    
49.    begin
    
50.    This_Player.PlayerNotice('万年雪霜不足。',2);
    
51.    end;  
    
52.    _CangKuMedGZ2;
    
53. end;

复制代码

脚本下载地址：

游客，如果您要查看本帖隐藏内容请回复