改变天气脚本

麦子971

----------如果你的引擎不支持我没办法---------
[@改变天气]
{
#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>\\

贰仟

对于变态传世私服和超变传世私服,虽然有部分人喜欢但是能玩的住的人还是不算太多

热血无赖

为毛老子总也抢不到沙发？！！

珠妹

我抢、我抢、我抢沙发~

杨哥乒乓

学习了，不错，讲的太有道理了

虽远必诛

1.85狂雷版本,1.95酷月合击,1.76蓝魔精品、究极、大极品、小极品

缕缕阳光照前程

珍爱生命，果断回帖。

無为

不错 支持一个了

儒雅随和暴躁的老王

一直在看

人走茶自凉

没人回帖。。。我来个吧