<%if session("userid") = "" then response.Redirect("login.asp") End if %> SelectWeapon Level
 
<% chkmenu=7 %>
<%if Request.QueryString("notmuchmoney") = 1 then Response.Write(" You dont have sufficient money to buy that business...") end if%> <%if Request.QueryString("e") = 1 then Response.Write(" You have to take all weapons from previous levels.") end if%> <%if Request.QueryString("already") = 1 then Response.Write("Your Pet Already had that weapon, please choose different weapon.") end if%> <%if Request("pet") = 1 then Response.Write("Select a Pet First...") end if %> <%if Request("level") = 1 then Response.Write("Your pet does not have enough energy to move to that city...") end if %>
   
LEVEL 1
Hand Weapons
<% set rs1 = server.CreateObject("Adodb.recordset") rs1.open "SELECT userPetTable.userPetId, userPetTable.userid, userPetTable.petId, userPetTable.userpetName FROM userPetTable WHERE (((userPetTable.userid)=" & session("userid") & ") AND ((userPetTable.energylevel)>0) AND ((userPetTable.status)='Grown Up')) ORDER BY userPetTable.userpetName;",conn if rs1.eof then Response.Redirect("pets.asp?p=1") end if %> <%if request("flag") = 2 then session("petitemid") = request("selectedpet") end if%> <%if session("petitemid")= "" then%> <%if not rs1.eof then%> <%session("petitemid") = rs1("userpetid") sqlstr = "select energylevel,cityid from userpettable where energylevel > 0 and userpetid = " & rs1("userpetid") end if else sqlstr = "select energylevel,cityid from userpettable where energylevel > 0 and userpetid = " & session("petitemid") end if dim ppid if session("petitemid")= "" then%> <%if not rs1.eof then%> <%ppid=rs1("petid") %> <%else%> ppid=0 <%end if%> <%else%> <%ppid=session("petitemid")%> <%end if%> <%response.Write("") %> Select a Pet
<%if not session("petitemid") = "" then rs1.open "SELECT PetTable.petId,PetTable.pet_path FROM PetTable INNER JOIN UserPetTable ON PetTable.petId = UserPetTable.petId WHERE (((UserPetTable.userPetId)=" & session("petitemid") & ") and energylevel > 0);",conn if not rs1.eof then %> " width="100" height="100" > <% end if end if%>
LEVEL 2
Hand Guns
LEVEL 3
Assault Weapons
LEVEL 4
Explosive Devices
LEVEL 5
Heavy Artillary



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 Mucho Weapons are added regularly!!!
<% if not session("petitemid")="" then set rsp =Server.CreateObject("adodb.recordset") rsp.open "SELECT 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 %>
" width="34" height="34">
Pet Name <%=rsp("userpetname")%>
Pet Type <%=rsp("petname")%>
Energy Level <%=rsp("energylevel")%>
 
<%end if end if %>
<%set rsi = Server.CreateObject("adodb.recordset") rsi.open "SELECT weapontable.weaponName, weaponpetTable.Cost, weaponpetTable.quantity FROM (UserPetTable INNER JOIN weaponpetTable ON UserPetTable.userPetId = weaponpetTable.userpetid) INNER JOIN weapontable ON weaponpetTable.weaponId = weapontable.weaponId WHERE (((UserPetTable.userPetId)=" &session("petitemid")& "));",conn ,adOpenStatic, adLockReadOnly if not rsi.eof then rsi.move clng(request("total"))+0,1 %> 0 <%else%> <%=request("total")%> <%end if%> " > <%for i=0 to 4 if not rsi.eof then total = total + rsi("cost") %> <% rsi.movenext end if next%>
Weapon Qty Cost
<%=rsi("weaponname")%> <%=rsi("quantity")%> <%=rsi("cost")%>
<% set rst = Server.CreateObject("Adodb.Recordset") rst.open "SELECT sum(weaponpetTable.cost) as total FROM (UserPetTable INNER JOIN weaponpetTable ON UserPetTable.userPetId = weaponpetTable.userpetid) INNER JOIN weapontable ON weaponpetTable.weaponId = weapontable.weaponId WHERE (((UserPetTable.userPetId)=" &session("petitemid")& "));",conn ,adOpenStatic, adLockReadOnly if not rst.eof then %> Total: <%=rst("total")%> <%end if%>
<%if rsi.recordcount > 5 then%> Back Next <%end if%> <%end if%>