手游哥源码网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 103|回复: 1

终极装备提升脚本

[复制链接]

525

主题

525

帖子

18万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
185932
QQ
发表于 2022-8-28 22:14:45 | 显示全部楼层 |阅读模式
终极装备提升脚本5306 作者:乾乾与行 帖子ID:644 终极,装备,提升,脚本


这个脚本是纯独立的,不需要增加引用,所以改改就可以拿去用了,脚本自身设置最高升级3点,你也可以根据自己的需求放大数量,修改脚本限制即可!

部分脚本展示:
  1. if This_Player.getv(28,1)= 1 then
  2.    begin
  3.    
  4.     for ck_kind := 1 to 300 do
  5.      begin
  6.        if ck_name[ck_kind] = This_Item.ItemName then
  7.        begin                             
  8.          ck_num := This_Item.AddPa1;  
  9.          ck_gold := ck_value[ck_kind];
  10.          if (ck_num > 0) and (ck_num < 5) then
  11.          begin
  12.            for i:= 1 to ck_num do
  13.                    begin
  14.            ck_gold := ck_gold*2;
  15.            end;
  16.          end;  
  17.        end;
  18.      end;
  19.      if ck_num >= 3 then
  20.      begin
  21.          This_Player.PlayerNotice('提示:你的【'+This_Item.ItemName+'】已提升出最高属性!',1);  // 0红 1绿 2蓝 3粉
  22.      end else
  23.      if ck_gold > 0 then
  24.      begin            
  25.      if This_Player.YBnum >= ck_gold then
  26.        begin
  27.          ck_rand := random(100);
  28.          if ck_rand < 0 then         
  29.          begin
  30.          This_Player.NotifyClientCommitItem(0,'');
  31.                  This_Player.PlayerNotice('失败:'+This_Item.ItemName+' 未发生变化',0);
  32.          This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
  33.          This_NPC.Click_CommitItem(This_Player,1,'提升防御:');
  34.          This_Player.ScriptRequestSubYBNum(ck_gold);
  35.          end else
  36.          begin
  37.          This_Item.AddPa1 := This_Item.AddPa1 + 1;   //防御+1
  38.          This_Player.ScriptRequestSubYBNum(ck_gold);
  39.          ck_str :='防御+1';
  40.          This_NPC.Click_CommitItem(This_Player,1,'提升防御:');
  41.          end;  
  42.          if ck_str <> '' then
  43.          begin
  44.                  ServerSay('恭喜:玩家<'+This_Player.Name+'>在终极配饰处把【'+This_Item.ItemName+'】提升了<'+ck_str+'>!',3);
  45.          This_Player.NotifyClientCommitItem(0,'提升成功:你的'+This_Item.ItemName+'提升了'+ck_str+'!');
  46.          This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
  47.          This_NPC.Click_CommitItem(This_Player,1,'提升防御:');
  48.          end;  
  49.            end else
  50.        begin
  51.        This_Player.PlayerNotice('无法提升:你的元宝不足,需要'+inttostr(ck_gold)+'元宝。',1);  // 0红 1绿 2蓝 3粉
  52.            end;
  53.             end else
  54.      begin
  55.         This_Player.NotifyClientCommitItem(0,'该物品不可提升,请投入可提升的装备!');   
  56.      end;
复制代码
游客,如果您要查看本帖隐藏内容请回复

回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【右侧内容,后台自定义】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ/免责声明/Archiver/手机版/小黑屋/特别鸣谢/隐私条款/版权声明/下架/sitemap/手游哥源码网 ( 粤ICP备20024708号-3 )


本站资源来自互联网搜集,仅供本地电脑单机学习和交流,请勿用于商业用途,请自觉在24小时内删除。
本站仅提供信息存储空间服务,软件的复制品持有人不知道也没有合理的理由应当知道展示的作品侵权!
本站所有资源仅限用于研究产品软件内含、设计思想和原理为目的用途,禁止任何商用行为,违者后果自负!
若有侵权与文章中不妥之处,请联系邮箱:4660647@qq.com(手机随时接收邮件)并出示相关证明以便删除。敬请谅解!
快速回复 返回顶部 返回列表