<!--#include file="Inc.asp"-->
<!-- #include file=pet_conn.asp -->
<%
If Not BBS94KK.Founduser Then BBS94KK.GoToErr(10)
BBS94KK.Head("宠物宝贝 → 宠物商店")
    dim money,smoney,saveday,allmoney,time1,time2,daikuang,dkdu,daiday,sucmsg
    dim Form_userphoto,Form_FaceUrl,Form_FaceWidth,Form_FaceHeight
    
   Dim Rs,SQL

	set rs=bbs94kk.execute("select * from [kk_User] where name='"&bbs94kk.myname &"'")
      	
    money=rs("coin")
    Form_userphoto = Rs("pic")
	DEF_PointsName="金币"

		Form_FaceWidth = Rs("picW")
		Form_FaceHeight = Rs("picH")
    rs.close    

    
    if request("action") = "buy" then
        
        SQL = "SELECT * FROM mypetdata WHERE username='"&bbs94kk.myname &"' "
                rs.open sql,connpet,1,3
        if not rs.eof then
            call showmessage("你已经有一个宠物了，做人不要三心两意啊~","petmypet.asp")
            elseif request("petname") = "" then
                call showmessage("你还没有选定你要的宝宝啊，请重新选择","petshop.asp")
                elseif money < DEF_PET_eggmoney then
                    call showmessage("你没有足够的钱买宠物","petshop.asp")
                    else
                    
                    dim pettoday,pets,eggmoney,pethp,petsp,petatk,petdef,temp
                    dim atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill
                    
                    Randomize '初始化随机数生成器。

                    pettoday = date()
                    pets = Int((2 * Rnd) + 1)
                    eggmoney = DEF_PET_eggmoney 
                    pethp = DEF_PET_basichp
                    petsp = DEF_PET_basicsp
                    petatk = Int((9 * Rnd) + 1)
                    petdef = Int((9 * Rnd) + 1)

atkskill=0
defskill=0
luckskill=0
learnskill=0
lifeskill=0
hpmaxskill=0


                    
                    
                    
                     if request("petname") = 1 then
                        SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '泡泡龙', 'dragon', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '火', '"&pettoday&"', '"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        'response.write sql : response.end
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个泡泡龙宝宝，一定要好好照顾他/她啊","petmypet.asp")

                    elseif request("petname") = 2 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '猫尾球', 'bst', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '土', '"&pettoday&"', '"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个猫尾球宝宝，一定要好好照顾他/她啊","petmypet.asp")
                    elseif request("petname") = 3 then
                        SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '天使球', 'bird', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '水', '"&pettoday&"', '"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个天使球宝宝，一定要好好照顾他/她啊","petmypet.asp")
                    elseif request("petname") = 4 then
                        SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '苹果宝宝', 'green', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '木', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个苹果宝宝，一定要好好照顾他/她啊","petmypet.asp")
                    elseif request("petname") = 5 then
                        SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '幽灵球', 'devil', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '金', '"&pettoday&"', '"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个幽灵球宝宝，一定要好好照顾他/她啊","petmypet.asp")
                    elseif request("petname") = 6 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '史莱姆', 'bleb', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '水', '"&pettoday&"', '"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个史莱姆宝宝，一定要好好照顾他/她啊","petmypet.asp")
elseif request("petname") = 7 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '星星花', 'flower', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '无', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个星星花宝宝，一定要好好照顾他/她啊","petmypet.asp")

''''''''''''''''''''''新增宝宝''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 8 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty


                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '星星花', 'flower', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '无', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个星星花宝宝，一定要好好照顾他/她啊","petmypet.asp")



                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,hpitem,spitem,expitem)VALUES ('"&Request.Cookies("username")&"', '琥珀球', 'hupo', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '土', '"&pettoday&"', '1', '1', '0')"
                        conn_pet.ExeCute(SQL)
                        message="<li>你已经拥有了一个[琥珀球]宝宝，一定要好好照顾他/她啊"
succeed(message&"<meta http-equiv=refresh content=3;url='petmypet.asp'")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 9 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						

                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '圆圆', 'oo', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '机械', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个圆圆宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 10 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						

                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '灵球', 'lqq', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '无', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个灵球宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 11 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						


                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '暗精灵球', 'dark', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '暗', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个暗精灵球宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 12 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '光精灵球', 'light', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '光', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个光精灵球宝宝，一定要好好照顾他/她啊","petmypet.asp")

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 13 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '邪魂龙球', 'evil', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '暗', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个邪魂龙球宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 14 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '雷鸣伏特球', 'ring', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '光', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个雷鸣伏特球宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 15 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '加尔多努球', 'winter', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '水', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个加尔多努球宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 16 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						

                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '影比特球', 'sky', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '暗', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个影比特球宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 17 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '多洛球', 'king', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '暗', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个多洛球宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 18 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '恐龙球', 'fossil', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '金', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个恐龙球宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 19 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '恶化球', 'moon', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '火', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个恶化球宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 20 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '霸权球', 'east', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '光', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个霸权球宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 21 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '妖巫球', 'newkill', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '暗', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个妖巫球宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 22 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '裂空', 'pc', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '暗', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个裂空宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif request("petname") = 23 then
                         SQL = "UPDATE [kk_user] SET coin=coin-"&eggmoney&" WHERE name='"&bbs94kk.myname &"'"
                        bbs94kk.ExeCute(SQL)
Session(CacheName & "MyInfo") = Empty
						
                        SQL = "INSERT INTO mypetdata (username, mypet,mypetname,mypetlevel,mypetexp,mypethp,mypetmaxhp,mypetsp,mypetatk,mypetdef,mypetdead,mypetsex,mypetsx,petregdate,atkskill,defskill,luckskill,learnskill,lifeskill,hpmaxskill)VALUES ('"& bbs94kk.myname &"', '小苗球', 'newplant', '1', '1', '"&pethp&"', '"&pethp&"', '"&petsp&"', '"&petatk&"', '"&petdef&"', '0', '"&pets&"', '暗', '"&pettoday&"','"&atkskill&"','"&defskill&"','"&luckskill&"','"&learnskill&"','"&lifeskill&"','"&hpmaxskill&"')"
                        connpet.ExeCute(SQL)
						SQL = "INSERT INTO useritem (username) values ('"& bbs94kk.myname &"')"
						connpet.ExeCute(SQL)
                        call showmessage("你已经有了一个小苗球宝宝，一定要好好照顾他/她啊","petmypet.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

                    end if
                end if

        end if
                    

%>
<table width="760" border="0" cellspacing="1" cellpadding="5" align="center" class=94kk>
 
  <tr>
    <td class=tbbg1>
    
<form action=petshop.asp name="petname" mtehod=post>

          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              
            <td width="28%" valign="top">
<table width="79%"  border="0" align="center" cellpadding="3" cellspacing="3">
                  <tr> 
                    <td width="100%"> <div align="center">我的资料</div></td>
                  </tr>
                  <tr> 
                    <td> <div align="center">
					<img border="0" src="<%=Form_userphoto%>" width="<%=Form_FaceWidth%>" height="<%=Form_Faceheight%>">
					<br><img src="images/blank.gif" width="2" height="5"><br>
                    </div></td>
                  </tr>
                  <tr> 
                    <td> <div align="center">
                        <nobr>用户<%=DEF_PointsName%>: <%=money%>金币</nobr>
                        </div></td>
                  </tr>
                </table>
                
              <br>
                <br>
                <table width="79%"  border="0" align="center" cellpadding="3" cellspacing="3">
                  <tr> 
                    <td width="100%"> <div align="center"><img src="images/pet/25.gif"></div>
                      </td>
                  </tr>
                </table> 
                <div align="right"></div></td>
              <td width="72%"><table width="90%"  border="0" align="center" cellpadding="3" cellspacing="3">
                  <tr> 
                    <td width="24%"><div align="center">宠物名称</div></td>
                    <td width="58%"><div align="center">宠物介绍（购买新宠物赠送10点经验）</div></td>
                    <td width="18%"><div align="center">购买宠物</div></td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="images/pet/dragon.gif" width="45" height="46"><br>
                        泡泡龙（龙族系）</div></td>
                    <td>来自东方的一条龙，随着你升级而升级，最终形态将是十分帅气人龙。<br>
                      宠物属性：火 <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font><br> </td>
                    <td><div align="center"> 
                        <input class='94kk' type="radio" name="petname" value="1">
                        购买</div></td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="images/pet/bst.gif" width="45" height="42"><br>
                        猫尾球（兽族系） </div></td>
                    <td>可爱的兽系宠物，也是人类最好的朋友，最终形态是黑暗守护犬。<br>
                      宠物属性：土 <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input class='94kk' type="radio" name="petname" value="2">
                        购买</div></td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="images/pet/bird.gif" width="45" height="44"><br>
                        天使球（飞鸟系） </div></td>
                    <td>小鸟每个人都喜欢，但是你知道他们还有强大的能力，最终形态是大红鹰<br>
                      宠物属性：水 <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input class='94kk' type="radio" name="petname" value="3">
                        购买</div></td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="images/pet/green.gif" width="45" height="46"><br>
                        苹果派（植物系） </div></td>
                    <td>谁也没有想到植物有如此强大的能力，最终形态是节节高<br>
                      宠物属性：木 <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input class='94kk' type="radio" name="petname" value="4">
                        购买</div></td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="images/pet/devil.gif" width="45" height="46"><br>
                        幽灵球（恶魔系） </div></td>
                    <td>一生下来就有神秘色彩的幽灵球，同时也拥有神秘的功能，最终形态是巨灵恶魔<br>
                      宠物属性：金 <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input class='94kk' type="radio" name="petname" value="5">
                        购买</div></td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="images/pet/bleb.gif" width="45" height="46"><br>
                        史莱姆（布丁系） </div></td>
                    <td>来自其他世界的软体动物，最终进化形态是黄金熊布丁<br>
                      宠物属性：水 <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input class='94kk' type="radio" name="petname" value="6">
                        购买</div></td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="images/pet/flower.gif" width="45" height="46"><br>
                        星星花（水晶系） </div></td>
                    <td>又一个来自异世界的小可爱，最终形态为水晶花（特别开放的无属性宠物哦！）<br>
                      宠物属性：无 <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input class='94kk' type="radio" name="petname" value="7">
                        购买</div></td>
                  </tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/hupo.gif" width="45" height="46"><br>
                        琥珀球（昆虫系） </div></td>
                    <td><font color=green>在森林中生长的一种野性怪物，最终形态是瓦斯蛋</font><br>
宠物属性：土 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="8">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/oo.gif" width="45" height="46"><br>
                        圆圆（机械系） </div></td>
                    <td><font color=green>自然的力量所造，进化相对较少，最终形态是幽弗
</font><br>
宠物属性：金 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="9">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/lqq.gif" width="45" height="46"><br>
                        灵秋（神秘系） </div></td>
                    <td><font color=green>一种神秘且怪异的宠物，进化较少，最终形态是怪异蛋
</font><br>
宠物属性：无 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="10">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/dark/dark0.gif" width="45" height="46"><br>
                        暗精灵球(精灵系) </div></td>
                    <td><font color=green>拥有暗黑力量的喑精灵球，最终形态将是地狱守门者。
</font><br>
宠物属性：暗 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="11">
                        购买</div></td></tr>


                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/light/light0.gif" width="45" height="46"><br>
                        光精灵球(精灵系) </div></td>
                    <td><font color=green>拥有光明力量的光精灵球，最终形态将是福音使者。
</font><br>
宠物属性：光 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="12">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/evil/evil0.gif" width="45" height="46"><br>
                        邪魂龙球(恶龙系) </div></td>
                    <td><font color=green>拥有吸食灵魂力量的邪魂龙，最终形态将是狂暴邪魂龙。
</font><br>
宠物属性：暗 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="13">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/ring/ring0.gif" width="45" height="46"><br>
                        雷鸣伏特球(兽系) </div></td>
                    <td><font color=green>生活在云雾中的雷鸣伏特，拥有谁也想不到的强大能力。
</font><br>
宠物属性：光 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="14">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/winter/winter0.gif" width="45" height="46"><br>
                        加尔多努球(冰龙系) </div></td>
                    <td><font color=green>生活在云雾中的雷鸣伏特，拥有谁也想不到的强大能力。
</font><br>
宠物属性：水 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="15">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/sky/sky0.gif" width="45" height="46"><br>
                        影比特球(兽系) </div></td>
                    <td><font color=green>拥有吸食影子力量的影比特, 最终形态将是月光比特。
</font><br>
宠物属性：暗 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="16">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/king/king0.gif" width="45" height="46"><br>
                        多洛球(恶魔系) </div></td>
                    <td><font color=green>拥有召唤力量的多洛球，最终形态是死灵法师。
</font><br>
宠物属性：暗 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="17">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/fossil/fossil0.gif" width="45" height="46"><br>
                        恐龙球(化石系) </div></td>
                    <td><font color=green>在石器时代长大的，最终形态是化骨龙。
</font><br>
宠物属性：金 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="18">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/moon/moon0.gif" width="45" height="46"><br>
                       恶化球(兽人系) </div></td>
                    <td><font color=green>热爱战争的兽人系，最终形态是死灵兽人。
</font><br>
宠物属性：火 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="19">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/east/east0.gif" width="45" height="46"><br>
                       霸权球(兽系) </div></td>
                    <td><font color=green>热爱自然的兽系，最终形态是霸权之魂。
</font><br>
宠物属性：光 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="20">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/newkill/newkill0.gif" width="45" height="46"><br>
                       妖巫球(恶魔系) </div></td>
                    <td><font color=green>栖居在黑暗之地的恶魔，最终形态是古代巫师。
</font><br>
宠物属性：暗 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="21">
                        购买</div></td></tr>

                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/pc/pc0.gif" width="45" height="46"><br>
                       裂空(神秘系) </div></td>
                    <td><font color=green>传说中裂空的王者，操纵黑暗的破坏之王。
</font><br>
宠物属性：暗 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="22">
                        购买</div></td></tr>
                  <tr class=a3> 
                    <td><div align="center"><img src="images/pet/newplant/newplant0.gif" width="45" height="46"><br>
                       小苗球(草系) </div></td>
                    <td><font color=green>黑暗的草木系，最终形态是枯树巨灵神。
</font><br>
宠物属性：暗 攻击力：随机 防御力：随机<br>
                      <font color="#FF0000">出售价格： <%=DEF_PET_eggmoney%> 
                      <%=DEF_PointsName%> </font></td>
                    <td><div align="center"> 
                        <input type="radio" name="petname" value="23">
                        购买</div></td></tr>

                  <tr> 
                    <td colspan="3"><div align="center"> 
                        <input class='94kk' type="hidden" name="action" value="buy">
                        <input class='94kk' name="submit" type="submit" value="购买">
                         </div></td>

                  </tr>

                </table></td>
            </tr>
          </table> 
          </form>


	</td></tr></table>
<%bbs94kk.footer()%>
