自动买药,自动修理,自动回收

lwl6573209

	看了一下很多人写的自动回收的脚本,貌似没有回收元神包裹的,这里自己整合了一下,是可以使用的.发出来供大家参考.AutoRunRobot.txt #AutoRun NPC MIN 10 @自动回收物品 #AutoRun NPC HOUR 1 @自动修理装备 RobotManage.txt [@自动回收物品] #IF RANDOM 1 #ACT GMEXECUTE 在线提问 @自动回收装备 [@自动修理装备] #IF RANDOM 1 #ACT GMEXECUTE 在线提问 @自动修理装备 QManage.txt [@自动回收装备] #IF !CheckNameList  ..\QuestDiary\数据文件\临时数据\自动回收名字.txt #ACT break #IF TRUE #ACT MOV P11 $TXTLINE(..\QuestDiary\数据文件\临时数据\一元宝装备.txt) DEC P11 1 MOV P10 -1 goto @本体读取回收文本 #IF CheckBagSize 10 !CheckItem 超级治疗神水 10 CHECKGAMEGOLD > 60 #ACT Give 超级治疗神水 10 GAMEGOLD - 60 SENDMSG 5 你自动购买了10个超级治疗神水! #IF !CheckOnLine $PNEUMANAME #ACT sendmsg 5 元神不在线 break #IF TRUE #ACT MOV P9 -1 goto @元神读取回收文本 #IF $PNEUMANAME.CHECKITEM 超级治疗神水 10 #ACT sendmsg 5 已经有超过10个治疗神水了 break #IF $PNEUMANAME.CheckBagSize 10 CHECKGAMEGOLD > 60 #ACT $PNEUMANAME.GIVE 超级治疗神水 10 GAMEGOLD - 60 SENDMSG 5 你给元神自动购买了10个超级治疗神水! break #ELSEACT SENDMSG 5 包裹空格不足或者元宝不足,未购买成功! break [@本体读取回收文本] #IF SMALL P10 $STR(P11) #ACT INC P10 1 ReadRandomStr ..\QuestDiary\数据文件\临时数据\一元宝装备.txt S37 $STR(P10) SPLIT $STR(S37) | S38 goto @本体回收 GOTO @本体读取回收文本 #ELSEACT SENDMSG 5 本体包裹中的装备已经回收完了 break [@本体回收] #IF CHECKITEM $STR(S38) 1 #ACT TAKE $STR(S38) 1 GAMEGOLD + $STR(S39) SENDMSG 14 恭喜{<$USERNAME>}回收了{<$STR(S38)>},获得{<$STR(S39)>}元宝 goto @本体回收 #ELSEACT BREAK [@元神读取回收文本] #IF SMALL P9 $STR(P11) #ACT INC P9 1 ReadRandomStr ..\QuestDiary\数据文件\临时数据\一元宝装备.txt S34 $STR(P9) SPLIT $STR(S34) | S35 GOTO @元神回收 GOTO @元神读取回收文本 #ELSEACT SENDMSG 5 元神包裹中的装备已经回收完了 break [@元神回收] #IF $PNEUMANAME.CHECKITEM $STR(S35) 1 #ACT $PNEUMANAME.TAKE $STR(S35) 1 GAMEGOLD + $STR(S36) SENDMSG 14 恭喜{<$USERNAME>}回收了元神包裹里的{<$STR(S35)>},获得{<$STR(S36)>}元宝 goto @元神回收 #ELSEACT BREAK [@自动修理装备] #IF !CheckNameList  ..\QuestDiary\数据文件\临时数据\自动回收名字.txt #ACT break #IF CHECKUSEITEM 0 ;衣服 #ACT UPGRADEUSERITEM $USEITEMMAKEINDEX(0) 20 = $ITEMINFO[$USEITEMMAKEINDEX(0)].DuraMax #IF CHECKUSEITEM 1 ;武器 #ACT UPGRADEUSERITEM $USEITEMMAKEINDEX(1) 20 = $ITEMINFO[$USEITEMMAKEINDEX(1)].DuraMax #IF CHECKUSEITEM 2 ;勋章 #ACT UPGRADEUSERITEM $USEITEMMAKEINDEX(2) 20 = $ITEMINFO[$USEITEMMAKEINDEX(2)].DuraMax #IF CHECKUSEITEM 3 ;项链 #ACT UPGRADEUSERITEM $USEITEMMAKEINDEX(3) 20 = $ITEMINFO[$USEITEMMAKEINDEX(3)].DuraMax #IF CHECKUSEITEM 4 ;头盔 #ACT UPGRADEUSERITEM $USEITEMMAKEINDEX(4) 20 = $ITEMINFO[$USEITEMMAKEINDEX(4)].DuraMax #IF CHECKUSEITEM 5 ;左手镯 #ACT UPGRADEUSERITEM $USEITEMMAKEINDEX(5) 20 = $ITEMINFO[$USEITEMMAKEINDEX(5)].DuraMax #IF CHECKUSEITEM 6 ;右手镯 #ACT UPGRADEUSERITEM $USEITEMMAKEINDEX(6) 20 = $ITEMINFO[$USEITEMMAKEINDEX(6)].DuraMax #IF CHECKUSEITEM 7 ;左戒指 #ACT UPGRADEUSERITEM $USEITEMMAKEINDEX(7) 20 = $ITEMINFO[$USEITEMMAKEINDEX(7)].DuraMax #IF CHECKUSEITEM 8 ;右戒指 #ACT UPGRADEUSERITEM $USEITEMMAKEINDEX(8) 20 = $ITEMINFO[$USEITEMMAKEINDEX(8)].DuraMax #IF CHECKUSEITEM 9 ;鞋子 #ACT UPGRADEUSERITEM $USEITEMMAKEINDEX(9) 20 = $ITEMINFO[$USEITEMMAKEINDEX(9)].DuraMax #IF CHECKUSEITEM 10 ;腰带 #ACT UPGRADEUSERITEM $USEITEMMAKEINDEX(10) 20 = $ITEMINFO[$USEITEMMAKEINDEX(10)].DuraMax sendmsg 5 自动修理装备成功,你的装备已经焕然一新. ..\QuestDiary\数据文件\临时数据\一元宝装备.txt  格式如下:物品|价格 铜锤|1 绿色项链|1 猛士手镯|1 把自己名字添加进去 ..\QuestDiary\数据文件\临时数据\自动回收名字.txt 也可以自己做一个npc,开关这个自动买药和回收 自添加npc.txt <开启自动买药/@开启自动买药>  <关闭自动买药/@关闭自动买药>\ [@开启自动买药] #IF !CheckNameList  ..\QuestDiary\数据文件\临时数据\自动回收名字.txt #ACT AddNameList  ..\QuestDiary\数据文件\临时数据\自动回收名字.txt sendmsg 5 开启自动买药和自动回收装备成功 [@关闭自动买药] #IF CheckNameList  ..\QuestDiary\数据文件\临时数据\自动回收名字.txt #ACT DelNameList  ..\QuestDiary\数据文件\临时数据\自动回收名字.txt sendmsg 5 关闭自动买药和自动回收装备

fuxinmao

	找好久了，很难得的东西，谢谢分享！

chcigc120

	感谢分享，受益良多！

260071099

	谢谢楼主分享

jlslky

	支持楼主，支持社区。支持单机。

有点色彩

	找好久了，很难得的东西，谢谢分享！

a5434246

	新人求大佬详细解说

QQ醉逍遥

	为什么按你这个设置了，没有效果啊

lwl6573209

	QQ醉逍遥 发表于 2020-7-30 13:53 为什么按你这个设置了，没有效果啊 是彩虹3引擎吗,我就彩虹3的,能正常使用

baowoool1

	谢谢楼主分享