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

[@改变天气]

{

#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>

}