开阔云引擎制作的下雪特效源码

syzlmVIP6年

学习天启老师下雪特效，用开阔云引擎制也利作一个
超级简单哟
像真的雪花一样

下雪特效源码.rar (212.39 KB, 下载次数: 17)

2020-1-16 22:25 上传

点击文件名下载附件

shennightVIP6年

看到你们天天下雪，下班花10分钟，弄了一个全自绘的，可能有些卡，没有优化，没有图片，代码如下，自已加综合模块与引擎，不会复制源码的，下载附件吧。

雪花.zip (222.66 KB, 下载次数: 8)

2020-1-17 18:27 上传

点击文件名下载附件 为什么这么简单呢，因为引擎就是厉害，不管是用插件还是自绘，都是杠杠的。

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. .程序集变量 窗口句柄, 整数型
   
5. .程序集变量 窗口, 引擎_窗口
   
6. .程序集变量 透明标签, 引擎_透明标签, , "0"
   
7. .程序集变量 文本, 字节集
   
8. .程序集变量 主屏幕宽, 整数型
   
9. .程序集变量 主屏幕高, 整数型
   
10. .程序集变量 最大雪花数, 整数型
    
11. .程序集变量 计次, 整数型
    
12. .程序集变量 图形个数, 整数型
    
13. .程序集变量 选中文本, 字节集
    
14. 
    
15. .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
    
16. .局部变量 随机大小, 整数型
    
17. .局部变量 a, 整数型
    
18. 
    
19. 引擎_注册 (取运行目录 ())
    
20. 引擎_秘钥 (“填你自已的”)
    
21. 系统_取系统分辨率 (主屏幕宽, 主屏幕高)
    
22. 窗口句柄 ＝ 引擎_创建窗口 (, , “下雪”, 0, 0, 主屏幕宽, 主屏幕高, #引擎_窗口风格_无边框 ＋ #引擎_窗口风格_可视, #扩展风格_不在任务条中显示)
    
23. 窗口.创建 (窗口句柄)
    
24. 窗口_鼠标穿透 (窗口句柄, 真)
    
25. 窗口_置顶 (窗口句柄, 真)
    
26. 最大雪花数 ＝ 50  ' 设置雪花数,别弄太多，可能会卡。
    
27. 重定义数组 (透明标签, 假, 最大雪花数)
    
28. 文本 ＝ { 64, 39, 73, 39, 50, 39, 63, 39, 72, 39 }  ' 这些图形就是文本，就是一些特殊符号。
    
29. 图形个数 ＝ 取字节集长度 (文本) ÷ 2
    
30. 置随机数种子 ()
    
31. .计次循环首 (最大雪花数, 计次)
    
32.     随机大小 ＝ 取随机数 (30, 60)
    
33.     透明标签 [计次].创建 (窗口.取组件句柄 (), 取随机数 (0, 主屏幕宽), 取随机数 (0, 主屏幕高), 随机大小, 随机大小)  ' 设置单个雪花大小为30*30
    
34.     选中文本 ＝ 取字节集中间 (文本, 取随机数 (1, 图形个数) × 2 － 1, 2)  ' 随机装载图形
    
35.     透明标签 [计次].标题W (选中文本)
    
36.     透明标签 [计次].字体 (引擎_制字体 (“宋体”, 随机大小 － 10, #字体风格_加粗, RGB到ARGB (#白色, 220), 假, RGB到ARGB (#灰色), 10, 20))
    
37. .计次循环尾 ()
    
38. .判断循环首 (a ＝ 0)
    
39.     .计次循环首 (最大雪花数, 计次)
    
40.         透明标签 [计次].顶边 (透明标签 [计次].顶边 () ＋ 取随机数 (1, 3))
    
41.         .如果真 (透明标签 [计次].顶边 () ≥ 主屏幕高)
    
42.             透明标签 [计次].移动 (取随机数 (0, 主屏幕宽), －透明标签 [计次].高度 ())  ' 超出屏幕之后，从下面继续下来。 保证不在同一位置往下掉。
    
43.         .如果真结束
    
44. 
    
45.     .计次循环尾 ()
    
46.     程序_等待 (40)
    
47. .判断循环尾 ()
    
48. 
    
49. 返回 (0)  ' 可以根据您的需要返回任意数值
    

复制代码

shennightVIP6年

shennight 发表于 2020-1-17 18:28
看到你们天天下雪，下班花10分钟，弄了一个全自绘的，可能有些卡，没有优化，没有图片，代码如下，自已加综 ...

什么斜着跑，拐弯跑，乱跑，都是可以的。

angelmany

天启 发表于 2020-1-16 23:34
鹅毛大雪插件来了

早上发现我改的WEB头有问题,所以最好不要用NOTepad++改,一不注意顶部就会出现乱码.换了一个编码软件才搞定

天启VIP6年

syzlm 发表于 2020-1-16 22:33
向你学习制作插件，能将这个制作成插件源码分享下吗

鹅毛大雪插件来了

下大雪特效.rar (305.83 KB, 下载次数: 5)

2020-1-16 23:34 上传

点击文件名下载附件
无错版

angelmany

syzlm 发表于 2020-1-16 22:33
向你学习制作插件，能将这个制作成插件源码分享下吗

改好,完成...睡了

syzlmVIP6年

angelmany 发表于 2020-1-16 22:30
看了一下,可以做成插件

向你学习制作插件，能将这个制作成插件源码分享下吗

angelmany

看了一下,可以做成插件