<% if session("username")="" then Response.Redirect("login.asp") end if %>

<% chkmenu=10 %> <%set rs = server.CreateObject("ADODB.RECORDSET") rs.open "SELECT * FROM livefight where player1 =" & session("petselected") & " or player2 =" & session("petselected") &";",conn if rs.eof then Response.Redirect("arena.asp?s=1") end if player1 = rs("player1") player2 = rs("player2") set rsp = server.CreateObject("ADODB.RECORDSET") rsp.open "select * from ad where fightid=" & session("fightid"),conn,3,2%> <%if rsp("did") > 0 and rsp("aid") > 0 then attacker=rsp("aid") defender=rsp("did") rsp("counter1") = clng(rsp("counter1")) + 2 rsp.update if rsp("counter1") > 30 then set atdf = Server.CreateObject("ADODB.RECORDSET") atdf.open "select * from livefight where fightid =" & session("fightid"),conn if not atdf("player1") = session("petselected") then set atdfd = Server.CreateObject("ADODB.RECORDSET") atdfd.open "SELECT UserTable.*,livefight.betamount FROM (UserTable INNER JOIN UserPetTable ON UserTable.userid = UserPetTable.userid) INNER JOIN livefight ON UserPetTable.userPetId = livefight.player1 WHERE (((livefight.player1)="& atdf("player1") &"));",conn betamount = atdfd("betamount") otheruser = atdfd("userid") conn.execute "update usertable set moneyleft = "& cdbl(atdfd("moneyleft")) - cdbl(atdfd("betamount")) & " where userid = " & otheruser else set atdfd = Server.CreateObject("ADODB.RECORDSET") atdfd.open "SELECT UserTable.*,livefight.betamount FROM (UserTable INNER JOIN UserPetTable ON UserTable.userid = UserPetTable.userid) INNER JOIN livefight ON UserPetTable.userPetId = livefight.player2 WHERE (((livefight.player2)="& atdf("player2") &"));",conn otheruser = atdfd("userid") betamount = atdfd("betamount") conn.execute "update usertable set moneyleft = "& cdbl(atdfd("moneyleft")) - cdbl(atdfd("betamount")) & " where userid = " & otheruser end if set atdfd = Server.CreateObject("ADODB.RECORDSET") atdfd.open "SELECT * from usertable where userid="&session("userid"),conn conn.execute "update usertable set moneyleft = "& cdbl(atdfd("moneyleft")) + cdbl(betamount) & " where userid = " & session("userid") conn.execute "delete * from ad where fightid = " & session("fightid") conn.execute "delete * from livefight where fightid = " & session("fightid") response.redirect("arena.asp") end if else attacker=player1 defender=player2 end if rs.close rs.open "SELECT UserPetTable.status,UserPetTable.userpetName, PetTable.smallimg,PetTable.petName, UserPetTable.creationDate, livefight.strength1, livefight.player1 FROM livefight INNER JOIN (PetTable INNER JOIN UserPetTable ON PetTable.petId = UserPetTable.petId) ON livefight.player1 = UserPetTable.userPetId WHERE (((livefight.player1)="&player1&"));",conn %> <%if request("p") = 1 then Response.write("Please Choose Weapon First") end if%>     Player 1 stats " width="40" height="40"> Name <%=rs("userpetname")%> Type <%=rs("petname")%> Age <%if not rs("status") = "Growing" then%> <%dte = datediff ("d",Cdate(rs("creationdate")),Now)%> <%=dte%> <%else%> Growing <%end if%> Wins <% rs.close rs.open "SELECT Count(FightHistoryTable.userpetid) AS CountOfuserpetid, FightHistoryTable.Result FROM FightHistoryTable GROUP BY FightHistoryTable.userpetid, FightHistoryTable.Result HAVING (((FightHistoryTable.userpetid)="&player1&") AND ((FightHistoryTable.Result)='WIN'));",conn if not rs.eof then %> <%=rs("countofuserpetid")%> <%else%> 0 <%end if%> Loses <% rs.close rs.open "SELECT Count(FightHistoryTable.userpetid) AS CountOfuserpetid, FightHistoryTable.Result FROM FightHistoryTable GROUP BY FightHistoryTable.userpetid, FightHistoryTable.Result HAVING (((FightHistoryTable.userpetid)="&player1&") AND ((FightHistoryTable.Result)='LOSE'));",conn if not rs.eof then %> <%=rs("countofuserpetid")%> <%else%> 0 <%end if%> <% set ar = Server.CreateObject("ADODB.RECORDSET") ar.open "select * from userpettable where userpetid="& player1,conn set at = Server.CreateObject("ADODB.RECORDSET") at.open "SELECT livefight.strength1 FROM livefight WHERE (((livefight.player1)="&player1&"));",conn if not at.eof then strength = at("strength1") else at.close at.open "SELECT livefight.strength2 FROM livefight WHERE (((livefight.player2)="&player2&"));",conn strength = at("strength2") end if %> Player1 Name: <%=ar("userpetname")%> Strength: <%=strength%> <% set ar = Server.CreateObject("ADODB.RECORDSET") ar.open "select * from userpettable where userpetid="& player2,conn set at = Server.CreateObject("ADODB.RECORDSET") at.open "SELECT livefight.strength2 FROM livefight WHERE (((livefight.player2)="&player2&"));",conn if not at.eof then strength = at("strength2") else at.close at.open "SELECT livefight.strength1 FROM livefight WHERE (((livefight.player1)="&player1&"));",conn strength = at("strength1") end if %> Player2 Name: <%=ar("userpetname")%> Strength: <%=strength%> "> <% rs.close rs.open "SELECT UserPetTable.status, UserPetTable.userpetName, PetTable.smallimg, PetTable.petName, UserPetTable.creationDate, livefight.strength1, livefight.player2 FROM (PetTable INNER JOIN UserPetTable ON PetTable.petId = UserPetTable.petId) INNER JOIN livefight ON UserPetTable.userPetId = livefight.player2 WHERE (((livefight.player2)=" & player2 & "));",conn %> Player 2 stats " width="40" height="40"> Name <%=rs("userpetname")%> Type <%=rs("petname")%> Age <%if not rs("status") = "Growing" then%> <%dte = datediff ("d",Cdate(rs("creationdate")),Now)%> <%=dte%> <%else%> Growing <%end if%> Wins <% rs.close rs.open "SELECT Count(FightHistoryTable.userpetid) AS CountOfuserpetid, FightHistoryTable.Result FROM FightHistoryTable GROUP BY FightHistoryTable.userpetid, FightHistoryTable.Result HAVING (((FightHistoryTable.userpetid)="&player1&") AND ((FightHistoryTable.Result)='WIN'));",conn if not rs.eof then %> <%=rs("countofuserpetid")%> <%else%> 0 <%end if%> Loses <% rs.close rs.open "SELECT Count(FightHistoryTable.userpetid) AS CountOfuserpetid, FightHistoryTable.Result FROM FightHistoryTable GROUP BY FightHistoryTable.userpetid, FightHistoryTable.Result HAVING (((FightHistoryTable.userpetid)="&player1&") AND ((FightHistoryTable.Result)='LOSE'));",conn if not rs.eof then %> <%=rs("countofuserpetid")%> <%else%> 0 <%end if%>       <% set ad = Server.CreateObject("Adodb.RECORDSET") ad.open "select * from ad where fightid = " & session("fightid") ,conn if ad("av") = 1 then Response.Redirect("calculationchoose.asp") end if %> Waiting for attacker to attack...   <% if not session("petitemid")="" then set rsp =Server.CreateObject("adodb.recordset") rsp.open "SELECT UserPetTable.strength,UserPetTable.userpetName, PetTable.petName, UserPetTable.energylevel, PetTable.smallimg FROM PetTable INNER JOIN UserPetTable ON PetTable.petId = UserPetTable.petId WHERE (((UserPetTable.userPetId)=" & session("petitemid") & "));",conn if not rsp.eof then %> <%end if end if %> " width="34" height="34"> Pet Name <%=rsp("userpetname")%> Pet Type <%=rsp("petname")%> Pet Strength <%=rsp("strength")%> No. of weapons <%set rspp = Server.CreateObject("ADODB.RECORDSET") rspp.open "select count(weaponId) as countofweapon from weaponpettable where userpetid="&session("petselected"),conn if rspp("countofweapon") = "" then Response.Write("0") else Response.Write(rspp("countofweapon")) end if %> Energy Level <%=rsp("energylevel")%>