新设置人物属性

轩辕夏禹

话说敝人现在那一点点的微末道行也是在达摩堂和各位大大学的，看到winson大一直发布新的技术，我也想发些东西为达摩堂做些贡献。
但想想我手边的源码没一个比得上winson大大，让我惭愧无比。。。
因此，我只好来重新完善这个设置人物属性的指令来鱼目混珠加滥竽充数一下。

1. procedure settinghero(rnum, mode, addexp, min, max:integer);
   
2. var
   
3. i, minlvl, maxlvl, hero, mubiao, x:integer;
   
4. begin
   
5.   minlvl := 60;
   
6.   maxlvl := 0;
   
7.   if min <= 0 then min := 1;
   
8.   if max <= 0 then max := max_level;
   
9.   for i := 0 to 5 do
   
10.   begin
    
11.     //这里判断队伍人物最高和最低的等级
    
12.     if TeamList[i] > 0 then
    
13.     begin
    
14.       x := rrole[teamlist[i]].Level;
    
15.       if x > maxlvl then maxlvl := x;
    
16.       if x < minlvl then minlvl := x;
    
17.     end;
    
18.   end;
    
19.   if maxlvl > max then maxlvl := max;
    
20.   if minlvl < min then minlvl := min;
    
21.   case mode of
    
22.   0: mubiao := rrole[0].Level;
    
23.   1: mubiao := maxlvl;
    
24.   2: mubiao := minlvl;
    
25.   end;
    
26.   hero := rrole[rnum].Level;
    
27.   //如果人物等级小于目标等级则升级
    
28.   if mubiao > hero then
    
29.   begin
    
30.     mubiao := mubiao - hero;
    
31.     for i := 0 to mubiao - 1 do
    
32.     begin
    
33.       rrole[rnum].Level := rrole[rnum].Level + 1;
    
34.       lvlup(rnum);
    
35.     end;
    
36.     exit;
    
37.   end;
    
38.   //如果人物等级大于目标等级则降低等级
    
39.   if hero > mubiao then
    
40.   begin
    
41.     mubiao := hero - mubiao;
    
42.     for i := 0 to mubiao - 1 do
    
43.     begin
    
44.       rrole[rnum].Level := rrole[rnum].Level - 1;
    
45.       lvldown(rnum);
    
46.     end;
    
47.     exit;
    
48.   end;
    
49. end;

复制代码

[ 本帖最后由 轩辕夏禹 于 2010-2-7 10:58 编辑 ]

轩辕夏禹

1. procedure LvlUp(bnum: integer);
   
2. var
   
3.   i, rnum, add: integer;
   
4.   str: widestring;
   
5. begin
   
6. 
   
7.   rnum := bnum;
   
8.   RRole[rnum].MaxHP := RRole[rnum].MaxHP + Rrole[rnum].IncLife * 3 + random(6);
   
9.   if RRole[rnum].MaxHP > MAX_HP then RRole[rnum].MaxHP := MAX_HP;
   
10.   RRole[rnum].CurrentHP := RRole[rnum].MaxHP;
    
11. 
    
12.   add := Rrole[rnum].Aptitude div 15 + 1;
    
13.   add := random(add) + 1;
    
14. 
    
15.   RRole[rnum].MaxMP := RRole[rnum].MaxMP + (9 - add) * 3;
    
16.   if RRole[rnum].MaxMP > MAX_MP then RRole[rnum].MaxMP := MAX_MP;
    
17.   RRole[rnum].CurrentMP := RRole[rnum].MaxMP;
    
18. 
    
19.   RRole[rnum].Attack := RRole[rnum].Attack + add;
    
20.   Rrole[rnum].Speed := Rrole[rnum].Speed + add;
    
21.   Rrole[rnum].Defence := Rrole[rnum].Defence + add;
    
22. 
    
23.   for i := 46 to 54 do
    
24.   begin
    
25.     if rrole[rnum].data[i] > 0 then
    
26.       rrole[rnum].data[i] := rrole[rnum].data[i] + random(3) + 1;
    
27.   end;
    
28.   for i := 43 to 58 do
    
29.   begin
    
30.     if rrole[rnum].data[i] > maxprolist[i] then
    
31.       rrole[rnum].data[i] := maxprolist[i];
    
32.   end;
    
33. 
    
34.   RRole[rnum].PhyPower := MAX_PHYSICAL_POWER;
    
35.   RRole[rnum].Hurt := 0;
    
36.   RRole[rnum].Poision := 0;
    
37. end;

复制代码

1. procedure Lvldown(bnum: integer);
   
2. var
   
3.   i, rnum, add: integer;
   
4.   str: widestring;
   
5. begin
   
6. 
   
7.   rnum := bnum;
   
8.   RRole[rnum].MaxHP := RRole[rnum].MaxHP - Rrole[rnum].IncLife * 3 + random(6);
   
9.   if RRole[rnum].MaxHP < 50 then RRole[rnum].MaxHP := 50;
   
10.   RRole[rnum].CurrentHP := RRole[rnum].MaxHP;
    
11. 
    
12.   add := Rrole[rnum].Aptitude div 15 + 1;
    
13.   add := random(add) + 1;
    
14. 
    
15.   RRole[rnum].MaxMP := RRole[rnum].MaxMP - (9 - add) * 3;
    
16.   if RRole[rnum].MaxMP < 40 then RRole[rnum].MaxMP := 40;
    
17.   RRole[rnum].CurrentMP := RRole[rnum].MaxMP;
    
18. 
    
19.   RRole[rnum].Attack := RRole[rnum].Attack - add;
    
20.   Rrole[rnum].Speed := Rrole[rnum].Speed - add;
    
21.   Rrole[rnum].Defence := Rrole[rnum].Defence - add;
    
22. 
    
23.   for i := 46 to 54 do
    
24.   begin
    
25.     if rrole[rnum].data[i] > 0 then
    
26.       rrole[rnum].data[i] := rrole[rnum].data[i] - (random(3) + 1);
    
27.   end;
    
28.   for i := 43 to 58 do
    
29.   begin
    
30.     if rrole[rnum].data[i] < 0 then
    
31.       rrole[rnum].data[i] := 0;
    
32.   end;
    
33. 
    
34.   RRole[rnum].PhyPower := MAX_PHYSICAL_POWER;
    
35.   RRole[rnum].Hurt := 0;
    
36.   RRole[rnum].Poision := 0;
    
37. end;

复制代码

[发帖际遇]: 轩辕夏禹参加论坛才艺展示活动，其所展示的才艺被游戏制作团队看上，认为可以为游戏制作作出贡献，收编入队，增加声望10。

winson7891

首先：关我什么事~~

其次：能加个解释不？哪怕一句……也好~

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

轩辕夏禹

呃。。。一楼已经有注释了啊，二楼的都是原版升级的代码，不需要注释吧？

[发帖际遇]: 轩辕夏禹在擂谷山和苏星河下棋，于机缘巧合之下破解“珍珑棋局”，得到无崖子七十年内力，增加声望3。

killer_zingy

我先盗用了~~~~~~~~~~~

[发帖际遇]: killer_zingy护送杨不悔至昆仑山坐忘峰，杨逍感激万分赠送银两20两。