一休论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 275|回复: 1

[常用脚本] 传奇炼金师脚本

[复制链接]
  • TA的每日心情
    擦汗
    2015-2-25 10:43
  • 签到天数: 1 天

    [LV.1]初来乍到

    发表于 2014-11-25 14:27:24 | 显示全部楼层 |阅读模式
    网络广告风险自担 网络广告风险自担
    网络广告风险自担
    (@@InPutInteger @@InPutString @@offlinemsg @@offlinemsg1)
    [@main]
    <通过我,不论你的等级高低,都可以进行元宝铸造,[url=]/@main>\[/url]
    使用元宝铸造可以获得更多经验,同时也会获得附赠品:金刚石,\
    你可以到我这里或者其他元宝铸造师那里领取金刚石。\
    <领取时,假如英雄已召出,英雄也可以额外获得铸造带来的经验[url=]/@main[/url]>,\
    另外,一次性铸造元宝数目在50到300之间,\
    或一次性领取满12颗金刚石,都有可能得到神秘礼品!\
    你可以到比奇城,盟重,苍月岛的炼金师哪里使用时间进行铸造 \
    <查询元宝铸造规则/@铸造规则>        <申请元宝铸造/@申请铸造>\
    <领取铸造附赠品:金刚石/@领取>      <查询当前拥有的金刚石数目/@查询数目>\

    [@铸造规则]
    1、使用元宝申请铸造后,必需到NPC处领取经验值及附赠品:金刚石\
    2、用于铸造经验值的元宝数目单次申请范围在1~300之间\
    3、1个元宝可以铸造1小时,随之赠3颗金刚石\
    4、使用元宝进行铸造,可以获得更多的经验\
    5、一次性铸造元宝数在50到300之间,将有机会得到一份礼品\
    6、每次领取满12颗金刚石时,将有机会得到一份神秘礼品\
    7、礼品为系统随机天生,也有不获得的可能性\
    8、普通铸造不能在申请,已经申请的还可以继承获得经验值及金刚石\
    <已了解元宝铸造规则,返回[url=]/@main>\[/url]
    [@申请铸造]
    铸造需要用强盛的意志力,一旦开始铸造无论是否在线都将持续进行\
    用户确认自己需要铸造的元宝数目后,\
    1个元宝可以铸造5分钟,随之附赠3颗金刚石。\
    一旦申请元宝铸造成功后,此次铸造将不能被终止\
    铸造所获得的经验值,就必需先终止当前的普通铸造\
    <同意元宝铸造的规则并接受元宝铸造/@元宝铸造>\
    <返回[url=]/@main[/url]>
    [@元宝铸造]
    #IF
    #SAY
    请输入想要用于铸造经验值的元宝数目\
    一次申请范围在1~300个元宝之间\ \
    特别提示:一次申请满50个元宝,将有机会得到一份礼品\
    一次性申请满300元宝,将有机会得到一份超级大奖!\
    <请输入用于铸造的元宝数目[url=]/@@InPutInteger99>\[/url]
    <取消[url=]/@exit[/url]>
    [@@InPutInteger99]
    #ACT
    DELAYGOTO 10 @变量操纵元宝
    [@变量操纵元宝]
    #IF
      Check [130] 0
    #ACT
    DELAYGOTO 1 @变量操纵检查
    #ELSESAY
    申请失败,你的元宝铸造,尚未结束
    [@变量操纵检查]
    #IF
      Check [131] 0
    #ACT
    DELAYGOTO 1 @变量操纵通过
    #ELSESAY
    申请失败,你的普通铸造,尚未结束。
    [@变量操纵通过]
    #ACT
    DELAYGOTO 10 @变量操纵
    [@变量操纵]
    #IF
    Large N99 0
    #ACT
    MOV M9 <$STR(N99)>
    MUL M10 5 <$STR(M9)>
    MUL M12 3 <$STR(M9)>
    MUL M13 138000 <$STR(M9)>
    goto @正式铸造
    #ELSEACT
    sendmsg 5 〖错误〗输入不能小于1,请重新输入!
    goto @元宝铸造

    [@正式铸造]
    #SAY
    <$USERNAME>,您打算使用 <$STR(M9)> 个元宝来铸造经验值\
    整个铸造过程你将获得:<$STR(M13)>点经验,并附赠:<$STR(M12)>颗金刚石\
    这可能要花费 <$STR(M10)> 分钟的时间,请留意,铸造一但开始就无法终止\
    铸造成功后,您将获得经验<$STR(M13)>,附赠:金刚石<$STR(M12)>颗\
    当您一次领取满12颗金刚石时,还会得到神秘礼品!\
    您确认开始铸造吗?\ \
    <确认铸造/@确认铸造>  <抛却[url=]/@exit>\[/url]
    [@确认铸造]
    #IF
    CHECKGAMEGOLD > <$STR(M9)>
    #ACT
    Set [130] 1
    GAMEGOLD - <$STR(N99)>
    CALCVAR HUMAN 经验 + <$STR(M13)>
    SAVEVAR HUMAN 经验 ..\QuestDiary\数据文件\元宝铸造\经验Save.txt
    CALCVAR HUMAN 元宝数 + <$STR(M9)>
    SAVEVAR HUMAN 元宝数 ..\QuestDiary\数据文件\元宝铸造\元宝数Save.txt
    CALCVAR HUMAN 铸造时间 + <$STR(M10)>
    SAVEVAR HUMAN 铸造时间 ..\QuestDiary\数据文件\元宝铸造\铸造时间Save.txt
    CALCVAR HUMAN 元宝金刚石 + <$STR(M12)>
    SAVEVAR HUMAN 元宝金刚石 ..\QuestDiary\数据文件\元宝铸造\元宝金刚石Save.txt
    CALCVAR HUMAN 完成经验 = 0
    SAVEVAR HUMAN 完成经验 ..\QuestDiary\数据文件\元宝铸造\完成经验Save.txt
    CALCVAR HUMAN 完成总数 = 0
    SAVEVAR HUMAN 完成总数 ..\QuestDiary\数据文件\元宝铸造\完成总数Save.txt
    CALCVAR HUMAN 完成金刚石 = 0
    SAVEVAR HUMAN 完成金刚石 ..\QuestDiary\数据文件\元宝铸造\完成金刚石Save.txt
    CALCVAR HUMAN 金刚石领奖 = 0
    SAVEVAR HUMAN 金刚石领奖 ..\QuestDiary\数据文件\元宝铸造\金刚石领奖Save.txt
    SetOnTimer 3 100
    sendmsg 7 恭喜你申请元宝铸造金刚石成功!
    close
    #ELSESAY
    「失败」:没有足够的元宝、请冲值。\ \ \ \ \ \
    <返回[url=]/@main[/url]>
    [@领取]
    #IF
    Check [130] 0
    #SAY
    你还没有申请铸造!\ \
    <返回[url=]/@main>\[/url]
    #ACT
    break
    #IF
    CHECKVAR HUMAN 元宝金刚石 = 0
    #ACT
    DELAYGOTO 1 @自动结束铸造
    break
    #IF
    CHECKVAR HUMAN 完成金刚石 > 0
    #SAY
    <$USERNAME>,你的元宝铸造金刚石信息如下:\
    申请总数:<$STR(M12)>颗\
    已经铸造完成数:<$HUMAN(完成总数)>颗\
    已领取数:<$HUMAN(领取金刚石)>颗\
    本次可以领取数:<$HUMAN(完成金刚石)>颗\
    尚未完成数:<$HUMAN(元宝金刚石)>颗\ \ \
    您要领取吗?  <全部领取/@领金刚石>      <返回[url=]/@main>\[/url]
    #ELSESAY
    <$USERNAME>,你的元宝铸造金刚石信息如下:\
    申请总数:<$STR(M12)>颗\
    已经铸造完成数:<$HUMAN(完成总数)>颗\
    已领取数:<$HUMAN(领取金刚石)>颗\
    本次可以领取数:<$HUMAN(完成金刚石)>颗\
    尚未完成数:<$HUMAN(元宝金刚石)>颗\ \ \
    <返回[url=]/@main>\[/url]
    [@领金刚石]
    #IF
    CHECKVAR HUMAN 完成金刚石 > 0
    #ACT
    DELAYGOTO 1 @制造奖励物品
    MOV M11 <$HUMAN(完成金刚石)>
    MOV M8 <$HUMAN(完成经验)>
    CALCVAR HUMAN 完成金刚石 - <$STR(M11)>
    SAVEVAR HUMAN 完成金刚石 ..\QuestDiary\数据文件\元宝铸造\完成金刚石Save.txt
    CALCVAR HUMAN 完成经验 - <$STR(M8)>
    SAVEVAR HUMAN 完成经验 ..\QuestDiary\数据文件\元宝铸造\经验Save.txt
    CALCVAR HUMAN 领取金刚石 + <$STR(M11)>
    GAMEDIAMOND + <$STR(M11)>
    CHANGEEXP + <$STR(M8)>
    #SAY
    你成功获得金刚石 <$STR(M11)> 颗!获得经验:<$STR(M8)>\ \ \ \ \
    <关闭[url=]/@exit>\[/url]
    #ELSESAY
    你完成的金刚石已经领取。

    [@自动结束铸造]
    #IF
    Check [130] 0
    #SAY
    你还没有申请铸造!\ \
    <返回[url=]/@main>\[/url]
    #ACT
    break
    #IF
    CHECKVAR HUMAN 完成金刚石 > 0
    #SAY
    <$USERNAME>,你的元宝铸造金刚石信息如下:\
    申请总数:<$STR(M12)>颗\
    已经铸造完成数:<$HUMAN(完成总数)>颗\
    已领取数:<$HUMAN(领取金刚石)>颗\
    本次可以领取数:<$HUMAN(完成金刚石)>颗\
    尚未完成数:<$HUMAN(元宝金刚石)>颗\ \ \
    您要领取吗?  <领取/@领结束金刚石>          <返回[url=]/@main>\[/url]
    #ELSESAY
    <$USERNAME>,你的元宝铸造金刚石信息如下:\
    申请总数:<$STR(M12)>颗\
    已经铸造完成数:<$HUMAN(完成总数)>颗\
    已领取数:<$HUMAN(领取金刚石)>颗\
    本次可以领取数:<$HUMAN(完成金刚石)>颗\
    尚未完成数:<$HUMAN(元宝金刚石)>颗\ \ \
    <返回[url=]/@main>\[/url]
    [@领结束金刚石]
    #IF
    CHECKVAR HUMAN 完成金刚石 > 0
    #ACT
    MOV M11 <$HUMAN(完成金刚石)>
    MOV M8 <$HUMAN(完成经验)>
    CALCVAR HUMAN 完成金刚石 - <$STR(M11)>
    SAVEVAR HUMAN 完成金刚石 ..\QuestDiary\数据文件\元宝铸造\完成金刚石Save.txt
    CALCVAR HUMAN 完成经验 - <$STR(M8)>
    SAVEVAR HUMAN 完成经验 ..\QuestDiary\数据文件\元宝铸造\经验Save.txt
    CALCVAR HUMAN 领取金刚石 + <$STR(M11)>
    GAMEDIAMOND + <$STR(M11)>
    CHANGEEXP + <$STR(M8)>
    DELAYGOTO 1 @全部结束
    #SAY
    你成功获得金刚石 <$STR(M11)> 颗!获得经验:<$STR(M8)>\ \ \ \ \
    <关闭[url=]/@exit>\[/url]
    #ELSESAY
    你完成的金刚石已经领取。
    [@全部结束]
    #IF
    Check [130] 1
    #ACT
    Set [130] 0
    SetOffTimer 3
    DELAYGOTO 1 @制造奖励物品
    CALCVAR HUMAN 铸造时间 = 0
    SAVEVAR HUMAN 铸造时间 ..\QuestDiary\数据文件\元宝铸造\铸造时间Save.txt
    CALCVAR HUMAN 元宝数 = 0
    SAVEVAR HUMAN 元宝数 ..\QuestDiary\数据文件\元宝铸造\元宝数Save.txt
    CALCVAR HUMAN 经验 = 0
    SAVEVAR HUMAN 经验 ..\QuestDiary\数据文件\元宝铸造\经验Save.txt
    CALCVAR HUMAN 完成经验 = 0
    SAVEVAR HUMAN 完成经验 ..\QuestDiary\数据文件\元宝铸造\完成经验Save.txt
    CALCVAR HUMAN 元宝金刚石 = 0
    SAVEVAR HUMAN 元宝金刚石 ..\QuestDiary\数据文件\元宝铸造\元宝金刚石Save.txt
    CALCVAR HUMAN 完成总数 = 0
    SAVEVAR HUMAN 完成总数 ..\QuestDiary\数据文件\元宝铸造\完成总数Save.txt
    CALCVAR HUMAN 完成金刚石 = 0
    SAVEVAR HUMAN 完成金刚石 ..\QuestDiary\数据文件\元宝铸造\完成金刚石Save.txt
    sendmsg 7 元宝已经全部铸造成功
    #ELSEACT
    sendmsg 5 你尚未申请铸造无需终止
    [@制造奖励物品]
    #if
    CHECKVAR HUMAN 金刚石领奖 > 11
    #act
    give 原质晶石 1
    GetRandomName ..\QUESTDIARY\数据文件\炼金师\金刚石奖励.txt S0
    CALCVAR HUMAN 金刚石领奖 - 12
    SAVEVAR HUMAN 金刚石领奖 ..\QuestDiary\数据文件\元宝铸造\金刚石领奖Save.txt
    give <$STR(S0)>
    SENDMSG 5 你获得了额外惊喜:<$STR(S0)>
    SENDMSG 1 恭喜∶%s,获得金刚石铸造附赠品∶<$STR(S0)>,如您也想申请铸造,请和各地炼金师对话,点击[申请铸造]即可!
    break
    [@查询数目]
    你当前的金刚石数目是∶<$GAMEDIAMOND>\



    上一篇:传奇血腥魔人活动脚本
    下一篇:传奇九层妖塔地图任务脚本
    网络广告风险自担

    该用户从未签到

    发表于 2014-11-25 14:41:05 | 显示全部楼层
    网络广告风险自担
    又有意义有意义有意义有意义
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    网络广告风险自担

    小黑屋|传奇一条龙|GM基地|GM版本库|一休论坛

    GMT+8, 2016-12-3 04:02 , Processed in 0.951601 second(s), 87 queries , Gzip On.

    传奇一条龙 GM基地 版本库 传奇论坛 传奇漏洞论坛 传奇服务端下载 传奇版本

    站长QQ:1921249589 一休论坛资料来自网络仅供学习交流之用,用于商业后果自负

    快速回复 返回顶部 返回列表