Set ff=ffso.opentextfile("剑圣银行账户.dat",1,True)
showstored=ff.ReadLine
showborrowed=ff.ReadLine
ff.close
level=clng(showlevel)
money=clng(showmoney)
attack=clng(showattack)
fullhp=clng(showfullhp)
realpty=clng(showrealpty)
killing=clng(showkilling)
stored=CLng(showstored)
borrowed=CLng(showborrowed)
hp=fullhp
weapon1=500
weapon2=1000
weapon3=5000
weapon4=0
weapon5=0
weapon6=0
weapon7=0
weapon8=0
weapon9=0
weapon10=0
armor1=0
armor2=0
armor3=0
armor4=0
armor5=0
armor6=0
armor7=0
armor8=0
armor9=0
armor10=0
jewelry1=0
jewelry2=0
jewelry3=0
jewelry4=0
jewelry5=0
jewelry6=0
jewelry7=0
jewelry8=0
jewelry9=0
jewelry10=0
sub ptynew()
pty=int(Rnd*99+1)
end sub
sub eptynew()
epty=int(Rnd*99+1)
end sub
hh=chr(10)+chr(13)
sub manu()
menus=inputbox("请选择一项内容："+hh+"A：挑战剑客 B：商店 C：帮助 D：退出 E：人物信息 F:训练场 G:银行"+hh+"H：开始冒险 I:检查物品"+hh+"请输入小写英文字母"+hh+"更新：2020-2-28，剑圣1.2开始开发","主菜单")
if menus="a" then
call fighting0
elseif menus="b" then
call shop
elseif menus="d" then
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
wscript.Quit
ElseIf menus="g" Then
MsgBox "这里是银行，可以存款、取款、借款、还款",64,"银行"
call bandband
elseif menus="f" Then
msgbox "通过训练可以提升等级，训练一次需要300金钱，提升一级，增加60点生命，增加7点攻击",64,"训练场"
traintimes=inputbox("您要训练几次？","训练场")
trainfee=traintimes*300
If money<trainfee then
MsgBox "您的钱不够呢",64,"训练场"
else
level=level+traintimes
money=money-traintimes*300
showmoney=CStr(money)
fullhp=fullhp+traintimes*60
attack=attack+traintimes*7
showfullhp=CStr(fullhp)
showattack=CStr(attack)
End if
Call manu
elseif menus="h" then
adventrue=inputbox("请做出选择："+hh+"A: 挑战剑客 B: 查看公告榜 C: 历险 D:检查物品 E：退出冒险","冒险")
if adventrue="a" then
call fighting1
elseif adventrue="b" then
call proclamation
elseif adventrue="c" then
msgbox "本功能暂未开放",64,"冒险"
elseif adventrue="d" then
call checking
elseif advantrue="e" then
call manu
end if
elseif menus="c" then
msgbox "本游戏需正常退出才能存档"+hh+"战斗规则：回合制",64,"剑圣"
call manu
elseif menus="e" then
showlevel=Cstr(level)
showmoney=Cstr(money)
showfullhp=Cstr(fullhp)
showattack=Cstr(attack)
showkilling=Cstr(killing)
showrealpty=Cstr(realpty)
msgbox "你的等级="+showlevel+hh+"你的钱数="+showmoney+hh+"你的血量="+showfullhp+hh+"你的攻击="+showattack+hh+"你的命中率="+showrealpty+"%"+hh+"你杀的怪="+showkilling,64,"个人信息"
call manu
end if
end sub
sub bandband()
banding=InputBox("请选择项目:"+hh+"A：存款 B：取款 C：借款 D：还款 E：查看账户"+hh+"F:离开","银行") 'mark
If banding="a" Then
storemoney=InputBox("需要存多少钱？","银行")
showbandmoney=cstr(money)
If storemoney>showbandmoney then
MsgBox "超出现有金钱",64,"银行"
Else
stored=stored+storemoney
money=money-storemoney
showstored=CStr(stored)
showmoney=CStr(money)
End If
call bandband
ElseIf banding="b" Then
showbandstored=cstr(stored)
takemoney=InputBox("想要取多少钱？","银行")
If takemoney>showbandstored then
MsgBox "取款超出存款",64,"银行"
call bandband
Else
money=money+takemoney
stored=stored-takemoney
showmoney=CStr(money)
showstored=CStr(stored)
call bandband
End If
ElseIf banding="c" Then
showlevel=cstr(level)
borrower=showlevel+showlevel+showlevel+showlevel+showlevel+showlevel+showlevel+showlevel+showlevel
borrowmoney=InputBox("想要借多少钱？每次借款不能超过“等级×10”","银行")
If borrowmoney>borrower then
MsgBox "借款数额过多",64,"银行"
call bandband
Else
money=money+borrowmoney
borrowed=borrowed+borrowmoney
showmoney=CStr(money)
call bandband
End If
ElseIf banding="d" Then
showbandmoney=cstr(money)
showbandborrowed=cstr(borrowed)
returnmoney=InputBox("要还多少钱？","银行")
if returnmoney="" then
call bandband
else
If returnmoney>showbandborrowed then
MsgBox "还款数额大于借款额，您是在做慈善吗？",64,"银行"
call bandband
Else
if returnmoney>showbandmoney then
msgbox "超出现有金钱",64,"银行"
call bandband
else
borrowed=borrowed-returnmoney
money=money-returnmoney
showborrowed=CStr(borrowed)
showmoney=CStr(money)
call bandband
End If
end if
end if
ElseIf banding="e" then
showstored=Cstr(stored)
showborrowed=Cstr(borrowed)
MsgBox "存款="+showstored+hh+"欠款="+showborrowed,64,"账户信息"
call bandband
elseif banding="f" then
Set ff=ffso.opentextfile("剑圣银行账户.dat",2,True)
ff.writeline (showstored) '存款
ff.writeline (showborrowed) '欠款
ff.close
Call manu
End If
Set ff=ffso.opentextfile("剑圣银行账户.dat",2,True)
ff.writeline (showstored) '存款
ff.writeline (showborrowed) '欠款
ff.close
Call manu
end sub
showstored=ff.ReadLine
showborrowed=ff.ReadLine
ff.close
level=clng(showlevel)
money=clng(showmoney)
attack=clng(showattack)
fullhp=clng(showfullhp)
realpty=clng(showrealpty)
killing=clng(showkilling)
stored=CLng(showstored)
borrowed=CLng(showborrowed)
hp=fullhp
weapon1=500
weapon2=1000
weapon3=5000
weapon4=0
weapon5=0
weapon6=0
weapon7=0
weapon8=0
weapon9=0
weapon10=0
armor1=0
armor2=0
armor3=0
armor4=0
armor5=0
armor6=0
armor7=0
armor8=0
armor9=0
armor10=0
jewelry1=0
jewelry2=0
jewelry3=0
jewelry4=0
jewelry5=0
jewelry6=0
jewelry7=0
jewelry8=0
jewelry9=0
jewelry10=0
sub ptynew()
pty=int(Rnd*99+1)
end sub
sub eptynew()
epty=int(Rnd*99+1)
end sub
hh=chr(10)+chr(13)
sub manu()
menus=inputbox("请选择一项内容："+hh+"A：挑战剑客 B：商店 C：帮助 D：退出 E：人物信息 F:训练场 G:银行"+hh+"H：开始冒险 I:检查物品"+hh+"请输入小写英文字母"+hh+"更新：2020-2-28，剑圣1.2开始开发","主菜单")
if menus="a" then
call fighting0
elseif menus="b" then
call shop
elseif menus="d" then
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
wscript.Quit
ElseIf menus="g" Then
MsgBox "这里是银行，可以存款、取款、借款、还款",64,"银行"
call bandband
elseif menus="f" Then
msgbox "通过训练可以提升等级，训练一次需要300金钱，提升一级，增加60点生命，增加7点攻击",64,"训练场"
traintimes=inputbox("您要训练几次？","训练场")
trainfee=traintimes*300
If money<trainfee then
MsgBox "您的钱不够呢",64,"训练场"
else
level=level+traintimes
money=money-traintimes*300
showmoney=CStr(money)
fullhp=fullhp+traintimes*60
attack=attack+traintimes*7
showfullhp=CStr(fullhp)
showattack=CStr(attack)
End if
Call manu
elseif menus="h" then
adventrue=inputbox("请做出选择："+hh+"A: 挑战剑客 B: 查看公告榜 C: 历险 D:检查物品 E：退出冒险","冒险")
if adventrue="a" then
call fighting1
elseif adventrue="b" then
call proclamation
elseif adventrue="c" then
msgbox "本功能暂未开放",64,"冒险"
elseif adventrue="d" then
call checking
elseif advantrue="e" then
call manu
end if
elseif menus="c" then
msgbox "本游戏需正常退出才能存档"+hh+"战斗规则：回合制",64,"剑圣"
call manu
elseif menus="e" then
showlevel=Cstr(level)
showmoney=Cstr(money)
showfullhp=Cstr(fullhp)
showattack=Cstr(attack)
showkilling=Cstr(killing)
showrealpty=Cstr(realpty)
msgbox "你的等级="+showlevel+hh+"你的钱数="+showmoney+hh+"你的血量="+showfullhp+hh+"你的攻击="+showattack+hh+"你的命中率="+showrealpty+"%"+hh+"你杀的怪="+showkilling,64,"个人信息"
call manu
end if
end sub
sub bandband()
banding=InputBox("请选择项目:"+hh+"A：存款 B：取款 C：借款 D：还款 E：查看账户"+hh+"F:离开","银行") 'mark
If banding="a" Then
storemoney=InputBox("需要存多少钱？","银行")
showbandmoney=cstr(money)
If storemoney>showbandmoney then
MsgBox "超出现有金钱",64,"银行"
Else
stored=stored+storemoney
money=money-storemoney
showstored=CStr(stored)
showmoney=CStr(money)
End If
call bandband
ElseIf banding="b" Then
showbandstored=cstr(stored)
takemoney=InputBox("想要取多少钱？","银行")
If takemoney>showbandstored then
MsgBox "取款超出存款",64,"银行"
call bandband
Else
money=money+takemoney
stored=stored-takemoney
showmoney=CStr(money)
showstored=CStr(stored)
call bandband
End If
ElseIf banding="c" Then
showlevel=cstr(level)
borrower=showlevel+showlevel+showlevel+showlevel+showlevel+showlevel+showlevel+showlevel+showlevel
borrowmoney=InputBox("想要借多少钱？每次借款不能超过“等级×10”","银行")
If borrowmoney>borrower then
MsgBox "借款数额过多",64,"银行"
call bandband
Else
money=money+borrowmoney
borrowed=borrowed+borrowmoney
showmoney=CStr(money)
call bandband
End If
ElseIf banding="d" Then
showbandmoney=cstr(money)
showbandborrowed=cstr(borrowed)
returnmoney=InputBox("要还多少钱？","银行")
if returnmoney="" then
call bandband
else
If returnmoney>showbandborrowed then
MsgBox "还款数额大于借款额，您是在做慈善吗？",64,"银行"
call bandband
Else
if returnmoney>showbandmoney then
msgbox "超出现有金钱",64,"银行"
call bandband
else
borrowed=borrowed-returnmoney
money=money-returnmoney
showborrowed=CStr(borrowed)
showmoney=CStr(money)
call bandband
End If
end if
end if
ElseIf banding="e" then
showstored=Cstr(stored)
showborrowed=Cstr(borrowed)
MsgBox "存款="+showstored+hh+"欠款="+showborrowed,64,"账户信息"
call bandband
elseif banding="f" then
Set ff=ffso.opentextfile("剑圣银行账户.dat",2,True)
ff.writeline (showstored) '存款
ff.writeline (showborrowed) '欠款
ff.close
Call manu
End If
Set ff=ffso.opentextfile("剑圣银行账户.dat",2,True)
ff.writeline (showstored) '存款
ff.writeline (showborrowed) '欠款
ff.close
Call manu
end sub
