传奇版本改变天气脚本

gmbbs醉后知酒浓 · 发表于 2018-9-10 17:21:45

[@改变天气]
{
#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]
}

二酝 · 发表于 2018-9-18 02:39:38

一直在看

贺晴虹 · 发表于 2018-9-20 17:35:50

一直在看

瞇宏袈 · 发表于 2018-9-23 16:57:07

介是神马？！！

雷玲琳 · 发表于 2018-9-27 04:09:49

前排支持下了哦~

莅墙场 · 发表于 2018-9-28 08:35:43

顶起出售广告位

婿臭 · 发表于 2018-9-29 08:35:29

我了个去，顶了

丑伤 · 发表于 2018-9-30 17:13:23

啥玩应呀

笑郾卤 · 发表于 2018-9-30 17:15:10

我了个去，顶了

醱黏阁 · 发表于 2018-10-1 02:54:40

我也是坐沙发的

[精选传奇脚本] 传奇版本改变天气脚本