浪漫爱情树爱情表白全脚本

传奇一条龙 · 发表于 2014-7-22 14:31:00

[@Main]
╔═══════════════════════════╗\
║             请选择你所需要的爱情表白             ║\
╚═══════════════════════════╝\
╔═══════════════════════════╗\
║<发布屏幕中央爱情表白(持续时间10秒)/@TOPGO>       <需1888元宝/FCOLOR=253>  ║\
║<发布屏幕中央爱情表白(持续时间20秒)/@ZHYGO>       <需3888元宝/FCOLOR=253>  ║\
║<发布屏幕中央爱情表白(持续时间30秒)/@PUTGO>       <需8888元宝/FCOLOR=253>  ║\
╚═══════════════════════════╝\
[@TOPGO]
<尊敬的玩家：/FCOLOR=3> <$USERNAME> 你好，\
欢迎光临<$SERVERNAME>爱情表白中心,您选择的是\
发布屏幕爱情表白(10秒),本项服务使用一次需要收费\
18888元宝,在使用之前请核对您的帐户中元宝数量是否\
满足本次消费!谢谢!\
<请输入您需要表白的爱情内容/@@InPutString90>\
<返回/@CALLF>

[@InPutString90]
#IF
EQUAL S90
#ACT
MESSAGEBOX [错误]:输入内容为空,请重新输入!
GOTO @TOPG
BREAK
#ELSESAY
您输入的表白内容为\
<$STR(S90)>;\ \
核对内容无误后请点击\
<确定表白/@YESTOPG>爱情表白\

[@YESTOPG]
#IF
CHECKGAMEGOLD > 18887
#ACT
GAMEGOLD - 18888
SendCenterMsg  255 252 [爱情]:<$USERNAME>说:<$STR(S90)> 1 10 1
MESSAGEBOX 您的爱情表白已经成功发布!
GOTO @CALLF
BREAK
#ELSEACT
MESSAGEBOX [失败]:您帐户的元宝数量不足,无法完成本次爱情表白!
GOTO @CALLF

[@ZHYGO]
<尊敬的玩家：/FCOLOR=3> <$USERNAME> 你好，\
欢迎光临<$SERVERNAME>爱情表白中心,您选择的是\
发布屏幕中央爱情表白(20秒),本项服务使用一次需要收费\
38888元宝,在使用之前请核对您的帐户中元宝数量是否\
满足本次消费!谢谢!\
<请输入您需要表白的爱情内容/@@InPutString91>\
<返回/@CALLF>

[@InPutString91]
#IF
EQUAL S91
#ACT
MESSAGEBOX [错误]:输入内容为空,请重新输入!
GOTO @ZHYGO
BREAK
#ELSESAY
您输入的表白内容为\
<$STR(S91)>;\ \
核对内容无误后请点击\
<确定发布/@YESZHYGO>爱情表白\

[@YESZHYGO]
#IF
CHECKGAMEGOLD > 38887
#ACT
GAMEGOLD - 38888
SendCenterMsg 255 252 [爱情]:<$USERNAME>说:<$STR(S90)> 1 20 1
MESSAGEBOX 您的爱情表白已经成功发布!
GOTO @CALLF
BREAK
#ELSEACT
MESSAGEBOX [失败]:您帐户的元宝数量不足,无法完成本次爱情表白!
GOTO @CALLF

[@PUTGO]
<尊敬的玩家：/FCOLOR=3> <$USERNAME> 你好，\
欢迎光临<$SERVERNAME>爱情表白中心,您选择的是\
发布屏幕中央爱情表白(30秒),本项服务使用一次需要收费\
58888元宝,在使用之前请核对您的帐户中元宝数量是否\
满足本次消费!谢谢!\
<请输入您需要表白的爱情内容/@@InPutString92>\
<返回/@CALLF>

[@InPutString92]
#IF
EQUAL S92
#ACT
MESSAGEBOX [错误]:输入内容为空,请重新输入!
GOTO @PUTGO
BREAK
#ELSESAY
您输入的表白内容为\
<$STR(S92)>;\ \
核对内容无误后请点击\
<确定发布/@YESPUTGO>爱情表白\

[@YESPUTGO]
#IF
CHECKGAMEGOLD > 58887
#ACT
GAMEGOLD - 58888
SendCenterMsg 255 252 [爱情]:<$USERNAME>说:<$STR(S90)> 1 30 1
MESSAGEBOX 您的爱情表白已经成功发布!
GOTO @CALLF
BREAK
#ELSEACT
MESSAGEBOX [失败]:您帐户的元宝数量不足,无法完成本次爱情表白!
GOTO @CALLF