我有一个vbs代码的打怪游戏，但运行不起来，请各位大佬指点指点。

msgbox "欢迎来到打怪游戏"
randomize
dim a,b,c,d,e,f,g,i,zd,jq,mzd
a=150
b=int((rnd*500)+100)
c=int(rnd*100)
d=int(rnd*90)
e=30
f=20
jq=10
do
g=inputbox("请输入对应序号"&vbcr&"1： 进入游戏 2： 加血变 60， 加攻击
变 40"&vbcr&"3： 血量变 200 4： 高级打怪"&vbcr&"5： 自定义怪的血量， 若
不选择则随机")
if g=2 then
e=60
f=40
end if
if g=3 then
a=200
end if
if g=4 then
msgbox("高级打怪中， 你有 300 滴血， 怪有 1000 滴血， 你加血可加 70,加攻
击力可加 30")
a=300
b=1000
e=70
f=30
end if
if g=5 then
b=inputbox("请输入怪的血量")
end if
if g=1 then
exit do
end if
loop
h=inputbox("请输入序号选择你要什么技能"&vbcr&"1： 有几率攻击力翻倍
"&vbcr&"2： 有几率增加 100 点血量"&vbcr&"3： 有几率复活"&vbcr&"4： 有
几率获得一轮无伤"&vbcr&"5： 初始攻击力增加 50"&vbcr&"6： 血量小于 80
时 3 倍攻击"&vbcr&"7：有几率反弹怪的伤害"&vbcr&"按取消不选择","请选择
")
if h=5 then
c=int(c+50)
end if
wq=inputbox("请输入序号选择你的武器"&vbcr&"1： 手枪， 子弹无限， 无加
成 2： 步枪， 8 发子弹， 加 30 攻击力"&vbcr&"3： 散弹枪， 3 发子弹， 可分裂
出 3 个小子弹， 此武器将会重定你的攻击力"&vbcr&"4： 狙击枪,5 发子弹， 加
50 伤害， 有 10%几率秒杀")
ms=int((rnd*9)+1)
if wq=1 then
mzd=99999
end if
if wq=2 then
c=int(c+30)
mzd=8
end if
if wq=3 then
c=int((rnd*40)*3)
mzd=3
end if
if wq=4 then
c=int(c+50)
if ms>=9 then
b=int(0)
end if
mzd=5
end if
z=msgbox("遇到一只怪， 按下是打它！ ",vbyesno)
if z=vbyes then
msgbox "你的攻击力有"&c&"， 怪的攻击力有"&d
zd=mzd
msgbox"你现在有"&zd&"发子弹"
do
jq=int(jq+1)
if int(a)<=int(0) then
if h=3 then
if i>=6 then
a=200
msgbox"天命！ 你复活了"
end if
end if
end if
if h=6 then
if a<=80 then
c=c*3
msgbox"你获得了拼死一搏技能， 现在攻击力为"&c
end if
end if
msgbox "你还有"&a&"滴血， 怪还有"&b&"滴血"
if int(a)<=int(0) then
msgbox "你被怪打死了"
wscript.quit
exit do
end if
if int(b)<=int(0) then
msgbox "你把怪打死了"
wscript.quit
exit do
end if
y=inputbox("你要做什么？ "&vbcr&"1:加血 2： 逃跑 3： 继续打 4： 加攻击力
5： 买子弹"&vbcr&"怪的攻击力有"&d&"， 怪还有"&b&"滴血"&vbcr&"你现
在加血可加"&e&"， 加攻击力可加"&f&vbcr&i,"你现在有"&a&"滴血， "&c&"
点攻击力,"&jq&"块钱,"&zd&"发子弹")
if y=1 then
jx=msgbox("是否花费 2 元钱加"&e&"滴血?",vbyesno)
if jx=vbyes then
if jq<int(2) then
msgbox"你的钱不够"
end if
if jq>=int(2) then
jq=int(jq-2)
a=a+int(e)
msgbox "你现在有"&a&"滴血"
end if
end if
end if
if y=2 then
msgbox "你逃跑了"
wscript.quit
exit do
end if
if y=4 then
jgj=msgbox("是否花 4 元钱加"&f&"点攻击力？ ",vbyesno)
if jgj=vbyes then
if jq<4 then
msgbox"你的钱不够"
end if
if jq>=int(4) then
jq=int(jq-4)
c=c+int(f)
msgbox "你现在有"&c&"点攻击力"
end if
end if
end if
if y=5 then
gm=msgbox("是否花费 3 元钱回满子弹？ ",vbyesno)
if gm=vbyes then
if jq<3 then
msgbox"你的钱不够"
end if
if jq>=int(3) then
jq=int(jq-3)
zd=int(mzd+1)
end if
end if
end if
if zd>0 then
a=a-d
b=b-c
zd=zd-1
end if
if zd<=0 then
msgbox"你没子弹了， 因此无法造成伤害， 快去买子弹"
end if
i=int((rnd*5)+3)
if h=1 then
if i>=5 then
c=c*2
msgbox"你获得了技能加成"
end if
end if
if h=2 then
if i>=6 then
a=a+int(100)
msgbox"你获得了技能加成"
end if
end if
if h=4 then
if i>=6 then
a=int(a+d)
msgbox"你获得了技能加成"
end if
end if
if h=7 then
if i>=5 then
b=int(b-d)
msgbox"你获得了技能加成"
end if
end if
loop
end if