<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->

<%Call head()
Call saycarda("捉鱼游戏")
if mytl<20 or mytl>10000 then
Response.Write "你的体力少于20 或大于10000不在正常状态，不能捉鱼<br/>"
response.write"<a href=""../shuxin.asp?saytk="&saytk&"&amp;sid="&sid&""">VIP会员一键恢复属性</a>"
else
response.write "你的财富:"&myjb&"体力:"&mytl&"<br/>"
response.write "你要是运气好碰到福星或灾星,体力还可以大增或大减哦<br/>"
dim fish(20)
fish(0)="你运气还好,能捉到一条香鱼,金币+50,体力-5"
fish(1)="让斗鱼咬了一口,体力-3!"
fish(2)="捉到100鱼,+50金币,-6体力,+4才华"
fish(3)="去了市场卖鱼,币+128"
fish(4)="捉到100条鲑类,体力-10,+150金币,+4魅力"
fish(5)="运气不错,拿到海参滋补,+3体力"
fish(6)="啥都没有捉到~~白做了!"
fish(7)="捉了100条电鳗,+200金币,+4智力"
fish(8)="哈哈,吃了鱼翅,+2体力"
fish(9)="靠,真背~让鄂鱼咬一口,-10体力,花了1000金币看医生"
fish(10)="捉到100条鄂鱼,400金币,-8体力"
fish(11)="刚下海的时候,跌了一跤,体力-3"
fish(12)="哈哈,竟然捉到一只海马,金币+350,体力-6"
fish(13)="捉到100条虹鳟,这下你可爽了,金币+200,魅力+4,体力-3"
fish(14)="捉到100条潜鱼,体力-5,金币+100,魅力+1,智力+1"
fish(15)="去市场卖鱼,得了金币188"
fish(16)="哇,捉到石斑了~得到金币50,智力+2,才华+1,体力-2"
fish(17)="鲍鱼,不错~体力+2."
fish(18)="捉到不少狗鱼,体力-8,金币+300,才华+4"
fish(19)="看见鲨鱼,不过你跑掉.体力-10"
fish(20)="有人抢你的鱼,不过你让他,才华+1,魅力+1"
dim i
Randomize
I=Int(Rnd()*20)
fishcl=fish(i)
if i=0 then
conn.execute("update users set myjb=myjb+50,mytl=mytl-5 where id="&myid)
end if
if i=1 then
conn.execute("update users set myti=mytl-3 where id="&myid)
end if
if i=2 then
conn.execute("update users set myjb=myjb+50,mytl=mytl-6,mych=mych+4 where id="&myid)
end if
if i=3 then
conn.execute("update users set myjb=myjb+128 where id="&myid)
end if
if i=4 then
conn.execute("update users set myjb=myjb+150,mytl=mytl-10,myml=myml+4 where id="&myid)
end if
if i=5 then
conn.execute("update users set mytl=mytl+3 where id="&myid)
end if
if i=6 then
conn.execute("update users set myjb=myjb+1 where id="&myid)
end if
if i=7 then
conn.execute("update users set myjb=myjb+200,mych=mych+4 where id="&myid)
end if
if i=8 then
conn.execute("update users set mytl=mytl+2 where id="&myid)
end if
if i=9 then
conn.execute("update users set myjb=myjb-1000,mytl=mytl-10 where id="&myid)
end if
if i=10 then
conn.execute("update users set myjb=myjb+400,mytl=mytl-8 where id="&myid)
end if
if i=11 then
conn.execute("update users set mytl=mytl-3 where id="&myid)
end if
if i=12 then
conn.execute("update users set myjb=myjb+350,mytl=mytl-6 where id="&myid)
end if
if i=13 then
conn.execute("update users set myjb=myjb+200,myml=myml+4,mytl=mytl-3 where id="&myid)
end if
if i=14 then
conn.execute("update users set myjb=myjb+100,mytl=mytl-5,mych=mych+1,myml=myml+1 where id="&myid)
end if
if i=15 then
conn.execute("update users set myjb=myjb+188 where id="&myid)
end if
if i=16 then
conn.execute("update users set myjb=myjb+50,mytl=mytl-2,mych=mych+2,myml=myml+1 where id="&myid)
end if
if i=17 then
conn.execute("update users set mytl=mytl+2 where id="&myid)
end if
if i=18 then
conn.execute("update users set myjb=myjb+300,mytl=mytl-8,mych=mych+4 where id="&myid)
end if
if i=19 then
conn.execute("update users set mytl=mytl-10 where id="&myid)
end if
if i=20 then
conn.execute("update users set mytl=myjb+1,mych=mych+1,myml=myml+1 where id="&myid)
end if
	
Response.Write(fishcl)
end if
%>

<br/><%=now%><br/>
<!--#include file="fanhui2.asp"-->
<%
Call headsay()
%>
