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

* V1 X* ]1 u. K% K* ?1 a% m

, ^2 r; K) Z  V+ H- S
1 X/ r- Y3 L3 i( I) w' J4 T[@Main]
#IF
#Act
$ o9 `$ g4 z% s6 @; FOPENMERCHANTBIGDLG 33 60 1 4 1 0 1 418 15
MOV S1 <$YEAR>-<$MONTH>-<$DAY>　<$HOUR>:<$MINUTE>:<$SECOND>分
( [' W$ ?. s, L: `* ]. o1 }MOV S2 <$SERVERNAME>
2 N( e! ~( b/ d  o( Q: Z: Y6 s! h3 S#SAY
- E0 y. X/ u* r2 E# A1 Q- _\ \ \ \ \
<>               {[<$STR(S1)>]/SCOLOR=249}　　 {[<$STR(S2)>]/SCOLOR=251}\
+ P9 e1 l6 h4 ~1 Y1 b<Img:363:1:0:4>\
<Img:363:1:0:100>\
& `1 o5 S7 `5 o# ?  j6 u% I<> {[<$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>\　\
<>     <点击输入(RMB)兑换(充值数)|249#1:Rmb = 1充值点1000修罗币/@@InPutinteger91(当前[人民币RMB]：<$GamePoint>　请输入兑换充值的额度！)>       <点击输入(元宝)兑换(缘梦币)|249#20W元宝 = 1000修罗币/@@InPutinteger99(当前[元宝]：<$Gamegold>　请输入兑换充值的额度！)>\　\
. u% R5 @- B5 ~; @- q8 z

<>   　<温馨提示：如果你充值错了,可以在这里兑换，和[官方充值]一样！/FCOLOR=253>\
<>     <温馨提示：元宝只可兑换缘梦币，缘梦币不可兑换元宝，散人更好发展！/FCOLOR=254>\


; G6 q: ^3 d4 j% B0 _8 G0 ~[@InPutinteger91]
' A& j. j! M( F0 M#IF
2 g7 q( r& \) ]! QCheckContainsText <$SERVERNAME> 测试
#ACT
& ~7 i& ]- e3 v+ \messagebox 测试区禁止使用！！！
2 i1 u# v! z$ i( c" x, K& U5 QBREAK
& Y! w2 Z' D8 z% p5 }" @/ k

5 p! j! O- Q  V9 p: _5 O#OR
$ |. N& d1 \. F' `3 ~: l7 mLARGE N91 10000
1 a4 c9 ?# i: OSMALL N91 1
' A' P( X! B( g( P#ACT
: }3 P7 N5 p8 X# AMOV N91
messagebox \【错误提示】:\\\　　　　　　请输入1-10000之间的数值，当前RMB点为：<$GamePoint>元
0 U: D# n$ F6 I8 Dbreak

  B" q5 F  a) q6 M8 L: {
#IF
CheckGamePoint < <$STR(N91)>
#ACT
8 \# }5 p: y) y* U! v8 o" }1 rMESSAGEBOX \【错误提示】:\\你的人民币不足<$STR(N91)>元,不能兑换这么多充值\\当前RMB点为：<$GamePoint>元
break
$ B4 d* J4 O+ i9 [4 s( d#Elseact
Mov N$扣除人民币数量 0
. ?% `" w5 H+ K% R1 i" q' M" {' rMov N$给于火龙币数量 0
$ ]; B! H& h& u4 t6 ]1 |Mov N$给于充值点数量 0
Mov N$扣除人民币数量 <$STR(N91)>
Mov N$给于火龙币数量 <$STR(N91)>
. e  g8 F6 S, f% T( N( U: pMov N$给于充值点数量 <$STR(N91)>
Mul N$扣除人民币数量 1
Mul N$给于火龙币数量 1000
Mul N$给于充值点数量 1
GamePoint - <$STR(N$扣除人民币数量)>
. N" S5 `1 y. t9 BGameDiamond + <$STR(N$给于火龙币数量)>
GameGird + <$STR(N$给于充值点数量)>
Goto @Main
SENDMSG 1 玩家『<$USERNAME>』成功将『<$STR(N$扣除人民币数量)>』人民币兑换了『<$STR(N$给于火龙币数量)>』缘梦币！
6 U% ]1 _, L0 j1 G8 O& K6 kBreak


[@InPutinteger99]
#if
7 h8 P/ n: N3 s! tCHECKtextlist ..\QuestDiary\测试奖励\服务器状态控制.txt 测试
! v& d( b  ^3 b5 m( ^+ F#act
3 e2 b6 |  S  c; [) ^8 C# vMessageBox 测试区禁止使用！！
break
2 w, i) G9 @  {9 r8 }0 w5 F( o% T

#IF
" d8 s6 k3 c( C#ACT
+ t5 o- d1 A" O# {* |DIV N99 200000
4 A5 I* E8 \- TMUL N99 200000

/ `8 p( @5 L/ t! B# o
#OR
1 R' w- p7 @$ FLARGE N99 100000000
2 x1 H9 L+ w5 ]1 [! YSMALL N99 200000
#ACT
MOV N99
/ Q" L; B* r( h0 i5 Cmessagebox \【错误提示】:\\\　　　　　　请输入50000-100000000之间的数值，当前元宝为：<$GameGold>元
break
: z5 T0 e( Q4 @$ B: w# `
% O' o6 s: u! Z( h5 z& |0 t
#IF
  K" g5 w! O7 T% T) XCheckGameGold < <$STR(N99)>
( n9 f  \( c/ n6 O' F, ]#ACT
MESSAGEBOX \【错误提示】:\\你的元宝不足<$STR(N99)>,不能兑换这么多充值\\当前元宝为：<$GameGold>元
break

0 ^  D8 }# s( O5 g0 ?
% {4 o* u# l  |#Elseact
GameGold - <$STR(N99)>
MOV N$灵符数量 <$STR(N99)>
DIV N$灵符数量 200000
. `% G/ V6 p# Y) F# e+ IMUL N$灵符数量 1000
+ o' Z1 ~8 ~4 s4 m8 e8 T2 j; VGameDiamond + <$str(N$灵符数量)>
* {, h: f* h. W8 }; y4 L$ GGoto @Main
8 z) @* B3 U7 w7 d( jSENDMSG 1 玩家『<$USERNAME>』成功将『<$STR(N99)>』元宝兑换了『<$str(N$灵符数量)>』缘梦币！
. P% o& |# L) x- \* C$ ZBreak

- }* g2 Z3 Z" M