<!--#include file="../inc.asp"-->
<!--#include file="../ydzqq.asp"-->
<% Call head()
Call cardgame("幸运轮盘",yanse10)

img="<img src='h.gif' alt='位置'/>"
dim points,rpg,a,rpg_times,s,r
points=Session("points")
rpg=Session("RPG")
if points="" then points=0
a=Request.Querystring("a")
if a="tou" then
rpg_times=Request.cookies("rpg_times")
if rpg_times="" then rpg_times=0
rpg_times=rpg_times+1
Randomize timer
s=rnd/(rnd+1)+1
r=int(rnd*8)+1
points=points+r
if points>70 then
points=0
response.cookies("rpg_times")=rpg_times
response.cookies("rpg_times").expires=now()+1
end if
session("points")=points
session("RPG")=""
if r<>"" then
jj="您刚才投了"& r &"点<br/>"
end if
else
Randomize timer
r=rnd/(rnd+1)+1
end if
if myjb<1000 then
Response.write "对不起你身上的"&getcent&"不够1000,不能进入游戏<br/>"
Response.write "<a href='/bbs/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>社区首页</a></p></card></wml>"
    response.end
end if
Response.write "欢迎"&myni&"[ID:"&myid&"]来到幸运轮盘<br/>在途中出现"&img&"就是你当前发生的事<br/>你现在有<br/>"&getcent&":"&myjb&"<br/>经验:"&myjy&"<br/>体力:"&mytl&"<br/>魅力:"&myml&"<br/>才华:"&mych&"<br/>"
Response.write jj
Response.write "你当前目前地点"&points&"<br/>我马上掷<a href='xylp.asp?a=tou&amp;r="&r&"&amp;sid="&sid&"&amp;saytk="&saytk&"'><img src='/bbs/game/run.gif' alt='股子'/></a><br/>"
Response.write "<br/>0.出发点："
if points=0 then
Response.write ""&img&"幸运轮盘开始转动了，祝您好运！"
end if
Response.write "<br/>5.酒吧："
if points=5 then
conn.Execute("update users set myjb=myjb+50,myjy=myjy+20,myml=myml+20,mych=mych+1 where id="&myid)
Response.write ""&img&"拣到一条项链，交给警察叔叔，社区奖励50"&getcent&",经验20，魅力20，才华1 "
end if
Response.write "<br/>9.公共汽车： " 
if points=9 then
conn.Execute("update users set myjb=myjb-500,myjy=myjy-500,myml=myml-20,mych=mych-1 where id="&myid)
Response.write ""&img&"被小偷盗窃丢失500"&getcent&"经验-500，魅力-20，才华-1"
end if
Response.write "<br/>13-14.酒店：" 
if points=13 or  points=14 then
conn.Execute("update users set myjb=myjb-1000,myjy=myjy+50,myml=myml+20,mych=mych+1 where id="&myid)
Response.write ""&img&"花1000"&getcent&"住高级宾馆享受奢侈生活！经验+50，才华+1，魅力+20"
end if
Response.write "<br/>19-20.夜总会：" 
if points=19 or  points=20 then
conn.Execute("update users set myjb=myjb-50,myjy=myjy+20,myml=myml-30,mych=mych+0 where id="&myid)
Response.write ""&img&"参加腐败聚会，魅力减少30点！"&getcent&"-50，经验+20"
end if
Response.write "<br/>25.百货公司：" 
if points=25 then
conn.Execute("update users set myjb=myjb+300,myjy=myjy+20,myml=myml+20,mych=mych+1 where id="&myid)
Response.write ""&img&"逛商店恰逢商家大赠送，获得300"&getcent&"！20经验，20魅力.1才华 "
end if
Response.write "<br/>28-29.武馆："
if points=28 or  points=29 then
conn.Execute("update users set myjb=myjb+0,myjy=myjy+30,myml=myml+10,mych=mych+0 where id="&myid)
Response.write ""&img&"拜名师学武，经验提升30点！魅力+10 "
end if
Response.write "<br/>35.广告市场：" 
if points=35 then
conn.Execute("update users set myjb=myjb+100,myjy=myjy+20,myml=myml+20,mych=mych+1 where id="&myid)
Response.write ""&img&"为小家宣传，获得100"&getcent&"！20经验，20魅力.1才华"
end if
Response.write "<br/>38-39.证券所："
if points=38 or  points=39 then
conn.Execute("update users set myjb=myjb-10000,myjy=myjy-5000,myml=myml-1000,mych=mych-100 where id="&myid)
Response.write ""&img&"股市遭遇熊市，全线下跌，投资损失10000"&getcent&"！经验-5000，魅力-1000，才华-100"
end if
Response.write "<br/>45.音乐会："
if points=45 then
conn.Execute("update users set myjb=myjb-100,myjy=myjy+100,myml=myml+50,mych=mych+1 where id="&myid)
Response.write ""&img&"听高雅音乐，"&getcent&"-100，经验+100，魅力加50点。才华+1！"
end if
Response.write "<br/>50.公园："
if points=50 then
conn.Execute("update users set myjb=myjb-3000,myjy=myjy-1000,myml=myml-500,mych=mych-1 where id="&myid)
Response.write ""&img&"路遇水坑，钱包丢失，损失3000"&getcent&"，经验-1000，魅力-500，才华-1"
end if
Response.write "<br/>54-55.溜冰场：" 
if points=54 or  points=55  then
conn.Execute("update users set myjb=myjb+0,myjy=myjy-20,myml=myml-30,mych=mych+0 where id="&myid)
Response.write ""&img&"只顾看美女溜冰，不小心撞倒他人，魅力减少30,经验减少20点！"
end if
Response.write "<br/>60.中心广场：<br/>(奖"&getcent&"3000，经验100，魅力100，才华10)" 
if points=60 then
conn.Execute("update users set myjb=myjb+3000,myjy=myjy+100,myml=myml+100,mych=mych+10 where id="&myid)
Response.write ""&img&"参加义务献血，社区奖励3000"&getcent&"！经验+100，才华+10，魅力+100"
end if
Response.write "<br/>64-65.大街：" 
if points=64 or  points=65  then
conn.Execute("update users set myjb=myjb-5000,myjy=myjy-1000,myml=myml-500,mych=mych-5 where id="&myid)
Response.write ""&img&"流浪街头，金钱被劫，损失5000"&getcent&"！经验-1000，才华-5，魅力-500"
end if
Response.write "<br/>70.终点站：<br/>奖10000水点,5000经验" 
if points=70 then
conn.Execute("update users set myjb=myjb+10000,myjy=myjy+5000,myml=myml+0,mych=mych+0 where id="&myid)
Response.write ""&img&"顺利到达终点，获得奖金10000"&getcent&"！经验+5000"
end if
Response.write "<br/>幸运轮盘，风险与机遇并存！"
conn.close
Set conn = Nothing
Response.write "<br/><a href=""/bbs/game/index.asp?sid="&sid&"&amp;saytk="&saytk&""">返回娱乐游戏中心</a><br/>"
Response.write "<a href=""/bbs/show.asp?sid="&sid&"&amp;saytk="&saytk&""">地盘</a>&gt;&gt;<a href=""/bbs/index.asp?sid="&sid&"&amp;saytk="&saytk&""">社区</a>>>"&now&""
Response.write "<a href=""/index.asp?sid="&sid&"&amp;saytk="&saytk&""">首页</a><br/>(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]"%>
<%call head1()%>
