找回密码
 立即注册

[其他] 传3男女衣服互换脚本(保留原有属性)

[复制链接]
goodscx 发表于 2022-11-5 03:58:37 | 显示全部楼层 |阅读模式
[@衣服互换]
{
#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}点积分
_怎么样,我的技术还不错吧~欢迎下次光临\
_
}

yfong 发表于 2022-11-5 06:15:27 | 显示全部楼层
真是难得给力的帖子啊。
回复

使用道具 举报

weixiou588 发表于 2022-11-6 02:07:03 | 显示全部楼层
强烈支持楼主ing……
回复

使用道具 举报

zghsunsways 发表于 2022-11-10 09:18:47 | 显示全部楼层
看到这帖子真是高兴!
回复

使用道具 举报

hepalwinter 发表于 2022-11-11 13:01:56 | 显示全部楼层
淡定,淡定,淡定……
回复

使用道具 举报

?_Μaggie 发表于 2022-11-12 15:08:24 | 显示全部楼层
感恩无私的分享与奉献
回复

使用道具 举报

letp520 发表于 2022-11-12 18:03:05 | 显示全部楼层
我只是路过打酱油的。
回复

使用道具 举报

xiaozhen001 发表于 2022-11-12 19:44:39 | 显示全部楼层
太生气了,无法HOLD啦 >_<......
回复

使用道具 举报

chen1381861 发表于 2022-11-13 17:34:27 | 显示全部楼层
感恩无私的分享与奉献
回复

使用道具 举报

ly54476903 发表于 2022-11-15 20:40:37 | 显示全部楼层
感恩无私的分享与奉献
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|游戏淘宝湾

GMT+8, 2024-11-23 16:23 , Processed in 0.070355 second(s), 53 queries .

Powered by Discuz! X3.5

Copyright © 2001-2024, Oddpp Cloud.

快速回复 返回顶部 返回列表