传3男女衣服互换脚本(保留原有属性)
[@衣服互换]{
#IF
#SAY
我的技术能让你的衣服{FCOLOR/14}保留所有的附加属性{FCOLOR/12},
却能让男的衣服换成女的衣服,或者把女的衣服换成男的衣服。
请输入你这个账号里的需要{FCOLOR/14}男女衣服互换{FCOLOR/12}的人物名字!
注意,要男女衣服互换的{FCOLOR/10}衣服{FCOLOR/12}一定要放在人物的{FCOLOR/14}包里{FCOLOR/12}!
{FCOLOR/1}而且包里不能同时有两件相同名称的衣服,不然会失败!{FCOLOR/12}\
[@@衣服互换名字]
#ACT
mov A0 %INPUTSTR
#IF
equal A0 ""
#SAY
_{FCOLOR/10}名字不可以为空!{FCOLOR/12}\
_
#ELSEACT
goto @衣服互换可以
[@衣服互换可以]
#IF
equal A0 %USERNAME
#SAY
_{FCOLOR/1}我不能给当前人物换衣服!{FCOLOR/12}
_请用这个帐号的其他人物来进行操作!
#ACT
break
#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %A0
ReadValueSql"TBL_CHARACTER" %A9 "FLD_CHARACTER,FLD_USERID"[@衣服互换帐号]
[@衣服互换帐号()]
#ACT
MovA1%ARG(1)
MovA2%ARG(2)
#IF
!EqualA2%USERID
#SAY
{FCOLOR/1}你确定和你是在一同一个帐号里?!\
#ACT
break
;;----开始-----------------------------------------
#IF
#SAY
{FCOLOR/14}价格:{FCOLOR/12}
{FCOLOR/10}男女衣服互换{FCOLOR/12}需要 200积分\
请选择你要换的衣服类型:
\
\
\
\
\
[@要衣服互换()]
#ACT
MOV D5 %ARG(1)
MOV D6 %ARG(2)
MOV A5 %ARG(3)
FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s' AND FLD_INDEX='%s'" %A0 77 %D5
ReadValueSql "TBL_ITEM" %A9 "FLD_INDEX,FLD_CHARACTER" [@衣服互换值]
[@衣服互换值()]
#IF
#ACT
MOV D3 %ARG(1)
MOV A3 %ARG(2)
#IF
EQUAL A3 ""
#SAY
{FCOLOR/14}{FCOLOR/12}必须放在{FCOLOR/10}{FCOLOR/12}的{FCOLOR/10}包里{FCOLOR/12}!\
#ACT
Break
#IF
!EQUAL D3 %D5
#SAY
{FCOLOR/10}{FCOLOR/12}包里放的不是{FCOLOR/10}{FCOLOR/12}哦!\
#ACT
Break
#IF
!EQUAL A3 ""
EQUAL D3 %D5
#ACT
FormatStr "FLD_CHARACTER='%s'" %A0
ReadValueSql"TBL_QUEST"%A9"FLD_CHARACTER,FLD_JIFEN" [@衣服互换积分]
movS13
[@衣服互换积分()]
#ACT
MovA4%ARG(1)
MovD2%ARG(2)
#IF
Esmall D2200
#SAY
需要{FCOLOR/1}200{FCOLOR/12}点积分,你没满足条件!\
#ACT
Break
#IF
equalS13
#ACT
FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s' AND FLD_INDEX='%s'" %A0 77 %D5
MovA8%A9
FormatStr "FLD_INDEX='%s'" %D6
UpDateValueSql "TBL_ITEM" %A8 %A9
FormatStr "FLD_CHARACTER='%s'" %A0
MovA8%A9
DecD2200
FormatStr "FLD_JIFEN='%s'" %D2
UpDateValueSql "TBL_QUEST" %A8 %A9
movS10
Break
#SAY
_人物 {FCOLOR/14}{FCOLOR/12}的{FCOLOR/10}{FCOLOR/12}已经成功转换,属性不变!
_您花费{FCOLOR/1}200{FCOLOR/12}点积分,剩余{FCOLOR/10}{FCOLOR/12}点积分
_怎么样,我的技术还不错吧~欢迎下次光临\
_
}
真是难得给力的帖子啊。 强烈支持楼主ing…… 看到这帖子真是高兴! 淡定,淡定,淡定…… 感恩无私的分享与奉献 :) 我只是路过打酱油的。 太生气了,无法HOLD啦 >_<...... 感恩无私的分享与奉献 :) 感恩无私的分享与奉献 :)
页:
[1]
2