Sub clearpoint()
Name=replace(lib.GetQueryField("name"),"'","&")
if(Lib.ChkInvaildWord(Name)) then
'myLib.msg("请不要输入非法字符")
end if
if Name="" then myLib.msg("非法操作")
if xd=1 then myLib.msg("对不起，洗点功能目前关闭中！")
sql = "select jf,memb___id from MEMB_INFO where memb___id='"&username&"'"
set rs = GameLib.execute(sql,false)
if rs.eof or rs.bof then
rs.close
myLib.msg("对不起，找不到该帐号")
else
JF=rs("jf")
if JF<XdPoint then myLib.msg("对不起，您帐号的积分达不到洗点需要积分，不能进行洗点")
rs.close
end if
sql = "select * from Character where AccountID='"&username&"' and Name='"&Name&"'"
set rs = GameLib.execute1(sql,false)
if rs.eof or rs.bof then
rs.close
myLib.msg("对不起，找不到该角色")
else
if rs("Money")<XdMoney then myLib.msg("对不起，您的金钱太少了，不能洗点！")
if rs("cLevel")<XdLevel then myLib.msg("对不起，您达不到洗点的等级限制，不能进行洗点！")
if Cleara = 0 then
for i=1 to 192 step 16
itemdbs=Hex(ascB(midb(rs("Inventory"),i,1)))
if itemdbs <> "FF" then myLib.msg("\n\n人物身上装备没有卸下来哟,我可是好心提醒您别怪我罗嗦!")
next
end if
Strength=rs("Strength")
Dexterity=rs("Dexterity")
Vitality=rs("Vitality")
Energy=rs("Energy")
LevelUpPoint=rs("LevelUpPoint")
'rs("cLevel")=XdokLevel
NewLevelUpPoint=LevelUpPoint+Strength+Dexterity+Vitality+Energy
rs.close
if Strength=0 and Dexterity=0 and Vitality=0 and Energy=0 then myLib.msg("就您目前的身体状况，不要浪费积分洗点了！")
dim sqls(2)
if Xda=1 then
sqls(0)="Update [Character] set Money=Money-"&XdMoney&",Strength=0,Dexterity=0,Vitality=0,Energy=0,LevelUpPoint="&NewLevelUpPoint&" where AccountID='"&username&"' and Name='"&Name&"'"
else
sqls(0)="Update [Character] set Money=Money-"&XdMoney&",cLevel="&XdokLevel&",Experience=" & myLib.GetExp(XdokLevel)&",Strength=0,Dexterity=0,Vitality=0,Energy=0,LevelUpPoint="&NewLevelUpPoint&" where AccountID='"&username&"' and Name='"&Name&"'"
end if
sqls(1)="Update [MEMB_INFO] set jf=jf-"&XdPoint&" where memb___id='"&username&"'"
if myLib.GameTranExec1(myLib.GetConnStr(AcSqlName,AcSqlPass,AcSqlData,AcSqlIp), sqls) then
lib.msg2 "恭喜您的角色〖"&Name&"〗洗点成功,您现在已经有"&NewLevelUpPoint&"自由分配点了!","User.asp"
else
lib.msg2 "操作失败,请保证数据的正确性!","User.asp"
end if
end if
End Sub
