银行系统NPC脚本

文章作者:找私服  文章来源:www.zhaosf.org 更新时间:2011-7-1 23:01:31 浏览次数:355

(@@InPutString @@InPutInteger )
[@main]
#if
#act
mov S0 <$USERNAME>
#say
 ╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
 ┆              <“汇通天下——便商利民”>              ┆\
 ╚┄┄┄┄┄┄┬┄┄┄┄┄-┬┄┄┄┄┄┬┄┄-┄┄┄┄╝\
               ┆ <邮寄元宝/@邮寄元宝>  ┆ <查收元宝/@查收元宝> ┆\
 ╔┄┄┄┄┄┄┴┄┄┄┄┄-┴┄┄┄┄┄┴┄┄-┄┄┄┄╗\
 ┆ <1.>收款人的名字不能有任何错误,否则将收取不到您的汇款┆\
 ┆ <2.>汇款的元宝数量请输入数字,不能大于你当前的元宝总数┆\
 ┆ <3.>金额输入完毕后请认真核对,确认无误后点提交汇款    ┆\
 ╚┄┄┄┄┄┄┄┄┄┄┄<退出汇款/@EXIT>┄┄┄┄┄┄┄┄┄┄┄╝\

[@邮寄元宝]
  你当前的元宝总数:<$GAMEGOLD>个\
 <第一步:> 请正确输入收款人姓名,否则将收取不到您的汇款\
 ╔┄┄┄┄┄┄╗┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
 ┆收款人姓名:┆ <输入收款人姓名/@@InPutString1>\
 ┆┄┄┄┄┄┄┆┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
 ┆汇款的金额:┆\
 ╚┄┄┄┄┄┄╝┄┄-╔┄┄┄┄┄┄┄┄┄┄┄╗┄┄-\
                      ┆ 提交汇款 ┆ <取消汇款/@EXIT> ┆\
                      ╚┄┄┄┄┄┄┄┄┄┄┄╝\


[@InPutString1]
#IF
CHECKONLINE  <$STR(S1)>
#act
mov S2 在线
#ELSEACT
mov S2 离线
#IF
EQUAL S1 <$STR(S0)>
#say
错误,不能给自己汇款\ \
<返 回/@邮寄元宝>\
<退出/@exit>
#ELSEACT
GOTO @准备汇款

[@准备汇款]
#IF
EQUAL S1
#SAY
输入的用户名不能为空\ \
<返 回/@邮寄元宝>\
<退出/@exit>
#ELSESAY
  你当前的元宝总数:<$GAMEGOLD>个\
 <第二步:> 输入你要汇款的金额数目,不能超出你的元宝数量\
 ╔┄┄┄┄┄┄╗┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
 ┆收款人姓名:┆ <$STR(S1)>  ┆  状态: <$STR(S2)>\
 ┆┄┄┄┄┄┄┆┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
 ┆汇款的金额:┆ <输入汇款金额/@@InPutInteger1>\
 ╚┄┄┄┄┄┄╝┄┄-╔┄┄┄┄┄┄┄┄┄┄┄╗┄┄-\
                      ┆ 提交汇款 ┆ <取消汇款/@EXIT> ┆\
                      ╚┄┄┄┄┄┄┄┄┄┄┄╝\

 

[@InPutInteger1]
#if
large N1 0
SMALL N1 301
#act
MOV P0 <$STR(N1)>
DEC P0 1
#say
  你当前的元宝总数:<$GAMEGOLD>个\
 <第三步:> 检查收款人姓名与金额是否正确,然后点提交汇款\
 ╔┄┄┄┄┄┄╗┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
 ┆收款人姓名:┆ <$STR(S1)>  ┆  状态: <$STR(S2)>\
 ┆┄┄┄┄┄┄┆┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
 ┆汇款的金额:┆ <$STR(N1)>\
 ╚┄┄┄┄┄┄╝┄┄-╔┄┄┄┄┄┄┄┄┄┄┄╗┄┄-\
                      ┆ <提交汇款/@提交汇款> ┆ <取消汇款/@EXIT> ┆\
                      ╚┄┄┄┄┄┄┄┄┄┄┄╝\
#ELSESAY
请输入正确的汇款金额数目.\
汇款金额数目:1~300之间...\ \
<重新输入汇款金额/@InPutString1>\
<退出/@exit>

 

[@提交汇款]
#IF
CHECKGAMEGOLD > <$str(P0)>
#ACT
GAMEGOLD - <$STR(N1)>
AddTextList ..\QuestDiary\邮寄系统\汇款单\汇款人\<$STR(S1)>md.txt <$USERNAME>
AddTextList ..\QuestDiary\邮寄系统\收款人名单.txt <$STR(S1)>
AddTextList ..\QuestDiary\邮寄系统\汇款单\金额\<$STR(S1)>.txt <$STR(N1)>
AddTextList ..\QuestDiary\邮寄系统\汇款数据.txt <$STATSERVERTIME>:[<$USERNAME>]成功转帐给[<$STR(S1)>]元宝[<$STR(N1)>]个
;sendmsg 0 [银行通知]玩家【<$STR(S1)>】注意了,你的朋友【%s】给你在汇了〖<$STR(N1)>元宝〗,注意去银行查收.
sendmsg 0 ┄┄┄┄┄┄┄┄┄┄┄┄-银行汇款通知┄┄┄┄┄┄┄┄┄┄┄┄-
sendmsg 0 汇款人:%s 收款人:<$STR(S1)> 金额:<$STR(N1)>
sendmsg 0 ┄┄┄┄┄┄┄┄-收到汇款的玩家请到银行来领取┄┄┄┄┄┄┄┄-
#SAY
恭喜你,汇款成功!>\
系统已经发布公告通知收款人>\
 ╔┄┄┄┄┄┄╗┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
 ┆收款人姓名:┆ <$STR(S1)>\
 ┆┄┄┄┄┄┄┆┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
 ┆汇款的金额:┆ <$STR(N1)>\
 ╚┄┄┄┄┄┄╝┄┄┄┄┄-╔┄┄┄┄┄╗┄┄┄┄┄-\
                            ┆ <汇款完毕/@EXIT> ┆\
                            ╚┄┄┄┄┄╝\
#ELSESAY
抱歉,汇款失败!\
你的元宝不够...\ \
<重新输入汇款元宝数/@InPutString1>\ \
<退出/@exit>

 

[@查收元宝]
#IF
CHECKNAMELIST ..\QuestDiary\邮寄系统\收款人名单.txt
#ACT
break
MOV S11 <$USERNAME>
GetRandomName ..\QuestDiary\邮寄系统\汇款单\金额\<$str(S11)>.txt S0
mov N12 <$str(S0)>
GetRandomName ..\QuestDiary\邮寄系统\汇款单\汇款人\<$str(S11)>md.txt S0
mov S13 <$str(S0)>
#say
\
   目前显示你有一笔汇款到账:\
 ╔┄┄┄┄┄╗┄┄┄┄┄┄┄-\
 ┆汇 款 人:┆ <$str(S13)>\
 ┆┄┄┄┄┄┼┄┄┄┄┄┄┄-\
 ┆汇款金额:┆ <$str(N12)>\
 ╚┄┄┄┄┄╝┄┬┄┄┄┄┄╗\
                 ┆ <领取汇款/@确认领取> ┆\
                 ╚┄┄┄┄┄╝\

#IF
#say
没有你的汇款单....\ \
<返 回/@main>\
<退出/@exit>

 

[@确认领取]
#if
#act
GAMEGOLD + <$str(N12)>
DelTextList ..\QuestDiary\邮寄系统\收款人名单.txt <$USERNAME>
DelTextList ..\QuestDiary\邮寄系统\汇款单\金额\<$str(S11)>.txt <$str(N12)>
DelTextList ..\QuestDiary\邮寄系统\汇款单\汇款人\<$str(S11)>md.txt <$str(S13)>
sendmsg 0 [银行公告](%s)收到(<$str(s13)>)的汇款
sendmsg 7 提示:元宝增加:<$str(N12)>个,你当前的元宝总数:<$GAMEGOLD>个
close

[@IsInFilterList]
#Act
MessageBox 输入数据中包含了非法字符.请重新编辑
Goto @Main
Break

最新文章
热门文章

拒绝盗版游戏 注意自我保护 谨防受骗上当 适度游戏益脑 沉迷游戏伤身 合理安排时间 享受健康生活
网站备案登记号:京ICP备05037113号 建议使用:1024×768 分辨率 IE5.0以上版本
© 2011 www.zhaosf.org All Rights Reserved(注:找私服只收录官方授权游戏信息,非官方授权游戏请在办理业务之前告知)
*注释:找sf发布所有信息均来自互联网与本站无关。请玩家仔细辨认zhaosf信息的真实性,避免上当受骗!网站地图