Post by WWO on Mar 8, 2021 9:52:28 GMT
(Untested) example mmmacro sub / subroutines so search engines can get a useful hit.
- including subs that call other subs.
[Untested in the sense that working code taken and simplified for demonstration may have left typos such as variable or label name inconsistencies.]
- including subs that call other subs.
[Untested in the sense that working code taken and simplified for demonstration may have left typos such as variable or label name inconsistencies.]
* | .
* | .
* | Globals:
* | .
1 | RUN ACTION | DEBUG | CLEAR CUSTOM VARIABLES
* | .
2 | RUN ACTION | DEFINE integer VARIABLE | %StageLeftXXforDisplay%::0
3 | RUN ACTION | DEFINE integer VARIABLE | %StageLeftXXforDisplay%::-100
4 | RUN ACTION | DEFINE integer VARIABLE | %StageLeftYYforDisplay%::0
5 | RUN ACTION | DEFINE integer VARIABLE | %StageLeftYYforDisplay%::+10
* | .
* | Coming soon:
* | 6 | RUN ACTION | DEFINE integer VARIABLE | %StageLeftXXforDisplay%::=-100
* | .
7 | RUN ACTION | DEFINE integer VARIABLE | %ZeroWait%::10
8 | RUN ACTION | DEFINE integer VARIABLE | %ClickWait%::100
* | .
* | .
* | _main_
* | .
* | .
* | ~Click_Button
* | .
9 | RUN ACTION | DEFINE integer VARIABLE | %XX%::0
10 | RUN ACTION | DEFINE integer VARIABLE | %XX%::-429
11 | RUN ACTION | DEFINE integer VARIABLE | %YY%::848
* | .
* | 0x9c2215
12 | RUN ACTION | DEFINE integer VARIABLE | %RGB-R%::156
13 | RUN ACTION | DEFINE integer VARIABLE | %RGB-G%::34
14 | RUN ACTION | DEFINE integer VARIABLE | %RGB-B%::21
* | .
15 | RUN ACTION | DEFINE STRING VARIABLE | %_RETLABEL%::~Button_Clicked
16 | RUN ACTION | GOTO MACRO LINE | _ClickWhenRGB_
* | .
* | ~Button_Clicked
* | .
* | .
* | Sample debug methods.
* | .
17 | RUN ACTION | DEBUG | logger::INFO::verbose::Button Clicked
* | 18 | RUN ACTION | PLAY SYSTEM SOUND | Beep::ASYNC
* | 19 | RUN ACTION | PAUSE
* | 20 | RUN ACTION | MESSAGE PROMPT | Button Clicked
* | .
* | .
* | ~ShowAllDone
* | Move mouse further away so user sees we really think we are done..
21 | RUN ACTION | DEFINE STRING VARIABLE | %_RETLABEL%::~AllDone
22 | RUN ACTION | GOTO MACRO LINE | _MoveMouseByStageLeft_
* | ~AllDone
* | .
* | .
23 | RUN ACTION | GOTO MACRO LINE | _END
* | .
* | .
* | .
* | _subs_ ...
* | .
* | _MoveMouseByStageLeft_
* | Mouse mouse left so user can see click impact.
24 | RUN ACTION | DEFINE integer VARIABLE | %XX%::+%StageLeftXXforDisplay%
25 | RUN ACTION | DEFINE integer VARIABLE | %YY%::+%StageLeftYYforDisplay%
26 | %XX% | %YY% | %ZeroWait% | Mouse Movement
27 | RUN ACTION | GOTO MACRO LINE | %_RETLABEL%
* | .
* | .
* | _ClickWhenRGB_
28 | RUN ACTION | DEFINE STRING VARIABLE | %_SAVED-RETLABEL_%::%_RETLABEL%
29 | RUN ACTION | DEBUG | logger::INFO::_ClickWhenRGB_: waiting for (%RGB-R%, %RGB-G%, %RGB-B%) @ (%XX%, %YY%).
30 | if | pixel color | Color [R=%RGB-R%, G=%RGB-G%, B=%RGB-B%]::at location [X:%XX% Y:%YY%] | is the same | continue
31 | %XX% | %YY% | %ZeroWait% | Mouse Movement
32 | X | X | %ClickWait% | Left Click
* | .
33 | RUN ACTION | DEFINE STRING VARIABLE | %_RETLABEL%::~_ClickWhenRGB-1_
34 | RUN ACTION | GOTO MACRO LINE | _MoveMouseByStageLeft_
* | ~_ClickWhenRGB-1_
35 | RUN ACTION | GOTO MACRO LINE | %_SAVED-RETLABEL_%
* | .
* | .
* | .
* | _END
* | .
* | .
36 | RUN ACTION | DEBUG | SHOW CUSTOM VARIABLES
* | .
* | .