西瓜柚子冰 发表于 2019-4-16 19:03:12

让传奇2和传世一样改变游戏中天气

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

indiansea 发表于 2019-4-16 19:13:41

围观 围观 沙发在哪里！！！

duduqiu567 发表于 2019-4-19 06:13:49

报告！别开枪，我就是路过来看看的。。。

宁籽 发表于 2019-4-21 05:12:46

LZ帖子不给力，勉强给回复下吧

sdfmtitw 发表于 2019-4-22 00:37:39

为保住菊花，这个一定得回复！

梓沫233 发表于 2019-4-22 03:38:37

呵呵，低调，低调！

contin 发表于 2019-4-23 04:13:37

LZ帖子不给力，勉强给回复下吧

女走口弓 发表于 2019-4-24 01:31:03

看起来不错

枫霖逸 发表于 2019-4-25 00:29:17

楼下的接上。。。。

zhang1984 发表于 2019-4-25 10:21:13

我了个去，顶了
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 让传奇2和传世一样改变游戏中天气