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

( a, s7 k: W  j9 K( r! B& [
5 E% s( {9 F' K$ F) S
  E" t# b  n/ c+ X, z* I

& F% Q. ~1 B  }* O[@main]
" A1 `* m, N6 ?( i#IF
  R( v, J& [; o#Act
#say
<><Img:174:13:0:0>[<金刚石抽奖/SCOLOR=254>]<人命天定,点高点背,全靠上天注定,真的是很看脸啊~/SCOLOR=250><Img:174:13:0:0>\
/ h) ^9 j: }" Z# g7 M) q) L( R% d6 ^<>-------------------------------------------------------------\


<>　 <抽奖物品说明：/SCOLOR=87>　　 本游戏抽奖几率较低,请玩家认真对待！\
<><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>\
5 f' l" j) D6 A4 {% E<><PlayImg:13:170:2:200:0:0:0> <抽中特殊几率30%：/SCOLOR=150>　<稀有宝贝/SCOLOR=253>[<夺命§兽魂/SCOLOR=253>]<超强属性等你来拿！/SCOLOR=253>\
- L! k0 M, @# l0 k5 ^; ]8 g( o3 {<>-------------------------------------------------------------\
8 h4 c6 M) e- v# p, V% ?/ W0 O8 h<><PlayImg:13:170:2:200:0:0:0> [<使用金刚石抽奖/@使用金刚石抽奖>] <PlayImg:13:170:2:200:0:0:0>　<250元宝抽取一次/SCOLOR=251>  →  <[每日不限制次数]/SCOLOR=249>\
- `; X$ H) l  @<><PlayImg:13:170:2:200:0:0:0> [< 魔力§玫瑰 /@金刚石兑换元宝>] <PlayImg:13:170:2:200:0:0:0>　需要<夺命§兽魂/SCOLOR=253>1个+<神界水晶/SCOLOR=254>10块即可合成！\

0 M- Z$ J0 J: ?! J, w' t* i
[@金刚石兑换元宝]
) X; {. w, b' Z* M$ t  U#IF
" @" V# C1 @* b1 \+ ocheckitem 夺命§兽魂 1
CHECKITEM 神界水晶 10
#ACT
take 夺命§兽魂 1
2 J# c3 @$ n+ B' t: Y2 z* rTAKE 神界水晶 10
" ?5 S& `3 ?( o2 B+ g5 w3 g) Bgive 魔力§玫瑰 1
0 }( T% w8 t# c% f, w3 o8 FGuildNoticeMsg 244 151 玩家{[%s]|250:0:1}成功合成了{[魔力§玫瑰]|254:0:1}...
1 x: `1 m0 e+ ZGuildNoticeMsg 244 151 玩家{[%s]|250:0:1}成功合成了{[魔力§玫瑰]|254:0:1}...
#elseact
MESSAGEBOX 合成失败：\\缺少必须材料,请确认你的材料...
2 D  U; a  I# C+ [" W9 q' h3 wbreak
% p' s3 Y! A2 w& }  u! |

5 e! B( n; c) x" T% I$ R8 |! C[@使用金刚石抽奖]
+ i5 G, o2 _; H' o#IF
6 L$ a5 D, t( L1 v& I: S# ?CHECKGAMEGOLD < 250
#ACT
MESSAGEBOX \\抽奖失败！您的元宝不足250颗，
break


#IF
6 v. d7 ?& T# c1 Q/ XCHECKLEVELEX < 80
+ P! L4 e+ ?' ]+ O#ACT
GOTO @79抽奖
break


#IF
CHECKLEVELEX > 79
. A2 V4 C/ m5 s2 J8 J' k7 J#ACT
GOTO @80抽奖
break


. z4 b; t% P2 }  w[@80抽奖]
#IF
random 20
CHECKGAMEGOLD > 249
8 J; g/ `9 @4 D#ACT
! u6 _& W. V5 ^9 K) B6 RGOTO @抽奖材料
6 T; w5 t7 P3 ~0 F! |break

4 j' L6 U1 P2 y
#IF
) U1 \. ]0 W$ y. J  ]random 5
* r9 j8 i3 i1 n) p. z+ PCHECKGAMEGOLD > 249
#ACT
GOTO @抽奖中级装备
break
# N6 Q5 ]4 E# X

- b4 Q/ V& F& G3 j# q#IF
: R+ {* I! e7 b/ grandom 1
CHECKGAMEGOLD > 249
#ACT
GOTO @抽奖随机奖励A
, Q' ]0 N% y  n* t$ C0 Jbreak


. Y6 a3 k" m4 @5 D' l+ c5 x! G; [% r[@79抽奖]
#IF
random 40
8 R; U8 W& T( T: |9 @CHECKGAMEGOLD > 249
# P# n2 S( C- r2 B+ U$ D4 Y* D#ACT
GOTO @抽奖高级经验
# D* O9 U+ W# V4 `* Z7 `break

# x' I! p: ?, K1 ]/ l* A8 g$ H
#IF
" N  ]1 ~  z2 B) p2 d4 _random 20
CHECKGAMEGOLD > 249
0 l0 B5 d6 d1 G) t; K, P5 r% P* R#ACT
  ^8 C7 [! c6 V& K1 y- |( ^( X7 IGOTO @抽奖材料
break


/ U: O1 P5 }- ]#IF
6 J1 q5 y0 B4 zrandom 5
$ p  h( V4 d/ l4 m* t# BCHECKGAMEGOLD > 249
6 k3 g/ |. U0 S& s' E4 g#ACT
0 x9 V, K4 Q. k$ q% v& NGOTO @抽奖中级装备
. ]8 M  C% D5 X8 lbreak
. U; E& `6 L# I' ^

1 z% w( D- i; Y; o- ~& V5 L#IF
random 3
CHECKGAMEGOLD > 249
& V' e. ]1 u" h5 l#ACT
GOTO @抽奖中级经验
2 J  l: r0 d9 s8 i  u# U" P. Obreak


#IF
random 1
CHECKGAMEGOLD > 249
#ACT
GOTO @抽奖随机奖励
3 q8 H5 J& `- y( Obreak


[@抽奖随机奖励A]
#IF
2 `0 A; Z4 F; `: srandom 2
4 j* W) |# r* N# [+ aCHECKGAMEGOLD > 249
, b3 R* K+ F8 b2 u2 ~#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级材料.txt S10
GIVE <$STR(S10)> 1
! ~5 M4 H. d1 }3 jSendMsg 7 系统：恭喜玩家[{%s|250:0:1}]抽奖获得了物品[{<$STR(S10)>|251:0:1}]...
' `, T/ ~7 A# h2 Jbreak

1 Z: ~" C0 ]7 [. R" V
#IF
random 1
CHECKGAMEGOLD > 249
2 N3 j$ h  P% C#ACT
- o: K6 i* N, I: X7 F; vGAMEGOLD - 250
MOV S10 0
6 t  r* Q7 J# ~  K' i3 \, i: R* fGetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级装备.txt S10
GIVE <$STR(S10)> 1
! }* P* R9 I: @2 [  c2 GSendMsg 7 系统：恭喜玩家[{%s|250:0:1}]抽奖获得了物品[{<$STR(S10)>|251:0:1}]...
. r- }5 [7 p( D* P# P' Mbreak

- }1 a; J+ ~/ t" U
! m' S# H2 Y: |[@抽奖随机奖励]
, u( n. y6 f, h- u$ z#IF
random 3
CHECKGAMEGOLD > 249
) R7 n% N2 l3 H#ACT
GAMEGOLD - 250
* y4 M: J  E9 P5 uMOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级材料.txt S10
GIVE <$STR(S10)> 1
SendMsg 7 系统：恭喜玩家[{%s|250:0:1}]抽奖获得了物品[{<$STR(S10)>|251:0:1}]...
) O' w: g8 v1 r5 P. Zbreak


9 b- H4 ]. b3 R9 d& b5 v# Z#IF
random 2
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
" {% A  I: R/ w5 Y" s  KGetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级装备.txt S10
4 B/ z, ^/ p) A$ r: \2 n% BGIVE <$STR(S10)> 1
SendMsg 7 系统：恭喜玩家[{%s|250:0:1}]抽奖获得了物品[{<$STR(S10)>|251:0:1}]...
) y8 m! o+ w4 E, }: I4 bbreak


#IF
7 a$ g! n' [- x  I# L0 M2 Frandom 1
CHECKGAMEGOLD > 249
  X; `' b) A  Z0 O# m#ACT
GAMEGOLD - 250
9 B6 b( C* t8 @% N9 y0 M& eMOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级经验.txt S10
6 [2 m) a6 g3 I! }CHANGEEXP + <$STR(S10)>
9 k2 {' M0 q' K; D* U& |9 iSendMsg 7 系统：恭喜玩家[%s]使用金刚石抽奖获得了经验[<$STR(S10)>]
break

# B, u. @5 K  Y" k; a7 j; R2 T
[@抽奖中级经验]
# {5 f- _1 E- i) `#IF
CHECKGAMEGOLD > 249
# D/ G4 {$ p- k( z  R; n6 W#ACT
GAMEGOLD - 250
3 {7 h. X! ]: R9 k) g& m+ L  S, KMOV S10 0
* n( c0 y3 \! G$ W. E4 E7 QGetRandomText ..\QuestDiary\数据文件\金刚石抽奖\中级经验.txt S10
CHANGEEXP + <$STR(S10)>
; A! `2 u1 g" a3 D9 }SendMsg 0 151 249 系统：恭喜玩家[%s]使用金刚石抽奖获得了经验[<$STR(S10)>]
3 j7 ^+ ~1 ~$ e# R+ d" Vbreak
( N3 y% L9 V- ^2 H

) |" t. K6 n9 Z% Y& D  o1 K[@抽奖高级经验]
#IF
CHECKGAMEGOLD > 249
#ACT
; U' O' @8 P) e4 j  W) `2 dGAMEGOLD - 250
MOV S10 0
1 D4 x& c/ T3 Z) i( bGetRandomText ..\QuestDiary\数据文件\金刚石抽奖\高级经验.txt S10
CHANGEEXP + <$STR(S10)>
SendMsg 0 151 249 系统：恭喜玩家[%s]使用金刚石抽奖获得了经验[<$STR(S10)>]
: P( ~- \1 B$ m* M% k& h8 rbreak
. O4 r' ?  a$ D0 X/ x
7 K  g+ z. O' g6 B3 f# }9 S4 n' [
[@抽奖中级装备]
#IF
CHECKGAMEGOLD > 249
/ @9 R1 K/ v, E2 h$ _8 |+ E/ K#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\中级装备.txt S10
: H% V4 z5 i+ a5 b2 rGIVE <$STR(S10)> 1
; q* a% k, x% M# D' W) Y3 s+ {1 ISendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|251:0:1}...
$ @' _- @! ]! d' n& Q  D. }break
8 R- V: N: a3 t# ?, A, _+ ~  N( r  ~
" g& X9 X/ u  d5 `9 p' @! D
- E) ~# T* v% Q$ V# _[@抽奖高级装备]
#IF
CHECKGAMEGOLD > 249
5 z& F! U+ a2 E  K  z2 x#ACT
GAMEGOLD - 250
* _4 I% m# j6 O1 |; o* ]MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\高级装备.txt S10
$ b" \+ i! _" u7 nGIVE <$STR(S10)> 1
# L0 s  [# ]; N+ `  P+ GSendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
/ |% r1 ?: M) J" ^# rSendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
7 X- L) _8 N/ M) vSendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
# j7 u9 M; r7 L3 T5 sSendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
; r. y; y9 N6 ^  t4 t% ]& PSendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
. y1 t# {- o3 U- k) E) o) vbreak

2 ~/ ^3 U) Q$ N: D" [2 r* l
+ a) w2 R' t  o[@抽奖材料]
#IF
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖材料.txt S10
GIVE <$STR(S10)> 1
0 c7 V5 W) A9 E- Q& O2 bSendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|154:0:1}...
break