看了一下很多人写的自动回收的脚本,貌似没有回收元神包裹的,这里自己整合了一下,是可以使用的.发出来供大家参考.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 关闭自动买药和自动回收装备
|
