［@证券菜单］
{
#IF
hour 03 04
or hour 09 10
or hour 15 16
or hour 21 22
#SAY
欢迎使用传奇三股票系统，每日开盘时间为：\
第一次开牌:03:00 - 05:00 第二次开牌:09:00 - 11:00\
第三次开牌:15:00 - 17:00 第四次开牌:21:00 - 23:00\
{FCOLOR/10}(注意：股票帐户的金币不能超过20亿，否则出错本站一概不负责任！){FCOLOR/12}\
请选择您需要的服务：\
<［购入股票］/@购买股票> <［卖出股票］/@卖掉股票>\
<［查看行情］/@查看行情> <［查看我的股票］/@我的股票>\
<［开通股票帐户］/@注册帐户> <［更改帐户密码］/@更改密码>\
<［提取资金］/@取款1> <［存入资金］/@存钱>\
<［查看帐户余额］/@余额1>\
#ELSESAY
欢迎使用传奇三股票系统，每日开盘时间为：\
第一次开牌:03:00 - 05:00 第二次开牌:09:00 - 11:00\
第三次开牌:15:00 - 17:00 第四次开牌:21:00 - 23:00\
{FCOLOR/1}现在还没有开盘，但您可以进行以下操作：{FCOLOR/12}\
{FCOLOR/10}(注意：股票帐户的金币不能超过20亿，否则出错本站一概不负责任！){FCOLOR/12}\
请选择您需要的服务：\
<［查看行情］/@查看行情> <［查看我的股票］/@我的股票>\
<［开通股票帐户］/@注册帐户> <［更改帐户密码］/@更改密码>\
<［提取资金］/@取款1> <［存入资金］/@存钱>\
<［查看帐户余额］/@余额1>\
［@注册帐户］
#ACT
LoadValue D0 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［注册］
#IF
!EQUAL D0 1
#ACT
GOTO @注册帐户1
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您已经进行过{FCOLOR/10} 股票帐户注册 {FCOLOR/12}了,无需再次注册!\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@注册帐户1］
#IF
!checklevel 45
#SAY
开通股票帐户需要45级以上！\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
#ACT
break
#IF
checkgold 100000
#SAY
开通股票帐户需要收取10W现金！\
<我有钱，快帮我开通/@注册帐户2>
#ELSESAY
开通股票帐户需要收取10W现金！\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@注册帐户2］
#ACT
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［存款额］ 0
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［密码］ %USERID
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［注册］ 1
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［比奇百货］ 0
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［道馆图书］ 0
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［银杏杂货］ 0
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［边境布料］ 0
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［绿洲珠宝］ 0
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［土城皮具］ 0
take 金币 100000
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
成功完成{FCOLOR/10} 股票帐户注册 {FCOLOR/12},可以享受炒股的乐趣了！\
祝你成为本站第一富翁！呵呵！\
{FCOLOR/1}注册默认密码为您的登陆ID,请及时更改!{FCOLOR/12}\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@更改密码］
#ACT
LoadValue D0 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［注册］
#IF
EQUAL D0 1
#ACT
GOTO @更改密码1
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧??\
<［ 立即注册 ］/@注册帐户>\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@更改密码1］
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您是否需要更改{FCOLOR/14} 股票帐户密码 {FCOLOR/12}?\
初始密码为您的游戏登陆ID!\\
<［ 输入旧密码 ］/@@密码2>\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@@密码2］
#ACT
MOV A0 %INPUTSTR
LOADVALUE A1 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［密码］
#IF
!EQUAL A0 %A1
#ACT
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您输入的旧{FCOLOR/14} 股票帐户密码 {FCOLOR/12}有误!请确认后输入!\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
请您输入新的{FCOLOR/14} 股票帐户密码 {FCOLOR/12}并牢记此密码!\\
<［ 输入新密码 ］/@@密码3>\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@@密码3］
#IF
#ACT
MOV A2 %INPUTSTR
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
是否立即更改帐户密码为:{FCOLOR/14} <$OUTPUT(A2)> {FCOLOR/12}?\\
<［ 确定更改密码 ］/@密码4>\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@密码4］
#ACT
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［密码］ %A2
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
证券帐户密码更改{FCOLOR/14} 成功 {FCOLOR/12}!请牢记新密码!\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@存钱］
#ACT
LoadValue D0 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［注册］
#IF
EQUAL D0 1
#ACT
GOTO @开始存款
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧??\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
;;------------>这里判断存款最大数,请自行修改!(我的是20亿)
［@开始存款］
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
请根据自身的情况输入想要存入的现金:\
{FCOLOR/1}(最高存款总额20亿元,初始密码为您的游戏登陆ID){FCOLOR/12}\
<［ 输入存款数额 ］/@@存款2>\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@@存款2］
#ACT
MOV D0 %INPUTNUM
MOV D2 %D0
#IF
ESMALL D0 0
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您输入的{FCOLOR/14} 存款金额 {FCOLOR/12}有误!请确认后重新输入!\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
#ACT
break
#ELSEACT
GOTO @存款3
［@存款3］
#ACT
LoadValue D1 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［存款额］
Inc D0 %D1
#IF
!Large D0 2000000000
#ACT
GOTO @存款4
#ELSESAY
存款总额已经大于20亿,操作失败......\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@存款4］
#IF
CHECKGOLD %D2
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
是否要存入{FCOLOR/14} <$OUTPUT(D2)> {FCOLOR/12}元现金?\\
<［ 确定存入 ］/@存款5>\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您没有{FCOLOR/14} <$OUTPUT(D2)> {FCOLOR/12}元现金用来存入帐户!\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@存款5］
#IF
CHECKGOLD %D2
#ACT
MOV D3 %D2
TAKE 金币 %D2
Inc D3 %D1
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［存款额］ %D3
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
存入{FCOLOR/14} <$OUTPUT(D2)> {FCOLOR/12}元现金,操作成功!\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
#ELSESAY
钱不够！\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@余额1］
#ACT
LoadValue D0 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［注册］
#IF
EQUAL D0 1
#ACT
GOTO @余额查询
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧??\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@余额查询］
#ACT
LoadValue D0 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［存款额］
#IF
ESMALL D0 0
#ACT
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您的股票帐户资金余额为：0\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您的股票帐户资金余额为:{FCOLOR/14}［ <$OUTPUT(D0)> ］{FCOLOR/12}元。\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@取款1］
#ACT
LoadValue D0 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［注册］
#IF
EQUAL D0 1
#ACT
GOTO @开始取款
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧??\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@开始取款］
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
取出存款需要{FCOLOR/14} 个人帐户密码 {FCOLOR/12}!请立即输入:\\
<［ 输入帐户密码 ］/@@取款2>\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@@取款2］
#ACT
MOV A0 %INPUTSTR
LOADVALUE A1 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［密码］
LOADVALUE D1 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［存款额］
#IF
!EQUAL A0 %A1
#ACT
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您输入的{FCOLOR/14} 帐户密码 {FCOLOR/12}有误!请确认后重新输入!\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
#ELSESAY
您好！{FCOLOR/10}<$USERNAME>{FCOLOR/12}，你的帐户余额为：{FCOLOR/14}<$OUTPUT(D1)> {FCOLOR/12}金币。\
请您输入{FCOLOR/14} 取款金额 {FCOLOR/12},此金额不能大于存款额!\\
<［ 输入取款额 ］/@@取款3>\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@@取款3］
#ACT
MOV D0 %INPUTNUM
#IF
ESMALL D0 0
#ACT
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您输入的{FCOLOR/14} 取款金额 {FCOLOR/12}有误!请确认后重新输入!\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
#ELSEACT
GOTO @取款4
［@取款4］
#ACT
MOV D2 %D0
#IF
!LARGE D0 %D1
#ACT
GOTO @取款5
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
请您输入的{FCOLOR/14} 取款金额 {FCOLOR/12}大于存款总额,无法取出!\\
<［ 输入取款额 ］/@@取款3>\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@取款5］
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您是否需要取出{FCOLOR/14} <$OUTPUT(D0)> {FCOLOR/12}元存款?\\
<［ 确定取出存款 ］/@取款6>\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@取款6］
#ACT
DEC D1 %D0
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［存款额］ %D1
GIVE 金币 %D0
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您已经取出{FCOLOR/14} <$OUTPUT(D0)> {FCOLOR/12}元存款,请查收!\\
您的股票帐户还剩余{FCOLOR/14} <$OUTPUT(D1)> {FCOLOR/12}元金币。\\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@我的股票］
#ACT
LoadValue D0 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［注册］
#IF
EQUAL D0 1
#ACT
GOTO @我的股票1
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧??\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@我的股票1］
#ACT
LoadValue P0 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［比奇皇宫］
LoadValue P1 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［道馆图书］
LoadValue P2 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［银杏杂货］
LoadValue P3 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［边境布料］
LoadValue P4 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［绿洲珠宝］
LoadValue P5 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［土城皮具］
LoadValue D0 "QuestDiary\sufeng\股票系统\行情.txt" ［比奇皇宫］ ［当前价格］
LoadValue D1 "QuestDiary\sufeng\股票系统\行情.txt" ［道馆图书］ ［当前价格］
LoadValue D2 "QuestDiary\sufeng\股票系统\行情.txt" ［银杏杂货］ ［当前价格］
LoadValue D3 "QuestDiary\sufeng\股票系统\行情.txt" ［边境布料］ ［当前价格］
LoadValue D4 "QuestDiary\sufeng\股票系统\行情.txt" ［绿洲珠宝］ ［当前价格］
LoadValue D5 "QuestDiary\sufeng\股票系统\行情.txt" ［土城皮具］ ［当前价格］
#SAY
股票名称 目前价格 持有数量\
比奇皇宫 <$OUTPUT(D0)> <$OUTPUT(P0)>\
道馆图书 <$OUTPUT(D1)> <$OUTPUT(P1)>\
银杏杂货 <$OUTPUT(D2)> <$OUTPUT(P2)>\
边境布料 <$OUTPUT(D3)> <$OUTPUT(P3)>\
绿洲珠宝 <$OUTPUT(D4)> <$OUTPUT(P4)>\
土城皮具 <$OUTPUT(D5)> <$OUTPUT(P5)>\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
［@查看行情］
#ACT
LoadValue D0 "QuestDiary\sufeng\股票系统\行情.txt" ［比奇皇宫］ ［当前价格］
LoadValue D1 "QuestDiary\sufeng\股票系统\行情.txt" ［道馆图书］ ［当前价格］
LoadValue D2 "QuestDiary\sufeng\股票系统\行情.txt" ［银杏杂货］ ［当前价格］
LoadValue D3 "QuestDiary\sufeng\股票系统\行情.txt" ［边境布料］ ［当前价格］
LoadValue D4 "QuestDiary\sufeng\股票系统\行情.txt" ［绿洲珠宝］ ［当前价格］
LoadValue D5 "QuestDiary\sufeng\股票系统\行情.txt" ［土城皮具］ ［当前价格］
LoadValue P0 "QuestDiary\sufeng\股票系统\行情.txt" ［比奇皇宫］ ［上次价格］
LoadValue P1 "QuestDiary\sufeng\股票系统\行情.txt" ［道馆图书］ ［上次价格］
LoadValue P2 "QuestDiary\sufeng\股票系统\行情.txt" ［银杏杂货］ ［上次价格］
LoadValue P3 "QuestDiary\sufeng\股票系统\行情.txt" ［边境布料］ ［上次价格］
LoadValue P4 "QuestDiary\sufeng\股票系统\行情.txt" ［绿洲珠宝］ ［上次价格］
LoadValue P5 "QuestDiary\sufeng\股票系统\行情.txt" ［土城皮具］ ［上次价格］
#SAY
股票名称 目前价格 上次收盘价格\
比奇皇宫 <$OUTPUT(D0)> <$OUTPUT(P0)>\
道馆图书 <$OUTPUT(D1)> <$OUTPUT(P1)>\
银杏杂货 <$OUTPUT(D2)> <$OUTPUT(P2)>\
边境布料 <$OUTPUT(D3)> <$OUTPUT(P3)>\
绿洲珠宝 <$OUTPUT(D4)> <$OUTPUT(P4)>\
土城皮具 <$OUTPUT(D5)> <$OUTPUT(P5)>\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
［@购买股票］
#ACT
LoadValue D0 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［注册］
#IF
EQUAL D0 1
#ACT
GOTO @购买股票1
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧??\
<［ 立即注册 ］/@注册帐户>\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@购买股票1］
#ACT
LoadValue D0 "QuestDiary\sufeng\股票系统\行情.txt" ［比奇皇宫］ ［当前价格］
LoadValue D1 "QuestDiary\sufeng\股票系统\行情.txt" ［道馆图书］ ［当前价格］
LoadValue D2 "QuestDiary\sufeng\股票系统\行情.txt" ［银杏杂货］ ［当前价格］
LoadValue D3 "QuestDiary\sufeng\股票系统\行情.txt" ［边境布料］ ［当前价格］
LoadValue D4 "QuestDiary\sufeng\股票系统\行情.txt" ［绿洲珠宝］ ［当前价格］
LoadValue D5 "QuestDiary\sufeng\股票系统\行情.txt" ［土城皮具］ ［当前价格］
MOV S2 3
#SAY
股票名称 目前价格 操作 \
比奇皇宫 <$OUTPUT(D0)> <［买入］/@买入(比奇皇宫)>\
道馆图书 <$OUTPUT(D1)> <［买入］/@买入(道馆图书)>\
银杏杂货 <$OUTPUT(D2)> <［买入］/@买入(银杏杂货)>\
边境布料 <$OUTPUT(D3)> <［买入］/@买入(边境布料)>\
绿洲珠宝 <$OUTPUT(D4)> <［买入］/@买入(绿洲珠宝)>\
土城皮具 <$OUTPUT(D5)> <［买入］/@买入(土城皮具)>\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
［@买入()］
#IF
#ACT
mov A3 %ARG(1) ;;股票名
#IF
Equal A3 "比奇皇宫"
#ACT
Mov D6 %D0
MOV S1 3
goto @继续购买
#IF
Equal A3 "道馆图书"
#ACT
Mov D6 %D1
MOV S1 3
goto @继续购买
#IF
Equal A3 "银杏杂货"
#ACT
Mov D6 %D2
MOV S1 3
goto @继续购买
#IF
Equal A3 "边境布料"
#ACT
Mov D6 %D3
MOV S1 3
goto @继续购买
#IF
Equal A3 "绿洲珠宝"
#ACT
Mov D6 %D4
MOV S1 3
goto @继续购买
#IF
Equal A3 "土城皮具"
#ACT
Mov D6 %D5
MOV S1 3
goto @继续购买
［@继续购买］
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
<$OUTPUT(A3)>的单价为：<$OUTPUT(D6)>.\
请输入您想购买{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}的数量:\\
<输入买入数量/@@数量A>(购入最大限额为100000手)\\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
［@@数量A］
#IF
equal S1 3
equal S2 3
#ACT
mov D7 %INPUTSTR
goto @继续购买2
［@继续购买2］
#ACT
Mov S3 3
#IF
Small D7 1
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您的输入有误，交易失败！\\
请输入数值范围 {FCOLOR/10}1 至 100000{FCOLOR/1}\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
#ACT
break
#IF
Large D7 100000
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
买入最大限额为{FCOLOR/10} 100000 {FCOLOR/12}手!\\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
#ACT
break
#IF
#ACT
LoadValue D2 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［存款额］
LoadValue D3 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［%A3］
MOV P1 %D6
MOV P2 %D7
MUL P1 P2
MOV D8 %P9
#ACT
MOV P3 %D8
MOV P4 100
DIV P3 P4
MOV D0 %P9
#ACT
Inc D8 %D0
#IF
small D2 %D8
#SAY
非常遗憾，{FCOLOR/10}<$USERNAME>{FCOLOR/12}，交易失败了，原因如下：\
购买{FCOLOR/10} <$OUTPUT(D7)> {FCOLOR/12}手{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}股票需要金币{FCOLOR/10} <$OUTPUT(D8)>{FCOLOR/12}元（包括1%手续费<$OUTPUT(D0)>元），您的证券帐户余额不足！\\
<【 立即存款到帐户 】/@存钱>\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
#ACT
break
#IF
equal S1 3
equal S2 3
equal S3 3
!equal D8 0
#ACT
dec D2 %D8
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［存款额］ %D2
inc D3 %D7
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［%A3］ %D3
Mov S1 0
Mov S2 0
Mov S3 0
#SAY
恭喜您，{FCOLOR/10}<$USERNAME>{FCOLOR/12}，交易成功了。\
股票名称：{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}\
购买数量：{FCOLOR/10} <$OUTPUT(D7)> {FCOLOR/12}手\
手续费：{FCOLOR/10}<$OUTPUT(D0)>{FCOLOR/12}元\
支付总金额：{FCOLOR/10}<$OUTPUT(D8)>{FCOLOR/12}元\
证券帐户资金余额：{FCOLOR/10} <$OUTPUT(D2)> {FCOLOR/12}元。\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
系统故障,无法购买{FCOLOR/10} <$OUTPUT(D7)> {FCOLOR/12}手{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}，请稍候再试。\\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
［@卖掉股票］
#ACT
LoadValue D0 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［注册］
#IF
EQUAL D0 1
#ACT
GOTO @卖掉股票1
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧??\
<［ 立即注册 ］/@注册帐户>\
<［ 返回前页 ］/@证券菜单>\
<［ 退出系统 ］/@exit>\
［@卖掉股票1］
#ACT
LoadValue D0 "QuestDiary\sufeng\股票系统\行情.txt" ［比奇皇宫］ ［当前价格］
LoadValue D1 "QuestDiary\sufeng\股票系统\行情.txt" ［道馆图书］ ［当前价格］
LoadValue D2 "QuestDiary\sufeng\股票系统\行情.txt" ［银杏杂货］ ［当前价格］
LoadValue D3 "QuestDiary\sufeng\股票系统\行情.txt" ［边境布料］ ［当前价格］
LoadValue D4 "QuestDiary\sufeng\股票系统\行情.txt" ［绿洲珠宝］ ［当前价格］
LoadValue D5 "QuestDiary\sufeng\股票系统\行情.txt" ［土城皮具］ ［当前价格］
LoadValue P0 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［比奇皇宫］
LoadValue P1 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［道馆图书］
LoadValue P2 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［银杏杂货］
LoadValue P3 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［边境布料］
LoadValue P4 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［绿洲珠宝］
LoadValue P5 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［土城皮具］
MOV S2 4
#SAY
股票名称 目前价格 持有数量\
比奇皇宫 <$OUTPUT(D0)> <$OUTPUT(P0)> <［卖出］/@卖出(比奇皇宫)>\
道馆图书 <$OUTPUT(D1)> <$OUTPUT(P1)> <［卖出］/@卖出(道馆图书)>\
银杏杂货 <$OUTPUT(D2)> <$OUTPUT(P2)> <［卖出］/@卖出(银杏杂货)>\
边境布料 <$OUTPUT(D3)> <$OUTPUT(P3)> <［卖出］/@卖出(边境布料)>\
绿洲珠宝 <$OUTPUT(D4)> <$OUTPUT(P4)> <［卖出］/@卖出(绿洲珠宝)>\
土城皮具 <$OUTPUT(D5)> <$OUTPUT(P5)> <［卖出］/@卖出(土城皮具)>\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
［@卖出()］
#IF
#ACT
mov A3 %ARG(1) ;;股票名
#IF
Equal A3 "比奇皇宫"
#ACT
Mov D6 %D0
MOV S1 4
goto @继续卖出
#IF
Equal A3 "道馆图书"
#ACT
Mov D6 %D1
MOV S1 4
goto @继续卖出
#IF
Equal A3 "银杏杂货"
#ACT
Mov D6 %D2
MOV S1 4
goto @继续卖出
#IF
Equal A3 "边境布料"
#ACT
Mov D6 %D3
MOV S1 4
goto @继续卖出
#IF
Equal A3 "绿洲珠宝"
#ACT
Mov D6 %D4
MOV S1 4
goto @继续卖出
#IF
Equal A3 "土城皮具"
#ACT
Mov D6 %D5
MOV S1 4
goto @继续卖出
［@继续卖出］
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
<$OUTPUT(A3)>的单价为：<$OUTPUT(D6)>.\
请输入您想卖出{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}的数量:\\
<输入卖出数量/@@卖出数量>(每次卖出最大限额为100000手)\\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
［@@卖出数量］
#IF
equal S1 4
equal S2 4
#ACT
mov D7 %INPUTSTR
Mov S3 4
#IF
Small D7 1
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您输入的{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}数量有误！\\
请输入数值范围 {FCOLOR/10}1 至 100000{FCOLOR/1}\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
#ACT
break
#IF
Large D7 100000
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
买入最大限额为{FCOLOR/10} 100000 {FCOLOR/12}手!\\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
#ACT
break
#IF
#ACT
LoadValue D8 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［%A3］
#IF
equal S3 4
small D8 %D7
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
你有<$OUTPUT(D7)>手<$OUTPUT(A3)>吗？不对吧？！\\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
#ACT
break
#IF
equal S3 4
#ACT
LoadValue D2 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［存款额］
MOV P7 %D6
MOV P8 %D7
MUL P7 P8
MOV D9 %P9
inc D2 %D9
#IF
elarge D2 2000000000
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
您的帐户资金交易后将会超过20亿！请先转移资金再交易吧！\\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
#ACT
break
#IF
equal S3 4
!equal D6 0
#ACT
MOV P7 %D6
MOV P8 %D7
MUL P7 P8
MOV D9 %P9 ;;卖出收入金额
#ACT
MOV P1 %D9
MOV P2 100
DIV P1 P2
MOV D0 %P9 ;;手续费
#ACT
LoadValue D2 "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［存款额］
dec D8 %D7
inc D2 %D9
dec D2 %D0
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［%A3］ %D8
SaveValue "QuestDiary\sufeng\股票系统\玩家帐户.txt" ［%USERNAME］ ［存款额］ %D2
#SAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}\
股票名称：{FCOLOR/10} <$OUTPUT(A3)> {FCOLOR/12}\
卖出数量：{FCOLOR/10} <$OUTPUT(D7)> {FCOLOR/12}手\
手续费：{FCOLOR/10}<$OUTPUT(D0)>{FCOLOR/12}元\
成交金额：{FCOLOR/10} <$OUTPUT(D9)> {FCOLOR/12}元\
成交单价：每股{FCOLOR/10} <$OUTPUT(D6)> {FCOLOR/12}元\
证券帐户资金余额：{FCOLOR/10} <$OUTPUT(D2)> {FCOLOR/12}元。\
<【 返回首页 】/@证券菜单>\
<【 退出系统 】/@exit>\
}
本文出自:
搜传奇3转载请注明来处：http://www.so373.com/showarticle.asp?id=37
