传奇服务端武器装备幸运大转盘：完整脚本与操作指南

操作指南：

检查玩家金元和包裹空间

在运营活动前，需要检查玩家的金元和包裹空间是否足够。可以使用以下代码实现：

#IF

Small U8 1

#Act

MessageBox 对不起，你的金元不足1个，无法开启【幸运大转盘】！

break

#IF

not CheckBagSize 2

#Act

MessageBox 对不起，你的包裹不足2格，无法开启幸运大转盘！

break

Copy

设置幸运大转盘

在开启活动前，需要设置转盘的奖池和素材编号。可以使用以下代码实现：

#IF

CheckLevelEx > 0

#ACT

Mov N$古德转盘素材编号 243

Mov S$古德转盘奖池目录 ..\\QuestDiary\\晴天\\大转盘

;下面是需求金元数量

Mov N$古德转动一次金元 10

Mov N$古德刷新奖池金元 1

;设置大对话框

OPENMERCHANTBIGDLG <$STR(N$古德转盘素材编号)> 0 0 4 10 -80 1 613 60 1

Copy

检查玩家是否已经领取过奖励

在每次转盘开始前，需要检查玩家是否已经领取过奖励。可以使用以下代码实现：

#IF

Equal N$古德转盘领取状态 1

#ACT

Goto @大转盘领取啦

Break

#ElseAct

Goto @大转盘刷新

break

Copy

刷新奖池和设置奖励

在每次转盘开始前，需要刷新奖池和设置奖励。可以使用以下代码实现：

;下面是需要刷新的奖池

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\\转盘奖池.txt <$STR(S$古德转盘奖品1)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\\转盘奖池.txt <$STR(S$古德转盘奖品2)>

…

;设置每次必显示的奖励

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\\每次必显示.txt <$STR(S$随机转盘奖品)>

Movr P1 1 29

Mov N$古德转盘奖品<$Str(P1)> <$STR(N$随机转盘奖品)>

Copy

开始转盘

在完成上述步骤后，即可开始转盘。可以使用以下代码实现：

Mov N$古德转盘停止随机 <$STR(N$随机转盘奖品)>

Mov N$古德奖品定位 <$STR(N$古德转盘停止随机)>

Inc N$古德奖品定位 1

Mov S$抽不到物品 <$STR(S$古德转盘奖品<$STR(N$古德奖品定位)>)>

#IF

CHECKTEXTLIST ..\\QuestDiary\\晴天\\大转盘\\抽不到物品.txt <$STR(S$抽不到物品)>

#Act

Goto @奖品检测

break

脚本：

[@main]

#IF

Small U8 1

#Act

MessageBox 对不起，你的金元不足1个，无法开启【幸运大转盘】！

break

#IF

not CheckBagSize 2

#Act

MessageBox 对不起，你的包裹不足2格，无法开启幸运大转盘！

break

#IF

CheckLevelEx > 0

#ACT

Mov N$古德转盘素材编号 243

Mov S$古德转盘奖池目录 ..\QuestDiary\晴天\大转盘

;下面是需求金元数量

Mov N$古德转动一次金元 10

Mov N$古德刷新奖池金元 1

;设置大对话框

OPENMERCHANTBIGDLG <$STR(N$古德转盘素材编号)> 0 0 4 10 -80 1 613 60 1

#IF

Equal N$古德转盘领取状态 1

#ACT

Goto @大转盘领取啦

Break

#ElseAct

Goto @大转盘刷新

break

;————————————————————————————————-

[@领取大转盘显示]

#IF

Equal N$古德转盘领取状态 1

#ACT

Break

#SAY

<PlayImg:<$STR(N$古德转盘素材编号)>:30:8:200:225:195><Img:3:<$STR(N$古德转盘素材编号)>:80:245/@dzp_lq>\

　\<ImgNum:1:<$STR(G555)>:-3:310:148>

　\　\　\　\　\

<$STR(S$古德转盘格子闪光)>

\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\

<$STR(S$古德转盘格子显示)>

;————————————————————————————————-

[@大转盘领取啦]

#IF

Equal N$古德转盘领取状态 1

#ACT

SHOWPROGRESSBARDLG 1 @提取完成 正在提取奖品,进度%d%… 0

DelayCall 1000 @提取完成

break

[@提取完成]

#IF

Equal N$古德转盘领取状态 1

#ACT

Mov N$古德转盘领取状态 0

Give <$STR(S$古德转盘奖品<$STR(N$古德奖品定位)>)> 1

MessageBox 恭喜你获得幸运大转盘奖品《<$STR(S$古德转盘奖品<$STR(N$古德奖品定位)>)>》

SendMsg 0 玩家[{【%s】|254:241}]竟然在{[幸运大转盘]|250:241}抽到了{[<$STR(S$古德转盘奖品<$STR(N$古德奖品定位)>)>]|251:241} 15 20。

SendNewLineMsg 0 254 252 15 80 5 1 震惊！玩家:[{<$USERNAME>|250:0}]竟然在。{幸运大转盘|70:0}抽到了[{<$STR(S$古德转盘奖品<$STR(N$古德奖品定位)>)>|249:0}]。

Goto @大转盘刷新

break

;————————————————————————————————-

[@检测大转盘刷新]

#IF

Small U8 1

#Act

MessageBox 对不起，你的金元不足1个，无法刷新大转盘！

break

#ElseAct

Goto @大转盘刷新

break

[@大转盘刷新]

#IF

#ACT

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品1)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品2)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品3)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品4)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品5)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品6)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品7)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品8)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品9)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品10)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品11)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品12)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品13)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品14)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品15)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品16)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品17)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品18)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品19)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品20)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品21)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品22)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品23)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品24)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品25)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品26)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品27)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\转盘奖池.txt <$STR(S$古德转盘奖品28)>

GetDBItemFieldValue <$STR(S$古德转盘奖品1)> idx <$STR(N$古德转盘奖品1)>

GetDBItemFieldValue <$STR(S$古德转盘奖品2)> idx <$STR(N$古德转盘奖品2)>

GetDBItemFieldValue <$STR(S$古德转盘奖品3)> idx <$STR(N$古德转盘奖品3)>

GetDBItemFieldValue <$STR(S$古德转盘奖品4)> idx <$STR(N$古德转盘奖品4)>

GetDBItemFieldValue <$STR(S$古德转盘奖品5)> idx <$STR(N$古德转盘奖品5)>

GetDBItemFieldValue <$STR(S$古德转盘奖品6)> idx <$STR(N$古德转盘奖品6)>

GetDBItemFieldValue <$STR(S$古德转盘奖品7)> idx <$STR(N$古德转盘奖品7)>

GetDBItemFieldValue <$STR(S$古德转盘奖品8)> idx <$STR(N$古德转盘奖品8)>

GetDBItemFieldValue <$STR(S$古德转盘奖品9)> idx <$STR(N$古德转盘奖品9)>

GetDBItemFieldValue <$STR(S$古德转盘奖品10)> idx <$STR(N$古德转盘奖品10)>

GetDBItemFieldValue <$STR(S$古德转盘奖品11)> idx <$STR(N$古德转盘奖品11)>

GetDBItemFieldValue <$STR(S$古德转盘奖品12)> idx <$STR(N$古德转盘奖品12)>

GetDBItemFieldValue <$STR(S$古德转盘奖品13)> idx <$STR(N$古德转盘奖品13)>

GetDBItemFieldValue <$STR(S$古德转盘奖品14)> idx <$STR(N$古德转盘奖品14)>

GetDBItemFieldValue <$STR(S$古德转盘奖品15)> idx <$STR(N$古德转盘奖品15)>

GetDBItemFieldValue <$STR(S$古德转盘奖品16)> idx <$STR(N$古德转盘奖品16)>

GetDBItemFieldValue <$STR(S$古德转盘奖品17)> idx <$STR(N$古德转盘奖品17)>

GetDBItemFieldValue <$STR(S$古德转盘奖品18)> idx <$STR(N$古德转盘奖品18)>

GetDBItemFieldValue <$STR(S$古德转盘奖品19)> idx <$STR(N$古德转盘奖品19)>

GetDBItemFieldValue <$STR(S$古德转盘奖品20)> idx <$STR(N$古德转盘奖品20)>

GetDBItemFieldValue <$STR(S$古德转盘奖品21)> idx <$STR(N$古德转盘奖品21)>

GetDBItemFieldValue <$STR(S$古德转盘奖品22)> idx <$STR(N$古德转盘奖品22)>

GetDBItemFieldValue <$STR(S$古德转盘奖品23)> idx <$STR(N$古德转盘奖品23)>

GetDBItemFieldValue <$STR(S$古德转盘奖品24)> idx <$STR(N$古德转盘奖品24)>

GetDBItemFieldValue <$STR(S$古德转盘奖品25)> idx <$STR(N$古德转盘奖品25)>

GetDBItemFieldValue <$STR(S$古德转盘奖品26)> idx <$STR(N$古德转盘奖品26)>

GetDBItemFieldValue <$STR(S$古德转盘奖品27)> idx <$STR(N$古德转盘奖品27)>

GetDBItemFieldValue <$STR(S$古德转盘奖品28)> idx <$STR(N$古德转盘奖品28)>

GETRANDOMLINETEXT <$STR(S$古德转盘奖池目录)>\每次必显示.txt <$STR(S$随机转盘奖品)>

GetDBItemFieldValue <$STR(S$随机转盘奖品)> idx <$STR(N$随机转盘奖品)>

Movr P1 1 29

Mov N$古德转盘奖品<$Str(P1)> <$STR(N$随机转盘奖品)>

Movr N$古德转盘载入延迟 2 3

Mul N$古德转盘载入延迟 100

DelayCall <$STR(N$古德转盘载入延迟)> @大转盘显示啦

Break

#SAY

<PlayImg:<$STR(N$古德转盘素材编号)>:20:10:200:227:255>

\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\

;<$STR(S$古德转盘格子显示)>

;————————————————————————————————-

[@大转盘显示啦]

#IF

CheckLevelEx > 1

#ACT

Mov S$古德转盘格子0 <ItemShow:<$STR(N$古德转盘奖品1)>:0:48:-333:1>

Mov S$古德转盘格子1 <ItemShow:<$STR(N$古德转盘奖品2)>:0:103:-350:1>

Mov S$古德转盘格子2 <ItemShow:<$STR(N$古德转盘奖品3)>:0:160:-366:1>

Mov S$古德转盘格子3 <ItemShow:<$STR(N$古德转盘奖品4)>:0:217:-382:1>

Mov S$古德转盘格子4 <ItemShow:<$STR(N$古德转盘奖品5)>:0:273:-398:1>

Mov S$古德转盘格子5 <ItemShow:<$STR(N$古德转盘奖品6)>:0:330:-414:1>

Mov S$古德转盘格子6 <ItemShow:<$STR(N$古德转盘奖品7)>:0:386:-430:1>

Mov S$古德转盘格子7 <ItemShow:<$STR(N$古德转盘奖品8)>:0:442:-446:1>

Mov S$古德转盘格子8 <ItemShow:<$STR(N$古德转盘奖品9)>:0:499:-462:1>

Mov S$古德转盘格子9 <ItemShow:<$STR(N$古德转盘奖品10)>:0:555:-478:1>

Mov S$古德转盘格子10 <ItemShow:<$STR(N$古德转盘奖品11)>:0:555:-433:1>

Mov S$古德转盘格子11 <ItemShow:<$STR(N$古德转盘奖品12)>:0:555:-391:1>

Mov S$古德转盘格子12 <ItemShow:<$STR(N$古德转盘奖品13)>:0:555:-350:1>

Mov S$古德转盘格子13 <ItemShow:<$STR(N$古德转盘奖品14)>:0:555:-306:1>

Mov S$古德转盘格子14 <ItemShow:<$STR(N$古德转盘奖品15)>:0:555:-264:1>

Mov S$古德转盘格子15 <ItemShow:<$STR(N$古德转盘奖品16)>:0:500:-279:1>

Mov S$古德转盘格子16 <ItemShow:<$STR(N$古德转盘奖品17)>:0:443:-295:1>

Mov S$古德转盘格子17 <ItemShow:<$STR(N$古德转盘奖品18)>:0:387:-311:1>

Mov S$古德转盘格子18 <ItemShow:<$STR(N$古德转盘奖品19)>:0:331:-328:1>

Mov S$古德转盘格子19 <ItemShow:<$STR(N$古德转盘奖品20)>:0:274:-343:1>

Mov S$古德转盘格子20 <ItemShow:<$STR(N$古德转盘奖品21)>:0:218:-359:1>

Mov S$古德转盘格子21 <ItemShow:<$STR(N$古德转盘奖品22)>:0:162:-375:1>

Mov S$古德转盘格子22 <ItemShow:<$STR(N$古德转盘奖品23)>:0:105:-390:1>

Mov S$古德转盘格子23 <ItemShow:<$STR(N$古德转盘奖品24)>:0:48:-407:1>

Mov S$古德转盘格子24 <ItemShow:<$STR(N$古德转盘奖品25)>:0:48:-482:1>

Mov S$古德转盘格子25 <ItemShow:<$STR(N$古德转盘奖品26)>:0:48:-558:1>

Mov S$古德转盘格子26 <ItemShow:<$STR(N$古德转盘奖品27)>:0:48:-632:1>

Mov S$古德转盘格子27 <ItemShow:<$STR(N$古德转盘奖品28)>:0:48:-707:1>

Mov S$古德转盘格子显示 <$STR(S$古德转盘格子0)>\<$STR(S$古德转盘格子1)>\<$STR(S$古德转盘格子2)>\<$STR(S$古德转盘格子3)>\<$STR(S$古德转盘格子4)>\<$STR(S$古德转盘格子5)>\<$STR(S$古德转盘格子6)>\<$STR(S$古德转盘格子7)>\<$STR(S$古德转盘格子8)>\<$STR(S$古德转盘格子9)>\<$STR(S$古德转盘格子10)>\<$STR(S$古德转盘格子11)>\<$STR(S$古德转盘格子12)>\<$STR(S$古德转盘格子13)>\<$STR(S$古德转盘格子14)>\<$STR(S$古德转盘格子15)>\<$STR(S$古德转盘格子16)>\<$STR(S$古德转盘格子17)>\<$STR(S$古德转盘格子18)>\<$STR(S$古德转盘格子19)>\<$STR(S$古德转盘格子20)>\<$STR(S$古德转盘格子21)>\<$STR(S$古德转盘格子22)>\<$STR(S$古德转盘格子23)>\<$STR(S$古德转盘格子24)>\<$STR(S$古德转盘格子25)>\<$STR(S$古德转盘格子26)>\<$STR(S$古德转盘格子27)>\

Break

#SAY

<PlayImg:<$STR(N$古德转盘素材编号)>:30:8:200:225:195><Img:1:<$STR(N$古德转盘素材编号)>:80:245|243#转动需要：<$STR(N$古德转动一次金元)>金元/@开始大转盘1>\

　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\

　<ImgEx:<$STR(N$古德转盘素材编号)>:4:5:6:390:30|250#刷新奖池奖品^243#刷新需要：<$STR(N$古德刷新奖池金元)>金元/@大转盘刷新>\

　\　\　\　\　\　\　\

<$STR(S$古德转盘格子显示)>

;————————————————————————————————-

[@开始大转盘1]

#IF

Small U8 <$STR(N$古德转动一次金元)>

#ACT

MessageBox 小伙子，转动一次需要<$STR(N$古德转动一次金元)>金元！

Break

#ElseAct

Dec U8 <$STR(N$古德转动一次金元)>

Goto @奖品检测

Break

#SAY

<PlayImg:<$STR(N$古德转盘素材编号)>:30:8:200:225:195><Img:1:<$STR(N$古德转盘素材编号)>:80:245>\

　\

　\　\　\　\　\

<PlayImgEx:<$STR(N$古德转盘素材编号)>:50:100:40:1:18:-51:0>\

　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\

<$STR(S$古德转盘格子显示)>

;————————————————————————————————-

[@奖品检测]

#IF

CheckLevelEx > 1

#Act

Movr N$古德转盘停止随机 0 28

Mov N$古德奖品定位 <$STR(N$古德转盘停止随机)>

Inc N$古德奖品定位 1

Mov S$抽不到物品 <$STR(S$古德转盘奖品<$STR(N$古德奖品定位)>)>

#IF

CHECKTEXTLIST ..\QuestDiary\晴天\大转盘\抽不到物品.txt <$STR(S$抽不到物品)>

#Act

Goto @奖品检测

break

#ElseAct

DelayCall 1000 @开始大转盘2

break

[@开始大转盘2]

#IF

CheckLevelEx > 1

#ACT

Mov N$古德转盘奖品延迟 <$STR(N$古德转盘停止随机)>

Mul N$古德转盘奖品延迟 100

Inc N$古德转盘奖品延迟 1

Mov N$古德转盘格子x2 <$STR(N$古德转盘停止随机)>

Mul N$古德转盘格子x2 2

Mov N$古德转盘停止格子 150

Inc N$古德转盘停止格子 <$STR(N$古德转盘格子x2)>

Mov S$古德转盘格子闪光 <PlayImg:<$STR(N$古德转盘素材编号)>:<$STR(N$古德转盘停止格子)>:2:200:41:-22>

Mov N$古德转盘领取状态 1

DelayCall 3000 @延迟1圈

;Goto @延迟一圈

Break

#SAY

<PlayImg:<$STR(N$古德转盘素材编号)>:30:8:200:220:195><Img:1:<$STR(N$古德转盘素材编号)>:80:245>\

　\

　\　\　\　\　\

<PlayImgEx:<$STR(N$古德转盘素材编号)>:94:27:100:1:41:-22:0>\

　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\

<$STR(S$古德转盘格子显示)>

[@延迟1圈]

#IF

CheckLevelEx > 1

#ACT

DelayCall 3000 @延迟2圈

Break

#SAY

<PlayImg:<$STR(N$古德转盘素材编号)>:30:8:200:220:195><Img:1:<$STR(N$古德转盘素材编号)>:80:245>\

　\

　\　\　\　\　\

<PlayImgEx:<$STR(N$古德转盘素材编号)>:94:27:100:1:41:-22:0>\

　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\

<$STR(S$古德转盘格子显示)>

[@延迟2圈]

#IF

CheckLevelEx > 1

#ACT

DelayCall <$STR(N$古德转盘奖品延迟)> @开始大转盘3

Break

#SAY

<PlayImg:<$STR(N$古德转盘素材编号)>:30:8:200:220:195><Img:1:<$STR(N$古德转盘素材编号)>:80:245>\

　\

　\　\　\　\　\

<PlayImgEx:<$STR(N$古德转盘素材编号)>:94:<$STR(N$古德奖品定位)>:100:1:41:-22:0>\

　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\

<$STR(S$古德转盘格子显示)>

;————————————————————————————————-

[@开始大转盘3]

#IF

Equal N$古德转盘领取状态 1

#ACT

Break

#SAY

<PlayImg:<$STR(N$古德转盘素材编号)>:30:8:200:220:195><Img:3:<$STR(N$古德转盘素材编号)>:80:245/@大转盘领取啦>\

　\

　\　\　\　\　\

<$STR(S$古德转盘格子闪光)>\

　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\　\

<$STR(S$古德转盘格子显示)>