当前位置：传奇游戏服务端下载站传奇站长论坛资源网站程序技术文章 → 文章资讯 → 游戏架设教程 → 千年技术

神武新章能增加各种属性的卷卷和丹脚本

减小字体

增大字体作者：佚名来源：本站整理发布时间：2014-10-04 10:32:02

增加武功经验值的卷。

procedure OnItemDblClick(uSource, uItemKey :integer; astr :string);
var
aitemKey: integer;
aMagicName: string;
addMagicLevel: integer;
addExp: integer;
begin
   deleteitem(uSource, '武功卷', 1);
aMagicName := getuserAttackMagic(uSource);
if aMagicName = '' then
begin
    menusay(uSource, '请选择攻击类武功再来兑换!^^'
      + '<〖返回〗/@OnMenu>^^'
      + '<〖退出〗/@exit>^^');
    exit;
end;
if getMagicLevel(uSource, aMagicName) >= 9999 then
begin
    menusay(uSource, '当前武功经验已满,无法继续增加!^^'
      + '<〖返回〗/@OnMenu>^^'
      + '<〖退出〗/@exit>^^');
    exit;
end;
addExp := 6000000;
    //武功经验
if addExp > 1085138172 - getMagicExp(uSource, aMagicName) then
    addexp := 1085138172 - getMagicExp(uSource, aMagicName);
    AddMagicExp(uSource, aMagicName, addExp);
menusay(uSource, '将经验增加在' + aMagicName + '上成功!^^'
    + '<〖返回〗/@OnMenu>^^'
    + '<〖退出〗/@exit>^^');
end;