[@改变天气]
{
#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
#ELSESAY
{FCOLOR/1}你没有足够的积分!{FCOLOR/10}\\
<关 闭/@exit>
论坛一条龙
|
|