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

8 W) L( X7 A5 d1 G* ~) n" g
1 s  s) @* [; [6 J" |


, h; m7 `; l: A2 S/ w; u) m; Z[@Main]
9 g5 q1 o+ ]+ f9 H4 i& @) r#IF
' p3 [; R5 }7 b; [#Act
4 q- |% S2 q! \) \% QOPENMERCHANTBIGDLG 33 60 1 4 1 0 1 418 15
MOV S1 <$YEAR>-<$MONTH>-<$DAY>　<$HOUR>:<$MINUTE>:<$SECOND>分
9 n1 t1 Q" y0 RMOV S2 <$SERVERNAME>
# Z3 P% v: Y" P% \3 g#SAY
\ \ \ \ \
<>               {[<$STR(S1)>]/SCOLOR=249}　　 {[<$STR(S2)>]/SCOLOR=251}\
8 a; m) S. E$ e( N, p<Img:363:1:0:4>\
" W( E6 H+ v3 S3 f* a<Img:363:1:0:100>\
<> {[<$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>\　\
  g. H/ n$ k( E  b2 l2 {<>     <点击输入(RMB)兑换(充值数)|249#1:Rmb = 1充值点1000修罗币/@@InPutinteger91(当前[人民币RMB]：<$GamePoint>　请输入兑换充值的额度！)>       <点击输入(元宝)兑换(缘梦币)|249#20W元宝 = 1000修罗币/@@InPutinteger99(当前[元宝]：<$Gamegold>　请输入兑换充值的额度！)>\　\
. Q2 W# M% |; h
3 u7 L8 p7 ?% Q. b- F3 O
<>   　<温馨提示：如果你充值错了,可以在这里兑换，和[官方充值]一样！/FCOLOR=253>\
. e. b0 w1 M! b  E  ]<>     <温馨提示：元宝只可兑换缘梦币，缘梦币不可兑换元宝，散人更好发展！/FCOLOR=254>\
. D! p/ P8 Z7 |, w" V0 x

2 \7 b0 J7 n8 ^9 M" Q[@InPutinteger91]
! e1 ?  T' e# A- `% X/ q/ `#IF
CheckContainsText <$SERVERNAME> 测试
/ M  @7 Y' R# ?; x#ACT
messagebox 测试区禁止使用！！！
6 l5 b4 G) m" ~# `5 B5 GBREAK

5 O/ S; r5 }3 v5 c
#OR
. l& _2 L6 n  C- `, m3 [9 y8 ~LARGE N91 10000
SMALL N91 1
, b' |& Y" c; \! W#ACT
MOV N91
messagebox \【错误提示】:\\\　　　　　　请输入1-10000之间的数值，当前RMB点为：<$GamePoint>元
( R; W# e) W% \break

% C7 U# N2 r7 P. Q# c/ l
#IF
7 n* m1 Z! w8 P6 R  T: g. f& uCheckGamePoint < <$STR(N91)>
#ACT
MESSAGEBOX \【错误提示】:\\你的人民币不足<$STR(N91)>元,不能兑换这么多充值\\当前RMB点为：<$GamePoint>元
! x% U( z% a  Ybreak
  P, C. B& p: G#Elseact
Mov N$扣除人民币数量 0
* A5 t; |! d  Z/ y8 kMov N$给于火龙币数量 0
. H! ?' A3 K5 t! g# LMov N$给于充值点数量 0
  j+ o- @1 D. e$ e2 E8 NMov N$扣除人民币数量 <$STR(N91)>
% {9 C! x5 h2 V$ c* b9 |3 Y( \Mov N$给于火龙币数量 <$STR(N91)>
Mov N$给于充值点数量 <$STR(N91)>
Mul N$扣除人民币数量 1
Mul N$给于火龙币数量 1000
4 Z3 @5 Z& `# }0 WMul N$给于充值点数量 1
3 B% v5 [) C) k+ l" MGamePoint - <$STR(N$扣除人民币数量)>
! t/ F) E4 H7 B0 qGameDiamond + <$STR(N$给于火龙币数量)>
3 F- y. [! `3 W1 Q" G$ gGameGird + <$STR(N$给于充值点数量)>
Goto @Main
SENDMSG 1 玩家『<$USERNAME>』成功将『<$STR(N$扣除人民币数量)>』人民币兑换了『<$STR(N$给于火龙币数量)>』缘梦币！
. K% ^0 E/ r: f3 n0 rBreak

9 I5 S: N  S  M  Z; j
[@InPutinteger99]
#if
CHECKtextlist ..\QuestDiary\测试奖励\服务器状态控制.txt 测试
. S- M# Z' F5 S9 C: Q#act
MessageBox 测试区禁止使用！！
break


. |' x0 u8 S3 U$ p# r* M#IF
#ACT
DIV N99 200000
" F0 X- C/ E6 [1 t9 wMUL N99 200000


9 H& _5 I4 b8 v1 h( u% H& L% Y#OR
LARGE N99 100000000
4 [' ^. U1 S/ }1 eSMALL N99 200000
% w: \# K* c3 C7 @" Q#ACT
6 q& T1 x2 L2 n' G# d' y: pMOV N99
7 m- [, Y& R9 w, J1 Y) Zmessagebox \【错误提示】:\\\　　　　　　请输入50000-100000000之间的数值，当前元宝为：<$GameGold>元
4 c; g# t* [3 Dbreak
% Y0 ]1 ?8 V7 v/ V
' y7 M* B2 y( ~( g
+ u# l2 ~# ^9 t9 R  g. Y6 y/ s#IF
" `3 K/ W9 p/ k: t$ ?CheckGameGold < <$STR(N99)>
" B" V, k+ E  N, x#ACT
' {1 ~5 U! [3 t6 [2 y1 l9 h( r8 nMESSAGEBOX \【错误提示】:\\你的元宝不足<$STR(N99)>,不能兑换这么多充值\\当前元宝为：<$GameGold>元
& j+ X7 c* R0 s2 W, W. s3 r5 lbreak
) {, ^2 c, T; N+ c! h  S1 G
- t8 u% r5 U% U" q
3 Z# S5 j- f0 F#Elseact
GameGold - <$STR(N99)>
0 b2 G4 H( m; t- J7 y6 }* xMOV N$灵符数量 <$STR(N99)>
DIV N$灵符数量 200000
MUL N$灵符数量 1000
  n: s- ]. z- EGameDiamond + <$str(N$灵符数量)>
Goto @Main
7 I$ M0 w% G% ^8 Q1 t4 KSENDMSG 1 玩家『<$USERNAME>』成功将『<$STR(N99)>』元宝兑换了『<$str(N$灵符数量)>』缘梦币！
Break