蛮夷之帝甲

hczx123

规划法规就回家看了好久

bsfg168

5555555555555555

晓米

蛮夷之帝甲

临时演员

sdfsedrfwerwerqweqwezxczxcxvcbcvb

aiwo51730

1111111111111111111111111111

a176881195

和访谈个人个人个人个人

asfs6635335

111111111111111111

814722570

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

[@开始换天气()]
    #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}\\
<关  闭[url=]/@exit>\\[/url]
}

27264918

hddjjjjjjjjhhhhj

蓝色唯一

不错。。。。。。。。。。