花糕的Tool——drag_tool（拖拽放置overlay并输出pos）

huagao

    关于骑砍战团的prsnt一节，事实上rubik的十字座标是这么多年只要做prsnt的modder都会用的定位方法，但弊端在于需要在实际prsnt界面中对照坐标参数重新set pos，并且对于一些形状大小不规则的overlay通常需要反复调试。即使在有热重载和txt修正的加持下我经常也浪费了很多时间。    所以这个拖拽放置并自动输出到log的功能是我很久之前一直想弄的，正好许久没搓ms了，今天抽空把这个想法实现了。已经将代码模块化了，可以一键复用到任意 presentation 中，这个工具是方便mod开发者对prsnt快速布局并定位、调整overlay，适配所有按规范要求书写的prsnt。


    很无语的是中文站的代码粘贴又把我的缩进吞了，有强迫症的可以去B站看B站展示




需要注意几点：
1.适配的prsnt中所有的overlay定义的时候需要严格按照$g_presentation_obj_X的格式按1开始的顺序书写。原因很简单因为我无法获取到其他人源代码中overlay的命名，只能按照ms通用的来实现输出代码到log。

2.tool的使用一定要加到prsnt的末尾并且保证这个tool在其他tool之前，例如下面的test

1. ("test", 0, mesh_load_window,
   
2.    [
   
3.     (load,
   
4.     [
   
5.     (presentation_set_duration, 9999999),
   
6.     ]),
   
7.     (run,[]),
   
8.     (enter_or_leave,[]),
   
9.     (button,[]),
   
10.     (click,[]),
    
11. ] + drag_tool + pos_tool + quit_tool + ……),

复制代码

原因也很简单因为我实际获取prsnt中所有overlay的数量是通过这个drag_tool的第一个overlay的索引序号掌握的，所以需要保证该tool一定要在所应用的prsnt的最后以保证没有遗漏的overlay。并且放在tool序列最前端以保证其他的tool生成的overlay不会干扰到输出结果

3.ID被覆盖的overlay都可以获取到，只是输出因为没有存储地方，所以从第一个id被覆盖的overlay之后的输出都会有问题。这个是没有办法的，只能自己规范书写或者把所有会被覆盖id的overlay都丢到后面到时候手动赋值。因为用的是ti_on_presentation_mouse_press，所有overlay都可以互动到（只要鼠标能点到），同样的互动event_state_change只能和button类互动。

4.因为骑砍引擎的问题，所有输出的下划线都会被强制换成空格，日志里的代码需要自己单独找个txt批量替换一下。

5.还没有用过我的简化书写触发器名的需要重新定义一下，因为我用习惯了懒得改。在prsnt列表外部加

1. #huagao: triggers id rename
   
2. load = ti_on_presentation_load
   
3. run = ti_on_presentation_run
   
4. button = ti_on_presentation_event_state_change
   
5. enter_or_leave = ti_on_presentation_mouse_enter_leave
   
6. click = ti_on_presentation_mouse_press

复制代码

话不多嗦，上代码

1. #huagao: tool
   
2. 
   
3. drag_tool = [
   
4. 
   
5.     (load, [
   
6.         # 输出坐标按钮
   
7.         (create_game_button_overlay, "$drag_output_btn", "@输 出 坐 标 "),
   
8.         (position_set_x, pos1, 80),
   
9.         (position_set_y, pos1, 680),
   
10.         (overlay_set_position, "$drag_output_btn", pos1),
    
11. 
    
12.         # 创建对齐线（水平/垂直），初始隐藏
    
13.         (create_mesh_overlay, "$drag_hline", "mesh_white_plane"),
    
14. 
    
15.         (create_mesh_overlay, "$drag_vline", "mesh_white_plane"),
    
16. 
    
17.         (overlay_set_color, "$drag_hline", 0xFF0000),
    
18.         (overlay_set_color, "$drag_vline", 0xFF0000),
    
19.         #(overlay_set_alpha, "$drag_hline", 0x80),
    
20.         #(overlay_set_alpha, "$drag_vline", 0x80),
    
21.         (overlay_set_display, "$drag_hline", 0),
    
22.         (overlay_set_display, "$drag_vline", 0),
    
23. 
    
24.         # 初始化拖拽状态
    
25.         (assign, "$drag_active", 0),
    
26.         (assign, "$drag_current", -1),
    
27.         (assign, "$drag_current_index", -1),
    
28. 
    
29.         # 计算 overlay 总数：$drag_output_btn 的值就是应用界面所有实际 overlay 的数量
    
30.         (assign, "$drag_overlay_count", "$drag_output_btn"),
    
31.     ]),
    
32. 
    
33.     (run, [
    
34.         (set_fixed_point_multiplier, 1000),
    
35.         (mouse_get_position, pos63),
    
36.         (position_get_x, "$drag_mouse_x", pos63),
    
37.         (position_get_y, "$drag_mouse_y", pos63),
    
38. 
    
39.         # 拖拽处理
    
40.         (try_begin),
    
41.             (eq, "$drag_active", 1),
    
42.             (key_is_down, key_left_mouse_button),
    
43.             (ge, "$drag_current", 0),
    
44. 
    
45.             # 更新被拖拽对象的位置到鼠标
    
46.             (overlay_set_position, "$drag_current", pos63),
    
47. 
    
48.             # 获取当前对象坐标
    
49.             (overlay_get_position, pos0, "$drag_current"),
    
50.             (position_get_x, ":cur_x", pos0),
    
51.             (position_get_y, ":cur_y", pos0),
    
52. 
    
53.             # 寻找最近的对齐线
    
54.             (assign, ":best_dx", 9999),
    
55.             (assign, ":best_dy", 9999),
    
56.             (assign, ":align_x", -1),
    
57.             (assign, ":align_y", -1),
    
58. 
    
59.             (try_for_range, ":i", 0, "$drag_overlay_count"),
    
60.                 (neq, ":i", "$drag_current"),   # 排除自身
    
61.                 (overlay_get_position, pos1, ":i"),
    
62.                 (position_get_x, ":ox", pos1),
    
63.                 (position_get_y, ":oy", pos1),
    
64. 
    
65.                 # X轴差值
    
66.                 (store_sub, ":dx", ":ox", ":cur_x"),
    
67.                 (val_abs, ":dx"),
    
68.                 (try_begin),
    
69.                     (le, ":dx", 50),
    
70.                     (lt, ":dx", ":best_dx"),
    
71.                     (assign, ":best_dx", ":dx"),
    
72.                     (assign, ":align_x", ":ox"),
    
73.                 (try_end),
    
74. 
    
75.                 # Y轴差值
    
76.                 (store_sub, ":dy", ":oy", ":cur_y"),
    
77.                 (val_abs, ":dy"),
    
78.                 (try_begin),
    
79.                     (le, ":dy", 50),
    
80.                     (lt, ":dy", ":best_dy"),
    
81.                     (assign, ":best_dy", ":dy"),
    
82.                     (assign, ":align_y", ":oy"),
    
83.                 (try_end),
    
84.             (try_end),
    
85. 
    
86.             # 显示垂直线
    
87.             (try_begin),
    
88.                 (ge, ":align_x", 0),
    
89.                 (position_set_x, pos1, ":align_x"),
    
90.                 (position_set_y, pos1, 0),
    
91.                 (overlay_set_position, "$drag_vline", pos1),
    
92.                 (position_set_x, pos1, 20),
    
93.                 (position_set_y, pos1, 50000),
    
94.                 (overlay_set_size, "$drag_vline", pos1),
    
95.                 (overlay_set_display, "$drag_vline", 1),
    
96.             (else_try),
    
97.                 (overlay_set_display, "$drag_vline", 0),
    
98.             (try_end),
    
99. 
    
100.             # 显示水平线
     
101.             (try_begin),
     
102.                 (ge, ":align_y", 0),
     
103.                 (position_set_x, pos1, 0),
     
104.                 (position_set_y, pos1, ":align_y"),
     
105.                 (overlay_set_position, "$drag_hline", pos1),
     
106.                 (position_set_x, pos1, 50000),
     
107.                 (position_set_y, pos1, 20),
     
108.                 (overlay_set_size, "$drag_hline", pos1),
     
109.                 (overlay_set_display, "$drag_hline", 1),
     
110.             (else_try),
     
111.                 (overlay_set_display, "$drag_hline", 0),
     
112.             (try_end),
     
113. 
     
114.         (else_try),
     
115.             # 无拖拽时隐藏对齐线
     
116.             (overlay_set_display, "$drag_vline", 0),
     
117.             (overlay_set_display, "$drag_hline", 0),
     
118.         (try_end),
     
119. 
     
120.         # 检测左键松开，结束拖拽
     
121.         (try_begin),
     
122.             (eq, "$drag_active", 1),
     
123.             (neg|key_is_down, key_left_mouse_button),
     
124.             (assign, "$drag_active", 0),
     
125.             (assign, "$drag_current", -1),
     
126.             (assign, "$drag_current_index", -1),
     
127.         (try_end),
     
128.     ]),
     
129. 
     
130.     (click, [
     
131.         (store_trigger_param_1, ":clicked_obj"),
     
132.         (store_trigger_param_2, ":mouse_button"),
     
133. 
     
134.         # Ctrl + 左键 开始拖拽
     
135.         (try_begin),
     
136.             (eq, ":mouse_button", 0),   # 0 = 左键
     
137.             (this_or_next|key_is_down, key_left_control),
     
138.             (key_is_down, key_right_control),
     
139. 
     
140.             (assign, "$drag_current", ":clicked_obj"),
     
141.             (assign, "$drag_active", 1),
     
142.             (assign, "$drag_current_index", ":clicked_obj"),   # 索引直接就是 ID
     
143.         (try_end),
     
144.     ]),
     
145. 
     
146.     (button, [
     
147.         (store_trigger_param_1, ":clicked_obj"),
     
148.         (eq, ":clicked_obj", "$drag_output_btn"),
     
149.         (display_log_message,"@##开 始 输 出 当 前  prsnt  所 有 overlay 重 定 位 pos"),
     
150.         # 输出所有overlay的坐标
     
151.         (try_for_range, ":i", 0, "$drag_overlay_count"),
     
152.             (overlay_get_position, pos1, ":i"),
     
153.             (position_get_x, ":x", pos1),
     
154.             (position_get_y, ":y", pos1),
     
155. 
     
156.             # 将索引（从1开始）存入reg0，用于生成变量名$g_presentation_obj_{reg0}
     
157.             (assign, reg0, ":i"),
     
158.             (val_add, reg0, 1),
     
159. 
     
160.             # 输出定位代码
     
161.             (str_store_string, s0, "@(init_position,pos1),"),
     
162.             (display_log_message, s0),
     
163. 
     
164.             (assign, reg0, ":x"),
     
165.             (str_store_string, s0, "@(position_set_x,pos1,{reg0}),"),
     
166.             (display_log_message, s0),
     
167. 
     
168.             (assign, reg0, ":y"),
     
169.             (str_store_string, s0, "@ (position_set_y,pos1,{reg0}),"),
     
170.             (display_log_message, s0),
     
171. 
     
172.             (assign, reg0, ":i"),
     
173.             (val_add, reg0, 1),
     
174.             (str_store_string, s0, "@(overlay_set_position,$g_presentation_obj_{reg0},pos1),^"),#末尾多加了一个换行符
     
175.             (display_log_message, s0),
     
176.         (try_end),
     
177.     ]),
     
178. ]

复制代码

   实际使用参考上面注意事项里面的参考代码，直接加在prsnt内部方括号后就可以实现一键部署，进入界面后Ctrl加左键即可实现对overlay的拖拽，最后点击左上方输出坐标，去战团根目录的rgl log日志文件中将输出的代码复制出来批量将空格替换成下划线，就可以粘贴到prsnt源码的load末尾了（有在其他触发器定义overlay的自己调整位置）。

（定位时自动吸附对齐功能有点难写，抽空再补）

战争傀儡阿格兰

解解解解解解解解解解解解解解解解解解侠天下第一！