<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<%call head()
call saycardd("原始森林")
Server.ScriptTimeout=999
sid=request("sid")
ids=session("id")
pid="1"
%>
<!--#INCLUDE file="conn1.asp"-->
<!--#include file="pk1.asp"-->
<%
set rs=Server.CreateObject("ADODB.Recordset")
strSQL="select * from sx where cstr(ids)="&myid
rs.open strSQL,liao,1,1
if rs("tl")<=1 then
Response.Write "你要注意身体啊!这么点力气还要上山,万一遇到了狼虫虎豹,不是玩完了吗?赶快回去吧!<br/>"
else
dim suiji(21)
suiji(0)="0"
	suiji(1)="0"
	suiji(2)="0"
	suiji(3)="0"
	suiji(4)="0"
	suiji(5)="0"
	suiji(6)="0"
	suiji(7)="0"
	suiji(8)="0"
	suiji(9)="0"
	suiji(10)="1"
	suiji(11)="1"
	suiji(12)="1"
	suiji(13)="1"
	suiji(14)="1"
	suiji(15)="2"
	suiji(16)="2"
	suiji(17)="2"
	suiji(18)="2"
	suiji(19)="3"
	suiji(20)="3"
	Randomize
	I=Int(Rnd()*21)
	mld=suiji(I)
dim suiji1(11)
        suiji1(0)="0"
	suiji1(1)="0"
	suiji1(2)="0"
	suiji1(3)="0"
	suiji1(4)="0"
	suiji1(5)="0"
	suiji1(6)="0"
	suiji1(7)="0"
	suiji1(8)="0"
	suiji1(9)="1"
	suiji1(10)="0"
	Randomize
	I=Int(Rnd()*11)
	sjid=suiji1(I)
if sjid="0" then
if mld="0" then
Response.Write "您有没有用力砍呀?什么也没砍下,白费力气!体力-1<br/>"
else
Response.Write "经过您的努力，您砍下了木料"&mld&"棵,体力-1<br/>"
end if
sql="update wupin set ml=ml+'"&mld&"' where cstr(ids)='"&myid& "'"
  liao.Execute(sql)
sql="update sx set tl=tl-1 where cstr(ids)='"&myid& "'"
  liao.Execute(sql)
Response.Write "<a href='fm.asp?t=" & time() & "&amp;sid=" & sid & "'>继续伐木</a><br/><a href='index.asp?sid="&sid&"&amp;saytk="&saytk&"'>不伐木了,回去</a><br/>"
else
response.redirect "pk.asp?pid=1&sid="&sid&"&amp;saytk="&saytk&""
end if
end if
      Set rs=Nothing
     liao.Close
      Set liao=Nothing
%>
=========<br/>
<a href="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">江湖首页</a><br/>
<a href="/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">社区首页</a><br/>
<a href="/index.asp?sidp=<%=sid%>&amp;saytk=<%=saytk%>">网站首页</a><br/>
<%call head1()%>