
<!-- #include file="connection.inc" -->
<%
set rs = Server.CreateObject("ADODB.RECORDSET")
	rs.open "select moneyleft from usertable where userid = " & session("userid"),conn
		if cdbl(rs("moneyleft")) < cdbl(request("betamount")) then
				Response.Redirect("chooseanopp.asp?nem=1")
		end if
	

set rs = Server.CreateObject("ADODB.RECORDSET")
	rs.open "select strength from userpettable where userpetid = " & session("petselected") & " or userpetid = " & request("id"),conn,3,2
		
		cont = 1
	while not rs.eof		
		if rs("strength") > 0 then
			if cont = 1 then
				strength = 100
				cont = 2
			else
				strength1 = 100
			end if	
					
			rs("strength")	= cint(rs("strength"))	- 10
			rs.update
		
		end if
			rs.movenext
	wend	
	rs.close
	
	Function RandomNumber(intHighestNumber)
	Randomize
	RandomNumber = Int(Rnd * intHighestNumber) + 1
End Function
	
	rs.open "select * from userpettable",conn,3,2
			if strength > 0 then

			conn.execute "insert into livefight (player1,player2,strength1,strength2,type,betamount) values(" & session("petselected") & "," & request("id") & ",100,100," & application("value")&"," & request("betamount") & ")"
			else
			Response.Redirect("chooseopp.asp?e=1")
			end if
	rs.close		
rs.open "select * from livefight where player1 = " & session("petselected"),conn
		session("fightid") = rs("fightid")
		conn.execute "insert into ad (fightid,aid,did) values ("&rs("fightid")&","&session("petselected")&","&request("id") &")"
		
rs.close			

Response.Redirect("attack.asp")

%>