【脚本分享】改变天气脚本

xixi365

1. ----------如果你的引擎不支持我没办法---------
   
2. [@改变天气]
   
3. {
   
4. #say
   
5. 我这里可以让你改变系统天气，是不是非常酷，不过需要花费你1个积分。\
   
6. 还要提醒你，如果你开了科技请选择使用天气控制系统默认。\
   
7. <比奇白天/@开始换天气(0,Day,比奇城,1,白天)>\
   
8. <比奇起雾/@开始换天气(0,Fog,比奇城,1,起雾)>\
   
9. <比奇下雨/@开始换天气(0,Rain,比奇城,1,下雨)>\
   
10. <比奇下雪/@开始换天气(0,SNOW,比奇城,1,下雪)>\
    
11. <比奇天晴/@开始换天气(0,Clean,比奇城,1,天晴)>\\
    
12. <关闭/@exit>
    
13. 
    
14. [@开始换天气()]
    
15.    #ACT
    
16.            Mov        A1       %ARG(1)
    
17.            Mov        A2       %ARG(2)
    
18.            Mov        A3       %ARG(3)
    
19.            Mov        D1       %ARG(4)
    
20.            Mov        A7       %ARG(5)
    
21.            Delaygoto [local] 5 @进行换天气
    
22. SysMsg " 请稍后，系统正在处理数据... "
    
23. 
    
24. [@进行换天气]
    
25. #act
    
26.     FormatStr "FLD_USERID='%s'" %USERID
    
27.     ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_USERID,FLD_POINT"  
    
28. [@换天气检测]
    
29. 
    
30. [@换天气检测()]
    
31. #ACT
    
32.     mov    A4      %ARG(1)
    
33.     mov    D0      %ARG(2)
    
34. #IF
    
35.     Equal  A4   ""      
    
36. #ACT
    
37.     goto @积分查询
    
38.     break
    
39. #IF
    
40.     elarge D0 %D1
    
41. #ACT
    
42.     FormatStr "FLD_USERID='%s'" %USERID
    
43.     mov   A6       %A9
    
44.     DEC   D0       %D1
    
45.     mov   D8       %D0
    
46.     FormatStr "FLD_POINT='%s'" %D8
    
47.     UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
    
48.       ChangeMapAttr "%A1" "%A2"
    
49.    EventMsg "%A1" "<$USERNAME> 施加了天气魔法<$OUTPUT(A3)>，
    
50. 开始<$OUTPUT(A7)>了。" 10015
    
51.    SysMsg  " 你花费了<$OUTPUT(D1)>点积分。还剩余<$OUTPUT(D8)>
    
52. 点积分！"
    
53.    break
    
54. 
    
55. #ELSESAY
    
56. {FCOLOR/1}你没有足够的积分！{FCOLOR/10}\\
    
57. <关  闭/@exit>\\
    

复制代码

改变天气脚本.txt (1.55 KB, 下载次数: 23)

2023-5-22 10:20 上传

点击文件名下载附件

缘天

只有自己看还是同屏都能看到？