设置人物属性

轩辕夏禹 · 发表于 2010-1-11 17:19

马上注册，结交更多侠友！

您需要登录才可以下载或查看，没有账号？我要成为铁血侠客

x

这是仿造金庸水浒传的队友加入时属性设置的代码。
制作这个代码时幸好有无色大大帮我请教kg大大，否则就没这么容易了。
heronum为需要设置的人物；
mode：0即设定和主角相同等级
1即设定为和最高等级队友同等级
2即设定为和最低等级队友同等级
addexp：设定人物为主角等级+1即填入1，0为不增加。

procedure hero(heronum, mode, addexp: integer);
var
  i, x, max, z, min, mubiao, j, s: integer;
begin
  max := 0;
  min := 30;
  for i := 0 to 5 do
  begin
if Teamlist >= 0 then
begin
   x := Rrole[Teamlist].level;
   if x > 30 then x := 30;
   if x > max then//找最高等级队友的等级
   begin
      max := x;//把最高的等级保存在变量max
   end;
   if x < min then//找最低等级队友的等级
   begin
      min := x;//把最低等级保存在min
   end;
end;
  end;
  begin
if mode = 0 then
   mubiao := Rrole[0].Level;
if mode = 1 then
   mubiao := max;
if mode = 2 then
   mubiao := min;//设定mode
mubiao := mubiao + addexp;
s := Rrole[heronum].level;
j := mubiao - s;
for i := 0 to (j - 1) do
begin
Rrole[heronum].Level := Rrole[heronum].Level + 1;//增加人物等级
lvlup(heronum);//调用升级事件
end;
  end;
end;

[发帖际遇]: 轩辕夏禹大量收购血竭、田七、没药、熊胆，想转卖给赵王府，提前被郭靖黄蓉劫走，亏损银两11两。

[ 本帖最后由轩辕夏禹于 2010-1-11 17:53 编辑 ]

KA · 发表于 2010-1-11 17:38

适当的注释一下吧。。。

[发帖际遇]: 黄顺坤看到神仙姐姐玉像，叩了一千个响头，蒲团被磕破了，发现里面有银两1。

景卿 · 发表于 2010-1-11 17:53

- - 这个...蒽..... 看不懂

[发帖际遇]: 景卿冒充青木堂主向反清份子征收活动经费，结果：骗得银两17。

轩辕夏禹 · 发表于 2010-1-11 17:56

此为升级事件的代码，成长指数自己改吧。

procedure LvlUp(heronum: integer);
var
  i, rnum, add, ada: integer;
  str: widestring;
begin

  rnum := heronum;
  RRole[rnum].MaxHP := RRole[rnum].MaxHP + Rrole[rnum].IncLife * 3 + random(6);
  if RRole[rnum].MaxHP > MAX_HP then RRole[rnum].MaxHP := MAX_HP;
  RRole[rnum].CurrentHP := RRole[rnum].MaxHP;

  add := Rrole[rnum].Aptitude div 15 + 1;
  add := random(add) + 5;
  ada := Rrole[rnum].Ethics * 3 + random(6);

  RRole[rnum].MaxMP := RRole[rnum].MaxMP + ada;
  if RRole[rnum].MaxMP > MAX_MP then RRole[rnum].MaxMP := MAX_MP;
  RRole[rnum].CurrentMP := RRole[rnum].MaxMP;

  RRole[rnum].Attack := RRole[rnum].Attack + add;
  Rrole[rnum].Speed := Rrole[rnum].Speed + add;
  Rrole[rnum].Defence := Rrole[rnum].Defence + add;

  for i := 46 to 54 do
  begin
if rrole[rnum].data > 0 then
   rrole[rnum].data := rrole[rnum].data + random(3) + 1;
  end;
  for i := 43 to 58 do
  begin
if rrole[rnum].data > maxprolist then
   rrole[rnum].data := maxprolist;
  end;

  RRole[rnum].PhyPower := MAX_PHYSICAL_POWER;
  RRole[rnum].Hurt := 0;
  RRole[rnum].Poision := 0;

[发帖际遇]: 轩辕夏禹路遇香香公主，惊为天人，花费银两13买水喝以补充损失的口水。

[ 本帖最后由轩辕夏禹于 2010-1-11 18:37 编辑 ]

真正的强强 · 发表于 2010-1-11 18:20

代码好像有点问题……

[发帖际遇]: 真正的强强在老顽童处骗取《养蜂秘法》，翻印成《如何饲养文化型蜜蜂》出版后获利银两12。

轩辕夏禹 · 发表于 2010-1-11 18:38

你说的是lvlup指令？
敝人是直接复制原版的，刚刚忘了改，抱歉。
敝人自己的lvlup有做过一些修改，所以没贴上来。

真正的强强 · 发表于 2010-1-11 18:50

for i := 0 to 5 do
begin
if Teamlist >= 0 then
begin
x := Rrole[Teamlist].level;
if x > 30 then x := 30;
if x > max then//找最高等级队友的等级
begin
max := x;//把最高的等级保存在变量max
end;
if x < min then//找最低等级队友的等级
begin
min := x;//把最低等级保存在min
end;
end;
end;

复制代码

以上这个有点问题，循环内部竟然没有i
似乎应该改为

for i := 0 to 5 do
begin
if Teamlist >= i then
begin
x := Rrole[i].level;
if x > 30 then x := 30;
if x > max then//找最高等级队友的等级
begin
max := x;//把最高的等级保存在变量max
end;
if x < min then//找最低等级队友的等级
begin
min := x;//把最低等级保存在min
end;
end;
end;

复制代码

或者再优化一下

for i := 0 to teamlist do
begin
x := Rrole[i].level;
if x > 30 then x := 30;
if x > max then//找最高等级队友的等级
begin
max := x;//把最高的等级保存在变量max
end;
if x < min then//找最低等级队友的等级
begin
min := x;//把最低等级保存在min
end;
end;

复制代码

[发帖际遇]: 真正的强强躲在无量山洞的玉像后面，待段誉磕完一千个头后说了句“免礼”，被段誉发现，立刻赔礼道歉一番花掉银两14。

[ 本帖最后由真正的强强于 2010-1-11 18:54 编辑 ]

轩辕夏禹 · 发表于 2010-1-11 19:17

您的代码有问题。
[quote]for i := 0 to 5 do begin if Teamlist >= i then begin x := Rrole[i].level; if x > 30 then x := 30; if x > max then//找最高等级队友的等级 begin max := x;//把最高的等级保存在变量max end; if x < min then//找最低等级队友的等级 begin min := x;//把最低等级保存在min end; end; end;[/quote]
若是使用 x := Reole[i].level;
那么就变成只会读取0到5号人物的等级了哦。

KA · 发表于 2010-1-11 19:38

关于I的缺失似乎是和discuz代码的冲突
【i】

[发帖际遇]: 黄顺坤偷得祖千秋八杯卖与丹青生，卖得银两27两。

真正的强强 · 发表于 2010-1-11 19:42

汗啊！好长时间不写代码，都有点忘了……
我错了……
看了一下pascal复刻版的代码，原来teamlist是个数组，而Rrole是所有人的属性……
那就是这样的

for i := 0 to 5 do
begin
if Teamlist[i] >= 0 then
begin
x := Rrole[Teamlist[i]].level;
if x > 30 then x := 30;
if x > max then//找最高等级队友的等级
begin
max := x;//把最高的等级保存在变量max
end;
if x < min then//找最低等级队友的等级
begin
min := x;//把最低等级保存在min
end;
end;
end;

复制代码

这样就好了，看你那个有问题主要是没看到i，在teamlist后面加上就好了，呵呵。

PS:其实我发贴主要是想看看刚换的签名的……

对，我也想到了是黄大说的那个问题

[ 本帖最后由真正的强强于 2010-1-11 19:45 编辑 ]

真正的强强 · 发表于 2010-1-11 19:55

其实，把“引用”换成“代码”就好了……
我今天真是多此一举……

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

轩辕夏禹 · 发表于 2010-1-11 22:17

强强大大，谢谢您的指导，这是无色大大帮我请教kg大大，然后kg大大指点的。
我之前也是用您的方案，结果只能设置和主角同等级，设置别的就会出错。。

也不知道是哪里出问题。

账号		自动登录	找回密码
密码			我要成为铁血侠客

[通用] 设置人物属性

马上注册，结交更多侠友！

评分

回复五当家的帖子

回复七当家的帖子

[通用] 设置人物属性

马上注册，结交更多侠友！

评分

回复 五当家 的帖子

回复 七当家 的帖子

回复五当家的帖子

回复七当家的帖子