论坛 › 『传奇世界架设』 › 传世服务端中州_铁匠脚本分享

antyvfl 发表于 2022-10-9 00:35:10

传世服务端中州_铁匠脚本分享

(@buy @sell @repair @s_repair )
%100
+5
+6
+43
(@zzsd)
[@main]FLASH(4)
\\
欢迎光临。请问有什么事情帮忙吗？\\
<购入武器/@buy>　　<出售武器/@sell>　　<快捷交易/@fastbuy>\
<修理武器/@repair>　　<特殊修理/@s_repair>\
<我要合成武器/@合成普通>　　<询问神器觉醒/@神器觉醒>\
<合成武器/@合成武器>　　<凝结神秘符石/@凝结神秘符石>\
<打听/@打听>和心魔有关的最新消息\
<关闭选单/@exit>

[@凝结神秘符石]
\\
　　武器打造之最高境界，即以天地乾坤为熔炉，采自然灵\
气为辅料，铸造至高无上的顶级武器。而这种铸造方式的第\
一步就是要将存在于天地之间的灵气凝结在一起形成一个神\
秘符石，这样就可以在铸造武器时将这个符石作为原料投入\
熔炉，从而铸成利兵。当然凝结神秘符石也不是没有代价的，\
如果你肯给我些元宝我就帮你凝结神秘符石！\
<给你几个元宝来凝结神秘符石/@申请锻造>\
<领取神秘符石/@领取锻造>　<我想花费10000金币拆分符石/@拆分符石>\
<我要赠送神秘符石给别人/@赠送给别人>　　<返回/@main>

[@赠送给别人]
\\
　　从今开始神秘符石可以在玩家之间互相交易买卖了，不用\
那么麻烦了，要给你朋友的话，就直接交易给他好了。\\
　　<离开/@exit>

[@合成武器]
\\
　　合成武器必须有黑铁矿石作为基础材料，金矿、银矿、\
铁矿、宝石做为辅助材料。宝石将有可能提高你武器的属性\
而用纯度越高的矿石将会合成出高耐久武器。\
　　<我想马上合成武器/@@weaponcompound>　　<返回/@main>\
　　<COLOR=GREEN 人们发现，如果付出强大的毅力，通过长期不邂的努力，>\
<COLOR=GREEN 可以凝结出神奇的神秘符石。将这些神秘的符石与各种材料>\
<COLOR=GREEN 按照一定的秘方进行组合，可以锻造出无比强大的顶级武器！>\
你现在想合成一把武器吗？\
　　<我想用神秘符石合成顶级武器/@符石合成武器>　<返回/@main>

[@合成普通]
\\
　　合成武器必须有黑铁矿石作为基础材料，金矿、银矿、\
铁矿、宝石做为辅助材料。宝石将有可能提高你武器的属性\
而用纯度越高的矿石将会合成出高耐久武器。你想现在合成\
一把武器吗？\
　　<我想马上合成武器/@@weaponcompound>\
　　<返回/@exit>

[@神器觉醒]
\\
　　世间的神器和神甲都蕴涵着神气的力量。在偶然的机会\
我发现了神器、神甲觉醒的秘密，拥有觉醒后那惊世骇俗的\
力量一定会是每个人的梦想。\
　　如果你有神器，我可以帮你唤醒它。但唤醒它可不是一\
件简单的事，目前我还只能唤醒<COLOR=GREEN 神器：紫月圣君、耀阳圣尊>\
　　<唤醒神器/@开始唤醒1>\
　　<现在还不用/@exit>

[@开始唤醒1]
#ACT
checkitembox 请放入神器： 1 128
#SAY
\\
　　要想唤醒神器，你需要给我一块<COLOR=GREEN 品质50以上的金矿>和一\
个<COLOR=GREEN 火晶石(中)>，只要有这两样材料，唤醒必定成功，否则任\
何努力都是徒劳。\
　　两种材料我自己会从你包裹里取出，你只需要放入神器\
就行。\
　　高品质的金矿你可以在赤金宝箱或白银宝箱中找到。

[@getboxitem128]
#IF
checkitemx 紫月圣君
#ACT
MOV S88 $CHECKBOXITEM.ItemExD
MOV S89 804
GOTO @可以唤醒8
break
#IF
checkitemx 耀阳圣尊
#ACT
MOV S88 $CHECKBOXITEM.ItemExD
MOV S89 803
GOTO @可以唤醒8
break
#ELSESAY
\\
　　目前我只能帮你唤醒<COLOR=GREEN 紫月圣君和耀阳圣尊>，其它的我就\
无能为力了。\\
　　<哦，我知道了/@exit>

[@可以唤醒8]
#IF
checkitem 火晶石(中) 1
#ELSESAY
\\
进行神器唤醒时，包裹中要放一块<COLOR=GREEN 火晶石(中)>。\\
<离开/@exit>
#ELSEACT
break
#IF
checkitem 金矿 2
#SAY
\\
你包裹中有多块金矿，进行唤醒时，只能在包裹中放一块品质\
50以上的金矿，有多块将不能进行。\\
<离开/@exit>
#ACT
break
#IF
checkitem 金矿 1
#ACT
MOV P3 $ItemExALL.13.金矿
#ELSESAY
\\
进行神器唤醒时，包裹中要放一块品质50以上的金矿，高品质\
矿石可以在开启白银和赤金宝箱中得到。\\
<离开/@exit>
#ELSEACT
break
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
!SMALL P3 50000
#SAY
\\
恭喜你成功将你的神器唤醒，神器的外观发生了变化，威力也\
得到极大的提升。\\
<谢谢/@exit>
#ACT
take 金矿 10
take 火晶石(中) 1
UpgradeUserItemEx $STR(S88) 70 = $STR(S89)
SENDMSG 5 恭喜你成功将你的神器唤醒，神器的外观发生了变化，威力也得到极大的提升。
SENDMSG 10 恭喜<$USERNAME>在中州铁匠处成功将神器唤醒，神器的外观发生了变化，威力也得到极大的提升。
break
#ELSESAY
\\
你的金矿品质不足50，不能用于神器觉醒使用。\\
<离开/@exit>

[@fastbuy]
\\
请挑选要购买的物品。\\
<商品清单/@buy>\
<返　回/@main>

[@buy]
#CALL [\商人\武器店.txt] @购入武器

[@sell]
#CALL [\商人\武器店.txt] @出售武器

[@repair]
#CALL [\商人\武器店.txt] @修理武器

[@s_repair]
#CALL [\商人\武器店.txt] @特殊修理

[@打听]
\\
　　年轻人，人类只有战胜自己心魔，将其禁锢，才能在修\
炼元神分身神技的道路上获得大成。\\
　　<返回/@main>


[@符石合成武器]
\\
　　只要按照固定的配方放入符石和装备，就可以凝结出稀\
世的极品武器。\\
　　<我要合成战士类极品武器/@战士类>\
　　<我要合成法师类极品武器/@法师类>\
　　<我要合成道士类极品武器/@道士类>\
　　<返回/@main>

[@战士类]
\\
战士类极品武器：\\
<裁决/@合成1>\
<雷裂刀/@合成2>\
<雷霆怒斩/@合成3>\
<屠龙刀/@合成4>\
<返回/@符石合成武器>

[@法师类]
\\
法师类极品武器：\\
<骨玉/@合成5>\
<霹雳法杖/@合成6>\
<龙牙利刃/@合成7>\
<嗜魂/@合成8>\
<返回/@符石合成武器>

[@道士类]
\\
道士类极品武器：\\
<龙纹/@合成9>\
<道玄剑/@合成10>\
<逍遥无极扇/@合成11>\
<倚天剑/@合成12>\
<返回/@符石合成武器>

[@@FUSHI]
#if
random 1
#act
;SENDMSG 5 ===<$PARAM(0)>===
ClearVar S0 99
ClearVar P0 99
#IF
EQUAL $PARAM(0) 1
#ACT
MOV S18 裁决
MOV P11 8
MOV P12 5
MOV S11
MOV S12 不需要
MOV P13 0
MOV S14
MOV S15 不需要
MOV P14 0
MOV P20 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 2
#ACT
MOV S18 雷裂刀
MOV P11 88
MOV P12 3
MOV S11 火晶石(小)
MOV S12 需要
MOV P13 2
MOV S14
MOV S15 不需要
MOV P14 0
MOV P20 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 3
#ACT
MOV S18 雷霆怒斩
MOV P11 888
MOV P12 3
MOV S11 火晶石(中)
MOV S12 需要
MOV P13 2
MOV S14
MOV S15 不需要
MOV P14 0
MOV P20 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 4
#ACT
MOV S18 屠龙刀
MOV P11 8888
MOV P12 2
MOV S11 火晶石(大)
MOV S12 需要
MOV P13 2
MOV S14 屠龙精铁
MOV S15 需要
MOV P14 1
MOV P20 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 5
#ACT
MOV S18 骨玉
MOV P11 8
MOV P12 5
MOV S11
MOV S12 不需要
MOV P13 0
MOV S14
MOV S15 不需要
MOV P14 0
MOV P20 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 6
#ACT
MOV S18 霹雳法杖
MOV P11 88
MOV P12 3
MOV S11 冰月石(小)
MOV S12 需要
MOV P13 2
MOV S14
MOV S15 不需要
MOV P14 0
MOV P20 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 7
#ACT
MOV S18 龙牙利刃
MOV P11 888
MOV P12 3
MOV S11 冰月石(中)
MOV S12 需要
MOV P13 2
MOV S14
MOV S15 不需要
MOV P14 0
MOV P20 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 8
#ACT
MOV S18 嗜魂
MOV P11 8888
MOV P12 2
MOV S11 冰月石(大)
MOV S12 需要
MOV P13 2
MOV S14 嗜魂精铁
MOV S15 需要
MOV P14 1
MOV P20 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 9
#ACT
MOV S18 龙纹
MOV P11 8
MOV P12 5
MOV S11
MOV S12 不需要
MOV P13 0
MOV S14
MOV S15 不需要
MOV P14 0
MOV P20 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 10
#ACT
MOV S18 道玄剑
MOV P11 88
MOV P12 3
MOV S11 水云石(小)
MOV S12 需要
MOV P13 2
MOV S14
MOV S15 不需要
MOV P14 0
MOV P20 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 11
#ACT
MOV S18 逍遥无极扇
MOV P11 888
MOV P12 3
MOV S11 水云石(中)
MOV S12 需要
MOV P13 2
MOV S14
MOV S15 不需要
MOV P14 0
MOV P20 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 12
#ACT
MOV S18 倚天剑
MOV P11 8888
MOV P12 2
MOV S11 水云石(大)
MOV S12 需要
MOV P13 2
MOV S14 倚天精铁
MOV S15 需要
MOV P14 1
MOV P20 0
GOTO @合成开始
break
#ELSEACT
SENDMSG 5 系统错误，请重试...
break
close

[@合成开始]
#IF
checkitemUPBOX
#ACT
MOV P0 0
MOV P1 0
MOV P2 0
MOV P3 0
MOV P4 0
MOV P5 0
MOV P6 0
MOV P7 0
MOV P8 0
MOV P9 0
MOV P10 0
MOV S10
#ELSEACT
SENDMSG 5 升级框中的物品不存在或者是复制物品，升级失败
break
#IF
EQUAL $SUPERBOXITEM(6).NAME 幸运符
#ACT
#ELSEACT
SENDMSG 5 合成必须要有幸运符
break
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKVARLIST $SUPERBOXITEM(0).NAME ..\QuestDiary\数据文件\文本数据\矿石名字.txt
#ACT
MOV P0 $SUPERBOXITEM(0).DURA
#IF
CHECKVARLIST $SUPERBOXITEM(1).NAME ..\QuestDiary\数据文件\文本数据\矿石名字.txt
#ACT
MOV P1 $SUPERBOXITEM(1).DURA
#IF
CHECKVARLIST $SUPERBOXITEM(2).NAME ..\QuestDiary\数据文件\文本数据\矿石名字.txt
#ACT
MOV P2 $SUPERBOXITEM(2).DURA
#IF
CHECKVARLIST $SUPERBOXITEM(3).NAME ..\QuestDiary\数据文件\文本数据\矿石名字.txt
#ACT
MOV P3 $SUPERBOXITEM(3).DURA
#IF
CHECKVARLIST $SUPERBOXITEM(4).NAME ..\QuestDiary\数据文件\文本数据\矿石名字.txt
#ACT
MOV P4 $SUPERBOXITEM(4).DURA
#IF
CHECKVARLIST $SUPERBOXITEM(5).NAME ..\QuestDiary\数据文件\文本数据\矿石名字.txt
#ACT
MOV P5 $SUPERBOXITEM(5).DURA
#IF
EQUAL $SUPERBOXITEM(0).NAME 神秘符石
#ACT
MOV P6 10
MOV S10 $SUPERBOXITEM(0).ItemExD
MOV P8 $ItemExD.$STR(S10).0.2
#IF
EQUAL $SUPERBOXITEM(1).NAME 神秘符石
#ACT
MOV P6 11
MOV S10 $SUPERBOXITEM(1).ItemExD
MOV P8 $ItemExD.$STR(S10).0.2
#IF
EQUAL $SUPERBOXITEM(2).NAME 神秘符石
#ACT
MOV P6 12
MOV S10 $SUPERBOXITEM(2).ItemExD
MOV P8 $ItemExD.$STR(S10).0.2
#IF
EQUAL $SUPERBOXITEM(3).NAME 神秘符石
#ACT
MOV P6 13
MOV S10 $SUPERBOXITEM(3).ItemExD
MOV P8 $ItemExD.$STR(S10).0.2
#IF
EQUAL $SUPERBOXITEM(4).NAME 神秘符石
#ACT
MOV P6 14
MOV S10 $SUPERBOXITEM(4).ItemExD
MOV P8 $ItemExD.$STR(S10).0.2
#IF
EQUAL $SUPERBOXITEM(5).NAME 神秘符石
#ACT
MOV P6 15
MOV S10 $SUPERBOXITEM(5).ItemExD
MOV P8 $ItemExD.$STR(S10).0.2
#IF
EQUAL S12 需要
EQUAL $SUPERBOXITEM(0).NAME $STR(S11)
#ACT
INC P9 1
#IF
EQUAL S12 需要
EQUAL $SUPERBOXITEM(1).NAME $STR(S11)
#ACT
INC P9 1
#IF
EQUAL S12 需要
EQUAL $SUPERBOXITEM(2).NAME $STR(S11)
#ACT
INC P9 1
#IF
EQUAL S12 需要
EQUAL $SUPERBOXITEM(3).NAME $STR(S11)
#ACT
INC P9 1
#IF
EQUAL S12 需要
EQUAL $SUPERBOXITEM(4).NAME $STR(S11)
#ACT
INC P9 1
#IF
EQUAL S12 需要
EQUAL $SUPERBOXITEM(5).NAME $STR(S11)
#ACT
INC P9 1
#IF
EQUAL S15 需要
EQUAL $SUPERBOXITEM(0).NAME $STR(S14)
#ACT
INC P10 1
#IF
EQUAL S15 需要
EQUAL $SUPERBOXITEM(1).NAME $STR(S14)
#ACT
INC P10 1
#IF
EQUAL S15 需要
EQUAL $SUPERBOXITEM(2).NAME $STR(S14)
#ACT
INC P10 1
#IF
EQUAL S15 需要
EQUAL $SUPERBOXITEM(3).NAME $STR(S14)
#ACT
INC P10 1
#IF
EQUAL S15 需要
EQUAL $SUPERBOXITEM(4).NAME $STR(S14)
#ACT
INC P10 1
#IF
EQUAL S15 需要
EQUAL $SUPERBOXITEM(5).NAME $STR(S14)
#ACT
INC P10 1
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
LARGE P0 49999
#ACT
INC P7 1
#IF
LARGE P1 49999
#ACT
INC P7 1
#IF
LARGE P2 49999
#ACT
INC P7 1
#IF
LARGE P3 49999
#ACT
INC P7 1
#IF
LARGE P4 49999
#ACT
INC P7 1
#IF
LARGE P5 49999
#ACT
INC P7 1
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL P7 $STR(P12)
#ACT
SENDMSG 5 合成<$STR(S18)>的条件不足：需要纯度大于等于50的矿石<$STR(P12)>个
break
#IF
SMALL P8 $STR(P11)
#ACT
SENDMSG 5 合成<$STR(S18)>的条件不足：需要神秘符石<$STR(P11)>块
break
#IF
SMALL P9 $STR(P13)
#ACT
SENDMSG 5 合成<$STR(S18)>的条件不足：需要<$STR(P13)>个<$STR(S11)>
break
#IF
SMALL P10 $STR(P14)
#ACT
SENDMSG 5 合成<$STR(S18)>的条件不足：需要<$STR(P14)>块<$STR(S14)>
break
#IF
SMALL P20 1
#ACT
MOV P20 1
SETSUPERBOXRESULT 1
break
#ELSEACT
TAKESUPERBOXITEM 0
TAKESUPERBOXITEM 1
TAKESUPERBOXITEM 2
TAKESUPERBOXITEM 3
TAKESUPERBOXITEM 4
TAKESUPERBOXITEM 5
TAKESUPERBOXITEM 6
GIVE $STR(S18) 1
SENDMSG 5 你成功合成出了[<$STR(S18)>]
SENDMSG 10 恭喜<$USERNAME>在炼金台使用符石锻造，成功锻造出{<$STR(S18)>}
break

[~@FUSHI_ok]
#IF
EQUAL $PARAM(0) 1
#ACT
MOV S18 裁决
MOV P11 8
MOV P12 5
MOV S11
MOV S12 不需要
MOV P13 0
MOV S14
MOV S15 不需要
MOV P14 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 2
#ACT
MOV S18 雷裂刀
MOV P11 88
MOV P12 3
MOV S11 火晶石(小)
MOV S12 需要
MOV P13 2
MOV S14
MOV S15 不需要
MOV P14 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 3
#ACT
MOV S18 雷霆怒斩
MOV P11 888
MOV P12 3
MOV S11 火晶石(中)
MOV S12 需要
MOV P13 2
MOV S14
MOV S15 不需要
MOV P14 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 4
#ACT
MOV S18 屠龙刀
MOV P11 8888
MOV P12 2
MOV S11 火晶石(大)
MOV S12 需要
MOV P13 2
MOV S14 屠龙精铁
MOV S15 需要
MOV P14 1
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 5
#ACT
MOV S18 骨玉
MOV P11 8
MOV P12 5
MOV S11
MOV S12 不需要
MOV P13 0
MOV S14
MOV S15 不需要
MOV P14 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 6
#ACT
MOV S18 霹雳法杖
MOV P11 88
MOV P12 3
MOV S11 冰月石(小)
MOV S12 需要
MOV P13 2
MOV S14
MOV S15 不需要
MOV P14 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 7
#ACT
MOV S18 龙牙利刃
MOV P11 888
MOV P12 3
MOV S11 冰月石(中)
MOV S12 需要
MOV P13 2
MOV S14
MOV S15 不需要
MOV P14 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 8
#ACT
MOV S18 嗜魂
MOV P11 8888
MOV P12 2
MOV S11 冰月石(大)
MOV S12 需要
MOV P13 2
MOV S14 嗜魂精铁
MOV S15 需要
MOV P14 1
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 9
#ACT
MOV S18 龙纹
MOV P11 8
MOV P12 5
MOV S11
MOV S12 不需要
MOV P13 0
MOV S14
MOV S15 不需要
MOV P14 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 10
#ACT
MOV S18 道玄剑
MOV P11 88
MOV P12 3
MOV S11 水云石(小)
MOV S12 需要
MOV P13 2
MOV S14
MOV S15 不需要
MOV P14 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 11
#ACT
MOV S18 逍遥无极扇
MOV P11 888
MOV P12 3
MOV S11 水云石(中)
MOV S12 需要
MOV P13 2
MOV S14
MOV S15 不需要
MOV P14 0
GOTO @合成开始
break
#IF
EQUAL $PARAM(0) 12
#ACT
MOV S18 倚天剑
MOV P11 8888
MOV P12 2
MOV S11 水云石(大)
MOV S12 需要
MOV P13 2
MOV S14 倚天精铁
MOV S15 需要
MOV P14 1
GOTO @合成开始
break
#ELSEACT
SENDMSG 5 系统错误，请重试...
break
close

[@合成1]
\\
裁决合成配方：\\
<COLOR=GREEN 裁决=神秘符石*8+幸运符+纯度大于等于50的矿石*5>\\
<我要合成裁决/@@FUSHI&1>　　<返回/@战士类>

[@合成2]
\\
雷裂刀合成配方：\\
<COLOR=GREEN 雷裂刀=神秘符石*88+幸运符+火晶石(小)*2+纯度大于等>\
<COLOR=GREEN 于50的矿石*3>\\
<我要合成雷裂刀/@@FUSHI&2>　　<返回/@战士类>

[@合成3]
\\
雷霆怒斩合成配方：\\
<COLOR=GREEN 雷霆怒斩=神秘符石*888+幸运符+火晶石(中)*2+纯度大于>\
<COLOR=GREEN 等于50的矿石*3>\\
<我要合成雷霆怒斩/@@FUSHI&3>　　<返回/@战士类>

[@合成4]
\\
屠龙刀合成配方：\\
<COLOR=GREEN 屠龙刀=神秘符石*8888+幸运符+火晶石(大)*2+纯度大于>\
<COLOR=GREEN 等于50的矿石*2+屠龙精铁>\\
<我要合成屠龙刀/@@FUSHI&4>　　<返回/@战士类>

[@合成5]
骨玉合成配方：\\
<COLOR=GREEN 骨玉=神秘符石*8+幸运符+纯度大于等于50的矿石*5>\\
<我要合成骨玉/@@FUSHI&5>　　<返回/@法师类>

[@合成6]
\\
霹雳法杖合成配方：\\
<COLOR=GREEN 霹雳法杖=神秘符石*88+幸运符+冰月石(小)*2+纯度大于>\
<COLOR=GREEN 等于50的矿石*3>\\
<我要合成霹雳法杖/@@FUSHI&6>　　<返回/@法师类>

[@合成7]
\\
龙牙利刃合成配方：\\
<COLOR=GREEN 龙牙利刃=神秘符石*888+幸运符+冰月石(中)*2+纯度大于>\
<COLOR=GREEN 等于50的矿石*3>\\
<我要合成龙牙利刃/@@FUSHI&7>　　<返回/@法师类>

[@合成8]
\\
嗜魂合成配方：\\
<COLOR=GREEN 嗜魂=神秘符石*8888+幸运符+冰月石(大)*2+纯度大于>\
<COLOR=GREEN 等于50的矿石*2+嗜魂精铁>\\
<我要合成嗜魂/@@FUSHI&8>　　<返回/@法师类>

[@合成9]
\\
龙纹合成配方：\\
<COLOR=GREEN 龙纹=神秘符石*8+幸运符+纯度大于等于50的矿石*5>\\
<我要合成龙纹/@@FUSHI&9>　　<返回/@道士类>

[@合成10]
\\
道玄剑合成配方：\\
<COLOR=GREEN 道玄剑=神秘符石*88+幸运符+水云石(小)*2+纯度大于>\
<COLOR=GREEN 等于50的矿石*3>\\
<我要合成道玄剑/@@FUSHI&10>　　<返回/@道士类>

[@合成11]
\\
逍遥无极扇合成配方：\\
<COLOR=GREEN 逍遥无极扇=神秘符石*888+幸运符+水云石(中)*2+纯度大于>\
<COLOR=GREEN 等于50的矿石*3>\\
<我要合成逍遥无极扇/@@FUSHI&11>　　<返回/@道士类>

[@合成12]
\\
倚天剑合成配方：\\
<COLOR=GREEN 倚天剑=神秘符石*8888+幸运符+水云石(大)*2+纯度大于>\
<COLOR=GREEN 等于50的矿石*2+倚天精铁>\\
<我要合成倚天剑/@@FUSHI&12>　　<返回/@道士类>


[@领取锻造]
#IF
SMALL $HUMAN(符01) 1
#SAY
\\
你还没有申请符石凝结，还是先去申请了再来吧。\\
<知道了，谢谢/@exit>
#ACT
break
#ELSEACT
MOV P4 0
MOV P5 0
MOV P6 0
MOV P7 0
MOV P8 0
MOV P9 0
MOV P10 0
MOV P11 0
MOV P12 0
MOV P13 0
MOV P14 0
#IF
SMALL $DATASZ3 $HUMAN(符05)
#ACT
CALCVAR HUMAN 符05 = $DATASZ3
SAVEVAR HUMAN 符05 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKLEVELEX > 0
#ACT
MOV P4 $HUMAN(符05)
MOV P5 $DATASZ3
DEC P5 $STR(P4)
#ELSEACT
break
close
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
LARGE P5 59
#ACT
MOV P6 $STR(P5)
MOV P8 $STR(P5)
DIV P6 60
MOV P10 $STR(P6)
MOV P7 $STR(P6)
MUL P7 60
DEC P8 $STR(P7)
MOV P9 60
DEC P9 $STR(P8)
MUL P10 2
CALCVAR HUMAN 符02 + $STR(P10)
SAVEVAR HUMAN 符02 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 符05 = $DATASZ3
SAVEVAR HUMAN 符05 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
#ELSEACT
MOV P9 60
DEC P9 $STR(P5)
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
LARGE $HUMAN(符02) $HUMAN(符01)
#ACT
CALCVAR HUMAN 符02 = $HUMAN(符01)
SAVEVAR HUMAN 符02 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
MOV P14 $HUMAN(符01)
MOV P12 $HUMAN(符02)
DEC P12 $HUMAN(符03)
MOV P13 $STR(P12)
MUL P12 $HUMAN(符04)
DEC P14 $HUMAN(符02)
GOTO @显示符数量
break
#ELSEACT
MOV P14 $HUMAN(符01)
MOV P12 $HUMAN(符02)
DEC P12 $HUMAN(符03)
MOV P13 $STR(P12)
MUL P12 $HUMAN(符04)
DEC P14 $HUMAN(符02)
GOTO @显示符数量
break


[@显示符数量]
#IF
EQUAL $HUMAN(符02) $HUMAN(符01)
#SAY
\\
<$USERNAME>，您的元宝凝结神秘符石信息如下：\
　申请凝结总数：<$HUMAN(符01)>块\
　已凝结完成数：<$HUMAN(符02)>块\
　已领取符石数：<$HUMAN(符03)>块\
本次可领取符石：<$STR(P13)>块\
本次可领取经验：<$STR(P12)>万\
尚未完成符石数：<$STR(P14)>块\
　你所申请的符石锻造已经全部完成，请及时领取。\
　<我要领取已凝结完成符石/@领取完成>　　　　<返回/@main>
#ELSESAY
\\
<$USERNAME>，您的元宝凝结神秘符石信息如下：\
　申请凝结总数：<$HUMAN(符01)>块\
　已凝结完成数：<$HUMAN(符02)>块\
　已领取符石数：<$HUMAN(符03)>块\
本次可领取符石：<$STR(P13)>块\
本次可领取经验：<$STR(P12)>万\
尚未完成符石数：<$STR(P14)>块\
下一次领取时间：<$STR(P9)>分钟后\
　<我要领取已凝结完成符石/@领取完成>　　　　<返回/@main>

[@领取完成]
#IF
LARGE P13 0
#ACT
MOV p16 $HUMAN(符02)
DEC p16 $HUMAN(符03)
MOV P17 $STR(P16)
MUL P17 $HUMAN(符04)
MUL P17 10000
#ELSEACT
MessageBox 你当前凝结的符石还没有完成，还不能领取，请稍后再来。\　\每间隔1小时可以凝结出2块神秘符石和大量的经验。\　\你下一次领取时间：<$STR(P9)>分钟后
break
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKBAGSIZE 1
#ACT
#ELSEACT
MessageBox 对不起，您身上背包的位置不够，请清理出1个空位！
break
#IF
SMALL P16 1
#ACT
MessageBox 系统错误，请重新打开对话！
break
close
#IF
SMALL P17 1
#ACT
MessageBox 系统错误，请重新打开对话！
break
close
#IF
EQUAL $HUMAN(符02) $HUMAN(符01)
#ACT
CALCVAR HUMAN 符01 = 0
SAVEVAR HUMAN 符01 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 符02 = 0
SAVEVAR HUMAN 符02 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 符03 = 0
SAVEVAR HUMAN 符03 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 符04 = 0
SAVEVAR HUMAN 符04 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
#ELSEACT
CALCVAR HUMAN 符03 + $STR(P16)
SAVEVAR HUMAN 符03 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
#IF
checkitem 神秘符石 1
#ACT
UpgradeItemExD $ITEMMAKEINDE[神秘符石] 0 2 + $STR(P16)
CHANGEEXP + $STR(P17)
SendMsg 0 <$USERNAME>:在炼金台使用元宝凝结出<$STR(P16)>块神秘符石和<$STR(P17)>经验
#SAY
\\
恭喜你成功领取了你所凝结完成的符石和大量经验。\\
<离开/@exit>
#ELSEACT
GIVE 神秘符石 1
UpgradeItemExD $PARAM(0) 0 2 = $STR(P16)
CHANGEEXP + $STR(P17)
SendMsg 0 <$USERNAME>:在炼金台使用元宝凝结出<$STR(P16)>块神秘符石和<$STR(P17)>经验
#ELSESAY
\\
恭喜你成功领取了你所凝结完成的符石和大量经验。\\
<离开/@exit>


[@拆分符石]
#IF
!CHECKITEM 神秘符石 1
#ACT
SENDMSG 5 你没有符石！
break
#ELSEACT
CHECKITEMBOXCF 1 1

[@查询规则]
\\
凝结神秘符石规则：\
1、使用元宝申请凝结符石后，须1小时后才能在NPC处领\
　 取经验和神秘符石。\
2、<COLOR=GREEN 1个元宝可以凝结出2块神秘符石>，用时2小时，每间隔\
　 1小时可以到NPC处领取一次。\
3、使用元宝凝结符石可以获得大量经验,等级越高所能获\
　 得的经验就越高。\
4、上交的元宝无法取回，<COLOR=GREEN 离线>时也可以凝结神秘符石。\
<已经了解元宝凝结规则，返回/@main>

[@申请锻造]
\\
　　把元宝交给我，我会帮你凝结出神秘符石。\
　　每<COLOR=GREEN 一>个小时我可以凝结出两块符石，每个元宝可以凝结\
出四块符石。\
　　上交的元宝无法取回，你每过<COLOR=GREEN 一>个小时就可以到我这里\
领一次<COLOR=red 符石和大量的经验>，当然也可以存在我这里。\
　　凝结开始后不管你是否在线都将持续进行，<COLOR=GREEN 离线时>也\
可以凝结神秘符石。\
　　<同意元宝凝结规则并申请元宝凝结/@同时凝结>\
　　<返回/@main>

[@同时凝结]
#IF
LARGE $HUMAN(符01) 0
#SAY
\\
你上一次申请的符石凝结尚未完全结束，无法再次申请。\\
<返回/@main>
#ELSESAY
\\
请输入想要用于凝结符石的元宝数量\
一次申请范围在1~999个元宝之间\\
<请输入用于凝结的元宝数量/@输入元宝数>\
<取消/@exit>

[@输入元宝数]
#ACT
queryvalue 请输入你要用于凝结的元宝数量(1~999) 2 3 51

[@getstring51]
#IF
LARGE $HUMAN(符01) 0
#SAY
\\
你上一次申请的符石凝结尚未完全结束，无法再次申请。\\
<返回/@main>
#ACT
break
#ELSEACT
Getstring s0
MOV P3 $STR(S0)
MOV P4 $STR(S0)
MOV P5 $STR(S0)
MOV P6 $LEVEL
MUL P4 2
MUL P5 2
DIV P6 3
INC P6 1
MUL P6 10
MOV P7 $STR(P6)
MUL P6 $STR(P5)
MOV S10 <COLOR=GREEN[]
INC S10 $STR(P3)
INC S10 >
MOV S11 <COLOR=red[]
INC S11 $STR(P4)
INC S11 >
MOV S12 <COLOR=GREEN[]
INC S12 $STR(P7)
INC S12 >
MOV S13 <COLOR=GREEN[]
INC S13 $STR(P6)
INC S13 >
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL P3 1
#ACT
SendMsg 5 你输入的数量有错，请重新输入
break
#ELSESAY
\\
<$USERNAME>，您打算使用<$STR(S10)>个元宝来凝结神秘符石，\
整个凝结过程结束时你将获得：<$STR(S11)>块神秘符石\
这可能要花费<$STR(P5)>小时的时间，每小时你可以获得\
<$STR(S12)>万经验，整个凝结过程结束时你将获得：<$STR(S13)>万\
经验，请注意，凝结一旦开始，就无法终止，凝结开始后\
你每间隔1小时可以到我这里领取一次经验和符石。\
你的等级越高，凝结时所能获得的经验就越多。\
<确认开始凝结符石/@确认真开始>\
<放弃/@exit>

[@确认真开始]
#IF
LARGE $HUMAN(符01) 0
#SAY
\\
你上一次申请的符石凝结尚未完全结束，无法再次申请。\\
<返回/@main>
#ACT
break
#IF
SMALL P3 1
#ACT
SendMsg 5 你输入的数量有错，请重新输入
break
#IF
CHECKGAMEGOLD < $STR(P3)
#SAY
\\
你当前的元宝没有<$STR(P3)>个，你还是少凝结一点吧！\\
<离开/@exit>
#ACT
break
#ELSEACT
MOV P4 $STR(P3)
MOV P6 $LEVEL
MUL P4 2
DIV P6 3
INC P6 1
MUL P6 10
GAMEGOLD - $STR(P3)
CALCVAR HUMAN 消费 + $STR(P3)
SAVEVAR HUMAN 消费 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 符01 = $STR(P4)
SAVEVAR HUMAN 符01 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 符02 = 0
SAVEVAR HUMAN 符02 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 符03 = 0
SAVEVAR HUMAN 符03 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 符04 = $STR(P6)
SAVEVAR HUMAN 符04 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 符05 = $DATASZ3
SAVEVAR HUMAN 符05 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
#ELSESAY
\\
恭喜你成功申请了符石凝结服务，从现在开始，你每间隔\
<COLOR=GREEN 1小时>便可以到我这里领取一次<COLOR=red 符石和大量经验>。\\
<知道了，谢谢/@exit>

nickal 发表于 2022-10-9 04:07:39

真是难得给力的帖子啊。

cbz123 发表于 2022-10-9 12:57:09

看到这帖子真是高兴！

ruocan 发表于 2022-10-11 12:32:16

我只是路过打酱油的。

antyvfl 发表于 2022-10-12 09:48:38

看到这帖子真是高兴！

hacksee 发表于 2022-10-14 10:26:27

无回帖，不论坛，这才是人道。

755144030 发表于 2022-10-15 07:58:11

激动人心，无法言表！

ningking 发表于 2022-10-17 10:38:56

太生气了，无法HOLD啦 >_<......

fengcll 发表于 2022-10-19 13:36:59

我只是路过打酱油的。

tt8bj 发表于 2022-10-19 16:33:26

淡定，淡定，淡定……

查看完整版本: 传世服务端中州_铁匠脚本分享