
<!-- #include file="connection.inc" -->
<%


set rs = Server.CreateObject("ADODB.RECORDSET")
	rs.open "select strength from userpettable where userpetid = " & session("petselected"),conn,3,2
		strength = rs("strength")
		if rs("strength") > 0 then
			rs("strength")	= cint(rs("strength"))	- 10
		end if
	rs.update
	rs.close
	
	rs.open "SELECT weapontable.weaponId, weapontable.weaponName, weapontable.levelId FROM weaponPetTable INNER JOIN weapontable ON weaponPetTable.weaponId = weapontable.weaponId WHERE (((weaponPetTable.userpetId)=" & session("petselected") & "));",conn
	
	while not rs.eof 
				
				conn.execute "insert into computerpet (weaponid,weaponname,levelid,userpetid) values (" & rs("weaponid") & ",'" & rs("weaponname") & "'," & rs("levelid") & "," & session("petselected") & ");"
		
		rs.movenext
	wend
Function RandomNumber(intHighestNumber)
	Randomize
	RandomNumber = Int(Rnd * intHighestNumber) + 1
End Function
	rs.close
	rs.open "select * from pettable",conn,3,2
	rs.move randomNumber(19),1
			if strength > 0 then
			conn.execute "insert into livefight (player1,player2,strength1,strength2) values(" & session("petselected") & "," & rs("petid") & ",100,100" & ")"
			else
			Response.Redirect("chooseopp.asp?e=1")
			end if
if application("value") = 1 then 
Response.Redirect("attacker.asp")
else
Response.Redirect("defender.asp")
end if


%>