传奇通用引擎 改变天气脚本

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

对牛弹琴的人越来越多了！

精神病院在通缉楼主！

很多天不上线，一上线就看到这么给力的帖子！

楼主该去看心理医生了！

这一年啥事没干，光研究楼主的帖子了！

谢谢楼主~~~~~~~












四川邛崃桥梁检测车出租：jianceche.com/sichuan/178.html

先下载看看~~~！

楼主辛苦了~~~支持中！！！

强烈支持，楼主万岁！











交友：我是个小女生，21岁，独生子女，还没谈过恋爱，长相较好，反正带出去不会给你丢脸，身高165cm，体重50kg，现在是一家公司的文员。希望找个比我大几岁的男生，不需要你有非常好的条件，但一定要有上进心，会体贴女生，不花心。因为我是第一次恋爱，所以希望找的就是那种能结婚的。如果你是我说的那个他，那就加我微信吧：pndrwx