星空资源网 - 打造中国最全的传奇一条龙开区版本资源网。
首 页广告业务网游资讯传奇服务端热门网游下载网站地图
当前位置:星空资源网网游资讯传奇动态技术脚本

星空发布沉船财富活动脚本

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2018-03-13 21:34:44

 [@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

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
星空资源网第一时间提供最新的传奇服务端,热门网页游戏服务端免费下载。
页面执行时间:640.62500 毫秒