传奇一条龙独家发布沉船财富活动脚本

[@main] #act OPENMERCHANTBIGDLG 16 880 1 4 0 0 1 462 5 1 MOV N$一号框数量  0 MOV N$二号框数量  0 MOV N$三号框数量  0 MOV s$一号框物品 MOV s$二号框物品 MOV s$三号框物品 #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 MOV P1 1 MOVR N$机率  80 100 GOTO @分物品 break #IF CHECKTEXTLIST ..\QuestDiary\沉船财富\2号类型.txt <$BOXITEM[1].NAME> #ACT MOV P1 2 MOVR N$机率  70 100 GOTO @分物品 break #IF CHECKTEXTLIST ..\QuestDiary\沉船财富\3号类型.txt <$BOXITEM[1].NAME> #ACT MOV P1 3 GOTO @分物品 MOVR N$机率  50 100 break #IF CHECKTEXTLIST ..\QuestDiary\沉船财富\4号类型.txt <$BOXITEM[1].NAME> #ACT MOV P1 4 GOTO @分物品 MOVR N$机率  40 100 break #IF CHECKTEXTLIST ..\QuestDiary\沉船财富\5号类型.txt <$BOXITEM[1].NAME> #ACT MOV P1 5 GOTO @分物品 MOVR N$机率  20 100 break #IF CHECKTEXTLIST ..\QuestDiary\沉船财富\6号类型.txt <$BOXITEM[1].NAME> #ACT MOV P1 6 MOVR N$机率  10 100 GOTO @分物品 break #IF CHECKTEXTLIST ..\QuestDiary\沉船财富\7号类型.txt <$BOXITEM[1].NAME> #ACT MOV P1 7 MOVR N$机率  9 100 GOTO @分物品 break #IF CHECKTEXTLIST ..\QuestDiary\沉船财富\8号类型.txt <$BOXITEM[1].NAME> #ACT MOV P1 8 MOVR N$机率  9 100 GOTO @分物品 break [@分物品] #IF #ACT MOVR N$一号框数量  0 3 MOVR N$二号框数量  0 3 MOVR N$三号框数量  0 3 MOVR P9  90 GetRandomText ..\QuestDiary\沉船财富\<$STR(P1)>号类型2.txt s$一号框物品 GetRandomText ..\QuestDiary\沉船财富\<$STR(P1)>号类型2.txt s$二号框物品 GetRandomText ..\QuestDiary\沉船财富\<$STR(P1)>号类型2.txt s$三号框物品 SetUpgradeItem 1 GOTO @星星检测 [@星星检测] #IF large   P9 90 #ACT SetUpgradeItem 4 GiveOnItem boxitem4 <$STR(s$三号框物品)> <$STR(N$三号框数量)> SENDMSG 5 财管报道：[%s]在[%d]中捞到一件[{<$STR(s$一号框物品)>|0:255}] UpdateItem boxitem4 SetUpgradeItem 3 GiveOnItem boxitem3 <$STR(s$二号框物品)> <$STR(N$二号框数量)> SENDMSG 5 财管报道：[%s]在[%d]中捞到一件[{<$STR(s$一号框物品)>|0:255}] UpdateItem boxitem3 SetUpgradeItem 2 GiveOnItem boxitem2 <$STR(s$一号框物品)> <$STR(N$一号框数量)> SENDMSG 5 财管报道：[%s]在[%d]中捞到一件[{<$STR(s$一号框物品)>|0:255}] UpdateItem boxitem2 DelBoxItem 1 #IF NOT large   P9 90 #ACT SetUpgradeItem 2 GiveOnItem boxitem2 <$STR(s$一号框物品)> <$STR(N$一号框数量)> SENDMSG 5 财管报道：[%s]在[%d]中捞到一件[{<$STR(s$一号框物品)>|0:255}] UpdateItem boxitem2 DelBoxItem 1