<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="../../mywp.asp"-->
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"

zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
nowinroom=session("nowinroom")
if zhbg_name="" then 
Response.Write "<script language=javascript>{alert('提示：您没有登陆或已经超时断开连接，请重新登陆！');parent.history.go(-1);}</script>" 
Response.End 
end if
if Instr(LCase(Application("zhbg_useronlinename"&session("nowinroom")))," "&LCase(zhbg_name)&" ")=0 then
	Response.Write "<script Language=Javascript>alert('提示：你不能进行操作，进行此操作必须进入聊天室！');location.href = 'javascript:history.go(-1)';</script>"
	Response.End
end if
gwm="变异吸血蚊"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb") 
rs.open "select * from 用户 where 姓名='"&zhbg_name&"'",conn
tl=rs("体力")
nl=rs("内力")
hydj=rs("会员等级")
dj=rs("等级")
select case hydj
	case 0
		jgsj=320
	case 1
		jgsj=260
	case 2
		jgsj=220
	case 3
		jgsj=180
	case 4
		jgsj=130
	case 5
		jgsj=100
        case 6
		jgsj=60
sj=DateDiff("s",rs("操作时间"),now())
	s=jgsj-sj
end select
if dj<50 or dj>100 then 
	            Response.Write "<script Language=Javascript>alert('提示：您的等级不符合进入条件。进入初级怪物区的限制是：100>等级>50。！');location.href = 'javascript:history.go(-1)';</script>"
	            Response.End
end if
if tl<0 then 
	Response.Write "<script Language=Javascript>alert('提示：您已经 挂了。。55555555下次注意点。！');location.href = '../../EXIT.ASP';</script>"
	Response.End
end if
%>
<HTML>
<HEAD>
<TITLE>梦幻魔界--<%=gwm%></TITLE>
<link href="../../css.css" rel=stylesheet type="text/css">
<body oncontextmenu=self.event.returnValue=false bgcolor=#000000>
<br><br>
<table width="545" border="0" align=center cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr><td width="223" height="183" valign="top">
  <div align=center><img src=pic/xxw.gif width=160 height=128></div></td>
    <td width="316" valign="top">提示：<%
if Minute(time())>30 or Minute(time())>=30 then
	Response.Write "<font color=ff0000 face=粗体>梦幻魔界尚未开放</font>"
else
	Response.Write "<font color=ff0000 face=粗体>梦幻魔界开始放猎</font>"
end if
%>
<p>操作：<a href=xxw1.asp><font color=ff6600><b>发动攻击</b></font></a> <a href=zhw.asp><font color=red><b>唤醒怪物</b></font></a></p>
<p align=left>说明：每个小时前30分钟，可以来梦幻魔界打猎，首先体力内力要大于50000点，注意点别挂就是的，呵呵，打死怪物后会根据怪物的属性级别可以随机获得：合成极品武器的物品、积分（存点）、金币、卡片、配药、极品装备等。当怪物被消灭后，想要再打，就必须将其唤醒，这需要耗费您的10000点体力，还要注意您唤醒的怪物其他玩家也可以打，要抓紧时间哦。</p></td>
</tr></table>
<table align=center width="500"><tr><td>
猎杀者：<%=rs("姓名")%> 会员等级：<%=rs("会员等级")%>级 时间限制：<%=jgsj%>秒 
<% if s>0 then 
Response.Write "还差：<font color=00ff00><b>"&s&"</b><font><font color=ff6600> 秒</font></font></div>"
else
Response.Write "<font color=00ff00>可以猎杀<font></font></div>"
end if %></td></tr>
</table>
<br>
<table border="1" width=650 cellspacing="0" cellpadding="0" bordercolor="#cccccc" height="26" align=center>
<tr>
<td height=25 align=center>怪物名</td>
<td height=25 align=center>体力</td>
<td height=25 align=center>杀气</td>
<td height=25 align=center>攻击</td>
<td height=25 align=center>防御</td>
<td height=25 align=center>等级</td>
<td height=25 align=center>状态</td>
<td height=25 align=center>猎杀者</td>
</tr>
<% 
rs.close
gwm="变异吸血蚊"
rs.open "select * from 怪物 where 姓名='"&gwm&"'",conn,2,2
%>
<tr>
<td height=25 align=center><%=rs("姓名")%></td>
<td height=25 align=center><%=rs("体力")%></td>
<td height=25 align=center><%=rs("杀气")%></td>
<td height=25 align=center><%=rs("攻击")%></td>
<td height=25 align=center><%=rs("防御")%></td>
<td height=25 align=center><%=rs("等级")%></td>
<td height=25 align=center><%=rs("状态")%></td>
<td height=25 align=center><%=rs("猎杀者")%></td>
</tr>
<% rs.close %>
</table>
<br>
<table align=center width="600">
<tr>
<td align=center><div align=center><a href=index.asp>【返回上页】</a> <a href="javascript:this.location.reload()">【刷新本页】</a><br>
  <br>
  版权所有&copy;『非凡国度』</td>
</tr>
</table>