500pi-转转乐商业脚本

传奇素材脚本 · 发表于 2017-12-13 20:28:08

500pi欢迎广大传奇爱好者提供相关资源、本站力争成为最公益的素材脚本交流站

===========================================================

资源下载：

文件名称:500pi-转转乐商业脚本.rar
下载次数:18 文件大小:1.49 MB 售价:5金钱 [记录]
下载权限: 不限以上或 VIP会员优惠购买 [购买VIP] [充值金币] [发素材赚金币]

安全检测，请放心下载

此脚本有点遐思
点开NPC以后就不能关闭点关闭就出现这个
但是等你抽完奖的话点关闭就没事

500pi-转转乐商业脚本1294 作者:传奇素材脚本帖子ID:2875

===========================================================

资源演示：
500pi-转转乐商业脚本9404 作者:传奇素材脚本帖子ID:2875

[@main]
#if
#act
SET [300] 0
MOV S94
MOV S93
GetRandomText .\QuestDiary\幸运大转盘\Info.txt S99 2
GOTO @GAMEGOLD

[@GAMEGOLD]
#IF
CHECKGAMEGOLD < <$STR(S99)>
#ACT
OpenBigDialogBox 1
#SAY
\  \
\ \\  \
\ \
\  \
\ \
\  \
\ \

?                                        <对不起，每次抽奖需要元宝:《/AUTOCOLOR=250,100,180,50,252,50>{<$STR(S99)>》/AUTOCOLOR=250,100,180,50,252,50}

#ELSEACT
GAMEGOLD - <$STR(S99)>
CreateFile QuestDiary\幸运大转盘\<$USERNAME>.TXT
MOV N98 1
SENDMSG 6 【提示】:扣除元宝《<$STR(S99)>》个，英雄们现在开始摇滚吧！
goto @BDTY

[@BDTY]
#IF
#ACT
GetRandomText .\QuestDiary\幸运大转盘\Looks.txt S97
MOV N91 <$STR(S97)>
GOTO @BDJC

[@BDJC]
#IF
SMALL N91 10000
#ACT
GOTO @SDBD
#ELSEACT
GOTO @ZYBD

[@SDBD]
#IF
LARGE N98 9
#ACT
MOV S93 <Img:0:0:210:50/@GO>
OpenBigDialogBox 1
MOV N97 210
DelayCall 1000 @dwksZ
#SAY
<$STR(S94)>
<$STR(S93)>
#ELSEACT
GetRandomText .\QuestDiary\幸运大转盘\Coordinate.txt S95 <$STR(N98)>
AddTextList .\QuestDiary\幸运大转盘\<$USERNAME>.TXT <$STR(S97)>
MOV S96 <Img:
INC S96 <$STR(S97)>:1:<$STR(S95)>
INC S94 <$STR(S96)>
INC N98 1
GOTO @BDTY

[@ZYBD]
#IF
LARGE N98 9
#ACT
MOV S93 <Img:0:0:210:50/@GO>
OpenBigDialogBox 1
MOV N97 210
DelayCall 1000 @dwksZ
#SAY
<$STR(S94)>
<$STR(S93)>
#ELSEACT
GetRandomText .\QuestDiary\幸运大转盘\Coordinate.txt S95 <$STR(N98)>
AddTextList .\QuestDiary\幸运大转盘\<$USERNAME>.TXT <$STR(S97)>
MOV S96 <Img:
DEC N91 10000
MOV S97 <$STR(N91)>
INC S96 <$STR(S97)>:6:<$STR(S95)>
INC S94 <$STR(S96)>
INC N98 1
GOTO @BDTY

[@dwksZ]
#IF
SMALL N97 350
#ACT
INC N97 10
MOV S93 <Img:0:0:
INC S93 <$STR(N97)>:50/@GO>
DelayCall 200 @dwksZ
#SAY
<$STR(S94)>
<$STR(S93)>
#ELSEACT
GOTO @dwksY

[@dwksY]
#IF
LARGE N97 210
#ACT
DEC N97 10
MOV S93 <Img:0:0:
INC S93 <$STR(N97)>:50/@GO>
DelayCall 200 @dwksY
#SAY
<$STR(S94)>
<$STR(S93)>
#ELSEACT
GOTO @dwksZ

[@GO]
#IF
CHECK [300] 0
#ACT
SET [300] 1
MOV N95 0
MOVR N90 37 55
MOV N96 <$STR(N90)>
GOTO @GO1
#ELSEACT
SENDMSG 6 【提示】: 正在摇动，请稍等！

[@GO1]
#if
equal N90 0
#ACT
MOV S93 <Img:0:0:
INC S93 <$STR(N97)>:50/@MAIN>
DEC N96 36
DelayCall 500 @END
#SAY
<$STR(S94)>
<$STR(S93)>
#ELSEACT
GOTO @GO2

[@GO2]
#if
SMALL N95 18
#ACT
INC N95 1
DEC N90 1
OpenBigDialogBox <$STR(N95)>
DelayCall 1 @GO1
#SAY
<$STR(S94)>
<$STR(S93)>
#ELSEACT
MOV N95 0
goto @GO1

[@1]
#if
#act
MOV N94 1
GetRandomText .\QuestDiary\幸运大转盘\<$USERNAME>.txt S50 1
GOTO @StdItems
[@2]
#if
#act
MOV N94 1
GetRandomText .\QuestDiary\幸运大转盘\<$USERNAME>.txt S50 2
GOTO @StdItems
[@3]
#if
#act
MOV N94 1
GetRandomText .\QuestDiary\幸运大转盘\<$USERNAME>.txt S50 3
GOTO @StdItems

[@4]
#if
#act
MOV N94 1
GetRandomText .\QuestDiary\幸运大转盘\<$USERNAME>.txt S50 4
GOTO @StdItems

[@5]
#if
#act
MOV N94 1
GetRandomText .\QuestDiary\幸运大转盘\<$USERNAME>.txt S50 5
GOTO @StdItems

===========================================================

【注：帖子中的资源只显示了部分-如需完整资源请下载附件】