<!--#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 
    response.write"<br/>抓贼呀，有小偷~不远处传来了一女孩的呼叫声，正在巡逻的你听到叫声会怎么做那？<br/>当然是去抓贼拉<br/>"&getcent&"增加500"
    conn.execute("update users set myjb=myjb+500 where id="&myid)
sql="update users set myjb=myjb+500 where id='"& myid &"'"
   conn.Execute(sql)
   end if 

if d2=2 and d3=2 or d2=7 and d3=7  then 
    response.write"<br/>门口人太多不小心被小偷光顾了，丢了900"&getcent&"。"
    conn.execute("update users set myjb=myjb-900 where id="&myid)
sql="update users set myjb=myjb-900 where id='"& myid &"'"
   conn.Execute(sql)
   end if 
if d2=3 and d3=3 or d2=8 and d3=8  then 
    response.write"<br/>遇天使娃娃指点，经验大增1。"&getcent&"-600"
    conn.execute("update users set myjy=myjy+1 where id="&myid)
sql="update users set myjb=myjb-600,myjy=myjy+1 where id='"& myid &"'"
   conn.Execute(sql)
   end if 
if d2=4 and d3=4 or d2=9 and d3=9  then 
    response.write"<br/>哈哈哈哈，遇见站长看破红尘指点，赚了500"&getcent&"。"
    conn.execute("update users set myjb=myjb+500 where id="&myid)
sql="update users set myjb=myjb+500 where id='"& myid &"'"
   conn.Execute(sql)
   end if 
if d2=5 and d3=5 or d2=10 and d3=10  then 
    response.write"<br/>真倒霉！碰见酒仙，没办法请他喝酒用去1230块。经验增加4"
    conn.execute("update users set myjb=myjb-1230,myjy=myjy+4 where id="&myid)
sql="update users set myjb=myjb-1230,myjy=myjy+4 where id='"& myjd &"'"
   conn.Execute(sql)
   end if 



if ds=d1 then
    
     response.write "<br/>"
    response.write "<br/>服装城人真多，生意火啊！一小偷混水摸鱼想偷钱，被你抓住了.<br/>收到保护费90<br/>经验增长2" 
     conn.execute("update users set myjb=myjb+90,myjy=myjy+2 where id="&myid)
sql="update users set myjb=myjb+900,myjy=myjy+5 where id='"& myid &"'"
    conn.Execute(sql)
   else
    response.write ""
      conn.execute("update users set myjb=myjb-10 where id="&myid)
response.write "<br/>服装人太多了！到处走走吧！"&getcent&"-2000,经验+1"
  conn.execute("update users set myjb=myjb-2000,myjy=myjy+1 where id="&myid)   
sql="update users set myjb=myjb-2000,myjy=myjy+1 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="fzc.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='hcz.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()
%>
