单机娱乐脚本

lncc123

	此脚本只为单机娱乐，大家玩玩，开心就好，KQ忽悠玩家请自重，细节需优化，记得限制市值不能为负数，其余自行添加，东末兄弟，电脑被媳妇占了，发晚了，抱歉。。 以下只是一个实例，其余股票自行添加 自定义变量 -------------------------- 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

lncc123

	以下为测试图

susan123

	强烈支持楼主ing……

随便转转

	这脚本KQGM得哭死。。。。。。

ziyiu

	真是难得给力的帖子啊。

kobi0618

	其它都懂了 第一段没理解 是在哪里添加？ 自定义变量 -------------------------- VAR Integer HUMAN 西域持股 LOADVAR HUMAN 西域持股 ..\QuestDiary\数据文件\个人变量\<$USERNAME>.txt

东末

	真是难得给力的帖子啊。  万分感谢 可以自己做了

zzz123

	强烈支持楼主ing……

jishaobiao

	为何我看不懂？

b108

	很高深啊  这要是在游戏里赔了  跳楼不值啊