传奇银行服务脚本

[@银行服务]
{
#IF
Large d4 99
#Say
您银行帐户内的存款为一亿金币.\
存入金币：<100万/@存100万> <200万/@存200万> <500万/@存500万>\
取出金币：<100万/@取100万> <200万/@取200万> <500万/@取500万>\
利息服务：<利息信息/@利息信息> <取出利息/@取出利息>\
#Act
Break
#IF
Large d4 0
#Say
您银行帐户内的存款为<$str(d4)>00万金币.\
存入金币：<100万/@存100万> <200万/@存200万> <500万/@存500万>\
取出金币：<100万/@取100万> <200万/@取200万> <500万/@取500万>\
利息服务：<利息信息/@利息信息> <取出利息/@取出利息>\
#ElseSay
您银行帐户内的存款为<$str(d4)>金币.\
存入金币：<100万/@存100万> <200万/@存200万> <500万/@存500万>\
取出金币：<100万/@取100万> <200万/@取200万> <500万/@取500万>\
利息服务：<利息信息/@利息信息> <取出利息/@取出利息>\
[@存100万]
#IF
Small d4 100
CheckGold 1000000
#Act
Inc d4 1
Take 金币 1000000
#CALL [\\银行\调整金币.txt] @调整金币
#CALL [\\银行\金币扣除.txt] @金币扣除
SENDMSG 5 %s已经在您帐户内存入100万金币.
Close
#ElseAct
SENDMSG 7 %s出错原因：
SENDMSG 7 %s①:您在银行内的存款已经超出9900万元,无法进行存放~
SENDMSG 7 %s②:请确认你身上是否有100万的金币.
Close
[@存200万]
#IF
Small d4 99
CheckGold 2000000
#Act
Inc d4 2
Take 金币 2000000
#CALL [\\银行\调整金币.txt] @调整金币
#CALL [\\银行\金币扣除.txt] @金币扣除
SENDMSG 5 %s已经在您帐户内存入200万金币.
Close
#ElseAct
SENDMSG 7 %s出错原因：
SENDMSG 7 %s①:您在银行内的存款已经超出9800万元,无法进行存放~
SENDMSG 7 %s②:请确认你身上是否有200万的金币.
Close
[@存500万]
#IF
Small d4 96
CheckGold 5000000
#Act
Inc d4 5
Take 金币 5000000
#CALL [\\银行\调整金币.txt] @调整金币
#CALL [\\银行\金币扣除.txt] @金币扣除
SENDMSG 5 %s已经在您帐户内存入500万金币.
Close
#ElseAct
SENDMSG 7 %s出错原因：
SENDMSG 7 %s①:您在银行内的存款已经超出9500万元,无法进行存放~
SENDMSG 7 %s②:请确认你身上是否有500万的金币.
Close
[@取100万]
#IF
CheckGold 9000000
#Act
SENDMSG 7 %s①:您包内的金币已经超出900万元.
Close
Break
#IF
Large d4 0
#Act
Dec d4 1
Give 金币 1000000
SENDMSG 5 %s您已经在帐户内取出100万金币.
#CALL [\\银行\调整金币.txt] @调整金币
#CALL [\\银行\金币扣除.txt] @金币扣除
Close
#ElseAct
SENDMSG 7 %s②:您银行内的存款不到100万.
Close
[@取200万]
#IF
CheckGold 8000000
#Act
SENDMSG 7 %s①:您包内的金币已经超出800万元.
Close
Break
#IF
Large d4 1
#Act
Dec d4 2
Give 金币 2000000
SENDMSG 5 %s您已经在帐户内取出200万金币.
#CALL [\\银行\调整金币.txt] @调整金币
#CALL [\\银行\金币扣除.txt] @金币扣除
Close
#ElseAct
SENDMSG 7 %s②:您银行内的存款不到200万.
Close
[@取500万]
#IF
CheckGold 5000000
#Act
SENDMSG 7 %s①:您包内的金币已经超出500万元.
Close
Break
#IF
Large d4 4
#Act
Dec d4 5
Give 金币 5000000
SENDMSG 5 %s您已经在帐户内取出500万金币.
#CALL [\\银行\调整金币.txt] @调整金币
#CALL [\\银行\金币扣除.txt] @金币扣除
Close
#ElseAct
SENDMSG 7 %s②:您银行内的存款不到500万.
Close
[@存100万1]
#IF
Small d4 100
CheckItem 100万支票 1
#Act
Inc d4 1
Take 100万支票 1
#CALL [\\银行\调整金币.txt] @调整金币
#CALL [\\银行\金币扣除.txt] @金币扣除
Close
#ElseAct
SENDMSG 7 %s出错原因：
SENDMSG 7 %s①:您在银行内的存款已经超出9900万元,无法进行存放~
SENDMSG 7 %s②:请确认你身上是否有100万的支票.
Close
[@存200万1]
#IF
Small d4 99
CheckItem 200万支票 1
#Act
Inc d4 2
Take 200万支票 1
#CALL [\\银行\调整金币.txt] @调整金币
#CALL [\\银行\金币扣除.txt] @金币扣除
Close
#ElseAct
SENDMSG 7 %s出错原因：
SENDMSG 7 %s①:您在银行内的存款已经超出9800万元,无法进行存放~
SENDMSG 7 %s②:请确认你身上是否有200万的支票.
Close
[@存500万1]
#IF
Small d4 96
CheckItem 500万支票 1
#Act
Inc d4 5
Take 500万支票 1
#CALL [\\银行\调整金币.txt] @调整金币
#CALL [\\银行\金币扣除.txt] @金币扣除
Close
#ElseAct
SENDMSG 7 %s出错原因：
SENDMSG 7 %s①:您在银行内的存款已经超出9500万元,无法进行存放~
SENDMSG 7 %s②:请确认你身上是否有500万的支票.
Close
[@取100万1]
#IF
Large d4 0
#Act
Dec d4 1
Give 100万支票 1
#CALL [\\银行\调整金币.txt] @调整金币
#CALL [\\银行\金币扣除.txt] @金币扣除
SENDMSG 5 %s100万的支票已经填写完毕！
Close
#ElseAct
SENDMSG 7 %s②:您银行内的存款不到100万.无法填写！
Close
[@取200万1]
#IF
Large d4 1
#Act
Dec d4 2
Give 200万支票 1
#CALL [\\银行\调整金币.txt] @调整金币
#CALL [\\银行\金币扣除.txt] @金币扣除
SENDMSG 5 %s200万的支票已经填写完毕！
Close
#ElseAct
SENDMSG 7 %s②:您银行内的存款不到200万.无法填写！
Close
[@取500万1]
#IF
Large d4 4
#Act
Dec d4 5
Give 500万支票 1
#CALL [\\银行\调整金币.txt] @调整金币
#CALL [\\银行\金币扣除.txt] @金币扣除
SENDMSG 5 %s500万的支票已经填写完毕！
Close
#ElseAct
SENDMSG 7 %s②:您银行内的存款不到500万.无法填写！
Close
[@利息信息]
#Act
SENDMSG 5 %s只要你有钱存在银行内,每100万将按每天1000金币的利息算给你
Close
[@取出利息]
#IF
Large d4 0
#Act
#CALL [\\银行\取走利息.txt] @取走利息
#ElseAct
SENDMSG 5 %s你的银行帐户内的金币为0,故我们无法提供任何利息！
Close
[@我要贷款]
如果你缺钱，我可以先贷款给你，如果你的声望在<10点以上>，\
我可以一次贷款给你100W，如果你的声望在<20点以上>，我可\
以贷款300W给你，如果你的声望在<30点以上>，我可以贷款500万\
给你，如果你的声望在<50点以上>，我可以贷款1000万给你，但每次\
贷款需要花费一点声望值！\
　<[贷款100W]/@dai100>　<[贷款300W]/@dai300>　<[贷款500W]/@dai500>　<[贷款1000万]/@dai1000> \ \
<我要还钱[url=]/@woyaohaiqian[/url]>　<返回[url=]/@main>\[/url]
[@dai1000]
#IF
Check [030] 1
#SAY
您已经在我这里贷过款，还清贷款后才能再次贷款！\ \
<返回[url=]/@main[/url]>
#ACT
break
#IF
CHECKCREDITPOINT > 49
#SAY
这是金盒一个，只有还了钱才能拿回押在这里的45点声望！\ \
<返回[url=]/@main[/url]>
#ACT
set [034] 1
set [030] 1
CREDITPOINT - 46
give 金盒 1
#elsesay
对不起，你声望不够。\ \
<返回[url=]/@main[/url]>
[@dai500]
#IF
Check [030] 1
#SAY
您已经在我这里贷过款，还清贷款后才能再次贷款！\ \
<返回[url=]/@main[/url]>
#ACT
break
#IF
CHECKCREDITPOINT > 29
#SAY
这是500W金币，只有还了钱才能拿回押在这里的25点声望！\ \
<返回[url=]/@main[/url]>
#ACT
set [033] 1
set [030] 1
CREDITPOINT - 26
give 金币 5000000
#elsesay
对不起，你声望不够。\ \
<返回[url=]/@main[/url]>
[@woyaohaiqian]
#IF
Check [030] 0
#SAY
你没在我这里贷款还什么钱啊？\ \
<返回[url=]/@main[/url]>
#ACT
break
#IF
Check [031] 1
#SAY
你在我这里贷了100W金币，你现在有钱还了吗？还了钱你可以\
拿走押在我这里的5点声望！\ \
<现在还钱[url=]/@haiqian100>\[/url]
<返回[url=]/@main[/url]>
#ACT
break
#IF
Check [032] 1
#SAY
你在我这里贷了300W金币，你现在有钱还了吗？还了钱你可以\
拿走押在我这里的15点声望！\ \
<现在还钱[url=]/@haiqian300>\[/url]
<返回[url=]/@main[/url]>
#ACT
break
#IF
Check [033] 1
#SAY
你在我这里贷了500W金币，你现在有钱还了吗？还了钱你可以\
拿走押在我这里的25点声望！\ \
<现在还钱[url=]/@haiqian500>\[/url]
<返回[url=]/@main[/url]>
#ACT
break
#IF
Check [034] 1
#SAY
你在我这里贷了金盒一个，你现在有钱还了吗？还了钱你可以\
拿走押在我这里的45点声望！\ \
<现在还钱[url=]/@haiqian1000>\[/url]
<返回[url=]/@main[/url]>
#ACT
break
[@haiqian1000]
#IF
Check [034] 1
checkitem  金盒 1
#say
您成功还清贷款，下次有需要可以再来我这里贷款！\ \
<返回[url=]/@main[/url]>
#act
take 金盒 1
set [030] 0
set [034] 0
CREDITPOINT + 45
#ELSESAY
您好象没有足够的资金！\ \
<返回[url=]/@main[/url]>
[@haiqian500]
#IF
Check [033] 1
checkgold 5000000
#say
您成功还清贷款，下次有需要可以再来我这里贷款！\ \
<返回[url=]/@main[/url]>
#act
take 金币 5000000
set [030] 0
set [033] 0
CREDITPOINT + 25
#ELSESAY
您好象没有足够的资金！\ \
<返回[url=]/@main[/url]>
[@haiqian300]
#IF
Check [032] 1
checkgold 3000000
#say
您成功还清贷款，下次有需要可以再来我这里贷款！\ \
<返回[url=]/@main[/url]>
#act
take 金币 3000000
set [030] 0
set [032] 0
CREDITPOINT + 15
#ELSESAY
您好象没有足够的资金！\ \
<返回[url=]/@main[/url]>
[@haiqian100]
#IF
Check [031] 1
checkgold 1000000
#say
您成功还清贷款，下次有需要可以再来我这里贷款！\ \
<返回[url=]/@main[/url]>
#act
take 金币 1000000
set [030] 0
set [031] 0
CREDITPOINT + 5
#ELSESAY
您好象没有足够的资金！\ \
<返回[url=]/@main[/url]>
[@dai100]
#IF
Check [030] 1
#SAY
您已经在我这里贷过款，还清贷款后才能再次贷款！\ \
<返回[url=]/@main[/url]>
#ACT
break
#IF
CHECKCREDITPOINT > 9
#SAY
这是100W金币，只有还了钱才能拿回押在这里的5点声望！\ \
<返回[url=]/@main[/url]>
#ACT
set [031] 1
set [030] 1
CREDITPOINT - 6
give 金币 1000000
#elsesay
对不起，你声望不够。\ \
<返回[url=]/@main[/url]>
[@dai300]
#IF
Check [030] 1
#SAY
您已经在我这里贷过款，还清贷款后才能再次贷款！\ \
<返回[url=]/@main[/url]>
#ACT
break
#IF
CHECKCREDITPOINT > 19
#SAY
这是300W金币，只有还了钱才能拿回押在这里的15点声望！\ \
<返回[url=]/@main[/url]>
#ACT
set [032] 1
set [030] 1
CREDITPOINT - 16
give 金币 3000000
#elsesay
对不起，你声望不够。\ \
}