<!-- #include file="setup.asp" -->
<%
top
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")

content=HTMLEncode(Request("content"))

sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3


select case Request("menu")

case "qiangqian"
vs=HTMLEncode(Request("vs"))
if vs=Request.Cookies("username") then error("<li>不能自己偷自己！")


if Application(CacheName&"qiangjie")=vs then error("<li>请勿对同一个用户进行操作！")

If conn.Execute("Select id From [user] where username='"&vs&"'" ).eof Then
error("<li>系统不存在"&vs&"的资料")
end if

If conn.Execute("Select savemoney From [user] where username='"&vs&"'" )(0)<500 Then error("<li>对方的存款少于500，您不能再偷他（她）了")


if rs("experience")<150 then
error("<li>您的经验不够！")
end if

if rs("userlife")<60 then
error("<li>您的体力不够！")
end if

Randomize
d2=fix(rnd*300)+1
rs("experience")=rs("experience")-150
rs("userlife")=rs("userlife")-60
rs("money")=rs("money")+d2
rs.update
rs.close

conn.execute("update [user] set savemoney=savemoney-"&d2&" where username='"&vs&"'")


sql="insert into message(author,incept,content) values ('"&Request.Cookies("username")&"','"&vs&"','【系统消息】："&Request.Cookies("username")&"偷了您"&d2&"钱！')"
conn.Execute(SQL)
conn.execute("update [user] set newmessage=newmessage+1 where username='"&vs&"'")

Application(CacheName&"qiangqian") = vs
error2("您已经偷了"&vs&""&d2&"钱！")



case "qiangjie"
vs=HTMLEncode(Request("vs"))
if vs=Request.Cookies("username") then error("<li>不能自己抢自己！")


if Application(CacheName&"qiangjie")=vs then error("<li>请勿对同一个用户进行操作！")

If conn.Execute("Select id From [user] where username='"&vs&"'" ).eof Then
error("<li>系统不存在"&vs&"的资料")
end if
If conn.Execute("Select experience From [user] where username='"&vs&"'" )(0)<100 Then error("<li>对方经验值少于100，您不能再抢他（她）了")


if rs("money")<200 then
error("<li>您的金币不够！")
end if
if rs("userlife")<20 then
error("<li>您的体力不够！")
end if

Randomize
d1=fix(rnd*99)+1
rs("money")=rs("money")-200
rs("userlife")=rs("userlife")-20
rs("experience")=rs("experience")+d1
rs.update
rs.close


conn.execute("update [user] set experience=experience-"&d1&" where username='"&vs&"'")


sql="insert into message(author,incept,content) values ('"&Request.Cookies("username")&"','"&vs&"','【系统消息】："&Request.Cookies("username")&"抢了您"&d1&"点经验值！')"
conn.Execute(SQL)
conn.execute("update [user] set newmessage=newmessage+1 where username='"&vs&"'")

Application(CacheName&"qiangjie") = vs
error2("您已经抢了"&vs&""&d1&"点经验值！")

case "peilian"


if rs("userlife")<90*Request("how") then
message=message&"<li>您的体力不够！"
error(message)
end if
Randomize
d1=fix(rnd*300)+1
rs("money")=rs("money")+d1
rs("userlife")=rs("userlife")-90
rs.update
rs.close
error2("已经增加了 "&d1&" 钱！")

case "dawo"


if rs("experience")<100*Request("how") then
message=message&"<li>今天没顾客找你啊！是不是你经验不够100！"
error(message)
end if
if rs("userlife")<80*Request("how") then
message=message&"<li>你这样子再被打就死定了！"
error(message)
end if

Randomize
d1=fix(rnd*500)+1
rs("money")=rs("money")+d1
rs("userlife")=rs("userlife")-80
rs("experience")=rs("experience")-100
rs.update
rs.close
error2("已经增加了 "&d1&" 钱！")



case "dajia"
vs=HTMLEncode(Request("vs"))
if vs=Request.Cookies("username") then error("<li>不能自己打自己！")


if Application(CacheName&"dajia")=vs then error("<li>请勿对同一个用户进行操作！")

If conn.Execute("Select id From [user] where username='"&vs&"'" ).eof Then
error("<li>系统不存在"&vs&"的资料")
end if
If conn.Execute("Select userlife From [user] where username='"&vs&"'" )(0)<1 Then error("<li>对方的体力已经为0，您不能再打他（她）了")


if rs("money")<1000 then
error("<li>您的金币不够！")
end if

rs("money")=rs("money")-1000
rs.update
rs.close

conn.execute("update [user] set userlife=0 where username='"&vs&"'")

sql="insert into message(author,incept,content) values ('"&Request.Cookies("username")&"','"&vs&"','【系统消息】："&Request.Cookies("username")&"痛打了你一顿，鼻青脸肿的你目前体力为0！')"
conn.Execute(SQL)
conn.execute("update [user] set newmessage=newmessage+1 where username='"&vs&"'")

Application(CacheName&"dajia") = vs
error2(""&vs&"被你痛打了一顿。他的体力为0！")

case "guyong"
vs2=HTMLEncode(Request("vs2"))
vs1=HTMLEncode(Request("vs1"))
if vs2=Request.Cookies("username") then error("<li>不能自己打自己！")
if vs2=vs1 then error("<li>不能让人家自己打自己！")

if Application(CacheName&"guyong")=vs2 then error("<li>请勿对同一个用户进行操作！")

If conn.Execute("Select id From [user] where username='"&vs2&"'" ).eof Then
error("<li>系统不存在"&vs2&"的资料")
end if
If conn.Execute("Select id From [user] where username='"&vs1&"'" ).eof Then
error("<li>系统不存在"&vs1&"的资料")
end if

If conn.Execute("Select userlife From [user] where username='"&vs2&"'" )(0)<1 Then error("<li>对方的体力已经为0，您不能再打他（她）了")


if rs("money")<2000 then
error("<li>您的金币不够！")
end if

rs("money")=rs("money")-2000
rs.update
rs.close

conn.execute("update [user] set userlife=0 where username='"&vs2&"'")
conn.execute("update [user] set savemoney=savemoney+2000 where username='"&vs1&"'")

sql="insert into message(author,incept,content) values ('"&vs1&"','"&vs2&"','【系统消息】："&vs1&"痛打了你一顿，鼻青脸肿的你目前体力为0！')"
conn.Execute(SQL)
conn.execute("update [user] set newmessage=newmessage+1 where username='"&vs2&"'")

Application(CacheName&"guyong") = vs2
error2(""&vs2&"被"&vs1&"痛打了一顿。他的体力为0！")




end select

%>


<title>特殊活动</title>

<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → 
<a href="2013.asp">特殊活动</a></td>
</tr>
</table><br>

<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="111111" width="90%">
<tr>
<td width="90%" height="97"><div align="center">
<center>
<table border="0" cellpadding="3" cellspacing="1" width="760" class=a2>
<tr class=a1>
<td width="50%" height="5" align="center" colspan="2"><b>
陪</b>　<b>练</b></td>
<td width="50%" height="5" align="center" colspan="2"><b>
打</b>　<b>人</b></td>
</tr>
<tr>
<td width="15%" height="4" align="center" rowspan="2" bgcolor="FFFFFF"><FONT color=cccccc>
<IMG src="2013/026.gif" border=1></FONT></td>
<td width="25%" height="2" bgcolor="FFFFFF">名称：陪练<br>
价格：90 <b>体力</b><br>
功能：陪人练拳。如果对方高兴了给你的钱会多点哦</td>
<td width="15%" height="4" align="center" rowspan="2" bgcolor="FFFFFF"><FONT color=cccccc>
<IMG src="2013/011.gif" border=1></FONT></td>
<td width="25%" height="2" bgcolor="FFFFFF">名称：打人<br>
价格：1000 <b>金币</b><br>
功能：打对方一顿，他的体力变为0。</td>
</tr>
<tr>
<td width="25%" height="2" bgcolor="FFFFFF"><form method=POST action=?menu=peilian>
<input type="submit" value="我要陪练" name="Submit"></td></form>
<td width="25%" height="2" bgcolor="FFFFFF"><form method=POST action=?menu=dajia>
<input size="9" name="vs" value="对方用户名" onfocus="this.value = &quot;&quot;;">
<input type="submit" value=" 打 他 " name="Submit2"></td></form>
</tr>
</table>
</center>
</div><br>
</td>
</tr>

<tr>
<td width="90%" height="97"><div align="center">
<center>
<table border="0" cellpadding="3" cellspacing="1" width="760" class=a2>
<tr class=a1>
<td width="50%" height="5" align="center" colspan="2"><b>
抢</b>　<b>劫</b></td>
<td width="50%" height="5" align="center" colspan="2"><b>
偷</b>　<b>钱</b></td>
</tr>
<tr>
<td width="15%" height="4" align="center" rowspan="2" bgcolor="FFFFFF"><FONT color=cccccc>
<IMG src="2013/025.gif" border=1></FONT></td>
<td width="25%" height="2" bgcolor="FFFFFF">名称：抢劫<br>
价格：200 <b>金币</b><br>
功能：抢对方的经验值，自己耗费体力20点。</td>
<td width="15%" height="4" align="center" rowspan="2" bgcolor="FFFFFF"><FONT color=cccccc>
<IMG src="2013/023.gif" border=1></FONT></td>
<td width="25%" height="2" bgcolor="FFFFFF">名称：偷钱<br>
价格：60 <b>体力</b> 150 <b>经验</b><br>
功能：把对方的存款偷过来。转到自己的钱包里。</td>
</tr>
<tr>
<td width="25%" height="2" bgcolor="FFFFFF"><form method=POST action=?menu=qiangjie>
<input size="9" name="vs" value="对方用户名" onfocus="this.value = &quot;&quot;;">
<input type="submit" value=" 抢 他 " name="Submit1"></td></form>
<td width="25%" height="2" bgcolor="FFFFFF"><form method=POST action=?menu=qiangqian>
<input size="9" name="vs" value="对方用户名" onfocus="this.value = &quot;&quot;;">
<input type="submit" value=" 偷 他 " name="Submit2"></td></form>
</tr>
</table>
</center>
</div><br>
</td>
</tr>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="111111" width="90%">
<tr>
<td width="90%" height="97"><div align="center">
<center>
<table border="0" cellpadding="3" cellspacing="1" width="760" class=a2>
<tr class=a1>
<td width="50%" height="5" align="center" colspan="2"><b>
受</b>　<b>虐</b></td>
<td width="50%" height="5" align="center" colspan="2"><b>
暂</b>　<b>无</b></td>
</tr>
<tr>
<td width="15%" height="4" align="center" rowspan="2" bgcolor="FFFFFF"><FONT color=cccccc>
<IMG src="2013/028.gif" border=1></FONT></td>
<td width="25%" height="2" bgcolor="FFFFFF">名称：让人虐待<br>
价格：100 <b>经验</b> 80 <b>体力</b><br>
功能：让受虐狂打你。要钱不要脸，经验换金钱。</td>
<td width="15%" height="4" align="center" rowspan="2" bgcolor="FFFFFF"><FONT color=cccccc>
<IMG src="2013/029.gif" border=1></FONT></td>
<td width="25%" height="2" bgcolor="FFFFFF">名称：雇佣打手<br>
价格：2000 <b>金钱</b><br>
功能：花钱雇别人帮你打人。</td>
</tr>
<tr>
<td width="25%" height="2" bgcolor="FFFFFF"><form method=POST action=?menu=dawo>
<input type="submit" value="快打我吧" name="Submit"></td></form>
<td width="25%" height="2" bgcolor="FFFFFF"><form method=POST action=?menu=guyong>
<input size="9" name="vs1" value="雇佣人名" onfocus="this.value = &quot;&quot;;">
<input size="9" name="vs2" value="要打的人" onfocus="this.value = &quot;&quot;;"><input type="submit" value=" 打 他 " name="Submit2">
</td></form>
</tr>
</table>
</center>
</div><br>
</td>
</tr>

</center>

<%
rs.close
htmlend%>