sm
服务器租用 传奇3一条龙 996 支付平台源码 无法下载点击此处反馈
查看: 496|回复: 1

战神引擎1.85上线自动过验证脚本 [战神引擎]

[复制链接]

826

主题

36

回帖

23万

积分

霸王教主

积分
236844
发表于 2023-7-27 00:08:59 | 显示全部楼层 |阅读模式
此脚本只针对战神引擎1.85开启了信用分验证的服,1.80可能会出现上线验证过了下次上线还要验证的情况。

方法1:直接2个文件覆盖原文件,但是可能会影响已经设定好的上线触发

方法2:直接找到2个文件对比原文件,局部修改
  1. program Mir2;

  2. {$I ActiveValidateCom.pas}
  3. procedure _AboutActive;
  4. begin
  5.    This_Player.PlayerDialog(
  6.    '增强传奇信用分的方式有以下:\'
  7.     +'|1.使用浪漫星雨或者地下组队卷轴进入地图挑战怪物会增加你的\传奇信用分。\'
  8.     +'|2.击杀BOSS与活动怪物也会增加传奇信用分。\'
  9.     +'|3.参加地下夺宝活动,并点击到活动NPC,会增加传奇信用分。\'
  10.     +'|4.在商城中购买绑定道具会增加传奇信用分。\'
  11.     +'|5.鉴定精力值,金刚石抽取武器等会增加传奇信用分。\'
  12.     +'|6.学习高级技能和佩戴高属性装备可以增加临时信用分。\'
  13.     +'|7.还有许多会增加传奇信用分的方式,等待你去发现。\'
  14.     );
  15. end;
  16. procedure _ValidateActive;
  17. var StorageNum_b , StorageNum_N : integer;
  18. begin
  19.    if This_Player.CheckAuthen(1,100) = false then
  20.    begin
  21.      if This_Player.GetActivePoint + This_Player.GetTmpActivePoint >= 0 then
  22.      begin
  23.       StorageNum_b := This_Player.GetStorageSpaceCount;
  24.       if This_Player.ActiveAuthen(1,100) = 1 then
  25.       begin
  26.       StorageNum_N := This_Player.GetStorageSpaceCount;
  27.       
  28.       This_Player.ExpandStorageSpace(StorageNum_b + 24 - StorageNum_N);

  29.       
  30.       This_Player.PlayerDialog(
  31.       '验证成功!\'+
  32.       '您已成为验证用户,祝您游戏愉快!'  
  33.       );
  34.       end else
  35.       This_Player.PlayerDialog(
  36.       '验证失败,请稍后再试。\ \'  
  37.       );
  38.      end else
  39.      This_Player.PlayerDialog(
  40.      '验证失败,您的传奇信用分不足30分。\ \'+
  41.      '|{cmd}<了解增强传奇信用分的方式/@AboutActive>\'  
  42.      );
  43.    end else
  44.    This_Player.PlayerDialog(
  45.    '您是验证用户,无需再次验证,祝您游戏愉快!\'  
  46.    );
  47. end;

  48. procedure EventNotify(EventNO: Integer; EventParam: Integer);   //此接口由程序调用
  49. begin

  50. end;

  51. //**************************GM宝典*****************************
  52. procedure _GameMasterAB;
  53. begin
  54.   if This_Player.GMLevel <= 0 then exit;
  55.   This_Player.PlayerDialog(
  56.   '请选择要传送的地图:\'+
  57.   '{cmd}<屠魔1/@GameMasterAC~1>   ^<屠魔2/@GameMasterAC~2>   ^<屠魔3/@GameMasterAC~3>   ^<屠魔4/@GameMasterAC~4>   |<屠魔5/@GameMasterAC~5>   ^<屠魔6/@GameMasterAC~6>   ^<屠魔7/@GameMasterAC~7>^\'+
  58.   '|<屠魔8/@GameMasterAC~8>   <屠魔9/@GameMasterAC~9>   <屠魔10/@GameMasterAC~10>  ^<屠魔11/@GameMasterAC~11>  |<屠魔12/@GameMasterAC~12>  ^<屠魔13/@GameMasterAC~13>  ^<屠魔14/@GameMasterAC~14>^\'+
  59.   '|<屠魔15/@GameMasterAC~15>  ^<屠魔16/@GameMasterAC~16>  ^<屠魔17/@GameMasterAC~17>  ^<屠魔18/@GameMasterAC~18>  |<屠魔19/@GameMasterAC~19>  ^<屠魔20/@GameMasterAC~20>  ^<屠魔21/@GameMasterAC~21>^\'+
  60.   '|<屠魔22/@GameMasterAC~22>  ^<屠魔23/@GameMasterAC~23>  ^<屠魔24/@GameMasterAC~24>  ^<屠魔25/@GameMasterAC~25>  |<屠魔26/@GameMasterAC~26>  ^<屠魔27/@GameMasterAC~27>  ^<屠魔28/@GameMasterAC~28>^\'+
  61.   '|<屠魔29/@GameMasterAC~29>  ^<屠魔30/@GameMasterAC~30>  ^<屠魔31/@GameMasterAC~31>  ^<屠魔32/@GameMasterAC~32>  |<屠魔33/@GameMasterAC~33>  ^<屠魔34/@GameMasterAC~34>  ^<屠魔35/@GameMasterAC~35>^\'+
  62.   '|<屠魔36/@GameMasterAC~36>  ^<屠魔37/@GameMasterAC~37>  ^<屠魔38/@GameMasterAC~38>  ^<屠魔39/@GameMasterAC~39>  |<屠魔40/@GameMasterAC~40>  ^<屠魔41/@GameMasterAC~41>  ^<屠魔42/@GameMasterAC~42>^\'+
  63.   '|<屠魔43/@GameMasterAC~43>  ^<屠魔44/@GameMasterAC~44>  ^<屠魔45/@GameMasterAC~45>  ^<屠魔46/@GameMasterAC~46>  |<屠魔47/@GameMasterAC~47>  ^<屠魔48/@GameMasterAC~48>  ^<屠魔49/@GameMasterAC~49>^\'+
  64.   '|<屠魔50/@GameMasterAC~50>  ^<沙巴克藏宝阁/@GameMasterAA~30>\'
  65.   );
  66. end;

  67. procedure _GameMasterAA(str:string);
  68. var
  69. temp:integer;
  70. begin
  71.   if This_Player.GMLevel <= 0 then exit;
  72.   temp := strtointdef(str,-1);
  73.   case temp of
  74.   0: This_Player.Flyto('G001',52,48);
  75.   1: This_Player.Flyto('GA0',73,73);
  76.   2: This_Player.Flyto('0122~1',22,32);
  77.   3: This_Player.Flyto('3',333,333);
  78.   4: This_Player.Flyto('0',334,268);
  79.   5: This_Player.Flyto('11',178,324);
  80.   6: This_Player.Flyto('4',237,203);
  81.   7: This_Player.Flyto('5',137,331);
  82.   8: This_Player.Flyto('6',121,159);
  83.   9: This_Player.Flyto('12',195,212);
  84.   10: This_Player.Flyto('D717',56,49);
  85.   11: This_Player.Flyto('D613',43,65);
  86.   12: This_Player.Flyto('D505',103,94);
  87.   13: This_Player.Flyto('D5061',10,14);
  88.   14: This_Player.Flyto('D5071',20,22);
  89.   15: This_Player.Flyto('D2008',42,38);
  90.   16: This_Player.Flyto('D2013',42,38);
  91.   17: This_Player.Flyto('62',110,142);
  92.   18: This_Player.Flyto('66',200,74);
  93.   19: This_Player.Flyto('D024',50,50);
  94.   20: This_Player.Flyto('D2079',52,51);
  95.   21: This_Player.Flyto('R001~01',100,100);
  96.   22: This_Player.Flyto('D505~01',102,95);
  97.   23: This_Player.Flyto('D2004~01',45,45);
  98.   24: This_Player.Flyto('D416~01',54,37);
  99.   25: This_Player.Flyto('D415~01',54,37);
  100.   26: This_Player.Flyto('D411~01',52,25);
  101.   27: This_Player.Flyto('D5072',18,61);
  102.   28: This_Player.Flyto('D5073',30,33);
  103.   29: This_Player.Flyto('D5074',34,26);
  104.   30: This_Player.Flyto('H204',50,50);
  105.   end;
  106. end;

  107. procedure _GameMasterAC(str:string);
  108. begin
  109.   if This_Player.GMLevel <= 0 then exit;   
  110.   This_Player.RandomFlyTo('D024~'+str);
  111. end;

  112. procedure TempExpBylv();
  113. var tempLv , tempExp : integer;
  114. begin
  115.     tempExp := 0;  
  116.     tempLv := This_Player.Level;
  117.     if (tempLv >= 1) and (tempLv <= 30) then tempExp := 10
  118.     else if (tempLv >= 31) and (tempLv <= 35) then tempExp := 7
  119.     else if (tempLv >= 36) and (tempLv <= 40) then tempExp := 4
  120.     else if (tempLv >= 41) then tempExp := 2;
  121.    
  122.     if tempExp > 0 then
  123.     begin
  124.         This_Player.MultiTempExpRate := tempExp;
  125.         This_Player.PlayerNotice('当前经验倍数:' + inttostr(tempExp) + '倍',2);
  126.                 This_Player.Playerdialog(ActiveValidateStr);
  127.     end;
  128.    
  129.    
  130. end;


  131. //---------------------------GM宝典----------------------------

  132. begin
  133.    
  134.    TempExpBylv();
  135.      
  136.    if AutoOpen(2) then
  137.    begin
  138.      if This_Player.CheckAuthen(1,100) = false then
  139.      begin
  140.      This_Player.PlayerNotice('您当前为未验证用户。可携带200万金币和使用20格仓库,可以获得所有物品,但无法转移、丢弃物品给其他玩家。',2);
  141.      This_Player.PlayerNotice('您可以通过体验游戏内容,提高传奇信用分至30分,在各仓库管理员和传送员处成为验证用户。',2);
  142.      end;
  143.    end else
  144.    begin
  145.      if This_Player.CheckAuthen(1,100) = false then
  146.      begin
  147.      This_Player.PlayerNotice('您当前为未验证用户,'+inttostr(AutoOpenDay(2))+'天后将开启验证功能,验证功能开启后未验证用户:可携带200万金币和使用20格仓库,可以获得所有物品,但无法转移、丢弃物品给其他玩家。',2);
  148.      This_Player.PlayerNotice('您也可以通过体验游戏内容,提高传奇信用分至30分,提前在各仓库管理员和传送员处成为验证用户。',2);
  149.      end;
  150.    end;  
  151. end.
复制代码
文件名称:1.85上线自动过验证脚本.zip 
下载次数:0  文件大小:4.05 KB 
下载权限: 不限 VIP   [购买VIP]   [充值积分]   [每日签到领积分]
安全检测,请放心下载







上一篇:战神引擎万能商人脚本-3.pas
下一篇:击杀BOSS首曝奖励战神引擎脚本
回复

使用道具 举报

1

主题

252

回帖

1070

积分

旋风流星刀

积分
1070
QQ
发表于 2023-12-21 07:44:50 | 显示全部楼层
积分任务
回复

使用道具 举报

© 2001-2024 Discuz! Team. Powered by Discuz! X3.5

GMT+8, 2024-7-24 13:11 , Processed in 0.269134 second(s), 53 queries 手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系

快速回复 返回顶部 返回列表