找回密码
 立即注册

手机号码,快捷登录

手机号码,快捷登录

帝王
996pc
服务器
查看: 474|回复: 1

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

[复制链接]

11

主题

66

回帖

165

积分

什长

元宝
0
鸿盾币
0
金币
303
发表于 2023-5-22 10:20:35 | 显示全部楼层 |阅读模式
  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.    #ACT
  15.            Mov        A1       %ARG(1)
  16.            Mov        A2       %ARG(2)
  17.            Mov        A3       %ARG(3)
  18.            Mov        D1       %ARG(4)
  19.            Mov        A7       %ARG(5)
  20.            Delaygoto [local] 5 @进行换天气
  21. SysMsg " 请稍后,系统正在处理数据... "

  22. [@进行换天气]
  23. #act
  24.     FormatStr "FLD_USERID='%s'" %USERID
  25.     ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_USERID,FLD_POINT"  
  26. [@换天气检测]

  27. [@换天气检测()]
  28. #ACT
  29.     mov    A4      %ARG(1)
  30.     mov    D0      %ARG(2)
  31. #IF
  32.     Equal  A4   ""      
  33. #ACT
  34.     goto @积分查询
  35.     break
  36. #IF
  37.     elarge D0 %D1
  38. #ACT
  39.     FormatStr "FLD_USERID='%s'" %USERID
  40.     mov   A6       %A9
  41.     DEC   D0       %D1
  42.     mov   D8       %D0
  43.     FormatStr "FLD_POINT='%s'" %D8
  44.     UPDATEVALUESQL "TBL_RELATPOINT" %A6 %A9
  45.       ChangeMapAttr "%A1" "%A2"
  46.    EventMsg "%A1" "<$USERNAME> 施加了天气魔法<$OUTPUT(A3)>,
  47. 开始<$OUTPUT(A7)>了。" 10015
  48.    SysMsg  " 你花费了<$OUTPUT(D1)>点积分。还剩余<$OUTPUT(D8)>
  49. 点积分!"
  50.    break

  51. #ELSESAY
  52. {FCOLOR/1}你没有足够的积分!{FCOLOR/10}\\
  53. <关  闭/@exit>\\
复制代码
改变天气脚本.txt (1.55 KB, 下载次数: 22)
回复

使用道具 举报

0

主题

20

回帖

58

积分

什长

元宝
19
鸿盾币
0
金币
154
发表于 2023-5-22 14:31:08 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

Archiver|手机版|小黑屋|传奇服务端 |Sitemap

GMT+8, 2024-11-3 21:45 , Processed in 0.033615 second(s), 14 queries , Gzip On, Redis On.

Powered by 108pc X3.5

快速回复 返回顶部 返回列表