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

热度：

操作指南：

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

#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$古德转盘格子显示)>

[顶部]

上一篇：传奇GM后台管理脚本 - 刀锋传奇游戏服务器系统操作工具
下一篇：无度传奇：玄冰剑法脚本开关模式完整指南