为大家带来一款作者自己用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
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编写的修仙风格打怪游戏
发布评论