一款用VBS编写的修仙风格打怪游戏

为大家带来一款作者自己用vbs写的打怪游戏啊，代码看起来是很复杂，但是拆分开来看就会发现每一个小节都是非常基础的vbs语言。（除了这我也不会啥了）

作者有的地方代码可能写啰嗦了，也挺乱的

那就废话不多说，直接上代码（欢迎交流探讨，指出代码的问题）

    

wuqi=0
jinqian=30
wanming=100
wangong=7
wanfang=3
canpodetiejianwu=0
pomugunwu=0
fangju=0
xiaohuangdan=0
r=0
xiuweishu=0
z=0

Function xunbao(m,n)
    Randomize
    xunbao=Int(((n-m+1)*Rnd)+m)
End Function

do

if xiuwei>4 then
    xiuwei=xiuwei-5
    wangong=wangong+2
    wanming=wanming+100
    wanfang=wanfang+1
    xiuweishu=xiuweishu+1
    msgbox"你的修为不断增进，最终有所突破！（生命+100，攻击+2，防御+1）"
end if

if xiuweishu=0 then
    xiuweixian="凡人"
end if

if xiuweishu=1 then
    xiuweixian="练气一阶"
end if

if xiuweishu=2 then
    xiuweixian="练气二阶"
end if

if xiuweishu=3 then
    xiuweixian="练气三阶"
end if

if xiuweishu=4 then
    xiuweixian="练气四阶"
end if


if xiuweishu=5 then
    xiuweixian="练气五阶"
end if

if xiuweishu=6 then
    xiuweixian="练气六阶"
end if


if xiuweishu=7 then
    xiuweixian="练气七阶"
end if

if xiuweishu=8 then
    xiuweixian="练气八阶"
end if

if xiuweishu=9 then
    xiuweixian="练气九阶"
end if

if xiuweishu=10 then
    xiuweixian="练气十阶"
end if

if xiuweishu=11 then
    xiuweixian="筑基一阶"
end if

if xiuweishu=12 then
    xiuweixian="筑基二阶"
end if

if xiuweishu=13 then
    xiuweixian="筑基三阶"
end if

if xiuweishu=14 then
    xiuweixian="筑基四阶"
end if


if xiuweishu=15 then
    xiuweixian="筑基五阶"
end if


if xiuweishu=16 then
    xiuweixian="筑基六阶"
end if

if xiuweishu=17 then
    xiuweixian="筑基七阶"
end if

if xiuweishu=18 then
    xiuweixian="筑基八阶"
end if

if xiuweishu=19 then
    xiuweixian="筑基九阶"
end if

if xiuweishu=20 then
    xiuweixian="筑基十阶"
end if

if xiuweishu>20 then
    xiuweishu=20
end if

zongagain="yes"
msgbox"外出历练中..."
xunbao1=xunbao(1,15)


j=r/5

q=round(j,0)+1
if q>20 then
    q=20
end if

s=round(j,0)+6
if s>8 then
    s=8
end if

if z=4 then
    s=6
    z=0
end if

guaishifou=xunbao(1,s)
if guaishifou=1 then
    yudaoguai=1
end if

if guaishifou=2 then
    yudaoguai=0
end if

if guaishifou=3 then
    yudaoguai=0
end if

if guaishifou=4 then
    yudaoguai=0
end if

if guaishifou=5 then
    yudaoguai=0
end if

if guaishifou=6 then
    yudaoguai=0
end if

if guaishifou=7 then
    yudaoguai=1
end if

if guaishifou=8 then
    yudaoguai=1
end if

if guaishifou=9 then
    yudaoguai=1
end if

if guaishifou=10 then
    yudaoguai=1
end if


if yudaoguai=1 then
    msgbox"你在外出历练的途中遇到了一头对你虎视眈眈的妖兽，看来一场大战在所难免。"
    guaiwu=xunbao(1,q)
    if guaiwu=1 then
        guaimingzi="一品妖兽风灵兔"
        guaiming=30
        guaigong=4
        jia=25
    end if
    if guaiwu=2 then
        guaimingzi="一品妖兽斑斓虎"
        guaiming=45
        guaigong=6
        jia=35
    end if
    if guaiwu=3 then
        guaimingzi="一品妖兽疾风狼"
        guaiming=40
        guaigong=5
        jia=15
    end if
    if guaiwu=4 then
        guaimingzi="一品妖兽青纹蟒（精英）"
        guaiming=40
        guaigong=8
        jia=90
    end if
    if guaiwu=5 then
        guaimingzi="一品妖兽烈焰狮（BOSS）"
        guaiming=80
        guaigong=9
        jia=120
    end if
    if guaiwu=6 then
        guaimingzi="二品妖兽风刃鹰"
        guaiming=90
        guaigong=10
        jia=150
    end if
    if guaiwu=7 then
        guaimingzi="二品妖兽钢铁熊"
        guaiming=120
        guaigong=12
        jia=190
    end if
    if guaiwu=8 then
        guaimingzi="二品妖兽深水鲤"
        guaiming=80
        guaigong=9
        jia=100
    end if
    if guaiwu=9 then
        guaimingzi="二品妖兽怒焰蛟（BOSS）"
        guaiming=200
        guaigong=17
        jia=250
    end if
    if guaiwu=10 then
        guaimingzi="二品妖兽钢齿鳄（精英）"
        guaiming=150
        guaigong=15
        jia=240
    end if
    if guaiwu=11 then
        guaimingzi="三品妖兽极光鸽"
        guaiming=300
        guaigong=18
        jia=400
    end if
    if guaiwu=12 then
        guaimingzi="三品妖兽冰翼鸟（精英）"
        guaiming=350
        guaigong=19
        jia=450
    end if
    if guaiwu=13 then
        guaimingzi="三品妖兽韧石龙（BOSS）"
        guaiming=500
        guaigong=25
        jia=700
    end if
    if guaiwu=14 then
        guaimingzi="三品妖兽自爆鼠"
        guaiming=1
        guaigong=250
        jia=200
    end if
    if guaiwu=15 then
        guaimingzi="三品妖兽音波蝠"
        guaiming=50
        guaigong=50
        jia=250
    end if
    if guaiwu=16 then
        guaimingzi="四品妖兽玄武龟（BOSS）"
        guaiming=1500
        guaigong=35
        jia=1000
    end if
    if guaiwu=17 then
        guaimingzi="四品妖兽巨戟虎"
        guaiming=700
        guaigong=25
        jia=1100
    end if
    if guaiwu=18 then
        guaimingzi="四品妖兽魔焰豹"
        guaiming=600
        guaigong=30
        jia=1500
    end if
    if guaiwu=19 then
        guaimingzi="四品妖兽龙血象（精英）"
        guaiming=900
        guaigong=30
        jia=2000
    end if
    if guaiwu=20 then
        guaimingzi="四品妖兽蛮石牛（神兽）"
        guaiming=1000
        guaigong=40
        jia=3000
    end if
    if guaiwu=21 then
        guaimingzi="五品妖兽冰火狼（神兽）"
        guaiming=2000
        guaigong=60
        jia=5000
    end if
    if guaiwu=22 then
        guaimingzi="五品妖兽风啸鹰（神兽）"
        guaiming=2000
        guaigong=60
        jia=5000
    end if
    if guaiwu=23 then
        guaimingzi="五品妖兽蛮荒猿（神兽）"
        guaiming=2000
        guaigong=60
        jia=5000
    end if
    if guaiwu=24 then
        guaimingzi="五品妖兽幻焰蛾（神兽）"
        guaiming=2000
        guaigong=60
        jia=5000
    end if
    if guaiwu=25 then
        guaimingzi="五品妖兽昊阳鸟（神兽）"
        guaiming=2000
        guaigong=60
        jia=5000
    end if
    
    if guaiwu=26 then
        guaimingzi="九天五行神龙【上古凶兽】"
        guaiming=20000
        guaigong=150
        jia=5000
    end if