<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<!--#INCLUDE file="conn1.asp"-->
<%call head()
pid=request("pid")

id=request("id")
ids=session("id")
Select Case pid
   Case "1"
      itidtit="毒蛇山谷"
   Case "2"
      itidtit="死亡棺材"
   Case "3"
      itidtit="真云天空"
   Case "4"
      itidtit="蛮荒部落"
 End Select
call saycardd(""&itidtit&"")
set rs=Server.CreateObject("ADODB.Recordset")
strSQL="select * from sx where cstr(ids)="&myid
rs.open strSQL,liao,1,1
if rs.recordcount<=1 then
dengji=clng(rs("dj"))
mygj=rs("gj")
myfs=rs("fs")
myjy=rs("jy")
mytl=rs("tl")
myjj=rs("jj")
myxx=rs("xx")
mysd=rs("sd")
end if
   rs.Close
      Set rs=Nothing
dim suijidj(4)
suijidj(0)="1"
	suijidj(1)="2"
	suijidj(2)="3"
	suijidj(3)="4"
	Randomize
	I=Int(Rnd()*4)
	sjdj=suijidj(I)
dim suijidj1(4)
suijidj1(0)="5"
	suijidj1(1)="6"
	suijidj1(2)="7"
	suijidj1(3)="8"
	Randomize
	I=Int(Rnd()*4)
	sjdj1=suijidj1(I)
dim suijidj2(4)
suijidj2(0)="8"
	suijidj2(1)="9"
	suijidj2(2)="10"
	suijidj2(3)="11"
	Randomize
	I=Int(Rnd()*4)
	sjdj2=suijidj2(I)
dim suijidj3(4)
suijidj3(0)="12"
	suijidj3(1)="13"
	suijidj3(2)="14"
	suijidj3(4)="15"
	Randomize
	I=Int(Rnd()*4)
	sjdj3=suijidj3(I)

dim suiji(5)
suiji(0)="10"
	suiji(1)="35"
	suiji(2)="70"
	suiji(3)="45"
	suiji(4)="50"
	Randomize
	I=Int(Rnd()*5)
	sjid=suiji(I)
dim suiji1(7)
        suiji1(0)="60"
	suiji1(1)="55"
	suiji1(2)="60"
	suiji1(3)="75"
	suiji1(4)="80"
	suiji1(5)="95"
	suiji1(6)="100"
	Randomize
	I=Int(Rnd()*7)
	sjid1=suiji1(I)
dim suiji2(7)
        suiji2(0)="100"
	suiji2(1)="120"
	suiji2(2)="135"
	suiji2(3)="140"
	suiji2(4)="110"
	suiji2(5)="155"
	suiji2(6)="170"
	Randomize
	I=Int(Rnd()*7)
	sjid2=suiji2(I)
dim suiji3(7)
        suiji3(0)="200"
	suiji3(1)="235"
	suiji3(2)="240"
	suiji3(3)="245"
	suiji3(4)="250"
	suiji3(5)="255"
	suiji3(6)="260"
	Randomize
	I=Int(Rnd()*7)
	sjid3=suiji3(I)
dim sjgw(25)
        sjgw(0)=""
	sjgw(1)="1"
	sjgw(2)="2"
	sjgw(3)="3"
	sjgw(4)="4"
	sjgw(5)="5"
	sjgw(6)="6"
	sjgw(7)="7"
	sjgw(8)="8"
	sjgw(9)="9"
	sjgw(10)="10"
	sjgw(11)="11"
	sjgw(12)="12"
	sjgw(13)="13"
	sjgw(14)="14"
	sjgw(15)="15"
	sjgw(16)="16"
	sjgw(17)="17"
	sjgw(18)="18"
	sjgw(19)="19"
	sjgw(20)="20"
	sjgw(21)="21"
	sjgw(22)="22"
	sjgw(23)="23"
	sjgw(24)="24"
	sjgw(25)="25"
	Randomize
	I=Int(Rnd()*25)
	sjggw=sjgw(I)

if pid="2" and dengji<=10 then
Response.Write "死亡棺材等级低于<b><u>10</u></b>级不能进入<br/>里面的怪物攻击力威力无比，保命要紧！你还是去别的地方吧。<br/><a href='/BBS/yxxe/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>江湖首页</a>"
call head1()
response.end
end if
if pid="3" and dengji<=20 then
Response.Write "真云天空等级低于<b><u>20</u></b>级不能进入<br/>里面的怪物攻击力威力无比，保命要紧！你还是去别的地方吧。<br/><a href='/BBS/yxxe/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>江湖首页</a>"
call head1()
response.end
end if
if pid="4" and dengji<=30 then
Response.Write "蛮荒部落等级低于<b><u>30</u></b>级不能进入<br/>里面的怪物攻击力威力无比，保命要紧！你还是去别的地方吧。<br/><a href='/BBS/yxxe/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>江湖首页</a>"
call head1()
response.end
end if

if pid="3" then
sjid=sjid*2
sjid1=sjid1*2
sjid2=sjid2*2
sjid3=sjid3*2
end if
if dengji<3 then
tili="30"
jinyan="30"
gong="15"
fan="10"
gdj=sjdj
elseif dengji>=3 and dengji<=6 then
tili="80"
jinyan="80"
gong=sjid1
fan=sjid1
gdj=sjdj1
elseif dengji>=7 and dengji<=10 then
tili="200"
jinyan="200"
gong=sjid2
fan=sjid2
gdj=sjdj2

elseif dengji>=11 and dengji<=15 then
tili="400"
jinyan="400"
gong=sjid3
fan=sjid3
gdj=sjdj2

elseif dengji>=16 and dengji<=20 then
tili="500"
jinyan="500"
gong=sjid3
fan=sjid3
gdj=sjdj2

elseif dengji>=21 and dengji<=25 then
tili="700"
jinyan="700"
gong=sjid3
fan=sjid3
gdj=sjdj3

elseif dengji>=26 and dengji<=30 then
tili="1000"
jinyan="1000"
gong=sjid3
fan=sjid3
gdj=sjdj3

elseif dengji>=31 and dengji<=40 then
tili="2000"
jinyan="2000"
gong=sjid3
fan=sjid3
gdj=sjdj3
else
tili="3000"
jinyan="3000"
gong=sjid3
fan=sjid3
gdj=sjdj3
end if

if pid="4" then
jinyan=jinyan*3
gong=gong*3
fan=fan*3
end if

if tili>jinyan then
tili=jinyan
end if
set rs1=Server.CreateObject("ADODB.Recordset")
strSQL="select * from kywap where pid="&pid&" and cstr(ids)="&myid
rs1.open strSQL,liao,1,2
if rs1.recordcount<1 then
rs1.addnew
rs1("ids")=myid
rs1("pid")=pid
rs1("tl")=tili
rs1("jy")=jinyan
rs1("gj")=gong
rs1("fs")=fan
rs1("dj")=gdj
rs1.update
end if
if rs1("tl")>rs1("jy") then
rs1("tl")=rs1("jy")
rs1.update
end if
if pid="1" then
Response.Write "<img src='gw2/gw"&sjggw&".gif' alt='图加载中..'/><br/>在你面前出现了一只怪物<br/>怪物属性:<br/>攻击力:"&rs1("gj")&"<br/>防御力:"&rs1("fs")&"<br/>生命值:"&rs1("tl")&"/"&rs1("jy")&"<br/>-----------<br/>我的属性:<br/>攻击力:"&mygj&"<br/>防御力:"&myfs&"<br/>生命值:"&mytl&"/"&myjy&"<br/><a href='/BBS/yxxe/gong2.asp?pid="&pid&"&amp;t=" & time() & "&amp;sid="&sid&"&amp;saytk="&saytk&"'>攻击</a>|<a href='/BBS/yxxe/yp.asp?pid="&pid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>吃药</a>|<a href='/BBS/yxxe/shou8.asp?pid="&pid&"&amp;t=" & time() & "&amp;sid="&sid&"&amp;saytk="&saytk&"'>防守</a><br/><a href='/BBS/yxxe/tao8.asp?pid="&pid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>逃跑</a>|<a href='/BBS/yxxe/jao.asp?pid="&pid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>魔法卷轴</a><br/>"
end if
if pid="2" then
Response.Write "<img src='gw2/gw"&sjggw&".gif' alt='图加载中..'/><br/>在你面前出现了一只怪物<br/>怪物属性:<br/>攻击力:"&rs1("gj")&"<br/>防御力:"&rs1("fs")&"<br/>生命值:"&rs1("tl")&"/"&rs1("jy")&"<br/>-----------<br/>我的属性:<br/>攻击力:"&mygj&"<br/>防御力:"&myfs&"<br/>生命值:"&mytl&"/"&myjy&"<br/><a href='/BBS/yxxe/gong3.asp?pid="&pid&"&amp;t=" & time() & "&amp;sid="&sid&"&amp;saytk="&saytk&"'>攻击</a>|<a href='/BBS/yxxe/yp.asp?pid="&pid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>吃药</a>|<a href='/BBS/yxxe/shou8.asp?pid="&pid&"&amp;t=" & time() & "&amp;sid="&sid&"&amp;saytk="&saytk&"'>防守</a><br/><a href='/BBS/yxxe/tao8.asp?pid="&pid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>逃跑</a>|<a href='/BBS/yxxe/jao.asp?pid="&pid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>魔法卷轴</a><br/>"
end if
if pid="3" then
Response.Write "<img src='gw2/gw"&sjggw&".gif' alt='图加载中..'/><br/>在你面前出现了一只怪物<br/>怪物属性:<br/>攻击力:"&rs1("gj")&"<br/>防御力:"&rs1("fs")&"<br/>生命值:"&rs1("tl")&"/"&rs1("jy")&"<br/>-----------<br/>我的属性:<br/>攻击力:"&mygj&"<br/>防御力:"&myfs&"<br/>生命值:"&mytl&"/"&myjy&"<br/><a href='/BBS/yxxe/gong4.asp?pid="&pid&"&amp;t=" & time() & "&amp;sid="&sid&"&amp;saytk="&saytk&"'>攻击</a>|<a href='/BBS/yxxe/yp.asp?pid="&pid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>吃药</a>|<a href='/BBS/yxxe/shou8.asp?pid="&pid&"&amp;t=" & time() & "&amp;sid="&sid&"&amp;saytk="&saytk&"'>防守</a><br/><a href='/BBS/yxxe/tao8.asp?pid="&pid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>逃跑</a>|<a href='/BBS/yxxe/jao.asp?pid="&pid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>魔法卷轴</a><br/>"
end if
if pid="4" then
Response.Write "<img src='gw2/gw"&sjggw&".gif' alt='图加载中..'/><br/>在你面前出现了一只怪物<br/>怪物属性:<br/>攻击力:"&rs1("gj")&"<br/>防御力:"&rs1("fs")&"<br/>生命值:"&rs1("tl")&"/"&rs1("jy")&"<br/>-----------<br/>我的属性:<br/>攻击力:"&mygj&"<br/>防御力:"&myfs&"<br/>生命值:"&mytl&"/"&myjy&"<br/><a href='/BBS/yxxe/gong5.asp?pid="&pid&"&amp;t=" & time() & "&amp;sid="&sid&"&amp;saytk="&saytk&"'>攻击</a>|<a href='/BBS/yxxe/yp.asp?pid="&pid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>吃药</a>|<a href='/BBS/yxxe/shou8.asp?pid="&pid&"&amp;t=" & time() & "&amp;sid="&sid&"&amp;saytk="&saytk&"'>防守</a><br/><a href='/BBS/yxxe/tao8.asp?pid="&pid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>逃跑</a>|<a href='/BBS/yxxe/jao.asp?pid="&pid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>魔法卷轴</a><br/>"
end if
   rs1.close
set rs1=Nothing
liao.close
set liao=nothing
%>
-----------<br/>
<!--#INCLUDE file="liao2.asp"-->
<a href="/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[社区首页]</a><br/>
<a href="/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[网站首页]</a>
<%call head1()%>