Gom引擎脚本-幸运转盘

GM版本库

[@main]
#IF
#ACT
OPENMERCHANTBIGDLG 0 319 1 0 1 1 1 663 29
Goto @刷新奖励物品1
#SAY
　\
　\
<ItemShow:<$STR(N$物品编号1)>:1:205:65:1> <ItemShow:<$STR(N$物品编号2)>:1:230:95:1> <ItemShow:<$STR(N$物品编号3)>:1:210:158:1>
<ItemShow:<$STR(N$物品编号4)>:1:170:228:1> <ItemShow:<$STR(N$物品编号5)>:1:100:298:1> <ItemShow:<$STR(N$物品编号6)>:1:-25:338:1>
<ItemShow:<$STR(N$物品编号7)>:1:-140:338:1> <ItemShow:<$STR(N$物品编号8)>:1:-260:298:1> <ItemShow:<$STR(N$物品编号9)>:1:-340:228:1>
<ItemShow:<$STR(N$物品编号10)>:1:-275:65:1> <ItemShow:<$STR(N$物品编号11)>:1:-390:95:1> <ItemShow:<$STR(N$物品编号12)>:1:-480:158:1>\
<Img:320:0:156:172/@抽奖>\
<$STR(S5)>\

　\
　\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<[中奖信息]/AUTOCOLOR=116>\
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<$STR(A2)> \
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<$STR(A3)> \
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<$STR(A4)> \
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<$STR(A5)> \
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<$STR(A6)> \
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<$STR(A7)> \
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<$STR(A8)> \
　                                               \
<Img:346:0:378:0> <Img:347:0:278:72>\
　\
　                                                              <每次开启抽奖物品将会改变/AUTOCOLOR=250>\
　                                                              <使用手动刷新奖品.奖品将不会改变/AUTOCOLOR=250>\
　                                                              <需要幸运钥匙开启抽奖.每次刷新需要元宝28888/AUTOCOLOR=250> \\
　\
　\
　                                                              <指针指到哪就获得什么奖励/AUTOCOLOR=250>  \
　                                <Img:318:0:178:15/@刷新奖励物品3>

[@CES]
#act
MOVR N70 348 360
SENDMSG 0 数据为：<$STR(N70)>

[@抽奖]
#IF
EQUAL S$转动中 开启
#ACT
MESSAGEBOX 对不起.转盘启动中无法在进行抽奖
Break

#IF
Not CHECKBAGSIZE 3
#ACT
MESSAGEBOX 请至少保留三个背包
Break

#IF
checkitem 幸运钥匙 1
#ACT
TAKE 幸运钥匙 1
Goto @抽吧
Break
#ELSEACT
MESSAGEBOX 对不起.抽奖至少需要幸运钥匙1把！

[@抽吧]
#IF
EQUAL S$自动更换
#ACT
Mov N$停止刷新
Goto @刷新奖励物品1

#IF
NOT EQUAL <$STR(s5)> <PlayImg:0:322:24:1:78:72:0>
#ACT
mov <$STR(s5)> <PlayImg:0:322:24:1:78:72:0>
goto @main
MOVR N70 348 360
Mov S$转动中 开启
DelayCall 5000 @main
DelayCall 6000 @奖励
#ELSEACT
SENDMSG 0 正在抽奖 请稍后等。。。。
SENDMSG 0 正在抽奖 请稍后等。。。。

[@奖励]
#ACT
mov <$STR(s5)> <Img:<$STR(N70)>:0:78:72>
goto @main
DelayCall 50 @JIAL

[@JIAL]
#If
EQUAL N70 348
#Act
give <$STR(S$物品名字1)> 1
mov S41 <$STR(S$物品名字1)>
Mov S$自动更换
Mov S$转动中
SendMoveMsg 0 251 0 100 1 恭喜【<$USERNAME>】在幸运大转盘处获得[<$STR(S41)>]
AddTextList ..\QuestDiary\游戏记录文件\转盘获得记录.txt 〖<$USERNAME>〗在幸运大转盘处获得[<$STR(S41)>].

#If
EQUAL N70 349
#Act
give <$STR(S$物品名字2)> 1
mov S41 <$STR(S$物品名字2)>
Mov S$自动更换
Mov S$转动中
SendMoveMsg 0 251 0 100 1  恭喜【<$USERNAME>】在幸运大转盘处获得[<$STR(S41)>]
AddTextList ..\QuestDiary\游戏记录文件\转盘获得记录.txt 〖<$USERNAME>〗在幸运大转盘处获得[<$STR(S41)>].

#If
EQUAL N70 350
#Act
give <$STR(S$物品名字3)> 1
mov S41 <$STR(S$物品名字3)>
Mov S$自动更换
Mov S$转动中
SendMoveMsg 0 251 0 100 1  恭喜【<$USERNAME>】在幸运大转盘处获得[<$STR(S41)>]
AddTextList ..\QuestDiary\游戏记录文件\转盘获得记录.txt 〖<$USERNAME>〗在幸运大转盘处获得[<$STR(S41)>].

#If
EQUAL N70 351
#Act
give <$STR(S$物品名字4)> 1
mov S41 <$STR(S$物品名字4)>
Mov S$自动更换
Mov S$转动中
SendMoveMsg 0 251 0 100 1  恭喜【<$USERNAME>】在幸运大转盘处获得[<$STR(S41)>]
AddTextList ..\QuestDiary\游戏记录文件\转盘获得记录.txt 〖<$USERNAME>〗在幸运大转盘处获得[<$STR(S41)>].

#If
EQUAL N70 352
#Act
give <$STR(S$物品名字5)> 1
mov S41 <$STR(S$物品名字5)>
Mov S$自动更换
Mov S$转动中
SendMoveMsg 0 251 0 100 1  恭喜【<$USERNAME>】在幸运大转盘处获得[<$STR(S41)>]
AddTextList ..\QuestDiary\游戏记录文件\转盘获得记录.txt 〖<$USERNAME>〗在幸运大转盘处获得[<$STR(S41)>].

#If
EQUAL N70 353
#Act
give <$STR(S$物品名字6)> 1
mov S41 <$STR(S$物品名字6)>
Mov S$自动更换
Mov S$转动中
SendMoveMsg 0 251 0 100 1  恭喜【<$USERNAME>】在幸运大转盘处获得[<$STR(S41)>]
AddTextList ..\QuestDiary\游戏记录文件\转盘获得记录.txt 〖<$USERNAME>〗在幸运大转盘处获得[<$STR(S41)>].

#If
EQUAL N70 354
#Act
give <$STR(S$物品名字7)> 1
mov S41 <$STR(S$物品名字7)>
Mov S$自动更换
Mov S$转动中
SendMoveMsg 0 251 0 100 1  恭喜【<$USERNAME>】在幸运大转盘处获得[<$STR(S41)>]
AddTextList ..\QuestDiary\游戏记录文件\转盘获得记录.txt 〖<$USERNAME>〗在幸运大转盘处获得[<$STR(S41)>].

#If
EQUAL N70 355
#Act
give <$STR(S$物品名字8)> 1
mov S41 <$STR(S$物品名字8)>
Mov S$自动更换
Mov S$转动中
SendMoveMsg 0 251 0 100 1  恭喜【<$USERNAME>】在幸运大转盘处获得[<$STR(S41)>]
AddTextList ..\QuestDiary\游戏记录文件\转盘获得记录.txt 〖<$USERNAME>〗在幸运大转盘处获得[<$STR(S41)>].

#If
EQUAL N70 356
#Act
give <$STR(S$物品名字9)> 1
mov S41 <$STR(S$物品名字9)>
Mov S$自动更换
Mov S$转动中
SendMoveMsg 0 251 0 100 1  恭喜【<$USERNAME>】在幸运大转盘处获得[<$STR(S41)>]
AddTextList ..\QuestDiary\游戏记录文件\转盘获得记录.txt 〖<$USERNAME>〗在幸运大转盘处获得[<$STR(S41)>].

#If
EQUAL N70 357
#Act
give <$STR(S$物品名字12)> 1
mov S41 <$STR(S$物品名字12)>
Mov S$自动更换
Mov S$转动中
SendMoveMsg 0 251 0 100 1  恭喜【<$USERNAME>】在幸运大转盘处获得[<$STR(S41)>]
AddTextList ..\QuestDiary\游戏记录文件\转盘获得记录.txt 〖<$USERNAME>〗在幸运大转盘处获得[<$STR(S41)>].

#If
EQUAL N70 358
#Act
give <$STR(S$物品名字11)> 1
mov S41 <$STR(S$物品名字11)>
Mov S$自动更换
Mov S$转动中
SendMoveMsg 0 251 0 100 1  恭喜【<$USERNAME>】在幸运大转盘处获得[<$STR(S41)>]
AddTextList ..\QuestDiary\游戏记录文件\转盘获得记录.txt 〖<$USERNAME>〗在幸运大转盘处获得[<$STR(S41)>].

#If
EQUAL N70 359
#Act
give <$STR(S$物品名字10)> 1
mov S41 <$STR(S$物品名字10)>
Mov S$自动更换
Mov S$转动中
SendMoveMsg 0 251 0 100 1  恭喜【<$USERNAME>】在幸运大转盘处获得[<$STR(S41)>]
AddTextList ..\QuestDiary\游戏记录文件\转盘获得记录.txt 〖<$USERNAME>〗在幸运大转盘处获得[<$STR(S41)>].


#IF
EQUAL A2 []
EQUAL A3 []
EQUAL A4 []
EQUAL A5 []
EQUAL A6 []
EQUAL A7 []
EQUAL A8 []
#ACT
MOV A2 [{<$USERNAME>/AUTOCOLOR=253}]在幸运大转盘出获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @main
break

#IF
EQUAL A3 []
EQUAL A4 []
EQUAL A5 []
EQUAL A6 []
EQUAL A7 []
EQUAL A8 []
#ACT
MOV A3 [{<$USERNAME>/AUTOCOLOR=253}]在幸运大转盘出获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @main
break

#IF
EQUAL A4 []
EQUAL A5 []
EQUAL A6 []
EQUAL A7 []
EQUAL A8 []
#ACT
MOV A4 [{<$USERNAME>/AUTOCOLOR=253}]在幸运大转盘出获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @main
break

#IF
EQUAL A5 []
EQUAL A6 []
EQUAL A7 []
EQUAL A8 []
#ACT
MOV A5 [{<$USERNAME>/AUTOCOLOR=253}]在幸运大转盘出获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @main
break

#IF
EQUAL A6 []
EQUAL A7 []
EQUAL A8 []
#ACT
MOV A6 [{<$USERNAME>/AUTOCOLOR=253}]在幸运大转盘出获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @main
break

#IF
EQUAL A7 []
EQUAL A8 []
#ACT
MOV A7 [{<$USERNAME>/AUTOCOLOR=253}]在幸运大转盘出获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @main
break

#IF
EQUAL A8 []
#ACT
MOV A8 [{<$USERNAME>/AUTOCOLOR=253}]在幸运大转盘出获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @main
break

#IF
NOT EQUAL A2 []
NOT EQUAL A3 []
NOT EQUAL A4 []
NOT EQUAL A5 []
NOT EQUAL A7 []
NOT EQUAL A6 []
NOT EQUAL A8 []
#ACT
MOV A2 []
MOV A3 []
MOV A4 []
MOV A5 []
MOV A6 []
MOV A7 []
MOV A8 []
MOV A2 [{<$USERNAME>/AUTOCOLOR=253}]在幸运大转盘出获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @main
break


[@刷新奖励物品3]
#IF
EQUAL S$转动中 开启
#ACT
MESSAGEBOX 对不起.转盘启动中无法.刷新奖励！
Break

#IF
CHECKGAMEGOLD > 28887
#ACT
GAMEGOLD - 28888
Mov N$停止刷新 2
Mov S$自动更换 停
Goto @刷新奖励物品1
Break
#ELSEACT
MESSAGEBOX 对不起,至少需要28888元宝刷新奖励物品


[@刷新奖励物品1]
#IF
EQUAL N$停止刷新 1
#ACT
Break

#If
#Act
MovR N9 0 547
GetListString ..\QuestDiary\游戏功能\奖励物品.txt <$STR(N9)> S$物品名字1 N$物品编号1
MOVR n10 0 547
GetListString ..\QuestDiary\游戏功能\奖励物品.txt <$STR(N10)> S$物品名字2 N$物品编号2
MOVR n11 0 547
GetListString ..\QuestDiary\游戏功能\奖励物品.txt <$STR(N11)> S$物品名字3 N$物品编号3
MOVR n12 0 547
GetListString ..\QuestDiary\游戏功能\奖励物品.txt <$STR(N12)> S$物品名字4 N$物品编号4
MOVR n13 0 547
GetListString ..\QuestDiary\游戏功能\奖励物品.txt <$STR(N13)> S$物品名字5 N$物品编号5
MOVR n14 0 547
GetListString ..\QuestDiary\游戏功能\奖励物品.txt <$STR(N14)> S$物品名字6 N$物品编号6
MOVR n15 0 547
GetListString ..\QuestDiary\游戏功能\奖励物品.txt <$STR(N15)> S$物品名字7 N$物品编号7
MOVR n16 0 547
GetListString ..\QuestDiary\游戏功能\奖励物品.txt <$STR(N16)> S$物品名字8 N$物品编号8
MOVR n17 0 547
GetListString ..\QuestDiary\游戏功能\奖励物品.txt <$STR(N17)> S$物品名字9 N$物品编号9
MOVR n18 0 547
GetListString ..\QuestDiary\游戏功能\奖励物品.txt <$STR(N18)> S$物品名字10 N$物品编号10
MOVR n19 0 547
GetListString ..\QuestDiary\游戏功能\奖励物品.txt <$STR(N19)> S$物品名字11 N$物品编号11
MOVR n20 0 547
GetListString ..\QuestDiary\游戏功能\奖励物品.txt <$STR(N20)> S$物品名字12 N$物品编号12

#IF
#ACT
Mov N$停止刷新 1
goto @main