GOM引擎传奇版本自定义输入数量兑换货币脚本制作教程

" g- H( x7 b" X- G; i9 R, Z
/ M4 ?; Q; ^4 E0 D/ Y


% `% e# @: t9 o3 c; \) E: S[@Main]
" q5 ?3 ]$ S9 C#IF
#Act
2 {" j  ^, u: o! m: Y( u4 z, u7 rOPENMERCHANTBIGDLG 33 60 1 4 1 0 1 418 15
5 y; @* |1 G2 l, P2 FMOV S1 <$YEAR>-<$MONTH>-<$DAY>　<$HOUR>:<$MINUTE>:<$SECOND>分
& T" ^' j6 v- u% ^2 IMOV S2 <$SERVERNAME>
#SAY
; g: U) {5 C0 r# a' r1 K\ \ \ \ \
<>               {[<$STR(S1)>]/SCOLOR=249}　　 {[<$STR(S2)>]/SCOLOR=251}\
. F# x% K! L) W: q<Img:363:1:0:4>\
<Img:363:1:0:100>\
* G" H$ d' p7 ^- o* i9 \6 r<> {[<$Username>]/SCOLOR=154}　你好,很高兴为您服务！ <当前人民币为：/FCOLOR=249>{<$GamePoint>/FCOLOR=250} <当前元宝为：/FCOLOR=249>{<$Gamegold>/FCOLOR=250}\　\
<>            <人民币(兑换)|255#1:Rmb = 1充值点1000修罗币/FCOLOR=243>　　                <元宝(兑换)|255#20W元宝 = 1000修罗币/FCOLOR=243>\　\
/ i( A- k3 S: e% L" u4 ~5 r+ y2 _<>     <点击输入(RMB)兑换(充值数)|249#1:Rmb = 1充值点1000修罗币/@@InPutinteger91(当前[人民币RMB]：<$GamePoint>　请输入兑换充值的额度！)>       <点击输入(元宝)兑换(缘梦币)|249#20W元宝 = 1000修罗币/@@InPutinteger99(当前[元宝]：<$Gamegold>　请输入兑换充值的额度！)>\　\

, s$ P, p, y6 G9 H+ k' S# \
8 h  Q. R) E4 u2 n3 l9 }4 s<>   　<温馨提示：如果你充值错了,可以在这里兑换，和[官方充值]一样！/FCOLOR=253>\
<>     <温馨提示：元宝只可兑换缘梦币，缘梦币不可兑换元宝，散人更好发展！/FCOLOR=254>\


[@InPutinteger91]
: p1 d: ?/ _5 Y. o# e- O; r#IF
( ~! y, y- V% o$ GCheckContainsText <$SERVERNAME> 测试
) A. M- O! P1 G9 t$ |- D* }! u#ACT
# n* v1 `1 r8 l8 M+ H/ u. N5 T" \messagebox 测试区禁止使用！！！
BREAK
+ Z. K# L  f' F) V5 ]/ t

% p" \% M- s% i/ _% D6 d#OR
LARGE N91 10000
- h( A0 h% I/ K5 X0 fSMALL N91 1
#ACT
MOV N91
messagebox \【错误提示】:\\\　　　　　　请输入1-10000之间的数值，当前RMB点为：<$GamePoint>元
break
; k6 J. k. P! ~8 V$ W' I+ f# e9 r
) i( V% j$ s# u
#IF
4 h/ r" G$ |$ A0 G  wCheckGamePoint < <$STR(N91)>
#ACT
. s# m9 \9 i+ j/ @MESSAGEBOX \【错误提示】:\\你的人民币不足<$STR(N91)>元,不能兑换这么多充值\\当前RMB点为：<$GamePoint>元
break
#Elseact
Mov N$扣除人民币数量 0
Mov N$给于火龙币数量 0
Mov N$给于充值点数量 0
7 D# H$ F/ N; V0 e# b% I/ X" p8 nMov N$扣除人民币数量 <$STR(N91)>
Mov N$给于火龙币数量 <$STR(N91)>
Mov N$给于充值点数量 <$STR(N91)>
  a2 _$ T& R, A6 o; LMul N$扣除人民币数量 1
  m6 I2 V, ^4 M' AMul N$给于火龙币数量 1000
Mul N$给于充值点数量 1
GamePoint - <$STR(N$扣除人民币数量)>
GameDiamond + <$STR(N$给于火龙币数量)>
GameGird + <$STR(N$给于充值点数量)>
Goto @Main
# a. d0 [% D' x; D! @7 MSENDMSG 1 玩家『<$USERNAME>』成功将『<$STR(N$扣除人民币数量)>』人民币兑换了『<$STR(N$给于火龙币数量)>』缘梦币！
& w! b& e+ B/ i  VBreak


[@InPutinteger99]
#if
) B# T7 ^  M( ?, q- o* nCHECKtextlist ..\QuestDiary\测试奖励\服务器状态控制.txt 测试
% H& F: j) V$ T6 G  n4 ^$ o#act
MessageBox 测试区禁止使用！！
4 v+ @3 ^+ d" E3 f6 J2 q* \, [break
7 D8 D' O9 |. j+ N$ y7 W

6 w% O$ x4 G, t#IF
+ F5 O! E* T8 O#ACT
$ K" m$ D/ m+ J5 L. jDIV N99 200000
- W: W! `3 V7 |' z7 d2 X0 S% eMUL N99 200000


! k0 ^/ n8 j" `: f5 t#OR
7 Q% c6 h) x# X" y) p3 RLARGE N99 100000000
SMALL N99 200000
#ACT
4 m6 z2 u$ @% L8 RMOV N99
: e8 l8 R) Q$ r' d5 j6 Pmessagebox \【错误提示】:\\\　　　　　　请输入50000-100000000之间的数值，当前元宝为：<$GameGold>元
$ g; g' W; V" ~break

* S- d# `6 D7 M1 z, z. ]) z
#IF
: i! W' @3 K8 V0 g% lCheckGameGold < <$STR(N99)>
#ACT
MESSAGEBOX \【错误提示】:\\你的元宝不足<$STR(N99)>,不能兑换这么多充值\\当前元宝为：<$GameGold>元
1 n# T( e  ?- L, G$ Xbreak

+ E' |( q) _% Q. a
#Elseact
GameGold - <$STR(N99)>
MOV N$灵符数量 <$STR(N99)>
DIV N$灵符数量 200000
MUL N$灵符数量 1000
GameDiamond + <$str(N$灵符数量)>
, C1 I& v! b1 A0 N; K7 hGoto @Main
. H/ H) [& }( T6 u: MSENDMSG 1 玩家『<$USERNAME>』成功将『<$STR(N99)>』元宝兑换了『<$str(N$灵符数量)>』缘梦币！
Break

+ X( X! ?4 D8 j- L9 s1 `