经过winson大神的指点~

killer_zingy · 发表于 2009-12-29 10:44

下午winson大的一个关于第50_43指点令我茅塞顿开~
原来只要加个case of的判断就能让代码在游戏中实现
所以...........
我就随便做了个能在游戏中增加轻功, 防御, 攻击的指令~
首先我在kys_mian里面加了这个procedure:
//增加某属性数值
procedure unknownewintruct(rnum, kind, addnum: integer);
var
  word: widestring;
begin

  case kind of
  0:
  begin
  RRole[rnum].Attack := RRole[rnum].Attack + addnum;
  word := ' 武力增加';
  end;
  1:
  begin
  RRole[rnum].Defence := RRole[rnum].Defence + addnum;
  word :=' 防御增加';
  end;
  2:
  begin
  RRole[rnum].Speed := RRole[rnum].Speed + addnum;
  word :=' 轻功增加';
  end;
  end;
  DrawRectangle(CENTER_X - 75, 98, 145, 51, 0, colcolor(255), 30);
  drawshadowtext(@word[1], CENTER_X - 90, 125, colcolor($7), colcolor($5));
  drawbig5shadowtext(@rrole[rnum].Name, CENTER_X - 90, 100, colcolor($23), colcolor($21));
  word := format('%4d', [addnum]);
  drawengshadowtext(@word[1], CENTER_X + 20, 125, colcolor($66), colcolor($64));
  sdl_updaterect(screen, 0, 0, screen.w, screen.h);
  waitanykey;
  redraw;
end;

然后我在kys_event里面的50_43里面加了这个:
case e2 of
   10:
   begin
   unknownewintruct(e3, e4, e5);
   end;
   end;
然后在事件编辑里用调用其他事件
效果还真不错

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

[ 本帖最后由 killer_zingy 于 2009-12-29 10:48 编辑 ]