传奇3私服增加股票系统脚本

传奇3游戏增加股票系统脚本 
［@证券菜单］ 
{ 
#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} 
请选择您需要的服务： 
           
           
       
           
  
 
#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} 
请选择您需要的服务： 
           
       
           
  
 
［@注册帐户］ 
#ACT 
LoadValue D0 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［注册］ 
 
#IF 
!EQUAL D0 1 
#ACT 
GOTO @注册帐户1 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
您已经进行过{FCOLOR/10} 股票帐户注册 {FCOLOR/12}了,无需再次注册!\ 
 
 
 
 
［@注册帐户1］ 
#IF 
!checklevel 45 
#SAY 
开通股票帐户需要45级以上！ 
 
 
#ACT 
break 
 
#IF 
checkgold 100000 
#SAY 
开通股票帐户需要收取10W现金！ 
 
#ELSESAY 
开通股票帐户需要收取10W现金！ 
 
 
 
［@注册帐户2］ 
#ACT 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［存款额］ 0 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［密码］ %USERID 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［注册］ 1 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［比奇百货］ 0 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［道馆图书］ 0 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［银杏杂货］ 0 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［边境布料］ 0 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［绿洲珠宝］ 0 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［土城皮具］ 0 
take 金币 100000 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
成功完成{FCOLOR/10} 股票帐户注册 {FCOLOR/12},可以享受炒股的乐趣了！ 
祝你成为本站第一富翁！呵呵！ 
{FCOLOR/1}注册默认密码为您的登陆ID,请及时更改!{FCOLOR/12}\ 
 
 
 
［@更改密码］ 
#ACT 
LoadValue D0 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［注册］ 
 
#IF 
EQUAL D0 1 
#ACT 
GOTO @更改密码1 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧?? 
 
 
 
 
［@更改密码1］ 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
您是否需要更改{FCOLOR/14} 股票帐户密码 {FCOLOR/12}? 
初始密码为您的游戏登陆ID!\ 
\ 
 
 
 
［@@密码2］ 
#ACT 
MOV A0 %INPUTSTR 
LOADVALUE A1 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［密码］ 
 
#IF 
!EQUAL A0 %A1 
#ACT 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
您输入的旧{FCOLOR/14} 股票帐户密码 {FCOLOR/12}有误!请确认后输入!\ 
 
 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
请您输入新的{FCOLOR/14} 股票帐户密码 {FCOLOR/12}并牢记此密码!\ 
\ 
 
 
 
［@@密码3］ 
#IF 
#ACT 
MOV A2 %INPUTSTR 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
是否立即更改帐户密码为:{FCOLOR/14}  {FCOLOR/12}?\ 
\ 
 
 
 
［@密码4］ 
#ACT 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［密码］ %A2 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
证券帐户密码更改{FCOLOR/14} 成功 {FCOLOR/12}!请牢记新密码!\ 
 
 
 
［@存钱］ 
#ACT 
LoadValue D0 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［注册］ 
 
#IF 
EQUAL D0 1 
#ACT 
GOTO @开始存款 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧?? 
 
 
 
;;------------>这里判断存款最大数,请自行修改!(我的是20亿) 
［@开始存款］ 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
请根据自身的情况输入想要存入的现金: 
{FCOLOR/1}(最高存款总额20亿元,初始密码为您的游戏登陆ID){FCOLOR/12} 
\ 
 
 
 
［@@存款2］ 
#ACT 
MOV D0 %INPUTNUM 
MOV D2 %D0 
 
#IF 
ESMALL D0 0 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
您输入的{FCOLOR/14} 存款金额 {FCOLOR/12}有误!请确认后重新输入!\ 
 
 
#ACT 
break 
#ELSEACT 
GOTO @存款3 
 
［@存款3］ 
#ACT 
LoadValue D1 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［存款额］ 
Inc D0 %D1 
 
#IF 
!Large D0 2000000000 
#ACT 
GOTO @存款4 
#ELSESAY 
存款总额已经大于20亿,操作失败......\ 
 
 
 
［@存款4］ 
#IF 
CHECKGOLD %D2 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
是否要存入{FCOLOR/14}  {FCOLOR/12}元现金?\ 
\ 
 
 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
您没有{FCOLOR/14}  {FCOLOR/12}元现金用来存入帐户!\ 
 
 
 
［@存款5］ 
#IF 
CHECKGOLD %D2 
#ACT 
MOV D3 %D2 
TAKE 金币 %D2 
Inc D3 %D1 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［存款额］ %D3 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
存入{FCOLOR/14}  {FCOLOR/12}元现金,操作成功!\ 
 
 
#ELSESAY 
钱不够！ 
 
 
 
［@余额1］ 
#ACT 
LoadValue D0 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［注册］ 
 
#IF 
EQUAL D0 1 
#ACT 
GOTO @余额查询 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧?? 
 
 
 
［@余额查询］ 
#ACT 
LoadValue D0 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［存款额］ 
 
#IF 
ESMALL D0 0 
#ACT 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
您的股票帐户资金余额为：0\ 
 
 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
您的股票帐户资金余额为:{FCOLOR/14}［  ］{FCOLOR/12}元。\ 
 
 
 
［@取款1］ 
#ACT 
LoadValue D0 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［注册］ 
 
#IF 
EQUAL D0 1 
#ACT 
GOTO @开始取款 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧?? 
 
 
 
［@开始取款］ 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
取出存款需要{FCOLOR/14} 个人帐户密码 {FCOLOR/12}!请立即输入:\ 
\ 
 
 
 
［@@取款2］ 
#ACT 
MOV A0 %INPUTSTR 
LOADVALUE A1 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［密码］ 
LOADVALUE D1 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［存款额］ 
 
#IF 
!EQUAL A0 %A1 
#ACT 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
您输入的{FCOLOR/14} 帐户密码 {FCOLOR/12}有误!请确认后重新输入!\ 
 
 
#ELSESAY 
您好！{FCOLOR/10}{FCOLOR/12}，你的帐户余额为：{FCOLOR/14} {FCOLOR/12}金币。 
请您输入{FCOLOR/14} 取款金额 {FCOLOR/12},此金额不能大于存款额!\ 
\ 
 
 
 
［@@取款3］ 
#ACT 
MOV D0 %INPUTNUM 
#IF 
ESMALL D0 0 
#ACT 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
您输入的{FCOLOR/14} 取款金额 {FCOLOR/12}有误!请确认后重新输入!\ 
 
 
#ELSEACT 
GOTO @取款4 
 
［@取款4］ 
#ACT 
MOV D2 %D0 
 
#IF 
!LARGE D0 %D1 
#ACT 
GOTO @取款5 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
请您输入的{FCOLOR/14} 取款金额 {FCOLOR/12}大于存款总额,无法取出!\ 
\ 
 
 
 
［@取款5］ 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
您是否需要取出{FCOLOR/14}  {FCOLOR/12}元存款?\ 
\ 
 
 
 
［@取款6］ 
#ACT 
DEC D1 %D0 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［存款额］ %D1 
GIVE 金币 %D0 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
您已经取出{FCOLOR/14}  {FCOLOR/12}元存款,请查收!\ 
您的股票帐户还剩余{FCOLOR/14}  {FCOLOR/12}元金币。\ 
 
 
 
［@我的股票］ 
#ACT 
LoadValue D0 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［注册］ 
#IF 
EQUAL D0 1 
#ACT 
GOTO @我的股票1 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧?? 
 
 
 
［@我的股票1］ 
#ACT 
LoadValue P0 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［比奇皇宫］ 
LoadValue P1 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［道馆图书］ 
LoadValue P2 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［银杏杂货］ 
LoadValue P3 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［边境布料］ 
LoadValue P4 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［绿洲珠宝］ 
LoadValue P5 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［土城皮具］ 
 
LoadValue D0 "QuestDiarysufeng股票系统行情.txt" ［比奇皇宫］ ［当前价格］ 
LoadValue D1 "QuestDiarysufeng股票系统行情.txt" ［道馆图书］ ［当前价格］ 
LoadValue D2 "QuestDiarysufeng股票系统行情.txt" ［银杏杂货］ ［当前价格］ 
LoadValue D3 "QuestDiarysufeng股票系统行情.txt" ［边境布料］ ［当前价格］ 
LoadValue D4 "QuestDiarysufeng股票系统行情.txt" ［绿洲珠宝］ ［当前价格］ 
LoadValue D5 "QuestDiarysufeng股票系统行情.txt" ［土城皮具］ ［当前价格］ 
 
#SAY 
股票名称  目前价格  持有数量 
比奇皇宫          
道馆图书          
银杏杂货          
边境布料          
绿洲珠宝          
土城皮具          
 
  
 
 
［@查看行情］ 
#ACT 
LoadValue D0 "QuestDiarysufeng股票系统行情.txt" ［比奇皇宫］ ［当前价格］ 
LoadValue D1 "QuestDiarysufeng股票系统行情.txt" ［道馆图书］ ［当前价格］ 
LoadValue D2 "QuestDiarysufeng股票系统行情.txt" ［银杏杂货］ ［当前价格］ 
LoadValue D3 "QuestDiarysufeng股票系统行情.txt" ［边境布料］ ［当前价格］ 
LoadValue D4 "QuestDiarysufeng股票系统行情.txt" ［绿洲珠宝］ ［当前价格］ 
LoadValue D5 "QuestDiarysufeng股票系统行情.txt" ［土城皮具］ ［当前价格］ 
 
LoadValue P0 "QuestDiarysufeng股票系统行情.txt" ［比奇皇宫］ ［上次价格］ 
LoadValue P1 "QuestDiarysufeng股票系统行情.txt" ［道馆图书］ ［上次价格］ 
LoadValue P2 "QuestDiarysufeng股票系统行情.txt" ［银杏杂货］ ［上次价格］ 
LoadValue P3 "QuestDiarysufeng股票系统行情.txt" ［边境布料］ ［上次价格］ 
LoadValue P4 "QuestDiarysufeng股票系统行情.txt" ［绿洲珠宝］ ［上次价格］ 
LoadValue P5 "QuestDiarysufeng股票系统行情.txt" ［土城皮具］ ［上次价格］ 
#SAY 
股票名称      目前价格    上次收盘价格 
比奇皇宫                 
道馆图书                 
银杏杂货                 
边境布料                 
绿洲珠宝                 
土城皮具                 
 
  
 
［@购买股票］ 
#ACT 
LoadValue D0 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［注册］ 
 
#IF 
EQUAL D0 1 
#ACT 
GOTO @购买股票1 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧?? 
 
 
 
 
［@购买股票1］ 
#ACT 
LoadValue D0 "QuestDiarysufeng股票系统行情.txt" ［比奇皇宫］ ［当前价格］ 
LoadValue D1 "QuestDiarysufeng股票系统行情.txt" ［道馆图书］ ［当前价格］ 
LoadValue D2 "QuestDiarysufeng股票系统行情.txt" ［银杏杂货］ ［当前价格］ 
LoadValue D3 "QuestDiarysufeng股票系统行情.txt" ［边境布料］ ［当前价格］ 
LoadValue D4 "QuestDiarysufeng股票系统行情.txt" ［绿洲珠宝］ ［当前价格］ 
LoadValue D5 "QuestDiarysufeng股票系统行情.txt" ［土城皮具］ ［当前价格］ 
MOV S2 3 
#SAY 
股票名称      目前价格      操作   
比奇皇宫                 
道馆图书                 
银杏杂货                 
边境布料                 
绿洲珠宝                 
土城皮具                 
 
  
 
［@买入()］ 
#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}{FCOLOR/12} 
的单价为：. 
请输入您想购买{FCOLOR/10}  {FCOLOR/12}的数量:\ 
(购入最大限额为100000手)\ 
 
 
 
［@@数量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}{FCOLOR/12} 
您的输入有误，交易失败！\  
请输入数值范围 {FCOLOR/10}1 至 100000{FCOLOR/1} 
 
 
#ACT  
break  
 
#IF  
Large D7 100000 
#SAY  
{FCOLOR/10}{FCOLOR/12} 
买入最大限额为{FCOLOR/10} 100000 {FCOLOR/12}手!\  
 
 
#ACT  
break  
 
#IF 
#ACT 
LoadValue D2 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［存款额］ 
LoadValue D3 "QuestDiarysufeng股票系统玩家帐户.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}{FCOLOR/12}，交易失败了，原因如下： 
购买{FCOLOR/10}  {FCOLOR/12}手{FCOLOR/10}  {FCOLOR/12}股票需要金币{FCOLOR/10} {FCOLOR/12}元（包括1%手续费元），您的证券帐户余额不足！\ 
 
 
 
#ACT 
break 
 
#IF 
equal  S1 3 
equal  S2 3 
equal  S3 3 
!equal   D8 0 
 
#ACT 
dec D2 %D8 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［存款额］ %D2 
inc D3 %D7 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［%A3］ %D3 
Mov S1 0 
Mov S2 0 
Mov S3 0 
 
#SAY 
恭喜您，{FCOLOR/10}{FCOLOR/12}，交易成功了。 
股票名称：{FCOLOR/10}  {FCOLOR/12} 
购买数量：{FCOLOR/10}  {FCOLOR/12}手 
手续费：{FCOLOR/10}{FCOLOR/12}元 
支付总金额：{FCOLOR/10}{FCOLOR/12}元 
证券帐户资金余额：{FCOLOR/10}  {FCOLOR/12}元。 
 
 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
系统故障,无法购买{FCOLOR/10}  {FCOLOR/12}手{FCOLOR/10}  {FCOLOR/12}，请稍候再试。\ 
 
 
 
 
［@卖掉股票］ 
#ACT 
LoadValue D0 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［注册］ 
#IF 
EQUAL D0 1 
#ACT 
GOTO @卖掉股票1 
#ELSESAY 
{FCOLOR/10}{FCOLOR/12} 
您还没有进行{FCOLOR/10} 股票帐户注册 {FCOLOR/12}吧?? 
 
 
 
 
［@卖掉股票1］ 
#ACT 
LoadValue D0 "QuestDiarysufeng股票系统行情.txt" ［比奇皇宫］ ［当前价格］ 
LoadValue D1 "QuestDiarysufeng股票系统行情.txt" ［道馆图书］ ［当前价格］ 
LoadValue D2 "QuestDiarysufeng股票系统行情.txt" ［银杏杂货］ ［当前价格］ 
LoadValue D3 "QuestDiarysufeng股票系统行情.txt" ［边境布料］ ［当前价格］ 
LoadValue D4 "QuestDiarysufeng股票系统行情.txt" ［绿洲珠宝］ ［当前价格］ 
LoadValue D5 "QuestDiarysufeng股票系统行情.txt" ［土城皮具］ ［当前价格］ 
 
 
LoadValue P0 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［比奇皇宫］ 
LoadValue P1 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［道馆图书］ 
LoadValue P2 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［银杏杂货］ 
LoadValue P3 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［边境布料］ 
LoadValue P4 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［绿洲珠宝］ 
LoadValue P5 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［土城皮具］ 
 
MOV S2 4 
 
#SAY 
股票名称  目前价格  持有数量 
比奇皇宫              
道馆图书              
银杏杂货              
边境布料              
绿洲珠宝              
土城皮具              
 
  
 
［@卖出()］ 
#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}{FCOLOR/12} 
的单价为：. 
请输入您想卖出{FCOLOR/10}  {FCOLOR/12}的数量:\ 
(每次卖出最大限额为100000手)\ 
 
 
 
［@@卖出数量］  
#IF 
equal  S1 4 
equal  S2 4 
#ACT 
mov D7 %INPUTSTR 
Mov S3 4 
#IF  
Small D7 1  
#SAY 
{FCOLOR/10}{FCOLOR/12} 
您输入的{FCOLOR/10}  {FCOLOR/12}数量有误！\  
请输入数值范围 {FCOLOR/10}1 至 100000{FCOLOR/1} 
 
 
#ACT  
break  
 
#IF  
Large D7 100000  
#SAY  
{FCOLOR/10}{FCOLOR/12} 
买入最大限额为{FCOLOR/10} 100000 {FCOLOR/12}手!\  
 
 
#ACT  
break  
 
#IF 
#ACT 
LoadValue D8 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［%A3］ 
#IF 
equal S3 4 
small D8 %D7 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
你有手吗？不对吧？！\ 
 
 
#ACT 
break 
 
#IF 
equal S3 4 
#ACT 
LoadValue D2 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［存款额］ 
MOV P7 %D6 
MOV P8 %D7 
MUL P7 P8 
MOV D9 %P9 
inc D2 %D9 
#IF 
elarge D2 2000000000 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
您的帐户资金交易后将会超过20亿！请先转移资金再交易吧！\ 
 
 
#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 "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［存款额］ 
dec D8 %D7 
inc D2 %D9 
dec D2 %D0 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［%A3］ %D8 
SaveValue "QuestDiarysufeng股票系统玩家帐户.txt" ［%USERNAME］ ［存款额］ %D2 
 
#SAY 
{FCOLOR/10}{FCOLOR/12} 
股票名称：{FCOLOR/10}  {FCOLOR/12} 
卖出数量：{FCOLOR/10}  {FCOLOR/12}手 
手续费：{FCOLOR/10}{FCOLOR/12}元 
成交金额：{FCOLOR/10}  {FCOLOR/12}元 
成交单价：每股{FCOLOR/10}  {FCOLOR/12}元 
证券帐户资金余额：{FCOLOR/10}  {FCOLOR/12}元。