传奇商业脚本 传奇SF改变天气脚本 传奇sf脚本

----------如果你的引擎不支持我没办法---------

[@改变天气]

 {

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