;-----------------------------------------------------------------------------
;登陆脚本执行
;-----------------------------------------------------------------------------
[@示范]
#IF
TRUE
#ACT
ReadCSVInfo <$CONFIG>\fashion.csv
ReadCSVInfo <$CONFIG>\fashion_dazao.csv
ReadCSVInfo <$CONFIG>\fashion_tunshi.csv
;-----------------------------------------------------------------------------
;功能脚本执行
;-----------------------------------------------------------------------------
[@_时装_吞噬属性]
#IF
TRUE
#ACT
;-----------------------------------------------------------------------------
;获取客户端返回增加属性值minvar、maxvar
;先获取fashion_tushi.csv序列，算法为右手时装的：品质+(套装类型*10)
;-----------------------------------------------------------------------------
MOV D$品质 $ITEMINFO[$PARAM(1)].ITEMEXT(338)
MOV D$类型 $ITEMINFO[$PARAM(1)].SHAPE
MOV D$序列 $INC^$MULT.$STR(D$类型).10^$STR(D$品质)
MOV D$行数 $CSVINFO[fashion_tunshi.csv].FIELD(id).VALUE($STR(D$序列))
MOV S$吞噬 $CSVINFO[fashion_tunshi.csv].INDEX($STR(D$行数))
SPLIT $STR(S$吞噬) , S$配置
;SENDMSG 5 <$STR(S$配置_3)>-<$STR(S$配置_4)>
[@_时装_打造装备]
#IF
TRUE
#ACT
;-----------------------------------------------------------------------------
;先获取id所在行数后，再获取指定行数字符串
;-----------------------------------------------------------------------------
MOV D$行数 $CSVINFO[fashion_dazao.csv].FIELD(id).VALUE($PARAM(0))
MOV S$打造 $CSVINFO[fashion_dazao.csv].INDEX($STR(D$行数))
SPLIT $STR(S$打造) , S$配置
#IF
CHECKITEM $STR(S$配置_7) 1
CHECKITEM $STR(S$配置_9) $STR(S$配置_10)
CHECKITEM 丝线 $STR(S$配置_11)
CHECKEX $SPIRITY >= $STR(S$配置_12)
CheckGold $STR(S$配置_13)
#ACT
Take $STR(S$配置_7) 1
Take $STR(S$配置_9) $STR(S$配置_10)
Take 丝线 $STR(S$配置_11)
Take 金币 $STR(S$配置_13)
;-----------------------------------------------------------------------------
;获取Fashion.csv序列算法：taoZhuang*100+quality*10+part
;-----------------------------------------------------------------------------
MOV D$序列 $MULT^$STR(S$配置_1)^100
INC D$序列 $MULT^$DEC.$STR(S$配置_6).1^10
INC D$序列 $STR(S$配置_4)
;-----------------------------------------------------------------------------
;先获取id所在行数后，再获取指定行数字符串
;-----------------------------------------------------------------------------
MOV D$行数 $CSVINFO[fashion.csv].FIELD(id).VALUE($STR(D$序列))
MOV S$时装 $CSVINFO[fashion.csv].INDEX($STR(D$行数))
MOV D$概率 $DEC^100^$STR(S$配置_18)
SPLIT $STR(S$时装) , S$属性
#ELSEACT
MessageBox 材料不足，无法打造时装
Break
#IF
SMALL $RANDOM($STR(D$概率)) $STR(S$配置_18)
#ACT
Give $STR(S$属性_4) 1
;------------------------------自行设置属性Start------------------------------
;------------------------------自行设置属性End--------------------------------
MessageBox 恭喜您成功打造五阶<$STR(S$属性_4)>
Break
#ELSEACT
MOV D$概率 $DEC^100^$STR(S$配置_17)
#IF
SMALL $RANDOM($STR(D$概率)) $STR(S$配置_17)
#ACT
Give $STR(S$属性_4) 1
;------------------------------自行设置属性Start------------------------------
;------------------------------自行设置属性End--------------------------------
MessageBox 恭喜您成功打造四阶<$STR(S$属性_4)>
Break
#ELSEACT
MOV D$概率 $DEC^100^$STR(S$配置_16)
#IF
SMALL $RANDOM($STR(D$概率)) $STR(S$配置_16)
#ACT
Give $STR(S$属性_4) 1
;------------------------------自行设置属性Start------------------------------
;------------------------------自行设置属性End--------------------------------
MessageBox 恭喜您成功打造三阶<$STR(S$属性_4)>
Break
#ELSEACT
MOV D$概率 $DEC^100^$STR(S$配置_15)
#IF
SMALL $RANDOM($STR(D$概率)) $STR(S$配置_15)
#ACT
Give $STR(S$属性_4) 1
;------------------------------自行设置属性Start------------------------------
;------------------------------自行设置属性End--------------------------------
MessageBox 恭喜您成功打造二阶<$STR(S$属性_4)>
Break
#ELSEACT
MOV D$概率 $DEC^100^$STR(S$配置_14)
#IF
SMALL $RANDOM($STR(D$概率)) $STR(S$配置_14)
#ACT
Give $STR(S$属性_4) 1
;------------------------------自行设置属性Start------------------------------
;------------------------------自行设置属性End--------------------------------
MessageBox 恭喜您成功打造四阶<$STR(S$属性_4)>
Break
#ELSEACT
MessageBox 打造时装失败