

<!--#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/>呵呵~商场的生意就是好啊，人山人海的！呦~这是谁的钱包呀？管他那，谁捡到就是谁的了！失主就认活该倒霉吧！嘿嘿嘿~捡到86快钱。"
    conn.execute("update users set myjb=myjb+86,myjy=myjy+1,mytl=mytl-10 where id="&myid)
sql="update users set myjb=myjb+868 where id='"& myid &"'"
   conn.Execute(sql)
   end if 

if d2=2 and d3=2 or d2=7 and d3=7  then 
    response.write"<br/>今天商场大减价，疯狂让利大出血耶，这等好事怎能错过啊，快步冲到最前线，一定要抢占先机才行啊~全然忘记了今天的任务！被扣除当天工资390快钱。"
   conn.execute("update users set myjb=myjb-390,myjy=myjy+1,mytl=mytl-10 where id="&myid) 
sql="update users set myjb=myjb-390 where id='"& myid &"'"
   conn.Execute(sql)
   end if 
if d2=3 and d3=3 or d2=8 and d3=8  then 
    response.write"<br/>哇哇哇~好漂亮的两位美女耶！ 喂！  口水流都成了河啦，还看！在看给钱！色狼~   啊？看看你怎么啦？见不得人呀？真是的，白来了一顿口舌之争，什么玩意吗~扫兴！呸~呸呸.经验加2."&getcent&"-500"
    conn.execute("update users set myjb=myjb-500,myjy=myjy+2,mytl=mytl-10 where id="&myid)
sql="update users set myjb=myjb-500,myjy=myjy+2 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&"-500"
    conn.execute("update users set myjb=myjb+20,myjy=myjy+2,mytl=mytl-10 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"又是一天了，时间过的可真快呀，想我一世的英名却只混了个巡逻的工作，到现在还一事无成，年少时的梦啊~早已随风不知飞向了何方。~~   喂~ 楼上的~想开点~千万可别往下跳呀~    谁？谁要跳楼啊？楼下的~你在喊谁呀？   就是你呀楼上的，你有什么想不开的呀？非要寻短见？    我？~我说楼下的，你有毛病吧，我只是上来吹风的，神经病。"&getcent&"-500<br/>"
   conn.execute("update users set myjb=myjb-500,myjy=myjy+1,mytl=mytl-10 where id="&myid)
 sql="update users set myjb=myjb-500 where id='"& myid &"'"
   conn.Execute(sql)
   end if 



if ds=d1 then
    
     response.write "<br/>"
    response.write "<br/>听说这家商场顶楼的美食很是出名啊，何不让自己也偶尔的奢侈一下，就算是犒劳犒劳自己吧。来到美食城大吃了一顿。<br/>花掉钱1000块钱<br/>经验增长2" 
     conn.execute("update users set myjb=myjb-1000,myjy=myjy+2,mytl=mytl-10 where id="&myid)
sql="update users set myjb=myjb-1000,myjy=myjy+2 where id='"& imyid &"'"
    conn.Execute(sql)
   else
    response.write ""
      response.write "<br/>今日商场的生意好冷清啊，柜台小姐们都去聊天了，呵呵~看来我也可已找个地方去补补觉咯。打了一夜的麻将可真累啊。<br/>经验增长4."&getcent&"-500"
     conn.execute("update users set myjb=myjb-500,myjy=myjy+4,mytl=mytl-10 where id="&myid)
sql="update users set myjb=myjb-500,myjy=myjy+4 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="sc.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='yc.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()
%>

