今天闲得无聊，做了个复刻版的经脉系统(显示功能+事件+修改器+demo)(修正)

winson7891

RT，是在原版复刻的基础上改的

没发现两个事件的变量居然不一致，第二次出错了，惭愧惭愧～

——————————————————————

1，显示功能：
显示功能没啥好说的~就在原版的基础上加了一页的样子，感觉粗糙得可怕~懒得改了，召唤界面帝来改吧~~

1. //显示状态
   
2. 
   
3. procedure ShowStatus(rnum: integer);
   
4. var
   
5.   i, magicnum, mlevel, needexp, x, y: integer;
   
6.   p: array[0..10] of integer;
   
7.   addatk, adddef, addspeed: integer;
   
8.   str: widestring;
   
9.   strs: array[0..21] of widestring;
   
10.   color1, color2: uint32;
    
11.   name: widestring;
    
12.   jingmai: array[0..15] of WideString;
    
13.   num: SmallInt;
    
14. begin
    
15.   jingmai[0] := ' 手太阳';
    
16.   jingmai[1] := ' 手少阳';
    
17.   jingmai[2] := ' 手阳明';
    
18.   jingmai[3] := ' 手太阴';
    
19.   jingmai[4] := ' 手少阴';
    
20.   jingmai[5] := ' 手厥阴';
    
21.   jingmai[6] := ' 足太阳';
    
22.   jingmai[7] := ' 足少阳';
    
23.   jingmai[8] := ' 足阳明';
    
24.   jingmai[9] := ' 足太阴';
    
25.   jingmai[10] := ' 足少阴';
    
26.   jingmai[11] := ' 足厥阴';
    
27.   jingmai[12] := ' 任、督';
    
28.   jingmai[13] := ' 冲、带';
    
29.   jingmai[14] := ' 阳维、阳蹻';
    
30.   jingmai[15] := ' 阴维、阴蹻';
    
31.   strs[0] := ' 等級';
    
32.   strs[1] := ' 生命';
    
33.   strs[2] := ' 內力';
    
34.   strs[3] := ' 體力';
    
35.   strs[4] := ' 經驗';
    
36.   strs[5] := ' 升級';
    
37.   strs[6] := ' 攻擊';
    
38.   strs[7] := ' 防禦';
    
39.   strs[8] := ' 輕功';
    
40.   strs[9] := ' 醫療能力';
    
41.   strs[10] := ' 用毒能力';
    
42.   strs[11] := ' 解毒能力';
    
43.   strs[12] := ' 拳掌功夫';
    
44.   strs[13] := ' 御劍能力';
    
45.   strs[14] := ' 耍刀技巧';
    
46.   strs[15] := ' 特殊兵器';
    
47.   strs[16] := ' 暗器技巧';
    
48.   strs[17] := ' 裝備物品';
    
49.   strs[18] := ' 修煉物品';
    
50.   strs[19] := ' 所會武功';
    
51.   strs[20] := ' 受傷';
    
52.   strs[21] := ' 中毒';
    
53.   p[0] := 43;
    
54.   p[1] := 45;
    
55.   p[2] := 44;
    
56.   p[3] := 46;
    
57.   p[4] := 47;
    
58.   p[5] := 48;
    
59.   p[6] := 50;
    
60.   p[7] := 51;
    
61.   p[8] := 52;
    
62.   p[9] := 53;
    
63.   p[10] := 54;
    
64.   Redraw;
    
65.   x := 40;
    
66.   y := CENTER_Y - 160;
    
67. 
    
68.   DrawRectangle(x, y, 560, 315, 0, colcolor(255), 50);
    
69.   //显示头像
    
70.   drawheadpic(Rrole[rnum].HeadNum, x + 60, y + 80);
    
71.   //显示姓名
    
72.   name := big5tounicode(@Rrole[rnum].Name);
    
73.   drawshadowtext(@name[1], x + 68 - length(pchar(@Rrole[rnum].Name)) * 5, y + 85, colcolor($66), colcolor($63));
    
74.   //显示所需字符
    
75.   for i := 0 to 5 do
    
76.     drawshadowtext(@strs[i, 1], x - 10, y + 110 + 21 * i, colcolor($23), colcolor($21));
    
77.   for i := 6 to 16 do
    
78.     drawshadowtext(@strs[i, 1], x + 160, y + 5 + 21 * (i - 6), colcolor($66), colcolor($63));
    
79.   drawshadowtext(@strs[19, 1], x + 360, y + 5, colcolor($23), colcolor($21));
    
80. 
    
81.   addatk := 0;
    
82.   adddef := 0;
    
83.   addspeed := 0;
    
84.   if rrole[rnum].Equip[0] >= 0 then
    
85.   begin
    
86.     addatk := addatk + ritem[rrole[rnum].Equip[0]].AddAttack;
    
87.     adddef := adddef + ritem[rrole[rnum].Equip[0]].AddDefence;
    
88.     addspeed := addspeed + ritem[rrole[rnum].Equip[0]].AddSpeed;
    
89.   end;
    
90. 
    
91.   if rrole[rnum].Equip[1] >= 0 then
    
92.   begin
    
93.     addatk := addatk + ritem[rrole[rnum].Equip[1]].AddAttack;
    
94.     adddef := adddef + ritem[rrole[rnum].Equip[1]].AddDefence;
    
95.     addspeed := addspeed + ritem[rrole[rnum].Equip[1]].AddSpeed;
    
96.   end;
    
97. 
    
98.   //攻击, 防御, 轻功
    
99.   //单独处理是因为显示顺序和存储顺序不同
    
100.   str := format('%4d', [Rrole[rnum].Attack + addatk]);
     
101.   drawengshadowtext(@str[1], x + 300, y + 5 + 21 * 0, colcolor($7), colcolor($5));
     
102.   str := format('%4d', [Rrole[rnum].Defence + adddef]);
     
103.   drawengshadowtext(@str[1], x + 300, y + 5 + 21 * 1, colcolor($7), colcolor($5));
     
104.   str := format('%4d', [Rrole[rnum].Speed + addspeed]);
     
105.   drawengshadowtext(@str[1], x + 300, y + 5 + 21 * 2, colcolor($7), colcolor($5));
     
106. 
     
107.   //其他属性
     
108.   str := format('%4d', [Rrole[rnum].Medcine]);
     
109.   drawengshadowtext(@str[1], x + 300, y + 5 + 21 * 3, colcolor($7), colcolor($5));
     
110. 
     
111.   str := format('%4d', [Rrole[rnum].UsePoi]);
     
112.   drawengshadowtext(@str[1], x + 300, y + 5 + 21 * 4, colcolor($7), colcolor($5));
     
113. 
     
114.   str := format('%4d', [Rrole[rnum].MedPoi]);
     
115.   drawengshadowtext(@str[1], x + 300, y + 5 + 21 * 5, colcolor($7), colcolor($5));
     
116. 
     
117.   str := format('%4d', [Rrole[rnum].Fist]);
     
118.   drawengshadowtext(@str[1], x + 300, y + 5 + 21 * 6, colcolor($7), colcolor($5));
     
119. 
     
120.   str := format('%4d', [Rrole[rnum].Sword]);
     
121.   drawengshadowtext(@str[1], x + 300, y + 5 + 21 * 7, colcolor($7), colcolor($5));
     
122. 
     
123.   str := format('%4d', [Rrole[rnum].Knife]);
     
124.   drawengshadowtext(@str[1], x + 300, y + 5 + 21 * 8, colcolor($7), colcolor($5));
     
125. 
     
126.   str := format('%4d', [Rrole[rnum].Unusual]);
     
127.   drawengshadowtext(@str[1], x + 300, y + 5 + 21 * 9, colcolor($7), colcolor($5));
     
128. 
     
129.   str := format('%4d', [Rrole[rnum].HidWeapon]);
     
130.   drawengshadowtext(@str[1], x + 300, y + 5 + 21 * 10, colcolor($7), colcolor($5));
     
131. 
     
132.   //武功
     
133.   for i := 0 to 9 do
     
134.   begin
     
135.     magicnum := Rrole[rnum].magic[i];
     
136.     if magicnum > 0 then
     
137.     begin
     
138.       drawbig5shadowtext(@Rmagic[magicnum].Name, x + 360, y + 26 + 21 * i, colcolor($7), colcolor($5));
     
139.       str := format('%3d', [Rrole[rnum].MagLevel[i] div 100 + 1]);
     
140.       drawengshadowtext(@str[1], x + 520, y + 26 + 21 * i, colcolor($66), colcolor($64));
     
141.     end;
     
142.   end;
     
143.   str := format('%4d', [Rrole[rnum].Level]);
     
144.   drawengshadowtext(@str[1], x + 110, y + 110, colcolor($7), colcolor($5));
     
145.   //生命值, 在受伤和中毒值不同时使用不同颜色
     
146.   case RRole[rnum].Hurt of
     
147.     34..66:
     
148.       begin
     
149.         color1 := colcolor($E);
     
150.         color2 := colcolor($10);
     
151.       end;
     
152.     67..1000:
     
153.       begin
     
154.         color1 := colcolor($14);
     
155.         color2 := colcolor($16);
     
156.       end;
     
157.   else
     
158.     begin
     
159.       color1 := colcolor($7);
     
160.       color2 := colcolor($5);
     
161.     end;
     
162.   end;
     
163.   str := format('%4d', [RRole[rnum].CurrentHP]);
     
164.   drawengshadowtext(@str[1], x + 60, y + 131, color1, color2);
     
165. 
     
166.   str := '/';
     
167.   drawengshadowtext(@str[1], x + 100, y + 131, colcolor($66), colcolor($63));
     
168. 
     
169.   case RRole[rnum].Poision of
     
170.     34..66:
     
171.       begin
     
172.         color1 := colcolor($30);
     
173.         color2 := colcolor($32);
     
174.       end;
     
175.     67..1000:
     
176.       begin
     
177.         color1 := colcolor($35);
     
178.         color2 := colcolor($37);
     
179.       end;
     
180.   else
     
181.     begin
     
182.       color1 := colcolor($23);
     
183.       color2 := colcolor($21);
     
184.     end;
     
185.   end;
     
186.   str := format('%4d', [RRole[rnum].MaxHP]);
     
187.   drawengshadowtext(@str[1], x + 110, y + 131, color1, color2);
     
188.   //内力, 依据内力性质使用颜色
     
189.   if rrole[rnum].MPType = 0 then
     
190.   begin
     
191.     color1 := colcolor($50);
     
192.     color2 := colcolor($4E);
     
193.   end
     
194.   else if rrole[rnum].MPType = 1 then
     
195.   begin
     
196.     color1 := colcolor($7);
     
197.     color2 := colcolor($5);
     
198.   end
     
199.   else
     
200.   begin
     
201.     color1 := colcolor($66);
     
202.     color2 := colcolor($63);
     
203.   end;
     
204.   str := format('%4d/%4d', [RRole[rnum].CurrentMP, RRole[rnum].MaxMP]);
     
205.   drawengshadowtext(@str[1], x + 60, y + 152, color1, color2);
     
206.   //体力
     
207.   str := format('%4d/%4d', [rrole[rnum].PhyPower, MAX_PHYSICAL_POWER]);
     
208.   drawengshadowtext(@str[1], x + 60, y + 173, colcolor($7), colcolor($5));
     
209.   //经验
     
210.   str := format('%5d', [uint16(Rrole[rnum].Exp)]);
     
211.   drawengshadowtext(@str[1], x + 100, y + 194, colcolor($7), colcolor($5));
     
212.   str := format('%5d', [uint16(Leveluplist[Rrole[rnum].Level - 1])]);
     
213.   drawengshadowtext(@str[1], x + 100, y + 215, colcolor($7), colcolor($5));
     
214. 
     
215.   //str:=format('%5d', [Rrole[rnum,21]]);
     
216.   //drawengshadowtext(@str[1],150,295,colcolor($7),colcolor($5));
     
217. 
     
218.   //drawshadowtext(@strs[20, 1], 30, 341, colcolor($23), colcolor($21));
     
219.   //drawshadowtext(@strs[21, 1], 30, 362, colcolor($23), colcolor($21));
     
220. 
     
221.   //drawrectanglewithoutframe(100,351,Rrole[rnum,19],10,colcolor($16),50);
     
222.   //中毒, 受伤
     
223.   //str := format('%4d', [RRole[rnum].Hurt]);
     
224.   //drawengshadowtext(@str[1], 150, 341, colcolor($14), colcolor($16));
     
225.   //str := format('%4d', [RRole[rnum].Poision]);
     
226.   //drawengshadowtext(@str[1], 150, 362, colcolor($35), colcolor($37));
     
227. 
     
228.   //装备, 秘笈
     
229.   drawshadowtext(@strs[17, 1], x + 160, y + 240, colcolor($23), colcolor($21));
     
230.   drawshadowtext(@strs[18, 1], x + 360, y + 240, colcolor($23), colcolor($21));
     
231.   if Rrole[rnum].Equip[0] >= 0 then
     
232.     drawbig5shadowtext(@Ritem[Rrole[rnum].Equip[0]].Name, x + 170, y + 261, colcolor($7), colcolor($5));
     
233.   if Rrole[rnum].Equip[1] >= 0 then
     
234.     drawbig5shadowtext(@Ritem[Rrole[rnum].Equip[1]].Name, x + 170, y + 282, colcolor($7), colcolor($5));
     
235. 
     
236.   //计算秘笈需要经验
     
237.   if Rrole[rnum].PracticeBook >= 0 then
     
238.   begin
     
239.     mlevel := 1;
     
240.     magicnum := Ritem[Rrole[rnum].PracticeBook].Magic;
     
241.     if magicnum > 0 then
     
242.       for i := 0 to 9 do
     
243.         if Rrole[rnum].Magic[i] = magicnum then
     
244.         begin
     
245.           mlevel := Rrole[rnum].MagLevel[i] div 100 + 1;
     
246.           break;
     
247.         end;
     
248.     needexp := mlevel * Ritem[Rrole[rnum].PracticeBook].NeedExp * (7 - Rrole[rnum].Aptitude div 15);
     
249.     drawbig5shadowtext(@Ritem[Rrole[rnum].PracticeBook].Name, x + 370, y + 261, colcolor($7), colcolor($5));
     
250.     str := format('%5d/%5d', [uint16(Rrole[rnum].ExpForBook), needexp]);
     
251.     if mlevel = 10 then
     
252.       str := format('%5d/=', [uint16(Rrole[rnum].ExpForBook)]);
     
253.     drawengshadowtext(@str[1], x + 400, y + 282, colcolor($66), colcolor($63));
     
254.   end;
     
255.   //显示第一页
     
256.   SDL_UpdateRect(screen, x, y, 561, 316);
     
257.   WaitAnyKey;
     
258.   Redraw;
     
259.   DrawRectangle(x, y, 560, 315, 0, colcolor(255), 50);
     
260.   //显示头像
     
261.   drawheadpic(Rrole[rnum].HeadNum, x + 60, y + 80);
     
262.   //显示姓名
     
263.   name := big5tounicode(@Rrole[rnum].Name);
     
264.   drawshadowtext(@name[1], x + 68 - length(pchar(@Rrole[rnum].Name)) * 5, y + 85, colcolor($66), colcolor($63));
     
265. 
     
266.   for i := 0 to 15 do
     
267.   begin
     
268.     drawshadowtext(@jingmai[i, 1], x + 160 + 180*(i div 8), y + 20 + 21 * (i-((i div 8)*8)), colcolor($66), colcolor($63));
     
269.     num := (Rrole[rnum].Data[59]) shr i;       //示例以声望为经脉值，偏移118
     
270.     num := num mod 2;
     
271. 
     
272.     if Boolean(num) then
     
273.       str := '开啓'
     
274.     else
     
275.       str := '關閉';
     
276. 
     
277.     drawshadowtext(@str[1], x + 300 + 180*(i div 8), y + 20 + 21 * (i-((i div 8)*8)), colcolor($7), colcolor($5));
     
278.   end;
     
279. 
     
280. 
     
281.   //显示第二页
     
282.   SDL_UpdateRect(screen, x, y, 561, 316);
     
283. end;

复制代码

[ 本帖最后由 winson7891 于 2010-2-7 12:13 编辑 ]

winson7891

2，事件~~
其实改个经脉跟改其他数值有区别吗？没有~所以50指令完全足够，没啥必要再写事件，不过判断经脉的过程似乎挺麻烦
这里是个判断事件~请放到50指令里面，事件号是随便写的~BS我吧
加了冲穴事件了~~可选冲穴或闭穴~

1.     101:       //判断冲穴，e2人物经脉，e3需求经脉
   
2.       begin
   
3.         e2 := e_getvalue(0, e1, e2);
   
4.         e3 := e_getvalue(1, e1, e3);
   
5.         e4 := e_getvalue(2, e1, e4);
   
6.         if (e2 or e3) = e2 then           //达到需求
   
7.           x50[$7000] := 0
   
8.         else
   
9.           x50[$7000] := 1;
   
10.         //然后用指令36跳转吧
    
11.       end;
    
12.     102:      //冲、关穴事件，赋值
    
13.       //e2冲关穴, e3赋值位置, e4人物经脉值, e5需求经脉值
    
14.       begin
    
15.         e3 := e_getvalue(0, e1, e4);
    
16.         e4 := e_getvalue(1, e1, e5);
    
17.         if e2 = 0 then
    
18.           x50[e3] := e4 or e5
    
19.         else
    
20.           x50[e3] := e4 and e5 xor e4;
    
21.         //之后用R赋值的事件解决~
    
22.       end;

复制代码

就那么几句话~判断经脉冲不冲一个or搞定了，很简单的，但50指令似乎没有说~（有的话当我火星好了~我50不熟~）




3，修改器~~

其实这也没啥~就多个编辑界面呗~用法里面有说明，有兴趣的自己看~


4，demo加源码（已更新）

源码其实也没改啥，提供吧~~不知道有没有却文件
同时里面打包好了执行文件，覆盖一下可以玩了~上面那个101事件也可以用了~

发完收工~
睡觉去~

[ 本帖最后由 winson7891 于 2010-2-7 12:12 编辑 ]

行俨

不懂。
不过经脉打通之后，还能再关闭不成？
winson大无聊为啥不放一下mod的进度

潜龙勿用

原帖由 行俨 于 2010/2/4 04:33 发表
不懂。
不过经脉打通之后，还能再关闭不成？
winson大无聊为啥不放一下mod的进度

可以被打伤或中毒关闭，再通过医生或武功疗伤、解毒。

[发帖际遇]: 潜龙勿用偷听到尹志平酒后吐露真言，威胁要将他的丑事公开，得到封口费银两15。

轩辕夏禹

winson大能不能说说怎么判断是否到达修炼秘籍条件？
还有练成后怎么增加冲穴程度啊？

[发帖际遇]: 轩辕夏禹无意中获得赵敏的木制倚天剑，卖给摆地摊的，获利银两2。

夏海

觉得挺好的

游客

winson大没有加冲穴的功能！
其他都很好！
不过做出来真的有人会用吗
应用面还要想！

[发帖际遇]: 游客在丐帮大会揭露何师我的真正面目，得郭靖称赞，增加声望2。

killer_zingy

干嘛把界面的代码一起帖上来?
还是有点不懂, 这个和前面那个一样也是要先冲这个在冲那个的?
ps:界面帝就是你自己, 竟然还召唤别人

[发帖际遇]: killer_zingy跟韦小宝赌钱，识破千术，韦小宝乖乖奉上银两23两。

[ 本帖最后由 killer_zingy 于 2010-2-4 10:09 编辑 ]

winson7891

原帖由 游客 于 2010-2-4 09:50 发表
winson大没有加冲穴的功能！
其他都很好！
不过做出来真的有人会用吗
应用面还要想！

[发帖际遇]: 游客在丐帮大会揭露何师我的真正面目，得郭靖称赞，增加声望2。

加了冲穴事件了~~配合其他50指令用就好~

我哪知道有没有人用~~不过是昨天想起这个系统不错，做做看罢了，我自己都不打算用~
要不怎么会用原版改呢~~

killer_zingy 发表于 2010-2-4 10:04
干嘛把界面的代码一起帖上来?
还是有点不懂, 这个和前面那个一样也是要先冲这个在冲那个的?
ps:界面帝就是你自己, 竟然还召唤别人

[发帖际遇]: killer_zingy跟韦小宝赌钱，识破千术，韦小宝乖乖奉上银两23两。

我界面代码其实就改了后面的，但这是整个的嘛~分开了怕有人又要问，故整个发上来~
至于啥先充哪个再冲哪个，自己看清楚这段代码就明白了~

[发帖际遇]: winson7891帮张无忌翻译小昭写的情书，得到辛苦费银两11。

舒豪

不错啦，值得我去看一看了

[发帖际遇]: 舒豪偶遇欧阳锋在地上装蛤蟆，一时兴起也来模仿，被西毒敲诈专利费银两25。

夏海

恭喜精华

[发帖际遇]: 夏海拜岳老三为师，得到见面礼银两16。

买菜好多年

都是高手啊,佩服

[发帖际遇]: 买菜好多年联手任我行和向问天等人打败东方不败，为任我行夺得教主之位，增加声望3。

KA

修改器那个界面似乎不错，比某个Gedit好

[发帖际遇]: 黄顺坤在令铁狐冲睡觉时听到他叫小师妹，第二天威胁他要告诉盈盈，得到封口费银两23。

wz110123

楼主修的不错，段誉爱用这些经脉

蒋伟安

很好很强大，
支持支持，

[发帖际遇]: 蒋伟安溜进皇宫偷东西碰到建宁公主，被毒打一顿，损失医药费银两29两。

winson7891

汗水，那个冲穴事件发现bug~对不起了各位

那个闭穴操作中，直接用xor是明显不妥的，如果要关闭的穴位人物本来就是关闭的，这样这个穴位将会被冲开~
所以应该改成
x50[e3] := e4 and e5 xor e5;
这样先取得需要，而且可以被关闭的穴位，再关闭

已经在二楼更新

神雕小俠

这功能好像有点复杂

jiawei

好！！！！！！！！！做得不错！！！！！！！！！

雪浪

之前改個動作就改了半天
真是高手如雲 好佩服...

[发帖际遇]: 雪浪抓了很多毒物给阿紫练功，获奖赏银两11两。

游客

判断冲穴的达到需求貌似为AND...

[发帖际遇]: 游客吃烧饼的时候，发现烧饼里藏着一枚“玄铁令”，转手卖掉后，赚到银两2。

tasmhust

筋脉全冲开了貌似声望变为-1.。。不能参加武林大会了。。

[发帖际遇]: tasmhust抓了很多毒物给阿紫练功，获奖赏银两24两。

轩辕夏禹

由此可见，此指令不适用于原版。

[发帖际遇]: 轩辕夏禹找冯默风打造兵器，打到了一把大剪刀，见到岳老三，被抢了，损失打造费银两17。

winson7891

原帖由 游客 于 2010-2-7 10:12 发表
判断冲穴的达到需求貌似为AND...

[发帖际遇]: 游客吃烧饼的时候，发现烧饼里藏着一枚“玄铁令”，转手卖掉后，赚到银两2。

应该是or没错
例如人的经脉为A，需求为B
所以例如有：
A: 1000 1000 1000 1000
B: 0001 0001 0001 0001
A or B: 1001 1001 1001 1001
我的判断是写，if A or B ＝ A then 成功嘛～
这里是人物达不到经脉需求了
然后，
如果，B: 1000 0000 1000 0000
此时
A or B: 1000 1000 1000 1000
结果 A or B ＝ A, 成功～～
——————————————————————————————————————————————————
如果用and的话也可以，但是比较的根据成了经脉需求
也就是A and B ＝ B

完毕～～有错请指正

———————————————————————————————————————————————————
对不起，事件本身是没有错的，但101和102号两个事件的变量意义不一致，容易导致错乱，我还是去改改吧～～

汗阿～～丢三落四的～

另外demo就不更新了～反正要改的部分都贴出来了～

[ 本帖最后由 winson7891 于 2010-2-7 12:10 编辑 ]

封狼居胥

赞一下winson大，经脉的确很创意，游戏中增加易经洗髓功能挺吸引的，比如增加打通某些经脉后能对某些属性有加成，或者打通后相应能增加资质，某些武功必须打通某些经脉或者起码打通多少条经脉才能学，这样更能增添游戏乐趣，呵呵

[发帖际遇]: 封狼居胥在海边沙滩上捡到一支圣火令，当废铜卖了，获得银两7。

winson7891

这个系统不是我想出来的，创意来自游客大大，请看这贴：

http://www.txdx.net/thread-435896-1-1.html

我作个系统只是举手之劳，关键是有游客大大这么好的想法，而且想法很具体~~

[发帖际遇]: winson7891私入铁掌峰禁地，盗取各种珠宝，共贩卖得银两23两。