<% if session("username")="" then Response.Redirect("login.asp") end if %> <% 'if request("pass") = 1 then ' Response.Write("Password Successfuly changed...") 'end if '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> Fight
 
<% chkmenu=10 %>
<% set rs = server.CreateObject("ADODB.RECORDSET") rs.open "SELECT livefight.player1, livefight.player2, UserPetTable.userid FROM livefight INNER JOIN UserPetTable ON livefight.player1 = UserPetTable.userPetId WHERE (((UserPetTable.userid)="&session("userid")&"));",conn if rs.eof then Response.Redirect("arena.asp?s=1") end if player1 = rs("player1") player2 = rs("player2") 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
Name <%=rs("userpetname")%> " width="40" height="40">
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 at = Server.CreateObject("ADODB.RECORDSET") at.open "SELECT UserPetTable.userpetName, livefight.strength1 FROM UserPetTable INNER JOIN livefight ON UserPetTable.userPetId = livefight.player1 WHERE (((livefight.player1)=" & player1 & "));",conn %>
Attacker
Name: <%=at("userpetname")%>
Strength: <%=at("strength1")%>
<%set at = Server.CreateObject("ADODB.RECORDSET") at.open "SELECT PetTable.petName, livefight.strength2 FROM PetTable INNER JOIN livefight ON PetTable.PetId = livefight.player2 WHERE (((livefight.player2)=" & player2 & "));",conn %>
Defender
Name: <%=at("petname")%>
Strength: <%=at("strength2")%>
"> <% rs.close rs.open "SELECT * from pettable where petid = " & player2,conn %>
Player 2 stats
Name <%=rs("petname")%> " width="40" height="40">
Type <%=rs("petname")%>
   
   
   
     
<% total = 0 set weapon = Server.CreateObject("ADODB.RECORDSET") weapon.open "SELECT weapontable.weaponName,weapontable.weaponid FROM (weaponPetTable INNER JOIN weapontable ON weaponPetTable.weaponId = weapontable.weaponId) INNER JOIN LevelWeaponTable ON weapontable.levelId = LevelWeaponTable.levelId WHERE (((weaponPetTable.userpetId)=" & player1 & ") AND ((LevelWeaponTable.levelName) like 'Hand Guns'));",conn %>
Hand Weapons Hand Guns Assault Weapons Explosive Devices Heavy Artillery
<% hw=1 if not weapon.eof then while not weapon.eof total = total + 1 %> <% hw = hw + 1 weapon.movenext wend end if weapon.close weapon.open "SELECT weapontable.weaponName,weapontable.weaponid FROM (weaponPetTable INNER JOIN weapontable ON weaponPetTable.weaponId = weapontable.weaponId) INNER JOIN LevelWeaponTable ON weapontable.levelId = LevelWeaponTable.levelId WHERE (((weaponPetTable.userpetId)=" & player1 & ") AND ((LevelWeaponTable.levelName) like 'Assault Weapons'));",conn %>
  ;javascript:document.frmmain.clickvalue.value=<%=hw+1%>;javascript:document.frmmain.level.value=2;" value="<%=hw+1%>">  <%=weapon("weaponName")%>
<% hg = 1 if not weapon.eof then while not weapon.eof total = total + 1 %> <% hg = hg + 1 weapon.movenext wend end if weapon.close weapon.open "SELECT weapontable.weaponName,weapontable.weaponid FROM (weaponPetTable INNER JOIN weapontable ON weaponPetTable.weaponId = weapontable.weaponId) INNER JOIN LevelWeaponTable ON weapontable.levelId = LevelWeaponTable.levelId WHERE (((weaponPetTable.userpetId)=" & player1 & ") AND ((LevelWeaponTable.levelName) like 'Hand Weapons'));",conn %>
  ;javascript:document.frmmain.clickvalue.value=<%=hg + 1%>;javascript:document.frmmain.level.value=1;" value="<%=hg+1%>">  <%=weapon("weaponName")%>
<% aw = 1 if not weapon.eof then while not weapon.eof total = total + 1 %> <% aw = aw + 1 weapon.movenext wend end if weapon.close weapon.open "SELECT weapontable.weaponName,weapontable.weaponid FROM (weaponPetTable INNER JOIN weapontable ON weaponPetTable.weaponId = weapontable.weaponId) INNER JOIN LevelWeaponTable ON weapontable.levelId = LevelWeaponTable.levelId WHERE (((weaponPetTable.userpetId)=" & player1 & ") AND ((LevelWeaponTable.levelName) like 'Heavy Artillary'));",conn %>
  ;javascript:document.frmmain.clickvalue.value=<%=aw+1%>;javascript:document.frmmain.level.value=3;" value="<%=aw+1%>">  <%=weapon("weaponName")%>
<% ed = 1 if not weapon.eof then%> <%while not weapon.eof total = total + 1 %> <% ed = ed + 1 weapon.movenext wend end if weapon.close weapon.open "SELECT weapontable.weaponName,weapontable.weaponid FROM (weaponPetTable INNER JOIN weapontable ON weaponPetTable.weaponId = weapontable.weaponId) INNER JOIN LevelWeaponTable ON weapontable.levelId = LevelWeaponTable.levelId WHERE (((weaponPetTable.userpetId)=" & player1& ") AND ((LevelWeaponTable.levelName) like 'Explosive Devices'));",conn %>
  ;javascript:document.frmmain.clickvalue.value=<%=ed+1%>;javascript:document.frmmain.level.value=5;" value="<%=ed+1%>">  <%=weapon("weaponName")%>
<% ha = 1 if not weapon.eof then while not weapon.eof total = total + 1 %> <% ha = ha + 1 weapon.movenext wend end if weapon.close %>
  ;javascript:document.frmmain.clickvalue.value=<%=ha+1%>;javascript:document.frmmain.level.value=4;" type="radio" value="<%=ha+1%>">  <%=weapon("weaponName")%>
 
Select Where to attack(1 Place)
Head
Body
Legs

INSTRUCTIONS

First select your pet from the pulldown menu in the middle. Once selected, the current weapons that your pet has are located in the box to the right. To browse through the weapons of a certain weapon level, simply click on the text or the graphic for that weapon level. In order to buy weapons from different weapon levels, your pet must first own every weapon in the previous weapon levels. So in order to buy level 2 weapons, your pet would need to own all level 1 weapons. Each pet can only own 1 of every weapon.

Check back often as new weapons are added regularly!!!
<% 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")%>