Gom引擎自动输入命令“@鲜花”送给其他玩家鲜花的脚本(完整)实例

GM版本库

第一步：在UserCmds文本里添加：鲜花  6
第二部：建立一个专门送花的NPC，名称自定
NPC:
(@@InPutString @@inputInteger)
[@main]
#if
#act
mov S$魅力第一 <$STR(A80)>
mov S$魅力第二 <$STR(A81)>
mov S$魅力第三 <$STR(A82)>
mov S$魅力值一 <$STR(G80)>朵玫瑰
mov S$魅力值二 <$STR(G81)>朵玫瑰
mov S$魅力值三 <$STR(G82)>朵玫瑰
SetStringBlank <$STR(S$魅力第一)> 15 1
SetStringBlank <$STR(S$魅力第二)> 15 1
SetStringBlank <$STR(S$魅力第三)> 15 1
SetStringBlank <$STR(S$魅力值一)> 13 1
SetStringBlank <$STR(S$魅力值二)> 13 1
SetStringBlank <$STR(S$魅力值三)> 13 1
#IF
#ACT
OPENMERCHANTBIGDLG 9 12 1 0 1 1 1 395 15
#say
<Img:28:9:0:8>　\
　　　　<榜上有名/SCOLOR=154>\
　　　　<玫瑰情人/SCOLOR=19>　　　 <谁于争锋，排行榜上创新高，由你定夺!/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<魅力No.1:/SCOLOR=91> {<$STR(s$魅力第一)>/SCOLOR=251}<玫瑰数量:/SCOLOR=91>{<$STR(s$魅力值一)>/SCOLOR=250}  \
<魅力No.2:/SCOLOR=92> {<$STR(s$魅力第二)>/SCOLOR=251}<玫瑰数量:/SCOLOR=92>{<$STR(s$魅力值二)>/SCOLOR=250}  \
<魅力No.3:/SCOLOR=93> {<$STR(s$魅力第三)>/SCOLOR=251}<玫瑰数量:/SCOLOR=93>{<$STR(s$魅力值三)>/SCOLOR=250}  \
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<1./SCOLOR=91><魅力值第一名可获得全属性/SCOLOR=147><5点/SCOLOR=251>\
<2./SCOLOR=92><魅力值第二名可获得全属性/SCOLOR=145><3点/SCOLOR=251>\
<3./SCOLOR=93><魅力值第三名可获得全属性/SCOLOR=155><2点/SCOLOR=251>\
<4./SCOLOR=93><魅力值大于零可获得全属性/SCOLOR=155><1点/SCOLOR=251>\
<5./SCOLOR=89><每朵鲜花需消耗/SCOLOR=156><100元宝/SCOLOR=251>，<接收人可得到/SCOLOR=156><25元宝/SCOLOR=251>\
<6./SCOLOR=103><魅力值最高的玩家上线全服公告提示/SCOLOR=168>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
　　　　　　　　　　　<鲜花数据合区保存./SCOLOR=70>\ \
<您的魅力值:/SCOLOR=229> {<$STR(U20)>/SCOLOR=251}<朵玫瑰/SCOLOR=229>　　　　  <赠送玫瑰将触发全服全屏滚动/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
　<IMG:130:9:0:-11/@赠送>                             <IMG:61:9:0:-11/@exit>\
[@赠送]
#ACT
MESSAGEBOX 赠送鲜花命令：@鲜花　游戏名字　鲜花数量\　\温馨提示：每朵鲜花需要消耗100元宝，被赠送人可获得25元宝
break

QF：

[@usercmd6]
#if
EQUAL <$PARAM(1)>
EQUAL <$PARAM(2)>
#act
MESSAGEBOX 鲜花至少赠送1朵!
BREAK
#IF
<$PARAM(1)>.checkonline
#ELSEACT
MESSAGEBOX 提示：玩家【<$PARAM(2)>】不在线.
BREAK
#if
EQUAL <$PARAM(2)>
#act
MESSAGEBOX 鲜花至少赠送1朵!
BREAK
#IF
ONLINELONGMIN < 2
#ACT
MESSAGEBOX 提示：当前在线时长未达2分钟,无法使用此功能.
BREAK
#IF
#ACT
MOV S5 <$PARAM(1)>
MUL N$费用 <$PARAM(2)> 100
#if
CHECKGAMEGOLD ? <$STR(N$费用)>
#act
GAMEGOLD - <$STR(N$费用)>
MOV I5 <$PARAM(2)>
MOV A85 <$USERNAME>
SENDMSG 6 你给赠送<$PARAM(1)>赠送了<$PARAM(2)>朵鲜花,你花费了<$STR(N$费用)>元宝
S5.MOV N$结算 0
S5.MUL N$结算 <$STR(I5)> 25
S5.GAMEGOLD +  <$STR(N$结算)>
S5.inc U20 <$STR(I5)>
S5.SENDMSG 6 <$STR(A85)>给你赠送<$STR(I5)>朵鲜花,你获得了<$STR(N$结算)>元宝
HCALL <$STR(S5)> @刷新鲜花榜
#ELSEACT
MESSAGEBOX 提示：赠送<$PARAM(2)>朵鲜花所需<$STR(N$费用)>元宝,请检查你是否有足够的元宝.
BREAK