原神立体方框 易语言代码

Jevil

1. .版本 2
   
2. 
   
3. 
   
4. 
   
5. .子程序 立体方框
   
6. 
   
7. .参数 对象坐标, Vector3
   
8. 
   
9. .参数 矩阵, 小数型, 数组
   
10. 
    
11. .局部变量 返回坐标, Vector2, , "8"
    
12. 
    
13. .局部变量 坐标3D, Vector3, , "8"
    
14. 
    
15. .局部变量 a, 整数型
    
16. 
    
17. 
    
18. 
    
19. 坐标3D [1].X ＝ 对象坐标.X － 0.4
    
20. 
    
21. 坐标3D [1].Y ＝ 对象坐标.Y  ' ＋ 0.75
    
22. 
    
23. 坐标3D [1].Z ＝ 对象坐标.Z － 0.4
    
24. 
    
25. 运算_矩阵转坐标 (坐标3D [1], 返回坐标 [1], , 矩阵)
    
26. 
    
27. .如果真 (返回坐标 [1].X ＝ 0)
    
28. 
    
29.     返回 ()
    
30. 
    
31. .如果真结束
    
32. 
    
33. 
    
34. 
    
35. 坐标3D [2].X ＝ 对象坐标.X ＋ 0.4
    
36. 
    
37. 坐标3D [2].Y ＝ 对象坐标.Y  ' ＋ 0.75
    
38. 
    
39. 坐标3D [2].Z ＝ 对象坐标.Z － 0.4
    
40. 
    
41. 运算_矩阵转坐标 (坐标3D [2], 返回坐标 [2], , 矩阵)
    
42. 
    
43. .如果真 (返回坐标 [2].X ＝ 0)
    
44. 
    
45.     返回 ()
    
46. 
    
47. .如果真结束
    
48. 
    
49. 
    
50. 
    
51. 坐标3D [3].X ＝ 对象坐标.X ＋ 0.4
    
52. 
    
53. 坐标3D [3].Y ＝ 对象坐标.Y  ' ＋ 0.75
    
54. 
    
55. 坐标3D [3].Z ＝ 对象坐标.Z ＋ 0.4
    
56. 
    
57. 运算_矩阵转坐标 (坐标3D [3], 返回坐标 [3], , 矩阵)
    
58. 
    
59. .如果真 (返回坐标 [3].X ＝ 0)
    
60. 
    
61.     返回 ()
    
62. 
    
63. .如果真结束
    
64. 
    
65. 
    
66. 
    
67. 坐标3D [4].X ＝ 对象坐标.X － 0.4
    
68. 
    
69. 坐标3D [4].Y ＝ 对象坐标.Y  ' ＋ 0.75
    
70. 
    
71. 坐标3D [4].Z ＝ 对象坐标.Z ＋ 0.4
    
72. 
    
73. 运算_矩阵转坐标 (坐标3D [4], 返回坐标 [4], , 矩阵)
    
74. 
    
75. .如果真 (返回坐标 [4].X ＝ 0)
    
76. 
    
77.     返回 ()
    
78. 
    
79. .如果真结束
    
80. 
    
81. 坐标3D [5].X ＝ 对象坐标.X － 0.4
    
82. 
    
83. 坐标3D [5].Y ＝ 对象坐标.Y ＋ 2
    
84. 
    
85. 坐标3D [5].Z ＝ 对象坐标.Z － 0.4
    
86. 
    
87. 运算_矩阵转坐标 (坐标3D [5], 返回坐标 [5], , 矩阵)
    
88. 
    
89. .如果真 (返回坐标 [5].X ＝ 0)
    
90. 
    
91.     返回 ()
    
92. 
    
93. .如果真结束
    
94. 
    
95. 坐标3D [6].X ＝ 对象坐标.X ＋ 0.4
    
96. 
    
97. 坐标3D [6].Y ＝ 对象坐标.Y ＋ 2
    
98. 
    
99. 坐标3D [6].Z ＝ 对象坐标.Z － 0.4
    
100. 
     
101. 运算_矩阵转坐标 (坐标3D [6], 返回坐标 [6], , 矩阵)
     
102. 
     
103. .如果真 (返回坐标 [6].X ＝ 0)
     
104. 
     
105.     返回 ()
     
106. 
     
107. .如果真结束
     
108. 
     
109. 坐标3D [7].X ＝ 对象坐标.X ＋ 0.4
     
110. 
     
111. 坐标3D [7].Y ＝ 对象坐标.Y ＋ 2
     
112. 
     
113. 坐标3D [7].Z ＝ 对象坐标.Z ＋ 0.4
     
114. 
     
115. 运算_矩阵转坐标 (坐标3D [7], 返回坐标 [7], , 矩阵)
     
116. 
     
117. .如果真 (返回坐标 [7].X ＝ 0)
     
118. 
     
119.     返回 ()
     
120. 
     
121. .如果真结束
     
122. 
     
123. 坐标3D [8].X ＝ 对象坐标.X － 0.4
     
124. 
     
125. 坐标3D [8].Y ＝ 对象坐标.Y ＋ 2
     
126. 
     
127. 坐标3D [8].Z ＝ 对象坐标.Z ＋ 0.4
     
128. 
     
129. 运算_矩阵转坐标 (坐标3D [8], 返回坐标 [8], , 矩阵)
     
130. 
     
131. .如果真 (返回坐标 [8].X ＝ 0)
     
132. 
     
133.     返回 ()
     
134. 
     
135. .如果真结束
     
136. 
     
137. 
     
138. 
     
139. 
     
140. 
     
141. 
     
142. 
     
143. 
     
144. 
     
145. 绘制直线 (返回坐标 [1].X, 返回坐标 [1].Y, 返回坐标 [5].X, 返回坐标 [5].Y, 2, 转换颜色 (#芙红, ), )
     
146. 
     
147. 绘制直线 (返回坐标 [2].X, 返回坐标 [2].Y, 返回坐标 [6].X, 返回坐标 [6].Y, 2, 转换颜色 (#芙红, ), )
     
148. 
     
149. 绘制直线 (返回坐标 [3].X, 返回坐标 [3].Y, 返回坐标 [7].X, 返回坐标 [7].Y, 2, 转换颜色 (#芙红, ), )
     
150. 
     
151. 绘制直线 (返回坐标 [4].X, 返回坐标 [4].Y, 返回坐标 [8].X, 返回坐标 [8].Y, 2, 转换颜色 (#芙红, ), )
     
152. 
     
153. 
     
154. 
     
155. 绘制直线 (返回坐标 [1].X, 返回坐标 [1].Y, 返回坐标 [3].X, 返回坐标 [3].Y, 2, 转换颜色 (#芙红, ), )
     
156. 
     
157. 绘制直线 (返回坐标 [2].X, 返回坐标 [2].Y, 返回坐标 [4].X, 返回坐标 [4].Y, 2, 转换颜色 (#芙红, ), )
     
158. 
     
159. 
     
160. 
     
161. 
     
162. 
     
163. 绘制直线 (返回坐标 [1].X, 返回坐标 [1].Y, 返回坐标 [2].X, 返回坐标 [2].Y, 2, 转换颜色 (#芙红, ), )
     
164. 
     
165. 绘制直线 (返回坐标 [2].X, 返回坐标 [2].Y, 返回坐标 [3].X, 返回坐标 [3].Y, 2, 转换颜色 (#芙红, ), )
     
166. 
     
167. 绘制直线 (返回坐标 [3].X, 返回坐标 [3].Y, 返回坐标 [4].X, 返回坐标 [4].Y, 2, 转换颜色 (#芙红, ), )
     
168. 
     
169. 绘制直线 (返回坐标 [4].X, 返回坐标 [4].Y, 返回坐标 [1].X, 返回坐标 [1].Y, 2, 转换颜色 (#芙红, ), )
     
170. 
     
171. 
     
172. 
     
173. 绘制直线 (返回坐标 [5].X, 返回坐标 [5].Y, 返回坐标 [7].X, 返回坐标 [7].Y, 2, 转换颜色 (#芙红, ), )
     
174. 
     
175. 绘制直线 (返回坐标 [6].X, 返回坐标 [6].Y, 返回坐标 [8].X, 返回坐标 [8].Y, 2, 转换颜色 (#芙红, ), )
     
176. 
     
177. 
     
178. 
     
179. 
     
180. 
     
181. 绘制直线 (返回坐标 [5].X, 返回坐标 [5].Y, 返回坐标 [6].X, 返回坐标 [6].Y, 2, 转换颜色 (#芙红, ), )
     
182. 
     
183. 绘制直线 (返回坐标 [6].X, 返回坐标 [6].Y, 返回坐标 [7].X, 返回坐标 [7].Y, 2, 转换颜色 (#芙红, ), )
     
184. 
     
185. 绘制直线 (返回坐标 [7].X, 返回坐标 [7].Y, 返回坐标 [8].X, 返回坐标 [8].Y, 2, 转换颜色 (#芙红, ), )
     
186. 
     
187. 绘制直线 (返回坐标 [8].X, 返回坐标 [8].Y, 返回坐标 [5].X, 返回坐标 [5].Y, 2, 转换颜色 (#芙红, ), )
     
188. 
     
189. 
     
190. 
     
191. 
     
192. 
     
193. .' 计次循环首 (取数组成员数 (返回坐标), a)
     
194. 
     
195.     ' 绘制文本 (返回坐标 [a].X, 返回坐标 [a].Y, 到文本 (a) ＋ “|” ＋ 到文本 (返回坐标 [a].X), 转换颜色 (#芙红, ), 15, )
     
196. 
     
197. .' 计次循环尾 ()
     
198. 
     
199. 
     
200. 
     
201. .版本 2
     
202. 
     
203. 
     
204. 
     
205. .子程序 运算_矩阵转坐标, 逻辑型
     
206. 
     
207. .参数 对象坐标, Vector3
     
208. 
     
209. .参数 返回坐标, Vector2, 参考
     
210. 
     
211. .参数 返回方框数据, D4D坐标, 参考 可空
     
212. 
     
213. .参数 ViewWorld, 小数型, 数组
     
214. 
     
215. .局部变量 SightX, 整数型
     
216. 
     
217. .局部变量 SightY, 整数型
     
218. 
     
219. .局部变量 ViewW, 双精度小数型
     
220. 
     
221. .局部变量 BoxX, 双精度小数型
     
222. 
     
223. .局部变量 BOXY, 双精度小数型
     
224. 
     
225. .局部变量 BoxY1, 双精度小数型
     
226. 
     
227. 
     
228. 
     
229. ' 取窗口内位置 (功能_取原神句柄 (), 全_游戏窗口左边, 全_游戏窗口顶边, 全_游戏窗口宽度, 全_游戏窗口高度)
     
230. 
     
231. SightX ＝ 全_游戏窗口宽度 ÷ 2
     
232. 
     
233. SightY ＝ 全_游戏窗口高度 ÷ 2
     
234. 
     
235. ViewW ＝ ViewWorld [1] [4] × 对象坐标.X ＋ ViewWorld [2] [4] × 对象坐标.Y ＋ ViewWorld [3] [4] × 对象坐标.Z ＋ ViewWorld [4] [4]
     
236. 
     
237. .如果真 (ViewW ＜ 0.01)
     
238. 
     
239.     返回 (假)
     
240. 
     
241. .如果真结束
     
242. 
     
243. ViewW ＝ 1 ÷ ViewW
     
244. 
     
245. BoxX ＝ SightX ＋ (ViewWorld [1] [1] × 对象坐标.X ＋ ViewWorld [2] [1] × 对象坐标.Y ＋ ViewWorld [3] [1] × 对象坐标.Z ＋ ViewWorld [4] [1]) × ViewW × SightX
     
246. 
     
247. BOXY ＝ SightY － (ViewWorld [1] [2] × 对象坐标.X ＋ ViewWorld [2] [2] × 对象坐标.Y ＋ ViewWorld [3] [2] × 对象坐标.Z ＋ ViewWorld [4] [2]) × ViewW × SightY
     
248. 
     
249. 
     
250. 
     
251. 返回坐标.X ＝ BoxX  ' 全_游戏窗口左边 ＋ BoxX
     
252. 
     
253. 返回坐标.Y ＝ BOXY  ' 全_游戏窗口顶边 ＋ BOXY
     
254. 
     
255. 返回 (真)

复制代码