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

Function RandomNumber(intHighestNumber)
	Randomize
	RandomNumber = Int(Rnd * intHighestNumber) + 1
End Function
set rs = Server.CreateObject("ADODB.RECORDSET")
	rs.open "SELECT livefight.player1, livefight.player2,livefight.strength1, livefight.strength2 FROM livefight INNER JOIN UserPetTable ON livefight.player1 = UserPetTable.userPetId WHERE (((UserPetTable.userid)=" & session("userid") & "));",conn

	weapon = 1
		if request("level") = 1 then
			if not request("handgun") = "" then
				weapon = request("handgun")
			else
				weapon = 1	
			end if	
		elseif request("level") = 2 then
			if not request("handweapon") = "" then
				weapon = request("handweapon")	
			else
				weapon = 1	
			end if	
		
		elseif request("level") = 3 then
			if not request("assaultweapons") = "" then
				weapon = request("assaultweapons")	
			else
				weapon = 1	
			end if
		elseif request("level") = 4 then
			if not request("heavyartillery") = "" then
				weapon = request("heavyartillery")
			else
				weapon = 1	
			end if		
			
		elseif request("level") = 5 then
			if not request("explosivedevices") = "" then
				weapon = request("explosivedevices")	
			else
				weapon = 1	
			end if	
			
		end if
		if not request("clickvalue") = "" then
			defendweapon = RandomNumber(cint(request("clickvalue")))
		else
				defendweapon = 1
		end if		
		
if request("t") = "a" then
		
		ld = abs(cint(request("level")) - RandomNumber(5))  + 1
		
		wd = abs(cint(weapon) - defendweapon) + 1
		if cint(request("bodyy")) = RandomNumber(3) then
			damage = ld * wd
		else
			damage = ld * wd * 2
		end if
		
		conn.execute "UPDATE livefight INNER JOIN UserPetTable ON livefight.player1 = UserPetTable.userPetId SET strength1=" & rs("strength1") - damage & " WHERE (((UserPetTable.userid)=" & session("userid") & "));"
			if (rs("strength1") - damage) <= 0 then
				conn.execute "insert into fighthistorytable (result,userpetid,strength,battledate) values ('LOSE'," & rs("player1") & "," & rs("strength1") - damage & "," &date& ");"
				Response.Redirect("Result.asp?L=1")
			end if
		Response.redirect("attacker.asp")
else
	

		
		ld = abs(cint(request("level")) - RandomNumber(5))  + 1
		wd = abs(cint(weapon) - defendweapon) + 1
		if cint(request("bodyy")) = RandomNumber(3) then
			damage = ld * wd
		else
			damage = ld * wd * 2
		end if
		conn.execute "UPDATE livefight INNER JOIN UserPetTable ON livefight.player1 = UserPetTable.userPetId SET strength2=" & rs("strength2") - damage & " WHERE (((UserPetTable.userid)=" & session("userid") & "));"
		if (rs("strength2") - damage) <= 0 then
				conn.execute "insert into fighthistorytable (result,userpetid,strength) values ('WINS'," & rs("player1") & "," & rs("strength1")  & ");"
				Response.Redirect("Result.asp?w=1")
		end if
		
		Response.redirect("defender.asp")
		
end if

%>