GOM引擎鲜花赠送脚本，需要200元宝一朵，合区后鲜花数量归零

鲜花赠送脚本

1、新建一个鲜花捐献-3.txt，加入以下脚本：

[@main]
#if
#act
mov s5
mov n5 0
mov s$赠送名字
mov s$赠送数量
mov n$费用 200
mov s$魅力第一 <$STR(A80)>
mov s$魅力第二 <$STR(A81)>
mov s$魅力第三 <$STR(A82)>
mov s$魅力值一 <$STR(G80)>朵玫瑰
mov s$魅力值二 <$STR(G81)>朵玫瑰
mov s$魅力值三 <$STR(G82)>朵玫瑰
#if
#say
<━━━━━━━━━━━━━━━━━━━━━━━━━━━━/SCOLOR=155>\
<鲜花说明：/SCOLOR=95><玩家.赠送鲜花需要200元宝一朵/SCOLOR=147>\
<玩家注意：/SCOLOR=95><请在合区之前把你手上的鲜花用完.合区后鲜花数量归零/SCOLOR=147>\
<注意事项：/SCOLOR=95><你只要有520朵鲜花.就可以兑换（终极鲜花）一个/SCOLOR=147>\
<你目前有: /SCOLOR=224> <$HUMAN(XH)> <朵鲜花/SCOLOR=224> \ \
<赠送鲜花√/@赠送>     <用520朵鲜花兑换/@兑换2>     <兑换神秘装备/@1314>\
<━━━━━━━━━━━━━━━━━━━━━━━━━━━━/SCOLOR=155>\

[@1314]
#if
CHECKLEVELEX > 54
#act
goto @111222
#elsesay
\  \  \你的级别不够55级，所以不可以查看！！快抓紧时间冲级吧！！
[@111222]
<------------------------------------------------------------/SCOLOR=13>\
<√究极玫瑰:/AUTOCOLOR=250> <2个终极鲜花+2W泡点值.可兑换.究极玫瑰./AUTOCOLOR=151> \
<√究极玫瑰:/AUTOCOLOR=250> <佩带.究极玫瑰.可触发.防麻痹属性./AUTOCOLOR=242>  \
<√神龙护体:/AUTOCOLOR=250> <需要开天1个 镇天1个 玄天1个+6W泡点值/AUTOCOLOR=151>  \
<√神龙护体:/AUTOCOLOR=250> <佩带.神龙护体.可触发.双防15-15/AUTOCOLOR=242> \ \
<兑换究极玫瑰/@兑换3>     <兑换神龙护体/@兑换4>\
<------------------------------------------------------------/SCOLOR=13>\


[@赠送]
#if
#act
SetStringBlank <$STR(s$赠送名字)> 17 1
SetStringBlank <$STR(s$赠送数量)> 17 1
#say
<尊敬的游戏玩家,您好/SCOLOR=151> <〖请输入以下收花人信息〗/SCOLOR=87>\
<--------------------------------------------------------------/AUTOCOLOR=91>\
<1、/FCOLOR=70>当前接收鲜花的玩家名字：{<$STR(s$赠送名字)>/FCOLOR=151}     <√输入名字/@@InPutString5>\
<2、/FCOLOR=250>当前赠送对方的鲜花数量：{<$STR(S$赠送数量)>/FCOLOR=253}     <√输入数量/@@InPutInteger5>\
<3、/FCOLOR=254>当前你需要结算的费用为：{<$STR(n$费用)>元宝/FCOLOR=229}  \
<你目前有: /SCOLOR=224> <$HUMAN(XH)> <朵鲜花/SCOLOR=224>\
<--------------------------------------------------------------/AUTOCOLOR=90>\
<√确定赠送/@确定赠送>               <√返回首页/@main>               <关闭对话×/@exit>\

[@InPutString5]
#if
EQUAL S5
#act
MOV S5
MESSAGEBOX \提示：接受鲜花的人物名不能为空！
BREAK

#if
#act
mov s$赠送名字 <$STR(S5)>
goto @赠送

[@InPutInteger5]
#IF
SMALL N5 10
#ACT
MOV N5 0
MESSAGEBOX \提示：请输入10以上的数字
BREAK

#IF
LARGE N5 1000
#ACT
MOV N5 0
MESSAGEBOX \提示：请输入1000以下的数字
BREAK

#if
#act
mov s$赠送数量 <$STR(n5)>朵玫瑰
mul n$费用 N5 200
goto @赠送


[@确定赠送]
#if
EQUAL S5
#act
MESSAGEBOX \提示：你未输入接受鲜花的人物名！
BREAK
#if
SMALL N5 1
#act
MESSAGEBOX \提示：你未输入赠送鲜花的数量！
BREAK

#if
s5.CheckOnline
#elseact
MESSAGEBOX \提示：你输入的赠送玩家不在线！
BREAK
#if
equal s5 <$USERNAME>
#act
MESSAGEBOX \提示：不能给自己赠送鲜花！
BREAK

#if
s5.CheckOnline
CHECKGAMEGOLD > <$STR(n$费用)>
#act
GAMEGOLD - <$STR(n$费用)>
mov I5 <$STR(n5)>
mov A85 <$USERNAME>
s5.CALCVAR HUMAN XH + <$STR(I5)>
s5.SAVEVAR HUMAN XH ..\QuestDiary\数据文件\XH.txt
MESSAGEBOX \提示：成功赠送<$STR(n5)>朵玫瑰给玩家<$STR(s5)>!
s5.SENDMSG 6 提示：<$STR(A85)>赠送给你<$STR(I5)>朵玫瑰花！
s5.SENDMSG 6 提示：<$STR(A85)>赠送给你<$STR(I5)>朵玫瑰花！
s5.SENDMSG 6 提示：<$STR(A85)>赠送给你<$STR(I5)>朵玫瑰花！
s5.SENDMOVEMSG 0 251 0 250 2 提示：[<$USERNAME>]获得了[<$STR(A85)>]赠送的[<$STR(I5)>朵]鲜花！大家鼓掌！！！
BREAK

#ELSEACT
MESSAGEBOX \提示：你没有<$STR(n$费用)>元宝来支付本次赠送费用
BREAK



[@兑换2]
#IF
CHECKVAR HUMAN XH > 519
#ACT
CALCVAR HUMAN XH - 520
SAVEVAR HUMAN XH ..\QuestDiary\数据文件\XH.txt
give 终极鲜花 1
SENDMSG 6  恭喜您成功兑换520朵鲜花，获得终极鲜花一个！！
#ELSEACT
MESSAGEBOX 对不起！你没有520朵鲜花？
BREAK





[@兑换3]
#if
checkitem 终极鲜花 2
CHECKGAMEGIRD > 19999
#ACT
take 终极鲜花 2
give 究极玫瑰 1
GAMEGIRD - 20000
SENDMSG 1 〖提示〗恭喜玩家「{%s|227:0:1}」成功兑换究极玫瑰一个触发隐藏属 性防麻痹！！
SENDMSG 6  恭喜您成功兑换究极玫瑰一个触发隐藏属 性防麻痹！！
#ELSEACT
MESSAGEBOX 哥，你没有20000点泡点值。或者缺少终极鲜花2个

[@兑换4]
#if
checkitem 开天 1
checkitem 镇天 1
checkitem 玄天 1
CHECKGAMEGIRD > 59999
#ACT
take 开天 1
take 镇天 1
take 玄天 1
give 神龙护体 1
GAMEGIRD - 60000
SENDMSG 1 〖提示〗恭喜玩家「{%s|227:0:1}」成功兑换神龙护体一个触发双防20-20！！
SENDMSG 6  恭喜您成功兑换究极玫瑰一个触发隐藏属 性防麻痹！！
#ELSEACT
MESSAGEBOX 哥，你没有60000点泡点值。或者缺少开天1个镇天1个玄天1个