<!--#include file="Inc.asp"-->
<!-- #include file=pet_conn.asp -->
<%
If Not BBS94KK.Founduser Then BBS94KK.GoToErr(10)
BBS94KK.Head("宠物宝贝 → 宠物竞技场")
    dim money,smoney,saveday,allmoney,time1,time2,daikuang,dkdu,daiday,sucmsg
    dim Form_userphoto,Form_FaceUrl,Form_FaceWidth,Form_FaceHeight,time3
    
   Dim Rs,SQL

	set rs=bbs94kk.execute("select * from [kk_User] where name='"&bbs94kk.myname &"'")
      	
    money=rs("coin")
    Form_userphoto = Rs("pic")
	DEF_PointsName="金币"

		Form_FaceWidth = Rs("picW")
		Form_FaceHeight = Rs("picH")
    rs.close    	
	sql = "SELECT * FROM mypetdata WHERE username='"&bbs94kk.myname&"' "
	rs.open sql,connpet,1,3
	if rs.eof then
		call showmessage("你还没有宠物啊，快攒钱去买吧~","petshop.asp")
		else


'注册用户物品
Dim Rs1,SQL1,hpitem,spitem,expitem,liveitem
sql1 = "SELECT * FROM useritem WHERE username='"&bbs94kk.myname&"' "
set rs1=connpet.ExeCute(sql1)
hpitem=rs1("hpitem")
spitem=rs1("spitem")
expitem=rs1("expitem")
liveitem=rs1("liveitem")	
rs1.close

dim t,today,petdiff,pett,petlevel,petep,petshowlevel,levelpic,intval,level1,petpic,pethp,petmaxhp
dim petatk,petdef,updat,newpettoday,petsp,petsex,petpk
dim hpf,spf,mypetdead,petdead,mypetsex,openpk1,szd,skill,hpmaxskill,hpmaxskill2,maxhp2
dim item1,item2,item3,item4,item5,mypet,mypetsx,imgset,msg1,msg2,msg3,msg4,msg5
dim str,ski,def,vit,speed

'用很无聊的循环使用变量得到每种道具的名字……
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

t=now()
today = date()
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)
petpic=rs("mypetname")
pethp=rs("mypethp")
str=rs("str")
ski=rs("ski")
def=rs("def")
vit=rs("vit")
speed=rs("speed")+def+5
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)
imgset = rs("imgset") 
 '获取生命上限
   	      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)
	
	
hpf= int (100 * (pethp / petmaxhp)) - 1

openpk1 = rs("openpk")
if (rs("openpk")<2) then
	petpk="等待挑战"
	else
	petpk="拒绝挑战"
end if
if ( hpf >= 98 ) then hpf = hpf - 2 end if
		
if pethp<1 or rs("mypetsp")<1 then
	petdead="死亡"
else
	petdead="生存"
end if

if(request("action") = "atkpet") then
	
dim rs2,atkname
dim userpetlevel,leveltmp,level2,atkrand1,defrand1,atkrand2,defrand2,atktemp1,atktemp2,deftemp1,deftemp2,exp1,exp2,userpetshowlevel,userhp
dim atktmp,atk,atktmp2,atk2,atkskill1,atkskill2,defskill1,defskill2,luck1,luck2,life1,life2,learn1,learn2,str2,ski2,def2,vit2,speed2



	atkname = request("atkname")
	set rs2=connpet.execute("SELECT * FROM mypetdata WHERE username='"& atkname &"'")
	if rs2.eof then
		call showmessage("他（她）没有宠物，不能PK啊~","petbattle.asp")
	else
		userpetlevel=rs2("mypetlevel")
		
		str2=rs2("str")
		ski2=rs2("ski")
		def2=rs2("def")
		vit2=rs2("vit")
		speed2=rs2("speed")+def2

		time1=now()
		time2=DateDiff("s", rs("pktime"), time1)
		if(BBS94kk.MyName = atkname) then
			call showmessage("干吗啊，自己打自己！","petbattle.asp")
			elseif (rs2("mypethp")<DEF_PET_petpkhp or rs2("mypetdead") = 1) then
				call showmessage("他（她）的宠物已经不行了，不能PK啊~","petbattle.asp")
			elseif  (rs2("openpk")>1) then
				call showmessage("他（她）不接受PK~","petbattle.asp")
			elseif (openpk1>1) then
				call showmessage("你关闭了PK系统，所以不能PK~","petother.asp")
			elseif(time2<DEF_PET_petpktime) then
										time3=DEF_PET_petpktime-time2
				call showmessage("不能连续攻击，请"& time3 &"秒后再攻击","petbattle.asp")
			else
				if (rs("mypetdead") = 1) then
					call showmessage("你的宝宝好象已经挂了， 救活它再PK吧。","petbattle.asp")
				end if
				leveltmp=abs(petshowlevel-userpetlevel)
				if (leveltmp>DEF_PET_petpklv) then
					call showmessage("你们两个级别相差太大，不能PK","petbattle.asp")
				end if
				level1=int(rs("mypetlevel"))
				level2=int(rs2("mypetlevel"))

 '获取生命上限
   	      hpmaxskill2=1
          if rs2("hpmaxskill")>0 then
          hpmaxskill2=1+rs("hpmaxskill")/100
          end if 
          if rs2("hpmaxskill")>30 then
          hpmaxskill2=1.2+rs("hpmaxskill")/100
          end if 
          if rs2("hpmaxskill")>100 then
          hpmaxskill2=1.5+rs("hpmaxskill")/100
          end if 
			maxhp2 = int((rs2("mypetmaxhp")+vit2)*hpmaxskill2)
          
         
				Randomize '初始化随机数生成器。
				
'各种属性的基础参数
atkrand1=1
defrand1=1
atkrand2=1
defrand2=1
atkskill1=1
atkskill2=1
defskill1=1
defskill2=1
luck1=1
luck2=1
life1=1
life2=1
learn1=1
learn2=1



'攻击者的五行生克参数
				select case rs("mypetsx")
					case "金"
						if rs2("mypetsx") = "木" then atkrand1=1.5
						if rs2("mypetsx") = "土" then defrand1=0.75
						if rs2("mypetsx") = "龙" then atkrand1=0.8

					case "木"
						if rs2("mypetsx") = "土" then atkrand1=1.5
						if rs2("mypetsx") = "水" then defrand1=0.75
						if rs2("mypetsx") = "龙" then atkrand1=0.8

					case "水"
						if rs2("mypetsx") = "火" then atkrand1=1.5
						if rs2("mypetsx") = "金" then defrand1=0.75
						if rs2("mypetsx") = "龙" then atkrand1=0.8

					case "火"
						if rs2("mypetsx") = "金" then atkrand1=1.5
						if rs2("mypetsx") = "木" then defrand1=0.75
						if rs2("mypetsx") = "龙" then atkrand1=0.8
					
					case "土"
						if rs2("mypetsx") = "水" then atkrand1=1.5
						if rs2("mypetsx") = "火" then defrand1=0.75
						if rs2("mypetsx") = "龙" then atkrand1=0.8
						
					case "无"
						if rs2("mypetsx") = "龙" then atkrand1=0.7

					case "龙"
                                                atkrand1=1.3
				end select

'防御者的五行生克参数
				select case rs2("mypetsx")
					case "金"
						if rs("mypetsx") = "木" then atkrand2=1.5
						if rs("mypetsx") = "土" then defrand2=0.75
						if rs("mypetsx") = "龙" then atkrand2=0.8

					case "木"
						if rs("mypetsx") = "土" then atkrand2=1.5
						if rs("mypetsx") = "水" then defrand2=0.75
						if rs("mypetsx") = "龙" then atkrand2=0.8

					case "水"
						if rs("mypetsx") = "火" then atkrand2=1.5
						if rs("mypetsx") = "金" then defrand2=0.75
						if rs("mypetsx") = "龙" then atkrand2=0.8

					case "火"
						if rs("mypetsx") = "金" then atkrand2=1.5
						if rs("mypetsx") = "木" then defrand2=0.75
						if rs("mypetsx") = "龙" then atkrand2=0.8
					
					case "土"
						if rs("mypetsx") = "水" then atkrand2=1.5
						if rs("mypetsx") = "火" then defrand2=0.75
						if rs("mypetsx") = "龙" then atkrand2=0.8
						
					case "无"
						if rs("mypetsx") = "龙" then atkrand2=0.7

					case "龙"
                                                atkrand2=1.3
				end select




'攻击者攻击技能的加成
if rs("atkskill")>0 then  
atkskill1=1+rs("atkskill")/100
if rs("atkskill")>30 then
atkskill1=1.1+rs("atkskill")/100
if rs("atkskill")>100 then
atkskill1=1.3+rs("atkskill")/100
end if
end if
end if

'防御者攻击技能的加成
if rs2("atkskill")>0 then  
atkskill2=1+rs("atkskill")/100
if rs2("atkskill")>30 then
atkskill2=1.1+rs("atkskill")/100
if rs2("atkskill")>100 then
atkskill2=1.3+rs("atkskill")/100
end if
end if
end if



'攻击者防御技能的加成
if rs("defskill")>0 then  
defskill1=1+rs("defskill")/100
if rs("defskill")>30 then
defskill1=1.1+rs("defskill")/100
if rs("defskill")>100 then
defskill1=1.3+rs("defskill")/100
end if
end if
end if

'防御者防御技能的加成
if rs2("defskill")>0 then  
defskill2=1+rs("defskill")/100
if rs2("defskill")>30 then
defskill2=1.1+rs("defskill")/100
if rs2("defskill")>100 then
defskill2=1.3+rs("defskill")/100
end if
end if
end if



'攻击者幸运技能的加成
if rs("luckskill")>0 then  
		if int((100-rs("luckskill")/2)*rnd)<2 then luck1=2
end if
if rs("luckskill")>30 then  
		if int((100-rs("luckskill")/1.8)*rnd)<2 then luck1=2
end if
if rs("luckskill")>100 then  
		if int((100-rs("luckskill")/1.5)*rnd)<2 then luck1=2
end if

'防御者幸运技能的加成
if rs2("luckskill")>0 then  
		if int((100-rs("luckskill")/2)*rnd)<2 then luck2=2
end if
if rs2("luckskill")>30 then  
		if int((100-rs("luckskill")/1.8)*rnd)<2 then luck2=2
end if
if rs2("luckskill")>100 then  
		if int((100-rs("luckskill")/1.5)*rnd)<2 then luck2=2
end if


'攻击者治疗技能的加成

if rs("lifeskill")>0 then
		life1=1+rs("lifeskill")/100
end if
if rs("lifeskill")>30 then  
		life1=1.2+rs("lifeskill")/100
end if
if rs("lifeskill")>100 then  
		life1=1.5+rs("lifeskill")/100
end if


'防御者治疗技能的加成

if rs2("lifeskill")>0 then
		life2=1+rs("lifeskill")/100
end if
if rs2("lifeskill")>30 then  
		life2=1.2+rs("lifeskill")/100
end if
if rs2("lifeskill")>100 then  
		life2=1.5+rs("lifeskill")/100
end if


'攻击者学习技能的加成

if rs("learnskill")>0 then
		learn1=1+rs("learnskill")/100
end if
if rs("learnskill")>30 then  
		learn1=1.5+rs("learnskill")/100
end if
if rs("learnskill")>100 then  
		learn1=2+rs("learnskill")/100
end if


'防御者学习技能的加成

if rs2("learnskill")>0 then
		learn2=1+rs("learnskill")/100
end if
if rs2("learnskill")>30 then  
		learn2=1.5+rs("learnskill")/100
end if
if rs2("learnskill")>100 then  
		learn2=2+rs("learnskill")/100
end if



'攻击者对防御者的伤害
atktemp1=(rs("mypetatk")+rs("item1Num")+rs("item2Num")+int(rs("str")/2))
deftemp2=(rs2("mypetdef")+rs2("item3Num")+rs2("item4Num")+rs2("item5Num")+int(rs2("ski")/2))
atktmp=int((atktemp1/2+atktemp1/2*rnd)*2*atkrand1*atkskill1-deftemp2*defrand2*defskill2)
				
				if luck1=2 then
				atktmp=int((atktemp1*2*atkrand1*atkskill1-deftemp2*defrand2*defskill2)*1.5)
				end if
				if (atktmp<1) then
					atk=0
				elseif (atktmp>1000) then
					atk=1000
				elseif (atktmp>rs2("mypethp")) then
					atk=rs2("mypethp")
				else 
					atk=atktmp
				end if
				exp2=int(atk/10)


'防御者对攻击者的伤害			
atktemp2=(rs2("mypetatk")+rs2("item1Num")+rs2("item2Num")+int(rs2("str")/2))
deftemp1=(rs("mypetdef")+rs("item3Num")+rs("item4Num")+rs("item5Num")+int(rs("ski")/2))
atktmp2=int((atktemp2/2+atktemp2/2*rnd)*2*atkrand2*atkskill2-deftemp1*defrand1*defskill1)
				
				if luck2=2 then
				atktmp2=int((atktemp2*2*atkrand2*atkskill2-deftemp1*defrand1*defskill1)*1.5)
				end if
				
				if (atktmp2<1) then
					atk2=0
				elseif (atktmp2>1000) then
					atk2=1000
				elseif (atktmp2>rs("mypethp")) then
					atk2=rs("mypethp")
				else 
					atk2=atktmp2
				end if
			

'随机分配经验
				exp1=int(atk2/10)
				dim expz
				expz=exp1+exp2
				randomize
				exp1=cint(expz*rnd)
				exp2=expz-exp1
				exp1=int(exp1*learn1)
				exp2=int(exp2*learn2)

'攻击先手优势
		if speed > speed2 and atk>userhp then atk2=0 end if 
		if speed < speed2 and atk2>pethp then atk=0 end if
'躲避参数
dim miss1,miss2
miss1=int(rnd*(200+speed2/10-speed/10))
miss2=int(rnd*(200+speed/10-speed2/10))	
'是否躲避成功
		if miss1<10 then atk2=0 end if
		if miss2<10 then atk=0 end if



'判断攻击者是否死亡
				if (pethp-atk2<1) then
					pethp=0
					mypetdead=1
					exp1=0
				else
					pethp=pethp-atk2
					
					if learn1>1 then
					exp1=int(learn1*exp1)
					end if
										
					if life1>1 then
					pethp= int(pethp+petmaxhp*(life1-1))
					end if
				
					if pethp>petmaxhp then
					pethp=petmaxhp
					end if
				
					mypetdead=0
				end if	
				
				'宠物新等级
				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)))
				petshowlevel = int (petlevel + 1)
				
				'保存入数据库
				time2=now()
				connpet.ExeCute("UPDATE mypetdata SET mypetexp=mypetexp+"&exp1&",mypetlevel="&petshowlevel&",mypethp="&pethp&",mypetdead="&mypetdead&",pktime='"&time2&"' WHERE username='"& bbs94kk.myname &"'")
				
'判断防御者是否死亡				
				if (rs2("mypethp")-atk<1) then
					userhp=0
					mypetdead=1
					exp2=0
				else 
				   userhp=rs2("mypethp")-atk
				   
				   	if learn2>1 then
					exp2=int(exp2*learn2)
					end if
				   
				   if life2>1 then
				   userhp=int(userhp+maxhp2*(life2-1))	
				   end if
				   
				   if userhp>maxhp2 then
				   userhp=maxhp2
				   end if
				   	 			   
				   mypetdead=0
				end if
				
				'宠物新等级
				userpetlevel = sqr((Log(rs2("mypetexp")) / Log(10)) * (Log(rs2("mypetexp")) / Log(10)) * (Log(rs2("mypetexp")) / Log(10)) * (Log(rs2("mypetexp")) / Log(10)) * (Log(rs2("mypetexp")) / Log(10)))
				userpetshowlevel = int (userpetlevel + 1)
				
				'保存入数据库
				connpet.ExeCute("UPDATE mypetdata SET mypetexp=mypetexp+"& exp2 &",mypetlevel="&userpetshowlevel&",mypethp="&userhp&",mypetdead="&mypetdead&" WHERE username='"&atkname&"'")



'给防御者发送攻击短消息			
				if DEF_PET_sendbattlemsg = 1 then 
					
					msg1="你的宝宝受到 "&BBS94kk.MyName&" 的宝宝 "&atk&" 点攻击<br>"
					msg2=""
					msg4=""
					msg5=""
					
					if luck2=2 then
					msg2 = msg2 & "幸运技能使你的宝宝反击加倍，"
					end if
					
					msg3="你的宝宝进行了反击，"&msg2&"使他（她）受到 "&atk2&" 点攻击，你增加了 "&exp2&" 点经验值！<br>"
					
					if atk=0 then
					msg1="你的宝宝受到 "&BBS94kk.MyName&" 的宝宝的攻击，但防御成功！<br>"
					end if
					
					if atk2=0 then
					msg3="你的宝宝对"&BBS94kk.MyName&" 的宝宝进行反击，但反击失败！<br>"
					end if
					
				'治疗技能提示
				if life2>1 then
				msg4="你的宠物的治疗技能为宠物恢复些许生命<br>"
				end if
								
				'学习技能提示
				if learn2>1 then
				msg5="你的宠物的学习技能为宠物增加些许经验<br>"
				end if
					
					if userhp=0 then
					msg3 = "不幸牺牲"
					msg4=""
					msg5=""
					end if
					
                   
                end if
				
			
'给攻击者发送攻击效果
				dim snum
				Randomize
				snum=Int((3 * Rnd) + 1)
				
				'基本输出属性
				msg1="你的宝宝给了 "&atkname&" 的宝宝 "&atk&" 点攻击<br>你增加了 "&exp1&" 点经验值<br><br>"
				msg2=""
				msg3="他（她）宝宝进行了反击，使你受到 "&atk2&" 点攻击！<br><br>"
				msg4=""
				msg5=""
				
				
				
				'幸运一击
				if luck1=2 then
				msg2="幸运技能使你的宝宝攻击加倍<br>"
				end if
				
				'攻击失败
				if atk=0 then
				msg1="你的宝宝对"&atkname&"的宝宝的攻击，但攻击失败<br><br>"
				msg2=""
				end if
				
				'防御反击成功
				if atk2=0 then
				msg3="你的宝宝受到"&atkname&"的宝宝反击，但防御成功<br><br>"
				end if
				
				'治疗技能提示
				if life1>1 then
				msg4="你的宠物的治疗技能为宠物恢复些许生命<br>"
				end if
								
				'学习技能提示
				if learn1>1 then
				msg5="你的宠物的学习技能为宠物增加些许经验<br>"
				end if
				  
				'pk牺牲
				if pethp=0 then
				msg3="你的宝宝受到"&atkname&"的宝宝反击，不幸牺牲<br>"
				msg4=""
				msg5=""
				end if
				
'			response.write "<br>宠物基本攻击："&atktemp1&"，宠物防御："&deftemp1&"，宠物加成攻击："&atktmp&"，宠物实际攻击"&atk&"<br>"
'			response.write "<br>怪物基本攻击："&atktemp2&"，怪物防御："&deftemp2&"，怪物加成攻击："&atktmp2&"，怪物实际攻击"&atk2&"<br>"
'			response.write "<br>宠物攻击速度攻击："&speed&"，怪物攻击速度："&speed2&"，宠物躲避："&miss1&"，怪物躲避"&miss2&"<br>"



				call showmessage("<br><img src=""images/pet/attack0"& snum &".gif"" width=270 width=100><br><br>"&msg2&""&msg1&""&msg3&""&msg4&""&msg5&"","petbattle.asp?atkname="&atkname&"")

			end if
			
		end if
	end if

				
				
'↑★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★	


%>


<table width="760" border="0" cellspacing="1" cellpadding="5" align="center" class=TBone>
  
  <tr>
	<td class=tbbg1>
	
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="3">
<tr>
          <td width="24%" rowspan="3" valign="top">
<div align="center"> 
<table width="79%"  border="0" align="center" cellpadding="3" cellspacing="3">
<tr><td width="100%"><div align="center">我的资料</div></td>
</tr><tr><td><div align="center">
					<img border="0" src="<%=Form_userphoto%>" width="<%=Form_FaceWidth%>" height="<%=Form_Faceheight%>">
					<br><img src="images/blank.gif" width="2" height="5"><br>
                    </div></td>
                  </tr>
                  <tr> 
                    <td> <div align="center">
                        <nobr>用户<%=DEF_PointsName%>: <%=money%>金币</nobr>
                        </div></td>
                  </tr>
                </table>
              <br>
					<table width="90%"  border="0" align="center" cellpadding="3" cellspacing="3">
					  <tr>
						<td><div align="center"></div>
<!-- #include file=petnav.asp --></td>
					  </tr>
					</table>
				  </div>
<div align="center"></div></td>
				<td width="76%"> 
				  <table width='100%' border='0' cellpadding='1' cellspacing='1'>
					<tr> 
					  <td width='33%'><div align="left"> 我的宠物状态 <br>
						  宠物名称：<%=rs("mypet")%> <br>
						  宠物级别：<%=petshowlevel%><br>
						  宠物转生：<%=rs("relive")%><br>
						  宠物状态：<%=petdead%><br>
                                                  宠物挑战：<%=petpk%> <br>
						  攻击力：<%=petatk%><br>
						  防御力：<%=petdef%><br>
						  HP ： <%=pethp%> / <%=petmaxhp%> <br>
						  EXP ： <%=petep%>%[<%=rs("mypetexp")%>] 
						  
						</div></td>
					  <td><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">
							<%else%>
							<img src='images/pet/<%=petpic%>/<%=petpic%><%=imgset%>.gif' border="0">
							<%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></td>
					</tr>
				  </table>
				</td>
			  </tr>
<tr><td>
  <TABLE cellSpacing=3 cellPadding=3 width="100%" align=center border=0 height="75">
					<TR> 
					  <TD width="25%" height="16"> <DIV align=center>HP药水拥有数量：<%=hpitem%> 
						  [<a href="petitemuse.asp?action=usehp" target="_blank">使用</a>]</DIV></TD>
					  <TD width="25%" height="16"><div align="center">EXP药水拥有数量：<%=expitem%> 
						  [<a href="petitemuse.asp?action=useexp" target="_blank">使用</a>]</div></TD>
					</TR>
					<TR> 
					  <TD height="16"><DIV align="center">SP药水拥有数量：<%=spitem%> [<a href="petitemuse.asp?action=usesp" target="_blank">使用</a>]</DIV></TD>
					  <TD height="16"><div align="center">复活拥有数量：<%=liveitem%> 
                        [<a href="petitemuse.asp?action=uselive" target="_blank">使用</a>]</div></TD>
					  </TR>

				  </TABLE>
				  
				  <table width="100%" border="0" cellspacing="2" cellpadding="2">
				  <tr><a href=pettop.asp?action=pkon>宠物竞技名单</a>&nbsp;&nbsp;点击宠物名字展开攻击&nbsp;&nbsp;&nbsp;&nbsp;
				  <% if not request("atkname")="" then%>
					<a href="petbattle.asp?atkname=<%=request("atkname")%>&action=atkpet"><font color=red>继续攻击</font><%=request("atkname")%></a>
				  <%end if%>
				  </tr>
						  <th width="20%">宠物主人</th>
						  <th width="20%">宠物名字</th>
						  <th width="15%">宠物等级</th>
						  <th width="15%">宠物攻击力</th>
						  <th width="15%">宠物防御力</th>
						  <th width="15%">宠物状态</th>
					</table>
					  <!-- #include file=petpklist.asp -->
						<div align="right"></div></td>
					</tr>
				  </table></td>
</tr></table>

	</td></tr></table>
<% End If 
bbs94kk.footer()

Set BBS94KK = Nothing%>








