TC官方合作论坛

标题: 天龙八部种植小工具-热键多线程的使用 [打印本页]
作者: mxng    时间: 2012-4-9 05:10
标题: 天龙八部种植小工具-热键多线程的使用

闲的蛋疼，弄了这么个
刚刚学习TC，有用的不好的地方请指正

天龙八部三.t

  1. #include "种植.t"
  2. 空间 天龙八部三
  3. 整型 种植句柄
  4. 字符型 种植线程状态

  6. 功能 逻辑型 初始化()
  7. 种植句柄=0
  8. 种植线程状态="停止"
  9. 返回 真
  10. 功能结束

  12. 功能 逻辑型 种植启动_热键()
  13. 种植句柄=线程.开启("种植.开始")
  14. 如果 (种植句柄==0)
  15. 辅助.消息框("线程开启失败")
  16. 否则
  17. //辅助.消息框("线程开启成功")
  18. 种植线程状态="执行"
  19. 如果结束

  21. 返回 真
  22. 功能结束

  24. 功能 逻辑型 种植停止_热键()
  25. 如果 (种植句柄!=0)
  26. 如果(线程.关闭(种植句柄))
  27. 种植句柄=0
  28. 种植线程状态="停止"
  29. 否则
  30. 辅助.消息框("线程关闭失败")
  31. 如果结束
  32. 如果结束
  33. 返回 真
  34. 功能结束

  36. 功能 逻辑型 种植暂停_热键()
  37. 如果 (种植句柄!=0)
  38. 如果(种植线程状态=="执行")
  39. 如果 (线程.暂停(种植句柄))
  40. 种植线程状态="停止"
  41. 否则
  42. 辅助.消息框("线程暂停失败")
  43. 如果结束
  44. 否则
  45. 如果 (线程.恢复(种植句柄))
  46. 种植线程状态="执行"
  47. 否则
  48. 辅助.消息框("线程恢复失败")
  49. 如果结束
  50. 如果结束
  51. 如果结束
  52. 返回 真
  53. 功能结束

  55. 功能 逻辑型 应用_点击()
  56. 返回 真
  57. 功能结束
  58. 功能 逻辑型 种植启动_失去焦点()
  59. 热键.销毁("种植启动")
  60. 热键.注册("种植启动")
  61. 返回 真
  62. 功能结束
  63. 功能 逻辑型 种植停止_失去焦点()
  64. 热键.销毁("种植停止")
  65. 热键.注册("种植停止")
  66. 返回 真
  67. 功能结束
  68. 功能 逻辑型 种植暂停_失去焦点()
  69. 热键.销毁("种植暂停")
  70. 热键.注册("种植暂停")
  71. 返回 真
  72. 功能结束

  74. 功能 逻辑型 重填_点击()
  75. 热键.销毁("种植启动")
  76. 热键.销毁("种植停止")
  77. 热键.销毁("种植暂停")
  78. 编辑框.设置文本("稻草人坐标X","")
  79. 编辑框.设置文本("稻草人坐标Y","")
  80. 返回 真
  81. 功能结束

  83. 空间结束
复制代码
种植.t


  2. 空间 种植
  3. 整型 稻草人X,稻草人Y
  4. 整型 坐标数字X,坐标数字Y,十位偏移,百位偏移,数字像素宽,坐标数字颜色
  5. 整型 人物坐标X,人物坐标Y
  6. 整型 图片坐标X,图片坐标Y
  7. 整型 屏幕宽,屏幕高
  8. 整型 鼠标状态对话,鼠标状态打怪,鼠标状态拾取
  9. 字符型 坐标字样,早产字样,全部拾取,验证字样

  11. 功能 逻辑型 初始化()

  13. 坐标数字颜色=#73FFFD
  14. 坐标数字X=1297//这个懒得取色找坐标了,反正自己用.1366x768全屏
  15. 坐标数字Y=6
  16. 十位偏移=24
  17. 百位偏移=30
  18. 数字像素宽=6

  20. 系统.获得分辨率(屏幕宽,屏幕高)

  22. 鼠标状态对话=28769865
  23. 鼠标状态打怪=21823155
  24. 鼠标状态拾取=36044250

  26. 坐标字样 = "#63F2FF,0|-6|080D18,0|-5|63F2FF,-6|5|080D18,-5|5|63F2FF,18|4|63F2FF,19|4|080D18"
  27. 早产字样= "#55D5FF,0|-1|080D18,0|-2|55D5FF,5|2|55D5FF,0|5|55D5FF"
  28. 全部拾取= "#78EBFD,-22|-5|78EBFD,-27|5|78EBFD,-7|5|78EBFD,22|5|78EBFD,21|-4|78EBFD,6|-5|78EBFD"
  29. 验证字样="#63F2FF,-5|-5|63F2FF,-7|5|63F2FF,3|5|63F2FF,10|-1|63F2FF"

  31. 如果 (编辑框.获得文本("稻草人坐标X")!="")
  32. 稻草人X=转换.字符型转整型(编辑框.获得文本("稻草人坐标X"),0)
  33. 稻草人Y=转换.字符型转整型(编辑框.获得文本("稻草人坐标Y"),0)
  34. 否则
  35. 种植.得到人物坐标()
  36. 稻草人X=人物坐标X
  37. 稻草人Y=人物坐标Y
  38. 如果结束
  39. 返回 真
  40. 功能结束

  42. 功能 逻辑型 开始()
  43. 种植.初始化()
  44. //稻草人X=197
  45. //稻草人Y=392
  46. 循环(真)
  47. 种植.移动到坐标(稻草人X,稻草人Y) //稻草人坐标
  48. //点击稻草人
  49. 循环(!种植.鼠标渐开(屏幕宽/2,屏幕高/2,鼠标状态对话,1,40,1,辅助.随机数(0,360),30,50))
  50. 辅助.等待(100)
  51. 循环结束
  52. //找到 早产 字样 ,点击
  53. 循环(!种植.查找图片坐标(0,0,屏幕宽,屏幕高,早产字样))
  54. //辅助.消息框("没找到")
  55. 辅助.等待(500)
  56. 循环结束
  57. 辅助.等待(100)
  58. 鼠标.移动(图片坐标X, 图片坐标Y)
  59. 辅助.等待(100)
  60. 鼠标.左键单击(1)
  61. 辅助.等待(1000)
  62. //
  63. 辅助.等待(100)
  64. 鼠标.移动(图片坐标X, 图片坐标Y)
  65. 辅助.等待(100)
  66. 鼠标.左键单击(1)
  67. 辅助.等待(500)
  68. 辅助.等待(5*60*1000+辅助.随机数(10000,20000))//等待5分钟+10秒627, 368

  70. 整型 次数=1
  71. 循环(次数<5)
  72. 种植.移动到坐标(稻草人X,稻草人Y)
  73. 如果(种植.鼠标渐开(屏幕宽/2,屏幕高/2,鼠标状态拾取,80,130,1,辅助.随机数(0,360),30,100))
  74. 辅助.等待(辅助.随机数(5500,7000))//收割
  75. //验证码检查
  76. 种植.是否有验证()
  77. 辅助.等待(100)
  78. //如果找到 全部拾取 字样 点击
  79. 如果 (!种植.查找图片坐标(0,0,屏幕宽,屏幕高,全部拾取))
  80. 继续
  81. 如果结束
  82. 辅助.等待(100)
  83. 鼠标.移动(图片坐标X, 图片坐标Y)
  84. 辅助.等待(100)
  85. 鼠标.左键单击(1)
  86. 辅助.等待(500)
  87. 次数=次数+1
  88. 如果结束
  89. 循环结束
  90. 循环结束
  91. 返回 真
  92. 功能结束





  98. 功能 逻辑型 是否有验证()
  99. 如果 (种植.查找图片坐标(0,0,屏幕宽,屏幕高,验证字样))
  100. 辅助.播放("D:\\Backup\\桌面\\alarm.mp3")
  101. 返回 真
  102. 如果结束
  103. 返回 假
  104. 功能结束

  106. 功能 逻辑型 鼠标渐开(整型 中点坐标X,整型 中点坐标Y,整型 鼠标状态,整型 初始半径,整型 最大半径,整型 步长 ,整型 初始角度 ,整型 转角,整型 速度)
  107. 整型 鼠标坐标X,鼠标坐标Y
  108. //鼠标.移动(中点坐标X,中点坐标Y)
  109. 鼠标.移动(中点坐标X+辅助.随机数(50,300),中点坐标Y+辅助.随机数(50,300))
  110. 辅助.等待(100)
  111. 循环(鼠标.获取特征码()!=鼠标状态)
  112. 初始半径=初始半径+步长
  113. 如果(初始半径>最大半径)
  114. //出现异常
  115. 返回 假
  116. 跳出
  117. 如果结束
  118. 初始角度=初始角度+转角
  119. 鼠标坐标X=中点坐标X+转换.浮点型转整型(初始半径*数学.余弦值(初始角度*3.14/180))
  120. 鼠标坐标Y=中点坐标Y+转换.浮点型转整型(初始半径*数学.正弦值(初始角度*3.14/180))
  121. 鼠标.移动(鼠标坐标X,鼠标坐标Y)
  122. //辅助.消息框(转换.整型转字符型(鼠标坐标X)+","+转换.整型转字符型(鼠标坐标Y))
  123. 辅助.等待(速度)
  124. 循环结束
  125. 辅助.等待(100)
  126. 鼠标.左键单击(1)
  127. 辅助.等待(100)
  128. 返回 真
  129. 功能结束

  131. 功能 逻辑型 移动到坐标(整型 X,整型 Y)
  132. 种植.得到人物坐标()
  133. 如果 (人物坐标X==X&&人物坐标Y==Y)
  134. 返回 真
  135. 如果结束
  136. 循环(!种植.查找图片坐标(0,0,屏幕宽,屏幕高,坐标字样))
  137. //辅助.消息框("测试"+转换.整型转字符型(图片坐标X)+","+转换.整型转字符型(图片坐标Y))
  138. 键盘.按下(18)
  139. 辅助.等待(100)
  140. 键盘.按键(192,1) //按alt+`开启自动寻路界面
  141. 辅助.等待(100)
  142. 键盘.弹起(18)
  143. 辅助.等待(200)
  144. 循环结束
  145. //点击坐标输入框，然后输入坐标
  146. 辅助.等待(100)
  147. 鼠标.移动(图片坐标X+46, 图片坐标Y)
  148. 辅助.等待(100)
  149. 鼠标.左键单击(1)
  150. 辅助.等待(100)
  151. 键盘.按键(8,3) //删除原来的坐标
  152. 辅助.等待(100)
  153. 键盘.发送字符串(转换.整型转字符型(X))
  154. 辅助.等待(100)
  155. 鼠标.移动(图片坐标X+78, 图片坐标Y)
  156. 辅助.等待(100)
  157. 鼠标.左键单击(1)
  158. 辅助.等待(100)
  159. 键盘.按键(8,3) //删除原来的坐标
  160. 辅助.等待(100)
  161. 键盘.发送字符串(转换.整型转字符型(Y))
  162. //点击移动按钮
  163. 辅助.等待(100)
  164. 鼠标.移动(图片坐标X+122, 图片坐标Y)
  165. 辅助.等待(100)
  166. 鼠标.左键单击(1)
  167. 循环(真)
  168. 种植.得到人物坐标()
  169. 如果 (人物坐标X!=X||人物坐标Y!=Y)
  170. 辅助.等待(500) //人物移动中,静默等待
  171. 否则
  172. 跳出//人物到达指定坐标
  173. 如果结束
  174. 循环结束
  175. 返回 真
  176. 功能结束

  178. 功能 逻辑型 查找图片坐标(整型 x1,整型 y1,整型 x2,整型 y2,字符型 图片)
  179. 图片坐标X=0
  180. 图片坐标Y=0
  181. 整型 x,y
  182. 图像.多点找色(x1,y1,x2,y2,转换.字符型转整型(字符串.截取(图片,0,7),1),字符串.截取(图片,8,字符串.长度(图片)),0.9,0,x,y)
  183. 如果 (x<0||y<0)
  184. 返回 假
  185. 如果结束
  186. 图片坐标X=x
  187. 图片坐标Y=y
  188. 返回 真
  189. 功能结束

  191. 功能 逻辑型 得到人物坐标()
  192. 整型 X1,X2,X3,Y1,Y2,Y3,偏移
  193. X1=种植.查找坐标数字(坐标数字X,坐标数字Y)
  194. X2=种植.查找坐标数字(坐标数字X+数字像素宽,坐标数字Y)
  195. X3=种植.查找坐标数字(坐标数字X+数字像素宽*2,坐标数字Y)
  196. 如果(X3==-1)
  197. 人物坐标X=X1*10+X2
  198. 偏移=十位偏移
  199. 否则
  200. 人物坐标X=X1*100+X2*10+X3
  201. 偏移=百位偏移
  202. 如果结束
  203. Y1=种植.查找坐标数字(坐标数字X+偏移,坐标数字Y)
  204. Y2=种植.查找坐标数字(坐标数字X+偏移+数字像素宽,坐标数字Y)
  205. Y3=种植.查找坐标数字(坐标数字X+偏移+数字像素宽*2,坐标数字Y)
  206. 如果(Y3==-1)
  207. 人物坐标Y=Y1*10+Y2
  208. 否则
  209. 人物坐标Y=Y1*100+Y2*10+Y3
  210. 如果结束
  211. 返回 真
  212. 功能结束

  214. 功能 整型 查找坐标数字(整型 坐标X,整型 坐标Y)
  215. 整型 数字
  216. 如果(图像.坐标点取色(坐标X+1,坐标Y+1 )==坐标数字颜色)
  217. 数字=1
  218. 否则
  219. 如果(图像.坐标点取色(坐标X+0,坐标Y+7 )==坐标数字颜色)
  220. 数字=2
  221. 否则
  222. 如果(图像.坐标点取色(坐标X+3,坐标Y+5 )==坐标数字颜色)
  223. 数字=4
  224. 否则
  225. 如果(图像.坐标点取色(坐标X+1,坐标Y+6 )==坐标数字颜色)
  226. 数字=9
  227. 否则
  228. 如果(图像.坐标点取色(坐标X+2,坐标Y+6 )==坐标数字颜色)
  229. 数字=7
  230. 否则
  231. 如果(图像.坐标点取色(坐标X+4,坐标Y+3 )==坐标数字颜色)
  232. 数字=0
  233. 否则
  234. 如果(图像.坐标点取色(坐标X+4,坐标Y+0 )==坐标数字颜色)
  235. 数字=5
  236. 否则
  237. 如果(图像.坐标点取色(坐标X+3,坐标Y+1 )==坐标数字颜色)
  238. 数字=6
  239. 否则
  240. 如果(图像.坐标点取色(坐标X+0,坐标Y+2 )==坐标数字颜色)
  241. 数字=8
  242. 否则
  243. 如果(图像.坐标点取色(坐标X+1,坐标Y+0 )==坐标数字颜色)
  244. 数字=3
  245. 否则
  246. 数字=-1
  247. 如果结束
  248. 如果结束
  249. 如果结束
  250. 如果结束
  251. 如果结束
  252. 如果结束
  253. 如果结束
  254. 如果结束
  255. 如果结束
  256. 如果结束
  257. 返回 数字
  258. 功能结束


  261. 空间结束
复制代码



[attach]2742[/attach]

作者: btbcagf    时间: 2012-4-9 08:20
能给做个神仙传的脚本吗？    我QQ 332031326  YY号2317095  常在YY频道1530779
等待大神回复
作者: Abin    时间: 2012-4-9 10:28
楼主的分享精神很不错啊！  菜鸟们多学习下啊！！  呵呵。。
作者: Mr.u    时间: 2012-4-9 12:01
界面设置按键，学习下。
作者: 610004856    时间: 2012-4-9 14:07
顶一个
作者: 610004856    时间: 2012-4-9 14:08
顺便请教下怎么才能发帖
作者: qaz670589896    时间: 2012-5-5 18:18
积分多少才可以下东西
作者: qaz670589896    时间: 2012-5-5 18:33
怎么用啊
作者: qaz670589896    时间: 2012-5-5 18:34
积分多少才可以下东西v
作者: VIP    时间: 2012-5-5 20:32
楼主，下载解压后文件就变成这样，这是什么原因？
作者: fang2018    时间: 2012-5-5 21:40
这个可以值的一顶
作者: k5puvak    时间: 2012-5-6 13:00
收藏慢慢研究
作者: 930929110    时间: 2012-5-28 12:16
顶顶顶
作者: jq4561057    时间: 2012-6-3 14:18
顶顶顶
作者: c724211922    时间: 2012-8-19 16:24
这个太好了
作者: wtc1980    时间: 2012-11-21 11:44
运行就显示  种植 开始 那里 语法错误
作者: z211063515    时间: 2013-4-8 19:32
回复 1楼mxng的帖子

楼住。。请问怎么用啊这个、、小白
作者: liyangchuantc    时间: 2013-6-1 18:03
.........
作者: newq654321    时间: 2013-6-12 21:46
好深奥  ....哇塞                支持
作者: 120615097    时间: 2013-7-18 09:52
（>错误:C:\Documents and Settings\Administrator\桌面\天龙八部三\天龙八部三\种植.t 行号:11 错误信息:&#39;逻辑型 初始化&#39;中出现不是命名规范中的字符,只能出现字母,数字和下划线）怎样改啊
作者: 120615097    时间: 2013-7-18 15:45
好多问题啊



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1