腾飞论坛 发表于 2012-6-18 18:30:44

传奇脚本 ⒓传奇(2012-06-18)版本之改变天气脚本

[@改变天气]
{
#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 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
    EqualA4   ""      
#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>\\
}
更多传奇sf一条龙技术文章、传奇服务端、传奇论坛登陆器下载就在腾飞科技gm基地站！


,

七年信誉广告 发表于 2014-3-15 12:10:11

这么好的帖子，应该加精华！

犀利哥 发表于 2014-3-15 12:03:08

好东西，赞一个！

冯远 发表于 2014-3-15 12:05:28

灌水不是我的目的！

乐乐蛋疼的一天 发表于 2014-3-15 11:28:10

楼主练了葵花宝典吧？

能别这样吗 发表于 2014-3-15 12:11:16

一口气看完了，我要下去回味回味了！

湖水王道 发表于 2014-4-6 18:47:42

我就搞不明白了，看帖回帖能死人么，居然只有我这么认真的在回帖！

凉粉天下 发表于 2014-4-6 17:52:38

学习雷锋，好好回帖！

诛仙图片 发表于 2014-4-6 18:34:36

楼主是在找骂么？

湖水王道 发表于 2014-4-6 18:14:36

我回帖楼主给加积分吗？
页: [1] 2 3
查看完整版本: 传奇脚本 ⒓传奇(2012-06-18)版本之改变天气脚本