古骑士传说

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

Tag: VBS

sm=100
fsz=100
sd="未获得"
np="未获得"
ys="未获得"
do
a=Inputbox("输入数字指令,1探索,2回血,3查看信息,4荣誉栏,5退出","古骑士传说")
select case a
case 1
randomize
select case int(rnd*5)
case 1
msgbox"你遇到了鼠妖"
smm=0
do until smm>8
jbb=Inputbox("A扇他一个回旋大嘴巴")
if jbb="A" then
smm=smm+1
fsz=fsz-10
else
msgbox"额"
end if
loop
sm=sm-8
smm=0
if fsz<0 then
msgbox"你死了"
exit do
end if
if sm<0 then
msgbox"你死了"
exit do
end if
q=q+1
case 2
msgbox"你捡到一盒药"
y=y+1
case 3
msgbox"你遇到了虫妖"
smm=0
do until smm>3
jbb=Inputbox("A扇他一个回旋大嘴巴")
if jbb="A" then
smm=smm+1
fsz=fsz-10
else
msgbox"额"
end if
loop
sm=sm-3
smm=0
if fsz<0 then
msgbox"你死了"
exit do
end if
if sm<0 then
msgbox"你死了"
exit do
end if
q=q+1
case else
msgbox"空手而归"
end select
case 2
if y<1 then
msgbox"你没药"
else
sm=sm+10
fsz=fsz+10
y=y-1
w=w+1
end if
case 3
msgbox sm & fsz
case 4
msgbox sd & vbcrlf & np & vbcrlf & ys
case 5
exit do
end select
if q>99 then
sd="古骑士之冷面者"
end if
if W>99 then
np="古骑士之重生者"
end if
if W>199 then
ys="古骑士之往生者"
end if
loop