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

7 b) k7 M5 K3 W) Q7 `: B
+ X6 J& B8 V7 Z5 I. ^

7 r) o- r7 s* U& F" \[@Main]
#IF
#Act
OPENMERCHANTBIGDLG 33 60 1 4 1 0 1 418 15
MOV S1 <$YEAR>-<$MONTH>-<$DAY>　<$HOUR>:<$MINUTE>:<$SECOND>分
MOV S2 <$SERVERNAME>
# ^) h# A4 H% f$ F- u#SAY
\ \ \ \ \
<>               {[<$STR(S1)>]/SCOLOR=249}　　 {[<$STR(S2)>]/SCOLOR=251}\
<Img:363:1:0:4>\
<Img:363:1:0:100>\
<> {[<$Username>]/SCOLOR=154}　你好,很高兴为您服务！ <当前人民币为：/FCOLOR=249>{<$GamePoint>/FCOLOR=250} <当前元宝为：/FCOLOR=249>{<$Gamegold>/FCOLOR=250}\　\
1 o- i* o# [' u2 e7 z<>            <人民币(兑换)|255#1:Rmb = 1充值点1000修罗币/FCOLOR=243>　　                <元宝(兑换)|255#20W元宝 = 1000修罗币/FCOLOR=243>\　\
<>     <点击输入(RMB)兑换(充值数)|249#1:Rmb = 1充值点1000修罗币/@@InPutinteger91(当前[人民币RMB]：<$GamePoint>　请输入兑换充值的额度！)>       <点击输入(元宝)兑换(缘梦币)|249#20W元宝 = 1000修罗币/@@InPutinteger99(当前[元宝]：<$Gamegold>　请输入兑换充值的额度！)>\　\

8 a' ?9 x3 R7 |4 o3 [* ~* _1 ^
6 I6 J& J- Q2 U9 m<>   　<温馨提示：如果你充值错了,可以在这里兑换，和[官方充值]一样！/FCOLOR=253>\
<>     <温馨提示：元宝只可兑换缘梦币，缘梦币不可兑换元宝，散人更好发展！/FCOLOR=254>\
$ V# I. I% j* L9 S& A# X6 E3 H
/ q% C$ S' B7 N! S, x; U8 s
' ?* t) t: V, i1 @9 R) y[@InPutinteger91]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 测试区禁止使用！！！
BREAK

; q% j9 T( _& B% N  F7 b
5 `8 ~" T" G- z* O#OR
LARGE N91 10000
( m) z1 d* f5 v* p! r: fSMALL N91 1
#ACT
MOV N91
/ e0 I+ V  e' N+ [% O! c3 e5 Q5 u2 emessagebox \【错误提示】:\\\　　　　　　请输入1-10000之间的数值，当前RMB点为：<$GamePoint>元
break

$ X- N% [/ b  E4 B5 V
+ k* ^6 h0 K+ \$ X# _% W#IF
* \7 w, B0 R  d1 o8 x+ ZCheckGamePoint < <$STR(N91)>
4 h5 ]( P, g. H1 j) ?#ACT
MESSAGEBOX \【错误提示】:\\你的人民币不足<$STR(N91)>元,不能兑换这么多充值\\当前RMB点为：<$GamePoint>元
6 g8 d# n6 t4 M5 r% x! z* lbreak
0 M$ U: `5 ?5 n#Elseact
' K/ c* n4 B4 d" I# }6 eMov N$扣除人民币数量 0
6 E0 [$ t* j- s( h0 f- DMov N$给于火龙币数量 0
Mov N$给于充值点数量 0
Mov N$扣除人民币数量 <$STR(N91)>
* Y& \' |9 L$ `9 Y8 ~Mov N$给于火龙币数量 <$STR(N91)>
Mov N$给于充值点数量 <$STR(N91)>
! N# d5 p  ]. C3 e  O( W1 i) Y4 k1 E& sMul N$扣除人民币数量 1
- {+ n8 {' c6 ?# G" B0 y) ~Mul N$给于火龙币数量 1000
Mul N$给于充值点数量 1
GamePoint - <$STR(N$扣除人民币数量)>
! J8 y( V& J, Q1 v! {  C* y3 gGameDiamond + <$STR(N$给于火龙币数量)>
GameGird + <$STR(N$给于充值点数量)>
Goto @Main
SENDMSG 1 玩家『<$USERNAME>』成功将『<$STR(N$扣除人民币数量)>』人民币兑换了『<$STR(N$给于火龙币数量)>』缘梦币！
) i* M! A; n2 ?+ k' w- T0 lBreak
# i7 i/ m/ ]7 ~8 S

3 v; c& w3 H! w% L! b+ {* ~, n+ L8 u[@InPutinteger99]
#if
CHECKtextlist ..\QuestDiary\测试奖励\服务器状态控制.txt 测试
#act
MessageBox 测试区禁止使用！！
# N! \* }* c4 F1 Fbreak


% s7 B+ G$ Z: W! ~5 C#IF
  T: U5 |5 n: t6 o  {: D6 A7 D#ACT
: i6 w2 @! K; b# v  BDIV N99 200000
MUL N99 200000
9 k/ g/ v7 M" E$ K/ b

#OR
' P( v8 G) N' o, y+ I5 }4 TLARGE N99 100000000
: b2 `9 Z) g  c8 l2 aSMALL N99 200000
) [! F6 v* n* G' H5 m0 k#ACT
MOV N99
8 Q$ P" h" L0 E; n7 N5 h4 `# bmessagebox \【错误提示】:\\\　　　　　　请输入50000-100000000之间的数值，当前元宝为：<$GameGold>元
break
+ s% |6 b/ ^- X4 b0 d7 O

#IF
CheckGameGold < <$STR(N99)>
9 W0 C  `1 A0 ]. ]2 m* j#ACT
MESSAGEBOX \【错误提示】:\\你的元宝不足<$STR(N99)>,不能兑换这么多充值\\当前元宝为：<$GameGold>元
0 H( F+ G. f, s$ n3 G0 b9 I# tbreak


1 r; I& m* |) T8 I$ w#Elseact
2 y* ]4 h+ `5 k& ^) d' |0 YGameGold - <$STR(N99)>
- B4 N$ e' L% B2 OMOV N$灵符数量 <$STR(N99)>
, B) q0 A0 E  g8 P/ \; r' a. j9 hDIV N$灵符数量 200000
MUL N$灵符数量 1000
GameDiamond + <$str(N$灵符数量)>
% C: v8 ~  J+ mGoto @Main
0 g. o4 {6 q; t4 _SENDMSG 1 玩家『<$USERNAME>』成功将『<$STR(N99)>』元宝兑换了『<$str(N$灵符数量)>』缘梦币！
Break