传奇一劲舞私服条龙武印大陆独家发布沉船财yueguangchuanqi富活动脚本
来源：Www.galayy.Com
作者：1.76传奇发布网站
发表时间：2020-12-16 14:23:12
浏览次数：1 次
复古私服。[@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].NA传奇行会封号竖着ME
#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]中捞到一件新水浒q传新手卡[{$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
#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].NA传奇行会封号竖着ME
#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]中捞到一件新水浒q传新手卡[{$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
最新文章
热门排行