<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
 


<%
call head()
Call saycarda("火车站巡逻")

dim num,msg
num=request("num")
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select * from users where id="&myid&""
  objgbrs.open ssql,conn
if num<>"" then
   num=Clng(num)
   if num>Clng(objgbrs("myjb")) or Clng(objgbrs("myjb")) < 1000 then
      msg="1000"&getcent&"都没有还想巡逻？倒！回家吧`~嘿嘿 `~攒够"&getcent&"再来贝`~发贴以及回帖可以快速赚取"&getcent&"哦~"
	  response.write msg & "<br/><a href='index.asp?sid=" & sid & "'>返回</a><br/>--------<br/><a href='/bbs/index.asp?sid=" & sid & "'>社区</a></p></card></wml>"
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
	response.end
   end if
   if num<5 then
      msg="出错了"
      response.write msg & "<br/>--------<br/><a href='/77mm/index.asp?wap=" & wap & "'>社区首页</a></p></card></wml>"
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
	response.end
   end if
   if objgbrs("myjy")<200 then
      msg="很抱歉.您的经验不足200.不能巡逻哦`~~攒够经验再来贝`~发贴以及回帖可以快速赚取经验哦~"
      response.write msg & "<br/>--------<br/><a href='/bbs/index.asp?sid=" & sid & "'>社区</a></p></card></wml>"
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
	response.end
   end if
  else
    msg="巡逻可不是件容易的事哦!"
      response.write msg & "<br/><a href='index.asp?sid=" & sid & "'>再来一次</a><br/>--------<br/><a href='/bbs/index.asp?sid=" & sid & "'>社区</a></p></card></wml>"
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
	response.end
  end if
  if Clng(request("select"))>6 or Clng(request("select"))<1 then
      conn.Execute(sql)
      msg=" 数据非法,扣除10000"&getcent&""
      response.write msg & "<br/><a href='index.asp?sid=" & sid & "'>再来一次</a><br/>--------<br/><a href='/bbs/index.asp?sid=" & sid & "'>社区</a></p></card></wml>"
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
	response.end
  end if
Randomize
ds=Clng(request("select"))
d1=fix(rnd*6)+1
d2=fix(rnd*10)+1
d3=fix(rnd*10)+1
function redx()
d1=fix(rnd*6)+1
if d1>6 then redx
end function


if d2=1 and d3=1 or d2=6 and d3=6  then 
    conn.execute("update users set myjb=myjb+98 where id="&myid)
response.write"哈哈哈哈！捡到98块钱，也不知是那个傻冒掉的。<br/>"
    sql="update users set myjb=myjb+98 where id='"& myid &"'"
   conn.Execute(sql)

   end if 

if d2=2 and d3=2 or d2=7 and d3=7  then 
    conn.execute("update users set myjb=myjb+10 where id="&myid)
response.write"呵呵！脚下有十块钱，快收起来。"
    sql="update users set myjb=myjb+ " & num & "*2 where id='"& myid &"'"
   conn.Execute(sql)
    response.write"<br/>您现在有"&getcent&":"& myjb &"<br/>经验:"& myjy &""
   end if 
if d2=3 and d3=3 or d2=8 and d3=8  then 
    response.write"<br/>遇小龙女指点武功，内力大增2点。"
    sql="update users set myjy=myjy+2 where id='"& myid &"'"
   conn.Execute(sql)
    response.write"<br/>您现在有"&getcent&":"& myjb &"<br/>经验:"& myjy &""
   end if 
if d2=4 and d3=4 or d2=9 and d3=9  then 
    response.write"倒霉！不小心在门口掉了1000块钱"
    conn.execute("update users set myjb=myjb-1000 where id="&myid)
sql="update users set myjb=myjb-1000 where id='"& myid &"'"
   conn.Execute(sql)
    response.write"<br/>您现在有"&getcent&":"& myjb &"<br/>经验:"& myjy &""
   end if 
if d2=5 and d3=5 or d2=10 and d3=10  then 
    response.write"遇见要钱的看着真可怜，给888元吧！"
    conn.execute("update users set myjb=myjb-888 where id="&myid)
sql="update users set myjb=myjb-888 where id='"& myid &"'"
   conn.Execute(sql)
    response.write"<br/>您现在有"&getcent&":"& myjb &"<br/>经验:"& myjy &""
   end if 




if ds=d1 then
    
     response.write "<br/>"
    response.write "<br/>火车站人太多，不过运气还不错，遇见几个吸毒仔收到保护费652"&getcent&"。经验加2" 
     conn.execute("update users set myjb=myjb-652 where id="&myid)
sql="update users set myjb=myjb-652,myjy=myjy+2 where id='"& myid &"'"
    conn.Execute(sql)
    response.write"<br/>您现在有"&getcent&":"& myjb &"<br/>经验:"& myjy &""
   else
    response.write ""
      response.write "<br/>小子耍长咯吧？来火车站收保护费，遇见几个小混混打架你被打伤住院.<br/>花了医药费336<br/>经验增长1"
     conn.execute("update users set myjb=myjb-336,myjy=myjy+1 where id="&myid)
sql="update users set myjb=myjb-336,myjy=myjy+1 where id='"& myid &"'"
    conn.Execute(sql)
    response.write"<br/>您现在有"&getcent&":"& myjb &"<br/>经验:"& myjy &""
   end if
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
If saytk>1 then%>

<form name="form" method="post" action="hcz.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">
<%
response.write "<input type=""hidden"" name=""select"" value=""1""/>"
response.write "<input type=""hidden"" name=""num"" value=""5""/>"
response.write "<input type=""submit"" name=""Submit"" value=""继续巡逻""></form><br/>"
else
%>
<br/><anchor>继续巡逻<go method="post" href='jb.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'><postfield name="num" value="5"/><postfield name="select" value="1"/></go></anchor>
<%End if%>
<br/>--------<br/>
<a href='index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>巡逻</a>-<a href='/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>社区</a>-<a href='/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>首页</a>
<%Call headsay()
%>

