|
|
此脚本只针对战神引擎1.85开启了信用分验证的服，1.80可能会出现上线验证过了下次上线还要验证的情况。
方法1：直接2个文件覆盖原文件，但是可能会影响已经设定好的上线触发
方法2：直接找到2个文件对比原文件，局部修改
- program Mir2;
- {$I ActiveValidateCom.pas}
- procedure _AboutActive;
- begin
- This_Player.PlayerDialog(
- '增强传奇信用分的方式有以下:\'
- +'|1.使用浪漫星雨或者地下组队卷轴进入地图挑战怪物会增加你的\传奇信用分。\'
- +'|2.击杀BOSS与活动怪物也会增加传奇信用分。\'
- +'|3.参加地下夺宝活动,并点击到活动NPC,会增加传奇信用分。\'
- +'|4.在商城中购买绑定道具会增加传奇信用分。\'
- +'|5.鉴定精力值,金刚石抽取武器等会增加传奇信用分。\'
- +'|6.学习高级技能和佩戴高属性装备可以增加临时信用分。\'
- +'|7.还有许多会增加传奇信用分的方式,等待你去发现。\'
- );
- end;
- procedure _ValidateActive;
- var StorageNum_b , StorageNum_N : integer;
- begin
- if This_Player.CheckAuthen(1,100) = false then
- begin
- if This_Player.GetActivePoint + This_Player.GetTmpActivePoint >= 0 then
- begin
- StorageNum_b := This_Player.GetStorageSpaceCount;
- if This_Player.ActiveAuthen(1,100) = 1 then
- begin
- StorageNum_N := This_Player.GetStorageSpaceCount;
-
- This_Player.ExpandStorageSpace(StorageNum_b + 24 - StorageNum_N);
-
- This_Player.PlayerDialog(
- '验证成功！\'+
- '您已成为验证用户，祝您游戏愉快！'
- );
- end else
- This_Player.PlayerDialog(
- '验证失败，请稍后再试。\ \'
- );
- end else
- This_Player.PlayerDialog(
- '验证失败，您的传奇信用分不足30分。\ \'+
- '|{cmd}<了解增强传奇信用分的方式/@AboutActive>\'
- );
- end else
- This_Player.PlayerDialog(
- '您是验证用户，无需再次验证，祝您游戏愉快！\'
- );
- end;
- procedure EventNotify(EventNO: Integer; EventParam: Integer); //此接口由程序调用
- begin
- end;
- //**************************GM宝典*****************************
- procedure _GameMasterAB;
- begin
- if This_Player.GMLevel <= 0 then exit;
- This_Player.PlayerDialog(
- '请选择要传送的地图：\'+
- '{cmd}<屠魔1/@GameMasterAC~1> ^<屠魔2/@GameMasterAC~2> ^<屠魔3/@GameMasterAC~3> ^<屠魔4/@GameMasterAC~4> |<屠魔5/@GameMasterAC~5> ^<屠魔6/@GameMasterAC~6> ^<屠魔7/@GameMasterAC~7>^\'+
- '|<屠魔8/@GameMasterAC~8> <屠魔9/@GameMasterAC~9> <屠魔10/@GameMasterAC~10> ^<屠魔11/@GameMasterAC~11> |<屠魔12/@GameMasterAC~12> ^<屠魔13/@GameMasterAC~13> ^<屠魔14/@GameMasterAC~14>^\'+
- '|<屠魔15/@GameMasterAC~15> ^<屠魔16/@GameMasterAC~16> ^<屠魔17/@GameMasterAC~17> ^<屠魔18/@GameMasterAC~18> |<屠魔19/@GameMasterAC~19> ^<屠魔20/@GameMasterAC~20> ^<屠魔21/@GameMasterAC~21>^\'+
- '|<屠魔22/@GameMasterAC~22> ^<屠魔23/@GameMasterAC~23> ^<屠魔24/@GameMasterAC~24> ^<屠魔25/@GameMasterAC~25> |<屠魔26/@GameMasterAC~26> ^<屠魔27/@GameMasterAC~27> ^<屠魔28/@GameMasterAC~28>^\'+
- '|<屠魔29/@GameMasterAC~29> ^<屠魔30/@GameMasterAC~30> ^<屠魔31/@GameMasterAC~31> ^<屠魔32/@GameMasterAC~32> |<屠魔33/@GameMasterAC~33> ^<屠魔34/@GameMasterAC~34> ^<屠魔35/@GameMasterAC~35>^\'+
- '|<屠魔36/@GameMasterAC~36> ^<屠魔37/@GameMasterAC~37> ^<屠魔38/@GameMasterAC~38> ^<屠魔39/@GameMasterAC~39> |<屠魔40/@GameMasterAC~40> ^<屠魔41/@GameMasterAC~41> ^<屠魔42/@GameMasterAC~42>^\'+
- '|<屠魔43/@GameMasterAC~43> ^<屠魔44/@GameMasterAC~44> ^<屠魔45/@GameMasterAC~45> ^<屠魔46/@GameMasterAC~46> |<屠魔47/@GameMasterAC~47> ^<屠魔48/@GameMasterAC~48> ^<屠魔49/@GameMasterAC~49>^\'+
- '|<屠魔50/@GameMasterAC~50> ^<沙巴克藏宝阁/@GameMasterAA~30>\'
- );
- end;
- procedure _GameMasterAA(str:string);
- var
- temp:integer;
- begin
- if This_Player.GMLevel <= 0 then exit;
- temp := strtointdef(str,-1);
- case temp of
- 0: This_Player.Flyto('G001',52,48);
- 1: This_Player.Flyto('GA0',73,73);
- 2: This_Player.Flyto('0122~1',22,32);
- 3: This_Player.Flyto('3',333,333);
- 4: This_Player.Flyto('0',334,268);
- 5: This_Player.Flyto('11',178,324);
- 6: This_Player.Flyto('4',237,203);
- 7: This_Player.Flyto('5',137,331);
- 8: This_Player.Flyto('6',121,159);
- 9: This_Player.Flyto('12',195,212);
- 10: This_Player.Flyto('D717',56,49);
- 11: This_Player.Flyto('D613',43,65);
- 12: This_Player.Flyto('D505',103,94);
- 13: This_Player.Flyto('D5061',10,14);
- 14: This_Player.Flyto('D5071',20,22);
- 15: This_Player.Flyto('D2008',42,38);
- 16: This_Player.Flyto('D2013',42,38);
- 17: This_Player.Flyto('62',110,142);
- 18: This_Player.Flyto('66',200,74);
- 19: This_Player.Flyto('D024',50,50);
- 20: This_Player.Flyto('D2079',52,51);
- 21: This_Player.Flyto('R001~01',100,100);
- 22: This_Player.Flyto('D505~01',102,95);
- 23: This_Player.Flyto('D2004~01',45,45);
- 24: This_Player.Flyto('D416~01',54,37);
- 25: This_Player.Flyto('D415~01',54,37);
- 26: This_Player.Flyto('D411~01',52,25);
- 27: This_Player.Flyto('D5072',18,61);
- 28: This_Player.Flyto('D5073',30,33);
- 29: This_Player.Flyto('D5074',34,26);
- 30: This_Player.Flyto('H204',50,50);
- end;
- end;
- procedure _GameMasterAC(str:string);
- begin
- if This_Player.GMLevel <= 0 then exit;
- This_Player.RandomFlyTo('D024~'+str);
- end;
- procedure TempExpBylv();
- var tempLv , tempExp : integer;
- begin
- tempExp := 0;
- tempLv := This_Player.Level;
- if (tempLv >= 1) and (tempLv <= 30) then tempExp := 10
- else if (tempLv >= 31) and (tempLv <= 35) then tempExp := 7
- else if (tempLv >= 36) and (tempLv <= 40) then tempExp := 4
- else if (tempLv >= 41) then tempExp := 2;
-
- if tempExp > 0 then
- begin
- This_Player.MultiTempExpRate := tempExp;
- This_Player.PlayerNotice('当前经验倍数：' + inttostr(tempExp) + '倍',2);
- This_Player.Playerdialog(ActiveValidateStr);
- end;
-
-
- end;
- //---------------------------GM宝典----------------------------
- begin
-
- TempExpBylv();
-
- if AutoOpen(2) then
- begin
- if This_Player.CheckAuthen(1,100) = false then
- begin
- This_Player.PlayerNotice('您当前为未验证用户。可携带200万金币和使用20格仓库，可以获得所有物品，但无法转移、丢弃物品给其他玩家。',2);
- This_Player.PlayerNotice('您可以通过体验游戏内容，提高传奇信用分至30分，在各仓库管理员和传送员处成为验证用户。',2);
- end;
- end else
- begin
- if This_Player.CheckAuthen(1,100) = false then
- begin
- This_Player.PlayerNotice('您当前为未验证用户，'+inttostr(AutoOpenDay(2))+'天后将开启验证功能，验证功能开启后未验证用户：可携带200万金币和使用20格仓库，可以获得所有物品，但无法转移、丢弃物品给其他玩家。',2);
- This_Player.PlayerNotice('您也可以通过体验游戏内容，提高传奇信用分至30分，提前在各仓库管理员和传送员处成为验证用户。',2);
- end;
- end;
- end.
|
|
发表于 2023-7-27 00:08:59
发表于 2023-12-21 07:44:50