<!--#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&"&amp;saytk="&saytk&"'>返回</a><br/>--------<br/><a href='/bbs/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>社区</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='/bbs/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&"&amp;saytk="&saytk&"'>社区</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&"&amp;saytk="&saytk&"'>再来一次</a><br/>--------<br/><a href='/bbs/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>社区</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&"&amp;saytk="&saytk&"'>再来一次</a><br/>--------<br/><a href='/bbs/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>社区</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 
    response.write"<br/>哈哈哈哈~捡到98块钱，也不知是那个傻冒掉的，今天真是走运啦！"
    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 
    response.write"<br/>今天是什么节日啊？怎么每个女孩手里都拿着花啊？哦~对了！今天好像是情人节！唉~真悲惨人家过节我巡逻！还是假装没看见吧！闪人~水点-300"
    sql="update users set myjb=myjb-300 where id='"& myid &"'"
   conn.Execute(sql)
   end if 
if d2=3 and d3=3 or d2=8 and d3=8  then 
    response.write"<br/>糟糕怎么走进死胡同里了，正预往回走时，突然一道白光闪过，天降仙女向你招手，走进一看，居然是传说中的小龙女前来指点武功！经验增加5点,"&getcent&"-900"
    sql="update users set myjb=myjb-900,myjy=myjy+5 where id='"& myid &"'"
   conn.Execute(sql)
   end if 
if d2=4 and d3=4 or d2=9 and d3=9  then 
    response.write"<br/>抓贼呀，有小偷~不远处传来了一女孩的呼叫声，正在巡逻的你听到叫声会怎么做那？闲事还是少管的好，假装没看见！"&getcent&"-600.经验+1"
    sql="update users set myjb=myjb-600,myjy=myjy+1 where id='"& myid &"'"
   conn.Execute(sql)
   end if 
if d2=5 and d3=5 or d2=10 and d3=10  then 
    response.write"<br/>街边遇见乞丐~唉~看着真可怜，给他1000"&getcent&"买点吃的吧！谁让咱是大善人那，也算积得吧！"
    sql="update users set myjb=myjb-1000 where id='"& myid &"'"
   conn.Execute(sql)
   end if 



if ds=d1 then
    
     response.write "<br/>"
    response.write "<br/>哎哟！谁~是谁呀~香蕉皮怎么乱丢啊~摔的我好惨！唉~现在的人可真是没有功徳啊，这么漂亮的大街垃圾乱丢了一大堆，还是做做好事帮忙扔进垃圾箱吧！付了医药费:"&getcent&"-2000点,经验增加3" 
     sql="update users set myjb=myjb-2000,myjy=myjy+3 where id='"& myid &"'"
    conn.Execute(sql)
   else

      response.write "<br/>太平街上的太平天！哈哈哈哈~今天总的来说天气不错，心情不错，自己也不错，相安无事看来今天可以早点收工咯<br/>收入300"&getcent&"<br/>经验+5"
     sql="update users set myjb=myjb+300,myjy=myjy+5 where id='"& myid &"'"
    conn.Execute(sql)
   end if
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
If saytk>1 then%>
<form name="form" method="post" action="dj.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">
<%
response.write "<input type=""hidden"" name=""num"" value=""5""/>"
response.write "<input type=""hidden"" name=""select"" value=""1""/>"
response.write "<input type=""submit"" name=""Submit"" value=""继续巡逻""></form><br/>"
else%>

<br/><anchor>继续巡逻<go method="post" href='fzc.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()
%>
