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

淡定,淡定,淡定……
页: [1] 2
查看完整版本: 传世服务端中州_铁匠脚本分享