这是一段文字冒险游戏的代码，玩家在修炼世界中通过历练提升修为，遭遇各种妖兽战斗，获得物品，进行交易，选择装备，探索不同场景。游戏元素包括生命值、攻击力、防御力等，玩家的修为会随着经验值增长而升级，还可以在商店购买物品或出售多余的装备。游戏中有丰富的随机事件，如遇到妖兽、找到宝物、获取修为丹药等，增添了游戏的趣味性和挑战性。
我们先用文本文档写：
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
if guaigong>wanfang then
do
again="yes"
wanming=wanming-guaigong+wanfang
guaiming=guaiming-wangong
if wanming<0 then
again="no"
zongagain="no"
xuanagain="no"
zhandouxinxi="你与"&guaimingzi&"殊死搏斗，但不幸身负重伤，奄奄一息，怕是活不过今日了..."
end if
if guaiming<0 then
again="no"
zhandouxinxi="经历了一番苦斗，你终于杀死了"& guaimingzi &"!(金钱+"&jia&")"
jinqian=jinqian+jia
end if
loop while again="yes"
msgbox zhandouxinxi
end if
if guaigong=wanfang then
zhandouxinxi="你没费多大力气，就杀死了"& guaimingzi &"!(金钱+"&jia&")"
msgbox zhandouxinxi
jinqian=jinqian+jia
end if
if guaigong<wanfang then
zhandouxinxi="你不费吹灰之力，就轻而易举地杀死了"& guaimingzi &"!(金钱+"&jia&")"
msgbox zhandouxinxi
jinqian=jinqian+jia
end if
end if
if xunbao1=1 then
msgbox"你在路边找到了一根破木棍！（破木棍+1）"
pomugun=pomugun+1
end if
if xunbao1=2 then
msgbox"你在一口井的旁边找到了一袋金币！（金钱+10）"
jinqian=jinqian+10
end if
if xunbao1=3 then
msgbox"路过一家无人居住的木屋，经过一番搜寻，你在一个精致的木盒子里找到了一颗小黄丹！(小黄丹+1)"
xiaohuangdan=xiaohuangdan+1
end if
if xunbao1=4 then
msgbox"你在陡峭的岩壁上挖出了一块闪闪发光的灵石！（灵石+1）"
lingshi=lingshi+1
end if
if xunbao1=5 then
msgbox"你为一大户人家挑柴打水数月，作为报酬，你得到了一大袋金币！（金钱+30）"
jinqian=jinqian+30
end if
if xunbao1=6 then
xinxi=xunbao(1,5)
if xinxi=1 then
xinxixian="疾风狼的生命是40点，攻击是5点！"
end if
if xinxi=2 then
xinxixian="斑斓虎的生命是45点，攻击是6点！"
end if
if xinxi=3 then
xinxixian="风灵兔的生命是30点，攻击是4点！"
end if
if xinxi=4 then
xinxixian="青纹蟒的生命是40点，攻击是8点！"
end if
if xinxi=5 then
xinxixian="烈焰狮的生命是80点，攻击是9点！"
end if
msgbox"村中一位见识多广的村民告诉你："&xinxixian
end if
if xunbao1=7 then
msgbox"你在一所无人居住的木屋里，经过一番搜寻，在后院的废铁堆里你翻到了一把残破的铁剑！（残破的铁剑+1）"
canpodetiejian=canpodetiejian+1
end if
if xunbao1=8 then
msgbox"市区喧闹的街巷中，一家丹药店吸引了你！"
do
danagain="yes"
if jinqian<20 then
msgbox"你囊中羞涩，看着眼前的古色古香的丹药店，也只能转身离去。"
danagain="no"
end if
if jinqian>19 then
danchoose=inputbox("市区喧闹的街巷中，一家丹药店吸引了你！"&vbcrlf&"小黄丹：可恢复10点生命！ 售价：20金钱"&vbcrlf&"返生丹：可恢复30点生命！ 售价：50金钱"&vbcrlf&"灵石：可提升1点修为！ 售价：200金钱"&vbcrlf&"你的金钱："&jinqian&vbcrlf&"若购买完毕，请输入：结束")
if danchoose="小黄丹" then
huangdanshu=inputbox("您想购买几颗小黄丹？")
xiaohuangdanshu=huangdanshu
if huangdanshu="" then
xiaohuangdanshu=1
end if
danqian=xiaohuangdanshu*20
zhenqian=danqian-1
if jinqian<danqian then
msgbox"你的钱貌似不够啊..."
end if
if jinqian>zhenqian then
xiaohuangdan=xiaohuangdan+xiaohuangdanshu
jinqian=jinqian-danqian
msgbox"你花费了"&danqian&"金钱，购买了"&xiaohuangdanshu&"颗小黄丹！"
end if
end if
if danchoose="返生丹" then
shengdanshu=inputbox("您想购买几颗返生丹？")
fanshengdanshu=shengdanshu
if shengdanshu="" then
fanshengdanshu=1
end if
danqian=fanshengdanshu*50
zhenqian=danqian-1
if jinqian<danqian then
msgbox"你的钱貌似不够啊..."
end if
if jinqian>zhenqian then
fanshengdan=fanshengdan+fanshengdanshu
jinqian=jinqian-danqian
msgbox"你花费了"&danqian&"金钱，购买了"&fanshengdanshu&"颗返生丹！"
end if
end if
if danchoose="灵石" then
shishu=inputbox("您想购买几颗灵石？")
lingshishu=shishu
if shishu="" then
lingshishu=1
end if
danqian=lingshishu*200
zhenqian=danqian-1
if jinqian<danqian then
msgbox"你的钱貌似不够啊..."
end if
if jinqian>zhenqian then
lingshi=lingshi+lingshishu
jinqian=jinqian-danqian
msgbox"你花费了"&danqian&"金钱，购买了"&lingshishu&"颗灵石！"
end if
end if
end if
if danchoose="结束" then
danagain="no"
msgbox"你没有多停留，便转身离开了丹药店。"
end if
loop while danagain="yes"
end if
if xunbao1=9 then
if jinqian<300 then
msgbox"你看见一所可以提升防御的锻骨池，可无奈囊中羞涩。"
end if
if jinqian>299 then
w=msgbox("繁华的门派中，一所对外人开放的锻骨池吸引了你！（是否花费300金币，提升1点防御力？）",vbyesno," ")
if w=vbyes then
wanfang=wanfang+1
jinqian=jinqian-300
msgbox"你成功花费300金币，淬炼了自己的筋骨！（防御力+1）"
end if
if w=vbno then
msgbox"你没有去在此修炼，而是转头大步流星地离去了。"
end if
end if
end if
if xunbao1=10 then
w=msgbox("路遇流浪的商人，一头妖兽正扑向他！（是否救助商人，与妖兽战斗？）",vbyesno," ")
if w=vbyes then
guaiwu=xunbao(1,5)
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="一品妖兽烈焰狮"
guaiming=80
guaigong=7
jia=120
end if
msgbox"你挡住了那妖兽对商人的致命一击，后退两步，你便冲着那"&guaimingzi&"冲了上去。（生命-5）"
wanming=wanming-5
if guaigong>wanfang then
do
again="yes"
wanming=wanming-guaigong+wanfang
guaiming=guaiming-wangong
if wanming<0 then
again="no"
zongagain="no"
xuanagain="no"
zhandouxinxi="你与"&guaimingzi&"殊死搏斗，但不幸身负重伤，奄奄一息，怕是活不过今日了..."
end if
if guaiming<0 then
again="no"
zhandouxinxi="经历了一番苦斗，你终于杀死了"& guaimingzi &"!(金钱+"&jia&")"
jinqian=jinqian+jia
end if
loop while again="yes"
msgbox zhandouxinxi
end if
if guaigong=wanfang then
zhandouxinxi="你没费多大力气，就杀死了"& guaimingzi &"!(金钱+"&jia&")"
msgbox zhandouxinxi
jinqian=jinqian+jia
end if
if guaigong<wanfang then
zhandouxinxi="你不费吹灰之力，就轻而易举地杀死了"& guaimingzi &"!(金钱+"&jia&")"
msgbox zhandouxinxi
jinqian=jinqian+jia
end if
msgbox"为了报答你，商人从背后的行囊中掏出了一颗返生丹！（返生丹+1）"
fanshengdan=fanshengdan+1
end if
if w=vbno then
msgbox"你没有理会商人在背后的惨叫，而是转头大步流星地离去了。"
end if
end if
if xunbao1=11 then
msgbox"你在一所无人居住的木屋里，经过一番搜寻，在卧室的衣柜中你找到了一件皮衣！（皮衣+1）"
piyi=piyi+1
end if
if xunbao1=12 then
msgbox"你在一所荒废的村庄的铁匠铺里，经过一番搜寻，在打铁台上你找到了一件锁链甲！（锁链甲+1）"
suolianjia=suolianjia+1
end if
if xunbao1=13 then
msgbox"市区喧闹的街巷中，一家铁匠铺吸引了你！"
do
tieagain="yes"
if jinqian<100 then
msgbox"你囊中羞涩，看着眼前的挂满精良铁器的铁匠铺，也只能转身离去。"
tieagain="no"
end if
if jinqian>99 then
tiechoose=inputbox("你走进了铁匠铺，看到了挂在墙上的价目表："&vbcrlf&"铁剑：攻击+6！ 售价：100金钱"&vbcrlf&"精钢剑：攻击+8！ 售价：200金钱"&vbcrlf&"你的金钱："&jinqian&vbcrlf&"若购买完毕，请输入：结束")
if tiechoose="铁剑" then
if jinqian<100 then
msgbox"你的钱貌似不够啊..."
end if
if jinqian>99 then
tiejian=tiejian+1
jinqian=jinqian-100
msgbox"你花费了100金钱，购买了1把铁剑！"
end if
end if
if tiechoose="精钢剑" then
if jinqian<200 then
msgbox"你的钱貌似不够啊..."
end if
if jinqian>199 then
jinggangjian=jinggangjian+1
jinqian=jinqian-200
msgbox"你花费了200金钱，购买了1把精钢剑！"
end if
end if
end if
if tiechoose="结束" then
tieagain="no"
msgbox"你没有多停留，便转身离开了铁匠铺。"
end if
loop while tieagain="yes"
end if
if xunbao1=14 then
msgbox"你在一片峡谷里的山崖上看到了一块蓝幽幽的石头，走去挖出一看，竟是一大块灵石！（灵石+3）"
lingshi=lingshi+3
end if
if xunbao1=15 then
if jinqian<50 then
msgbox"你远远看见一个衣衫褴褛的乞丐，他回头瞥了你一眼就走了。"
end if
if jinqian>49 then
w=msgbox("一个衣衫褴褛的乞丐拉住了你，询问你是否要买他的一张辟邪符。（是否花费50金钱，购买一张辟邪符？）",vbyesno," ")
if w=vbyes then
bixiefu=bixiefu+1
jinqian=jinqian-50
msgbox"你成功花费50金钱，买了那乞丐的一张辟邪符！（辟邪符+1）"
end if
if w=vbno then
msgbox"你没有理会那个奇怪的乞丐，而是转头大步流星地离去了。"
end if
end if
end if
pomugunxian=""
fanshengdanxian=""
lingshixian=""
canpodetiejianxian=""
xiaohuangdanxian=""
wuqixian=""
piyixian=""
suolianjiaxian=""
fangjuxian=""
tiejianxian=""
jinggangjianxian=""
bixiefuxian=""
if pomugun>0 then
pomugunxian="破木棍*" & pomugun &" "
end if
if fanshengdan>0 then
fanshengdanxian="返生丹*" & fanshengdan &" "
end if
if lingshi>0 then
lingshixian="灵石*" & lingshi &" "
end if
if canpodetiejian>0 then
canpodetiejianxian="残破的铁剑*" & canpodetiejian &" "
end if
if xiaohuangdan>0 then
xiaohuangdanxian="小黄丹*" & xiaohuangdan &" "
end if
if piyi>0 then
piyixian="皮衣*" & piyi &" "
end if
if suolianjia>0 then
suolianjiaxian="锁链甲*" & suolianjia &" "
end if
if tiejian>0 then
tiejianxian="铁剑*" & tiejian &" "
end if
if jinggangjian>0 then
jinggangjianxian="精钢剑*" & jinggangjian &" "
end if
if bixiefu>0 then
bixiefuxian="辟邪符*" & bixiefu &" "
end if
if pomugunwu>0 then
wuqixian="破木棍"
end if
if canpodetiejianwu>0 then
wuqixian="残破的铁剑"
end if
if piyifang>0 then
fangjuxian="皮衣"
end if
if suolianjiafang>0 then
fangjuxian="锁链甲"
end if
if tiejianwu>0 then
wuqixian="铁剑"
end if
if jinggangjianwu>0 then
wuqixian="精钢剑"
end if
do
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="破木棍" then
if pomugun=0 then
msgbox"你貌似没有这件物品呢..."
end if
if pomugun>0 then
if pomugunwu=1 then
msgbox"你已经装备了该武器，无法再次装备！"
end if
if pomugunwu=0 then
if wuqi=1 then
wangong=wangong+1
msgbox"你成功装备了一根破木棍！（攻击力+1）"
pomugun=pomugun-1
pomugunwu=1
canpodetiejianwu=canpodetiejianwu-1
if canpodetiejianwu=0 then
canpodetiejian=canpodetiejian+1
wangong=wangong-3
canpodetiejianwu=-1
end if
canpodetiejianwu=canpodetiejianwu+1
tiejianwu=tiejianwu-1
if tiejianwu=0 then
tiejian=tiejian+1
wangong=wangong-6
tiejianwu=-1
end if
tiejianwu=tiejianwu+1
jinggangjianwu=jinggangjianwu-1
if jinggangjianwu=0 then
jinggangjian=jinggangjian+1
wangong=wangong-8
jinggangjianwu=-1
end if
jinggangjianwu=jinggangjianwu+1
end if
if wuqi=0 then
wangong=wangong+1
msgbox"你成功装备了一根破木棍！（攻击力+1）"
pomugun=pomugun-1
pomugunwu=1
wuqi=1
end if
end if
end if
end if
if choose="返生丹" then
if fanshengdan=0 then
msgbox"你貌似没有这件物品呢..."
end if
if fanshengdan>0 then
wanming=wanming+30
msgbox"你服下了一枚返生丹，气血开始渐渐地恢复了！（生命+30）"
fanshengdan=fanshengdan-1
end if
end if
if choose="灵石" then
if lingshi=0 then
msgbox"你貌似没有这件物品呢..."
end if
if lingshi>0 then
xiuwei=xiuwei+1
msgbox"你静心吐纳，吸收灵石中的纯净灵气。你的修为增加了！（修为+1）"
lingshi=lingshi-1
end if
end if
if choose="残破的铁剑" then
if canpodetiejian=0 then
msgbox"你貌似没有这件物品呢..."
end if
if canpodetiejian>0 then
if canpodetiejianwu=1 then
msgbox"你已经装备了该武器，无法再次装备！"
end if
if canpodetiejianwu=0 then
if wuqi=1 then
wangong=wangong+3
msgbox"你成功装备了一把残破的铁剑！（攻击力+3）"
canpodetiejian=canpodetiejian-1
canpodetiejianwu=1
pomugunwu=pomugunwu-1
if pomugunwu=0 then
pomugun=pomugun+1
wangong=wangong-1
pomugunwu=-1
end if
pomugunwu=pomugunwu+1
tiejianwu=tiejianwu-1
if tiejianwu=0 then
tiejian=tiejian+1
wangong=wangong-6
tiejianwu=-1
end if
tiejianwu=tiejianwu+1
jinggangjianwu=jinggangjianwu-1
if jinggangjianwu=0 then
jinggangjian=jinggangjian+1
wangong=wangong-8
jinggangjianwu=-1
end if
jinggangjianwu=jinggangjianwu+1
end if
if wuqi=0 then
wangong=wangong+3
msgbox"你成功装备了一把残破的铁剑！（攻击力+3）"
canpodetiejian=canpodetiejian-1
canpodetiejianwu=1
wuqi=1
end if
end if
end if
end if
if choose="铁剑" then
if tiejian=0 then
msgbox"你貌似没有这件物品呢..."
end if
if tiejian>0 then
if tiejianwu=1 then
msgbox"你已经装备了该武器，无法再次装备！"
end if
if tiejianwu=0 then
if wuqi=1 then
wangong=wangong+6
msgbox"你成功装备了一把铁剑！（攻击力+6）"
tiejian=tiejian-1
tiejianwu=1
canpodetiejianwu=canpodetiejianwu-1
if canpodetiejianwu=0 then
canpodetiejian=canpodetiejian+1
wangong=wangong-3
canpodetiejianwu=-1
end if
canpodetiejianwu=canpodetiejianwu+1
pomugunwu=pomugunwu-1
if pomugunwu=0 then
pomugun=pomugun+1
wangong=wangong-1
pomugunwu=-1
end if
pomugunwu=pomugunwu+1
jinggangjianwu=jinggangjianwu-1
if jinggangjianwu=0 then
jinggangjian=jinggangjian+1
wangong=wangong-8
jinggangjianwu=-1
end if
jinggangjianwu=jinggangjianwu+1
end if
if wuqi=0 then
wangong=wangong+6
msgbox"你成功装备了一把铁剑！（攻击力+6）"
tiejian=tiejian-1
tiejianwu=1
wuqi=1
end if
end if
end if
end if
if choose="精钢剑" then
if jinggangjian=0 then
msgbox"你貌似没有这件物品呢..."
end if
if jinggangjian>0 then
if jinggangjianwu=1 then
msgbox"你已经装备了该武器，无法再次装备！"
end if
if jinggangjianwu=0 then
if wuqi=1 then
wangong=wangong+8
msgbox"你成功装备了一把精钢剑！（攻击力+8）"
jinggangjian=jinggangjian-1
jinggangjianwu=1
canpodetiejianwu=canpodetiejianwu-1
if canpodetiejianwu=0 then
canpodetiejian=canpodetiejian+1
wangong=wangong-3
canpodetiejianwu=-1
end if
canpodetiejianwu=canpodetiejianwu+1
tiejianwu=tiejianwu-1
if tiejianwu=0 then
tiejian=tiejian+1
wangong=wangong-6
tiejianwu=-1
end if
tiejianwu=tiejianwu+1
pomugunwu=pomugunwu-1
if pomugunwu=0 then
pomugun=pomugun+1
wangong=wangong-1
pomugunwu=-1
end if
pomugunwu=pomugunwu+1
end if
if wuqi=0 then
wangong=wangong+8
msgbox"你成功装备了一把精钢剑！（攻击力+8）"
jinggangjian=jinggangjian-1
jinggangjianwu=1
wuqi=1
end if
end if
end if
end if
if choose="小黄丹" then
if xiaohuangdan=0 then
msgbox"你貌似没有这件物品呢..."
end if
if xiaohuangdan>0 then
wanming=wanming+10
msgbox"你服下了一枚小黄丹，气血恢复了些许！（生命+10）"
xiaohuangdan=xiaohuangdan-1
end if
end if
if choose="出售破木棍" then
if pomugun=0 then
msgbox"你貌似没有这件物品呢..."
end if
if pomugun>0 then
jinqian=jinqian+5
msgbox"出售成功！（破木棍-1，金钱+5）"
pomugun=pomugun-1
end if
end if
if choose="出售残破的铁剑" then
if canpodetiejian=0 then
msgbox"你貌似没有这件物品呢..."
end if
if canpodetiejian>0 then
jinqian=jinqian+20
msgbox"出售成功！（残破的铁剑-1，金钱+20）"
canpodetiejian=canpodetiejian-1
end if
end if
if choose="出售皮衣" then
if piyi=0 then
msgbox"你貌似没有这件物品呢..."
end if
if piyi>0 then
jinqian=jinqian+30
msgbox"出售成功！（皮衣-1，金钱+30）"
piyi=piyi-1
end if
end if
if choose="出售锁链甲" then
if suolianjia=0 then
msgbox"你貌似没有这件物品呢..."
end if
if suolianjia>0 then
jinqian=jinqian+120
msgbox"出售成功！（锁链甲-1，金钱+120）"
suolianjia=suolianjia-1
end if
end if
if choose="出售铁剑" then
if tiejian=0 then
msgbox"你貌似没有这件物品呢..."
end if
if tiejian>0 then
jinqian=jinqian+100
msgbox"出售成功！（铁剑-1，金钱+100）"
tiejian=tiejian-1
end if
end if
if choose="出售精钢剑" then
if jinggangjian=0 then
msgbox"你貌似没有这件物品呢..."
end if
if jinggangjian>0 then
jinqian=jinqian+200
msgbox"出售成功！（精钢剑-1，金钱+200）"
jinggangjian=jinggangjian-1
end if
end if
if choose="皮衣" then
if piyi=0 then
msgbox"你貌似没有这件物品呢..."
end if
if piyi>0 then
if piyifang=1 then
msgbox"你已经装备了该防具，无法再次装备！"
end if
if piyifang=0 then
if fangju=1 then
wanfang=wanfang+1
msgbox"你成功装备了一件皮衣！（防御力+1）"
piyi=piyi-1
piyifang=1
suolianjiafang=suolianjiafang-1
if suolianjiafang=0 then
suolianjia=suolianjia+1
wanfang=wanfang-3
suolianjiafang=-1
end if
suolianjiafang=suolianjiafang+1
end if
if fangju=0 then
wanfang=wanfang+1
msgbox"你成功装备了一件皮衣！（防御力+1）"
piyi=piyi-1
piyifang=1
fangju=1
end if
end if
end if
end if
if choose="锁链甲" then
if suolianjia=0 then
msgbox"你貌似没有这件物品呢..."
end if
if suolianjia>0 then
if suolianjiafang=1 then
msgbox"你已经装备了该防具，无法再次装备！"
end if
if suolianjiafang=0 then
if fangju=1 then
wanfang=wanfang+3
msgbox"你成功装备了一件锁链甲！（防御力+3）"
suolianjia=suolianjia-1
suolianjiafang=1
piyifang=piyifang-1
if piyifang=0 then
piyi=piyi+1
wanfang=wanfang-1
piyifang=-1
end if
piyifang=piyifang+1
end if
if fangju=0 then
wanfang=wanfang+3
msgbox"你成功装备了一件锁链甲！（防御力+3）"
suolianjia=suolianjia-1
suolianjiafang=1
fangju=1
end if
end if
end if
end if
if choose="辟邪符" then
if bixiefu=0 then
msgbox"你貌似没有这件物品呢..."
end if
if bixiefu>0 then
z=4
msgbox"你点燃了一张辟邪符，一股奇异的香味传来！（下一回合降低遇到妖兽的概率）"
bixiefu=bixiefu-1
end if
end if
if choose="结束" then
xuanagain="no"
end if
if choose="退出" then
zongagain="no"
end if
pomugunxian=""
fanshengdanxian=""
lingshixian=""
canpodetiejianxian=""
xiaohuangdanxian=""
wuqixian=""
piyixian=""
suolianjiaxian=""
fangjuxian=""
tiejianxian=""
jinggangjianxian=""
bixiefuxian=""
if pomugun>0 then
pomugunxian="破木棍*" & pomugun &" "
end if
if fanshengdan>0 then
fanshengdanxian="返生丹*" & fanshengdan &" "
end if
if lingshi>0 then
lingshixian="灵石*" & lingshi &" "
end if
if canpodetiejian>0 then
canpodetiejianxian="残破的铁剑*" & canpodetiejian &" "
end if
if xiaohuangdan>0 then
xiaohuangdanxian="小黄丹*" & xiaohuangdan &" "
end if
if pomugunwu>0 then
wuqixian="破木棍"
end if
if canpodetiejianwu>0 then
wuqixian="残破的铁剑"
end if
if piyifang>0 then
fangjuxian="皮衣"
end if
if suolianjiafang>0 then
fangjuxian="锁链甲"
end if
if piyi>0 then
piyixian="皮衣*" & piyi &" "
end if
if suolianjia>0 then
suolianjiaxian="锁链甲*" & suolianjia &" "
end if
if tiejianwu>0 then
wuqixian="铁剑"
end if
if jinggangjianwu>0 then
wuqixian="精钢剑"
end if
if tiejian>0 then
tiejianxian="铁剑*" & tiejian &" "
end if
if jinggangjian>0 then
jinggangjianxian="精钢剑*" & jinggangjian &" "
end if
if bixiefu>0 then
bixiefuxian="辟邪符*" & bixiefu &" "
end if
r=r+1
loop while xuanagain="yes"
loop while zongagain="yes"
然后把类型改为vbs后，就完成了。
4214
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
