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

[@main]#actOPENMERCHANTBIGDLG 16 880 1 4 0 0 1 462 5 1MOV N$一号框数量 0MOV N$二号框数量 0MOV N$三号框数量 0MOV s$一号框物品MOV s$二号框物品MOV s$三号框物品#sayText:将你打捞回来的装备放入这里，: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:34psp火影5:188:50:50:*:请不要在这里放入装备\Text:你将获得的【奖励】，会出现在下面。:165:30{FCOLOR=245}\[@ItemIntoBox1]#IFCHECKTEXTLIST ..\QuestDiary\沉船财富\1号类型.txt $BOXITEM[1].NAME#ACTMOV P1 1MOVR N$机率 80 100GOTO @分物品break#IFCHECKTEXTLIST ..\QuestDiary\沉船财富\2号类型.txt $BOXITEM[1].NAME#ACTMOV P1 2MOVR N$机率 70 100GOTO @分物品break#IFCHECKTEXTLIST ..\QuestDiary\沉船财富\3号类型.txt $BOXITEM[1].NAME#ACTMOV P1 3GOTO @分物品MOVR N$机率 50 100break#IFCHECKTEXTLIST ..\QuestDiary\沉船财富\4号类型.txt $BOXITEM[1].NAME#ACTMOV P1 4GOTO @分物品MOVR N$机率 40 100break#IFCHECKTEXTLI185飞龙传奇ST ..\QuestDiary\沉船财富\5号类型.txt $BOXITEM[1].NAME#ACTMOV P1 5GOTO @分物品MOVR N$机率 20 100break#IFCHECKTEXTLIST ..\QuestDiary\沉船财富\6号类型.txt $BOXITEM[1].NAME#ACTMOV P1 6MOVR N$机率 10 100GOTO @分物品break#IFCHECKTEXTLIST ..\QuestDiary\沉船财富\7号类型.txt $BOXITEM[1].NAME#ACTMOV P1 7MOVR N$机率 9 100GOTO @分物品break#IFCHECKTEXTLIST ..\QuestDiary\沉船财富\8号类型.txt $BOXITEM[1].NAME#ACTMOV P1 8MOVR N$机率 今日新开轻变传奇sf9 100GOTO @分物品break[@分物品]#IF#ACTMOVR N$一号框数量 0 3MOVR N$二号框数量 0 3MOVR N$三号框数量 0 3MOVR P9 90GetRandomText ..\QuestDiary\沉船财富\$STR(P1)号类型2.txt s$一号框物品Get朴东赫RandomText ..\QuestD仿盛大传奇合击iary\沉船财富\$STR(P1)号类型2.txt s$二号框物品GetRandomText ..\QuestDiary\沉船财富\$STR(P1)号类型2.txt s$三号框物品SetUpgradeItem 1GOTO @星星检测[@星星检测]#IFlarge P9 90#ACTSetUpgradeItem 4GiveOnItem boxitem4 $STR(s$三号框物品) $STR(N$三号框数量)SENDMSG 5 财管报道：[%s]在[%d]中捞到一件[{$STR(s$一号框物品)|0:255}]UpdateItem boxitem4SetUpgradeItem 3GiveOnItem boxitem3 $STR(s$二号框物品) $STR(N$二号框数量)SENDMSG 5 财管报道：[%s]在[%d]中捞到一件[{$STR(s$一号框物品)|0:255}]UpdateItem boxitem3SetUpgradeItem 2GiveOnItem boxitem2 $STR(s$一号框物品) $STR(N$一号框数量)SENDMSG 5 财管报道：[%s]在[%d]中捞到一件[{$STR(s$一号框物品)|0:255}]UpdateItem boxitem2DelBoxItem 1#IFNOT large P9 90#ACTSetUpgradeItem 2GiveOnItem boxitem2 $STR(s$一号框物品) $STR(N$一号框数量)SENDMSG 5 财管报道：[%s]在[%d]中捞到一件[{$STR(s$一号框物品)|0:255}]UpdateItem boxitem2DelBoxItem 1