一.知识点:

93.1.文件位置获取

     格式: GetStringPos 路径 字符串 说明: 返回值放在人物的N0变量中,如果值=9999999说明没有找到.

 93.2.获取指定行的值 功能:

     从文件中随机获取一行字符串

    格式: GetRandomText 文件路径 变量(S0--S99) 指定行(0-10000) 说明: 没有指定行时随机取某一行的字符串.

二.配套脚本

[@main]
#IF
#act
SetUpgradeItem 0


#IF
equal <$BOXITEM[0].GNAME1>
#ACT
mov S$宝石外观1

#IF
equal <$BOXITEM[0].GNAME2>
#ACT
mov S$宝石外观2

#IF
equal s$宝石锁定1 
#act
mov s$宝石锁定1  未锁
mov S$锁定按钮1 <锁定第一条BUFF/@锁定第一条BUFF>

#IF
equal s$宝石锁定2 
#act
mov s$宝石锁定2  未锁
mov S$锁定按钮2 <锁定第二条BUFF/@锁定第二条BUFF>

#IF
equal s$宝石锁定3 
#act
mov s$宝石锁定3  未锁
mov S$锁定按钮3 <锁定第三条BUFF/@锁定第三条BUFF>


#IF
#ACT
OPENMERCHANTBIGDLG 1 752 1 4 0 -50 0

#SAY
<><ImgEx:1:621:622:623:580:-9/@exit> \ 
<>     <BUFF洗练/SCOLOR=154> <New~~!/SCOLOR=249>\
<>        <欢迎您来到/SCOLOR=251> {◆<$SERVERNAME>◆/AUTOCOLOR=209,253,254,252,215,95,252,247}   <晋升(血龙佩)获得超强属性加持.BUFF增加!/SCOLOR=253>\
<Img:746:1:80:4>\\

<⒈血龙佩:/SCOLOR=251>  <通过材料升级/SCOLOR=70>  「<5000金币→增加10点/SCOLOR=251>」「<幸运石*1→增加500点/SCOLOR=251>」「<幸运石*10→增加5000点/SCOLOR=251>」\ 
<⒉血龙佩:/SCOLOR=251>  <通过打怪升级/SCOLOR=70>  「<每打一个怪增加1点成长(只要你打怪,就可提升血龙佩等级)/SCOLOR=243> 」\  
<⒊血龙佩:/SCOLOR=251>  <等级获得BUFF/SCOLOR=70>  「<提升(血龙佩)*10级即增加(1条BUFF),30级为满级,获得(3条BUFF)/SCOLOR=254>」\ 
<Img:746:1:80:4>\\
                         \ \
<>             <IMG:559:1:0:0><请放入血龙佩  →/SCOLOR=253>     <ITEMBOX:0:1:751:0:-13:40:40:25:放入血龙佩>          <个别BUFF属性不生效,请小退上线!/SCOLOR=253><IMG:559:1:0:0>   \  \  \
<Img:746:1:80:4>\\
 <IMG:560:1:0:0>    <$STR(S$锁定按钮1)>   <状态:/SCOLOR=31><$STR(S$宝石锁定1)>    <$STR(S$宝石外观1)> \  \
 <IMG:560:1:0:0>    <$STR(S$锁定按钮2)>   <状态:/SCOLOR=31><$STR(S$宝石锁定2)>    <$STR(S$宝石外观2)> \   \
 <IMG:560:1:0:0>    <$STR(S$锁定按钮3)>   <状态:/SCOLOR=31><$STR(S$宝石锁定3)>    <$STR(S$宝石外观3)>  \ \
 <IMG:560:1:0:0>    <$STR(S$锁定按钮4)>   <状态:/SCOLOR=31><$STR(S$宝石锁定4)>    <$STR(S$宝石外观4)> \ \
 <IMG:560:1:0:0>    <$STR(S$锁定按钮5)>   <状态:/SCOLOR=31><$STR(S$宝石锁定5)>    <$STR(S$宝石外观5)> \  \
<Img:746:1:80:4>\\
                  <IMG:559:1:0:0>  开启沙城捐献即可免费获得本服(两条BUFF)  \
                  <IMG:559:1:0:0>  开启沙城捐献即可免费获得本服(两条BUFF)       \
\\
<IMG:559:1:0:0><提示:/SCOLOR=253><重洗(血龙佩BUFF)消耗(幸运石*1)(50000元宝)(50000金币),锁定(BUFF一条)重洗条件加一倍 /SCOLOR=254>        \  \
<><IMG:550:1:0:-2>「<重洗BUFF/@重洗所有BUFF>」
<IMG:550:1:0:-2>「<金币提升/@金币提升>」
<IMG:550:1:0:-2>「<幸运石*1提升/@魔龙之眼喂养>」
<IMG:550:1:0:-2>「<幸运石*10提升/@元素石头喂养>」
<IMG:550:1:0:-2><查看BUFF属性|251#特技·玛法蓄力:攻魔道20点            
^251#特技·宙斯护体:防御增加10点
^251#特技·无懈可击:无视防御2%
^251#特技·强壮之躯:体力提升5%
^251#特技·死亡诅咒:增加敌人死亡爆率5%
^251#特技·苍穹之力:物理伤害增加2%
^251#特技·苍穹之怒:人物暴击增加2%
^251#特技·苍穹护体:人物物理减免2%
^251#特技·三相之力:攻击增加20点
^251#特技·雷霆护甲:防御力增加20点
^251#特技·弱点击破:无视对方防御2%
^251#特技·高级强壮:体力提升10%
^251#特技·邪恶诅咒:增加敌人死亡爆率10%
^251#特技·苍穹神力:物理伤害增加2%
^251#特技·苍穹神怒:人物暴击增加2%
^251#特技·苍穹附体:人物物理减免10%
^251#特技·探宝狂暴:打怪掉落装备增加20% 
^251#特技·英雄连杀:连续杀2人后攻击时提升人物5%攻击,持续5秒,最高叠5层
^251#特技·嗜血杀戮:连续杀4人后攻击暴增1.2倍持续5秒(不叠加5秒内只触发一次)
^251#特技·金身护甲:被攻击时有几率触发防御魔域提升100%(不叠加5秒内只触发一次)
^251#特技·破命一击:有几率减少对方防御20% 持续3秒
^251#特技·再世华佗:拥有技能使用可恢复自身20%生命CD60秒
^251#特技·血魔护体:使用技能或按钮后HP上限暴增20%,持续30秒
^250#特技·独孤一掷:5%几率一刀打掉对方5%血量
^250#特技·乾坤一掷:10%几率一刀打掉对方10%血量
^250#特技·探囊取物:几率收取敌人所有传送石
^250#特技·战场狡诈:被攻击几率让对方禁止攻击1秒
^250#特技·生生不息:被攻击5%几率血量恢复10%
^250#特技·见龙卸甲:几率将对方剑甲打回背包
^250#特技·虚弱卸力:几率降低对手攻击20%,持续3秒
^250#特技·魔龙护身:10%几率被攻击时,触发护身属性5秒CD60秒
^250#特技·画地为牢:5%几率禁锢对方3秒,不可逃脱
^250#特技·蛛网缠身:攻击时有几率将敌人打入蛛网状态无法跑动
^250#特技·亢龙有悔:无视见龙卸甲效果
^250#特技·化险为夷:破解画地为牢效果
^250#特技·不灭战神:血量低于40%,无敌1秒,CD180秒
^250#特技·不死不灭:血量低于20%,无敌2秒,CD180秒
^250#特技·皇凤涅槃:人物复活后,获得3秒无敌效果!
^250#特技·放下屠刀:讲对手打成和平模式5秒
^250#特技·越战越勇:杀人后恢复自身10%生命
^250#特技·浴血奋战:有几率将人打成红名
^250#特技·毁灭之力:2%几率将对方攻击力降为0,2秒
^250#特技·背水一战:自身红名状态时,全身提高1.3倍伤害
^250#特技·寒冰之箭:可以降怪物利用寒冰之气冰冻而止任意宰割 冰冻5秒/FCOLOR=251>」<IMG:550:1:0:-2><IMG:550:1:0:-2>\ \

[@锁定第一条BUFF]
#IF
#act
SetUpgradeItem 0

#IF
not CHECKDRILLHOLE -1 0
#act
messagebox 你没有对应BUFF!
break


#IF
equal s$宝石锁定1 未锁
#act
mov s$宝石锁定1 锁定
mov S$锁定按钮1 <解锁第一条BUFF/@锁定第一条BUFF>
goto @main
break
#elseact
mov s$宝石锁定1 未锁
mov S$锁定按钮1 <锁定第一条BUFF/@锁定第一条BUFF>
goto @main
break

[@锁定第二条BUFF]
#IF
#act
SetUpgradeItem 0

#IF
not CHECKDRILLHOLE -1 1
#act
messagebox 你没有对应BUFF!
break


#IF
equal s$宝石锁定2 未锁
#act
mov s$宝石锁定2 锁定
mov S$锁定按钮2 <解锁第二条BUFF/@锁定第二条BUFF>
goto @main
break
#elseact
mov s$宝石锁定2 未锁
mov S$锁定按钮2 <锁定第二条BUFF/@锁定第二条BUFF>
goto @main
break

[@锁定第三条BUFF]
#IF
#act
SetUpgradeItem 0

#IF
not CHECKDRILLHOLE -1 2
#act
messagebox 你没有对应BUFF!
break


#IF
equal s$宝石锁定3 未锁
#act
mov s$宝石锁定3 锁定
mov S$锁定按钮3 <解锁第三条BUFF/@锁定第三条BUFF>
goto @main
break
#elseact
mov s$宝石锁定3 未锁
mov S$锁定按钮3 <锁定第三条BUFF/@锁定第三条BUFF>
goto @main
break

[@itemoutbox0]
#IF
#ACT
mov S$宝石外观1
mov S$宝石外观2
goto @main


[@ItemIntoBox0]
#IF
not equal <$BOXitem[0].name> 血龙佩
#ACT
messagebox 只允许对血龙佩进行升级
ReturnBoxItem 0
break

#if
#ACT
SetUpgradeItem 0

#IF
CHECKSOCKETABLEITEM -1 0 N$宝石1外观编号 S$宝石1名称
#ACT
;sendmsg 6 ----当前所在行号为:<$str(S$宝石1名称)>
getstringpos ..\questdiary\天心制作\宝石名称.txt <$str(S$宝石1名称)>
;sendmsg 6 ----当前所在行号为:<$str(N0)>
GetRandomText ..\questdiary\天心制作\宝石内观.txt S$宝石1外观行号 <$str(N0)>
;sendmsg 6 ----当前取得外观编号为:<$str(S$宝石1外观行号)>
mov S$宝石外观1 <img:<$str(S$宝石1外观行号)>:3:0:-3>
goto @main


#IF
CHECKSOCKETABLEITEM -1 1 N$宝石2外观编号 S$宝石2名称
#ACT
;sendmsg 6 ----当前所在行号为:<$str(S$宝石1名称)>
getstringpos ..\questdiary\天心制作\宝石名称.txt <$str(S$宝石2名称)>
;sendmsg 6 ----当前所在行号为:<$str(N0)>
GetRandomText ..\questdiary\天心制作\宝石内观.txt S$宝石2外观行号 <$str(N0)>
;sendmsg 6 ----当前取得外观编号为:<$str(S$宝石1外观行号)>
mov S$宝石外观2 <img:<$str(S$宝石2外观行号)>:3:0:-3>
goto @main

[@金币提升]
#IF
not CheckBoxItemCount 0
#ACT
messagebox 需要放入血龙佩进行升级
break


#IF
NOT checkgold 5000
#ACT
messagebox 你没有5000金币,无法进行升级
break

#IF
CHECKCUSTOMITEMPROGRESSBARVALUE  -1 0 0 > 29
#ACT
messagebox 你的血龙佩已经是满级了,不需要在升级
break


#IF
#ACT
SetUpgradeItem 0

#IF
not CHECKCUSTOMITEMPROGRESSBAR -1 0
#ACT
CHANGECUSTOMITEMPROGRESSBAR -1 0 0 1
CHANGECUSTOMITEMPROGRESSBAR -1 0 1 当前等级
CHANGECUSTOMITEMPROGRESSBAR -1 0 2 70
CHANGECUSTOMITEMPROGRESSBAR -1 0 3 3
CHANGECUSTOMITEMPROGRESSBAR -1 0 4 2
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 1 = 30
sendmsg 6 你成功开启了第一条进度条
UpDateBoxItem 0

#IF
not CHECKCUSTOMITEMPROGRESSBAR -1 1
#ACT
CHANGECUSTOMITEMPROGRESSBAR -1 1 0 1
CHANGECUSTOMITEMPROGRESSBAR -1 1 1 当前进度
CHANGECUSTOMITEMPROGRESSBAR -1 1 2 70
CHANGECUSTOMITEMPROGRESSBAR -1 1 3 1
CHANGECUSTOMITEMPROGRESSBAR -1 1 4 2
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 1 = 100
sendmsg 6 你成功开启了第二条进度条
UpDateBoxItem 0


#IF
checkgold 5000
#ACT
take 金币 5000
mov n$升级每次增加点数 5000
#call [\天心制作\血龙佩升级\血龙佩进度条升级.txt] @血龙佩进度条升级脚本

#IF
#ACT
UpDateBoxItem 0

[@重洗所有BUFF]
#IF
#act
SetUpgradeItem 0

#IF
CHECKDRILLHOLE -1 0
CHECKDRILLHOLE -1 1
CHECKDRILLHOLE -1 2
;CHECKDRILLHOLE -1 3
;CHECKDRILLHOLE -1 4
#act
goto @清除BUFF第二步
break
#elseact
messagebox 你BUFF宝石没有镶嵌满,无法进行清洗
break


[@清除BUFF第二步]
#IF
#act
mov n$需要元宝 0
Mov n$需要金币 0
mov n$需要幸运石 0


#IF
equal s$宝石锁定1  锁定
#act
inc n$需要元宝  50000
inc n$需要金币  50000
inc n$需要幸运石  1

#IF
equal s$宝石锁定2  锁定
#act
inc n$需要元宝  50000
inc n$需要金币  50000
inc n$需要幸运石  1


#IF
checkgamegold ? <$str(n$需要元宝)>
checkgold <$str(n$需要金币)>
checkitem 幸运石 <$str(n$需要幸运石)>
#act
take 金币 <$str(n$需要金币)>
gamegold - <$str(n$需要元宝)>
take 幸运石 <$str(n$需要幸运石)>
#call [\天心制作\重洗BUFF.txt] @重洗BUFF脚本

#elseact
messagebox 你没有对应的材料,无法进重洗
break

评论提问