让传奇和传世一样改变游戏中天气

[@改变天气]
{
#say
我这里可以让你改变系统天气，是不是非常酷，不过需要花费你1个积分。
还要提醒你，如果你开了挂请选择使用天气控制系统默认。
<比奇白天/@开始换天气(0Day比奇城1白天)>
<比奇起雾/@开始换天气(0Fog比奇城1起雾)>
<比奇下雨/@开始换天气(0Rain比奇城1下雨)>
<比奇下雪/@开始换天气(0SNOW比奇城1下雪)>
<比奇天晴/@开始换天气(0Clean比奇城1天晴)>\
<关闭/@exit>

[@开始换天气()]
#ACT
MovA1%ARG(1)
MovA2%ARG(2)
MovA3%ARG(3)
MovD1%ARG(4)
MovA7%ARG(5)
Delaygoto[local]5@进行换天气
SysMsg"请稍后，系统正在处理数据..."

[@进行换天气]
#act
FormatStr"FLD_USERID='%s'"%USERID
ReadValueSql"TBL_RELATPOINT"%A9"FLD_USERIDFLD_POINT"[@换天气检测]

[@换天气检测()]
#ACT
movA4%ARG(1)
movD0%ARG(2)
#IF
EqualA4""
#ACT
goto@积分查询
break
#IF
elargeD0%D1
#ACT
FormatStr"FLD_USERID='%s'"%USERID
movA6%A9
DECD0%D1
movD8%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>\
}