MMO macro

[Craz1000]

Looking to make a macro program to automate some key presses. Anyone ever make something where it outputs key presses as if it was actually being done?

[luke]

Assuming you're in windows, something like https://www.autohotkey.com/ may be an easier solution for you

[Craz1000]

That looks perfect actually, thanks.

[Craz1000]

Checked it out, if QB64 can output keystrokes i can do it in QB64 much easier based on timing and keeping track of what is next and not.

[SMcNeill]

Is _SCREENPRINT what you  want? http://www.qb64.org/wiki/SCREENPRINT

[Craz1000]

damn that works perfectly, thank you! I will post the source when completed.

[Craz1000]

I take it there is no way to send key combos like "Shift + 1" using _SCREENPRINT?

[Craz1000]

Got it to work. Luckily EQ2 has a hotbar spinner you can use to swap hotbars, just binded it to "," and "."

Code: QB64: [Select]

1. _TITLE "EQ2 Macro"
2.  
3. TYPE Ability
4.     CastTime AS INTEGER
5.     Cooldown AS INTEGER
6.     CoolDownClock AS INTEGER
7.     SpellName AS STRING * 20
8. END TYPE
9.  
10. SCREEN 12
11. _MOUSESHOW "CROSSHAIR"
12. Hotkeys = 12
13. DIM SHARED MaxActive AS INTEGER
14. DIM SHARED HotKey(Hotkeys * 2) AS Ability
15. DIM SHARED Active AS INTEGER
16. DIM SHARED ActiveClock AS INTEGER
17. MacroActive = 0
18. BossActive = 0
19. Active = 0
20.  
21. LoadHotkeyTimers
22. SLEEP 2
23. LINE (100, 300)-(150, 350), 2, BF
24. LINE (300, 300)-(350, 350), 4, BF
25. LINE (500, 300)-(550, 350), 1, BF
26. LINE (100, 400)-(550, 450), 14, BF
27.  
28.  
29. DO
30.     LOCATE 1, 1
31.     _LIMIT 10
32.     IF MacroActive = 1 THEN
33.         IF Active = 0 THEN
34.             IF BossActive = 1 THEN BossSpells (Hotkeys)
35.             CALL CastSpells(Hotkeys)
36.         ELSE
37.             ActiveClock = ActiveClock - 1
38.             IF ActiveClock = 0 THEN Active = 0
39.         END IF
40.     END IF
41.  
42.     DO WHILE _MOUSEINPUT
43.         IF _MOUSEBUTTON(1) THEN
44.             IF POINT(MX - 1, MY - 1) = 2 AND MacroActive = 0 THEN
45.                 CALL Delay("Battle active in:", 30)
46.                 MacroActive = 1
47.                 ClearClock = 0
48.             ELSEIF POINT(MX - 1, MY - 1) = 1 AND MacroActive = 0 THEN
49.                 CALL Delay("Boss active in:", 30)
50.                 MacroActive = 1
51.                 BossActive = 1
52.                 ClearClock = 0
53.             ELSEIF POINT(MX - 1, MY - 1) = 4 AND MacroActive = 1 THEN
54.                 MacroActive = 0
55.                 BossActive = 0
56.                 PRINT "Stopped                                   "
57.             ELSEIF POINT(MX - 1, MY - 1) = 14 AND MacroActive = 0 AND ClearClock = 0 THEN
58.                 ClearTimers (Hotkeys)
59.                 Active = 0
60.                 ActiveClock = 0
61.                 ClearClock = 1
62.                 PRINT "Cleared cooldown timers                   "
63.             END IF
64.         END IF
65.         MX = _MOUSEX
66.         MY = _MOUSEY
67.     LOOP
68.  
69.     UpdateClocks (Hotkeys)
70. LOOP
71.  
72.  
73.  
74. SUB ClearTimers (HotKeys)
75.     FOR x = 1 TO HotKeys * 2
76.         HotKey(x).CoolDownClock = 0
77.     NEXT x
78. END SUB
79.  
80. SUB Delay (Msg$, TimeDelay)
81.     DO
82.         _LIMIT 10
83.         LOCATE 1, 1
84.         PRINT Msg$; TimeDelay / 10
85.         TimeDelay = TimeDelay - 1
86.  
87.     LOOP UNTIL TimeDelay = 0
88. END SUB
89.  
90.  
91.  
92. SUB UpdateClocks (Hotkeys)
93.     LOCATE 5, 1
94.     PRINT "Norm:";
95.     FOR x = 1 TO Hotkeys * 2
96.         IF HotKey(x).CoolDownClock > 0 THEN HotKey(x).CoolDownClock = HotKey(x).CoolDownClock - 1
97.  
98.         IF x = 12 THEN
99.             PRINT HotKey(x).CoolDownClock; "                                      "
100.             LOCATE 6, 1
101.             PRINT "Boss:";
102.         ELSEIF x = 24 THEN
103.             PRINT HotKey(x).CoolDownClock; "                                      "
104.         ELSE
105.             PRINT HotKey(x).CoolDownClock;
106.         END IF
107.     NEXT x
108. END SUB
109.  
110. ' runs through hotbar and casts first ability off cooldown
111. SUB CastSpells (Hotkeys)
112.     FOR x = 1 TO Hotkeys
113.         IF Active = 0 AND HotKey(x).CoolDownClock = 0 AND HotKey(x).CastTime <> 0 THEN
114.             Active = 1
115.             PRINT "Casting "; HotKey(x).SpellName; "                           "
116.  
117.             HotKey(x).CoolDownClock = HotKey(x).CastTime + HotKey(x).Cooldown
118.             ActiveClock = HotKey(x).CastTime
119.             _SCREENPRINT ","
120.  
121.             IF x < 10 THEN
122.                 _SCREENPRINT RTRIM$(LTRIM$(STR$(x)))
123.             ELSEIF x = 10 THEN
124.                 _SCREENPRINT "0"
125.             ELSEIF x = 11 THEN
126.                 _SCREENPRINT "-"
127.             ELSEIF x = 12 THEN
128.                 _SCREENPRINT "="
129.             END IF
130.             EXIT FOR
131.         END IF
132.     NEXT x
133. END SUB
134.  
135. SUB BossSpells (Hotkeys)
136.     FOR x = Hotkeys + 1 TO Hotkeys * 2
137.         IF Active = 0 AND HotKey(x).CoolDownClock = 0 AND HotKey(x).CastTime <> 0 THEN
138.             Active = 1
139.             PRINT "Casting "; HotKey(x).SpellName; "      "; x - 12; CHR$(x - 12)
140.  
141.             HotKey(x).CoolDownClock = HotKey(x).CastTime + HotKey(x).Cooldown
142.             ActiveClock = HotKey(x).CastTime
143.  
144.             _SCREENPRINT "."
145.             _SCREENPRINT RTRIM$(LTRIM$(STR$(x - 12)))
146.             EXIT FOR
147.         END IF
148.     NEXT x
149. END SUB
150.  
151.  
152. 'This is where you would set cast time and cooldown time
153. 'if spell is a DOT and the duration of the dot is greater than the cooldown then use duration as cooldown
154. SUB LoadHotkeyTimers
155.     MaxActive = 2
156.  
157.     HotKey(1).SpellName = "Dooming Darkess IV"
158.     HotKey(2).SpellName = "Vampire Bats VIII"
159.     HotKey(3).SpellName = "Bloodcoil XI"
160.     HotKey(4).SpellName = "Soulroot XII"
161.     HotKey(5).SpellName = "Pandemic XI"
162.     HotKey(6).SpellName = "Lifetap IX"
163.     HotKey(7).SpellName = "Arcane Bewilderment"
164.     HotKey(8).SpellName = "Animated Dagger"
165.     HotKey(9).SpellName = "Smite of Consistency"
166.     HotKey(10).SpellName = "Energy Clash"
167.     HotKey(11).SpellName = "Edit Me"
168.     HotKey(12).SpellName = "Edit Me"
169.  
170.     HotKey(1).CastTime = 10
171.     HotKey(2).CastTime = 15
172.     HotKey(3).CastTime = 10
173.     HotKey(4).CastTime = 15
174.     HotKey(5).CastTime = 20
175.     HotKey(6).CastTime = 15
176.     HotKey(7).CastTime = 10
177.     HotKey(8).CastTime = 10
178.     HotKey(9).CastTime = 10
179.     HotKey(10).CastTime = 10
180.     HotKey(11).CastTime = 0
181.     HotKey(12).CastTime = 0
182.  
183.     HotKey(1).Cooldown = 252
184.     HotKey(2).Cooldown = 252
185.     HotKey(3).Cooldown = 278
186.     HotKey(4).Cooldown = 17
187.     HotKey(5).Cooldown = 76
188.     HotKey(6).Cooldown = 45
189.     HotKey(7).Cooldown = 300
190.     HotKey(8).Cooldown = 150
191.     HotKey(9).Cooldown = 60
192.     HotKey(10).Cooldown = 300
193.     HotKey(11).Cooldown = 1
194.     HotKey(12).Cooldown = 1
195.  
196.     'Priority spells (boss battles)
197.  
198.     HotKey(13).SpellName = "UndeadHorde VI"
199.     HotKey(14).SpellName = "Awaken Grave VIII"
200.     HotKey(15).SpellName = "Blighted Horde IX"
201.     HotKey(16).SpellName = "Vampirism"
202.     HotKey(17).SpellName = "Bloatfly"
203.     HotKey(18).SpellName = "Desiccation"
204.     HotKey(19).SpellName = "Exsanguination"
205.     HotKey(20).SpellName = "Virulent Outbreak"
206.     HotKey(21).SpellName = "Withering"
207.     HotKey(22).SpellName = "Toxic Life"
208.     HotKey(23).SpellName = "Edit Me"
209.     HotKey(24).SpellName = "Edit Me"
210.  
211.     HotKey(13).CastTime = 15
212.     HotKey(14).CastTime = 15
213.     HotKey(15).CastTime = 15
214.     HotKey(16).CastTime = 20
215.     HotKey(17).CastTime = 30
216.     HotKey(18).CastTime = 25
217.     HotKey(19).CastTime = 30
218.     HotKey(20).CastTime = 40
219.     HotKey(21).CastTime = 50
220.     HotKey(22).CastTime = 45
221.     HotKey(23).CastTime = 0
222.     HotKey(24).CastTime = 0
223.  
224.     HotKey(13).Cooldown = 3010
225.     HotKey(14).Cooldown = 300
226.     HotKey(15).Cooldown = 300
227.     HotKey(16).Cooldown = 910
228.     HotKey(17).Cooldown = 2210
229.     HotKey(18).Cooldown = 2560
230.     HotKey(19).Cooldown = 2060
231.     HotKey(20).Cooldown = 1510
232.     HotKey(21).Cooldown = 1660
233.     HotKey(22).Cooldown = 2260
234.     HotKey(23).Cooldown = 1
235.     HotKey(24).Cooldown = 1
236.  
237. END SUB
238.