传奇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}元。
|
|