<!--#include file="Inc.asp"-->
<!-- #include file=pet_conn.asp -->
<%
If Not BBS94KK.Founduser Then BBS94KK.GoToErr(10)
BBS94KK.Head("宠物宝贝 → 宠物大冒险")
    
    dim allpetpeople,mypetname,mypet,levelpic,mypetlevel,username
    Dim Rs,SQL
    SQL = "SELECT * FROM mypetdata WHERE username='"&bbs94kk.MyName&"'"
    set rs = connpet.execute(SQL)
                if rs.eof then
           call showmessage("你还没有宠物啊，快攒钱去买吧~","petshop.asp")
       		else
       		
'用很无聊的循环使用变量得到每种道具的名字……
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



'注册宠物物品箱中物品
dim t,today,petdiff,pett,petlevel,petep,petshowlevel,intval,level1,level2,petpic,pethp,petmaxhp,hpmaxskill,maxhp
dim petatk,petdef,updat,newpettoday,petsp,petsex,petpk
dim hpf,spf,mypetdead,petdead,mypetsex
dim item1,item2,item3,item4,item5,mypetsx,imgset,szd,skill,speed
Dim Rs2,SQL2,hpitem,spitem,expitem,atkitem,defitem,liveitem,weopitem,amoritem,jewel,ring,it1,it1n,it2,it2n,it3,it3n,it4,it4n,it5,it5n,it6,it6n,it7,it7n,it8,it8n
dim tempname,tempclass,tempNum,tempN,it,temp,temp3
dim str,ski,def,vit

sql2 = "SELECT * FROM useritem WHERE username='"&bbs94kk.MyName&"' "
set rs2=connpet.ExeCute(sql2)
hpitem=rs2("hpitem")
spitem=rs2("spitem")
expitem=rs2("expitem")
liveitem=rs2("liveitem")	
weopitem=rs2("weopitem")
amoritem=rs2("amoritem")
jewel=rs2("jewel")
ring=rs2("ring")
it1=rs2("it1")
it1n=rs2("it1n")
it2=rs2("it2")
it2n=rs2("it2n")
it3=rs2("it3")
it3n=rs2("it3n")
it4=rs2("it4")
it4n=rs2("it4n")
it5=rs2("it5")
it5n=rs2("it5n")
it6=rs2("it6")
it6n=rs2("it6n")
it7=rs2("it7")
it7n=rs2("it7n")
it8=rs2("it8")
it8n=rs2("it8n")
rs2.close



t=now()
today = date()
petdiff = DateDiff("d", rs("petregdate"), t)
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)
level2=int(petshowlevel)
petpic=rs("mypetname")
pethp=rs("mypethp")
str=rs("str")
ski=rs("ski")
def=rs("def")
vit=rs("vit")
szd=rs("szd")+petshowlevel*5-str-ski-def-vit
skill=rs("skill")+petshowlevel-rs("atkskill")-rs("defskill")-rs("lifeskill")-rs("luckskill")-rs("learnskill")-rs("hpmaxskill")
petatk=rs("mypetatk")+rs("item1Num")+rs("item2Num")+int(str/2)
petdef=rs("mypetdef")+rs("item3Num")+rs("item4Num")+rs("item5Num")+int(ski/2)
 '获取生命上限
   	      hpmaxskill=1
          if rs("hpmaxskill")>0 then
          hpmaxskill=1+rs("hpmaxskill")/100
          end if 
          if rs("hpmaxskill")>30 then
          hpmaxskill=1.2+rs("hpmaxskill")/100
          end if 
          if rs("hpmaxskill")>100 then
          hpmaxskill=1.5+rs("hpmaxskill")/100
          end if  
		  petmaxhp = int((rs("mypetmaxhp")+vit)*hpmaxskill)
		  maxhp=petmaxhp
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

item1 = rs("item1")
item2 = rs("item2")
item3 = rs("item3")
item4 = rs("item4")
item5 = rs("item5")
mypet = rs("mypet")
mypetsx = rs("mypetsx")
imgset = rs("imgset")
dim petkill
if petdead="死亡" then
petkill="style='filter: Gray;' onLoad='javascript:if(this.width>100)this;if(this.height>100)this;'"
else
	petkill=""
end if
	end if

			
%>
<table width="760" border="0" cellspacing="1" cellpadding="5" align="center" class=TBone>

  <tr>
	<td class=tbbg1 width="241">
	

					<table width="100%" border="0" cellspacing="2" cellpadding="2">
						<tr> 
							<td width="35%">　</td>
							<td width="20%"> 
            <div align="center"><img src="images/pet/head/<%=rs("item3")%>.gif" alt="<%=headname%> 防御力 <%=rs("item3Num")%>" width="23" height="30"></div>
          </td>
							<td width="35%">　</td>
						</tr>
						<tr> 
							<td>
            <div align="right"><img height=30 src="images/pet/sword/<%=rs("item1")%>.gif" alt="<%=swordname%> 攻击力 <%=rs("item1Num")%>" width="23"></div>
          </td>
							<td rowspan="2">
            <div align="center"> 
              <%if rs("imgset")=-1 then%>
              <img src='images/pet/<%=petpic%>/<%=petpic%><%=levelpic%>.gif' border="0" <%=petkill%> > 
              <%else%>
              <img src='images/pet/<%=petpic%>/<%=petpic%><%=imgset%>.gif' border="0" width="23" height="30" <%=petkill%> > 
              <%end if%>
            </div>
          </td>
							
          <td><img src="images/pet/body/<%=rs("item4")%>.gif" alt="<%=bodyname%> 防御力 <%=rs("item4Num")%>" width="23" height="30"></td>
						</tr>
						<tr> 
							<td>
            <div align="right"><img src="images/pet/necklace/<%=rs("item2")%>.gif" alt="<%=necklacename%> 攻击力 <%=rs("item2Num")%>" width="23" height="30" ></div>
          </td>
							
          <td><img src="images/pet/foot/<%=rs("item5")%>.gif" alt="<%=footname%> 防御力 <%=rs("item5Num")%>" width="23" height="30"></td>
						</tr>
						</table>
				  <table width='100%' border='0' cellpadding='1' cellspacing='1'>
					<tr> 
					  <td align="right"> <div align="right">
						  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
							<tr>
							  <td><div align="left">宠物名称：<%=mypet%>
						  <br>
						  宠物性别：<%=petsex%><br>
                      宠物状态：<%=petdead%><br>
						宠物属性：<%=mypetsx%></div><div align="left">宠物冒险：<%=petpk%></div><div align="left">宠物转生：<%=rs("relive")%></div><div align="left">宠物级别：<%=petshowlevel%></div>--------------<span lang="zh-cn"><br>
                                    力量</span>：<%=str%><br>
						  <span lang="zh-cn">皮肤</span>：<%=ski%><br>
						  <span lang="zh-cn">敏捷</span>：<%=def%><br>
						  <span lang="zh-cn">体力</span>：<%=vit%><br>
                                攻击：<%=petatk%><br>
                                防御：<%=petdef%><br>
								    --------------<br>
								HP : <%=pethp%> / <%=petmaxhp%><br>    
								SP : <%=petsp%> / <%=DEF_PET_basicsp%><br>    
								EXP : <%=petep%>%[<%=rs("mypetexp")%>]<br>    
                                <p><a href="petmypet.asp"><font color="#FF0000">我要回家装备一下</font></a></td>
							</tr>
						  </table>
						</div></td>
					</tr>
				  </table>
				  </td>
				<td width="590"> <div align="center">
				<map name="petrisk">
				<area href="petpknpc.asp?monsid=1" shape="circle" coords="204, 393, 32" alt="新手村 0-10级">
				<area href="petpknpc.asp?monsid=2" shape="circle" coords="143, 290, 31" alt="兽人营地 10-20级">
				<area href="petpknpc.asp?monsid=3" shape="circle" coords="233, 196, 42" alt="狩猎城堡 20-30级">
				<area href="petpknpc.asp?monsid=4" shape="circle" coords="127, 188, 37" alt="昆虫之岛 30-40级">
				<area href="petpknpc.asp?monsid=5" shape="circle" coords="316, 206, 26" alt="屠夫之家 40-50级">
				<area href="petpknpc.asp?monsid=6" shape="circle" coords="349, 150, 37" alt="迷失森林 50-60级">
				<area href="petpknpc.asp?monsid=7" shape="circle" coords="457, 217, 36" alt="狩猎船 60-70级">
				<area href="petpknpc.asp?monsid=8" shape="circle" coords="427, 95, 34" alt="噩梦平原 70-80级">
				<area href="petpknpc.asp?monsid=9" shape="circle" coords="283, 71, 40" alt="冰峰山 80-90级">
				<area href="petpknpc.asp?monsid=10" shape="circle" coords="285, 317, 48" alt="藏宝洞 90-100级">
				<area href="petpknpc.asp?monsid=11" shape="circle" coords="546, 143, 26" alt="云中城 100级以上">
				</map>
				<img border="0" src="images/pet/map.jpg" width="579" height="442" usemap="#petrisk">
				</div></td>
			  </tr>
			</table>

	<%
	rs.close%>
<%bbs94kk.footer()%>
