战神引擎炼体脚本支持主号英雄脚本
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
{ 35博客35boke.com*******************************************************************}Procedure _doexit;begin This_Npc.CloseDialog(This_Player);end;procedure _lianti1; var today , num,AddHP,AddHP1,AddHP2: integer;begin if This_Player.GetV(99,1) <> today then begin This_Player.SetV(99,1,today); This_Player.SetV(99,2,0); end; //初始化变量值，每天首次触发，将领取变量设置为0 num := This_Player.GetV(99,2); AddHP := 60*num; AddHP1 := 40*num; AddHP2 := 20*num; if num > 1 then begin case This_Player.Job of 0 : //战士 begin This_Player.AddPlayerAbil(4, AddHP, 65535); This_Player.AddHeroAbil(4, AddHP, 65535); This_Npc.NpcDialog(This_Player, '恭喜你开启成功\' ); end; 1 : //法师 begin This_Player.AddPlayerAbil(4, AddHP1, 65535); This_Player.AddHeroAbil(4, AddHP1, 65535); This_Npc.NpcDialog(This_Player, '恭喜你开启成功\' ); end; 2 : //道士 begin This_Player.AddPlayerAbil(4, AddHP2, 65535); This_Player.AddHeroAbil(4, AddHP2, 65535); This_Npc.NpcDialog(This_Player, '恭喜你开启成功\' ); end; end; end else This_Npc.NpcDialog(This_Player, '你没有转生，无法开启属性\' ); end; procedure _lianti; var today , num,AddHP,AddHP1,AddHP2: integer;begin if This_Player.GetV(99,1) <> today then begin This_Player.SetV(99,1,today); This_Player.SetV(99,2,0); end; //初始化变量值，每天首次触发，将领取变量设置为0 num := This_Player.GetV(99,2); AddHP := 60*num; AddHP1 := 40*num; AddHP2 := 20*num; if num < 10 then begin if (This_Player.MyLFnum >= 50) then begin case This_Player.Job of 0 : //0是战士 begin This_Player.AddPlayerAbil(4, AddHP, 65535); This_Player.AddHeroAbil(4, AddHP, 65535); This_Player.DecLF(0, 50, false); This_Player.SetV(99,2, num + 1); //领取变量每领取一次加一 This_Npc.NpcDialog(This_Player, '恭喜你炼体成功，当前炼体层数<'+inttostr(num)+'/c=red>层！\' +'|{cmd}<继续/@lianti>\' +'|{cmd}<取消/@doexit>\' ); end; 1 : //法师 begin This_Player.AddPlayerAbil(4, AddHP1, 65535); This_Player.AddHeroAbil(4, AddHP1, 65535); This_Player.DecLF(0, 50, false); This_Player.SetV(99,2, num + 1); //领取变量每领取一次加一 This_Npc.NpcDialog(This_Player, '恭喜你炼体成功，当前炼体层数<'+inttostr(num)+'/c=red>层！\' +'|{cmd}<继续/@lianti>\' +'|{cmd}<取消/@doexit>\' ); end; 2 : //道士 begin This_Player.AddPlayerAbil(4, AddHP2, 65535); This_Player.AddHeroAbil(4, AddHP2, 65535); This_Player.DecLF(0, 50, false); This_Player.SetV(99,2, num + 1); //领取变量每领取一次加一 This_Npc.NpcDialog(This_Player, '恭喜你炼体成功，当前炼体层数<'+inttostr(num)+'/c=red>层！\' +'|{cmd}<继续/@lianti>\' +'|{cmd}<取消/@doexit>\' ); end; end; end else This_Npc.NpcDialog(This_Player, '灵符不足50，无法炼体\' ); end else This_Player.PlayerDialog( '<你的炼体层数已经达到顶级，无法继续/c=red>' );end;var today , num,AddHP,AddHP1,AddHP2: integer;begin if This_Player.GetV(99,1) <> today then begin This_Player.SetV(99,1,today); This_Player.SetV(99,2,0); end; //初始化变量值，每天首次触发，将领取变量设置为0 num := This_Player.GetV(99,2); AddHP := 60*num; AddHP1 := 40*num; AddHP2 := 20*num; if num < 12 then This_Npc.NpcDialog(This_Player, '当前炼体层数<'+inttostr(num)+'/c=red>层 封顶<10/c=254>层！\' +'|<战士每级增加60点HP/c=251> 当前可获得HP<'+inttostr(num*2)+'/c=red>点\' +'|<道士每级增加40点HP/c=252> 当前可获得HP<'+inttostr(num*2)+'/c=red>点\' +'|<法师每级增加20点HP/c=253> 当前可获得HP<'+inttostr(num*2)+'/c=red>点\' +'|<每次炼体灵符50/c=254>\' +'|<人物可获得属性/c=250>\' +'|<属性有限时间10小时，可重复领取/c=251>\' +'|<开启炼体功能需要50灵符：第一次开启不会增加生命值/c=red>\' +'|{cmd}<开始炼体/@lianti> ^<开启属性/@lianti1>' );end. |
