|
|
begin
This_Npc.NpcDialog(This_Player,
'阴影染指了一切！是你的错！眨眼的功夫罢了！|\'+
'沉默，接着是痛苦！影子，紧追身后！\'+
'你选在暗影的边缘起舞！阴影不是你的伙伴！\'+
'我在这里！光明无用！徒劳的逃亡！感受吧！|\'+
'<全服追杀！有钱就是干！>|\'+
'<全服追杀！有钱就是干！>|\'+
'<全服追杀！有钱就是干！>|\'+
'<天眼/@gotoFun~1> <天眼>可查看目标<当前血量>|\'+
'<追踪之术/@gotoFun~2>|\'+
'<追踪之术>消耗20000元宝，移动到<目标身边>|\'+
'<暗影绝杀/@gotoFun~3>|\'+
[mw_shl_code=delphi,true]program Mir2;
var
PMapName, zhuishaName : string;
Px, Py : integer;
MapId : array[1..100]of string;
//{$I letcommonScripts.pas}
procedure OnInitialize();
begin
//地图编号
MapId[1]:='HERO1';MapId[2]:='H204';MapId[3]:='rxcq20413';MapId[4]:='nfox03';MapId[5]:='G001~1';MapId[6]:='HL002';MapId[7]:='D505~1';MapId[8]:='66~1';MapId[9]:='4~1';MapId[10]:='D5071~2';MapId[11]:='hero1~2';
end;
procedure _Exit;
begin
This_Npc.CloseDialog(This_Player);
end;
function decYbzhuisha(price, num: Integer):boolean;
begin
result := true;
end;
procedure _gotoFun(strId:string);
begin
if strtoint(strId) <> null then
begin
This_Player.SetV(98,10,strtoint(strId));
This_NPC.InputDialog(This_Player,'请输入玩家名字:',0,100);
end else
This_Npc.NpcDialog(This_Player,'未知错误，请联系管理员');
end;
procedure P100;
begin
if This_Npc.InputOK then
begin
if This_Player.FindPlayer(This_Npc.InputStr) then
begin
if This_Player.GetV(98,10) = 1 then
begin
This_Player.PsYBConsum(This_NPC,'decYbzhuisha',20001,0,1);
This_Npc.NpcDialog(This_Player, '当前生命值'+inttostr(This_Player.FindPlayerByName(This_Npc.InputStr).HP)+'.');
end
else if This_Player.GetV(98,10) = 2 then
begin
zhuishaName := This_Player.FindPlayerByName(This_Npc.InputStr).Name;
PMapName := This_Player.FindPlayerByName(This_Npc.InputStr).MapName;
Px := This_Player.FindPlayerByName(This_Npc.InputStr).My_X;
Py := This_Player.FindPlayerByName(This_Npc.InputStr).My_Y;
This_Npc.NpcDialog(This_Player,
'<我已经探测到目标所在位置，你确定要这样做吗？>|\'+
'<追踪之术> 收费20000元宝|\'+
'{cmd}<送我过去/@gotoMap~1>'
);
end
else if This_Player.GetV(98,10) = 3 then
begin
zhuishaName := This_Player.FindPlayerByName(This_Npc.InputStr).Name;
PMapName := This_Player.FindPlayerByName(This_Npc.InputStr).MapName;
Px := This_Player.FindPlayerByName(This_Npc.InputStr).My_X;
Py := This_Player.FindPlayerByName(This_Npc.InputStr).My_Y;
This_Npc.NpcDialog(This_Player,
'我已经探测到目标所在位置，你确定要这样做吗？|\'+
'<暗影绝杀> 收费50000元宝|\'+
'{cmd}<送我过去/@gotoMap~2>'
);
end;
end else
This_Npc.NpcDialog(This_Player,'目标当前不在线,或输入名称有误');
end;
end;
procedure _gotoMap(gotoStr:string);
var i, zslv,zzss,zzsa : integer;
begin
for i:=1 to 100 do
begin
if MapId = '' then
break;
if PMapName = MapId then
begin
case i of
1: zslv:=10;
2: zslv:=9;
3: zslv:=7;
4: zslv:=8;
5: zzss:=1000;
6: zzss:=1000;
7: zzss:=1500;
8: zzss:=2000;
9: zzss:=2000;
10: zslv:=888;
11: zzsa:=120;
end
if (This_Player.GetBagItemCount('转生神印') < zslv) or (This_Player.MyShengwan < zzss) or (This_Player.Level < zzsa) then
begin
This_Npc.NpcDialog(This_Player,'对方所在地图是'+inttostr(zslv)+'转地图<或者>'+inttostr(zzss)+'积分地图,你转生等级或者积分不足无法追杀到该地图,追杀卧龙笔记里面的玩家需要120级');
exit;
end
end
end;
if strtoint(gotoStr) = 1 then
begin
if This_Player.YBNum >= 20000 then
begin
This_Player.PsYBConsum(This_NPC,'decYbzhuisha',20001,20000,1);
This_Player.FlyTo(PMapName,Px+random(2),Py+random(2));
This_Npc.NpcNotice('沉默，接着是痛苦,影子，紧追身后,下一位会是谁呢？');
end
else
begin
This_Npc.NpcNotice('2万元宝都没有，还想着杀人，老实打元宝去吧');
end;
end
else
begin
if This_Player.YBNum >= 50000 then
begin
This_Player.PsYBConsum(This_NPC,'decYbzhuisha',20001,50000,1);
This_Player.FlyTo(PMapName,Px+random(3),Py+random(3));
This_Player.FindPlayerByName(This_Npc.InputStr).AddPlayerAbil(13,1,3+random(5));
This_Npc.NpcNotice('光明无用，阴影染指了一切. 是善是恶 到底谁说了算');
end
else
begin
This_Npc.NpcNotice('5万元宝都没有，还想着杀人，老实打元宝去吧');
end;
end;
end;
begin
This_Npc.NpcDialog(This_Player,
'阴影染指了一切！是你的错！眨眼的功夫罢了！|\'+
'沉默，接着是痛苦！影子，紧追身后！\'+
'你选在暗影的边缘起舞！阴影不是你的伙伴！\'+
'我在这里！光明无用！徒劳的逃亡！感受吧！|\'+
'<全服追杀！有钱就是干！>|\'+
'<全服追杀！有钱就是干！>|\'+
'<全服追杀！有钱就是干！>|\'+
'<天眼/@gotoFun~1> <天眼>可查看目标<当前血量>|\'+
'<追踪之术/@gotoFun~2>|\'+
'<追踪之术>消耗20000元宝，移动到<目标身边>|\'+
'<暗影绝杀/@gotoFun~3>|\'+
'<暗影绝杀>消耗50000元宝，使用暗影的力量，瞬间出现在敌人身后，并在其脚下设置一个陷阱，<使其数秒不能动弹>|\'
);
end.[/mw_shl_code]
|
|
发表于 2022-12-31 20:47:43
发表于 2023-9-16 07:16:09
