什长
- 元宝
- 0 个
- 鸿盾币
- 0 枚
- 金币
- 303 枚
|
- ----------如果你的引擎不支持我没办法---------
- [@改变天气]
- {
- #say
- 我这里可以让你改变系统天气,是不是非常酷,不过需要花费你1个积分。\
- 还要提醒你,如果你开了科技请选择使用天气控制系统默认。\
- <比奇白天/@开始换天气(0,Day,比奇城,1,白天)>\
- <比奇起雾/@开始换天气(0,Fog,比奇城,1,起雾)>\
- <比奇下雨/@开始换天气(0,Rain,比奇城,1,下雨)>\
- <比奇下雪/@开始换天气(0,SNOW,比奇城,1,下雪)>\
- <比奇天晴/@开始换天气(0,Clean,比奇城,1,天晴)>\\
- <关闭/@exit>
-
- [@开始换天气()]
- #ACT
- Mov A1 %ARG(1)
- Mov A2 %ARG(2)
- Mov A3 %ARG(3)
- Mov D1 %ARG(4)
- Mov A7 %ARG(5)
- Delaygoto [local] 5 @进行换天气
- SysMsg " 请稍后,系统正在处理数据... "
-
- [@进行换天气]
- #act
- FormatStr "FLD_USERID='%s'" %USERID
- ReadValueSql "TBL_RELATPOINT" %A9 "FLD_USERID,FLD_POINT"
- [@换天气检测]
-
- [@换天气检测()]
- #ACT
- mov A4 %ARG(1)
- mov D0 %ARG(2)
- #IF
- Equal A4 ""
- #ACT
- goto @积分查询
- break
- #IF
- elarge D0 %D1
- #ACT
- FormatStr "FLD_USERID='%s'" %USERID
- mov A6 %A9
- DEC D0 %D1
- mov D8 %D0
- FormatStr "FLD_POINT='%s'" %D8
- UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
- ChangeMapAttr "%A1" "%A2"
- EventMsg "%A1" "<$USERNAME> 施加了天气魔法<$OUTPUT(A3)>,
- 开始<$OUTPUT(A7)>了。" 10015
- SysMsg " 你花费了<$OUTPUT(D1)>点积分。还剩余<$OUTPUT(D8)>
- 点积分!"
- break
-
- #ELSESAY
- {FCOLOR/1}你没有足够的积分!{FCOLOR/10}\\
- <关 闭/@exit>\\
复制代码
改变天气脚本.txt
(1.55 KB, 下载次数: 22)
|
|