更多版块 › 战神脚本 › 巅峰之战脚本

乾乾与行 发表于 2022-9-16 22:53:45

巅峰之战脚本

这个脚本类似于吃鸡，在一个地图里面互相PK打架，最后留下来的人就是胜利者，我曾经见过一个版本里面后半个小时以后会自动刷怪，这样里面的人就无法作弊。
脚本分两个部分，一个是npc的显示部分，一个是这个战场的控制脚本和变量。
部分脚本展示：
procedure _CKMed_GBgz01;
var
iMed01,iMed02,iMed03:integer;
begin
   if This_Player.GetV(98,1) < 0 then This_Player.SetV(98,1,0);
   if This_Player.GetV(98,2) < 0 then This_Player.SetV(98,2,0);
   if This_Player.GetV(98,3) < 0 then This_Player.SetV(98,3,0);
   iMed01 := This_Player.GetV(98,1);
   iMed02 := This_Player.GetV(98,2);
   iMed03 := This_Player.GetV(98,3);
   if iMed01 >= 50 then
   begin
   if This_Player.FreeBagNum > 0 then
   begin
   This_Player.Give('疗伤药罐',1);
   This_Player.SetV(98,1,iMed01-50);   
   end else
   begin
   This_Player.PlayerNotice('包裹空间不足。',2);
   end;
   end else
   begin
   This_Player.PlayerNotice('疗伤药不足。',2);
   end;
   _CangKuMedGZ2;
end;

procedure _CKMed_GBgz02;
var
iMed01,iMed02,iMed03:integer;
begin
   if This_Player.GetV(98,1) < 0 then This_Player.SetV(98,1,0);
   if This_Player.GetV(98,2) < 0 then This_Player.SetV(98,2,0);
   if This_Player.GetV(98,3) < 0 then This_Player.SetV(98,3,0);
   iMed01 := This_Player.GetV(98,1);
   iMed02 := This_Player.GetV(98,2);
   iMed03 := This_Player.GetV(98,3);
   if iMed02 >= 50 then
   begin
   if This_Player.FreeBagNum > 0 then
   begin
   This_Player.Give('万年雪霜罐',1);
   This_Player.SetV(98,2,iMed02-50);   
   end else
   begin
   This_Player.PlayerNotice('包裹空间不足。',2);
   end;
   end else
   begin
   This_Player.PlayerNotice('万年雪霜不足。',2);
   end;
   _CangKuMedGZ2;
end;

脚本下载地址：
**** Hidden Message *****

qazwsx009 发表于 2022-9-19 19:56:39

000000000000000000000

qazwsx009 发表于 2022-9-19 20:10:33

000000000000000000000000

lxguang314 发表于 2023-5-30 01:58:03

巅峰之战脚

查看完整版本: 巅峰之战脚本