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