|
|
- (@@InPutString @@inputInteger)
- [@main]
- #if
- #act
- mov s5
- mov n5 0
- mov s$赠送名字
- mov s$赠送数量
- mov n$费用 0
- mov s$魅力第一 <$STR(A80)>
- mov s$魅力第二 <$STR(A81)>
- mov s$魅力第三 <$STR(A82)>
- mov s$魅力值一 <$STR(G80)>朵玫瑰
- mov s$魅力值二 <$STR(G81)>朵玫瑰
- mov s$魅力值三 <$STR(G82)>朵玫瑰
- mov s$魅力自己 <$STR(U20)>朵玫瑰
- 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
- SetStringBlank <$STR(s$魅力自己)> 14 1
- #if
- #say
- <玫瑰英雄/FCOLOR=254> <Hot~/FCOLOR=249> <谁是英雄？谁是狗熊？比比就知道！/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\
- <--------------------------------------------------------------/AUTOCOLOR=90>\
- <魅力排行No1：/FCOLOR=155>{<$STR(s$魅力第一)>/FCOLOR=251}<当前魅力值：/FCOLOR=155>{<$STR(s$魅力值一)>/FCOLOR=31}<属性5-5/FCOLOR=155>\
- <魅力排行No2：/FCOLOR=145>{<$STR(s$魅力第二)>/FCOLOR=251}<当前魅力值：/FCOLOR=145>{<$STR(s$魅力值二)>/FCOLOR=31}<属性3-3/FCOLOR=145>\
- <魅力排行No3：/FCOLOR=147>{<$STR(s$魅力第三)>/FCOLOR=251}<当前魅力值：/FCOLOR=147>{<$STR(s$魅力值三)>/FCOLOR=31}<属性1-1/FCOLOR=147>\
- <--------------------------------------------------------------/AUTOCOLOR=90>\
- <每朵鲜花需消耗/FCOLOR=242><100元宝/FCOLOR=250><,接收人可得/FCOLOR=242><25元宝/FCOLOR=250><,更有几率抽取到/FCOLOR=242><幸运鲜花/FCOLOR=250>\
- <可获取最高/FCOLOR=242><100倍/FCOLOR=250><的本金反还的奖励哦！/FCOLOR=242> \
- <赠送鲜花√/@赠送> <你当前帐户的魅力值：/FCOLOR=154>{<$STR(s$魅力自己)>/FCOLOR=31}<关闭对话×/@exit>\
- <蓝色妖姬> : 属性：攻击 5 - 27 魔法 8 - 16 准确+5 200 血<3999玫瑰兑换/@duihuan2>\ \
- [@duihuan2]
- #IF
- Large s$魅力自己 > 499
- #ACT
- MOV u20 - 500
- GIVE 回城卷 1
- SENDMSG 0 恭喜高富帅:【%s】成功兑换【蓝色妖姬】一把，真是有情人终成眷属!
- #ELSEACT
- MESSAGEBOX 穷鬼，玫瑰不足！
- [@赠送]
- #if
- #act
- SetStringBlank <$STR(s$赠送名字)> 17 1
- SetStringBlank <$STR(s$赠送数量)> 17 1
- #say
- <鲜花大使/SCOLOR=154><Img:1402:10:-95:-6> \
- <余心芳/SCOLOR=19> <尊敬的游戏玩家,您好/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} \
- <--------------------------------------------------------------/AUTOCOLOR=90>\
- <提示：赠送鲜花后有几率抽到/AUTOCOLOR=242><幸运鲜花/AUTOCOLOR=154><,最高有/AUTOCOLOR=242><100倍/AUTOCOLOR=250><本金反还奖励噢！/AUTOCOLOR=242>\
- <√确定赠送/@确定赠送> <√返回首页/@main> <关闭对话×/@exit>\
- [@InPutString5]
- #if
- EQUAL S5
- #act
- MOV S5
- MESSAGEBOX \提示：接受鲜花的人物名不能为空！
- BREAK
- #if
- #act
- mov s$赠送名字 <$STR(S5)>
- goto @赠送
- [@InPutInteger5]
- #IF
- SMALL N5 1
- #ACT
- MOV N5 0
- MESSAGEBOX \提示：请输入0以上的数字
- BREAK
- #IF
- LARGE N5 10000
- #ACT
- MOV N5 0
- MESSAGEBOX \提示：请输入10000以下的数字
- BREAK
- #if
- #act
- mov s$赠送数量 <$STR(n5)>朵玫瑰
- mul n$费用 N5 100
- 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
- NOT CHECKGAMEGOLD < <$STR(n$费用)>
- #ELSEACT
- MESSAGEBOX \提示：你没有<$STR(n$费用)>元宝来支付本次赠送费用
- #if
- s5.CheckOnline
- NOT CHECKGAMEGOLD < <$STR(n$费用)>
- #act
- GAMEGOLD - <$STR(n$费用)>
- s5.mov n$结算 0
- mov I5 <$STR(n5)>
- mov A85 <$USERNAME>
- s5.MUL n$结算 <$STR(I5)> 25
- s5.GAMEGOLD + <$STR(n$结算)>
- s5.inc U20 <$STR(I5)>
- 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.SENDMSG 6 提示：额外增加<$STR(n$结算)>个元宝!
- s5.SENDMOVEMSG 0 251 0 250 2 提示：[<$USERNAME>]获得了[<$STR(A85)>]赠送的[<$STR(I5)>朵]鲜花，魅力值加[<$STR(I5)>点]元宝增加[<$STR(n$结算)>]个！
- HCALL <$STR(s5)> @刷新鲜花榜
- goto @幸运抽奖
- BREAK
- [@幸运抽奖]
- #if
- random 8
- #act
- GetRandomText ..\QuestDiary\数据文件\鲜花赠送\鲜花返还倍数一.txt <$STR(S$取得倍数)>
- mul n$幸运得奖 <$STR(n$费用)> <$STR(S$取得倍数)>
- goto @幸运得奖公告1
- GAMEGOLD + <$STR(n$幸运得奖)>
- BREAK
- #if
- random 1
- #act
- GetRandomText ..\QuestDiary\数据文件\鲜花赠送\鲜花返还倍数二.txt <$STR(S$取得倍数)>
- mul n$幸运得奖 <$STR(n$费用)> <$STR(S$取得倍数)>
- DIV n$幸运得奖 10
- GAMEGOLD + <$STR(n$幸运得奖)>
- goto @幸运得奖公告2
- BREAK
- [@幸运得奖公告1]
- #if
- small n$幸运得奖 1
- #act
- SENDMSG 0 提示：[<$USERNAME>]花费[<$STR(n$费用)>]元宝赠送了[<$STR(n5)>朵]玫瑰给[<$STR(s5)>]，可惜没有获得本金返还倍数，下次再接再励吧！
- goto @main
- #elseact
- SENDMSG 0 提示：[<$USERNAME>]花费[<$STR(n$费用)>]元宝赠送了[<$STR(n5)>朵]玫瑰给[<$STR(s5)>]，并且获得[<$STR(S$取得倍数)>]倍本金返还，获得元宝[<$STR(n$幸运得奖)>]个！
- goto @main
- BREAK
- [@幸运得奖公告2]
- #if
- small n$幸运得奖 1
- #act
- SENDMSG 0 提示：[<$USERNAME>]花费[<$STR(n$费用)>]元宝赠送了[<$STR(n5)>朵]玫瑰给[<$STR(s5)>]，可惜没有获得本金返还倍数，下次再接再励吧！
- goto @main
- #elseact
- SENDMSG 0 提示：[<$USERNAME>]花费[<$STR(n$费用)>]元宝赠送了[<$STR(n5)>朵]玫瑰给[<$STR(s5)>]，并且获得[0.<$STR(S$取得倍数)>]倍本金返还，获得元宝[<$STR(n$幸运得奖)>]个！
- goto @main
- BREAK
|
|
发表于 2015-6-2 18:17:12
发表于 2020-3-27 07:23:21
