昨天晚上听嚣张说了一个小脚本,功能是开启两个记事本,一个大的一个小的,运行脚本以后无论把大记事本移动到什么位置,小的记事本会围绕着大记事本的边框不停旋转!今天无聊就用TC写了一个,现在发出来博大家一笑!也许能给大家一点启发,应用到游戏脚本的制作中!
脚本界面就一个开始和退出,点击开始自动打开两个记事本并设置大小,修改窗口标题为"我是地球"和"我是月亮",然后月亮当然会围绕着地球转啦,无论把地球移动到屏幕的什么位置,月亮依然围绕着地球转!点击退出,脚本自动关闭两个记事本窗口和脚本!
应用到的技术:
1.通过窗口a的位置和大小,设置窗口b的位置
2.利用线程的扩展开启关闭进程
3.利用窗口标题关闭进程
4.自定义ico图标(大家看看我的ico图标怎么样撒,和我的论坛头像一样滴,哈哈)
下面是代码:
- 空间 小玩意
- 整型 顶层句柄1,顶层句柄2,循环线程
- 功能 整型 生成()
- 整型 x,y
- 辅助.命令("notepad",真)
- 辅助.等待(500)
- 顶层句柄1=窗口.顶层窗口句柄()
- 窗口.设置大小(顶层句柄1,500,500)
- 窗口.设置位置(顶层句柄1,100,100)
- 窗口.设置标题(顶层句柄1,"我是地球")
- 辅助.命令("notepad",真)
- 辅助.等待(500)
- 顶层句柄2=窗口.顶层窗口句柄()
- 窗口.设置大小(顶层句柄2,50,50)
- 窗口.设置标题(顶层句柄2,"我是月亮")
- 窗口.设置位置(顶层句柄2,600,100)
- 返回 0
- 功能结束
- 功能 整型 转圈()
- 整型 起点
- 循环(真)
- 整型 x,y,小x,小y,移动
- 窗口.获取位置(顶层句柄1,x,y)
- 窗口.获取位置(顶层句柄2,小x,小y)
- 循环(小x==x+500&&小y<y+500)
- 窗口.获取位置(顶层句柄1,x,y)
- 小x=x+500
- 移动=移动+1
- 小y=y+移动
- 窗口.设置位置(顶层句柄2,小x,小y)
- 窗口.置顶(顶层句柄2,真)
- 循环结束
- 移动=0
- 循环(小y==y+500&&小x>x-120)
- 窗口.获取位置(顶层句柄1,x,y)
- 小y=y+500
- 移动=移动+1
- 小x=x+500-移动
- 窗口.设置位置(顶层句柄2,小x,小y)
- 窗口.置顶(顶层句柄2,真)
- 循环结束
- 移动=0
- 循环(小x==x-120&&小y>y-50)
- 窗口.获取位置(顶层句柄1,x,y)
- 小x=x-120
- 移动=移动+1
- 小y=y+500-移动
- 窗口.设置位置(顶层句柄2,小x,小y)
- 窗口.置顶(顶层句柄2,真)
- 循环结束
- 移动=0
- 循环(小y==y-50&&小x<x+500)
- 窗口.获取位置(顶层句柄1,x,y)
- 小y=y-50
- 移动=移动+1
- 小x=x-120+移动
- 窗口.设置位置(顶层句柄2,小x,小y)
- 窗口.置顶(顶层句柄2,真)
- 循环结束
- 移动=0
- 循环(小x==x+500&&小y<y)
- 窗口.获取位置(顶层句柄1,x,y)
- 小x=x+500
- 移动=移动+1
- 小y=y-50+移动
- 窗口.设置位置(顶层句柄2,小x,小y)
- 窗口.置顶(顶层句柄2,真)
- 循环结束
- 循环结束
- 返回 0
- 功能结束
- 功能 整型 线程销毁()
- 整型 进程1=进程.获取进程句柄("我是月亮")
- 整型 进程2=进程.获取进程句柄("我是地球")
- 进程.关闭进程(进程1)
- 进程.关闭进程(进程2)
- 辅助.退出()
- 返回 0
- 功能结束
- 功能 逻辑型 开始_点击()
- 小玩意.生成()
- 循环线程=线程.扩展开启("小玩意.转圈","","小玩意.线程销毁","")
- 返回 真
- 功能结束
- 功能 逻辑型 退出_点击()
- 线程.关闭(循环线程)
- 返回 真
- 功能结束
- 功能 逻辑型 销毁()
- 线程.关闭(循环线程)
- 返回 真
- 功能结束
- 空间结束
备注:代码是3.0版本的,大家用别版本注意线程扩展开启的命令格式!
|
/2 
发表于 2012-4-15 19:55:28
楼主
发表于 2012-4-15 20:18:51
