单机娱乐脚本

此脚本只为单机娱乐，大家玩玩，开心就好，细节需优化，记得限制市值不能为负数，其余自行添加，
以下只是一个实例，其余股票自行添加

自定义变量
--------------------------
VAR Integer HUMAN 西域持股
LOADVAR HUMAN 西域持股 ..\QuestDiary\数据文件\个人变量\<$USERNAME>.txt

机器人
#AutoRun NPC MIN 1 @西域旅行
[@西域旅行]
#IF
RANDOM 2 ---------控制涨跌概率
#ACT
MOVR P1 10  ---------------控制跌涨幅度
INC P1 1
MOV G98 $STR(G99)   ---原市价
INC G99 $STR(P1)   ----新市价
MOV A200 $STR(P1)  ---幅度
MOV A201 涨      ---走势
break
#ELSEACT
MOVR P1 10
INC P1 1
MOV G98 $STR(G99)
DEC G99 $STR(P1)
MOV A200 $STR(P1)
MOV A201 跌
break
-----------------------------------------
NPC
[@main]
#SAY
\
股票名称    操作    持有数    市值    原值    走势   \\
西域旅游   <买/@购买>  <抛/@抛售>      <$HUMAN(西域持股)>        <$STR(G99)>      <$STR(G98)>     <$STR(A201)>[<$STR(A200)>] \\
<恢复大盘/@1>

[@1]
#SAY
;#ACT
;MOV G99 50
<$MULT.$STR(G99).$STR(S1)>

[@购买]
#ACT
QueryVal 1 0 6 @Setsell 请输入你要购买的股数：

[@Setsell]
#IF
CheckGameGold < $MULT.$STR(G99).$STR(S1)
#ACT
SENDMSG 7 对不起您的元宝不足
break
#ELSEACT
GameGold - $MULT.$STR(G99).$STR(S1)
CalcVar Human 西域持股 + $STR(S1)
SaveVar HUMAN 西域持股 ..\QuestDiary\数据文件\个人变量\<$USERNAME>.txt
SENDMSG 7 您消费<$MULT.$STR(G99).$STR(S1)>买进西域旅游<$STR(S1)>股。
GOTO @MAIN
BREAK

[@抛售]
#IF
EQUAL $HUMAN(西域持股) 0
#ACT
SENDMSG 7 对不起目前您尚未持有该股票!
BREAK
#ELSEACT
QueryVal 1 0 6 @Setsell1 请输入你要抛售股数：
BREAK

[@Setsell1]
#IF
SMALL $HUMAN(西域持股) $STR(S1)
#ACT
MESSAGEBOX 请正确输入你要抛售的股票数！
BREAK
#ELSEACT
GAMEGOLD + $MULT.$STR(G99).$STR(S1)
CalcVar Human 西域持股 - $STR(S1)
SaveVar HUMAN 西域持股 ..\QuestDiary\数据文件\个人变量\<$USERNAME>.txt
SENDMSG 7 您抛售了西域旅游<$STR(S1)>股,获得<$MULT.$STR(G99).$STR(S1)>元宝。
GOTO @MAIN
BREAK