VBS老游戏改造：剑圣

原本的界面没有改动太多，新增的功能还没有做完

zhouheng发布的两个版本都没有银行的系统，所以我就写了一个银行的功能
原作是没有战败扣钱的设定的，所以我补充了这个设定
打算在遇到的各种事件里加入扣钱的情况，这样银行就相对有点用处了

银行的界面

账户信息，会显示存款、欠款……因为我技术很蔡，所以就把银行账户单独做了一个存档系统，以后的物品栏也打算这样做

这是训练场，其实就是zhouheng发布的第二版中的升级中心。因为zhouheng发布的第二版源码被加密了，所以我自己重新写了一段代码实现这个功能

战斗系统也做了点改进
给敌人也增加了命中率，原作中敌人只有血量和攻击力
这样算是提升了少得可怜的游戏性

sub attacking()
call ptynew
if pty<=realpty then
ehp=ehp-attack
end if
showehp=Cstr(ehp)
end sub
sub eattacking()
call eptynew
if epty<=erealpty then
hp=hp-eattack
end if
showhp=Cstr(hp)
end sub
sub fighting0()
erealpty=int(Rnd*99+1)
if erealpty<25 then
erealpty=int(realpty*0.99)
end if
showerealpty=cstr(erealpty)
eattack=int(attack*Rnd)
if eattack=0 then
eattack=int(attack*0.9)
else
end if
showeattack=Cstr(eattack)
ehp=int(hp*Rnd)
if ehp=0 then
ehp=int(hp*1.1)
end if
showehp=Cstr(ehp)
msgbox "对手实力如下如下："+hh+"血量="+showehp+hh+"攻击力="+showeattack+hh+"命中率="+showerealpty,64,"剑圣"
msgbox "开战！",64,"剑圣"
do until hp<=0 or ehp<=0
call attacking
call eattacking
msgbox "你的血量="+showhp+hh+"对方的血量="+showehp,64,"战斗中"
loop
if hp<=0 then
msgbox "胜败兵家常事，大侠重新来过",64,"失败"
money=money-50-showehp*0.2
hp=fullhp
else
msgbox "在战斗中取胜！",64,"胜利"
money=money+50+hp*0.2-ehp*0.2
killing=killing+1
showmoney=Cstr(money)
showkilling=Cstr(killing)
hp=fullhp
Set f=fso.opentextfile("剑圣存档.dat",2,True)
f.WriteLine (showlevel)
f.writeline (showmoney) '钱数
f.writeline (showattack) '攻击
f.writeline (showfullhp) '血量
f.writeline (showrealpty) '命中率
f.writeline (showkilling) '杀怪数
f.close
end if
call manu
end sub
sub shop()
msgbox "欢迎来到商店！",64,"商店"
shopping=inputbox("请选择购物项目："+hh+"A：剑 B：衣甲 C: 饰品 D：杂物 ","商店")
if shopping="a" then
Item=inputbox("请选择购物内容："+hh+"A: 木剑 攻击+10% 命中率+5% 1300G B：石剑 攻击+15% 命中率+10% 2950G C：铁剑 攻击+20% 命中率+16% 7985G"+hh+"D: 金剑 攻击-70% 命中率+40% 32000G E：钻石剑 攻击+30% 命中率+22% 356400G"+hh+"F：EX咖喱棒 攻击+58% 命中率+40% 生命-45% 购买本武器后有特殊剧情 1001011G ","商店")
if Item="a" then
if money<weapon1 then
msgbox "您钱不够！",64,"商店"
else
money=money-weapon1
showmoney=Cstr(money)
increaseattack=attack*0.1
attack=attack+increaseattack 'mark
realpty=realpty+5
showrealpty=Cstr(realpty)
showattack=Cstr(attack)
end if
elseif Item="b" then
if money<weapon2 then
msgbox "您钱不够！",64,"商店"
else
money=money-weapon2
showmoney=Cstr(money)
attack=20
showattack=Cstr(attack)
realpty=50
showrealpty=Cstr(realpty)
end if
elseif Item="c" then
if money<weapon3 then
msgbox "您钱不够！",64,"商店"
else
money=money-weapon3
showmoney=Cstr(money)
attack=100
showattack=Cstr(attack)
realpty=80
showrealpty=Cstr(realpty)
end if
end if
elseif shopping="b" then
Item=inputbox("请选择购物内容："+hh+"A：钢甲 血量+1000 500$ B：高级护甲 血量+2000 1,000$ C：电镀盔甲 血量+4000 5,000$","商店")
if Item="a" then
if money<weapon1 then
msgbox "您钱不够！",64,"商店"
else
money=money-weapon1
showmoney=Cstr(money)
fullhp=1000
showfullhp=Cstr(fullhp)
end if
elseif Item="b" then
if money<weapon2 then
msgbox "您钱不够！",64,"商店"
else
money=money-weapon2
showmoney=Cstr(money)
fullhp=2000
showfullhp=Cstr(fullhp)
end if
elseif Item="c" then
if money<weapon3 then
msgbox "您钱不够！",64,"商店"
else
money=money-weapon3
showmoney=Cstr(money)
fullhp=10000
showfullhp=Cstr(fullhp)
end if
end if
end if
Set f=fso.opentextfile("剑圣存档.dat",2,True)
f.WriteLine (showlevel)
f.writeline (showmoney) '钱数
f.writeline (showattack) '攻击
f.writeline (showfullhp) '血量
f.writeline (showrealpty) '命中率
f.writeline (showkilling) '杀怪数
f.Close
Set ff=ffso.opentextfile("剑圣银行账户.dat",2,True)
ff.writeline (showstored) '存款
ff.writeline (showborrowed) '欠款
ff.close
call manu
end sub
call manu

源码比较长，分了两次来发

因为我写的时候都是每次只改进一个方面，所以有些地方应该有bug，比如商店……
商店的设定我还没写完，大家可以自己在里面填数据，照葫芦画瓢就能把自己想要的商品写出来

另外我想知道怎么能跳过战斗的流程……慢慢按回车键简直浪费人生……

另外说明一下，我的技术很蔡，代码中可以优化改进的地方大家可以指出来（能指导一下就更好了）（大部分应该都能优化……）
我其实不擅长写vbs脚本，只是因为对剑圣的代码比较熟悉，所以才能改造这个游戏……

lz你好 我是原作者 没记错的话这是我三年前搞出来的。。本来这个vbs游戏只是我初中闲得没事乱写着玩玩的 后来没时间 也觉得太无聊就没再动它了 没想到现在还有人记得 感动了

能给分享链接吗？

［顶 风 作 案］
@lindong26 原来的版本也能发一下吗？挺感兴趣的，尤其是对原作者（@ImtLgd-）写的被加密的那段...

原来是链接被和谐掉了。我已经查到链接了，现在已经解密完毕了。可以放出解密后代码吗？@lindong26 @DotRhAM