一骑当千 发表于 2020-2-11 10:18:08

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

[@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.NAME>
#ACT
MOV P1 1
MOVR N$机率80 100
GOTO @分物品
break

#IF
CHECKTEXTLIST ..\QuestDiary\沉船财富\2号类型.txt <$BOXITEM.NAME>
#ACT
MOV P1 2
MOVR N$机率70 100
GOTO @分物品
break

#IF
CHECKTEXTLIST ..\QuestDiary\沉船财富\3号类型.txt <$BOXITEM.NAME>
#ACT
MOV P1 3
GOTO @分物品
MOVR N$机率50 100
break

#IF
CHECKTEXTLIST ..\QuestDiary\沉船财富\4号类型.txt <$BOXITEM.NAME>
#ACT
MOV P1 4
GOTO @分物品
MOVR N$机率40 100
break

#IF
CHECKTEXTLIST ..\QuestDiary\沉船财富\5号类型.txt <$BOXITEM.NAME>
#ACT
MOV P1 5
GOTO @分物品
MOVR N$机率20 100
break


#IF
CHECKTEXTLIST ..\QuestDiary\沉船财富\6号类型.txt <$BOXITEM.NAME>
#ACT
MOV P1 6
MOVR N$机率10 100
GOTO @分物品
break


#IF
CHECKTEXTLIST ..\QuestDiary\沉船财富\7号类型.txt <$BOXITEM.NAME>
#ACT
MOV P1 7
MOVR N$机率9 100
GOTO @分物品
break

#IF
CHECKTEXTLIST ..\QuestDiary\沉船财富\8号类型.txt <$BOXITEM.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 P990
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

欧阳维维 发表于 2020-2-11 14:31:37

楼下的接上。。。。

STARNO 发表于 2020-2-15 13:23:17

我也是坐沙发的

素岚听风 发表于 2020-2-18 17:31:58

佩服佩服！

容容容妹 发表于 2020-2-24 19:23:08

啊啊啊啊啊啊啊啊啊啊啊

琉璃m眸色 发表于 2020-2-26 04:29:34

看起来不错

洋柿子炒蛋 发表于 2020-2-28 17:20:54

锄禾日当午，发帖真辛苦。谁知坛中餐，帖帖皆辛苦！

shizhao2009 发表于 2020-3-25 01:26:06

回个帖子，下班咯~

晴天的L 发表于 2020-4-2 21:05:43

我是个凑数的。。。

真●ZERO 发表于 2020-4-29 11:32:38

鼎力支持！！
页: [1] 2 3 4 5 6 7
查看完整版本: 传奇一条龙独家发布沉船财富活动脚本