战神引擎二级密码设置脚本

夜游神 · 发表于 2023-4-9 15:32:17

1、打开mapinfo 加入

[HERO001~1234567  防盗大厅 0] SAFE NORECALL BLACKROOM  NOPOSITIONMOVE NORECONNECT  (HERO001~1234567)

地图参数不要改哦。 BLACKROOM 这是禁止回城  当然盟重传送石也不能用

这个是地图  我用的英雄地时间多的可以自己加一个地图名字要15位然后最后的括号内容为退出小退继续回到该地图括号内容要和地图名一致

开启盘古的安全区禁丢物品和普通vip功能里的禁止地图交易（这个功能需要地图名字为15位）

2、打开  D:\mud2.0\Mir200\Envir\PsMapQuest\ LogonQuest.pas

在最底下的begin end 中间加入  This_Player.Flyto('HERO001~1234567',28 ,24 )

意思是传送到该地图 '' 中间是地图名  后面是坐标按照你自己的地图写就行

缺点就是不能上线秒传送过去需要等几秒钟。这几秒钟要盗号基本装备丢完了。。。

<font color="#0000ff">procedure _ok;
begin
This_Player.SetV(99,1,-1)
This_Player.SetV(99,2,-1)
This_Player.SetV(99,3,-1)
This_Player.SetV(99,4,-1)
This_Player.SetV(99,5,-1)
This_Player.SetV(99,6,-1)
This_Player.SetV(99,7,-1)
This_Player.SetV(99,8,-1)
This_Player.SetV(99,9,-1)
This_Player.SetV(99,10,-1)
if(length(inttostr(This_Player.GetV(99,11))) <> 6 ) then
begin
This_Player.SetV(99,11,-1)
This_Npc.NpcDialog(This_Player,'为了您的财产安全,请输入二级密码|否者无法正常游戏.||'
+'^<1/@One>^<2/@Tow>^<3/@Three>^||'
+'^<4/@Four>^<5/@Five>^<6/@Six>^||'
+'^<7/@Seven>^<8/@Eight>^<9/@Nine>^||'
+' <重置/@rest> <确定/@ok>^||'//确保一样长度
//+inttostr(This_Player.GetV(99,1))+inttostr(This_Player.GetV(99,1))
+'----------------------------------------------------------'
+'丨密码只能设置六位数,请从新输入丨|'
+'----------------------------------------------------------|'
)
end else
if (This_Player.GetV(99,12) = -1) then
begin
This_Player.SetV(99,13,This_Player.GetV(99,11))
This_Player.SetV(99,12,1)
This_Npc.NpcDialog(This_Player,'您设置的二级密码为：<'+inttostr(This_Player.GetV(99,11))+'/c=red>')
end else
if (This_Player.GetV(99,13) = This_Player.GetV(99,11)) then
begin
This_Player.Flyto('3',330 ,330 )
end else
begin
This_Npc.NpcDialog(This_Player,'为了您的财产安全,请输入二级密码|否者无法正常游戏.||'
+'^<1/@One>^<2/@Tow>^<3/@Three>^||'
+'^<4/@Four>^<5/@Five>^<6/@Six>^||'
+'^<7/@Seven>^<8/@Eight>^<9/@Nine>^||'
+' <重置/@rest> <确定/@ok>^||'//确保一样长度
//+inttostr(This_Player.GetV(99,1))+inttostr(This_Player.GetV(99,1))
+'----------------------------------------------------------'
+' 丨密码错误丨|'
+'----------------------------------------------------------|'
)
end;
end;
begin
if(This_Player.GetV(99,12) = -1 ) then
begin
This_Player.SetV(99,11,-1)
This_Npc.NpcDialog(This_Player,'你还没设置二级密码.||为了你的账号安全|请立即设置二级密码||'
+'<立即设置/@shuru>');
end else
begin
This_Player.SetV(99,11,-1)
This_Npc.NpcDialog(This_Player,'为了您的财产安全,请输入二级密码|否者无法正常游戏.||'
+'^<确定/@shuru>');
end</font>