[@衣服互换]
{
#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
Mov A1 %ARG(1)
Mov A2 %ARG(2)
#IF
!Equal A2 %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" [@衣服互换积分]
mov S1 3
[@衣服互换积分()]
#ACT
Mov A4 %ARG(1)
Mov D2 %ARG(2)
#IF
Esmall D2 200
#SAY
需要{FCOLOR/1}200{FCOLOR/12}点积分,你没满足条件!\
#ACT
Break
#IF
equal S1 3
#ACT
FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s' AND FLD_INDEX='%s'" %A0 77 %D5
Mov A8 %A9
FormatStr "FLD_INDEX='%s'" %D6
UpDateValueSql "TBL_ITEM" %A8 %A9
FormatStr "FLD_CHARACTER='%s'" %A0
Mov A8 %A9
Dec D2 200
FormatStr "FLD_JIFEN='%s'" %D2
UpDateValueSql "TBL_QUEST" %A8 %A9
mov S1 0
Break
#SAY
_人物 {FCOLOR/14}{FCOLOR/12}的{FCOLOR/10}{FCOLOR/12}已经成功转换,属性不变!
_您花费{FCOLOR/1}200{FCOLOR/12}点积分,剩余{FCOLOR/10}{FCOLOR/12}点积分
_怎么样,我的技术还不错吧~欢迎下次光临\
_
}
|
|