GOM引擎传奇服务端随机抽奖脚本的制作教程

[@main]
#IF
#Act
#say
' u2 D, }/ e* P& \3 e4 {+ ]<><Img:174:13:0:0>[<金刚石抽奖/SCOLOR=254>]<人命天定,点高点背,全靠上天注定,真的是很看脸啊~/SCOLOR=250><Img:174:13:0:0>\
<>-------------------------------------------------------------\


, m4 B  B  c! s7 L4 X4 E- z<>　 <抽奖物品说明：/SCOLOR=87>　　 本游戏抽奖几率较低,请玩家认真对待！\
9 ]5 X& s6 B0 B8 g$ d<><PlayImg:13:170:2:200:0:0:0> <抽中经验几率80%：/SCOLOR=150>　<各种经验[100000经验-30000000经验]！/SCOLOR=251>\
<><PlayImg:13:170:2:200:0:0:0> <抽中装备几率50%：/SCOLOR=150>　<所有装备，包括上古装备,钻石会员在内！/SCOLOR=250>\
<><PlayImg:13:170:2:200:0:0:0> <抽中特殊几率30%：/SCOLOR=150>　<稀有宝贝/SCOLOR=253>[<夺命§兽魂/SCOLOR=253>]<超强属性等你来拿！/SCOLOR=253>\
<>-------------------------------------------------------------\
+ o# ]9 [: q5 R9 Q  {% A) h5 h<><PlayImg:13:170:2:200:0:0:0> [<使用金刚石抽奖/@使用金刚石抽奖>] <PlayImg:13:170:2:200:0:0:0>　<250元宝抽取一次/SCOLOR=251>  →  <[每日不限制次数]/SCOLOR=249>\
+ y( ]5 l! z6 \9 M1 B; Y4 x<><PlayImg:13:170:2:200:0:0:0> [< 魔力§玫瑰 /@金刚石兑换元宝>] <PlayImg:13:170:2:200:0:0:0>　需要<夺命§兽魂/SCOLOR=253>1个+<神界水晶/SCOLOR=254>10块即可合成！\


[@金刚石兑换元宝]
/ ^+ M& \% i5 v$ E#IF
9 R1 `$ G' q* I4 Qcheckitem 夺命§兽魂 1
8 U* R4 e, M( R0 z/ j, S1 S8 `CHECKITEM 神界水晶 10
#ACT
( V$ E) j+ U+ r8 q' ^: h! |take 夺命§兽魂 1
# ?# |  p1 y6 A  z& G7 A5 h! o# ^TAKE 神界水晶 10
$ T3 I* U0 ^+ B9 J" lgive 魔力§玫瑰 1
GuildNoticeMsg 244 151 玩家{[%s]|250:0:1}成功合成了{[魔力§玫瑰]|254:0:1}...
GuildNoticeMsg 244 151 玩家{[%s]|250:0:1}成功合成了{[魔力§玫瑰]|254:0:1}...
#elseact
0 P7 f' D/ y8 @/ v3 uMESSAGEBOX 合成失败：\\缺少必须材料,请确认你的材料...
) _3 {; I4 [, W9 o  L* N; B- sbreak

& ?5 p- C6 O3 [3 K$ G4 J
6 _1 V5 M6 q& l3 u: Q8 c6 l  q) G[@使用金刚石抽奖]
#IF
) B! ]: W* s; Q' V$ N2 Q* B9 G$ PCHECKGAMEGOLD < 250
! v$ ~, U6 ]# b9 b4 f2 s( x#ACT
MESSAGEBOX \\抽奖失败！您的元宝不足250颗，
1 c# o$ \0 K- ]+ Bbreak
' m% Q; y4 K7 Y( }' o  R
5 ~- [/ L2 q& [9 w2 v
0 z, g) ]- w, j1 H#IF
, d  Q) h; y! N' e3 M  qCHECKLEVELEX < 80
#ACT
; ^$ c7 d3 s- |5 E$ @6 f  yGOTO @79抽奖
break
1 _* X& T4 x+ P* C
8 T( Y9 b. O3 ^# w8 j3 D3 x
0 r1 |+ W9 ]3 t9 H4 N  w#IF
CHECKLEVELEX > 79
5 W$ u  B* X) a* f) K1 w#ACT
GOTO @80抽奖
& h: R6 f0 O+ g6 b+ B; U# ubreak

) P* D0 r# \. i1 J$ J+ d& U5 s
- ?0 _/ s7 e$ u# B6 v[@80抽奖]
#IF
+ @9 P9 P$ _! I, ]* p! trandom 20
' m9 R" \; T# l; QCHECKGAMEGOLD > 249
+ [7 D4 {9 [" v0 c* G#ACT
GOTO @抽奖材料
% L2 u& g! U4 a" J: L+ G+ sbreak
# h( L. M  V0 K! G3 [" W& G4 H
4 i: }$ ~8 L# k7 c* B' W" c
) D  a; E1 T; O6 [* ]6 g9 K3 m! p#IF
& p! N8 B, v& m3 \$ `# trandom 5
0 S) b& h0 g+ t6 g& V$ M! q) c, W+ H/ SCHECKGAMEGOLD > 249
#ACT
8 @/ O: s6 P( b( @8 X% `% v# w7 DGOTO @抽奖中级装备
( v" Y( o$ @: l: V' Bbreak
8 o' f7 W9 T- v9 X3 _# q) M3 ^

#IF
! w( O; _( @2 t# g1 {  g+ L; J  }random 1
CHECKGAMEGOLD > 249
#ACT
/ E* T% ]$ z/ |GOTO @抽奖随机奖励A
break
( v# C1 Z0 M5 Y" |# C5 _9 A5 H$ |5 K

[@79抽奖]
0 Q9 m6 V! P& x' ^#IF
6 `1 c1 t% d0 g% _random 40
0 q! ^8 j( ?0 S) J% bCHECKGAMEGOLD > 249
5 x& O* v& N3 f* h: w#ACT
% ?2 B' O- d2 m/ P- fGOTO @抽奖高级经验
break
6 A1 |; |# o( C0 {0 `

. R. r9 _" _3 _- ]6 v% F9 d" k" }. H) E#IF
) W3 o! V& P# n( w+ Prandom 20
% ^4 t) m; ]9 f( {6 D( z6 \CHECKGAMEGOLD > 249
#ACT
GOTO @抽奖材料
  w0 i) b5 p! o# A0 {4 Dbreak
3 a# n( `4 o' U) c4 }

! W' J3 p1 b9 U8 a, o, d3 t#IF
- J: ?, h5 C2 k' S% Z  zrandom 5
CHECKGAMEGOLD > 249
0 J2 q% m  b7 U, i6 q0 i$ C#ACT
4 a5 ]& N$ w9 m  I/ FGOTO @抽奖中级装备
6 c6 `. F- g- P, m& s9 cbreak
3 r; `8 F3 R/ ^! A( b' v' o4 s' C
4 b, c; M9 s# ~5 {& L) o
7 [. J/ {( s* a- m' L/ A#IF
random 3
CHECKGAMEGOLD > 249
- D- B5 ~" I; ^" Q3 f  K#ACT
. n- }8 t5 m% z: r9 w) ^# D2 a/ aGOTO @抽奖中级经验
break
1 x0 q% R$ x( H+ |, g1 X

- r: q; Y# J6 o" s7 D% Q$ E6 {#IF
random 1
+ G# p- R2 l' UCHECKGAMEGOLD > 249
#ACT
4 i* \3 p+ f2 F9 u2 y. N9 [GOTO @抽奖随机奖励
9 ~) o3 p; N; Q& Cbreak


( Z/ _9 q1 f! I) [; S9 U[@抽奖随机奖励A]
#IF
+ k/ v! I$ R, i* R0 m* n7 W% Y2 nrandom 2
CHECKGAMEGOLD > 249
+ N" \. c1 j! f, i% W#ACT
+ R  E* G) ]1 i' K" ZGAMEGOLD - 250
MOV S10 0
# j( D/ h3 o# CGetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级材料.txt S10
GIVE <$STR(S10)> 1
( r: O: Z" ?3 s& U7 fSendMsg 7 系统：恭喜玩家[{%s|250:0:1}]抽奖获得了物品[{<$STR(S10)>|251:0:1}]...
break

( k7 e: M4 s- f
#IF
random 1
7 A3 O3 Y7 I+ R4 wCHECKGAMEGOLD > 249
" J( R! K0 C5 i$ a/ f5 r#ACT
GAMEGOLD - 250
3 b& Q. s8 r) YMOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级装备.txt S10
GIVE <$STR(S10)> 1
SendMsg 7 系统：恭喜玩家[{%s|250:0:1}]抽奖获得了物品[{<$STR(S10)>|251:0:1}]...
$ i" P* t' A7 ?' ]break
: c4 R$ v2 q+ l1 E+ J- k# \
& A; R! U- i# s' P0 G2 Q6 G" J! F8 @
9 C" N8 A! w$ t/ O[@抽奖随机奖励]
/ T7 h0 k  E+ G- C, i#IF
random 3
CHECKGAMEGOLD > 249
! P3 W, ?$ {2 n, L6 o& D& P#ACT
% J& c) h  ?, C9 {GAMEGOLD - 250
MOV S10 0
' O, n, B, j0 _# O8 ~9 ^. F+ C0 EGetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级材料.txt S10
GIVE <$STR(S10)> 1
* U& ~& _2 d3 ], }) rSendMsg 7 系统：恭喜玩家[{%s|250:0:1}]抽奖获得了物品[{<$STR(S10)>|251:0:1}]...
2 U& `1 V0 i, {" Mbreak


#IF
random 2
CHECKGAMEGOLD > 249
% l4 D( g" `( a9 W+ I8 d# H' R#ACT
GAMEGOLD - 250
3 U. Z+ @. o4 d! I4 m& VMOV S10 0
7 ]' ^" n' H  d$ M$ s+ |GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级装备.txt S10
GIVE <$STR(S10)> 1
SendMsg 7 系统：恭喜玩家[{%s|250:0:1}]抽奖获得了物品[{<$STR(S10)>|251:0:1}]...
' f  O4 [9 l1 a! {break

" v0 J" P* }' a7 a- R& c
! N( `2 V9 {0 O% B, c1 @  k#IF
random 1
( Y; {( S6 Y, h( `CHECKGAMEGOLD > 249
) \! Z% ^. c0 V, h#ACT
GAMEGOLD - 250
6 R& x% T2 V. e. V5 i) WMOV S10 0
4 s$ q5 f  o& a; x: _GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级经验.txt S10
CHANGEEXP + <$STR(S10)>
SendMsg 7 系统：恭喜玩家[%s]使用金刚石抽奖获得了经验[<$STR(S10)>]
2 |5 u; b& S( Cbreak

$ V; u7 }8 }* C( ^
[@抽奖中级经验]
! E# G% g; Z  [4 x#IF
CHECKGAMEGOLD > 249
#ACT
6 C) W0 Z2 O' b. U( N4 `1 dGAMEGOLD - 250
/ i" B; @; |5 I/ D5 }# t( KMOV S10 0
5 D) t8 E& b: |5 o1 Y: D  ]; NGetRandomText ..\QuestDiary\数据文件\金刚石抽奖\中级经验.txt S10
+ u' z- F4 I( LCHANGEEXP + <$STR(S10)>
6 @( h) N+ e) t9 c' I- pSendMsg 0 151 249 系统：恭喜玩家[%s]使用金刚石抽奖获得了经验[<$STR(S10)>]
break


2 q8 P5 e) a4 Z! q[@抽奖高级经验]
#IF
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
( H6 M# \- g2 B% F. ?; t0 R% aMOV S10 0
1 Q; q/ q) ]1 r. M- a6 I. E, [5 @GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\高级经验.txt S10
3 q3 q7 L' v5 l6 B/ PCHANGEEXP + <$STR(S10)>
SendMsg 0 151 249 系统：恭喜玩家[%s]使用金刚石抽奖获得了经验[<$STR(S10)>]
break

8 `3 t" |. x. d" F
[@抽奖中级装备]
; ^% a, B  D* I+ S. \0 o#IF
7 I8 s, j6 f( S5 q3 F8 n* @CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
/ l+ z6 _8 _4 p4 }GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\中级装备.txt S10
GIVE <$STR(S10)> 1
  H1 h1 m1 J5 n% |$ ~2 |SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|251:0:1}...
break

6 a( T; U: g( e4 U6 }
6 a- l2 ?- I  ]( G[@抽奖高级装备]
#IF
CHECKGAMEGOLD > 249
#ACT
! z/ C9 ~9 W1 w' hGAMEGOLD - 250
) z& o* r$ E9 D% K. @$ k" DMOV S10 0
' i3 Y/ b! ~6 ^. T& yGetRandomText ..\QuestDiary\数据文件\金刚石抽奖\高级装备.txt S10
+ F6 @- T0 E; a$ b& X- ^GIVE <$STR(S10)> 1
3 G& K  c' ~$ a+ {! o0 O, L3 _5 OSendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
8 o. t6 r3 F& X' n3 @5 N3 ]SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
) |1 e6 P; l: R, Q# x0 oSendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
; ?, Q# \  A# {1 S+ N* ASendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
* X8 _: k8 ?8 z. B- r* b/ iSendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
break

+ S& K7 g4 M  f' R
[@抽奖材料]
#IF
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖材料.txt S10
GIVE <$STR(S10)> 1
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|154:0:1}...
. ]& g4 Z; C' p0 u  Gbreak
% d) g7 R" }6 V; h! K- \
# }" q% C# f. O7 o# ~) y/ T: Z4 L" f