<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!-- #include file=pet_conn.asp -->
<!--#include file="inc/plus_check.asp"-->
<%

dim menu,savem,rsbank,rssql,chentitle,chenbackasp,stats,errmsg,founderr

chentitle=request.querystring("username") & " 的宠物"
Dv_plus.name="petcenter"
'Dv_plus.checklogin()
Dvbbs.LoadTemplates("")
Dvbbs.stats=request.querystring("username") & " 的宠物"
Dvbbs.Nav()
Dvbbs.Head_var 0,"","宠物中心","petcenter.asp"

if DvBBS.UserId = 0 then
	AlarmErrmsg
else
    dim allpetpeople,mypetname,mypet,levelpic,mypetlevel,username
    Dim Rs,SQL
    SQL = "SELECT * FROM mypetdata WHERE username='"&request.querystring("username")&"'"
    set rs = connpet.execute(SQL)
    if rs.eof then
            call showmessage("他还没有宠物啊~","petshop.asp")
        else

dim t,today,pett,petlevel,petep,petshowlevel,level1,level2,petpic,pethp,petatk,petdef,petmaxhp,petsp
dim hpf,spf,petdead,petsex,petpk,mypetsx,imgset
t=now()
today = date()
pett= DateDiff("d", rs("petregdate"), today)
petlevel = sqr((Log(rs("mypetexp")) / Log(10)) * (Log(rs("mypetexp")) / Log(10)) * (Log(rs("mypetexp")) / Log(10)) * (Log(rs("mypetexp")) / Log(10)) * (Log(rs("mypetexp")) / Log(10)))
petep = int (100 * (petlevel - int (petlevel)))
petshowlevel = int (petlevel + 1)
levelpic=int(petshowlevel/10)
if (levelpic>10) then levelpic=11 end if
level1=int(petshowlevel/2)
level2=int(petshowlevel/2)
petpic=rs("mypetname")
pethp=rs("mypethp")
petatk=rs("mypetatk")+rs("item1Num")+rs("item2Num")+2+level1
petdef=rs("mypetdef")+rs("item3Num")+rs("item4Num")+rs("item5Num")+3+level1
if (petshowlevel<2) then 
    petmaxhp=DEF_PET_basichp 
else 
    petmaxhp=DEF_PET_basichp+petshowlevel*5
end if
petsp=rs("mypetsp")-pett*DEF_PET_basicsp2
if(petsp>DEF_PET_basicsp) then petsp=DEF_PET_basicsp end if
hpf= int (100 * (pethp / petmaxhp)) - 1
spf= int (100 * (petsp / DEF_PET_basicsp)) - 1
if (pethp<0) then pethp=0 end if
if (petsp<0) then petsp=0 end if
if (pethp<1 or petsp<1) then
    petdead="死亡"
    else
    petdead="生存"
end if
if (rs("mypetsex")<2) then
    petsex="雄"
    else
    petsex="雌"
end if
if (rs("openpk") < 2) then
    petpk="等待挑战"
    else
    petpk="拒绝挑战"
end if
if ( hpf >= 98 ) then hpf = hpf - 2 end if
if ( spf >= 98 ) then spf = spf - 2 end if
dim petkill
if petdead="死亡" then
	petkill="d-"
else
	petkill=""
end if

if pethp<=0 or petsp<=0 then
    sql = "UPDATE mypetdata SET mypetdead=1 WHERE username='"&request.querystring("username")&"'"
    connpet.ExeCute(sql)
end if


dim item1,item2,item3,item4,item5
item1=rs("item1")
item2=rs("item2")
item3=rs("item3")
item4=rs("item4")
item5=rs("item5")
mypet=rs("mypet")
mypetsx = rs("mypetsx")
mypetlevel = rs("mypetlevel")
imgset = rs("imgset") 

'用很无聊的循环使用变量得到每种道具的名字……
dim rs3,swordname,necklacename,headname,bodyname,footname
set rs3 = connpet.execute("select * from petitemshop where itemclass='sword' and itemnum="&rs("item1"))
swordname = rs3("itemname")
rs3.close
set rs3 = connpet.execute("select * from petitemshop where itemclass='necklace' and itemnum="&rs("item2"))
necklacename = rs3("itemname")
rs3.close
set rs3 = connpet.execute("select * from petitemshop where itemclass='head' and itemnum="&rs("item3"))
headname = rs3("itemname")
rs3.close
set rs3 = connpet.execute("select * from petitemshop where itemclass='body' and itemnum="&rs("item4"))
bodyname = rs3("itemname")
rs3.close
set rs3 = connpet.execute("select * from petitemshop where itemclass='foot' and itemnum="&rs("item5"))
footname = rs3("itemname")
rs3.close

    end if
%>
<table  border="0" cellspacing="1" cellpadding="5" align="center" class=tableborder4>
  <tr>
    <td height=27 align="center" class=tbhead2><b><font class=HeadFont><%=stats%></font></b></td>
  </tr>
  <tr>
    <td class=tbbg1>
    
					<table width="100%" border="0" cellspacing="2" cellpadding="2">
                        <tr> 
							<td width="35%">&nbsp;</td>
                            <td width="20%"> <div align="center"><img src="dv_plus/pet/pet/head/<%=rs("item3")%>.gif" alt="<%=headname%> 防御力 <%=rs("item3Num")%>"></div></td>
                            <td width="35%">&nbsp;</td>
                        </tr>
                        <tr> 
                            <td><div align="right"><img height=30 src="dv_plus/pet/pet/sword/<%=rs("item1")%>.gif" alt="<%=swordname%> 攻击力 <%=rs("item1Num")%>"></div></td>
                            <td rowspan="2"><div align="center"><a href="petbattle.asp?atkname=<%=request("username")%>&action=atkpet" title="攻击 <%=request("username")%> 的宝宝">
							<%if rs("imgset")=-1 then%>
							<img src='dv_plus/pet/pet/<%=petpic%>/<%=petpic%><%=levelpic%>.gif' border="0">
							<%else%>
							<img src='dv_plus/pet/pet/<%=petpic%>/<%=petpic%><%=imgset%>.gif' border="0">
							<%end if%>
							</a></div></td>
                            <td><img src="dv_plus/pet/pet/body/<%=rs("item4")%>.gif" alt="<%=bodyname%> 防御力 <%=rs("item4Num")%>"></td>
                        </tr>
                        <tr> 
                            <td><div align="right"><img src="dv_plus/pet/pet/necklace/<%=rs("item2")%>.gif" alt="<%=necklacename%> 攻击力 <%=rs("item2Num")%>" ></div></td>
                            <td><img src="dv_plus/pet/pet/foot/<%=rs("item5")%>.gif" alt="<%=footname%> 防御力 <%=rs("item5Num")%>"></td>
                        </tr>
                        </table>
                  <table width='63%' border='0' align="center" cellpadding='1' cellspacing='1'>
                    <tr> 
                      <td width='33%'><div align="left">宠物名称：<%=mypet%>
                          <br>
                          宠物性别：<%=petsex%><br>
                          攻击力：<%=petatk%><br>
                          防御力：<%=petdef%></div></td>
                      <td width='33%'> 宠物状态：<%=petdead%><br>
                        宠物级别：<%=mypetlevel%><br>
                        宠物属性：<%=mypetsx%><br>
                        宠物PK：<%=petpk%></td>
                      <td width='33%'> HP : <%=pethp%> / <%=petmaxhp%><br> <table width='120' border='0' cellspacing='0' cellpadding='0' bordercolor='#000000'>
                          <tr> 
                            <TD width=3 height=13><IMG height=13 src='dv_plus/pet/rpg/img_left.gif' width=3></TD>
                            <TD width=114 background=dv_plus/pet/rpg/img_backing.gif height=13><img src='dv_plus/pet/rpg/orange.gif' width='<%=hpf%>%' height='9'><img src='dv_plus/pet/rpg/hp.gif' height='9'></td>
                            <TD width=3 height=13><IMG height=13 src='dv_plus/pet/rpg/img_right.gif' width=3></TD>
                          </tr>
                        </table>
                        SP : <%=petsp%> / <%=DEF_PET_basicsp%><br> <table width='120' border='0' cellspacing='0' cellpadding='0' bordercolor='#000000'>
                          <tr> 
                            <TD width=3 height=13><IMG height=13 src='dv_plus/pet/rpg/img_left.gif' width=3></TD>
                            <TD width=114 background=dv_plus/pet/rpg/img_backing.gif height=13><img src='dv_plus/pet/rpg/green.gif' width='<%=spf%>%' height='9'><img src='dv_plus/pet/rpg/mp.gif' height='9'></td>
                            <TD width=3 height=13><IMG height=13 src='dv_plus/pet/rpg/img_right.gif' width=3></TD>
                          </tr>
                        </table>                        
EXP : <%=petep%>%<br> <table width='120' border='0' cellspacing='0' cellpadding='0' bordercolor='#000000'><tr><TD width=3 height=13><IMG height=13 src='dv_plus/pet/rpg/img_left.gif' width=3></TD>
<TD width=114 background=dv_plus/pet/rpg/img_backing.gif height=13><img src='dv_plus/pet/rpg/blue.gif' width='<%=petep%>%' height='9'><img src='dv_plus/pet/rpg/exp.gif' height='9'></td>
<TD width=3 height=13><IMG height=13 src='dv_plus/pet/rpg/img_right.gif' width=3></TD>
</tr></table></td></tr></table>
                      </td>
                    </tr>
                  </table></td>
              </tr>
            </table>
	</td></tr></table>
<% End If  :   Set Dv_plus=Nothing : Dvbbs.Footer %>