<!-- #include file="connection.inc" -->
<%
Function RandomNumber(intHighestNumber)
	Randomize
	RandomNumber = Int(Rnd * intHighestNumber) + 1
End Function


set rs = Server.CreateObject("ADODB.RECORDSET")
	rs.open "SELECT player1,player2 from livefight where fightid = " & session("fightid"),conn

set rsd = Server.CreateObject("ADODB.RECORDSET")
	rsd.open "SELECT  * from ad where fightid = " & session("fightid"),conn,3,2
	'Response.Write(not cint(rsd("p1")) > 0 and not cint(rsd("p2")) > 0)
	'Response.End()
		if cint(rsd("dv")) = 1 and cint(rsd("av")) = 1 then
			if not cint(rsd("p1")) > 0 and not cint(rsd("p2")) > 0 then	
					
					weapon = rsd("aw")
				if rsd("dl") = 1 then
					defendweapon = rsd("dw1")
						
				elseif rsd("dl") = 2 then
					defendweapon = rsd("dw2")
				
				elseif rsd("dl") = 3 then
					defendweapon = rsd("dw3")
			
				elseif rsd("dl") = 4 then
					defendweapon = rsd("dw4")
					
				elseif rsd("dl") = 5 then
					defendweapon = rsd("dw5")
					
				end if
				ld = abs(rsd("al") - rsd("dl"))  + 1
				wd = abs(weapon - defendweapon) + 1
				
				if cint(rsd("ab")) = rsd("db") then
					damage = ld * wd
				else
					damage = ld * wd * 2
				end if

			set rvd = Server.CreateObject("Adodb.recordset")
				rvd.open "select strength1 from livefight where player1 = " & session("defender") & " and fightid=" & session("fightid"),conn
				if not rvd.eof then
					conn.execute "UPDATE livefight set strength1 = " &  clng(rvd("strength1")) - clng(damage) &  " where player1 = " & session("defender") & " and fightid=" & session("fightid") & ";"	
					if clng(rvd("strength1"))  <= 0 then
						conn.execute "insert into fighthistorytable (result,userpetid,strength) values ('LOSE'," & session("defender") & ",0);"
						conn.execute "insert into fighthistorytable (result,userpetid,strength) values ('WINS'," & session("attacker") & ",100);"
						conn.execute "update livefight set result = 'WINS' where fightid=" &session("fightid")& ";"
						conn.execute "update ad set p1 = "&session("petselected")&" where fightid=" &session("fightid")& ";"
						Response.Write(clng(rvd("strength1")) - clng(damage))
						Response.Redirect("resultfight.asp")
						session("first") = ""
					end if
				end if
				rvd.close
				
				rvd.open "select strength2 from livefight where player1 = " & session("attacker")  & " and fightid=" & session("fightid"),conn
				if not rvd.eof then
					conn.execute "UPDATE livefight set strength2 = " &  clng(rvd("strength2")) - clng(damage) & " where player2 = " & session("defender") & " and fightid=" & session("fightid") & ";"	
					if clng(rvd("strength2")) <= 0 then
						conn.execute "insert into fighthistorytable (result,userpetid,strength,battledate) values ('LOSE'," & session("defender") & ",0,"&date&");"
						conn.execute "insert into fighthistorytable (result,userpetid,strength,battledate) values ('WINS'," & session("attacker") & ",100,"&date&");"
						conn.execute "update livefight set result = 'WINS' where fightid=" &session("fightid")& ";"
						conn.execute "update ad set p1 = "&session("petselected")&" where fightid=" &session("fightid")& ";"
						Response.Redirect("resultfight.asp")
						session("first") = ""
					end if
				end if
				rvd.close
		
				
			end if
		end if		
			set rvd = Server.CreateObject("Adodb.recordset")
				rvd.open "select result from livefight where fightid=" & session("fightid"),conn
					if not rvd.eof then
						if not rvd("result") = "" then
								conn.execute "update ad set p2 = "&session("petselected")&" where fightid=" &session("fightid")& ";"
								Response.Redirect("resultfight.asp")
								session("first") = ""
						end if
					end if
				rvd.close
						
 		Response.Write(cint(rsd("aid")) = cint(session("petselected")))
			

		if  cint(rsd("aid")) = cint(session("petselected")) then
				rsd("av") = 0
				rsd.update
				Response.Redirect("attack.asp")
		
		else
				rsd("dv") = 0
				rsd.update
				Response.Redirect("defend.asp")		
			
		end if

		
%>