为大家带来一款作者自己用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=0Function xunbao(m,n)Randomizexunbao=Int(((n-m+1)*Rnd)+m)
End Functiondoif xiuwei>4 thenxiuwei=xiuwei-5wangong=wangong+2wanming=wanming+100wanfang=wanfang+1xiuweishu=xiuweishu+1msgbox"你的修为不断增进，最终有所突破！（生命+100，攻击+2，防御+1）"
end ifif xiuweishu=0 thenxiuweixian="凡人"
end ifif xiuweishu=1 thenxiuweixian="练气一阶"
end ifif xiuweishu=2 thenxiuweixian="练气二阶"
end ifif xiuweishu=3 thenxiuweixian="练气三阶"
end ifif xiuweishu=4 thenxiuweixian="练气四阶"
end ifif xiuweishu=5 thenxiuweixian="练气五阶"
end ifif xiuweishu=6 thenxiuweixian="练气六阶"
end ifif xiuweishu=7 thenxiuweixian="练气七阶"
end ifif xiuweishu=8 thenxiuweixian="练气八阶"
end ifif xiuweishu=9 thenxiuweixian="练气九阶"
end ifif xiuweishu=10 thenxiuweixian="练气十阶"
end ifif xiuweishu=11 thenxiuweixian="筑基一阶"
end ifif xiuweishu=12 thenxiuweixian="筑基二阶"
end ifif xiuweishu=13 thenxiuweixian="筑基三阶"
end ifif xiuweishu=14 thenxiuweixian="筑基四阶"
end ifif xiuweishu=15 thenxiuweixian="筑基五阶"
end ifif xiuweishu=16 thenxiuweixian="筑基六阶"
end ifif xiuweishu=17 thenxiuweixian="筑基七阶"
end ifif xiuweishu=18 thenxiuweixian="筑基八阶"
end ifif xiuweishu=19 thenxiuweixian="筑基九阶"
end ifif xiuweishu=20 thenxiuweixian="筑基十阶"
end ifif xiuweishu>20 thenxiuweishu=20
end ifzongagain="yes"
msgbox"外出历练中..."
xunbao1=xunbao(1,15)j=r/5q=round(j,0)+1
if q>20 thenq=20
end ifs=round(j,0)+6
if s>8 thens=8
end ifif z=4 thens=6z=0
end ifguaishifou=xunbao(1,s)
if guaishifou=1 thenyudaoguai=1
end ifif guaishifou=2 thenyudaoguai=0
end ifif guaishifou=3 thenyudaoguai=0
end ifif guaishifou=4 thenyudaoguai=0
end ifif guaishifou=5 thenyudaoguai=0
end ifif guaishifou=6 thenyudaoguai=0
end ifif guaishifou=7 thenyudaoguai=1
end ifif guaishifou=8 thenyudaoguai=1
end ifif guaishifou=9 thenyudaoguai=1
end ifif guaishifou=10 thenyudaoguai=1
end ifif yudaoguai=1 thenmsgbox"你在外出历练的途中遇到了一头对你虎视眈眈的妖兽，看来一场大战在所难免。"guaiwu=xunbao(1,q)if guaiwu=1 thenguaimingzi="一品妖兽风灵兔"guaiming=30guaigong=4jia=25end ifif guaiwu=2 thenguaimingzi="一品妖兽斑斓虎"guaiming=45guaigong=6jia=35end ifif guaiwu=3 thenguaimingzi="一品妖兽疾风狼"guaiming=40guaigong=5jia=15end ifif guaiwu=4 thenguaimingzi="一品妖兽青纹蟒（精英）"guaiming=40guaigong=8jia=90end ifif guaiwu=5 thenguaimingzi="一品妖兽烈焰狮（BOSS）"guaiming=80guaigong=9jia=120end ifif guaiwu=6 thenguaimingzi="二品妖兽风刃鹰"guaiming=90guaigong=10jia=150end ifif guaiwu=7 thenguaimingzi="二品妖兽钢铁熊"guaiming=120guaigong=12jia=190end ifif guaiwu=8 thenguaimingzi="二品妖兽深水鲤"guaiming=80guaigong=9jia=100end ifif guaiwu=9 thenguaimingzi="二品妖兽怒焰蛟（BOSS）"guaiming=200guaigong=17jia=250end ifif guaiwu=10 thenguaimingzi="二品妖兽钢齿鳄（精英）"guaiming=150guaigong=15jia=240end ifif guaiwu=11 thenguaimingzi="三品妖兽极光鸽"guaiming=300guaigong=18jia=400end ifif guaiwu=12 thenguaimingzi="三品妖兽冰翼鸟（精英）"guaiming=350guaigong=19jia=450end ifif guaiwu=13 thenguaimingzi="三品妖兽韧石龙（BOSS）"guaiming=500guaigong=25jia=700end ifif guaiwu=14 thenguaimingzi="三品妖兽自爆鼠"guaiming=1guaigong=250jia=200end ifif guaiwu=15 thenguaimingzi="三品妖兽音波蝠"guaiming=50guaigong=50jia=250end ifif guaiwu=16 thenguaimingzi="四品妖兽玄武龟（BOSS）"guaiming=1500guaigong=35jia=1000end ifif guaiwu=17 thenguaimingzi="四品妖兽巨戟虎"guaiming=700guaigong=25jia=1100end ifif guaiwu=18 thenguaimingzi="四品妖兽魔焰豹"guaiming=600guaigong=30jia=1500end ifif guaiwu=19 thenguaimingzi="四品妖兽龙血象（精英）"guaiming=900guaigong=30jia=2000end ifif guaiwu=20 thenguaimingzi="四品妖兽蛮石牛（神兽）"guaiming=1000guaigong=40jia=3000end ifif guaiwu=21 thenguaimingzi="五品妖兽冰火狼（神兽）"guaiming=2000guaigong=60jia=5000end ifif guaiwu=22 thenguaimingzi="五品妖兽风啸鹰（神兽）"guaiming=2000guaigong=60jia=5000end ifif guaiwu=23 thenguaimingzi="五品妖兽蛮荒猿（神兽）"guaiming=2000guaigong=60jia=5000end ifif guaiwu=24 thenguaimingzi="五品妖兽幻焰蛾（神兽）"guaiming=2000guaigong=60jia=5000end ifif guaiwu=25 thenguaimingzi="五品妖兽昊阳鸟（神兽）"guaiming=2000guaigong=60jia=5000end ifif guaiwu=26 thenguaimingzi="九天五行神龙【上古凶兽】"guaiming=20000guaigong=150jia=5000end ifif guaigong>wanfang thendoagain="yes"wanming=wanming-guaigong+wanfangguaiming=guaiming-wangongif wanming<0 thenagain="no"zongagain="no"xuanagain="no"zhandouxinxi="你与"&guaimingzi&"殊死搏斗，但不幸身负重伤，奄奄一息，怕是活不过今日了..."end ifif guaiming<0 thenagain="no"zhandouxinxi="经历了一番苦斗，你终于杀死了"& guaimingzi &"!(金钱+"&jia&")"jinqian=jinqian+jiaend ifloop while again="yes"msgbox zhandouxinxi
end ifif guaigong=wanfang thenzhandouxinxi="你没费多大力气，就杀死了"& guaimingzi &"!(金钱+"&jia&")"msgbox zhandouxinxijinqian=jinqian+jia
end if
if guaigong<wanfang thenzhandouxinxi="你不费吹灰之力，就轻而易举地杀死了"& guaimingzi &"!(金钱+"&jia&")"msgbox zhandouxinxijinqian=jinqian+jia
end ifend ifif xunbao1=1 thenmsgbox"你在路边找到了一根破木棍！（破木棍+1）"pomugun=pomugun+1
end if
if xunbao1=2 thenmsgbox"你在一口井的旁边找到了一袋金币！（金钱+10）"jinqian=jinqian+10
end if
if xunbao1=3 thenmsgbox"路过一家无人居住的木屋，经过一番搜寻，你在一个精致的木盒子里找到了一颗小黄丹！(小黄丹+1)"xiaohuangdan=xiaohuangdan+1
end if
if xunbao1=4 thenmsgbox"你在陡峭的岩壁上挖出了一块闪闪发光的灵石！（灵石+1）"lingshi=lingshi+1
end if
if xunbao1=5 thenmsgbox"你为一大户人家挑柴打水数月，作为报酬，你得到了一大袋金币！（金钱+30）"jinqian=jinqian+30
end if
if xunbao1=6 thenxinxi=xunbao(1,5)if xinxi=1 thenxinxixian="疾风狼的生命是40点，攻击是5点！"end ifif xinxi=2 thenxinxixian="斑斓虎的生命是45点，攻击是6点！"end ifif xinxi=3 thenxinxixian="风灵兔的生命是30点，攻击是4点！"end ifif xinxi=4 thenxinxixian="青纹蟒的生命是40点，攻击是8点！"end ifif xinxi=5 thenxinxixian="烈焰狮的生命是80点，攻击是9点！"end ifmsgbox"村中一位见识多广的村民告诉你："&xinxixianend if
if xunbao1=7 thenmsgbox"你在一所无人居住的木屋里，经过一番搜寻，在后院的废铁堆里你翻到了一把残破的铁剑！（残破的铁剑+1）"canpodetiejian=canpodetiejian+1
end ifif xunbao1=8 thenmsgbox"市区喧闹的街巷中，一家丹药店吸引了你！"dodanagain="yes"if jinqian<20 thenmsgbox"你囊中羞涩，看着眼前的古色古香的丹药店，也只能转身离去。"danagain="no"end ifif jinqian>19 thendanchoose=inputbox("市区喧闹的街巷中，一家丹药店吸引了你！"&vbcrlf&"小黄丹：可恢复10点生命！     售价：20金钱"&vbcrlf&"返生丹：可恢复30点生命！     售价：50金钱"&vbcrlf&"灵石：可提升1点修为！     售价：200金钱"&vbcrlf&"你的金钱："&jinqian&vbcrlf&"若购买完毕，请输入：结束")if danchoose="小黄丹" thenhuangdanshu=inputbox("您想购买几颗小黄丹？")xiaohuangdanshu=huangdanshuif huangdanshu="" thenxiaohuangdanshu=1end ifdanqian=xiaohuangdanshu*20zhenqian=danqian-1if jinqian<danqian thenmsgbox"你的钱貌似不够啊..."    end ifif jinqian>zhenqian thenxiaohuangdan=xiaohuangdan+xiaohuangdanshujinqian=jinqian-danqianmsgbox"你花费了"&danqian&"金钱，购买了"&xiaohuangdanshu&"颗小黄丹！"end ifend ifif danchoose="返生丹" thenshengdanshu=inputbox("您想购买几颗返生丹？")fanshengdanshu=shengdanshuif shengdanshu="" thenfanshengdanshu=1end ifdanqian=fanshengdanshu*50zhenqian=danqian-1if jinqian<danqian thenmsgbox"你的钱貌似不够啊..."    end ifif jinqian>zhenqian thenfanshengdan=fanshengdan+fanshengdanshujinqian=jinqian-danqianmsgbox"你花费了"&danqian&"金钱，购买了"&fanshengdanshu&"颗返生丹！"end ifend ifif danchoose="灵石" thenshishu=inputbox("您想购买几颗灵石？")lingshishu=shishuif shishu="" thenlingshishu=1end ifdanqian=lingshishu*200zhenqian=danqian-1if jinqian<danqian thenmsgbox"你的钱貌似不够啊..."    end ifif jinqian>zhenqian thenlingshi=lingshi+lingshishujinqian=jinqian-danqianmsgbox"你花费了"&danqian&"金钱，购买了"&lingshishu&"颗灵石！"end ifend ifend if  if danchoose="结束" thendanagain="no"msgbox"你没有多停留，便转身离开了丹药店。"end if
loop while danagain="yes"
end ifif xunbao1=9 thenif jinqian<300 thenmsgbox"你看见一所可以提升防御的锻骨池，可无奈囊中羞涩。"end ifif jinqian>299 thenw=msgbox("繁华的门派中，一所对外人开放的锻骨池吸引了你！（是否花费300金币，提升1点防御力？）",vbyesno," ")if w=vbyes thenwanfang=wanfang+1jinqian=jinqian-300msgbox"你成功花费300金币，淬炼了自己的筋骨！（防御力+1）"end ifif w=vbno thenmsgbox"你没有去在此修炼，而是转头大步流星地离去了。"end ifend if
end ifif xunbao1=10 thenw=msgbox("路遇流浪的商人，一头妖兽正扑向他！（是否救助商人，与妖兽战斗？）",vbyesno," ")if w=vbyes thenguaiwu=xunbao(1,5)if guaiwu=1 thenguaimingzi="一品妖兽风灵兔"guaiming=30guaigong=4jia=25end ifif guaiwu=2 thenguaimingzi="一品妖兽斑斓虎"guaiming=45guaigong=6jia=35end ifif guaiwu=3 thenguaimingzi="一品妖兽疾风狼"guaiming=40guaigong=5jia=15end ifif guaiwu=4 thenguaimingzi="一品妖兽青纹蟒"guaiming=40guaigong=8jia=90end ifif guaiwu=5 thenguaimingzi="一品妖兽烈焰狮"guaiming=80guaigong=7jia=120end ifmsgbox"你挡住了那妖兽对商人的致命一击，后退两步，你便冲着那"&guaimingzi&"冲了上去。（生命-5）"wanming=wanming-5
if guaigong>wanfang thendoagain="yes"wanming=wanming-guaigong+wanfangguaiming=guaiming-wangongif wanming<0 thenagain="no"zongagain="no"xuanagain="no"zhandouxinxi="你与"&guaimingzi&"殊死搏斗，但不幸身负重伤，奄奄一息，怕是活不过今日了..."end ifif guaiming<0 thenagain="no"zhandouxinxi="经历了一番苦斗，你终于杀死了"& guaimingzi &"!(金钱+"&jia&")"jinqian=jinqian+jiaend ifloop while again="yes"msgbox zhandouxinxi
end ifif guaigong=wanfang thenzhandouxinxi="你没费多大力气，就杀死了"& guaimingzi &"!(金钱+"&jia&")"msgbox zhandouxinxijinqian=jinqian+jia
end if
if guaigong<wanfang thenzhandouxinxi="你不费吹灰之力，就轻而易举地杀死了"& guaimingzi &"!(金钱+"&jia&")"msgbox zhandouxinxijinqian=jinqian+jia
end ifmsgbox"为了报答你，商人从背后的行囊中掏出了一颗返生丹！（返生丹+1）"
fanshengdan=fanshengdan+1end ifif w=vbno thenmsgbox"你没有理会商人在背后的惨叫，而是转头大步流星地离去了。"end if
end ifif xunbao1=11 thenmsgbox"你在一所无人居住的木屋里，经过一番搜寻，在卧室的衣柜中你找到了一件皮衣！（皮衣+1）"piyi=piyi+1
end ifif xunbao1=12 thenmsgbox"你在一所荒废的村庄的铁匠铺里，经过一番搜寻，在打铁台上你找到了一件锁链甲！（锁链甲+1）"suolianjia=suolianjia+1
end ifif xunbao1=13 thenmsgbox"市区喧闹的街巷中，一家铁匠铺吸引了你！"dotieagain="yes"if jinqian<100 thenmsgbox"你囊中羞涩，看着眼前的挂满精良铁器的铁匠铺，也只能转身离去。"tieagain="no"end ifif jinqian>99 thentiechoose=inputbox("你走进了铁匠铺，看到了挂在墙上的价目表："&vbcrlf&"铁剑：攻击+6！     售价：100金钱"&vbcrlf&"精钢剑：攻击+8！     售价：200金钱"&vbcrlf&"你的金钱："&jinqian&vbcrlf&"若购买完毕，请输入：结束")if tiechoose="铁剑" thenif jinqian<100 thenmsgbox"你的钱貌似不够啊..."    end ifif jinqian>99 thentiejian=tiejian+1jinqian=jinqian-100msgbox"你花费了100金钱，购买了1把铁剑！"end ifend ifif tiechoose="精钢剑" thenif jinqian<200 thenmsgbox"你的钱貌似不够啊..."    end ifif jinqian>199 thenjinggangjian=jinggangjian+1jinqian=jinqian-200msgbox"你花费了200金钱，购买了1把精钢剑！"end ifend ifend if  if tiechoose="结束" thentieagain="no"msgbox"你没有多停留，便转身离开了铁匠铺。"end if
loop while tieagain="yes"
end ifif xunbao1=14 thenmsgbox"你在一片峡谷里的山崖上看到了一块蓝幽幽的石头，走去挖出一看，竟是一大块灵石！（灵石+3）"lingshi=lingshi+3
end ifif xunbao1=15 thenif jinqian<50 thenmsgbox"你远远看见一个衣衫褴褛的乞丐，他回头瞥了你一眼就走了。"end ifif jinqian>49 thenw=msgbox("一个衣衫褴褛的乞丐拉住了你，询问你是否要买他的一张辟邪符。（是否花费50金钱，购买一张辟邪符？）",vbyesno," ")if w=vbyes thenbixiefu=bixiefu+1jinqian=jinqian-50msgbox"你成功花费50金钱，买了那乞丐的一张辟邪符！（辟邪符+1）"end ifif w=vbno thenmsgbox"你没有理会那个奇怪的乞丐，而是转头大步流星地离去了。"end ifend if
end ifpomugunxian=""
fanshengdanxian=""
lingshixian=""
canpodetiejianxian=""
xiaohuangdanxian=""
wuqixian=""
piyixian=""
suolianjiaxian=""
fangjuxian=""
tiejianxian=""
jinggangjianxian=""
bixiefuxian=""
if pomugun>0 thenpomugunxian="破木棍*" & pomugun &" "
end if
if fanshengdan>0 thenfanshengdanxian="返生丹*" & fanshengdan &" "
end if
if lingshi>0 thenlingshixian="灵石*" & lingshi &" "
end if
if canpodetiejian>0 thencanpodetiejianxian="残破的铁剑*" & canpodetiejian &" "
end if
if xiaohuangdan>0 thenxiaohuangdanxian="小黄丹*" & xiaohuangdan &" "
end if
if piyi>0 thenpiyixian="皮衣*" & piyi &" "
end if
if suolianjia>0 thensuolianjiaxian="锁链甲*" & suolianjia &" "
end if
if tiejian>0 thentiejianxian="铁剑*" & tiejian &" "
end if
if jinggangjian>0 thenjinggangjianxian="精钢剑*" & jinggangjian &" "
end if
if bixiefu>0 thenbixiefuxian="辟邪符*" & bixiefu &" "
end ifif pomugunwu>0 thenwuqixian="破木棍"
end if
if canpodetiejianwu>0 thenwuqixian="残破的铁剑"
end if
if piyifang>0 thenfangjuxian="皮衣"
end if
if suolianjiafang>0 thenfangjuxian="锁链甲"
end if
if tiejianwu>0 thenwuqixian="铁剑"
end if
if jinggangjianwu>0 thenwuqixian="精钢剑"
end ifdo
xuanagain="yes"
choose=inputbox("请输入你要使用的物品..."&vbcrlf&"若操作完毕请输入：结束"&vbcrlf&"若有多余的武器或防具请输入：出售+武器/防具名称"&vbcrlf&"若退出游戏请依次输入：退出  结束"&vbcrlf&"你的背包：" & pomugunxian & fanshengdanxian & lingshixian & canpodetiejianxian & xiaohuangdanxian & piyixian & suolianjiaxian & tiejianxian & jinggangjianxian & bixiefuxian & vbcrlf &"你的修为："&xiuweixian&vbcrlf&"你的金钱："& jinqian&vbcrlf&"你的生命："&wanming&vbcrlf&"你的攻击："&wangong&vbcrlf&"你的防御："&wanfang&vbcrlf&"武器栏："&wuqixian&vbcrlf&"防具栏："&fangjuxian)if choose="破木棍" thenif pomugun=0 thenmsgbox"你貌似没有这件物品呢..."end ifif pomugun>0 thenif pomugunwu=1 thenmsgbox"你已经装备了该武器，无法再次装备！"end ifif pomugunwu=0 thenif wuqi=1 thenwangong=wangong+1msgbox"你成功装备了一根破木棍！（攻击力+1）"pomugun=pomugun-1pomugunwu=1canpodetiejianwu=canpodetiejianwu-1if canpodetiejianwu=0 thencanpodetiejian=canpodetiejian+1wangong=wangong-3canpodetiejianwu=-1end ifcanpodetiejianwu=canpodetiejianwu+1tiejianwu=tiejianwu-1if tiejianwu=0 thentiejian=tiejian+1wangong=wangong-6tiejianwu=-1end iftiejianwu=tiejianwu+1jinggangjianwu=jinggangjianwu-1if jinggangjianwu=0 thenjinggangjian=jinggangjian+1wangong=wangong-8jinggangjianwu=-1end ifjinggangjianwu=jinggangjianwu+1end ifif wuqi=0 thenwangong=wangong+1msgbox"你成功装备了一根破木棍！（攻击力+1）"pomugun=pomugun-1pomugunwu=1wuqi=1end ifend ifend if
end ifif choose="返生丹" thenif fanshengdan=0 thenmsgbox"你貌似没有这件物品呢..."end ifif fanshengdan>0 thenwanming=wanming+30msgbox"你服下了一枚返生丹，气血开始渐渐地恢复了！（生命+30）"fanshengdan=fanshengdan-1end if
end ifif choose="灵石" thenif lingshi=0 thenmsgbox"你貌似没有这件物品呢..."end ifif lingshi>0 thenxiuwei=xiuwei+1msgbox"你静心吐纳，吸收灵石中的纯净灵气。你的修为增加了！（修为+1）"lingshi=lingshi-1end if
end ifif choose="残破的铁剑" thenif canpodetiejian=0 thenmsgbox"你貌似没有这件物品呢..."end ifif canpodetiejian>0 thenif canpodetiejianwu=1 thenmsgbox"你已经装备了该武器，无法再次装备！"end ifif canpodetiejianwu=0 thenif wuqi=1 thenwangong=wangong+3msgbox"你成功装备了一把残破的铁剑！（攻击力+3）"canpodetiejian=canpodetiejian-1canpodetiejianwu=1pomugunwu=pomugunwu-1if pomugunwu=0 thenpomugun=pomugun+1wangong=wangong-1pomugunwu=-1end ifpomugunwu=pomugunwu+1tiejianwu=tiejianwu-1if tiejianwu=0 thentiejian=tiejian+1wangong=wangong-6tiejianwu=-1end iftiejianwu=tiejianwu+1jinggangjianwu=jinggangjianwu-1if jinggangjianwu=0 thenjinggangjian=jinggangjian+1wangong=wangong-8jinggangjianwu=-1end ifjinggangjianwu=jinggangjianwu+1end ifif wuqi=0 thenwangong=wangong+3msgbox"你成功装备了一把残破的铁剑！（攻击力+3）"canpodetiejian=canpodetiejian-1canpodetiejianwu=1wuqi=1end ifend ifend if
end ifif choose="铁剑" thenif tiejian=0 thenmsgbox"你貌似没有这件物品呢..."end ifif tiejian>0 thenif tiejianwu=1 thenmsgbox"你已经装备了该武器，无法再次装备！"end ifif tiejianwu=0 thenif wuqi=1 thenwangong=wangong+6msgbox"你成功装备了一把铁剑！（攻击力+6）"tiejian=tiejian-1tiejianwu=1canpodetiejianwu=canpodetiejianwu-1if canpodetiejianwu=0 thencanpodetiejian=canpodetiejian+1wangong=wangong-3canpodetiejianwu=-1end ifcanpodetiejianwu=canpodetiejianwu+1pomugunwu=pomugunwu-1if pomugunwu=0 thenpomugun=pomugun+1wangong=wangong-1pomugunwu=-1end ifpomugunwu=pomugunwu+1jinggangjianwu=jinggangjianwu-1if jinggangjianwu=0 thenjinggangjian=jinggangjian+1wangong=wangong-8jinggangjianwu=-1end ifjinggangjianwu=jinggangjianwu+1end ifif wuqi=0 thenwangong=wangong+6msgbox"你成功装备了一把铁剑！（攻击力+6）"tiejian=tiejian-1tiejianwu=1wuqi=1end ifend ifend if
end ifif choose="精钢剑" thenif jinggangjian=0 thenmsgbox"你貌似没有这件物品呢..."end ifif jinggangjian>0 thenif jinggangjianwu=1 thenmsgbox"你已经装备了该武器，无法再次装备！"end ifif jinggangjianwu=0 thenif wuqi=1 thenwangong=wangong+8msgbox"你成功装备了一把精钢剑！（攻击力+8）"jinggangjian=jinggangjian-1jinggangjianwu=1canpodetiejianwu=canpodetiejianwu-1if canpodetiejianwu=0 thencanpodetiejian=canpodetiejian+1wangong=wangong-3canpodetiejianwu=-1end ifcanpodetiejianwu=canpodetiejianwu+1tiejianwu=tiejianwu-1if tiejianwu=0 thentiejian=tiejian+1wangong=wangong-6tiejianwu=-1end iftiejianwu=tiejianwu+1pomugunwu=pomugunwu-1if pomugunwu=0 thenpomugun=pomugun+1wangong=wangong-1pomugunwu=-1end ifpomugunwu=pomugunwu+1end ifif wuqi=0 thenwangong=wangong+8msgbox"你成功装备了一把精钢剑！（攻击力+8）"jinggangjian=jinggangjian-1jinggangjianwu=1wuqi=1end ifend ifend if
end ifif choose="小黄丹" thenif xiaohuangdan=0 thenmsgbox"你貌似没有这件物品呢..."end ifif xiaohuangdan>0 thenwanming=wanming+10msgbox"你服下了一枚小黄丹，气血恢复了些许！（生命+10）"xiaohuangdan=xiaohuangdan-1end if
end ifif choose="出售破木棍" thenif pomugun=0 thenmsgbox"你貌似没有这件物品呢..."end ifif pomugun>0 thenjinqian=jinqian+5msgbox"出售成功！（破木棍-1，金钱+5）"pomugun=pomugun-1end if
end ifif choose="出售残破的铁剑" thenif canpodetiejian=0 thenmsgbox"你貌似没有这件物品呢..."end ifif canpodetiejian>0 thenjinqian=jinqian+20msgbox"出售成功！（残破的铁剑-1，金钱+20）"canpodetiejian=canpodetiejian-1end if
end ifif choose="出售皮衣" thenif piyi=0 thenmsgbox"你貌似没有这件物品呢..."end ifif piyi>0 thenjinqian=jinqian+30msgbox"出售成功！（皮衣-1，金钱+30）"piyi=piyi-1end if
end ifif choose="出售锁链甲" thenif suolianjia=0 thenmsgbox"你貌似没有这件物品呢..."end ifif suolianjia>0 thenjinqian=jinqian+120msgbox"出售成功！（锁链甲-1，金钱+120）"suolianjia=suolianjia-1end if
end ifif choose="出售铁剑" thenif tiejian=0 thenmsgbox"你貌似没有这件物品呢..."end ifif tiejian>0 thenjinqian=jinqian+100msgbox"出售成功！（铁剑-1，金钱+100）"tiejian=tiejian-1end if
end ifif choose="出售精钢剑" thenif jinggangjian=0 thenmsgbox"你貌似没有这件物品呢..."end ifif jinggangjian>0 thenjinqian=jinqian+200msgbox"出售成功！（精钢剑-1，金钱+200）"jinggangjian=jinggangjian-1end if
end ifif choose="皮衣" thenif piyi=0 thenmsgbox"你貌似没有这件物品呢..."end ifif piyi>0 thenif piyifang=1 thenmsgbox"你已经装备了该防具，无法再次装备！"end ifif piyifang=0 thenif fangju=1 thenwanfang=wanfang+1msgbox"你成功装备了一件皮衣！（防御力+1）"piyi=piyi-1piyifang=1suolianjiafang=suolianjiafang-1if suolianjiafang=0 thensuolianjia=suolianjia+1wanfang=wanfang-3suolianjiafang=-1end ifsuolianjiafang=suolianjiafang+1end ifif fangju=0 thenwanfang=wanfang+1msgbox"你成功装备了一件皮衣！（防御力+1）"piyi=piyi-1piyifang=1fangju=1end ifend ifend if
end ifif choose="锁链甲" thenif suolianjia=0 thenmsgbox"你貌似没有这件物品呢..."end ifif suolianjia>0 thenif suolianjiafang=1 thenmsgbox"你已经装备了该防具，无法再次装备！"end ifif suolianjiafang=0 thenif fangju=1 thenwanfang=wanfang+3msgbox"你成功装备了一件锁链甲！（防御力+3）"suolianjia=suolianjia-1suolianjiafang=1piyifang=piyifang-1if piyifang=0 thenpiyi=piyi+1wanfang=wanfang-1piyifang=-1end ifpiyifang=piyifang+1end ifif fangju=0 thenwanfang=wanfang+3msgbox"你成功装备了一件锁链甲！（防御力+3）"suolianjia=suolianjia-1suolianjiafang=1fangju=1end ifend ifend if
end ifif choose="辟邪符" thenif bixiefu=0 thenmsgbox"你貌似没有这件物品呢..."end ifif bixiefu>0 thenz=4msgbox"你点燃了一张辟邪符，一股奇异的香味传来！（下一回合降低遇到妖兽的概率）"bixiefu=bixiefu-1end if
end ifif choose="结束" thenxuanagain="no"
end ifif choose="退出" thenzongagain="no"
end ifpomugunxian=""
fanshengdanxian=""
lingshixian=""
canpodetiejianxian=""
xiaohuangdanxian=""
wuqixian=""
piyixian=""
suolianjiaxian=""
fangjuxian=""
tiejianxian=""
jinggangjianxian=""
bixiefuxian=""
if pomugun>0 thenpomugunxian="破木棍*" & pomugun &" "
end if
if fanshengdan>0 thenfanshengdanxian="返生丹*" & fanshengdan &" "
end if
if lingshi>0 thenlingshixian="灵石*" & lingshi &" "
end if
if canpodetiejian>0 thencanpodetiejianxian="残破的铁剑*" & canpodetiejian &" "
end if
if xiaohuangdan>0 thenxiaohuangdanxian="小黄丹*" & xiaohuangdan &" "
end if
if pomugunwu>0 thenwuqixian="破木棍"
end if
if canpodetiejianwu>0 thenwuqixian="残破的铁剑"
end if
if piyifang>0 thenfangjuxian="皮衣"
end if
if suolianjiafang>0 thenfangjuxian="锁链甲"
end if
if piyi>0 thenpiyixian="皮衣*" & piyi &" "
end if
if suolianjia>0 thensuolianjiaxian="锁链甲*" & suolianjia &" "
end if
if tiejianwu>0 thenwuqixian="铁剑"
end if
if jinggangjianwu>0 thenwuqixian="精钢剑"
end if
if tiejian>0 thentiejianxian="铁剑*" & tiejian &" "
end if
if jinggangjian>0 thenjinggangjianxian="精钢剑*" & jinggangjian &" "
end if
if bixiefu>0 thenbixiefuxian="辟邪符*" & bixiefu &" "
end ifr=r+1loop while xuanagain="yes"loop while zongagain="yes"

那代码就到这里了，欢迎大家改编改进代码

一款用VBS编写的修仙风格打怪游戏相关推荐

  1. 上线首周流水破 5000 万，这款修仙卡牌游戏有何不同？

    近期多款国产修仙题材手游上线宣发,<我的御剑日记>就是其中令人眼前一亮的一款.<我的御剑日记>是由乐府互娱基于 Cocos Creator 研发的妖怪修真卡牌手游,于 5 月全 ...

  2. c语言修仙角色,C语言修仙手游-C语言修仙手游安卓版V7.4.0预约_第一手游网

    <C语言修仙>是一款非常受玩家欢迎的仙侠冒险角色扮演手游,精致唯美的游戏画面风格,栩栩如生的人物形象,炫酷华丽的技能特效释放,上古的神兽坐骑,最完美的情缘系统,还有完善的社交系统,自由的进 ...

  3. 【Pygame实战】星战领衔，修仙种田，四月我们能玩到什么游戏？这款《星际大战》不容错过啦~

    导语 大家好,我是会敲代码且万能的木子酱!! 不知不觉,2022年已经过去了四分之一了,相较于去年,今年更新的新游戏貌似有点儿趋于平 淡了.这次虽然没有大型游戏,但是今天给大家制作一款玩法有趣的< ...

  4. 大数据生态系统 修仙之道 Hadoop Blog

    大数据生态系统 修仙之道 Hadoop Blog @(2019-01-22)[Docs Language:简体中文 & English|Programing Language:Hadoop|W ...

  5. HTML+CSS系列学习：重生之我要精通编程语言修仙

    @[TOC](HTML+CSS系列学习:重生之我要精通编程语言修仙) # 导言 ## 1.拨云见日 基础环节:HTML, CSS 切图流程:传统切图,智能切图,公司流行企图 实战环节:PC企业布局, ...

  6. 幻侠修仙服务器维护,幻侠修仙常见问题_幻侠修仙问答_疑难解答_九游手机游戏...

    幻侠修仙官网安卓正式版带来震撼无限的修仙剧情模式,让你去体验无尽的冒险传说,带来真实的玄幻与小说的经典模式,还有特节等你还原出来:经历五行天劫的磨炼,我们的修仙之路一日千里,在挂机战斗的逍遥路途之中, ...

  7. 择天记服务器维护中,择天记修仙正统

    <择天记>是一款集冒险.养成.策略.奇遇.战斗等元素于一身的玄幻修仙策略手游.在本作中,您将穿越到玄幻世界中,结交道友.打造神兵利器.修炼绝世功法,经历各种艰难磨难和奇遇,参加一场场论剑斗 ...

  8. Java修仙，法力无边（光速回顾Java基础~）

    Java修仙,法力无边(光速回顾Java基础~)✿✿ヽ(°▽°)ノ✿ 目录 第一重 炼体(Java基础编程) 1.1 Java基础概述 1.2 JDK简介 1.3 Java程序的开发 1.4 Java ...

  9. 程序员的修仙之路-筑基篇

    也许很多人都被这个文章的标题吓到.吸引或者迷惑,那我告诉你,这篇文章不是一个程序员的穿越玄幻,不是一个程序员的无聊之谈,里面没有算法公式,亦无程序员的心路历程.它只是一套学习方法与学习工具的使用.这只 ...

  10. 苹果6如何截屏_苹果商量里需要花6元，才能买到的游戏：论如何建立一个修仙门派，到底好不好玩...

    点击上方 蓝字 关注我们 小编最近逛游戏市场,发现了一款名字不寻常,而且排行居然在前三的游戏:<论如何建立一个修仙门派>. 这款游戏在苹果的应用商店里面是需要花费6元才能下载到的,那么它究 ...

最新文章

  1. Could not find com.android.support.constraint:constraint-layout的问题解决
  2. java集合框架图（二）
  3. PDU知识全集，值得收藏！
  4. 雅思听力的词语练习打字！！！
  5. 1高并发服务器：多进程服务器
  6. python中的sort,sorted
  7. RocketMQ单机版本安装(windows环境)
  8. python mmap
  9. MySQL数据库应用与开发答案_MySQL数据库应用与开发习题解答与上机指导
  10. 搭建 Kodbox 私有云教程
  11. Docker学习笔记——Docker基础
  12. 计算机通识培训,通识培训研修日志
  13. python 爬虫小案例 ８６８４网站爬取北京公交路线站点信息。
  14. 将一颗树反转为其镜像
  15. -----------------------------------SQL2005的安装问题汇总 --------------------------
  16. 前端HTML+CSS+JS
  17. Windows7端口被占用的解决办法（笔记本端口被占用）
  18. 将PCAP转换为Json文件的神器：joy(安装篇)
  19. 三菱伺服电机控制实例
  20. R|数据处理|因子型数据

热门文章

  1. 前端项目使用阿里图标
  2. 抖音在线无水印解析PHP源码
  3. 电路串联和并联图解_电路串联和并联的区别有哪些
  4. 把标清视频转高清Video Enhance AI for mac
  5. python程序员自我评价_程序员节，用一句话证明你是一个程序员
  6. 成功安装ML并驱动显卡(gtx460)声卡(alc892)之经验谈
  7. 如何构建高效可信的持续交付能力，华为云有绝活！
  8. libtorrent源码分析（一）整体框架
  9. 使用Quartz实现定时任务
  10. 测试基本理论-看这篇就够了