手游哥源码网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 94|回复: 2

巅峰之战脚本

[复制链接]

525

主题

525

帖子

18万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
185932
QQ
发表于 2022-9-16 22:53:45 | 显示全部楼层 |阅读模式
巅峰之战脚本3192 作者:乾乾与行 帖子ID:701 巅峰,之战,脚本

这个脚本类似于吃鸡,在一个地图里面互相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. procedure _CKMed_GBgz02;
  28. var
  29. iMed01,iMed02,iMed03:integer;
  30. begin
  31.    if This_Player.GetV(98,1) < 0 then This_Player.SetV(98,1,0);
  32.    if This_Player.GetV(98,2) < 0 then This_Player.SetV(98,2,0);
  33.    if This_Player.GetV(98,3) < 0 then This_Player.SetV(98,3,0);
  34.    iMed01 := This_Player.GetV(98,1);
  35.    iMed02 := This_Player.GetV(98,2);
  36.    iMed03 := This_Player.GetV(98,3);
  37.    if iMed02 >= 50 then
  38.    begin
  39.      if This_Player.FreeBagNum > 0 then
  40.      begin
  41.      This_Player.Give('万年雪霜罐',1);
  42.      This_Player.SetV(98,2,iMed02-50);   
  43.      end else
  44.      begin
  45.      This_Player.PlayerNotice('包裹空间不足。',2);
  46.      end;
  47.    end else
  48.    begin
  49.    This_Player.PlayerNotice('万年雪霜不足。',2);
  50.    end;  
  51.    _CangKuMedGZ2;
  52. end;
复制代码


脚本下载地址:
游客,如果您要查看本帖隐藏内容请回复

回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【右侧内容,后台自定义】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ/免责声明/Archiver/手机版/小黑屋/特别鸣谢/隐私条款/版权声明/下架/sitemap/手游哥源码网 ( 粤ICP备20024708号-3 )


本站资源来自互联网搜集,仅供本地电脑单机学习和交流,请勿用于商业用途,请自觉在24小时内删除。
本站仅提供信息存储空间服务,软件的复制品持有人不知道也没有合理的理由应当知道展示的作品侵权!
本站所有资源仅限用于研究产品软件内含、设计思想和原理为目的用途,禁止任何商用行为,违者后果自负!
若有侵权与文章中不妥之处,请联系邮箱:4660647@qq.com(手机随时接收邮件)并出示相关证明以便删除。敬请谅解!
快速回复 返回顶部 返回列表