传奇沉船财富活动服务器脚本

[@main]

#act
OPENMERCHANTBIGDLG168801400146251
MOVN$一号框数量0
MOVN$二号框数量0
MOVN$三号框数量0
MOVs$一号框物品
MOVs$二号框物品
MOVs$三号框物品



#say
<Text:将你打捞回来的装备放入这里，:170:37{FCOLOR=93}>\
<Text:我会给你回报，赶紧吧，壮士！:180:40{FCOLOR=151}>\
<ITEMBOX:1:16:883:140:52:50:50:*:将你打捞回来的装备放入这里>\
<ITEMBOX:2:16:883:185:188:50:50:*:请不要在这里放入装备>\
<ITEMBOX:3:16:883:265:188:50:50:*:请不要在这里放入装备>\
<ITEMBOX:4:16:883:345:188:50:50:*:请不要在这里放入装备>\
<Text:你将获得的【奖励】，会出现在下面。:165:30{FCOLOR=245}>\


[@ItemIntoBox1]
#IF
CHECKTEXTLIST..\QuestDiary\沉船财富\1号类型.txt<$BOXITEM[1].NAME>
#ACT
MOVP11
MOVRN$机率80100
GOTO@分物品
break

#IF
CHECKTEXTLIST..\QuestDiary\沉船财富\2号类型.txt<$BOXITEM[1].NAME>
#ACT
MOVP12
MOVRN$机率70100
GOTO@分物品
break

#IF
CHECKTEXTLIST..\QuestDiary\沉船财富\3号类型.txt<$BOXITEM[1].NAME>
#ACT
MOVP13
GOTO@分物品
MOVRN$机率50100
break

#IF
CHECKTEXTLIST..\QuestDiary\沉船财富\4号类型.txt<$BOXITEM[1].NAME>
#ACT
MOVP14
GOTO@分物品
MOVRN$机率40100
break

#IF
CHECKTEXTLIST..\QuestDiary\沉船财富\5号类型.txt<$BOXITEM[1].NAME>
#ACT
MOVP15
GOTO@分物品
MOVRN$机率20100
break


#IF
CHECKTEXTLIST..\QuestDiary\沉船财富\6号类型.txt<$BOXITEM[1].NAME>
#ACT
MOVP16
MOVRN$机率10100
GOTO@分物品
break


#IF
CHECKTEXTLIST..\QuestDiary\沉船财富\7号类型.txt<$BOXITEM[1].NAME>
#ACT
MOVP17
MOVRN$机率9100
GOTO@分物品
break

#IF
CHECKTEXTLIST..\QuestDiary\沉船财富\8号类型.txt<$BOXITEM[1].NAME>
#ACT
MOVP18
MOVRN$机率9100
GOTO@分物品
break








[@分物品]
#IF
#ACT
MOVRN$一号框数量03
MOVRN$二号框数量03
MOVRN$三号框数量03
MOVRP990
GetRandomText..\QuestDiary\沉船财富\<$STR(P1)>号类型2.txts$一号框物品
GetRandomText..\QuestDiary\沉船财富\<$STR(P1)>号类型2.txts$二号框物品
GetRandomText..\QuestDiary\沉船财富\<$STR(P1)>号类型2.txts$三号框物品
SetUpgradeItem1
GOTO@星星检测

[@星星检测]
#IF
largeP990
#ACT
SetUpgradeItem4
GiveOnItemboxitem4<$STR(s$三号框物品)><$STR(N$三号框数量)>
SENDMSG5财管报道：[%s]在[%d]中捞到一件[{<$STR(s$一号框物品)>|0:255}]
UpdateItemboxitem4

SetUpgradeItem3
GiveOnItemboxitem3<$STR(s$二号框物品)><$STR(N$二号框数量)>
SENDMSG5财管报道：[%s]在[%d]中捞到一件[{<$STR(s$一号框物品)>|0:255}]
UpdateItemboxitem3

SetUpgradeItem2
GiveOnItemboxitem2<$STR(s$一号框物品)><$STR(N$一号框数量)>
SENDMSG5财管报道：[%s]在[%d]中捞到一件[{<$STR(s$一号框物品)>|0:255}]
UpdateItemboxitem2

DelBoxItem1
#IF
NOTlargeP990
#ACT

SetUpgradeItem2
GiveOnItemboxitem2<$STR(s$一号框物品)><$STR(N$一号框数量)>
SENDMSG5财管报道：[%s]在[%d]中捞到一件[{<$STR(s$一号框物品)>|0:255}]
UpdateItemboxitem2

DelBoxItem1