传奇私服一条龙制作积分抽奖教程，如何设置抽奖系统脚本

[@main]

<重要说明仔细阅读:/SCOLOR=253>\
<Img:40:33:23:3>\
<本探索只是让积分有地方消遣的功能！/SCOLOR=87><所有探索的物品只是一种辅助性装备！/SCOLOR=87>\
<Img:40:33:23:3>\
<探索的物品以及材料随处可爆,而且遍地都是！/SCOLOR=87><请勿当做赌博性质,/SCOLOR=87>\
<Img:40:33:23:3>\
<请勿沉迷,否则封号处理!同意以上条件点击确定,恶劣性质请离开!/SCOLOR=87>\
<Img:40:33:23:3>\
　<确定同意/SCOLOR=251><Img:143:3:-58:-5/@探索>　　　<奖励说明/SCOLOR=251><Img:143:3:-58:-5/@说明>　　　<暂且离开/SCOLOR=251><Img:143:3:-58:-5/@exit>


[@探索]
#ACT
MOV S$点击抽奖 <img:1:56:280:104/@抽奖>

#IF
#ACT
OPENMERCHANTBIGDLG 56 0 1 4 0 -60 0
#SAY
<ItemShow:<$STR(G60)>:0:325:158:0> \
<ItemShow:<$STR(G61)>:0:405:171:0> \
<ItemShow:<$STR(G62)>:0:455:220:0> \
<ItemShow:<$STR(G63)>:0:452:278:0> \
<ItemShow:<$STR(G64)>:0:400:325:0> \
<ItemShow:<$STR(G65)>:0:325:341:0> \
<ItemShow:<$STR(G66)>:0:245:295:0> \
<ItemShow:<$STR(G67)>:0:198:213:0> \
<ItemShow:<$STR(G68)>:0:198:123:0>\
<ItemShow:<$STR(G69)>:0:245:37:0><$STR(s5)>\
<img:280:36:683:49/@exit><$str(S$点击抽奖)>\
　\
　\
　\
　\
　                                                                                  {<$USERNAME>/AUTOCOLOR=254,251,168,191,250,70,245,249,253}  <您好！/SCOLOR=70>{欢迎来到<$SERVERNAME>大转盘抽奖!/SCOLOR=239}\
　                                                                                             <[中奖信息]/AUTOCOLOR=116>\
　                                                                                  <$STR(A2)> \
　                                                                                  <$STR(A3)> \
　                                                                                  <$STR(A4)> \
　                                                                                  <$STR(A5)> \
　                                                                                  {当前你已经寻宝 <$STR(U20)> 次/AUTOCOLOR=253} \
　                                             <奖励说明/@说明>        <刷新转盘/@刷新奖励物品>             <开启需要积分：10 点/AUTOCOLOR=94> {当前积分还剩 <$GAMEGIRD> 点/AUTOCOLOR=250}\
　                                                                                  <每1个小时会自动刷新一次奖励/AUTOCOLOR=9>\
　                                                                                  <手动刷新需要积分：50 点/AUTOCOLOR=31> \
　                                                                                  <指针指到物品正中间为中奖立刻获得物品!/AUTOCOLOR=67>\
　                                                                                  <指针指偏为幸运奖-增加元宝:20000+3亿经验!/AUTOCOLOR=245>\
　                                                                                  <本探索只是让积分有地方消遣的功能!/AUTOCOLOR=250>    \
　                                                                                  <所有探索的物品只是一种辅助性装备/AUTOCOLOR=250>    \
　                                                                                  <探索的物品以及材料随处可爆,而且遍地都是/AUTOCOLOR=250>    \
　                                                                                  <请勿当做赌博性质,请勿沉迷,否则封号处理/AUTOCOLOR=250>    \

[@抽奖]
#act
MOV S$点击抽奖 <img:1:56:210:264>

#IF
CheckBagSize 1
CHECKGAMEGIRD > 9
NOT EQUAL <$STR(s5)> <PlayImg:56:2:30:1:185:36:0>
#ACT
GAMEGIRD - 10
mov <$STR(s5)> <PlayImg:56:2:30:1:185:36:0>
goto @探索
MOVR D3 2 31
DelayCall 1000 @奖励
inc u20 1
goto @jianceba
#ELSEACT
SENDMSG 7 对不起你积分不够10点或者背包不够空格。。。。
messagebox 对不起你积分不够10点或者背包不够空格。。。。


[@奖励]
#IF
NOT CHECKTEXTLIST ..\QuestDiary\奖项设置\奖励.txt <$STR(D3)>
#ACT
mov <$STR(s5)> <Img:<$STR(D3)>:56:185:36>
CHANGEEXP + 300000000 1
gamegold + 20000
goto @探索
SENDMSG 7 很遗憾你只获得了幸运奖【元宝2万+经验值:3亿】!!!
messagebox 很遗憾你只获得了幸运奖【元宝2万+经验值:3亿】!!!
#ELSEACT
mov <$STR(s5)> <Img:<$STR(D3)>:56:185:36>
goto @探索
DelayCall 50 @JIAL

[@刷新奖励物品]
#IF
CHECKGAMEGIRD > 49
#ACT
GAMEGIRD - 50
goto @刷新奖励物品111
#ELSEACT
messagebox 对不起你的积分不够刷新奖励所需的50积分!

[@刷新奖励物品111]
#If
#Act
MOVR n9 1 68  
GetListString ..\QuestDiary\奖项设置\奖励物品.txt <$STR(N9)> A10 G60
GOTO @探索

#If
#Act
MOVR n9 1 68  
GetListString ..\QuestDiary\奖项设置\奖励物品.txt <$STR(N9)> A11 G61
GOTO @探索

#If
#Act
MOVR n9 1 68  
GetListString ..\QuestDiary\奖项设置\奖励物品.txt <$STR(N9)> A12 G62
GOTO @探索

#If
#Act
MOVR n9 1 68  
GetListString ..\QuestDiary\奖项设置\奖励物品.txt <$STR(N9)> A13 G63
GOTO @探索

#If
#Act
GetListString ..\QuestDiary\奖项设置\奖励物品.txt <$STR(N9)> A14 G64
GOTO @探索

#If
#Act
MOVR n9 1 68  
GetListString ..\QuestDiary\奖项设置\奖励物品.txt <$STR(N9)> A15 G65
GOTO @探索

#If
#Act
MOVR n9 1 68  
GetListString ..\QuestDiary\奖项设置\奖励物品.txt <$STR(N9)> A16 G66
GOTO @探索

#If
#Act
MOVR n9 1 68  
GetListString ..\QuestDiary\奖项设置\奖励物品.txt <$STR(N9)> A17 G67
GOTO @探索

#If
#Act
MOVR n9 1 68  
GetListString ..\QuestDiary\奖项设置\奖励物品.txt <$STR(N9)> A18 G68
GOTO @探索

#If
#Act
MOVR n9 1 68  
GetListString ..\QuestDiary\奖项设置\奖励物品.txt <$STR(N9)> A19 G69
GOTO @探索


[@JIAL]
#If
EQUAL d3 31
#Act
give <$STR(A10)> 1
mov S41 <$STR(A10)>
SENDMSG 0 161 241 恭喜<$USERNAME>在探索处获得【<$STR(S41)>】
messagebox 恭喜您获得了【<$STR(S41)>】!

#If
EQUAL d3 4
#Act
give <$STR(A11)> 1
mov S41 <$STR(A11)>
SENDMSG 0 161 241 恭喜<$USERNAME>在探索处获得【<$STR(S41)>】
messagebox 恭喜您获得了【<$STR(S41)>】!

#If
EQUAL d3 7
#Act
give <$STR(A12)> 1
mov S41 <$STR(A12)>
SENDMSG 0 161 241 恭喜<$USERNAME>在探索处获得【<$STR(S41)>】
messagebox 恭喜您获得了【<$STR(S41)>】!

#If
EQUAL d3 10
#Act
give <$STR(A13)> 1
mov S41 <$STR(A13)>
SENDMSG 0 161 241 恭喜<$USERNAME>在探索处获得【<$STR(S41)>】
messagebox 恭喜您获得了【<$STR(S41)>】!

#If
EQUAL d3 13
#Act
give <$STR(A14)> 1
mov S41 <$STR(A14)>
SENDMSG 0 161 241 恭喜<$USERNAME>在探索处获得【<$STR(S41)>】
messagebox 恭喜您获得了【<$STR(S41)>】!

#If
EQUAL d3 16
#Act
give <$STR(A15)> 1
mov S41 <$STR(A15)>
SENDMSG 0 161 241 恭喜<$USERNAME>在探索处获得【<$STR(S41)>】
messagebox 恭喜您获得了【<$STR(S41)>】!

#If
EQUAL d3 19
#Act
give <$STR(A16)> 1
mov S41 <$STR(A16)>
SENDMSG 0 161 241 恭喜<$USERNAME>在探索处获得【<$STR(S41)>】
messagebox 恭喜您获得了【<$STR(S41)>】!

#If
EQUAL d3 22
#Act
give <$STR(A17)> 1
mov S41 <$STR(A17)>
SENDMSG 0 161 241 恭喜<$USERNAME>在探索处获得【<$STR(S41)>】
messagebox 恭喜您获得了【<$STR(S41)>】!

#If
EQUAL d3 25
#Act
give <$STR(A18)> 1
mov S41 <$STR(A18)>
SENDMSG 0 161 241 恭喜<$USERNAME>在探索处获得【<$STR(S41)>】
messagebox 恭喜您获得了【<$STR(S41)>】!

#If
EQUAL d3 28
#Act
give <$STR(A19)> 1
mov S41 <$STR(A19)>
SENDMSG 0 161 241 恭喜<$USERNAME>在探索处获得【<$STR(S41)>】
messagebox 恭喜您获得了【<$STR(S41)>】!


#IF
EQUAL A2 []
EQUAL A3 []
EQUAL A4 []
EQUAL A5 []
#ACT
MOV A2 [{<$USERNAME>/AUTOCOLOR=253}]在探索获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @探索
break

#IF
EQUAL A3 []
EQUAL A4 []
EQUAL A5 []
#ACT
MOV A3 [{<$USERNAME>/AUTOCOLOR=253}]在探索处获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @探索
break

#IF
EQUAL A4 []
EQUAL A5 []
#ACT
MOV A4 [{<$USERNAME>/AUTOCOLOR=253}]在探索处获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @探索
break

#IF
EQUAL A5 []
#ACT
MOV A5 [{<$USERNAME>/AUTOCOLOR=253}]在探索处获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @探索
break



#IF
NOT EQUAL A2 []
NOT EQUAL A3 []
NOT EQUAL A4 []
NOT EQUAL A5 []
#ACT
MOV A2 []
MOV A3 []
MOV A4 []
MOV A5 []
MOV A2 [{<$USERNAME>/AUTOCOLOR=253}]在探索处获得[{<$STR(S41)>/AUTOCOLOR=250}]!
goto @探索
break





[@说明]
#IF
#ACT
OPENMERCHANTBIGDLG 36 1906 1 4 0 0 0
#SAY
　　　　  　　  <返回探索/SCOLOR=251><Img:143:3:-58:-5/@探索>　　　<暂且离开/SCOLOR=251><Img:143:3:-58:-5/@exit>\

<探索额外奖励:/SCOLOR=253>\
<探索  2次/SCOLOR=31><可获得/SCOLOR=250><‘小试身手’/AUTOCOLOR=253><攻魔道 +  88HPMP+500 元素+1 爆率 + 0%>\
<Img:40:33:23:3>\
<探索 20次/SCOLOR=31><可获得/SCOLOR=250><‘一探究竟’/AUTOCOLOR=253><攻魔道 + 288HPMP+1000元素+2 爆率 + 5%>\
<Img:40:33:23:3>\
<探索 50次/SCOLOR=31><可获得/SCOLOR=250><‘腰缠万贯’/AUTOCOLOR=253><攻魔道 + 588HPMP+5000元素+3 爆率 + 10%>\
<Img:40:33:23:3>\
<探索100次/SCOLOR=31><可获得/SCOLOR=250><‘一方巨豪’/AUTOCOLOR=253><攻魔道 + 888HPMP+1万 元素+5 爆率 + 15% 神力+0.1>\
<Img:40:33:23:3>\
<探索200次/SCOLOR=31><可获得/SCOLOR=250><‘豪气冲天’/AUTOCOLOR=253><攻魔道 +1888HPMP+3万 元素+7 爆率 + 20% 神力+0.3>\
<Img:40:33:23:3>\
<探索300次/SCOLOR=31><可获得/SCOLOR=250><‘武神首富’/AUTOCOLOR=253><攻魔道 +2888HPMP+6万6元素+10爆率 + 30% 神力+0.5>\
<Img:40:33:23:3>\
<>  <特殊 说明/SCOLOR=251><‘武神首富’/SCOLOR=70>称号,<下部分地图无任何限制!特殊地图条件折半!/SCOLOR=253>\
<>  <特殊 说明/SCOLOR=251><‘武神首富’/SCOLOR=70>称号,<下部分地图无任何限制!特殊地图条件折半!/SCOLOR=253>\
<>  <特殊 说明/SCOLOR=251><‘武神首富’/SCOLOR=70>称号,<下部分地图无任何限制!特殊地图条件折半!/SCOLOR=253>\

[@jianceba]
#IF
equal U20 300
#ACT
DEPRIVETITLE ↘豪气冲天↙
CONFERTITLE ↘武神首富↙
MessageBox 恭喜你获得【↘武神首富↙】称号一个！！！请在装备栏界面佩带称号！
break

#IF
equal U20 200
#ACT
DEPRIVETITLE ↘一方巨豪↙
CONFERTITLE ↘豪气冲天↙
MessageBox 恭喜你获得【↘豪气冲天↙】称号一个！！！请在装备栏界面佩带称号！
break

#IF
equal U20 100
#ACT
DEPRIVETITLE ↘腰缠万贯↙
CONFERTITLE ↘一方巨豪↙
MessageBox 恭喜你获得【↘腰缠万贯↙】称号一个！！！请在装备栏界面佩带称号！
break

#IF
equal U20 50
#ACT
DEPRIVETITLE ↘一探究竟↙
CONFERTITLE ↘腰缠万贯↙
MessageBox 恭喜你获得【↘腰缠万贯↙】称号一个！！！请在装备栏界面佩带称号！
break

#IF
equal U20 20
#ACT
DEPRIVETITLE ↘小试身手↙
CONFERTITLE ↘一探究竟↙
MessageBox 恭喜你获得【↘一探究竟↙】称号一个！！！请在装备栏界面佩带称号！
break

#IF
equal U20 2
#ACT
CONFERTITLE ↘小试身手↙
MessageBox 恭喜你获得【↘小试身手↙】称号一个！！！请在装备栏界面佩带称号！
break