wuduz游戏站

 找回密码
 注册
搜索
无度传奇145z游戏站745v奇迹网
查看: 1363|回复: 0
打印 上一主题 下一主题

[技术教程] 传三男女衣服互换脚本(保留原有属性)

跳转到指定楼层
楼主
发表于 2022-10-14 17:31:54 |只看该作者 |倒序浏览
[@衣服互换]
{
#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}点积分
_怎么样,我的技术还不错吧~欢迎下次光临\
_
}

使用道具 举报

手机版|sitemap|txt|wuduz游戏站

GMT+8, 2026-6-10 13:51

回顶部