VBS游戏:克苏鲁神话

jjjjjtt   发布于 2017年02月20日   阅读次数: 858   我想说两句

Tag: VBS

msm=100
fsz=100
msgbox"在他在莱尔的寓所里,死去的克苏鲁等待梦景" & vbcrlf & vbcrlf & "                        ---《克苏鲁神话》"
do
a=Inputbox("输入序号行动:1探索,2补血,3查看信息,4称号,5退出")
select case a
case 1
randomize
select case int(rnd*8)
case 1
msgbox"你遇见了巨噬蠕虫"
smm=0
do until smm>3
jbb=Inputbox("按a扇他一个回旋大嘴巴")
if jbb="a" then
smm=smm+1
fsz=fsz-int(10)
else
msgbox"啊普切"
end if
loop
msm=msm-int(3)
smm=0
if fsz<0 then
msgbox"啊普切你死了"
exit do
end if
if msm<0 then
msgbox"啊普切你死了"
exit do
end if
k=k+1
case 2
msgbox"你遇见了伊斯伟大种族"
smm=0
do until smm>3
jbb=Inputbox("按a扇他一个回旋大嘴巴")
if jbb="a" then
smm=smm+1
fsz=fsz-int(10)
else
msgbox"啊普切"
end if
loop
msm=msm-int(3)
smm=0
if fsz<0 then
msgbox"啊普切你死了"
exit do
end if
if msm<0 then
msgbox"啊普切你死了"
exit do
end if
k=k+1
case 3
msgbox"你遇见了夏盖虫族"
smm=0
do until smm>3
jbb=Inputbox("按a扇他一个回旋大嘴巴")
if jbb="a" then
smm=smm+1
fsz=fsz-int(10)
else
msgbox"啊普切"
end if
loop
msm=msm-int(3)
smm=0
if fsz<0 then
msgbox"啊普切你死了"
exit do
end if
if msm<0 then
msgbox"啊普切你死了"
exit do
end if
k=k+1
case 4
msgbox"你遇见了恐怖猎手"
smm=0
do until smm>3
jbb=Inputbox("按a扇他一个回旋大嘴巴")
if jbb="a" then
smm=smm+1
fsz=fsz-int(10)
else
msgbox"啊普切"
end if
loop
msm=msm-int(3)
smm=0
if fsz<0 then
msgbox"啊普切你死了"
exit do
end if
if msm<0 then
msgbox"啊普切你死了"
exit do
end if
k=k+1
case 5
msgbox"你遇见了人面鼠"
smm=0
do until smm>3
jbb=Inputbox("按a扇他一个回旋大嘴巴")
if jbb="a" then
smm=smm+1
fsz=fsz-int(10)
else
msgbox"啊普切"
end if
loop
msm=msm-int(3)
smm=0
if fsz<0 then
msgbox"啊普切你死了"
exit do
end if
if msm<0 then
msgbox"啊普切你死了"
exit do
end if
k=k+1
case 6
msgbox"你遇见了夏塔克鸟"
smm=0
do until smm>3
jbb=Inputbox("按a扇他一个回旋大嘴巴")
if jbb="a" then
smm=smm+1
fsz=fsz-int(10)
else
msgbox"啊普切"
end if
loop
msm=msm-int(3)
smm=0
if fsz<0 then
msgbox"啊普切你死了"
exit do
end if
if msm<0 then
msgbox"啊普切你死了"
exit do
end if
k=k+1
case else
msgbox"你遇见了克苏鲁"
smm=0
do until smm>3
jbb=Inputbox("按a扇他一个回旋大嘴巴")
if jbb="a" then
smm=smm+1
fsz=fsz-int(10)
else
msgbox"啊普切"
end if
loop
msm=msm-int(3)
smm=0
if fsz<0 then
msgbox"啊普切你死了"
exit do
end if
if msm<0 then
msgbox"啊普切你死了"
exit do
end if
end select
case 2
msm=msm+3
fsz=fsz+3
case 3
msgbox"生命" & msm & "法术" & fsz
case 4
msgbox ksl & " " & aa & vbcrlf & hst & " " & xugne
case 5
exit do
end select
if k>10 then
ksl="#吸血猴•克苏鲁#"
end if
if k>100 then
aa="#吸血猴•阿尔瓦撒#"
end if
if k>1000 then
hst="#吸血猴•哈斯塔#"
end if
if k>10000 then
xugne="#吸血猴•格拉基#"
end if
loop