用于战神引擎手游版本的土城跑酷Npc脚本,脚本从夜雨版本里面提取出来的,如果你们在添加以后,牵扯到了素材,记得到这个版本里面提取,帮主制只提取了脚本文件。跑酷的时间和奖品可以任意在脚本里面修改,明文版的。

部分脚本
program Mir2;
var
WpName : string;
Rdm_int,px, py :Integer;
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _tcpk;
begin
if This_Player.Level >1 then
begin
This_Player.CallOut(This_Npc, 1, 'tcpk2');
This_Player.FlyTo('3',333,333);
This_Npc.NpcDialog(This_Player,
'请好好把握这幸福的时光。'
);
end;
end;
procedure tcpk2;
begin
Rdm_int := random(100);
px:= This_player.My_X;
py:= This_Player.My_Y;
if ((GetHour = 15) and (GetMin < 5)) or
((GetHour = 19) and (GetMin < 5)) then begin //自己修改开放时间
if (This_Player.MapName = '3') and ( 323 < px ) and (px < 343 )
and (323 < py ) and (py < 343) then //在土城坐标333.333 周围10格内跑动有效
begin if (This_Player.GetV(77,1) <> px) or
(This_Player.GetV(77,2) <> py )then // 移动才会继续触犯以下代码
begin
if This_Player.FreeBagNum >= 2 then
begin
if Rdm_int < 5 then // 5%机会获得以下物品
begin
case random(10) of // 5%机会获得以下25个物品中的一个
0 : WpName := '裁决之杖';
1 : WpName := '圣战头盔';
2 : WpName := '圣战项链';
3 : WpName := '圣战手镯';
4 : WpName := '圣战戒指';
5 : WpName := '骨玉权杖';
6 : WpName := '法神项链';
7 : WpName := '法神手镯';
8 : WpName := '法神戒指';
9 : WpName := '龙纹剑';
10 : WpName := '天尊项链';
11 : WpName := '天尊手镯';
12 : WpName := '天尊戒指';
13: WpName := '防御戒指';
14: WpName := '天师长袍';
15 :WpName := '天尊道袍';
16: WpName := '霓裳羽衣';
17 :WpName := '法神披风';
18 :WpName := '圣战宝甲';
19: WpName := '天魔神甲';
end;
end else if Rdm_int < 10 then
begin
case random(16) of
0 : WpName := '井中月';
1 : WpName := '黑铁头盔';
2 : WpName := '骑士手镯';
4 : WpName := '力量戒指';
5 : WpName := '无极棍';
6 : WpName := '灵魂项链';
7 : WpName := '三眼手镯';
8 : WpName := '泰坦戒指';
9 : WpName := '恶魔铃铛';
10: WpName := '龙之手镯';
11 :WpName := '紫碧螺';
12: WpName := '魔杖';
13: WpName := '绿色项链';
end;
end
else if Rdm_int < 20 then
begin
case random(10) of
0 : WpName := '炼狱';
1 : WpName := '幽灵项链';
2 : WpName := '幽灵手套';
3 : WpName := '龙之戒指';
4 : WpName := '魔杖';
5 : WpName := '生命项链';
6 : WpName := '思贝儿手镯';
7 : WpName := '红宝石戒指';
8 : WpName := '银蛇';
9 : WpName := '天珠项链';
10 : WpName := '心灵手镯';
11 : WpName := '铂金戒指';
end;
end
else if Rdm_int < 50 then
begin
case random(50) of
0 : WpName := '裁决之杖';
1 : WpName := '骨玉权杖';
2 : WpName := '无极棍';
3 : WpName := '龙纹剑';
4 : WpName := '祝福油';
5 : WpName := '金刚石';
6 : WpName := '1元宝';
7 : WpName := '2元宝';
8 : WpName := '10元宝';
9 : WpName := '5元宝';
10 : WpName := '2灵符';
11 : WpName := '5灵符';
12 : WpName := '1灵符';
end;
end








